packages feed

gi-gio 0.2.46.15 → 2.0.1

raw patch · 349 files changed

+72/−103453 lines, 349 filesdep ~gi-glibdep ~gi-gobjectdep ~transformersbuild-type:Customsetup-changed

Dependency ranges changed: gi-glib, gi-gobject, transformers

Files

− GI/Gio.hs 
@@ -1,46 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--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.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--import Data.GI.Base-
− GI/Gio/Callbacks.hs 
@@ -1,1465 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Callbacks-    ( -- -- * Signals--- ** ActionEntryActivateFieldCallback-    ActionEntryActivateFieldCallback        ,-    ActionEntryActivateFieldCallbackC       ,-    actionEntryActivateFieldCallbackClosure ,-    actionEntryActivateFieldCallbackWrapper ,-    mkActionEntryActivateFieldCallback      ,-    noActionEntryActivateFieldCallback      ,----- ** ActionEntryChangeStateFieldCallback-    ActionEntryChangeStateFieldCallback     ,-    ActionEntryChangeStateFieldCallbackC    ,-    actionEntryChangeStateFieldCallbackClosure,-    actionEntryChangeStateFieldCallbackWrapper,-    mkActionEntryChangeStateFieldCallback   ,-    noActionEntryChangeStateFieldCallback   ,----- ** AsyncReadyCallback-    AsyncReadyCallback                      ,-    AsyncReadyCallbackC                     ,-    asyncReadyCallbackClosure               ,-    asyncReadyCallbackWrapper               ,-    mkAsyncReadyCallback                    ,-    noAsyncReadyCallback                    ,----- ** BusAcquiredCallback-    BusAcquiredCallback                     ,-    BusAcquiredCallbackC                    ,-    busAcquiredCallbackClosure              ,-    busAcquiredCallbackWrapper              ,-    mkBusAcquiredCallback                   ,-    noBusAcquiredCallback                   ,----- ** BusNameAcquiredCallback-    BusNameAcquiredCallback                 ,-    BusNameAcquiredCallbackC                ,-    busNameAcquiredCallbackClosure          ,-    busNameAcquiredCallbackWrapper          ,-    mkBusNameAcquiredCallback               ,-    noBusNameAcquiredCallback               ,----- ** BusNameAppearedCallback-    BusNameAppearedCallback                 ,-    BusNameAppearedCallbackC                ,-    busNameAppearedCallbackClosure          ,-    busNameAppearedCallbackWrapper          ,-    mkBusNameAppearedCallback               ,-    noBusNameAppearedCallback               ,----- ** BusNameLostCallback-    BusNameLostCallback                     ,-    BusNameLostCallbackC                    ,-    busNameLostCallbackClosure              ,-    busNameLostCallbackWrapper              ,-    mkBusNameLostCallback                   ,-    noBusNameLostCallback                   ,----- ** BusNameVanishedCallback-    BusNameVanishedCallback                 ,-    BusNameVanishedCallbackC                ,-    busNameVanishedCallbackClosure          ,-    busNameVanishedCallbackWrapper          ,-    mkBusNameVanishedCallback               ,-    noBusNameVanishedCallback               ,----- ** CancellableSourceFunc-    CancellableSourceFunc                   ,-    CancellableSourceFuncC                  ,-    cancellableSourceFuncClosure            ,-    cancellableSourceFuncWrapper            ,-    mkCancellableSourceFunc                 ,-    noCancellableSourceFunc                 ,----- ** DBusInterfaceGetPropertyFunc-    DBusInterfaceGetPropertyFunc            ,-    DBusInterfaceGetPropertyFuncC           ,-    dBusInterfaceGetPropertyFuncClosure     ,-    dBusInterfaceGetPropertyFuncWrapper     ,-    mkDBusInterfaceGetPropertyFunc          ,-    noDBusInterfaceGetPropertyFunc          ,----- ** DBusInterfaceMethodCallFunc-    DBusInterfaceMethodCallFunc             ,-    DBusInterfaceMethodCallFuncC            ,-    dBusInterfaceMethodCallFuncClosure      ,-    dBusInterfaceMethodCallFuncWrapper      ,-    mkDBusInterfaceMethodCallFunc           ,-    noDBusInterfaceMethodCallFunc           ,----- ** DBusInterfaceSetPropertyFunc-    DBusInterfaceSetPropertyFunc            ,-    DBusInterfaceSetPropertyFuncC           ,-    dBusInterfaceSetPropertyFuncClosure     ,-    dBusInterfaceSetPropertyFuncWrapper     ,-    mkDBusInterfaceSetPropertyFunc          ,-    noDBusInterfaceSetPropertyFunc          ,----- ** DBusMessageFilterFunction-    DBusMessageFilterFunction               ,-    DBusMessageFilterFunctionC              ,-    dBusMessageFilterFunctionClosure        ,-    dBusMessageFilterFunctionWrapper        ,-    mkDBusMessageFilterFunction             ,-    noDBusMessageFilterFunction             ,----- ** DBusProxyTypeFunc-    DBusProxyTypeFunc                       ,-    DBusProxyTypeFuncC                      ,-    dBusProxyTypeFuncClosure                ,-    dBusProxyTypeFuncWrapper                ,-    mkDBusProxyTypeFunc                     ,-    noDBusProxyTypeFunc                     ,----- ** DBusSignalCallback-    DBusSignalCallback                      ,-    DBusSignalCallbackC                     ,-    dBusSignalCallbackClosure               ,-    dBusSignalCallbackWrapper               ,-    mkDBusSignalCallback                    ,-    noDBusSignalCallback                    ,----- ** DBusSubtreeDispatchFunc-    DBusSubtreeDispatchFunc                 ,-    DBusSubtreeDispatchFuncC                ,-    dBusSubtreeDispatchFuncClosure          ,-    dBusSubtreeDispatchFuncWrapper          ,-    mkDBusSubtreeDispatchFunc               ,-    noDBusSubtreeDispatchFunc               ,----- ** DBusSubtreeIntrospectFunc-    DBusSubtreeIntrospectFunc               ,-    DBusSubtreeIntrospectFuncC              ,-    dBusSubtreeIntrospectFuncClosure        ,-    dBusSubtreeIntrospectFuncWrapper        ,-    mkDBusSubtreeIntrospectFunc             ,-    noDBusSubtreeIntrospectFunc             ,----- ** DesktopAppLaunchCallback-    DesktopAppLaunchCallback                ,-    DesktopAppLaunchCallbackC               ,-    desktopAppLaunchCallbackClosure         ,-    desktopAppLaunchCallbackWrapper         ,-    mkDesktopAppLaunchCallback              ,-    noDesktopAppLaunchCallback              ,----- ** FileMeasureProgressCallback-    FileMeasureProgressCallback             ,-    FileMeasureProgressCallbackC            ,-    fileMeasureProgressCallbackClosure      ,-    fileMeasureProgressCallbackWrapper      ,-    mkFileMeasureProgressCallback           ,-    noFileMeasureProgressCallback           ,----- ** FileProgressCallback-    FileProgressCallback                    ,-    FileProgressCallbackC                   ,-    fileProgressCallbackClosure             ,-    fileProgressCallbackWrapper             ,-    mkFileProgressCallback                  ,-    noFileProgressCallback                  ,----- ** FileReadMoreCallback-    FileReadMoreCallback                    ,-    FileReadMoreCallbackC                   ,-    fileReadMoreCallbackClosure             ,-    fileReadMoreCallbackWrapper             ,-    mkFileReadMoreCallback                  ,-    noFileReadMoreCallback                  ,----- ** IOSchedulerJobFunc-    IOSchedulerJobFunc                      ,-    IOSchedulerJobFuncC                     ,-    iOSchedulerJobFuncClosure               ,-    iOSchedulerJobFuncWrapper               ,-    mkIOSchedulerJobFunc                    ,-    noIOSchedulerJobFunc                    ,----- ** PollableSourceFunc-    PollableSourceFunc                      ,-    PollableSourceFuncC                     ,-    mkPollableSourceFunc                    ,-    noPollableSourceFunc                    ,-    pollableSourceFuncClosure               ,-    pollableSourceFuncWrapper               ,----- ** SettingsBindGetMapping-    SettingsBindGetMapping                  ,-    SettingsBindGetMappingC                 ,-    mkSettingsBindGetMapping                ,-    noSettingsBindGetMapping                ,-    settingsBindGetMappingClosure           ,-    settingsBindGetMappingWrapper           ,----- ** SettingsBindSetMapping-    SettingsBindSetMapping                  ,-    SettingsBindSetMappingC                 ,-    mkSettingsBindSetMapping                ,-    noSettingsBindSetMapping                ,-    settingsBindSetMappingClosure           ,-    settingsBindSetMappingWrapper           ,----- ** SettingsGetMapping-    SettingsGetMapping                      ,-    SettingsGetMappingC                     ,-    mkSettingsGetMapping                    ,-    noSettingsGetMapping                    ,-    settingsGetMappingClosure               ,-    settingsGetMappingWrapper               ,----- ** SimpleAsyncThreadFunc-    SimpleAsyncThreadFunc                   ,-    SimpleAsyncThreadFuncC                  ,-    mkSimpleAsyncThreadFunc                 ,-    noSimpleAsyncThreadFunc                 ,-    simpleAsyncThreadFuncClosure            ,-    simpleAsyncThreadFuncWrapper            ,----- ** SocketSourceFunc-    SocketSourceFunc                        ,-    SocketSourceFuncC                       ,-    mkSocketSourceFunc                      ,-    noSocketSourceFunc                      ,-    socketSourceFuncClosure                 ,-    socketSourceFuncWrapper                 ,----- ** TaskThreadFunc-    TaskThreadFunc                          ,-    TaskThreadFuncC                         ,-    mkTaskThreadFunc                        ,-    noTaskThreadFunc                        ,-    taskThreadFuncClosure                   ,-    taskThreadFuncWrapper                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types--import qualified GI.GLib as GLib-import qualified GI.GObject as GObject---- callback TaskThreadFunc-taskThreadFuncClosure :: TaskThreadFunc -> IO Closure-taskThreadFuncClosure cb = newCClosure =<< mkTaskThreadFunc wrapped-    where wrapped = taskThreadFuncWrapper Nothing cb--type TaskThreadFuncC =-    Ptr Task ->-    Ptr GObject.Object ->-    Ptr () ->-    Ptr Cancellable ->-    IO ()--foreign import ccall "wrapper"-    mkTaskThreadFunc :: TaskThreadFuncC -> IO (FunPtr TaskThreadFuncC)--type TaskThreadFunc =-    Task ->-    GObject.Object ->-    Ptr () ->-    Maybe Cancellable ->-    IO ()--noTaskThreadFunc :: Maybe TaskThreadFunc-noTaskThreadFunc = Nothing--taskThreadFuncWrapper ::-    Maybe (Ptr (FunPtr (TaskThreadFuncC))) ->-    TaskThreadFunc ->-    Ptr Task ->-    Ptr GObject.Object ->-    Ptr () ->-    Ptr Cancellable ->-    IO ()-taskThreadFuncWrapper funptrptr _cb task sourceObject taskData cancellable = do-    task' <- (newObject Task) task-    sourceObject' <- (newObject GObject.Object) sourceObject-    maybeCancellable <--        if cancellable == nullPtr-        then return Nothing-        else do-            cancellable' <- (newObject Cancellable) cancellable-            return $ Just cancellable'-    _cb  task' sourceObject' taskData maybeCancellable-    maybeReleaseFunPtr funptrptr---- callback SocketSourceFunc-socketSourceFuncClosure :: SocketSourceFunc -> IO Closure-socketSourceFuncClosure cb = newCClosure =<< mkSocketSourceFunc wrapped-    where wrapped = socketSourceFuncWrapper Nothing cb--type SocketSourceFuncC =-    Ptr Socket ->-    CUInt ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkSocketSourceFunc :: SocketSourceFuncC -> IO (FunPtr SocketSourceFuncC)--type SocketSourceFunc =-    Socket ->-    [GLib.IOCondition] ->-    IO Bool--noSocketSourceFunc :: Maybe SocketSourceFunc-noSocketSourceFunc = Nothing--socketSourceFuncWrapper ::-    Maybe (Ptr (FunPtr (SocketSourceFuncC))) ->-    SocketSourceFunc ->-    Ptr Socket ->-    CUInt ->-    Ptr () ->-    IO CInt-socketSourceFuncWrapper funptrptr _cb socket condition _ = do-    socket' <- (newObject Socket) socket-    let condition' = wordToGFlags condition-    result <- _cb  socket' condition'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback SimpleAsyncThreadFunc-simpleAsyncThreadFuncClosure :: SimpleAsyncThreadFunc -> IO Closure-simpleAsyncThreadFuncClosure cb = newCClosure =<< mkSimpleAsyncThreadFunc wrapped-    where wrapped = simpleAsyncThreadFuncWrapper Nothing cb--type SimpleAsyncThreadFuncC =-    Ptr SimpleAsyncResult ->-    Ptr GObject.Object ->-    Ptr Cancellable ->-    IO ()--foreign import ccall "wrapper"-    mkSimpleAsyncThreadFunc :: SimpleAsyncThreadFuncC -> IO (FunPtr SimpleAsyncThreadFuncC)--type SimpleAsyncThreadFunc =-    SimpleAsyncResult ->-    GObject.Object ->-    Maybe Cancellable ->-    IO ()--noSimpleAsyncThreadFunc :: Maybe SimpleAsyncThreadFunc-noSimpleAsyncThreadFunc = Nothing--simpleAsyncThreadFuncWrapper ::-    Maybe (Ptr (FunPtr (SimpleAsyncThreadFuncC))) ->-    SimpleAsyncThreadFunc ->-    Ptr SimpleAsyncResult ->-    Ptr GObject.Object ->-    Ptr Cancellable ->-    IO ()-simpleAsyncThreadFuncWrapper funptrptr _cb res object cancellable = do-    res' <- (newObject SimpleAsyncResult) res-    object' <- (newObject GObject.Object) object-    maybeCancellable <--        if cancellable == nullPtr-        then return Nothing-        else do-            cancellable' <- (newObject Cancellable) cancellable-            return $ Just cancellable'-    _cb  res' object' maybeCancellable-    maybeReleaseFunPtr funptrptr---- callback SettingsGetMapping-settingsGetMappingClosure :: SettingsGetMapping -> IO Closure-settingsGetMappingClosure cb = newCClosure =<< mkSettingsGetMapping wrapped-    where wrapped = settingsGetMappingWrapper Nothing cb--type SettingsGetMappingC =-    Ptr GVariant ->-    Ptr (Ptr ()) ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkSettingsGetMapping :: SettingsGetMappingC -> IO (FunPtr SettingsGetMappingC)--type SettingsGetMapping =-    GVariant ->-    IO (Bool,(Ptr ()))--noSettingsGetMapping :: Maybe SettingsGetMapping-noSettingsGetMapping = Nothing--settingsGetMappingWrapper ::-    Maybe (Ptr (FunPtr (SettingsGetMappingC))) ->-    SettingsGetMapping ->-    Ptr GVariant ->-    Ptr (Ptr ()) ->-    Ptr () ->-    IO CInt-settingsGetMappingWrapper funptrptr _cb value result_ _ = do-    value' <- newGVariantFromPtr value-    (result, outresult_) <- _cb  value'-    poke result_ outresult_-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback SettingsBindSetMapping-settingsBindSetMappingClosure :: SettingsBindSetMapping -> IO Closure-settingsBindSetMappingClosure cb = newCClosure =<< mkSettingsBindSetMapping wrapped-    where wrapped = settingsBindSetMappingWrapper Nothing cb--type SettingsBindSetMappingC =-    Ptr GValue ->-    Ptr GLib.VariantType ->-    Ptr () ->-    IO (Ptr GVariant)--foreign import ccall "wrapper"-    mkSettingsBindSetMapping :: SettingsBindSetMappingC -> IO (FunPtr SettingsBindSetMappingC)--type SettingsBindSetMapping =-    GValue ->-    GLib.VariantType ->-    IO GVariant--noSettingsBindSetMapping :: Maybe SettingsBindSetMapping-noSettingsBindSetMapping = Nothing--settingsBindSetMappingWrapper ::-    Maybe (Ptr (FunPtr (SettingsBindSetMappingC))) ->-    SettingsBindSetMapping ->-    Ptr GValue ->-    Ptr GLib.VariantType ->-    Ptr () ->-    IO (Ptr GVariant)-settingsBindSetMappingWrapper funptrptr _cb value expectedType _ = do-    value' <- (newBoxed GValue) value-    expectedType' <- (newBoxed GLib.VariantType) expectedType-    result <- _cb  value' expectedType'-    maybeReleaseFunPtr funptrptr-    result' <- refGVariant result-    return result'---- callback SettingsBindGetMapping-settingsBindGetMappingClosure :: SettingsBindGetMapping -> IO Closure-settingsBindGetMappingClosure cb = newCClosure =<< mkSettingsBindGetMapping wrapped-    where wrapped = settingsBindGetMappingWrapper Nothing cb--type SettingsBindGetMappingC =-    Ptr GValue ->-    Ptr GVariant ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkSettingsBindGetMapping :: SettingsBindGetMappingC -> IO (FunPtr SettingsBindGetMappingC)--type SettingsBindGetMapping =-    GValue ->-    GVariant ->-    IO Bool--noSettingsBindGetMapping :: Maybe SettingsBindGetMapping-noSettingsBindGetMapping = Nothing--settingsBindGetMappingWrapper ::-    Maybe (Ptr (FunPtr (SettingsBindGetMappingC))) ->-    SettingsBindGetMapping ->-    Ptr GValue ->-    Ptr GVariant ->-    Ptr () ->-    IO CInt-settingsBindGetMappingWrapper funptrptr _cb value variant _ = do-    value' <- (newBoxed GValue) value-    variant' <- newGVariantFromPtr variant-    result <- _cb  value' variant'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback PollableSourceFunc-pollableSourceFuncClosure :: PollableSourceFunc -> IO Closure-pollableSourceFuncClosure cb = newCClosure =<< mkPollableSourceFunc wrapped-    where wrapped = pollableSourceFuncWrapper Nothing cb--type PollableSourceFuncC =-    Ptr GObject.Object ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkPollableSourceFunc :: PollableSourceFuncC -> IO (FunPtr PollableSourceFuncC)--type PollableSourceFunc =-    GObject.Object ->-    IO Bool--noPollableSourceFunc :: Maybe PollableSourceFunc-noPollableSourceFunc = Nothing--pollableSourceFuncWrapper ::-    Maybe (Ptr (FunPtr (PollableSourceFuncC))) ->-    PollableSourceFunc ->-    Ptr GObject.Object ->-    Ptr () ->-    IO CInt-pollableSourceFuncWrapper funptrptr _cb pollableStream _ = do-    pollableStream' <- (newObject GObject.Object) pollableStream-    result <- _cb  pollableStream'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback IOSchedulerJobFunc-iOSchedulerJobFuncClosure :: IOSchedulerJobFunc -> IO Closure-iOSchedulerJobFuncClosure cb = newCClosure =<< mkIOSchedulerJobFunc wrapped-    where wrapped = iOSchedulerJobFuncWrapper Nothing cb--type IOSchedulerJobFuncC =-    Ptr IOSchedulerJob ->-    Ptr Cancellable ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkIOSchedulerJobFunc :: IOSchedulerJobFuncC -> IO (FunPtr IOSchedulerJobFuncC)--type IOSchedulerJobFunc =-    IOSchedulerJob ->-    Maybe Cancellable ->-    IO Bool--noIOSchedulerJobFunc :: Maybe IOSchedulerJobFunc-noIOSchedulerJobFunc = Nothing--iOSchedulerJobFuncWrapper ::-    Maybe (Ptr (FunPtr (IOSchedulerJobFuncC))) ->-    IOSchedulerJobFunc ->-    Ptr IOSchedulerJob ->-    Ptr Cancellable ->-    Ptr () ->-    IO CInt-iOSchedulerJobFuncWrapper funptrptr _cb job cancellable _ = do-    job' <- (newPtr IOSchedulerJob) job-    maybeCancellable <--        if cancellable == nullPtr-        then return Nothing-        else do-            cancellable' <- (newObject Cancellable) cancellable-            return $ Just cancellable'-    result <- _cb  job' maybeCancellable-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback FileReadMoreCallback-fileReadMoreCallbackClosure :: FileReadMoreCallback -> IO Closure-fileReadMoreCallbackClosure cb = newCClosure =<< mkFileReadMoreCallback wrapped-    where wrapped = fileReadMoreCallbackWrapper Nothing cb--type FileReadMoreCallbackC =-    CString ->-    Int64 ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkFileReadMoreCallback :: FileReadMoreCallbackC -> IO (FunPtr FileReadMoreCallbackC)--type FileReadMoreCallback =-    T.Text ->-    Int64 ->-    Ptr () ->-    IO Bool--noFileReadMoreCallback :: Maybe FileReadMoreCallback-noFileReadMoreCallback = Nothing--fileReadMoreCallbackWrapper ::-    Maybe (Ptr (FunPtr (FileReadMoreCallbackC))) ->-    FileReadMoreCallback ->-    CString ->-    Int64 ->-    Ptr () ->-    IO CInt-fileReadMoreCallbackWrapper 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-fileProgressCallbackClosure :: FileProgressCallback -> IO Closure-fileProgressCallbackClosure cb = newCClosure =<< mkFileProgressCallback wrapped-    where wrapped = fileProgressCallbackWrapper Nothing cb--type FileProgressCallbackC =-    Int64 ->-    Int64 ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkFileProgressCallback :: FileProgressCallbackC -> IO (FunPtr FileProgressCallbackC)--type FileProgressCallback =-    Int64 ->-    Int64 ->-    IO ()--noFileProgressCallback :: Maybe FileProgressCallback-noFileProgressCallback = Nothing--fileProgressCallbackWrapper ::-    Maybe (Ptr (FunPtr (FileProgressCallbackC))) ->-    FileProgressCallback ->-    Int64 ->-    Int64 ->-    Ptr () ->-    IO ()-fileProgressCallbackWrapper funptrptr _cb currentNumBytes totalNumBytes _ = do-    _cb  currentNumBytes totalNumBytes-    maybeReleaseFunPtr funptrptr---- callback FileMeasureProgressCallback-fileMeasureProgressCallbackClosure :: FileMeasureProgressCallback -> IO Closure-fileMeasureProgressCallbackClosure cb = newCClosure =<< mkFileMeasureProgressCallback wrapped-    where wrapped = fileMeasureProgressCallbackWrapper Nothing cb--type FileMeasureProgressCallbackC =-    CInt ->-    Word64 ->-    Word64 ->-    Word64 ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkFileMeasureProgressCallback :: FileMeasureProgressCallbackC -> IO (FunPtr FileMeasureProgressCallbackC)--type FileMeasureProgressCallback =-    Bool ->-    Word64 ->-    Word64 ->-    Word64 ->-    IO ()--noFileMeasureProgressCallback :: Maybe FileMeasureProgressCallback-noFileMeasureProgressCallback = Nothing--fileMeasureProgressCallbackWrapper ::-    Maybe (Ptr (FunPtr (FileMeasureProgressCallbackC))) ->-    FileMeasureProgressCallback ->-    CInt ->-    Word64 ->-    Word64 ->-    Word64 ->-    Ptr () ->-    IO ()-fileMeasureProgressCallbackWrapper funptrptr _cb reporting currentSize numDirs numFiles _ = do-    let reporting' = (/= 0) reporting-    _cb  reporting' currentSize numDirs numFiles-    maybeReleaseFunPtr funptrptr---- callback DesktopAppLaunchCallback-desktopAppLaunchCallbackClosure :: DesktopAppLaunchCallback -> IO Closure-desktopAppLaunchCallbackClosure cb = newCClosure =<< mkDesktopAppLaunchCallback wrapped-    where wrapped = desktopAppLaunchCallbackWrapper Nothing cb--type DesktopAppLaunchCallbackC =-    Ptr DesktopAppInfo ->-    Int32 ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkDesktopAppLaunchCallback :: DesktopAppLaunchCallbackC -> IO (FunPtr DesktopAppLaunchCallbackC)--type DesktopAppLaunchCallback =-    DesktopAppInfo ->-    Int32 ->-    IO ()--noDesktopAppLaunchCallback :: Maybe DesktopAppLaunchCallback-noDesktopAppLaunchCallback = Nothing--desktopAppLaunchCallbackWrapper ::-    Maybe (Ptr (FunPtr (DesktopAppLaunchCallbackC))) ->-    DesktopAppLaunchCallback ->-    Ptr DesktopAppInfo ->-    Int32 ->-    Ptr () ->-    IO ()-desktopAppLaunchCallbackWrapper funptrptr _cb appinfo pid _ = do-    appinfo' <- (newObject DesktopAppInfo) appinfo-    _cb  appinfo' pid-    maybeReleaseFunPtr funptrptr---- callback DBusSubtreeIntrospectFunc-dBusSubtreeIntrospectFuncClosure :: DBusSubtreeIntrospectFunc -> IO Closure-dBusSubtreeIntrospectFuncClosure cb = newCClosure =<< mkDBusSubtreeIntrospectFunc wrapped-    where wrapped = dBusSubtreeIntrospectFuncWrapper Nothing cb--type DBusSubtreeIntrospectFuncC =-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    Ptr () ->-    IO (Ptr DBusInterfaceInfo)--foreign import ccall "wrapper"-    mkDBusSubtreeIntrospectFunc :: DBusSubtreeIntrospectFuncC -> IO (FunPtr DBusSubtreeIntrospectFuncC)--type DBusSubtreeIntrospectFunc =-    DBusConnection ->-    T.Text ->-    T.Text ->-    T.Text ->-    IO DBusInterfaceInfo--noDBusSubtreeIntrospectFunc :: Maybe DBusSubtreeIntrospectFunc-noDBusSubtreeIntrospectFunc = Nothing--dBusSubtreeIntrospectFuncWrapper ::-    Maybe (Ptr (FunPtr (DBusSubtreeIntrospectFuncC))) ->-    DBusSubtreeIntrospectFunc ->-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    Ptr () ->-    IO (Ptr DBusInterfaceInfo)-dBusSubtreeIntrospectFuncWrapper funptrptr _cb connection sender objectPath node _ = do-    connection' <- (newObject DBusConnection) connection-    sender' <- cstringToText sender-    objectPath' <- cstringToText objectPath-    node' <- cstringToText node-    result <- _cb  connection' sender' objectPath' node'-    maybeReleaseFunPtr funptrptr-    result' <- copyBoxed result-    return result'---- callback DBusSubtreeDispatchFunc-dBusSubtreeDispatchFuncClosure :: DBusSubtreeDispatchFunc -> IO Closure-dBusSubtreeDispatchFuncClosure cb = newCClosure =<< mkDBusSubtreeDispatchFunc wrapped-    where wrapped = dBusSubtreeDispatchFuncWrapper Nothing cb--type DBusSubtreeDispatchFuncC =-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr () ->-    Ptr () ->-    IO (Ptr DBusInterfaceVTable)--foreign import ccall "wrapper"-    mkDBusSubtreeDispatchFunc :: DBusSubtreeDispatchFuncC -> IO (FunPtr DBusSubtreeDispatchFuncC)--type DBusSubtreeDispatchFunc =-    DBusConnection ->-    T.Text ->-    T.Text ->-    T.Text ->-    T.Text ->-    Ptr () ->-    IO DBusInterfaceVTable--noDBusSubtreeDispatchFunc :: Maybe DBusSubtreeDispatchFunc-noDBusSubtreeDispatchFunc = Nothing--dBusSubtreeDispatchFuncWrapper ::-    Maybe (Ptr (FunPtr (DBusSubtreeDispatchFuncC))) ->-    DBusSubtreeDispatchFunc ->-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr () ->-    Ptr () ->-    IO (Ptr DBusInterfaceVTable)-dBusSubtreeDispatchFuncWrapper funptrptr _cb connection sender objectPath interfaceName node outUserData _ = do-    connection' <- (newObject DBusConnection) connection-    sender' <- cstringToText sender-    objectPath' <- cstringToText objectPath-    interfaceName' <- cstringToText interfaceName-    node' <- cstringToText node-    result <- _cb  connection' sender' objectPath' interfaceName' node' outUserData-    maybeReleaseFunPtr funptrptr-    let result' = unsafeManagedPtrGetPtr result-    return result'---- callback DBusSignalCallback-dBusSignalCallbackClosure :: DBusSignalCallback -> IO Closure-dBusSignalCallbackClosure cb = newCClosure =<< mkDBusSignalCallback wrapped-    where wrapped = dBusSignalCallbackWrapper Nothing cb--type DBusSignalCallbackC =-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkDBusSignalCallback :: DBusSignalCallbackC -> IO (FunPtr DBusSignalCallbackC)--type DBusSignalCallback =-    DBusConnection ->-    T.Text ->-    T.Text ->-    T.Text ->-    T.Text ->-    GVariant ->-    IO ()--noDBusSignalCallback :: Maybe DBusSignalCallback-noDBusSignalCallback = Nothing--dBusSignalCallbackWrapper ::-    Maybe (Ptr (FunPtr (DBusSignalCallbackC))) ->-    DBusSignalCallback ->-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr () ->-    IO ()-dBusSignalCallbackWrapper funptrptr _cb connection senderName objectPath interfaceName signalName parameters _ = do-    connection' <- (newObject DBusConnection) connection-    senderName' <- cstringToText senderName-    objectPath' <- cstringToText objectPath-    interfaceName' <- cstringToText interfaceName-    signalName' <- cstringToText signalName-    parameters' <- newGVariantFromPtr parameters-    _cb  connection' senderName' objectPath' interfaceName' signalName' parameters'-    maybeReleaseFunPtr funptrptr---- callback DBusProxyTypeFunc-dBusProxyTypeFuncClosure :: DBusProxyTypeFunc -> IO Closure-dBusProxyTypeFuncClosure cb = newCClosure =<< mkDBusProxyTypeFunc wrapped-    where wrapped = dBusProxyTypeFuncWrapper Nothing cb--type DBusProxyTypeFuncC =-    Ptr DBusObjectManagerClient ->-    CString ->-    CString ->-    Ptr () ->-    IO CGType--foreign import ccall "wrapper"-    mkDBusProxyTypeFunc :: DBusProxyTypeFuncC -> IO (FunPtr DBusProxyTypeFuncC)--type DBusProxyTypeFunc =-    DBusObjectManagerClient ->-    T.Text ->-    Maybe T.Text ->-    IO GType--noDBusProxyTypeFunc :: Maybe DBusProxyTypeFunc-noDBusProxyTypeFunc = Nothing--dBusProxyTypeFuncWrapper ::-    Maybe (Ptr (FunPtr (DBusProxyTypeFuncC))) ->-    DBusProxyTypeFunc ->-    Ptr DBusObjectManagerClient ->-    CString ->-    CString ->-    Ptr () ->-    IO CGType-dBusProxyTypeFuncWrapper funptrptr _cb manager objectPath interfaceName _ = do-    manager' <- (newObject 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-    maybeReleaseFunPtr funptrptr-    let result' = gtypeToCGType result-    return result'---- callback DBusMessageFilterFunction-dBusMessageFilterFunctionClosure :: DBusMessageFilterFunction -> IO Closure-dBusMessageFilterFunctionClosure cb = newCClosure =<< mkDBusMessageFilterFunction wrapped-    where wrapped = dBusMessageFilterFunctionWrapper Nothing cb--type DBusMessageFilterFunctionC =-    Ptr DBusConnection ->-    Ptr DBusMessage ->-    CInt ->-    Ptr () ->-    IO (Ptr DBusMessage)--foreign import ccall "wrapper"-    mkDBusMessageFilterFunction :: DBusMessageFilterFunctionC -> IO (FunPtr DBusMessageFilterFunctionC)--type DBusMessageFilterFunction =-    DBusConnection ->-    DBusMessage ->-    Bool ->-    IO DBusMessage--noDBusMessageFilterFunction :: Maybe DBusMessageFilterFunction-noDBusMessageFilterFunction = Nothing--dBusMessageFilterFunctionWrapper ::-    Maybe (Ptr (FunPtr (DBusMessageFilterFunctionC))) ->-    DBusMessageFilterFunction ->-    Ptr DBusConnection ->-    Ptr DBusMessage ->-    CInt ->-    Ptr () ->-    IO (Ptr DBusMessage)-dBusMessageFilterFunctionWrapper funptrptr _cb connection message incoming _ = do-    connection' <- (newObject DBusConnection) connection-    message' <- (wrapObject DBusMessage) message-    let incoming' = (/= 0) incoming-    result <- _cb  connection' message' incoming'-    maybeReleaseFunPtr funptrptr-    result' <- refObject result-    return result'---- callback DBusInterfaceSetPropertyFunc-dBusInterfaceSetPropertyFuncClosure :: DBusInterfaceSetPropertyFunc -> IO Closure-dBusInterfaceSetPropertyFuncClosure cb = newCClosure =<< mkDBusInterfaceSetPropertyFunc wrapped-    where wrapped = dBusInterfaceSetPropertyFuncWrapper Nothing cb--type DBusInterfaceSetPropertyFuncC =-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr GError ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkDBusInterfaceSetPropertyFunc :: DBusInterfaceSetPropertyFuncC -> IO (FunPtr DBusInterfaceSetPropertyFuncC)--type DBusInterfaceSetPropertyFunc =-    DBusConnection ->-    T.Text ->-    T.Text ->-    T.Text ->-    T.Text ->-    GVariant ->-    GError ->-    IO Bool--noDBusInterfaceSetPropertyFunc :: Maybe DBusInterfaceSetPropertyFunc-noDBusInterfaceSetPropertyFunc = Nothing--dBusInterfaceSetPropertyFuncWrapper ::-    Maybe (Ptr (FunPtr (DBusInterfaceSetPropertyFuncC))) ->-    DBusInterfaceSetPropertyFunc ->-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr GError ->-    Ptr () ->-    IO CInt-dBusInterfaceSetPropertyFuncWrapper funptrptr _cb connection sender objectPath interfaceName propertyName value error_ _ = do-    connection' <- (newObject DBusConnection) connection-    sender' <- cstringToText sender-    objectPath' <- cstringToText objectPath-    interfaceName' <- cstringToText interfaceName-    propertyName' <- cstringToText propertyName-    value' <- newGVariantFromPtr value-    error_' <- (newBoxed GError) error_-    result <- _cb  connection' sender' objectPath' interfaceName' propertyName' value' error_'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback DBusInterfaceMethodCallFunc-dBusInterfaceMethodCallFuncClosure :: DBusInterfaceMethodCallFunc -> IO Closure-dBusInterfaceMethodCallFuncClosure cb = newCClosure =<< mkDBusInterfaceMethodCallFunc wrapped-    where wrapped = dBusInterfaceMethodCallFuncWrapper Nothing cb--type DBusInterfaceMethodCallFuncC =-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr DBusMethodInvocation ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkDBusInterfaceMethodCallFunc :: DBusInterfaceMethodCallFuncC -> IO (FunPtr DBusInterfaceMethodCallFuncC)--type DBusInterfaceMethodCallFunc =-    DBusConnection ->-    T.Text ->-    T.Text ->-    T.Text ->-    T.Text ->-    GVariant ->-    DBusMethodInvocation ->-    IO ()--noDBusInterfaceMethodCallFunc :: Maybe DBusInterfaceMethodCallFunc-noDBusInterfaceMethodCallFunc = Nothing--dBusInterfaceMethodCallFuncWrapper ::-    Maybe (Ptr (FunPtr (DBusInterfaceMethodCallFuncC))) ->-    DBusInterfaceMethodCallFunc ->-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr DBusMethodInvocation ->-    Ptr () ->-    IO ()-dBusInterfaceMethodCallFuncWrapper funptrptr _cb connection sender objectPath interfaceName methodName parameters invocation _ = do-    connection' <- (newObject DBusConnection) connection-    sender' <- cstringToText sender-    objectPath' <- cstringToText objectPath-    interfaceName' <- cstringToText interfaceName-    methodName' <- cstringToText methodName-    parameters' <- newGVariantFromPtr parameters-    invocation' <- (wrapObject DBusMethodInvocation) invocation-    _cb  connection' sender' objectPath' interfaceName' methodName' parameters' invocation'-    maybeReleaseFunPtr funptrptr---- callback DBusInterfaceGetPropertyFunc-dBusInterfaceGetPropertyFuncClosure :: DBusInterfaceGetPropertyFunc -> IO Closure-dBusInterfaceGetPropertyFuncClosure cb = newCClosure =<< mkDBusInterfaceGetPropertyFunc wrapped-    where wrapped = dBusInterfaceGetPropertyFuncWrapper Nothing cb--type DBusInterfaceGetPropertyFuncC =-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GError ->-    Ptr () ->-    IO (Ptr GVariant)--foreign import ccall "wrapper"-    mkDBusInterfaceGetPropertyFunc :: DBusInterfaceGetPropertyFuncC -> IO (FunPtr DBusInterfaceGetPropertyFuncC)--type DBusInterfaceGetPropertyFunc =-    DBusConnection ->-    T.Text ->-    T.Text ->-    T.Text ->-    T.Text ->-    GError ->-    IO GVariant--noDBusInterfaceGetPropertyFunc :: Maybe DBusInterfaceGetPropertyFunc-noDBusInterfaceGetPropertyFunc = Nothing--dBusInterfaceGetPropertyFuncWrapper ::-    Maybe (Ptr (FunPtr (DBusInterfaceGetPropertyFuncC))) ->-    DBusInterfaceGetPropertyFunc ->-    Ptr DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GError ->-    Ptr () ->-    IO (Ptr GVariant)-dBusInterfaceGetPropertyFuncWrapper funptrptr _cb connection sender objectPath interfaceName propertyName error_ _ = do-    connection' <- (newObject 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_'-    maybeReleaseFunPtr funptrptr-    result' <- refGVariant result-    return result'---- callback CancellableSourceFunc-cancellableSourceFuncClosure :: CancellableSourceFunc -> IO Closure-cancellableSourceFuncClosure cb = newCClosure =<< mkCancellableSourceFunc wrapped-    where wrapped = cancellableSourceFuncWrapper Nothing cb--type CancellableSourceFuncC =-    Ptr Cancellable ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkCancellableSourceFunc :: CancellableSourceFuncC -> IO (FunPtr CancellableSourceFuncC)--type CancellableSourceFunc =-    Maybe Cancellable ->-    IO Bool--noCancellableSourceFunc :: Maybe CancellableSourceFunc-noCancellableSourceFunc = Nothing--cancellableSourceFuncWrapper ::-    Maybe (Ptr (FunPtr (CancellableSourceFuncC))) ->-    CancellableSourceFunc ->-    Ptr Cancellable ->-    Ptr () ->-    IO CInt-cancellableSourceFuncWrapper funptrptr _cb cancellable _ = do-    maybeCancellable <--        if cancellable == nullPtr-        then return Nothing-        else do-            cancellable' <- (newObject Cancellable) cancellable-            return $ Just cancellable'-    result <- _cb  maybeCancellable-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback BusNameVanishedCallback-busNameVanishedCallbackClosure :: BusNameVanishedCallback -> IO Closure-busNameVanishedCallbackClosure cb = newCClosure =<< mkBusNameVanishedCallback wrapped-    where wrapped = busNameVanishedCallbackWrapper Nothing cb--type BusNameVanishedCallbackC =-    Ptr DBusConnection ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkBusNameVanishedCallback :: BusNameVanishedCallbackC -> IO (FunPtr BusNameVanishedCallbackC)--type BusNameVanishedCallback =-    DBusConnection ->-    T.Text ->-    IO ()--noBusNameVanishedCallback :: Maybe BusNameVanishedCallback-noBusNameVanishedCallback = Nothing--busNameVanishedCallbackWrapper ::-    Maybe (Ptr (FunPtr (BusNameVanishedCallbackC))) ->-    BusNameVanishedCallback ->-    Ptr DBusConnection ->-    CString ->-    Ptr () ->-    IO ()-busNameVanishedCallbackWrapper funptrptr _cb connection name _ = do-    connection' <- (newObject DBusConnection) connection-    name' <- cstringToText name-    _cb  connection' name'-    maybeReleaseFunPtr funptrptr---- callback BusNameLostCallback-busNameLostCallbackClosure :: BusNameLostCallback -> IO Closure-busNameLostCallbackClosure cb = newCClosure =<< mkBusNameLostCallback wrapped-    where wrapped = busNameLostCallbackWrapper Nothing cb--type BusNameLostCallbackC =-    Ptr DBusConnection ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkBusNameLostCallback :: BusNameLostCallbackC -> IO (FunPtr BusNameLostCallbackC)--type BusNameLostCallback =-    DBusConnection ->-    T.Text ->-    IO ()--noBusNameLostCallback :: Maybe BusNameLostCallback-noBusNameLostCallback = Nothing--busNameLostCallbackWrapper ::-    Maybe (Ptr (FunPtr (BusNameLostCallbackC))) ->-    BusNameLostCallback ->-    Ptr DBusConnection ->-    CString ->-    Ptr () ->-    IO ()-busNameLostCallbackWrapper funptrptr _cb connection name _ = do-    connection' <- (newObject DBusConnection) connection-    name' <- cstringToText name-    _cb  connection' name'-    maybeReleaseFunPtr funptrptr---- callback BusNameAppearedCallback-busNameAppearedCallbackClosure :: BusNameAppearedCallback -> IO Closure-busNameAppearedCallbackClosure cb = newCClosure =<< mkBusNameAppearedCallback wrapped-    where wrapped = busNameAppearedCallbackWrapper Nothing cb--type BusNameAppearedCallbackC =-    Ptr DBusConnection ->-    CString ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkBusNameAppearedCallback :: BusNameAppearedCallbackC -> IO (FunPtr BusNameAppearedCallbackC)--type BusNameAppearedCallback =-    DBusConnection ->-    T.Text ->-    T.Text ->-    IO ()--noBusNameAppearedCallback :: Maybe BusNameAppearedCallback-noBusNameAppearedCallback = Nothing--busNameAppearedCallbackWrapper ::-    Maybe (Ptr (FunPtr (BusNameAppearedCallbackC))) ->-    BusNameAppearedCallback ->-    Ptr DBusConnection ->-    CString ->-    CString ->-    Ptr () ->-    IO ()-busNameAppearedCallbackWrapper funptrptr _cb connection name nameOwner _ = do-    connection' <- (newObject DBusConnection) connection-    name' <- cstringToText name-    nameOwner' <- cstringToText nameOwner-    _cb  connection' name' nameOwner'-    maybeReleaseFunPtr funptrptr---- callback BusNameAcquiredCallback-busNameAcquiredCallbackClosure :: BusNameAcquiredCallback -> IO Closure-busNameAcquiredCallbackClosure cb = newCClosure =<< mkBusNameAcquiredCallback wrapped-    where wrapped = busNameAcquiredCallbackWrapper Nothing cb--type BusNameAcquiredCallbackC =-    Ptr DBusConnection ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkBusNameAcquiredCallback :: BusNameAcquiredCallbackC -> IO (FunPtr BusNameAcquiredCallbackC)--type BusNameAcquiredCallback =-    DBusConnection ->-    T.Text ->-    IO ()--noBusNameAcquiredCallback :: Maybe BusNameAcquiredCallback-noBusNameAcquiredCallback = Nothing--busNameAcquiredCallbackWrapper ::-    Maybe (Ptr (FunPtr (BusNameAcquiredCallbackC))) ->-    BusNameAcquiredCallback ->-    Ptr DBusConnection ->-    CString ->-    Ptr () ->-    IO ()-busNameAcquiredCallbackWrapper funptrptr _cb connection name _ = do-    connection' <- (newObject DBusConnection) connection-    name' <- cstringToText name-    _cb  connection' name'-    maybeReleaseFunPtr funptrptr---- callback BusAcquiredCallback-busAcquiredCallbackClosure :: BusAcquiredCallback -> IO Closure-busAcquiredCallbackClosure cb = newCClosure =<< mkBusAcquiredCallback wrapped-    where wrapped = busAcquiredCallbackWrapper Nothing cb--type BusAcquiredCallbackC =-    Ptr DBusConnection ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkBusAcquiredCallback :: BusAcquiredCallbackC -> IO (FunPtr BusAcquiredCallbackC)--type BusAcquiredCallback =-    DBusConnection ->-    T.Text ->-    IO ()--noBusAcquiredCallback :: Maybe BusAcquiredCallback-noBusAcquiredCallback = Nothing--busAcquiredCallbackWrapper ::-    Maybe (Ptr (FunPtr (BusAcquiredCallbackC))) ->-    BusAcquiredCallback ->-    Ptr DBusConnection ->-    CString ->-    Ptr () ->-    IO ()-busAcquiredCallbackWrapper funptrptr _cb connection name _ = do-    connection' <- (newObject DBusConnection) connection-    name' <- cstringToText name-    _cb  connection' name'-    maybeReleaseFunPtr funptrptr---- callback AsyncReadyCallback-asyncReadyCallbackClosure :: AsyncReadyCallback -> IO Closure-asyncReadyCallbackClosure cb = newCClosure =<< mkAsyncReadyCallback wrapped-    where wrapped = asyncReadyCallbackWrapper Nothing cb--type AsyncReadyCallbackC =-    Ptr GObject.Object ->-    Ptr AsyncResult ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkAsyncReadyCallback :: AsyncReadyCallbackC -> IO (FunPtr AsyncReadyCallbackC)--type AsyncReadyCallback =-    GObject.Object ->-    AsyncResult ->-    IO ()--noAsyncReadyCallback :: Maybe AsyncReadyCallback-noAsyncReadyCallback = Nothing--asyncReadyCallbackWrapper ::-    Maybe (Ptr (FunPtr (AsyncReadyCallbackC))) ->-    AsyncReadyCallback ->-    Ptr GObject.Object ->-    Ptr AsyncResult ->-    Ptr () ->-    IO ()-asyncReadyCallbackWrapper funptrptr _cb sourceObject res _ = do-    sourceObject' <- (newObject GObject.Object) sourceObject-    res' <- (newObject AsyncResult) res-    _cb  sourceObject' res'-    maybeReleaseFunPtr funptrptr---- callback ActionEntryChangeStateFieldCallback-actionEntryChangeStateFieldCallbackClosure :: ActionEntryChangeStateFieldCallback -> IO Closure-actionEntryChangeStateFieldCallbackClosure cb = newCClosure =<< mkActionEntryChangeStateFieldCallback wrapped-    where wrapped = actionEntryChangeStateFieldCallbackWrapper Nothing cb--type ActionEntryChangeStateFieldCallbackC =-    Ptr SimpleAction ->-    Ptr GVariant ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkActionEntryChangeStateFieldCallback :: ActionEntryChangeStateFieldCallbackC -> IO (FunPtr ActionEntryChangeStateFieldCallbackC)--type ActionEntryChangeStateFieldCallback =-    SimpleAction ->-    GVariant ->-    IO ()--noActionEntryChangeStateFieldCallback :: Maybe ActionEntryChangeStateFieldCallback-noActionEntryChangeStateFieldCallback = Nothing--actionEntryChangeStateFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (ActionEntryChangeStateFieldCallbackC))) ->-    ActionEntryChangeStateFieldCallback ->-    Ptr SimpleAction ->-    Ptr GVariant ->-    Ptr () ->-    IO ()-actionEntryChangeStateFieldCallbackWrapper funptrptr _cb action value _ = do-    action' <- (newObject SimpleAction) action-    value' <- newGVariantFromPtr value-    _cb  action' value'-    maybeReleaseFunPtr funptrptr---- callback ActionEntryActivateFieldCallback-actionEntryActivateFieldCallbackClosure :: ActionEntryActivateFieldCallback -> IO Closure-actionEntryActivateFieldCallbackClosure cb = newCClosure =<< mkActionEntryActivateFieldCallback wrapped-    where wrapped = actionEntryActivateFieldCallbackWrapper Nothing cb--type ActionEntryActivateFieldCallbackC =-    Ptr SimpleAction ->-    Ptr GVariant ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkActionEntryActivateFieldCallback :: ActionEntryActivateFieldCallbackC -> IO (FunPtr ActionEntryActivateFieldCallbackC)--type ActionEntryActivateFieldCallback =-    SimpleAction ->-    GVariant ->-    IO ()--noActionEntryActivateFieldCallback :: Maybe ActionEntryActivateFieldCallback-noActionEntryActivateFieldCallback = Nothing--actionEntryActivateFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (ActionEntryActivateFieldCallbackC))) ->-    ActionEntryActivateFieldCallback ->-    Ptr SimpleAction ->-    Ptr GVariant ->-    Ptr () ->-    IO ()-actionEntryActivateFieldCallbackWrapper funptrptr _cb action parameter _ = do-    action' <- (newObject SimpleAction) action-    parameter' <- newGVariantFromPtr parameter-    _cb  action' parameter'-    maybeReleaseFunPtr funptrptr--
− GI/Gio/Constants.hs 
@@ -1,433 +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 (garetxe@gmail.com)--}--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 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_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_READONLY,-    pattern FILE_ATTRIBUTE_FILESYSTEM_FREE  ,-    pattern FILE_ATTRIBUTE_ETAG_VALUE       ,-    pattern FILE_ATTRIBUTE_DOS_IS_SYSTEM    ,-    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 DESKTOP_APP_INFO_LOOKUP_EXTENSION_POINT_NAME,--    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks---pattern VOLUME_MONITOR_EXTENSION_POINT_NAME = "gio-volume-monitor" :: T.Text---pattern VOLUME_IDENTIFIER_KIND_UUID = "uuid" :: T.Text---pattern VOLUME_IDENTIFIER_KIND_UNIX_DEVICE = "unix-device" :: T.Text---pattern VOLUME_IDENTIFIER_KIND_NFS_MOUNT = "nfs-mount" :: T.Text---pattern VOLUME_IDENTIFIER_KIND_LABEL = "label" :: T.Text---pattern VOLUME_IDENTIFIER_KIND_HAL_UDI = "hal-udi" :: T.Text---pattern VOLUME_IDENTIFIER_KIND_CLASS = "class" :: T.Text---pattern VFS_EXTENSION_POINT_NAME = "gio-vfs" :: T.Text---pattern TLS_DATABASE_PURPOSE_AUTHENTICATE_SERVER = "1.3.6.1.5.5.7.3.1" :: T.Text---pattern TLS_DATABASE_PURPOSE_AUTHENTICATE_CLIENT = "1.3.6.1.5.5.7.3.2" :: T.Text---pattern TLS_BACKEND_EXTENSION_POINT_NAME = "gio-tls-backend" :: T.Text---pattern PROXY_RESOLVER_EXTENSION_POINT_NAME = "gio-proxy-resolver" :: T.Text---pattern PROXY_EXTENSION_POINT_NAME = "gio-proxy" :: T.Text---pattern NETWORK_MONITOR_EXTENSION_POINT_NAME = "gio-network-monitor" :: T.Text---pattern NATIVE_VOLUME_MONITOR_EXTENSION_POINT_NAME = "gio-native-volume-monitor" :: T.Text---pattern MENU_LINK_SUBMENU = "submenu" :: T.Text---pattern MENU_LINK_SECTION = "section" :: T.Text---pattern MENU_ATTRIBUTE_TARGET = "target" :: T.Text---pattern MENU_ATTRIBUTE_LABEL = "label" :: T.Text---pattern MENU_ATTRIBUTE_ICON = "icon" :: T.Text---pattern MENU_ATTRIBUTE_ACTION_NAMESPACE = "action-namespace" :: T.Text---pattern MENU_ATTRIBUTE_ACTION = "action" :: T.Text---pattern FILE_ATTRIBUTE_UNIX_UID = "unix::uid" :: T.Text---pattern FILE_ATTRIBUTE_UNIX_RDEV = "unix::rdev" :: T.Text---pattern FILE_ATTRIBUTE_UNIX_NLINK = "unix::nlink" :: T.Text---pattern FILE_ATTRIBUTE_UNIX_MODE = "unix::mode" :: T.Text---pattern FILE_ATTRIBUTE_UNIX_IS_MOUNTPOINT = "unix::is-mountpoint" :: T.Text---pattern FILE_ATTRIBUTE_UNIX_INODE = "unix::inode" :: T.Text---pattern FILE_ATTRIBUTE_UNIX_GID = "unix::gid" :: T.Text---pattern FILE_ATTRIBUTE_UNIX_DEVICE = "unix::device" :: T.Text---pattern FILE_ATTRIBUTE_UNIX_BLOCK_SIZE = "unix::block-size" :: T.Text---pattern FILE_ATTRIBUTE_UNIX_BLOCKS = "unix::blocks" :: T.Text---pattern FILE_ATTRIBUTE_TRASH_ORIG_PATH = "trash::orig-path" :: T.Text---pattern FILE_ATTRIBUTE_TRASH_ITEM_COUNT = "trash::item-count" :: T.Text---pattern FILE_ATTRIBUTE_TRASH_DELETION_DATE = "trash::deletion-date" :: T.Text---pattern FILE_ATTRIBUTE_TIME_MODIFIED_USEC = "time::modified-usec" :: T.Text---pattern FILE_ATTRIBUTE_TIME_MODIFIED = "time::modified" :: T.Text---pattern FILE_ATTRIBUTE_TIME_CREATED_USEC = "time::created-usec" :: T.Text---pattern FILE_ATTRIBUTE_TIME_CREATED = "time::created" :: T.Text---pattern FILE_ATTRIBUTE_TIME_CHANGED_USEC = "time::changed-usec" :: T.Text---pattern FILE_ATTRIBUTE_TIME_CHANGED = "time::changed" :: T.Text---pattern FILE_ATTRIBUTE_TIME_ACCESS_USEC = "time::access-usec" :: T.Text---pattern FILE_ATTRIBUTE_TIME_ACCESS = "time::access" :: T.Text---pattern FILE_ATTRIBUTE_THUMBNAIL_PATH = "thumbnail::path" :: T.Text---pattern FILE_ATTRIBUTE_THUMBNAIL_IS_VALID = "thumbnail::is-valid" :: T.Text---pattern FILE_ATTRIBUTE_THUMBNAILING_FAILED = "thumbnail::failed" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_TYPE = "standard::type" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_TARGET_URI = "standard::target-uri" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_SYMLINK_TARGET = "standard::symlink-target" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_SYMBOLIC_ICON = "standard::symbolic-icon" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_SORT_ORDER = "standard::sort-order" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_SIZE = "standard::size" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_NAME = "standard::name" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_IS_VOLATILE = "standard::is-volatile" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_IS_VIRTUAL = "standard::is-virtual" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_IS_SYMLINK = "standard::is-symlink" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_IS_HIDDEN = "standard::is-hidden" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_IS_BACKUP = "standard::is-backup" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_ICON = "standard::icon" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_FAST_CONTENT_TYPE = "standard::fast-content-type" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_EDIT_NAME = "standard::edit-name" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_DISPLAY_NAME = "standard::display-name" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_DESCRIPTION = "standard::description" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_COPY_NAME = "standard::copy-name" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_CONTENT_TYPE = "standard::content-type" :: T.Text---pattern FILE_ATTRIBUTE_STANDARD_ALLOCATED_SIZE = "standard::allocated-size" :: T.Text---pattern FILE_ATTRIBUTE_SELINUX_CONTEXT = "selinux::context" :: T.Text---pattern FILE_ATTRIBUTE_PREVIEW_ICON = "preview::icon" :: T.Text---pattern FILE_ATTRIBUTE_OWNER_USER_REAL = "owner::user-real" :: T.Text---pattern FILE_ATTRIBUTE_OWNER_USER = "owner::user" :: T.Text---pattern FILE_ATTRIBUTE_OWNER_GROUP = "owner::group" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_UNIX_DEVICE_FILE = "mountable::unix-device-file" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_UNIX_DEVICE = "mountable::unix-device" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_START_STOP_TYPE = "mountable::start-stop-type" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_IS_MEDIA_CHECK_AUTOMATIC = "mountable::is-media-check-automatic" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_HAL_UDI = "mountable::hal-udi" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_UNMOUNT = "mountable::can-unmount" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_STOP = "mountable::can-stop" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_START_DEGRADED = "mountable::can-start-degraded" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_START = "mountable::can-start" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_POLL = "mountable::can-poll" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_MOUNT = "mountable::can-mount" :: T.Text---pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_EJECT = "mountable::can-eject" :: T.Text---pattern FILE_ATTRIBUTE_ID_FILESYSTEM = "id::filesystem" :: T.Text---pattern FILE_ATTRIBUTE_ID_FILE = "id::file" :: T.Text---pattern FILE_ATTRIBUTE_GVFS_BACKEND = "gvfs::backend" :: T.Text---pattern FILE_ATTRIBUTE_FILESYSTEM_USE_PREVIEW = "filesystem::use-preview" :: T.Text---pattern FILE_ATTRIBUTE_FILESYSTEM_USED = "filesystem::used" :: T.Text---pattern FILE_ATTRIBUTE_FILESYSTEM_TYPE = "filesystem::type" :: T.Text---pattern FILE_ATTRIBUTE_FILESYSTEM_SIZE = "filesystem::size" :: T.Text---pattern FILE_ATTRIBUTE_FILESYSTEM_READONLY = "filesystem::readonly" :: T.Text---pattern FILE_ATTRIBUTE_FILESYSTEM_FREE = "filesystem::free" :: T.Text---pattern FILE_ATTRIBUTE_ETAG_VALUE = "etag::value" :: T.Text---pattern FILE_ATTRIBUTE_DOS_IS_SYSTEM = "dos::is-system" :: T.Text---pattern FILE_ATTRIBUTE_DOS_IS_ARCHIVE = "dos::is-archive" :: T.Text---pattern FILE_ATTRIBUTE_ACCESS_CAN_WRITE = "access::can-write" :: T.Text---pattern FILE_ATTRIBUTE_ACCESS_CAN_TRASH = "access::can-trash" :: T.Text---pattern FILE_ATTRIBUTE_ACCESS_CAN_RENAME = "access::can-rename" :: T.Text---pattern FILE_ATTRIBUTE_ACCESS_CAN_READ = "access::can-read" :: T.Text---pattern FILE_ATTRIBUTE_ACCESS_CAN_EXECUTE = "access::can-execute" :: T.Text---pattern FILE_ATTRIBUTE_ACCESS_CAN_DELETE = "access::can-delete" :: T.Text---pattern DESKTOP_APP_INFO_LOOKUP_EXTENSION_POINT_NAME = "gio-desktop-app-info-lookup" :: T.Text--
− GI/Gio/Enums.hs 
@@ -1,1551 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Enums-    ( -    catchTlsError                           ,-    handleTlsError                          ,-    catchResourceError                      ,-    handleResourceError                     ,-    catchResolverError                      ,-    handleResolverError                     ,-    catchIOErrorEnum                        ,-    handleIOErrorEnum                       ,-    catchDBusError                          ,-    handleDBusError                         ,---- * Exported types-    ZlibCompressorFormat(..)                ,-    UnixSocketAddressType(..)               ,-    TlsRehandshakeMode(..)                  ,-    TlsInteractionResult(..)                ,-    TlsError(..)                            ,-    TlsDatabaseLookupFlags(..)              ,-    TlsCertificateRequestFlags(..)          ,-    TlsAuthenticationMode(..)               ,-    SocketType(..)                          ,-    SocketProtocol(..)                      ,-    SocketListenerEvent(..)                 ,-    SocketFamily(..)                        ,-    SocketClientEvent(..)                   ,-    ResourceError(..)                       ,-    ResolverRecordType(..)                  ,-    ResolverError(..)                       ,-    PasswordSave(..)                        ,-    NotificationPriority(..)                ,-    NetworkConnectivity(..)                 ,-    MountOperationResult(..)                ,-    IOModuleScopeFlags(..)                  ,-    IOErrorEnum(..)                         ,-    FilesystemPreviewType(..)               ,-    FileType(..)                            ,-    FileMonitorEvent(..)                    ,-    FileAttributeType(..)                   ,-    FileAttributeStatus(..)                 ,-    EmblemOrigin(..)                        ,-    DriveStartStopType(..)                  ,-    DataStreamNewlineType(..)               ,-    DataStreamByteOrder(..)                 ,-    DBusMessageType(..)                     ,-    DBusMessageHeaderField(..)              ,-    DBusMessageByteOrder(..)                ,-    DBusError(..)                           ,-    CredentialsType(..)                     ,-    ConverterResult(..)                     ,-    BusType(..)                             ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Enum ZlibCompressorFormat--data ZlibCompressorFormat = -      ZlibCompressorFormatZlib-    | ZlibCompressorFormatGzip-    | ZlibCompressorFormatRaw-    | AnotherZlibCompressorFormat Int-    deriving (Show, Eq)--instance 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--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--data UnixSocketAddressType = -      UnixSocketAddressTypeInvalid-    | UnixSocketAddressTypeAnonymous-    | UnixSocketAddressTypePath-    | UnixSocketAddressTypeAbstract-    | UnixSocketAddressTypeAbstractPadded-    | AnotherUnixSocketAddressType Int-    deriving (Show, Eq)--instance 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--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--data TlsRehandshakeMode = -      TlsRehandshakeModeNever-    | TlsRehandshakeModeSafely-    | TlsRehandshakeModeUnsafely-    | AnotherTlsRehandshakeMode Int-    deriving (Show, Eq)--instance 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--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--data TlsInteractionResult = -      TlsInteractionResultUnhandled-    | TlsInteractionResultHandled-    | TlsInteractionResultFailed-    | AnotherTlsInteractionResult Int-    deriving (Show, Eq)--instance 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--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--data TlsError = -      TlsErrorUnavailable-    | TlsErrorMisc-    | TlsErrorBadCertificate-    | TlsErrorNotTls-    | TlsErrorHandshake-    | TlsErrorCertificateRequired-    | TlsErrorEof-    | AnotherTlsError Int-    deriving (Show, Eq)--instance 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 (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 k = AnotherTlsError k--instance GErrorClass TlsError where-    gerrorClassDomain _ = "g-tls-error-quark"--catchTlsError ::-    IO a ->-    (TlsError -> GErrorMessage -> IO a) ->-    IO a-catchTlsError = catchGErrorJustDomain--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--data TlsDatabaseLookupFlags = -      TlsDatabaseLookupFlagsNone-    | TlsDatabaseLookupFlagsKeypair-    | AnotherTlsDatabaseLookupFlags Int-    deriving (Show, Eq)--instance Enum TlsDatabaseLookupFlags where-    fromEnum TlsDatabaseLookupFlagsNone = 0-    fromEnum TlsDatabaseLookupFlagsKeypair = 1-    fromEnum (AnotherTlsDatabaseLookupFlags k) = k--    toEnum 0 = TlsDatabaseLookupFlagsNone-    toEnum 1 = TlsDatabaseLookupFlagsKeypair-    toEnum k = AnotherTlsDatabaseLookupFlags k--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--data TlsCertificateRequestFlags = -      TlsCertificateRequestFlagsNone-    | AnotherTlsCertificateRequestFlags Int-    deriving (Show, Eq)--instance Enum TlsCertificateRequestFlags where-    fromEnum TlsCertificateRequestFlagsNone = 0-    fromEnum (AnotherTlsCertificateRequestFlags k) = k--    toEnum 0 = TlsCertificateRequestFlagsNone-    toEnum k = AnotherTlsCertificateRequestFlags k--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--data TlsAuthenticationMode = -      TlsAuthenticationModeNone-    | TlsAuthenticationModeRequested-    | TlsAuthenticationModeRequired-    | AnotherTlsAuthenticationMode Int-    deriving (Show, Eq)--instance 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--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--data SocketType = -      SocketTypeInvalid-    | SocketTypeStream-    | SocketTypeDatagram-    | SocketTypeSeqpacket-    | AnotherSocketType Int-    deriving (Show, Eq)--instance 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--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--data SocketProtocol = -      SocketProtocolUnknown-    | SocketProtocolDefault-    | SocketProtocolTcp-    | SocketProtocolUdp-    | SocketProtocolSctp-    | AnotherSocketProtocol Int-    deriving (Show, Eq)--instance 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--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--data SocketListenerEvent = -      SocketListenerEventBinding-    | SocketListenerEventBound-    | SocketListenerEventListening-    | SocketListenerEventListened-    | AnotherSocketListenerEvent Int-    deriving (Show, Eq)--instance 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--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--data SocketFamily = -      SocketFamilyInvalid-    | SocketFamilyUnix-    | SocketFamilyIpv4-    | SocketFamilyIpv6-    | AnotherSocketFamily Int-    deriving (Show, Eq)--instance 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--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--data SocketClientEvent = -      SocketClientEventResolving-    | SocketClientEventResolved-    | SocketClientEventConnecting-    | SocketClientEventConnected-    | SocketClientEventProxyNegotiating-    | SocketClientEventProxyNegotiated-    | SocketClientEventTlsHandshaking-    | SocketClientEventTlsHandshaked-    | SocketClientEventComplete-    | AnotherSocketClientEvent Int-    deriving (Show, Eq)--instance 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--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--data ResourceError = -      ResourceErrorNotFound-    | ResourceErrorInternal-    | AnotherResourceError Int-    deriving (Show, Eq)--instance Enum ResourceError where-    fromEnum ResourceErrorNotFound = 0-    fromEnum ResourceErrorInternal = 1-    fromEnum (AnotherResourceError k) = k--    toEnum 0 = ResourceErrorNotFound-    toEnum 1 = ResourceErrorInternal-    toEnum k = AnotherResourceError k--instance GErrorClass ResourceError where-    gerrorClassDomain _ = "g-resource-error-quark"--catchResourceError ::-    IO a ->-    (ResourceError -> GErrorMessage -> IO a) ->-    IO a-catchResourceError = catchGErrorJustDomain--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--data ResolverRecordType = -      ResolverRecordTypeSrv-    | ResolverRecordTypeMx-    | ResolverRecordTypeTxt-    | ResolverRecordTypeSoa-    | ResolverRecordTypeNs-    | AnotherResolverRecordType Int-    deriving (Show, Eq)--instance 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--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--data ResolverError = -      ResolverErrorNotFound-    | ResolverErrorTemporaryFailure-    | ResolverErrorInternal-    | AnotherResolverError Int-    deriving (Show, Eq)--instance 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 GErrorClass ResolverError where-    gerrorClassDomain _ = "g-resolver-error-quark"--catchResolverError ::-    IO a ->-    (ResolverError -> GErrorMessage -> IO a) ->-    IO a-catchResolverError = catchGErrorJustDomain--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 PasswordSave--data PasswordSave = -      PasswordSaveNever-    | PasswordSaveForSession-    | PasswordSavePermanently-    | AnotherPasswordSave Int-    deriving (Show, Eq)--instance 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--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--data NotificationPriority = -      NotificationPriorityNormal-    | NotificationPriorityLow-    | NotificationPriorityHigh-    | NotificationPriorityUrgent-    | AnotherNotificationPriority Int-    deriving (Show, Eq)--instance 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--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--data NetworkConnectivity = -      NetworkConnectivityLocal-    | NetworkConnectivityLimited-    | NetworkConnectivityPortal-    | NetworkConnectivityFull-    | AnotherNetworkConnectivity Int-    deriving (Show, Eq)--instance 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--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--data MountOperationResult = -      MountOperationResultHandled-    | MountOperationResultAborted-    | MountOperationResultUnhandled-    | AnotherMountOperationResult Int-    deriving (Show, Eq)--instance 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--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--data IOModuleScopeFlags = -      IOModuleScopeFlagsNone-    | IOModuleScopeFlagsBlockDuplicates-    | AnotherIOModuleScopeFlags Int-    deriving (Show, Eq)--instance Enum IOModuleScopeFlags where-    fromEnum IOModuleScopeFlagsNone = 0-    fromEnum IOModuleScopeFlagsBlockDuplicates = 1-    fromEnum (AnotherIOModuleScopeFlags k) = k--    toEnum 0 = IOModuleScopeFlagsNone-    toEnum 1 = IOModuleScopeFlagsBlockDuplicates-    toEnum k = AnotherIOModuleScopeFlags k--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--data IOErrorEnum = -      IOErrorEnumFailed-    | IOErrorEnumNotFound-    | IOErrorEnumExists-    | IOErrorEnumIsDirectory-    | IOErrorEnumNotDirectory-    | IOErrorEnumNotEmpty-    | IOErrorEnumNotRegularFile-    | IOErrorEnumNotSymbolicLink-    | IOErrorEnumNotMountableFile-    | IOErrorEnumFilenameTooLong-    | IOErrorEnumInvalidFilename-    | IOErrorEnumTooManyLinks-    | IOErrorEnumNoSpace-    | IOErrorEnumInvalidArgument-    | IOErrorEnumPermissionDenied-    | IOErrorEnumNotSupported-    | IOErrorEnumNotMounted-    | IOErrorEnumAlreadyMounted-    | IOErrorEnumClosed-    | IOErrorEnumCancelled-    | IOErrorEnumPending-    | IOErrorEnumReadOnly-    | IOErrorEnumCantCreateBackup-    | IOErrorEnumWrongEtag-    | IOErrorEnumTimedOut-    | IOErrorEnumWouldRecurse-    | IOErrorEnumBusy-    | IOErrorEnumWouldBlock-    | IOErrorEnumHostNotFound-    | IOErrorEnumWouldMerge-    | IOErrorEnumFailedHandled-    | IOErrorEnumTooManyOpenFiles-    | IOErrorEnumNotInitialized-    | IOErrorEnumAddressInUse-    | IOErrorEnumPartialInput-    | IOErrorEnumInvalidData-    | IOErrorEnumDbusError-    | IOErrorEnumHostUnreachable-    | IOErrorEnumNetworkUnreachable-    | IOErrorEnumConnectionRefused-    | IOErrorEnumProxyFailed-    | IOErrorEnumProxyAuthFailed-    | IOErrorEnumProxyNeedAuth-    | IOErrorEnumProxyNotAllowed-    | IOErrorEnumBrokenPipe-    | IOErrorEnumConnectionClosed-    | IOErrorEnumNotConnected-    | AnotherIOErrorEnum Int-    deriving (Show, Eq)--instance 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 (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 45 = IOErrorEnumNotConnected-    toEnum k = AnotherIOErrorEnum k--instance GErrorClass IOErrorEnum where-    gerrorClassDomain _ = "g-io-error-quark"--catchIOErrorEnum ::-    IO a ->-    (IOErrorEnum -> GErrorMessage -> IO a) ->-    IO a-catchIOErrorEnum = catchGErrorJustDomain--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--data FilesystemPreviewType = -      FilesystemPreviewTypeIfAlways-    | FilesystemPreviewTypeIfLocal-    | FilesystemPreviewTypeNever-    | AnotherFilesystemPreviewType Int-    deriving (Show, Eq)--instance 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--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--data FileType = -      FileTypeUnknown-    | FileTypeRegular-    | FileTypeDirectory-    | FileTypeSymbolicLink-    | FileTypeSpecial-    | FileTypeShortcut-    | FileTypeMountable-    | AnotherFileType Int-    deriving (Show, Eq)--instance 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--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--data FileMonitorEvent = -      FileMonitorEventChanged-    | FileMonitorEventChangesDoneHint-    | FileMonitorEventDeleted-    | FileMonitorEventCreated-    | FileMonitorEventAttributeChanged-    | FileMonitorEventPreUnmount-    | FileMonitorEventUnmounted-    | FileMonitorEventMoved-    | FileMonitorEventRenamed-    | FileMonitorEventMovedIn-    | FileMonitorEventMovedOut-    | AnotherFileMonitorEvent Int-    deriving (Show, Eq)--instance 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--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--data FileAttributeType = -      FileAttributeTypeInvalid-    | FileAttributeTypeString-    | FileAttributeTypeByteString-    | FileAttributeTypeBoolean-    | FileAttributeTypeUint32-    | FileAttributeTypeInt32-    | FileAttributeTypeUint64-    | FileAttributeTypeInt64-    | FileAttributeTypeObject-    | FileAttributeTypeStringv-    | AnotherFileAttributeType Int-    deriving (Show, Eq)--instance 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--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--data FileAttributeStatus = -      FileAttributeStatusUnset-    | FileAttributeStatusSet-    | FileAttributeStatusErrorSetting-    | AnotherFileAttributeStatus Int-    deriving (Show, Eq)--instance 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--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--data EmblemOrigin = -      EmblemOriginUnknown-    | EmblemOriginDevice-    | EmblemOriginLivemetadata-    | EmblemOriginTag-    | AnotherEmblemOrigin Int-    deriving (Show, Eq)--instance 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--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--data DriveStartStopType = -      DriveStartStopTypeUnknown-    | DriveStartStopTypeShutdown-    | DriveStartStopTypeNetwork-    | DriveStartStopTypeMultidisk-    | DriveStartStopTypePassword-    | AnotherDriveStartStopType Int-    deriving (Show, Eq)--instance 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--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--data DataStreamNewlineType = -      DataStreamNewlineTypeLf-    | DataStreamNewlineTypeCr-    | DataStreamNewlineTypeCrLf-    | DataStreamNewlineTypeAny-    | AnotherDataStreamNewlineType Int-    deriving (Show, Eq)--instance 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--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--data DataStreamByteOrder = -      DataStreamByteOrderBigEndian-    | DataStreamByteOrderLittleEndian-    | DataStreamByteOrderHostEndian-    | AnotherDataStreamByteOrder Int-    deriving (Show, Eq)--instance 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--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--data DBusMessageType = -      DBusMessageTypeInvalid-    | DBusMessageTypeMethodCall-    | DBusMessageTypeMethodReturn-    | DBusMessageTypeError-    | DBusMessageTypeSignal-    | AnotherDBusMessageType Int-    deriving (Show, Eq)--instance 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--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--data DBusMessageHeaderField = -      DBusMessageHeaderFieldInvalid-    | DBusMessageHeaderFieldPath-    | DBusMessageHeaderFieldInterface-    | DBusMessageHeaderFieldMember-    | DBusMessageHeaderFieldErrorName-    | DBusMessageHeaderFieldReplySerial-    | DBusMessageHeaderFieldDestination-    | DBusMessageHeaderFieldSender-    | DBusMessageHeaderFieldSignature-    | DBusMessageHeaderFieldNumUnixFds-    | AnotherDBusMessageHeaderField Int-    deriving (Show, Eq)--instance 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--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--data DBusMessageByteOrder = -      DBusMessageByteOrderBigEndian-    | DBusMessageByteOrderLittleEndian-    | AnotherDBusMessageByteOrder Int-    deriving (Show, Eq)--instance Enum DBusMessageByteOrder where-    fromEnum DBusMessageByteOrderBigEndian = 66-    fromEnum DBusMessageByteOrderLittleEndian = 108-    fromEnum (AnotherDBusMessageByteOrder k) = k--    toEnum 66 = DBusMessageByteOrderBigEndian-    toEnum 108 = DBusMessageByteOrderLittleEndian-    toEnum k = AnotherDBusMessageByteOrder k--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--data DBusError = -      DBusErrorFailed-    | DBusErrorNoMemory-    | DBusErrorServiceUnknown-    | DBusErrorNameHasNoOwner-    | DBusErrorNoReply-    | DBusErrorIoError-    | DBusErrorBadAddress-    | DBusErrorNotSupported-    | DBusErrorLimitsExceeded-    | DBusErrorAccessDenied-    | DBusErrorAuthFailed-    | DBusErrorNoServer-    | DBusErrorTimeout-    | DBusErrorNoNetwork-    | DBusErrorAddressInUse-    | DBusErrorDisconnected-    | DBusErrorInvalidArgs-    | DBusErrorFileNotFound-    | DBusErrorFileExists-    | DBusErrorUnknownMethod-    | DBusErrorTimedOut-    | DBusErrorMatchRuleNotFound-    | DBusErrorMatchRuleInvalid-    | DBusErrorSpawnExecFailed-    | DBusErrorSpawnForkFailed-    | DBusErrorSpawnChildExited-    | DBusErrorSpawnChildSignaled-    | DBusErrorSpawnFailed-    | DBusErrorSpawnSetupFailed-    | DBusErrorSpawnConfigInvalid-    | DBusErrorSpawnServiceInvalid-    | DBusErrorSpawnServiceNotFound-    | DBusErrorSpawnPermissionsInvalid-    | DBusErrorSpawnFileInvalid-    | DBusErrorSpawnNoMemory-    | DBusErrorUnixProcessIdUnknown-    | DBusErrorInvalidSignature-    | DBusErrorInvalidFileContent-    | DBusErrorSelinuxSecurityContextUnknown-    | DBusErrorAdtAuditDataUnknown-    | DBusErrorObjectPathInUse-    | DBusErrorUnknownObject-    | DBusErrorUnknownInterface-    | DBusErrorUnknownProperty-    | DBusErrorPropertyReadOnly-    | AnotherDBusError Int-    deriving (Show, Eq)--instance 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 GErrorClass DBusError where-    gerrorClassDomain _ = "g-dbus-error-quark"--catchDBusError ::-    IO a ->-    (DBusError -> GErrorMessage -> IO a) ->-    IO a-catchDBusError = catchGErrorJustDomain--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--data CredentialsType = -      CredentialsTypeInvalid-    | CredentialsTypeLinuxUcred-    | CredentialsTypeFreebsdCmsgcred-    | CredentialsTypeOpenbsdSockpeercred-    | CredentialsTypeSolarisUcred-    | CredentialsTypeNetbsdUnpcbid-    | AnotherCredentialsType Int-    deriving (Show, Eq)--instance 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--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--data ConverterResult = -      ConverterResultError-    | ConverterResultConverted-    | ConverterResultFinished-    | ConverterResultFlushed-    | AnotherConverterResult Int-    deriving (Show, Eq)--instance 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--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--data BusType = -      BusTypeStarter-    | BusTypeNone-    | BusTypeSystem-    | BusTypeSession-    | AnotherBusType Int-    deriving (Show, Eq)--instance 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--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/Flags.hs 
@@ -1,1189 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Flags-    ( ---- * Exported types-    TlsPasswordFlags(..)                    ,-    TlsDatabaseVerifyFlags(..)              ,-    TlsCertificateFlags(..)                 ,-    TestDBusFlags(..)                       ,-    SubprocessFlags(..)                     ,-    SocketMsgFlags(..)                      ,-    SettingsBindFlags(..)                   ,-    ResourceLookupFlags(..)                 ,-    ResourceFlags(..)                       ,-    OutputStreamSpliceFlags(..)             ,-    MountUnmountFlags(..)                   ,-    MountMountFlags(..)                     ,-    IOStreamSpliceFlags(..)                 ,-    FileQueryInfoFlags(..)                  ,-    FileMonitorFlags(..)                    ,-    FileMeasureFlags(..)                    ,-    FileCreateFlags(..)                     ,-    FileCopyFlags(..)                       ,-    FileAttributeInfoFlags(..)              ,-    DriveStartFlags(..)                     ,-    DBusSubtreeFlags(..)                    ,-    DBusSignalFlags(..)                     ,-    DBusServerFlags(..)                     ,-    DBusSendMessageFlags(..)                ,-    DBusProxyFlags(..)                      ,-    DBusPropertyInfoFlags(..)               ,-    DBusObjectManagerClientFlags(..)        ,-    DBusMessageFlags(..)                    ,-    DBusInterfaceSkeletonFlags(..)          ,-    DBusConnectionFlags(..)                 ,-    DBusCapabilityFlags(..)                 ,-    DBusCallFlags(..)                       ,-    ConverterFlags(..)                      ,-    BusNameWatcherFlags(..)                 ,-    BusNameOwnerFlags(..)                   ,-    AskPasswordFlags(..)                    ,-    ApplicationFlags(..)                    ,-    AppInfoCreateFlags(..)                  ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Flags TlsPasswordFlags--data TlsPasswordFlags = -      TlsPasswordFlagsNone-    | TlsPasswordFlagsRetry-    | TlsPasswordFlagsManyTries-    | TlsPasswordFlagsFinalTry-    | AnotherTlsPasswordFlags Int-    deriving (Show, Eq)--instance 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--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--data TlsDatabaseVerifyFlags = -      TlsDatabaseVerifyFlagsNone-    | AnotherTlsDatabaseVerifyFlags Int-    deriving (Show, Eq)--instance Enum TlsDatabaseVerifyFlags where-    fromEnum TlsDatabaseVerifyFlagsNone = 0-    fromEnum (AnotherTlsDatabaseVerifyFlags k) = k--    toEnum 0 = TlsDatabaseVerifyFlagsNone-    toEnum k = AnotherTlsDatabaseVerifyFlags k--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--data TlsCertificateFlags = -      TlsCertificateFlagsUnknownCa-    | TlsCertificateFlagsBadIdentity-    | TlsCertificateFlagsNotActivated-    | TlsCertificateFlagsExpired-    | TlsCertificateFlagsRevoked-    | TlsCertificateFlagsInsecure-    | TlsCertificateFlagsGenericError-    | TlsCertificateFlagsValidateAll-    | AnotherTlsCertificateFlags Int-    deriving (Show, Eq)--instance 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--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--data TestDBusFlags = -      TestDBusFlagsNone-    | AnotherTestDBusFlags Int-    deriving (Show, Eq)--instance Enum TestDBusFlags where-    fromEnum TestDBusFlagsNone = 0-    fromEnum (AnotherTestDBusFlags k) = k--    toEnum 0 = TestDBusFlagsNone-    toEnum k = AnotherTestDBusFlags k--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--data SubprocessFlags = -      SubprocessFlagsNone-    | SubprocessFlagsStdinPipe-    | SubprocessFlagsStdinInherit-    | SubprocessFlagsStdoutPipe-    | SubprocessFlagsStdoutSilence-    | SubprocessFlagsStderrPipe-    | SubprocessFlagsStderrSilence-    | SubprocessFlagsStderrMerge-    | SubprocessFlagsInheritFds-    | AnotherSubprocessFlags Int-    deriving (Show, Eq)--instance 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--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--data SocketMsgFlags = -      SocketMsgFlagsNone-    | SocketMsgFlagsOob-    | SocketMsgFlagsPeek-    | SocketMsgFlagsDontroute-    | AnotherSocketMsgFlags Int-    deriving (Show, Eq)--instance 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--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--data SettingsBindFlags = -      SettingsBindFlagsDefault-    | SettingsBindFlagsGet-    | SettingsBindFlagsSet-    | SettingsBindFlagsNoSensitivity-    | SettingsBindFlagsGetNoChanges-    | SettingsBindFlagsInvertBoolean-    | AnotherSettingsBindFlags Int-    deriving (Show, Eq)--instance 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--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--data ResourceLookupFlags = -      ResourceLookupFlagsNone-    | AnotherResourceLookupFlags Int-    deriving (Show, Eq)--instance Enum ResourceLookupFlags where-    fromEnum ResourceLookupFlagsNone = 0-    fromEnum (AnotherResourceLookupFlags k) = k--    toEnum 0 = ResourceLookupFlagsNone-    toEnum k = AnotherResourceLookupFlags k--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--data ResourceFlags = -      ResourceFlagsNone-    | ResourceFlagsCompressed-    | AnotherResourceFlags Int-    deriving (Show, Eq)--instance Enum ResourceFlags where-    fromEnum ResourceFlagsNone = 0-    fromEnum ResourceFlagsCompressed = 1-    fromEnum (AnotherResourceFlags k) = k--    toEnum 0 = ResourceFlagsNone-    toEnum 1 = ResourceFlagsCompressed-    toEnum k = AnotherResourceFlags k--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 OutputStreamSpliceFlags--data OutputStreamSpliceFlags = -      OutputStreamSpliceFlagsNone-    | OutputStreamSpliceFlagsCloseSource-    | OutputStreamSpliceFlagsCloseTarget-    | AnotherOutputStreamSpliceFlags Int-    deriving (Show, Eq)--instance 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--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--data MountUnmountFlags = -      MountUnmountFlagsNone-    | MountUnmountFlagsForce-    | AnotherMountUnmountFlags Int-    deriving (Show, Eq)--instance Enum MountUnmountFlags where-    fromEnum MountUnmountFlagsNone = 0-    fromEnum MountUnmountFlagsForce = 1-    fromEnum (AnotherMountUnmountFlags k) = k--    toEnum 0 = MountUnmountFlagsNone-    toEnum 1 = MountUnmountFlagsForce-    toEnum k = AnotherMountUnmountFlags k--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--data MountMountFlags = -      MountMountFlagsNone-    | AnotherMountMountFlags Int-    deriving (Show, Eq)--instance Enum MountMountFlags where-    fromEnum MountMountFlagsNone = 0-    fromEnum (AnotherMountMountFlags k) = k--    toEnum 0 = MountMountFlagsNone-    toEnum k = AnotherMountMountFlags k--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--data IOStreamSpliceFlags = -      IOStreamSpliceFlagsNone-    | IOStreamSpliceFlagsCloseStream1-    | IOStreamSpliceFlagsCloseStream2-    | IOStreamSpliceFlagsWaitForBoth-    | AnotherIOStreamSpliceFlags Int-    deriving (Show, Eq)--instance 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--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--data FileQueryInfoFlags = -      FileQueryInfoFlagsNone-    | FileQueryInfoFlagsNofollowSymlinks-    | AnotherFileQueryInfoFlags Int-    deriving (Show, Eq)--instance Enum FileQueryInfoFlags where-    fromEnum FileQueryInfoFlagsNone = 0-    fromEnum FileQueryInfoFlagsNofollowSymlinks = 1-    fromEnum (AnotherFileQueryInfoFlags k) = k--    toEnum 0 = FileQueryInfoFlagsNone-    toEnum 1 = FileQueryInfoFlagsNofollowSymlinks-    toEnum k = AnotherFileQueryInfoFlags k--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--data FileMonitorFlags = -      FileMonitorFlagsNone-    | FileMonitorFlagsWatchMounts-    | FileMonitorFlagsSendMoved-    | FileMonitorFlagsWatchHardLinks-    | FileMonitorFlagsWatchMoves-    | AnotherFileMonitorFlags Int-    deriving (Show, Eq)--instance 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--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--data FileMeasureFlags = -      FileMeasureFlagsNone-    | FileMeasureFlagsReportAnyError-    | FileMeasureFlagsApparentSize-    | FileMeasureFlagsNoXdev-    | AnotherFileMeasureFlags Int-    deriving (Show, Eq)--instance 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--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--data FileCreateFlags = -      FileCreateFlagsNone-    | FileCreateFlagsPrivate-    | FileCreateFlagsReplaceDestination-    | AnotherFileCreateFlags Int-    deriving (Show, Eq)--instance 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--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--data FileCopyFlags = -      FileCopyFlagsNone-    | FileCopyFlagsOverwrite-    | FileCopyFlagsBackup-    | FileCopyFlagsNofollowSymlinks-    | FileCopyFlagsAllMetadata-    | FileCopyFlagsNoFallbackForMove-    | FileCopyFlagsTargetDefaultPerms-    | AnotherFileCopyFlags Int-    deriving (Show, Eq)--instance 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--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--data FileAttributeInfoFlags = -      FileAttributeInfoFlagsNone-    | FileAttributeInfoFlagsCopyWithFile-    | FileAttributeInfoFlagsCopyWhenMoved-    | AnotherFileAttributeInfoFlags Int-    deriving (Show, Eq)--instance 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--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--data DriveStartFlags = -      DriveStartFlagsNone-    | AnotherDriveStartFlags Int-    deriving (Show, Eq)--instance Enum DriveStartFlags where-    fromEnum DriveStartFlagsNone = 0-    fromEnum (AnotherDriveStartFlags k) = k--    toEnum 0 = DriveStartFlagsNone-    toEnum k = AnotherDriveStartFlags k--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--data DBusSubtreeFlags = -      DBusSubtreeFlagsNone-    | DBusSubtreeFlagsDispatchToUnenumeratedNodes-    | AnotherDBusSubtreeFlags Int-    deriving (Show, Eq)--instance Enum DBusSubtreeFlags where-    fromEnum DBusSubtreeFlagsNone = 0-    fromEnum DBusSubtreeFlagsDispatchToUnenumeratedNodes = 1-    fromEnum (AnotherDBusSubtreeFlags k) = k--    toEnum 0 = DBusSubtreeFlagsNone-    toEnum 1 = DBusSubtreeFlagsDispatchToUnenumeratedNodes-    toEnum k = AnotherDBusSubtreeFlags k--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--data DBusSignalFlags = -      DBusSignalFlagsNone-    | DBusSignalFlagsNoMatchRule-    | DBusSignalFlagsMatchArg0Namespace-    | DBusSignalFlagsMatchArg0Path-    | AnotherDBusSignalFlags Int-    deriving (Show, Eq)--instance 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--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--data DBusServerFlags = -      DBusServerFlagsNone-    | DBusServerFlagsRunInThread-    | DBusServerFlagsAuthenticationAllowAnonymous-    | AnotherDBusServerFlags Int-    deriving (Show, Eq)--instance 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--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--data DBusSendMessageFlags = -      DBusSendMessageFlagsNone-    | DBusSendMessageFlagsPreserveSerial-    | AnotherDBusSendMessageFlags Int-    deriving (Show, Eq)--instance Enum DBusSendMessageFlags where-    fromEnum DBusSendMessageFlagsNone = 0-    fromEnum DBusSendMessageFlagsPreserveSerial = 1-    fromEnum (AnotherDBusSendMessageFlags k) = k--    toEnum 0 = DBusSendMessageFlagsNone-    toEnum 1 = DBusSendMessageFlagsPreserveSerial-    toEnum k = AnotherDBusSendMessageFlags k--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--data DBusProxyFlags = -      DBusProxyFlagsNone-    | DBusProxyFlagsDoNotLoadProperties-    | DBusProxyFlagsDoNotConnectSignals-    | DBusProxyFlagsDoNotAutoStart-    | DBusProxyFlagsGetInvalidatedProperties-    | DBusProxyFlagsDoNotAutoStartAtConstruction-    | AnotherDBusProxyFlags Int-    deriving (Show, Eq)--instance 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--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--data DBusPropertyInfoFlags = -      DBusPropertyInfoFlagsNone-    | DBusPropertyInfoFlagsReadable-    | DBusPropertyInfoFlagsWritable-    | AnotherDBusPropertyInfoFlags Int-    deriving (Show, Eq)--instance 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--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--data DBusObjectManagerClientFlags = -      DBusObjectManagerClientFlagsNone-    | DBusObjectManagerClientFlagsDoNotAutoStart-    | AnotherDBusObjectManagerClientFlags Int-    deriving (Show, Eq)--instance Enum DBusObjectManagerClientFlags where-    fromEnum DBusObjectManagerClientFlagsNone = 0-    fromEnum DBusObjectManagerClientFlagsDoNotAutoStart = 1-    fromEnum (AnotherDBusObjectManagerClientFlags k) = k--    toEnum 0 = DBusObjectManagerClientFlagsNone-    toEnum 1 = DBusObjectManagerClientFlagsDoNotAutoStart-    toEnum k = AnotherDBusObjectManagerClientFlags k--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--data DBusMessageFlags = -      DBusMessageFlagsNone-    | DBusMessageFlagsNoReplyExpected-    | DBusMessageFlagsNoAutoStart-    | DBusMessageFlagsAllowInteractiveAuthorization-    | AnotherDBusMessageFlags Int-    deriving (Show, Eq)--instance 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--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--data DBusInterfaceSkeletonFlags = -      DBusInterfaceSkeletonFlagsNone-    | DBusInterfaceSkeletonFlagsHandleMethodInvocationsInThread-    | AnotherDBusInterfaceSkeletonFlags Int-    deriving (Show, Eq)--instance Enum DBusInterfaceSkeletonFlags where-    fromEnum DBusInterfaceSkeletonFlagsNone = 0-    fromEnum DBusInterfaceSkeletonFlagsHandleMethodInvocationsInThread = 1-    fromEnum (AnotherDBusInterfaceSkeletonFlags k) = k--    toEnum 0 = DBusInterfaceSkeletonFlagsNone-    toEnum 1 = DBusInterfaceSkeletonFlagsHandleMethodInvocationsInThread-    toEnum k = AnotherDBusInterfaceSkeletonFlags k--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--data DBusConnectionFlags = -      DBusConnectionFlagsNone-    | DBusConnectionFlagsAuthenticationClient-    | DBusConnectionFlagsAuthenticationServer-    | DBusConnectionFlagsAuthenticationAllowAnonymous-    | DBusConnectionFlagsMessageBusConnection-    | DBusConnectionFlagsDelayMessageProcessing-    | AnotherDBusConnectionFlags Int-    deriving (Show, Eq)--instance 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--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--data DBusCapabilityFlags = -      DBusCapabilityFlagsNone-    | DBusCapabilityFlagsUnixFdPassing-    | AnotherDBusCapabilityFlags Int-    deriving (Show, Eq)--instance Enum DBusCapabilityFlags where-    fromEnum DBusCapabilityFlagsNone = 0-    fromEnum DBusCapabilityFlagsUnixFdPassing = 1-    fromEnum (AnotherDBusCapabilityFlags k) = k--    toEnum 0 = DBusCapabilityFlagsNone-    toEnum 1 = DBusCapabilityFlagsUnixFdPassing-    toEnum k = AnotherDBusCapabilityFlags k--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--data DBusCallFlags = -      DBusCallFlagsNone-    | DBusCallFlagsNoAutoStart-    | DBusCallFlagsAllowInteractiveAuthorization-    | AnotherDBusCallFlags Int-    deriving (Show, Eq)--instance 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--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--data ConverterFlags = -      ConverterFlagsNone-    | ConverterFlagsInputAtEnd-    | ConverterFlagsFlush-    | AnotherConverterFlags Int-    deriving (Show, Eq)--instance 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--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--data BusNameWatcherFlags = -      BusNameWatcherFlagsNone-    | BusNameWatcherFlagsAutoStart-    | AnotherBusNameWatcherFlags Int-    deriving (Show, Eq)--instance Enum BusNameWatcherFlags where-    fromEnum BusNameWatcherFlagsNone = 0-    fromEnum BusNameWatcherFlagsAutoStart = 1-    fromEnum (AnotherBusNameWatcherFlags k) = k--    toEnum 0 = BusNameWatcherFlagsNone-    toEnum 1 = BusNameWatcherFlagsAutoStart-    toEnum k = AnotherBusNameWatcherFlags k--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--data BusNameOwnerFlags = -      BusNameOwnerFlagsNone-    | BusNameOwnerFlagsAllowReplacement-    | BusNameOwnerFlagsReplace-    | AnotherBusNameOwnerFlags Int-    deriving (Show, Eq)--instance Enum BusNameOwnerFlags where-    fromEnum BusNameOwnerFlagsNone = 0-    fromEnum BusNameOwnerFlagsAllowReplacement = 1-    fromEnum BusNameOwnerFlagsReplace = 2-    fromEnum (AnotherBusNameOwnerFlags k) = k--    toEnum 0 = BusNameOwnerFlagsNone-    toEnum 1 = BusNameOwnerFlagsAllowReplacement-    toEnum 2 = BusNameOwnerFlagsReplace-    toEnum k = AnotherBusNameOwnerFlags k--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--data AskPasswordFlags = -      AskPasswordFlagsNeedPassword-    | AskPasswordFlagsNeedUsername-    | AskPasswordFlagsNeedDomain-    | AskPasswordFlagsSavingSupported-    | AskPasswordFlagsAnonymousSupported-    | AnotherAskPasswordFlags Int-    deriving (Show, Eq)--instance Enum AskPasswordFlags where-    fromEnum AskPasswordFlagsNeedPassword = 1-    fromEnum AskPasswordFlagsNeedUsername = 2-    fromEnum AskPasswordFlagsNeedDomain = 4-    fromEnum AskPasswordFlagsSavingSupported = 8-    fromEnum AskPasswordFlagsAnonymousSupported = 16-    fromEnum (AnotherAskPasswordFlags k) = k--    toEnum 1 = AskPasswordFlagsNeedPassword-    toEnum 2 = AskPasswordFlagsNeedUsername-    toEnum 4 = AskPasswordFlagsNeedDomain-    toEnum 8 = AskPasswordFlagsSavingSupported-    toEnum 16 = AskPasswordFlagsAnonymousSupported-    toEnum k = AnotherAskPasswordFlags k--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--data ApplicationFlags = -      ApplicationFlagsFlagsNone-    | ApplicationFlagsIsService-    | ApplicationFlagsIsLauncher-    | ApplicationFlagsHandlesOpen-    | ApplicationFlagsHandlesCommandLine-    | ApplicationFlagsSendEnvironment-    | ApplicationFlagsNonUnique-    | AnotherApplicationFlags Int-    deriving (Show, Eq)--instance 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 (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 k = AnotherApplicationFlags k--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--data AppInfoCreateFlags = -      AppInfoCreateFlagsNone-    | AppInfoCreateFlagsNeedsTerminal-    | AppInfoCreateFlagsSupportsUris-    | AppInfoCreateFlagsSupportsStartupNotification-    | AnotherAppInfoCreateFlags Int-    deriving (Show, Eq)--instance 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--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/Functions.hs 
@@ -1,2407 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Functions-    ( -- -- * Methods--- ** busGet-    busGet                                  ,----- ** busGetFinish-    busGetFinish                            ,----- ** busGetSync-    busGetSync                              ,----- ** busOwnName-    busOwnName                              ,----- ** busOwnNameOnConnection-    busOwnNameOnConnection                  ,----- ** busUnownName-    busUnownName                            ,----- ** busUnwatchName-    busUnwatchName                          ,----- ** busWatchName-    busWatchName                            ,----- ** busWatchNameOnConnection-    busWatchNameOnConnection                ,----- ** contentTypeCanBeExecutable-    contentTypeCanBeExecutable              ,----- ** contentTypeEquals-    contentTypeEquals                       ,----- ** contentTypeFromMimeType-    contentTypeFromMimeType                 ,----- ** contentTypeGetDescription-    contentTypeGetDescription               ,----- ** contentTypeGetGenericIconName-    contentTypeGetGenericIconName           ,----- ** contentTypeGetIcon-    contentTypeGetIcon                      ,----- ** contentTypeGetMimeType-    contentTypeGetMimeType                  ,----- ** contentTypeGetSymbolicIcon-    contentTypeGetSymbolicIcon              ,----- ** contentTypeGuess-    contentTypeGuess                        ,----- ** contentTypeGuessForTree-    contentTypeGuessForTree                 ,----- ** contentTypeIsA-    contentTypeIsA                          ,----- ** contentTypeIsUnknown-    contentTypeIsUnknown                    ,----- ** contentTypesGetRegistered-    contentTypesGetRegistered               ,----- ** dbusAddressEscapeValue-    dbusAddressEscapeValue                  ,----- ** dbusAddressGetForBusSync-    dbusAddressGetForBusSync                ,----- ** dbusAddressGetStream-    dbusAddressGetStream                    ,----- ** dbusAddressGetStreamFinish-    dbusAddressGetStreamFinish              ,----- ** dbusAddressGetStreamSync-    dbusAddressGetStreamSync                ,----- ** dbusGenerateGuid-    dbusGenerateGuid                        ,----- ** dbusGvalueToGvariant-    dbusGvalueToGvariant                    ,----- ** dbusGvariantToGvalue-    dbusGvariantToGvalue                    ,----- ** dbusIsAddress-    dbusIsAddress                           ,----- ** dbusIsGuid-    dbusIsGuid                              ,----- ** dbusIsInterfaceName-    dbusIsInterfaceName                     ,----- ** dbusIsMemberName-    dbusIsMemberName                        ,----- ** dbusIsName-    dbusIsName                              ,----- ** dbusIsSupportedAddress-    dbusIsSupportedAddress                  ,----- ** dbusIsUniqueName-    dbusIsUniqueName                        ,----- ** ioErrorFromErrno-    ioErrorFromErrno                        ,----- ** ioErrorQuark-    ioErrorQuark                            ,----- ** ioModulesScanAllInDirectory-    ioModulesScanAllInDirectory             ,----- ** ioModulesScanAllInDirectoryWithScope-    ioModulesScanAllInDirectoryWithScope    ,----- ** ioSchedulerCancelAllJobs-    ioSchedulerCancelAllJobs                ,----- ** ioSchedulerPushJob-    ioSchedulerPushJob                      ,----- ** networkingInit-    networkingInit                          ,----- ** pollableSourceNew-    pollableSourceNew                       ,----- ** pollableSourceNewFull-    pollableSourceNewFull                   ,----- ** pollableStreamRead-    pollableStreamRead                      ,----- ** pollableStreamWrite-    pollableStreamWrite                     ,----- ** pollableStreamWriteAll-    pollableStreamWriteAll                  ,----- ** resourcesEnumerateChildren-    resourcesEnumerateChildren              ,----- ** resourcesGetInfo-    resourcesGetInfo                        ,----- ** resourcesLookupData-    resourcesLookupData                     ,----- ** resourcesOpenStream-    resourcesOpenStream                     ,----- ** resourcesRegister-    resourcesRegister                       ,----- ** resourcesUnregister-    resourcesUnregister                     ,----- ** simpleAsyncReportGerrorInIdle-    simpleAsyncReportGerrorInIdle           ,----- ** unixIsMountPathSystemInternal-    unixIsMountPathSystemInternal           ,----- ** unixMountCompare-    unixMountCompare                        ,----- ** unixMountFree-    unixMountFree                           ,----- ** unixMountGetDevicePath-    unixMountGetDevicePath                  ,----- ** unixMountGetFsType-    unixMountGetFsType                      ,----- ** unixMountGetMountPath-    unixMountGetMountPath                   ,----- ** unixMountGuessCanEject-    unixMountGuessCanEject                  ,----- ** unixMountGuessIcon-    unixMountGuessIcon                      ,----- ** unixMountGuessName-    unixMountGuessName                      ,----- ** unixMountGuessShouldDisplay-    unixMountGuessShouldDisplay             ,----- ** unixMountGuessSymbolicIcon-    unixMountGuessSymbolicIcon              ,----- ** unixMountIsReadonly-    unixMountIsReadonly                     ,----- ** unixMountIsSystemInternal-    unixMountIsSystemInternal               ,----- ** unixMountPointsChangedSince-    unixMountPointsChangedSince             ,----- ** unixMountsChangedSince-    unixMountsChangedSince                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject---- function g_unix_mounts_changed_since--- Args : [Arg {argCName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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---unixMountsChangedSince ::-    (MonadIO m) =>-    Word64                                  -- time-    -> m Bool                               -- result-unixMountsChangedSince time = liftIO $ do-    result <- g_unix_mounts_changed_since time-    let result' = (/= 0) result-    return result'----- function g_unix_mount_points_changed_since--- Args : [Arg {argCName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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---unixMountPointsChangedSince ::-    (MonadIO m) =>-    Word64                                  -- time-    -> m Bool                               -- result-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 "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, 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 UnixMountEntry ->                   -- mount_entry : TInterface "Gio" "UnixMountEntry"-    IO CInt---unixMountIsSystemInternal ::-    (MonadIO m) =>-    UnixMountEntry                          -- mountEntry-    -> m Bool                               -- result-unixMountIsSystemInternal mountEntry = liftIO $ do-    let 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 "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, 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 UnixMountEntry ->                   -- mount_entry : TInterface "Gio" "UnixMountEntry"-    IO CInt---unixMountIsReadonly ::-    (MonadIO m) =>-    UnixMountEntry                          -- mountEntry-    -> m Bool                               -- result-unixMountIsReadonly mountEntry = liftIO $ do-    let 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 "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_guess_symbolic_icon" g_unix_mount_guess_symbolic_icon :: -    Ptr UnixMountEntry ->                   -- mount_entry : TInterface "Gio" "UnixMountEntry"-    IO (Ptr Icon)---unixMountGuessSymbolicIcon ::-    (MonadIO m) =>-    UnixMountEntry                          -- mountEntry-    -> m Icon                               -- result-unixMountGuessSymbolicIcon mountEntry = liftIO $ do-    let mountEntry' = unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_guess_symbolic_icon mountEntry'-    checkUnexpectedReturnNULL "g_unix_mount_guess_symbolic_icon" result-    result' <- (wrapObject Icon) result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_guess_should_display--- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, 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 UnixMountEntry ->                   -- mount_entry : TInterface "Gio" "UnixMountEntry"-    IO CInt---unixMountGuessShouldDisplay ::-    (MonadIO m) =>-    UnixMountEntry                          -- mountEntry-    -> m Bool                               -- result-unixMountGuessShouldDisplay mountEntry = liftIO $ do-    let 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 "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, 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 UnixMountEntry ->                   -- mount_entry : TInterface "Gio" "UnixMountEntry"-    IO CString---unixMountGuessName ::-    (MonadIO m) =>-    UnixMountEntry                          -- mountEntry-    -> m T.Text                             -- result-unixMountGuessName mountEntry = liftIO $ do-    let mountEntry' = unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_guess_name mountEntry'-    checkUnexpectedReturnNULL "g_unix_mount_guess_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_guess_icon--- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_guess_icon" g_unix_mount_guess_icon :: -    Ptr UnixMountEntry ->                   -- mount_entry : TInterface "Gio" "UnixMountEntry"-    IO (Ptr Icon)---unixMountGuessIcon ::-    (MonadIO m) =>-    UnixMountEntry                          -- mountEntry-    -> m Icon                               -- result-unixMountGuessIcon mountEntry = liftIO $ do-    let mountEntry' = unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_guess_icon mountEntry'-    checkUnexpectedReturnNULL "g_unix_mount_guess_icon" result-    result' <- (wrapObject Icon) result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_guess_can_eject--- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, 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 UnixMountEntry ->                   -- mount_entry : TInterface "Gio" "UnixMountEntry"-    IO CInt---unixMountGuessCanEject ::-    (MonadIO m) =>-    UnixMountEntry                          -- mountEntry-    -> m Bool                               -- result-unixMountGuessCanEject mountEntry = liftIO $ do-    let mountEntry' = unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_guess_can_eject mountEntry'-    let result' = (/= 0) result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_get_mount_path--- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, 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_mount_path" g_unix_mount_get_mount_path :: -    Ptr UnixMountEntry ->                   -- mount_entry : TInterface "Gio" "UnixMountEntry"-    IO CString---unixMountGetMountPath ::-    (MonadIO m) =>-    UnixMountEntry                          -- mountEntry-    -> m T.Text                             -- result-unixMountGetMountPath mountEntry = liftIO $ do-    let mountEntry' = unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_get_mount_path mountEntry'-    checkUnexpectedReturnNULL "g_unix_mount_get_mount_path" result-    result' <- cstringToText result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_get_fs_type--- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, 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 UnixMountEntry ->                   -- mount_entry : TInterface "Gio" "UnixMountEntry"-    IO CString---unixMountGetFsType ::-    (MonadIO m) =>-    UnixMountEntry                          -- mountEntry-    -> m T.Text                             -- result-unixMountGetFsType mountEntry = liftIO $ do-    let mountEntry' = unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_get_fs_type mountEntry'-    checkUnexpectedReturnNULL "g_unix_mount_get_fs_type" result-    result' <- cstringToText result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_get_device_path--- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, 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_device_path" g_unix_mount_get_device_path :: -    Ptr UnixMountEntry ->                   -- mount_entry : TInterface "Gio" "UnixMountEntry"-    IO CString---unixMountGetDevicePath ::-    (MonadIO m) =>-    UnixMountEntry                          -- mountEntry-    -> m T.Text                             -- result-unixMountGetDevicePath mountEntry = liftIO $ do-    let mountEntry' = unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_get_device_path mountEntry'-    checkUnexpectedReturnNULL "g_unix_mount_get_device_path" result-    result' <- cstringToText result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_free--- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, 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 UnixMountEntry ->                   -- mount_entry : TInterface "Gio" "UnixMountEntry"-    IO ()---unixMountFree ::-    (MonadIO m) =>-    UnixMountEntry                          -- mountEntry-    -> m ()                                 -- result-unixMountFree mountEntry = liftIO $ do-    let mountEntry' = unsafeManagedPtrGetPtr mountEntry-    g_unix_mount_free mountEntry'-    touchManagedPtr mountEntry-    return ()----- function g_unix_mount_compare--- Args : [Arg {argCName = "mount1", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount2", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, 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 UnixMountEntry ->                   -- mount1 : TInterface "Gio" "UnixMountEntry"-    Ptr UnixMountEntry ->                   -- mount2 : TInterface "Gio" "UnixMountEntry"-    IO Int32---unixMountCompare ::-    (MonadIO m) =>-    UnixMountEntry                          -- mount1-    -> UnixMountEntry                       -- mount2-    -> m Int32                              -- result-unixMountCompare mount1 mount2 = liftIO $ do-    let mount1' = unsafeManagedPtrGetPtr mount1-    let mount2' = unsafeManagedPtrGetPtr mount2-    result <- g_unix_mount_compare mount1' mount2'-    touchManagedPtr mount1-    touchManagedPtr mount2-    return result----- function g_unix_is_mount_path_system_internal--- Args : [Arg {argCName = "mount_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 TUTF8-    IO CInt---unixIsMountPathSystemInternal ::-    (MonadIO m) =>-    T.Text                                  -- mountPath-    -> m Bool                               -- result-unixIsMountPathSystemInternal mountPath = liftIO $ do-    mountPath' <- textToCString 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 "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, 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 : TInterface "GObject" "Object"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    Ptr GError ->                           -- error : TError-    IO ()--{-# DEPRECATED simpleAsyncReportGerrorInIdle ["(Since version 2.46)","Use g_task_report_error()."]#-}-simpleAsyncReportGerrorInIdle ::-    (MonadIO m, GObject.ObjectK a) =>-    Maybe (a)                               -- object-    -> Maybe (AsyncReadyCallback)           -- callback-    -> GError                               -- error_-    -> m ()                                 -- result-simpleAsyncReportGerrorInIdle object callback error_ = liftIO $ do-    maybeObject <- case object of-        Nothing -> return nullPtr-        Just jObject -> do-            let jObject' = unsafeManagedPtrCastPtr jObject-            return jObject'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let 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 "Gio" "Resource", direction = DirectionIn, mayBeNull = False, 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 Resource ->                         -- resource : TInterface "Gio" "Resource"-    IO ()---resourcesUnregister ::-    (MonadIO m) =>-    Resource                                -- resource-    -> m ()                                 -- result-resourcesUnregister resource = liftIO $ do-    let resource' = unsafeManagedPtrGetPtr resource-    g_resources_unregister resource'-    touchManagedPtr resource-    return ()----- function g_resources_register--- Args : [Arg {argCName = "resource", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, 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 Resource ->                         -- resource : TInterface "Gio" "Resource"-    IO ()---resourcesRegister ::-    (MonadIO m) =>-    Resource                                -- resource-    -> m ()                                 -- result-resourcesRegister resource = liftIO $ do-    let 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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 "Gio" "ResourceLookupFlags"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr InputStream)---resourcesOpenStream ::-    (MonadIO m) =>-    T.Text                                  -- path-    -> [ResourceLookupFlags]                -- lookupFlags-    -> m InputStream                        -- result-resourcesOpenStream path lookupFlags = liftIO $ do-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resources_open_stream path' lookupFlags'-        checkUnexpectedReturnNULL "g_resources_open_stream" result-        result' <- (wrapObject 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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "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 "Gio" "ResourceLookupFlags"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GLib.Bytes)---resourcesLookupData ::-    (MonadIO m) =>-    T.Text                                  -- path-    -> [ResourceLookupFlags]                -- lookupFlags-    -> m GLib.Bytes                         -- result-resourcesLookupData path lookupFlags = liftIO $ do-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resources_lookup_data path' lookupFlags'-        checkUnexpectedReturnNULL "g_resources_lookup_data" result-        result' <- (wrapBoxed GLib.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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, 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 "Gio" "ResourceLookupFlags"-    Ptr Word64 ->                           -- size : TBasicType TUInt64-    Ptr Word32 ->                           -- flags : TBasicType TUInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt---resourcesGetInfo ::-    (MonadIO m) =>-    T.Text                                  -- path-    -> [ResourceLookupFlags]                -- lookupFlags-    -> m (Word64,Word32)                    -- result-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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, 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 "Gio" "ResourceLookupFlags"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---resourcesEnumerateChildren ::-    (MonadIO m) =>-    T.Text                                  -- path-    -> [ResourceLookupFlags]                -- lookupFlags-    -> m [T.Text]                           -- result-resourcesEnumerateChildren path lookupFlags = liftIO $ do-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resources_enumerate_children path' lookupFlags'-        checkUnexpectedReturnNULL "g_resources_enumerate_children" 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 "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 OutputStream ->                     -- stream : TInterface "Gio" "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 Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---pollableStreamWriteAll ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- stream-    -> ByteString                           -- buffer-    -> Bool                                 -- blocking-    -> Maybe (b)                            -- cancellable-    -> m (Word64)                           -- result-pollableStreamWriteAll stream buffer blocking cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let 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-            let 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 "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 OutputStream ->                     -- stream : TInterface "Gio" "OutputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    CInt ->                                 -- blocking : TBasicType TBoolean-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---pollableStreamWrite ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- stream-    -> ByteString                           -- buffer-    -> Bool                                 -- blocking-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-pollableStreamWrite stream buffer blocking cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let stream' = unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    let blocking' = (fromIntegral . fromEnum) blocking-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let 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 "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 InputStream ->                      -- stream : TInterface "Gio" "InputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    CInt ->                                 -- blocking : TBasicType TBoolean-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---pollableStreamRead ::-    (MonadIO m, InputStreamK a, CancellableK b) =>-    a                                       -- stream-    -> ByteString                           -- buffer-    -> Bool                                 -- blocking-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-pollableStreamRead stream buffer blocking cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let stream' = unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    let blocking' = (fromIntegral . fromEnum) blocking-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let 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 "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "Source")--- throws : False--- Skip return : False--foreign import ccall "g_pollable_source_new_full" g_pollable_source_new_full :: -    Ptr GObject.Object ->                   -- pollable_stream : TInterface "GObject" "Object"-    Ptr GLib.Source ->                      -- child_source : TInterface "GLib" "Source"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    IO (Ptr GLib.Source)---pollableSourceNewFull ::-    (MonadIO m, GObject.ObjectK a, CancellableK b) =>-    a                                       -- pollableStream-    -> Maybe (GLib.Source)                  -- childSource-    -> Maybe (b)                            -- cancellable-    -> m GLib.Source                        -- result-pollableSourceNewFull pollableStream childSource cancellable = liftIO $ do-    let pollableStream' = unsafeManagedPtrCastPtr pollableStream-    maybeChildSource <- case childSource of-        Nothing -> return nullPtr-        Just jChildSource -> do-            let jChildSource' = unsafeManagedPtrGetPtr jChildSource-            return jChildSource'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- g_pollable_source_new_full pollableStream' maybeChildSource maybeCancellable-    checkUnexpectedReturnNULL "g_pollable_source_new_full" result-    result' <- (wrapBoxed GLib.Source) result-    touchManagedPtr pollableStream-    whenJust childSource touchManagedPtr-    whenJust cancellable touchManagedPtr-    return result'----- function g_pollable_source_new--- Args : [Arg {argCName = "pollable_stream", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "Source")--- throws : False--- Skip return : False--foreign import ccall "g_pollable_source_new" g_pollable_source_new :: -    Ptr GObject.Object ->                   -- pollable_stream : TInterface "GObject" "Object"-    IO (Ptr GLib.Source)---pollableSourceNew ::-    (MonadIO m, GObject.ObjectK a) =>-    a                                       -- pollableStream-    -> m GLib.Source                        -- result-pollableSourceNew pollableStream = liftIO $ do-    let pollableStream' = unsafeManagedPtrCastPtr pollableStream-    result <- g_pollable_source_new pollableStream'-    checkUnexpectedReturnNULL "g_pollable_source_new" result-    result' <- (wrapBoxed GLib.Source) result-    touchManagedPtr pollableStream-    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 ()---networkingInit ::-    (MonadIO m) =>-    m ()                                    -- result-networkingInit  = liftIO $ do-    g_networking_init-    return ()----- function g_io_scheduler_push_job--- Args : [Arg {argCName = "job_func", argType = TInterface "Gio" "IOSchedulerJobFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 IOSchedulerJobFuncC ->           -- job_func : TInterface "Gio" "IOSchedulerJobFunc"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    IO ()--{-# DEPRECATED ioSchedulerPushJob ["use #GThreadPool or g_task_run_in_thread()"]#-}-ioSchedulerPushJob ::-    (MonadIO m, CancellableK a) =>-    IOSchedulerJobFunc                      -- jobFunc-    -> Int32                                -- ioPriority-    -> Maybe (a)                            -- cancellable-    -> m ()                                 -- result-ioSchedulerPushJob jobFunc ioPriority cancellable = liftIO $ do-    jobFunc' <- mkIOSchedulerJobFunc (iOSchedulerJobFuncWrapper Nothing jobFunc)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let 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."]#-}-ioSchedulerCancelAllJobs ::-    (MonadIO m) =>-    m ()                                    -- result-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 TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scope", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, 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 TUTF8-    Ptr IOModuleScope ->                    -- scope : TInterface "Gio" "IOModuleScope"-    IO ()---ioModulesScanAllInDirectoryWithScope ::-    (MonadIO m) =>-    T.Text                                  -- dirname-    -> IOModuleScope                        -- scope-    -> m ()                                 -- result-ioModulesScanAllInDirectoryWithScope dirname scope = liftIO $ do-    dirname' <- textToCString dirname-    let 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 TUTF8, direction = DirectionIn, mayBeNull = False, 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 TUTF8-    IO ()---ioModulesScanAllInDirectory ::-    (MonadIO m) =>-    T.Text                                  -- dirname-    -> m ()                                 -- result-ioModulesScanAllInDirectory dirname = liftIO $ do-    dirname' <- textToCString 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---ioErrorQuark ::-    (MonadIO m) =>-    m Word32                                -- result-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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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---ioErrorFromErrno ::-    (MonadIO m) =>-    Int32                                   -- errNo-    -> m IOErrorEnum                        -- result-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, 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---dbusIsUniqueName ::-    (MonadIO m) =>-    T.Text                                  -- string-    -> m Bool                               -- result-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, 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---dbusIsSupportedAddress ::-    (MonadIO m) =>-    T.Text                                  -- string-    -> m ()                                 -- result-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, 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---dbusIsName ::-    (MonadIO m) =>-    T.Text                                  -- string-    -> m Bool                               -- result-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, 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---dbusIsMemberName ::-    (MonadIO m) =>-    T.Text                                  -- string-    -> m Bool                               -- result-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, 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---dbusIsInterfaceName ::-    (MonadIO m) =>-    T.Text                                  -- string-    -> m Bool                               -- result-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, 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---dbusIsGuid ::-    (MonadIO m) =>-    T.Text                                  -- string-    -> m Bool                               -- result-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, 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---dbusIsAddress ::-    (MonadIO m) =>-    T.Text                                  -- string-    -> m Bool                               -- result-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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_gvalue", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, 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 "GObject" "Value"-    IO ()---dbusGvariantToGvalue ::-    (MonadIO m) =>-    GVariant                                -- value-    -> m (GValue)                           -- result-dbusGvariantToGvalue value = liftIO $ do-    let value' = unsafeManagedPtrGetPtr value-    outGvalue <- callocBoxedBytes 24 :: IO (Ptr GValue)-    g_dbus_gvariant_to_gvalue value' outGvalue-    outGvalue' <- (wrapBoxed GValue) outGvalue-    return outGvalue'----- function g_dbus_gvalue_to_gvariant--- Args : [Arg {argCName = "gvalue", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, 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 "GObject" "Value"-    Ptr GLib.VariantType ->                 -- type : TInterface "GLib" "VariantType"-    IO (Ptr GVariant)---dbusGvalueToGvariant ::-    (MonadIO m) =>-    GValue                                  -- gvalue-    -> GLib.VariantType                     -- type_-    -> m GVariant                           -- result-dbusGvalueToGvariant gvalue type_ = liftIO $ do-    let gvalue' = unsafeManagedPtrGetPtr gvalue-    let type_' = unsafeManagedPtrGetPtr type_-    result <- g_dbus_gvalue_to_gvariant gvalue' type_'-    checkUnexpectedReturnNULL "g_dbus_gvalue_to_gvariant" result-    result' <- 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---dbusGenerateGuid ::-    (MonadIO m) =>-    m T.Text                                -- result-dbusGenerateGuid  = liftIO $ do-    result <- g_dbus_generate_guid-    checkUnexpectedReturnNULL "g_dbus_generate_guid" 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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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-    CString ->                              -- out_guid : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr IOStream)---dbusAddressGetStreamSync ::-    (MonadIO m, CancellableK a) =>-    T.Text                                  -- address-    -> T.Text                               -- outGuid-    -> Maybe (a)                            -- cancellable-    -> m IOStream                           -- result-dbusAddressGetStreamSync address outGuid cancellable = liftIO $ do-    address' <- textToCString address-    outGuid' <- textToCString outGuid-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_address_get_stream_sync address' outGuid' maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_address_get_stream_sync" result-        result' <- (wrapObject IOStream) result-        whenJust cancellable touchManagedPtr-        freeMem address'-        freeMem outGuid'-        return result'-     ) (do-        freeMem address'-        freeMem outGuid'-     )----- function g_dbus_address_get_stream_finish--- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "IOStream")--- throws : True--- Skip return : False--foreign import ccall "g_dbus_address_get_stream_finish" g_dbus_address_get_stream_finish :: -    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    CString ->                              -- out_guid : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr IOStream)---dbusAddressGetStreamFinish ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- res-    -> T.Text                               -- outGuid-    -> m IOStream                           -- result-dbusAddressGetStreamFinish res outGuid = liftIO $ do-    let res' = unsafeManagedPtrCastPtr res-    outGuid' <- textToCString outGuid-    onException (do-        result <- propagateGError $ g_dbus_address_get_stream_finish res' outGuid'-        checkUnexpectedReturnNULL "g_dbus_address_get_stream_finish" result-        result' <- (wrapObject IOStream) result-        touchManagedPtr res-        freeMem outGuid'-        return result'-     ) (do-        freeMem outGuid'-     )----- function g_dbus_address_get_stream--- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dbusAddressGetStream ::-    (MonadIO m, CancellableK a) =>-    T.Text                                  -- address-    -> Maybe (a)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dbusAddressGetStream address cancellable callback = liftIO $ do-    address' <- textToCString address-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) 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 "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 :: -    CUInt ->                                -- bus_type : TInterface "Gio" "BusType"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CString---dbusAddressGetForBusSync ::-    (MonadIO m, CancellableK a) =>-    BusType                                 -- busType-    -> Maybe (a)                            -- cancellable-    -> m T.Text                             -- result-dbusAddressGetForBusSync busType cancellable = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_address_get_for_bus_sync busType' maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_address_get_for_bus_sync" 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, 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---dbusAddressEscapeValue ::-    (MonadIO m) =>-    T.Text                                  -- string-    -> m T.Text                             -- result-dbusAddressEscapeValue string = liftIO $ do-    string' <- textToCString string-    result <- g_dbus_address_escape_value string'-    checkUnexpectedReturnNULL "g_dbus_address_escape_value" 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))---contentTypesGetRegistered ::-    (MonadIO m) =>-    m [T.Text]                              -- result-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_is_unknown--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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---contentTypeIsUnknown ::-    (MonadIO m) =>-    T.Text                                  -- type_-    -> m Bool                               -- result-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_a--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "supertype", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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---contentTypeIsA ::-    (MonadIO m) =>-    T.Text                                  -- type_-    -> T.Text                               -- supertype-    -> m Bool                               -- result-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 "Gio" "File", direction = DirectionIn, mayBeNull = False, 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 File ->                             -- root : TInterface "Gio" "File"-    IO (Ptr CString)---contentTypeGuessForTree ::-    (MonadIO m, FileK a) =>-    a                                       -- root-    -> m [T.Text]                           -- result-contentTypeGuessForTree root = liftIO $ do-    let root' = unsafeManagedPtrCastPtr root-    result <- g_content_type_guess_for_tree root'-    checkUnexpectedReturnNULL "g_content_type_guess_for_tree" 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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result_uncertain", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "data_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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---contentTypeGuess ::-    (MonadIO m) =>-    Maybe (T.Text)                          -- filename-    -> Maybe (ByteString)                   -- data_-    -> m (T.Text,Bool)                      -- result-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 "g_content_type_guess" 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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 Icon)---contentTypeGetSymbolicIcon ::-    (MonadIO m) =>-    T.Text                                  -- type_-    -> m Icon                               -- result-contentTypeGetSymbolicIcon type_ = liftIO $ do-    type_' <- textToCString type_-    result <- g_content_type_get_symbolic_icon type_'-    checkUnexpectedReturnNULL "g_content_type_get_symbolic_icon" result-    result' <- (wrapObject Icon) result-    freeMem type_'-    return result'----- function g_content_type_get_mime_type--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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---contentTypeGetMimeType ::-    (MonadIO m) =>-    T.Text                                  -- type_-    -> m (Maybe T.Text)                     -- result-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_icon--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 Icon)---contentTypeGetIcon ::-    (MonadIO m) =>-    T.Text                                  -- type_-    -> m Icon                               -- result-contentTypeGetIcon type_ = liftIO $ do-    type_' <- textToCString type_-    result <- g_content_type_get_icon type_'-    checkUnexpectedReturnNULL "g_content_type_get_icon" result-    result' <- (wrapObject 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, 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---contentTypeGetGenericIconName ::-    (MonadIO m) =>-    T.Text                                  -- type_-    -> m T.Text                             -- result-contentTypeGetGenericIconName type_ = liftIO $ do-    type_' <- textToCString type_-    result <- g_content_type_get_generic_icon_name type_'-    checkUnexpectedReturnNULL "g_content_type_get_generic_icon_name" result-    result' <- cstringToText result-    freeMem result-    freeMem type_'-    return result'----- function g_content_type_get_description--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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---contentTypeGetDescription ::-    (MonadIO m) =>-    T.Text                                  -- type_-    -> m T.Text                             -- result-contentTypeGetDescription type_ = liftIO $ do-    type_' <- textToCString type_-    result <- g_content_type_get_description type_'-    checkUnexpectedReturnNULL "g_content_type_get_description" 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, 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---contentTypeFromMimeType ::-    (MonadIO m) =>-    T.Text                                  -- mimeType-    -> m (Maybe T.Text)                     -- result-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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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---contentTypeEquals ::-    (MonadIO m) =>-    T.Text                                  -- type1-    -> T.Text                               -- type2-    -> m Bool                               -- result-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, 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---contentTypeCanBeExecutable ::-    (MonadIO m) =>-    T.Text                                  -- type_-    -> m Bool                               -- result-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 "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameWatcherFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_appeared_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_vanished_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, 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 DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    CString ->                              -- name : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "BusNameWatcherFlags"-    Ptr Closure ->                          -- name_appeared_closure : TInterface "GObject" "Closure"-    Ptr Closure ->                          -- name_vanished_closure : TInterface "GObject" "Closure"-    IO Word32---busWatchNameOnConnection ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- connection-    -> T.Text                               -- name-    -> [BusNameWatcherFlags]                -- flags-    -> Maybe (Closure)                      -- nameAppearedClosure-    -> Maybe (Closure)                      -- nameVanishedClosure-    -> m Word32                             -- result-busWatchNameOnConnection connection name flags nameAppearedClosure nameVanishedClosure = liftIO $ do-    let connection' = unsafeManagedPtrCastPtr connection-    name' <- textToCString name-    let flags' = gflagsToWord flags-    maybeNameAppearedClosure <- case nameAppearedClosure of-        Nothing -> return nullPtr-        Just jNameAppearedClosure -> do-            let jNameAppearedClosure' = unsafeManagedPtrGetPtr jNameAppearedClosure-            return jNameAppearedClosure'-    maybeNameVanishedClosure <- case nameVanishedClosure of-        Nothing -> return nullPtr-        Just jNameVanishedClosure -> do-            let jNameVanishedClosure' = unsafeManagedPtrGetPtr 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 "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameWatcherFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_appeared_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_vanished_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, 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 :: -    CUInt ->                                -- bus_type : TInterface "Gio" "BusType"-    CString ->                              -- name : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "BusNameWatcherFlags"-    Ptr Closure ->                          -- name_appeared_closure : TInterface "GObject" "Closure"-    Ptr Closure ->                          -- name_vanished_closure : TInterface "GObject" "Closure"-    IO Word32---busWatchName ::-    (MonadIO m) =>-    BusType                                 -- busType-    -> T.Text                               -- name-    -> [BusNameWatcherFlags]                -- flags-    -> Maybe (Closure)                      -- nameAppearedClosure-    -> Maybe (Closure)                      -- nameVanishedClosure-    -> m Word32                             -- result-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-            let jNameAppearedClosure' = unsafeManagedPtrGetPtr jNameAppearedClosure-            return jNameAppearedClosure'-    maybeNameVanishedClosure <- case nameVanishedClosure of-        Nothing -> return nullPtr-        Just jNameVanishedClosure -> do-            let jNameVanishedClosure' = unsafeManagedPtrGetPtr 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, 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 ()---busUnwatchName ::-    (MonadIO m) =>-    Word32                                  -- watcherId-    -> m ()                                 -- result-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, 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 ()---busUnownName ::-    (MonadIO m) =>-    Word32                                  -- ownerId-    -> m ()                                 -- result-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 "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameOwnerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_lost_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, 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 DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    CString ->                              -- name : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "BusNameOwnerFlags"-    Ptr Closure ->                          -- name_acquired_closure : TInterface "GObject" "Closure"-    Ptr Closure ->                          -- name_lost_closure : TInterface "GObject" "Closure"-    IO Word32---busOwnNameOnConnection ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- connection-    -> T.Text                               -- name-    -> [BusNameOwnerFlags]                  -- flags-    -> Maybe (Closure)                      -- nameAcquiredClosure-    -> Maybe (Closure)                      -- nameLostClosure-    -> m Word32                             -- result-busOwnNameOnConnection connection name flags nameAcquiredClosure nameLostClosure = liftIO $ do-    let connection' = unsafeManagedPtrCastPtr connection-    name' <- textToCString name-    let flags' = gflagsToWord flags-    maybeNameAcquiredClosure <- case nameAcquiredClosure of-        Nothing -> return nullPtr-        Just jNameAcquiredClosure -> do-            let jNameAcquiredClosure' = unsafeManagedPtrGetPtr jNameAcquiredClosure-            return jNameAcquiredClosure'-    maybeNameLostClosure <- case nameLostClosure of-        Nothing -> return nullPtr-        Just jNameLostClosure -> do-            let jNameLostClosure' = unsafeManagedPtrGetPtr 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 "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameOwnerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_lost_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, 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 :: -    CUInt ->                                -- bus_type : TInterface "Gio" "BusType"-    CString ->                              -- name : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "BusNameOwnerFlags"-    Ptr Closure ->                          -- bus_acquired_closure : TInterface "GObject" "Closure"-    Ptr Closure ->                          -- name_acquired_closure : TInterface "GObject" "Closure"-    Ptr Closure ->                          -- name_lost_closure : TInterface "GObject" "Closure"-    IO Word32---busOwnName ::-    (MonadIO m) =>-    BusType                                 -- busType-    -> T.Text                               -- name-    -> [BusNameOwnerFlags]                  -- flags-    -> Maybe (Closure)                      -- busAcquiredClosure-    -> Maybe (Closure)                      -- nameAcquiredClosure-    -> Maybe (Closure)                      -- nameLostClosure-    -> m Word32                             -- result-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-            let jBusAcquiredClosure' = unsafeManagedPtrGetPtr jBusAcquiredClosure-            return jBusAcquiredClosure'-    maybeNameAcquiredClosure <- case nameAcquiredClosure of-        Nothing -> return nullPtr-        Just jNameAcquiredClosure -> do-            let jNameAcquiredClosure' = unsafeManagedPtrGetPtr jNameAcquiredClosure-            return jNameAcquiredClosure'-    maybeNameLostClosure <- case nameLostClosure of-        Nothing -> return nullPtr-        Just jNameLostClosure -> do-            let jNameLostClosure' = unsafeManagedPtrGetPtr 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 "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusConnection")--- throws : True--- Skip return : False--foreign import ccall "g_bus_get_sync" g_bus_get_sync :: -    CUInt ->                                -- bus_type : TInterface "Gio" "BusType"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusConnection)---busGetSync ::-    (MonadIO m, CancellableK a) =>-    BusType                                 -- busType-    -> Maybe (a)                            -- cancellable-    -> m DBusConnection                     -- result-busGetSync busType cancellable = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_bus_get_sync busType' maybeCancellable-        checkUnexpectedReturnNULL "g_bus_get_sync" result-        result' <- (wrapObject DBusConnection) result-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )----- function g_bus_get_finish--- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusConnection")--- throws : True--- Skip return : False--foreign import ccall "g_bus_get_finish" g_bus_get_finish :: -    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusConnection)---busGetFinish ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- res-    -> m DBusConnection                     -- result-busGetFinish res = liftIO $ do-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_bus_get_finish res'-        checkUnexpectedReturnNULL "g_bus_get_finish" result-        result' <- (wrapObject DBusConnection) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )----- function g_bus_get--- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 :: -    CUInt ->                                -- bus_type : TInterface "Gio" "BusType"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---busGet ::-    (MonadIO m, CancellableK a) =>-    BusType                                 -- busType-    -> Maybe (a)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-busGet busType cancellable callback = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) 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,89 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--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.DesktopAppInfoLookup,-    module GI.Gio.Interfaces.Drive          ,-    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.DesktopAppInfoLookup-import GI.Gio.Interfaces.Drive-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.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--
− GI/Gio/Interfaces/Action.hs 
@@ -1,642 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.Action-    ( ---- * Exported types-    Action(..)                              ,-    noAction                                ,-    ActionK                                 ,-    toAction                                ,--- -- * Methods--- ** actionActivate-    ActionActivateMethodInfo                ,-    actionActivate                          ,----- ** actionChangeState-    ActionChangeStateMethodInfo             ,-    actionChangeState                       ,----- ** actionGetEnabled-    ActionGetEnabledMethodInfo              ,-    actionGetEnabled                        ,----- ** actionGetName-    ActionGetNameMethodInfo                 ,-    actionGetName                           ,----- ** actionGetParameterType-    ActionGetParameterTypeMethodInfo        ,-    actionGetParameterType                  ,----- ** actionGetState-    ActionGetStateMethodInfo                ,-    actionGetState                          ,----- ** actionGetStateHint-    ActionGetStateHintMethodInfo            ,-    actionGetStateHint                      ,----- ** actionGetStateType-    ActionGetStateTypeMethodInfo            ,-    actionGetStateType                      ,----- ** actionNameIsValid-    actionNameIsValid                       ,----- ** actionParseDetailedName-    actionParseDetailedName                 ,----- ** actionPrintDetailedName-    actionPrintDetailedName                 ,----- -- * Properties--- ** Enabled-    ActionEnabledPropertyInfo               ,-    actionEnabled                           ,-    getActionEnabled                        ,----- ** Name-    ActionNamePropertyInfo                  ,-    actionName                              ,-    getActionName                           ,----- ** ParameterType-    ActionParameterTypePropertyInfo         ,-    actionParameterType                     ,-    getActionParameterType                  ,----- ** State-    ActionStatePropertyInfo                 ,-    actionState                             ,-    getActionState                          ,----- ** StateType-    ActionStateTypePropertyInfo             ,-    actionStateType                         ,-    getActionStateType                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject---- interface Action --newtype Action = Action (ForeignPtr Action)-noAction :: Maybe Action-noAction = Nothing--type family ResolveActionMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionMethod "activate" o = ActionActivateMethodInfo-    ResolveActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveActionMethod "changeState" o = ActionChangeStateMethodInfo-    ResolveActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveActionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveActionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveActionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveActionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveActionMethod "getEnabled" o = ActionGetEnabledMethodInfo-    ResolveActionMethod "getName" o = ActionGetNameMethodInfo-    ResolveActionMethod "getParameterType" o = ActionGetParameterTypeMethodInfo-    ResolveActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveActionMethod "getState" o = ActionGetStateMethodInfo-    ResolveActionMethod "getStateHint" o = ActionGetStateHintMethodInfo-    ResolveActionMethod "getStateType" o = ActionGetStateTypeMethodInfo-    ResolveActionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveActionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabelProxy t (Action -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabel t (Action -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "enabled"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getActionEnabled :: (MonadIO m, ActionK o) => o -> m Bool-getActionEnabled obj = liftIO $ getObjectPropertyBool obj "enabled"--data ActionEnabledPropertyInfo-instance AttrInfo ActionEnabledPropertyInfo where-    type AttrAllowedOps ActionEnabledPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ActionEnabledPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ActionEnabledPropertyInfo = ActionK-    type AttrGetType ActionEnabledPropertyInfo = Bool-    type AttrLabel ActionEnabledPropertyInfo = "enabled"-    attrGet _ = getActionEnabled-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getActionName :: (MonadIO m, ActionK o) => o -> m T.Text-getActionName obj = liftIO $ checkUnexpectedNothing "getActionName" $ getObjectPropertyString obj "name"--data ActionNamePropertyInfo-instance AttrInfo ActionNamePropertyInfo where-    type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionNamePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ActionNamePropertyInfo = ActionK-    type AttrGetType ActionNamePropertyInfo = T.Text-    type AttrLabel ActionNamePropertyInfo = "name"-    attrGet _ = getActionName-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "parameter-type"-   -- Type: TInterface "GLib" "VariantType"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getActionParameterType :: (MonadIO m, ActionK o) => o -> m GLib.VariantType-getActionParameterType obj = liftIO $ checkUnexpectedNothing "getActionParameterType" $ getObjectPropertyBoxed obj "parameter-type" GLib.VariantType--data ActionParameterTypePropertyInfo-instance AttrInfo ActionParameterTypePropertyInfo where-    type AttrAllowedOps ActionParameterTypePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionParameterTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ActionParameterTypePropertyInfo = ActionK-    type AttrGetType ActionParameterTypePropertyInfo = GLib.VariantType-    type AttrLabel ActionParameterTypePropertyInfo = "parameter-type"-    attrGet _ = getActionParameterType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "state"-   -- Type: TVariant-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getActionState :: (MonadIO m, ActionK o) => o -> m (Maybe GVariant)-getActionState obj = liftIO $ getObjectPropertyVariant obj "state"--data ActionStatePropertyInfo-instance AttrInfo ActionStatePropertyInfo where-    type AttrAllowedOps ActionStatePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionStatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ActionStatePropertyInfo = ActionK-    type AttrGetType ActionStatePropertyInfo = (Maybe GVariant)-    type AttrLabel ActionStatePropertyInfo = "state"-    attrGet _ = getActionState-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "state-type"-   -- Type: TInterface "GLib" "VariantType"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getActionStateType :: (MonadIO m, ActionK o) => o -> m GLib.VariantType-getActionStateType obj = liftIO $ checkUnexpectedNothing "getActionStateType" $ getObjectPropertyBoxed obj "state-type" GLib.VariantType--data ActionStateTypePropertyInfo-instance AttrInfo ActionStateTypePropertyInfo where-    type AttrAllowedOps ActionStateTypePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionStateTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ActionStateTypePropertyInfo = ActionK-    type AttrGetType ActionStateTypePropertyInfo = GLib.VariantType-    type AttrLabel ActionStateTypePropertyInfo = "state-type"-    attrGet _ = getActionStateType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList Action = ActionAttributeList-type ActionAttributeList = ('[ '("enabled", ActionEnabledPropertyInfo), '("name", ActionNamePropertyInfo), '("parameterType", ActionParameterTypePropertyInfo), '("state", ActionStatePropertyInfo), '("stateType", ActionStateTypePropertyInfo)] :: [(Symbol, *)])--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--type instance SignalList Action = ActionSignalList-type ActionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_action_get_type"-    c_g_action_get_type :: IO GType--type instance ParentTypes Action = ActionParentTypes-type ActionParentTypes = '[GObject.Object]--instance GObject Action where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_action_get_type-    --class GObject o => ActionK o-instance (GObject o, IsDescendantOf Action o) => ActionK o--toAction :: ActionK o => o -> IO Action-toAction = unsafeCastTo Action---- method Action::activate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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 ->                           -- _obj : TInterface "Gio" "Action"-    Ptr GVariant ->                         -- parameter : TVariant-    IO ()---actionActivate ::-    (MonadIO m, ActionK a) =>-    a                                       -- _obj-    -> Maybe (GVariant)                     -- parameter-    -> m ()                                 -- result-actionActivate _obj parameter = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeParameter <- case parameter of-        Nothing -> return nullPtr-        Just jParameter -> do-            let jParameter' = unsafeManagedPtrGetPtr jParameter-            return jParameter'-    g_action_activate _obj' maybeParameter-    touchManagedPtr _obj-    return ()--data ActionActivateMethodInfo-instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, ActionK a) => MethodInfo ActionActivateMethodInfo a signature where-    overloadedMethod _ = actionActivate---- method Action::change_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Action"-    Ptr GVariant ->                         -- value : TVariant-    IO ()---actionChangeState ::-    (MonadIO m, ActionK a) =>-    a                                       -- _obj-    -> GVariant                             -- value-    -> m ()                                 -- result-actionChangeState _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let value' = unsafeManagedPtrGetPtr value-    g_action_change_state _obj' value'-    touchManagedPtr _obj-    return ()--data ActionChangeStateMethodInfo-instance (signature ~ (GVariant -> m ()), MonadIO m, ActionK a) => MethodInfo ActionChangeStateMethodInfo a signature where-    overloadedMethod _ = actionChangeState---- method Action::get_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Action"-    IO CInt---actionGetEnabled ::-    (MonadIO m, ActionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-actionGetEnabled _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_action_get_enabled _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data ActionGetEnabledMethodInfo-instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetEnabledMethodInfo a signature where-    overloadedMethod _ = actionGetEnabled---- method Action::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Action"-    IO CString---actionGetName ::-    (MonadIO m, ActionK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-actionGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_action_get_name _obj'-    checkUnexpectedReturnNULL "g_action_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ActionGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetNameMethodInfo a signature where-    overloadedMethod _ = actionGetName---- method Action::get_parameter_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "VariantType")--- throws : False--- Skip return : False--foreign import ccall "g_action_get_parameter_type" g_action_get_parameter_type :: -    Ptr Action ->                           -- _obj : TInterface "Gio" "Action"-    IO (Ptr GLib.VariantType)---actionGetParameterType ::-    (MonadIO m, ActionK a) =>-    a                                       -- _obj-    -> m GLib.VariantType                   -- result-actionGetParameterType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_action_get_parameter_type _obj'-    checkUnexpectedReturnNULL "g_action_get_parameter_type" result-    result' <- (newBoxed GLib.VariantType) result-    touchManagedPtr _obj-    return result'--data ActionGetParameterTypeMethodInfo-instance (signature ~ (m GLib.VariantType), MonadIO m, ActionK a) => MethodInfo ActionGetParameterTypeMethodInfo a signature where-    overloadedMethod _ = actionGetParameterType---- method Action::get_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Action"-    IO (Ptr GVariant)---actionGetState ::-    (MonadIO m, ActionK a) =>-    a                                       -- _obj-    -> m GVariant                           -- result-actionGetState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_action_get_state _obj'-    checkUnexpectedReturnNULL "g_action_get_state" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    return result'--data ActionGetStateMethodInfo-instance (signature ~ (m GVariant), MonadIO m, ActionK a) => MethodInfo ActionGetStateMethodInfo a signature where-    overloadedMethod _ = actionGetState---- method Action::get_state_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Action"-    IO (Ptr GVariant)---actionGetStateHint ::-    (MonadIO m, ActionK a) =>-    a                                       -- _obj-    -> m (Maybe GVariant)                   -- result-actionGetStateHint _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_action_get_state_hint _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- wrapGVariantPtr result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ActionGetStateHintMethodInfo-instance (signature ~ (m (Maybe GVariant)), MonadIO m, ActionK a) => MethodInfo ActionGetStateHintMethodInfo a signature where-    overloadedMethod _ = actionGetStateHint---- method Action::get_state_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "VariantType")--- throws : False--- Skip return : False--foreign import ccall "g_action_get_state_type" g_action_get_state_type :: -    Ptr Action ->                           -- _obj : TInterface "Gio" "Action"-    IO (Ptr GLib.VariantType)---actionGetStateType ::-    (MonadIO m, ActionK a) =>-    a                                       -- _obj-    -> m GLib.VariantType                   -- result-actionGetStateType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_action_get_state_type _obj'-    checkUnexpectedReturnNULL "g_action_get_state_type" result-    result' <- (newBoxed GLib.VariantType) result-    touchManagedPtr _obj-    return result'--data ActionGetStateTypeMethodInfo-instance (signature ~ (m GLib.VariantType), MonadIO m, ActionK a) => MethodInfo ActionGetStateTypeMethodInfo a signature where-    overloadedMethod _ = actionGetStateType---- method Action::name_is_valid--- method type : MemberFunction--- Args : [Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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---actionNameIsValid ::-    (MonadIO m) =>-    T.Text                                  -- actionName-    -> m Bool                               -- result-actionNameIsValid actionName = liftIO $ do-    actionName' <- textToCString actionName-    result <- g_action_name_is_valid actionName'-    let result' = (/= 0) result-    freeMem actionName'-    return result'---- method Action::parse_detailed_name--- method type : MemberFunction--- Args : [Arg {argCName = "detailed_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "target_value", argType = TVariant, direction = DirectionOut, mayBeNull = False, 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---actionParseDetailedName ::-    (MonadIO m) =>-    T.Text                                  -- detailedName-    -> m (T.Text,GVariant)                  -- result-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'' <- wrapGVariantPtr targetValue'-        freeMem detailedName'-        freeMem actionName-        freeMem targetValue-        return (actionName'', targetValue'')-     ) (do-        freeMem detailedName'-        freeMem actionName-        freeMem targetValue-     )---- method Action::print_detailed_name--- method type : MemberFunction--- Args : [Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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---actionPrintDetailedName ::-    (MonadIO m) =>-    T.Text                                  -- actionName-    -> Maybe (GVariant)                     -- targetValue-    -> m T.Text                             -- result-actionPrintDetailedName actionName targetValue = liftIO $ do-    actionName' <- textToCString actionName-    maybeTargetValue <- case targetValue of-        Nothing -> return nullPtr-        Just jTargetValue -> do-            let jTargetValue' = unsafeManagedPtrGetPtr jTargetValue-            return jTargetValue'-    result <- g_action_print_detailed_name actionName' maybeTargetValue-    checkUnexpectedReturnNULL "g_action_print_detailed_name" result-    result' <- cstringToText result-    freeMem result-    freeMem actionName'-    return result'--
− GI/Gio/Interfaces/Action.hs-boot 
@@ -1,26 +0,0 @@-module GI.Gio.Interfaces.Action where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Action = Action (ForeignPtr Action)-data ActionEnabledPropertyInfo-data ActionNamePropertyInfo-data ActionParameterTypePropertyInfo-data ActionStatePropertyInfo-data ActionStateTypePropertyInfo-instance GObject Action where-class GObject o => ActionK o-instance (GObject o, IsDescendantOf Action o) => ActionK o-data ActionActivateMethodInfo-data ActionChangeStateMethodInfo-data ActionGetEnabledMethodInfo-data ActionGetNameMethodInfo-data ActionGetParameterTypeMethodInfo-data ActionGetStateMethodInfo-data ActionGetStateHintMethodInfo-data ActionGetStateTypeMethodInfo
− GI/Gio/Interfaces/ActionGroup.hs 
@@ -1,919 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.ActionGroup-    ( ---- * Exported types-    ActionGroup(..)                         ,-    noActionGroup                           ,-    ActionGroupK                            ,-    toActionGroup                           ,--- -- * Methods--- ** actionGroupActionAdded-    ActionGroupActionAddedMethodInfo        ,-    actionGroupActionAdded                  ,----- ** actionGroupActionEnabledChanged-    ActionGroupActionEnabledChangedMethodInfo,-    actionGroupActionEnabledChanged         ,----- ** actionGroupActionRemoved-    ActionGroupActionRemovedMethodInfo      ,-    actionGroupActionRemoved                ,----- ** actionGroupActionStateChanged-    ActionGroupActionStateChangedMethodInfo ,-    actionGroupActionStateChanged           ,----- ** actionGroupActivateAction-    ActionGroupActivateActionMethodInfo     ,-    actionGroupActivateAction               ,----- ** actionGroupChangeActionState-    ActionGroupChangeActionStateMethodInfo  ,-    actionGroupChangeActionState            ,----- ** actionGroupGetActionEnabled-    ActionGroupGetActionEnabledMethodInfo   ,-    actionGroupGetActionEnabled             ,----- ** actionGroupGetActionParameterType-    ActionGroupGetActionParameterTypeMethodInfo,-    actionGroupGetActionParameterType       ,----- ** actionGroupGetActionState-    ActionGroupGetActionStateMethodInfo     ,-    actionGroupGetActionState               ,----- ** actionGroupGetActionStateHint-    ActionGroupGetActionStateHintMethodInfo ,-    actionGroupGetActionStateHint           ,----- ** actionGroupGetActionStateType-    ActionGroupGetActionStateTypeMethodInfo ,-    actionGroupGetActionStateType           ,----- ** actionGroupHasAction-    ActionGroupHasActionMethodInfo          ,-    actionGroupHasAction                    ,----- ** actionGroupListActions-    ActionGroupListActionsMethodInfo        ,-    actionGroupListActions                  ,----- ** actionGroupQueryAction-    ActionGroupQueryActionMethodInfo        ,-    actionGroupQueryAction                  ,----- -- * Signals--- ** ActionAdded-    ActionGroupActionAddedCallback          ,-    ActionGroupActionAddedCallbackC         ,-    ActionGroupActionAddedSignalInfo        ,-    actionGroupActionAddedCallbackWrapper   ,-    actionGroupActionAddedClosure           ,-    afterActionGroupActionAdded             ,-    mkActionGroupActionAddedCallback        ,-    noActionGroupActionAddedCallback        ,-    onActionGroupActionAdded                ,----- ** ActionEnabledChanged-    ActionGroupActionEnabledChangedCallback ,-    ActionGroupActionEnabledChangedCallbackC,-    ActionGroupActionEnabledChangedSignalInfo,-    actionGroupActionEnabledChangedCallbackWrapper,-    actionGroupActionEnabledChangedClosure  ,-    afterActionGroupActionEnabledChanged    ,-    mkActionGroupActionEnabledChangedCallback,-    noActionGroupActionEnabledChangedCallback,-    onActionGroupActionEnabledChanged       ,----- ** ActionRemoved-    ActionGroupActionRemovedCallback        ,-    ActionGroupActionRemovedCallbackC       ,-    ActionGroupActionRemovedSignalInfo      ,-    actionGroupActionRemovedCallbackWrapper ,-    actionGroupActionRemovedClosure         ,-    afterActionGroupActionRemoved           ,-    mkActionGroupActionRemovedCallback      ,-    noActionGroupActionRemovedCallback      ,-    onActionGroupActionRemoved              ,----- ** ActionStateChanged-    ActionGroupActionStateChangedCallback   ,-    ActionGroupActionStateChangedCallbackC  ,-    ActionGroupActionStateChangedSignalInfo ,-    actionGroupActionStateChangedCallbackWrapper,-    actionGroupActionStateChangedClosure    ,-    afterActionGroupActionStateChanged      ,-    mkActionGroupActionStateChangedCallback ,-    noActionGroupActionStateChangedCallback ,-    onActionGroupActionStateChanged         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject---- interface ActionGroup --newtype ActionGroup = ActionGroup (ForeignPtr ActionGroup)-noActionGroup :: Maybe ActionGroup-noActionGroup = Nothing--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.ObjectBindPropertyMethodInfo-    ResolveActionGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveActionGroupMethod "changeActionState" o = ActionGroupChangeActionStateMethodInfo-    ResolveActionGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveActionGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveActionGroupMethod "hasAction" o = ActionGroupHasActionMethodInfo-    ResolveActionGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo-    ResolveActionGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveActionGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveActionGroupMethod "queryAction" o = ActionGroupQueryActionMethodInfo-    ResolveActionGroupMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveActionGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveActionGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveActionGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveActionGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveActionGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveActionGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveActionGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveActionGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveActionGroupMethod "watchClosure" o = GObject.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.ObjectGetDataMethodInfo-    ResolveActionGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveActionGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveActionGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveActionGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveActionGroupMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionGroupMethod t ActionGroup, MethodInfo info ActionGroup p) => IsLabelProxy t (ActionGroup -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionGroupMethod t ActionGroup, MethodInfo info ActionGroup p) => IsLabel t (ActionGroup -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal ActionGroup::action-added-type ActionGroupActionAddedCallback =-    T.Text ->-    IO ()--noActionGroupActionAddedCallback :: Maybe ActionGroupActionAddedCallback-noActionGroupActionAddedCallback = Nothing--type ActionGroupActionAddedCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkActionGroupActionAddedCallback :: ActionGroupActionAddedCallbackC -> IO (FunPtr ActionGroupActionAddedCallbackC)--actionGroupActionAddedClosure :: ActionGroupActionAddedCallback -> IO Closure-actionGroupActionAddedClosure cb = newCClosure =<< mkActionGroupActionAddedCallback wrapped-    where wrapped = actionGroupActionAddedCallbackWrapper cb--actionGroupActionAddedCallbackWrapper ::-    ActionGroupActionAddedCallback ->-    Ptr () ->-    CString ->-    Ptr () ->-    IO ()-actionGroupActionAddedCallbackWrapper _cb _ actionName _ = do-    actionName' <- cstringToText actionName-    _cb  actionName'--onActionGroupActionAdded :: (GObject a, MonadIO m) => a -> ActionGroupActionAddedCallback -> m SignalHandlerId-onActionGroupActionAdded obj cb = liftIO $ connectActionGroupActionAdded obj cb SignalConnectBefore-afterActionGroupActionAdded :: (GObject a, MonadIO m) => a -> ActionGroupActionAddedCallback -> m SignalHandlerId-afterActionGroupActionAdded obj cb = connectActionGroupActionAdded obj cb SignalConnectAfter--connectActionGroupActionAdded :: (GObject a, MonadIO m) =>-                                 a -> ActionGroupActionAddedCallback -> SignalConnectMode -> m SignalHandlerId-connectActionGroupActionAdded obj cb after = liftIO $ do-    cb' <- mkActionGroupActionAddedCallback (actionGroupActionAddedCallbackWrapper cb)-    connectSignalFunPtr obj "action-added" cb' after---- signal ActionGroup::action-enabled-changed-type ActionGroupActionEnabledChangedCallback =-    T.Text ->-    Bool ->-    IO ()--noActionGroupActionEnabledChangedCallback :: Maybe ActionGroupActionEnabledChangedCallback-noActionGroupActionEnabledChangedCallback = Nothing--type ActionGroupActionEnabledChangedCallbackC =-    Ptr () ->                               -- object-    CString ->-    CInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkActionGroupActionEnabledChangedCallback :: ActionGroupActionEnabledChangedCallbackC -> IO (FunPtr ActionGroupActionEnabledChangedCallbackC)--actionGroupActionEnabledChangedClosure :: ActionGroupActionEnabledChangedCallback -> IO Closure-actionGroupActionEnabledChangedClosure cb = newCClosure =<< mkActionGroupActionEnabledChangedCallback wrapped-    where wrapped = actionGroupActionEnabledChangedCallbackWrapper cb--actionGroupActionEnabledChangedCallbackWrapper ::-    ActionGroupActionEnabledChangedCallback ->-    Ptr () ->-    CString ->-    CInt ->-    Ptr () ->-    IO ()-actionGroupActionEnabledChangedCallbackWrapper _cb _ actionName enabled _ = do-    actionName' <- cstringToText actionName-    let enabled' = (/= 0) enabled-    _cb  actionName' enabled'--onActionGroupActionEnabledChanged :: (GObject a, MonadIO m) => a -> ActionGroupActionEnabledChangedCallback -> m SignalHandlerId-onActionGroupActionEnabledChanged obj cb = liftIO $ connectActionGroupActionEnabledChanged obj cb SignalConnectBefore-afterActionGroupActionEnabledChanged :: (GObject a, MonadIO m) => a -> ActionGroupActionEnabledChangedCallback -> m SignalHandlerId-afterActionGroupActionEnabledChanged obj cb = connectActionGroupActionEnabledChanged obj cb SignalConnectAfter--connectActionGroupActionEnabledChanged :: (GObject a, MonadIO m) =>-                                          a -> ActionGroupActionEnabledChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectActionGroupActionEnabledChanged obj cb after = liftIO $ do-    cb' <- mkActionGroupActionEnabledChangedCallback (actionGroupActionEnabledChangedCallbackWrapper cb)-    connectSignalFunPtr obj "action-enabled-changed" cb' after---- signal ActionGroup::action-removed-type ActionGroupActionRemovedCallback =-    T.Text ->-    IO ()--noActionGroupActionRemovedCallback :: Maybe ActionGroupActionRemovedCallback-noActionGroupActionRemovedCallback = Nothing--type ActionGroupActionRemovedCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkActionGroupActionRemovedCallback :: ActionGroupActionRemovedCallbackC -> IO (FunPtr ActionGroupActionRemovedCallbackC)--actionGroupActionRemovedClosure :: ActionGroupActionRemovedCallback -> IO Closure-actionGroupActionRemovedClosure cb = newCClosure =<< mkActionGroupActionRemovedCallback wrapped-    where wrapped = actionGroupActionRemovedCallbackWrapper cb--actionGroupActionRemovedCallbackWrapper ::-    ActionGroupActionRemovedCallback ->-    Ptr () ->-    CString ->-    Ptr () ->-    IO ()-actionGroupActionRemovedCallbackWrapper _cb _ actionName _ = do-    actionName' <- cstringToText actionName-    _cb  actionName'--onActionGroupActionRemoved :: (GObject a, MonadIO m) => a -> ActionGroupActionRemovedCallback -> m SignalHandlerId-onActionGroupActionRemoved obj cb = liftIO $ connectActionGroupActionRemoved obj cb SignalConnectBefore-afterActionGroupActionRemoved :: (GObject a, MonadIO m) => a -> ActionGroupActionRemovedCallback -> m SignalHandlerId-afterActionGroupActionRemoved obj cb = connectActionGroupActionRemoved obj cb SignalConnectAfter--connectActionGroupActionRemoved :: (GObject a, MonadIO m) =>-                                   a -> ActionGroupActionRemovedCallback -> SignalConnectMode -> m SignalHandlerId-connectActionGroupActionRemoved obj cb after = liftIO $ do-    cb' <- mkActionGroupActionRemovedCallback (actionGroupActionRemovedCallbackWrapper cb)-    connectSignalFunPtr obj "action-removed" cb' after---- signal ActionGroup::action-state-changed-type ActionGroupActionStateChangedCallback =-    T.Text ->-    GVariant ->-    IO ()--noActionGroupActionStateChangedCallback :: Maybe ActionGroupActionStateChangedCallback-noActionGroupActionStateChangedCallback = Nothing--type ActionGroupActionStateChangedCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkActionGroupActionStateChangedCallback :: ActionGroupActionStateChangedCallbackC -> IO (FunPtr ActionGroupActionStateChangedCallbackC)--actionGroupActionStateChangedClosure :: ActionGroupActionStateChangedCallback -> IO Closure-actionGroupActionStateChangedClosure cb = newCClosure =<< mkActionGroupActionStateChangedCallback wrapped-    where wrapped = actionGroupActionStateChangedCallbackWrapper cb--actionGroupActionStateChangedCallbackWrapper ::-    ActionGroupActionStateChangedCallback ->-    Ptr () ->-    CString ->-    Ptr GVariant ->-    Ptr () ->-    IO ()-actionGroupActionStateChangedCallbackWrapper _cb _ actionName value _ = do-    actionName' <- cstringToText actionName-    value' <- newGVariantFromPtr value-    _cb  actionName' value'--onActionGroupActionStateChanged :: (GObject a, MonadIO m) => a -> ActionGroupActionStateChangedCallback -> m SignalHandlerId-onActionGroupActionStateChanged obj cb = liftIO $ connectActionGroupActionStateChanged obj cb SignalConnectBefore-afterActionGroupActionStateChanged :: (GObject a, MonadIO m) => a -> ActionGroupActionStateChangedCallback -> m SignalHandlerId-afterActionGroupActionStateChanged obj cb = connectActionGroupActionStateChanged obj cb SignalConnectAfter--connectActionGroupActionStateChanged :: (GObject a, MonadIO m) =>-                                        a -> ActionGroupActionStateChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectActionGroupActionStateChanged obj cb after = liftIO $ do-    cb' <- mkActionGroupActionStateChangedCallback (actionGroupActionStateChangedCallbackWrapper cb)-    connectSignalFunPtr obj "action-state-changed" cb' after--type instance AttributeList ActionGroup = ActionGroupAttributeList-type ActionGroupAttributeList = ('[ ] :: [(Symbol, *)])--data ActionGroupActionAddedSignalInfo-instance SignalInfo ActionGroupActionAddedSignalInfo where-    type HaskellCallbackType ActionGroupActionAddedSignalInfo = ActionGroupActionAddedCallback-    connectSignal _ = connectActionGroupActionAdded--data ActionGroupActionEnabledChangedSignalInfo-instance SignalInfo ActionGroupActionEnabledChangedSignalInfo where-    type HaskellCallbackType ActionGroupActionEnabledChangedSignalInfo = ActionGroupActionEnabledChangedCallback-    connectSignal _ = connectActionGroupActionEnabledChanged--data ActionGroupActionRemovedSignalInfo-instance SignalInfo ActionGroupActionRemovedSignalInfo where-    type HaskellCallbackType ActionGroupActionRemovedSignalInfo = ActionGroupActionRemovedCallback-    connectSignal _ = connectActionGroupActionRemoved--data ActionGroupActionStateChangedSignalInfo-instance SignalInfo ActionGroupActionStateChangedSignalInfo where-    type HaskellCallbackType ActionGroupActionStateChangedSignalInfo = ActionGroupActionStateChangedCallback-    connectSignal _ = connectActionGroupActionStateChanged--type instance SignalList ActionGroup = ActionGroupSignalList-type ActionGroupSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_action_group_get_type"-    c_g_action_group_get_type :: IO GType--type instance ParentTypes ActionGroup = ActionGroupParentTypes-type ActionGroupParentTypes = '[GObject.Object]--instance GObject ActionGroup where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_action_group_get_type-    --class GObject o => ActionGroupK o-instance (GObject o, IsDescendantOf ActionGroup o) => ActionGroupK o--toActionGroup :: ActionGroupK o => o -> IO ActionGroup-toActionGroup = unsafeCastTo ActionGroup---- method ActionGroup::action_added--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    IO ()---actionGroupActionAdded ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m ()                                 -- result-actionGroupActionAdded _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    g_action_group_action_added _obj' actionName'-    touchManagedPtr _obj-    freeMem actionName'-    return ()--data ActionGroupActionAddedMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupActionAddedMethodInfo a signature where-    overloadedMethod _ = actionGroupActionAdded---- method ActionGroup::action_enabled_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---actionGroupActionEnabledChanged ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> Bool                                 -- enabled-    -> m ()                                 -- result-actionGroupActionEnabledChanged _obj actionName enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    let enabled' = (fromIntegral . fromEnum) enabled-    g_action_group_action_enabled_changed _obj' actionName' enabled'-    touchManagedPtr _obj-    freeMem actionName'-    return ()--data ActionGroupActionEnabledChangedMethodInfo-instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupActionEnabledChangedMethodInfo a signature where-    overloadedMethod _ = actionGroupActionEnabledChanged---- method ActionGroup::action_removed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    IO ()---actionGroupActionRemoved ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m ()                                 -- result-actionGroupActionRemoved _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    g_action_group_action_removed _obj' actionName'-    touchManagedPtr _obj-    freeMem actionName'-    return ()--data ActionGroupActionRemovedMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupActionRemovedMethodInfo a signature where-    overloadedMethod _ = actionGroupActionRemoved---- method ActionGroup::action_state_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TVariant, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr GVariant ->                         -- state : TVariant-    IO ()---actionGroupActionStateChanged ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> GVariant                             -- state-    -> m ()                                 -- result-actionGroupActionStateChanged _obj actionName state = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    let state' = unsafeManagedPtrGetPtr state-    g_action_group_action_state_changed _obj' actionName' state'-    touchManagedPtr _obj-    freeMem actionName'-    return ()--data ActionGroupActionStateChangedMethodInfo-instance (signature ~ (T.Text -> GVariant -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupActionStateChangedMethodInfo a signature where-    overloadedMethod _ = actionGroupActionStateChanged---- method ActionGroup::activate_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameter : TVariant-    IO ()---actionGroupActivateAction ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> Maybe (GVariant)                     -- parameter-    -> m ()                                 -- result-actionGroupActivateAction _obj actionName parameter = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    maybeParameter <- case parameter of-        Nothing -> return nullPtr-        Just jParameter -> do-            let jParameter' = unsafeManagedPtrGetPtr jParameter-            return jParameter'-    g_action_group_activate_action _obj' actionName' maybeParameter-    touchManagedPtr _obj-    freeMem actionName'-    return ()--data ActionGroupActivateActionMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupActivateActionMethodInfo a signature where-    overloadedMethod _ = actionGroupActivateAction---- method ActionGroup::change_action_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    IO ()---actionGroupChangeActionState ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> GVariant                             -- value-    -> m ()                                 -- result-actionGroupChangeActionState _obj actionName value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    let value' = unsafeManagedPtrGetPtr value-    g_action_group_change_action_state _obj' actionName' value'-    touchManagedPtr _obj-    freeMem actionName'-    return ()--data ActionGroupChangeActionStateMethodInfo-instance (signature ~ (T.Text -> GVariant -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupChangeActionStateMethodInfo a signature where-    overloadedMethod _ = actionGroupChangeActionState---- method ActionGroup::get_action_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    IO CInt---actionGroupGetActionEnabled ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m Bool                               -- result-actionGroupGetActionEnabled _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    result <- g_action_group_get_action_enabled _obj' actionName'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem actionName'-    return result'--data ActionGroupGetActionEnabledMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionEnabledMethodInfo a signature where-    overloadedMethod _ = actionGroupGetActionEnabled---- method ActionGroup::get_action_parameter_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr GLib.VariantType)---actionGroupGetActionParameterType ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m (Maybe GLib.VariantType)           -- result-actionGroupGetActionParameterType _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    result <- g_action_group_get_action_parameter_type _obj' actionName'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed GLib.VariantType) result'-        return result''-    touchManagedPtr _obj-    freeMem actionName'-    return maybeResult--data ActionGroupGetActionParameterTypeMethodInfo-instance (signature ~ (T.Text -> m (Maybe GLib.VariantType)), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionParameterTypeMethodInfo a signature where-    overloadedMethod _ = actionGroupGetActionParameterType---- method ActionGroup::get_action_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr GVariant)---actionGroupGetActionState ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m (Maybe GVariant)                   -- result-actionGroupGetActionState _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    result <- g_action_group_get_action_state _obj' actionName'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- wrapGVariantPtr result'-        return result''-    touchManagedPtr _obj-    freeMem actionName'-    return maybeResult--data ActionGroupGetActionStateMethodInfo-instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionStateMethodInfo a signature where-    overloadedMethod _ = actionGroupGetActionState---- method ActionGroup::get_action_state_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr GVariant)---actionGroupGetActionStateHint ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m (Maybe GVariant)                   -- result-actionGroupGetActionStateHint _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    result <- g_action_group_get_action_state_hint _obj' actionName'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- wrapGVariantPtr result'-        return result''-    touchManagedPtr _obj-    freeMem actionName'-    return maybeResult--data ActionGroupGetActionStateHintMethodInfo-instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionStateHintMethodInfo a signature where-    overloadedMethod _ = actionGroupGetActionStateHint---- method ActionGroup::get_action_state_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr GLib.VariantType)---actionGroupGetActionStateType ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m (Maybe GLib.VariantType)           -- result-actionGroupGetActionStateType _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    result <- g_action_group_get_action_state_type _obj' actionName'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed GLib.VariantType) result'-        return result''-    touchManagedPtr _obj-    freeMem actionName'-    return maybeResult--data ActionGroupGetActionStateTypeMethodInfo-instance (signature ~ (T.Text -> m (Maybe GLib.VariantType)), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionStateTypeMethodInfo a signature where-    overloadedMethod _ = actionGroupGetActionStateType---- method ActionGroup::has_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    IO CInt---actionGroupHasAction ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m Bool                               -- result-actionGroupHasAction _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    result <- g_action_group_has_action _obj' actionName'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem actionName'-    return result'--data ActionGroupHasActionMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupHasActionMethodInfo a signature where-    overloadedMethod _ = actionGroupHasAction---- method ActionGroup::list_actions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    IO (Ptr CString)---actionGroupListActions ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-actionGroupListActions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_action_group_list_actions _obj'-    checkUnexpectedReturnNULL "g_action_group_list_actions" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    return result'--data ActionGroupListActionsMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupListActionsMethodInfo a signature where-    overloadedMethod _ = actionGroupListActions---- method ActionGroup::query_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameter_type", argType = TInterface "GLib" "VariantType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "state_type", argType = TInterface "GLib" "VariantType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "state_hint", argType = TVariant, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "state", argType = TVariant, direction = DirectionOut, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "ActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr CInt ->                             -- enabled : TBasicType TBoolean-    Ptr (Ptr GLib.VariantType) ->           -- parameter_type : TInterface "GLib" "VariantType"-    Ptr (Ptr GLib.VariantType) ->           -- state_type : TInterface "GLib" "VariantType"-    Ptr (Ptr GVariant) ->                   -- state_hint : TVariant-    Ptr (Ptr GVariant) ->                   -- state : TVariant-    IO CInt---actionGroupQueryAction ::-    (MonadIO m, ActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m (Bool,Bool,GLib.VariantType,GLib.VariantType,GVariant,GVariant)-- result-actionGroupQueryAction _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    enabled <- allocMem :: IO (Ptr CInt)-    parameterType <- allocMem :: IO (Ptr (Ptr GLib.VariantType))-    stateType <- allocMem :: IO (Ptr (Ptr GLib.VariantType))-    stateHint <- allocMem :: IO (Ptr (Ptr GVariant))-    state <- allocMem :: IO (Ptr (Ptr GVariant))-    result <- g_action_group_query_action _obj' actionName' enabled parameterType stateType stateHint state-    let result' = (/= 0) result-    enabled' <- peek enabled-    let enabled'' = (/= 0) enabled'-    parameterType' <- peek parameterType-    parameterType'' <- (wrapBoxed GLib.VariantType) parameterType'-    stateType' <- peek stateType-    stateType'' <- (wrapBoxed GLib.VariantType) stateType'-    stateHint' <- peek stateHint-    stateHint'' <- wrapGVariantPtr stateHint'-    state' <- peek state-    state'' <- wrapGVariantPtr state'-    touchManagedPtr _obj-    freeMem actionName'-    freeMem enabled-    freeMem parameterType-    freeMem stateType-    freeMem stateHint-    freeMem state-    return (result', enabled'', parameterType'', stateType'', stateHint'', state'')--data ActionGroupQueryActionMethodInfo-instance (signature ~ (T.Text -> m (Bool,Bool,GLib.VariantType,GLib.VariantType,GVariant,GVariant)), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupQueryActionMethodInfo a signature where-    overloadedMethod _ = actionGroupQueryAction--
− GI/Gio/Interfaces/ActionGroup.hs-boot 
@@ -1,31 +0,0 @@-module GI.Gio.Interfaces.ActionGroup where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionGroup = ActionGroup (ForeignPtr ActionGroup)-data ActionGroupActionAddedSignalInfo-data ActionGroupActionEnabledChangedSignalInfo-data ActionGroupActionRemovedSignalInfo-data ActionGroupActionStateChangedSignalInfo-instance GObject ActionGroup where-class GObject o => ActionGroupK o-instance (GObject o, IsDescendantOf ActionGroup o) => ActionGroupK o-data ActionGroupActionAddedMethodInfo-data ActionGroupActionEnabledChangedMethodInfo-data ActionGroupActionRemovedMethodInfo-data ActionGroupActionStateChangedMethodInfo-data ActionGroupActivateActionMethodInfo-data ActionGroupChangeActionStateMethodInfo-data ActionGroupGetActionEnabledMethodInfo-data ActionGroupGetActionParameterTypeMethodInfo-data ActionGroupGetActionStateMethodInfo-data ActionGroupGetActionStateHintMethodInfo-data ActionGroupGetActionStateTypeMethodInfo-data ActionGroupHasActionMethodInfo-data ActionGroupListActionsMethodInfo-data ActionGroupQueryActionMethodInfo
− GI/Gio/Interfaces/ActionMap.hs 
@@ -1,253 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.ActionMap-    ( ---- * Exported types-    ActionMap(..)                           ,-    noActionMap                             ,-    ActionMapK                              ,-    toActionMap                             ,--- -- * Methods--- ** actionMapAddAction-    ActionMapAddActionMethodInfo            ,-    actionMapAddAction                      ,----- ** actionMapAddActionEntries-    ActionMapAddActionEntriesMethodInfo     ,-    actionMapAddActionEntries               ,----- ** actionMapLookupAction-    ActionMapLookupActionMethodInfo         ,-    actionMapLookupAction                   ,----- ** actionMapRemoveAction-    ActionMapRemoveActionMethodInfo         ,-    actionMapRemoveAction                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface ActionMap --newtype ActionMap = ActionMap (ForeignPtr ActionMap)-noActionMap :: Maybe ActionMap-noActionMap = Nothing--type family ResolveActionMapMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionMapMethod "addAction" o = ActionMapAddActionMethodInfo-    ResolveActionMapMethod "addActionEntries" o = ActionMapAddActionEntriesMethodInfo-    ResolveActionMapMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveActionMapMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveActionMapMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveActionMapMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveActionMapMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveActionMapMethod "lookupAction" o = ActionMapLookupActionMethodInfo-    ResolveActionMapMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveActionMapMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveActionMapMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveActionMapMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveActionMapMethod "removeAction" o = ActionMapRemoveActionMethodInfo-    ResolveActionMapMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveActionMapMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveActionMapMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveActionMapMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveActionMapMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveActionMapMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveActionMapMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveActionMapMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveActionMapMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveActionMapMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveActionMapMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveActionMapMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveActionMapMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveActionMapMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionMapMethod t ActionMap, MethodInfo info ActionMap p) => IsLabelProxy t (ActionMap -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionMapMethod t ActionMap, MethodInfo info ActionMap p) => IsLabel t (ActionMap -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList ActionMap = ActionMapAttributeList-type ActionMapAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList ActionMap = ActionMapSignalList-type ActionMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_action_map_get_type"-    c_g_action_map_get_type :: IO GType--type instance ParentTypes ActionMap = ActionMapParentTypes-type ActionMapParentTypes = '[GObject.Object]--instance GObject ActionMap where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_action_map_get_type-    --class GObject o => ActionMapK o-instance (GObject o, IsDescendantOf ActionMap o) => ActionMapK o--toActionMap :: ActionMapK o => o -> IO ActionMap-toActionMap = unsafeCastTo ActionMap---- method ActionMap::add_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ActionMap"-    Ptr Action ->                           -- action : TInterface "Gio" "Action"-    IO ()---actionMapAddAction ::-    (MonadIO m, ActionMapK a, ActionK b) =>-    a                                       -- _obj-    -> b                                    -- action-    -> m ()                                 -- result-actionMapAddAction _obj action = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let action' = unsafeManagedPtrCastPtr action-    g_action_map_add_action _obj' action'-    touchManagedPtr _obj-    touchManagedPtr action-    return ()--data ActionMapAddActionMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, ActionMapK a, ActionK b) => MethodInfo ActionMapAddActionMethodInfo a signature where-    overloadedMethod _ = actionMapAddAction---- method ActionMap::add_action_entries--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray False (-1) 2 (TInterface "Gio" "ActionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ActionMap"-    Ptr ActionEntry ->                      -- entries : TCArray False (-1) 2 (TInterface "Gio" "ActionEntry")-    Int32 ->                                -- n_entries : TBasicType TInt-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---actionMapAddActionEntries ::-    (MonadIO m, ActionMapK a) =>-    a                                       -- _obj-    -> [ActionEntry]                        -- entries-    -> Ptr ()                               -- userData-    -> m ()                                 -- result-actionMapAddActionEntries _obj entries userData = liftIO $ do-    let nEntries = fromIntegral $ length entries-    let _obj' = unsafeManagedPtrCastPtr _obj-    let entries' = map unsafeManagedPtrGetPtr entries-    entries'' <- packBlockArray 64 entries'-    g_action_map_add_action_entries _obj' entries'' nEntries userData-    touchManagedPtr _obj-    mapM_ touchManagedPtr entries-    freeMem entries''-    return ()--data ActionMapAddActionEntriesMethodInfo-instance (signature ~ ([ActionEntry] -> Ptr () -> m ()), MonadIO m, ActionMapK a) => MethodInfo ActionMapAddActionEntriesMethodInfo a signature where-    overloadedMethod _ = actionMapAddActionEntries---- method ActionMap::lookup_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Action")--- throws : False--- Skip return : False--foreign import ccall "g_action_map_lookup_action" g_action_map_lookup_action :: -    Ptr ActionMap ->                        -- _obj : TInterface "Gio" "ActionMap"-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr Action)---actionMapLookupAction ::-    (MonadIO m, ActionMapK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m Action                             -- result-actionMapLookupAction _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    result <- g_action_map_lookup_action _obj' actionName'-    checkUnexpectedReturnNULL "g_action_map_lookup_action" result-    result' <- (newObject Action) result-    touchManagedPtr _obj-    freeMem actionName'-    return result'--data ActionMapLookupActionMethodInfo-instance (signature ~ (T.Text -> m Action), MonadIO m, ActionMapK a) => MethodInfo ActionMapLookupActionMethodInfo a signature where-    overloadedMethod _ = actionMapLookupAction---- method ActionMap::remove_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ActionMap"-    CString ->                              -- action_name : TBasicType TUTF8-    IO ()---actionMapRemoveAction ::-    (MonadIO m, ActionMapK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m ()                                 -- result-actionMapRemoveAction _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    g_action_map_remove_action _obj' actionName'-    touchManagedPtr _obj-    freeMem actionName'-    return ()--data ActionMapRemoveActionMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, ActionMapK a) => MethodInfo ActionMapRemoveActionMethodInfo a signature where-    overloadedMethod _ = actionMapRemoveAction--
− GI/Gio/Interfaces/ActionMap.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Interfaces.ActionMap where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionMap = ActionMap (ForeignPtr ActionMap)-instance GObject ActionMap where-class GObject o => ActionMapK o-instance (GObject o, IsDescendantOf ActionMap o) => ActionMapK o-data ActionMapAddActionMethodInfo-data ActionMapAddActionEntriesMethodInfo-data ActionMapLookupActionMethodInfo-data ActionMapRemoveActionMethodInfo
− GI/Gio/Interfaces/AppInfo.hs 
@@ -1,1259 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.AppInfo-    ( ---- * Exported types-    AppInfo(..)                             ,-    noAppInfo                               ,-    AppInfoK                                ,-    toAppInfo                               ,--- -- * Methods--- ** appInfoAddSupportsType-    AppInfoAddSupportsTypeMethodInfo        ,-    appInfoAddSupportsType                  ,----- ** appInfoCanDelete-    AppInfoCanDeleteMethodInfo              ,-    appInfoCanDelete                        ,----- ** appInfoCanRemoveSupportsType-    AppInfoCanRemoveSupportsTypeMethodInfo  ,-    appInfoCanRemoveSupportsType            ,----- ** appInfoCreateFromCommandline-    appInfoCreateFromCommandline            ,----- ** appInfoDelete-    AppInfoDeleteMethodInfo                 ,-    appInfoDelete                           ,----- ** appInfoDup-    AppInfoDupMethodInfo                    ,-    appInfoDup                              ,----- ** appInfoEqual-    AppInfoEqualMethodInfo                  ,-    appInfoEqual                            ,----- ** appInfoGetAll-    appInfoGetAll                           ,----- ** appInfoGetAllForType-    appInfoGetAllForType                    ,----- ** appInfoGetCommandline-    AppInfoGetCommandlineMethodInfo         ,-    appInfoGetCommandline                   ,----- ** appInfoGetDefaultForType-    appInfoGetDefaultForType                ,----- ** appInfoGetDefaultForUriScheme-    appInfoGetDefaultForUriScheme           ,----- ** appInfoGetDescription-    AppInfoGetDescriptionMethodInfo         ,-    appInfoGetDescription                   ,----- ** appInfoGetDisplayName-    AppInfoGetDisplayNameMethodInfo         ,-    appInfoGetDisplayName                   ,----- ** appInfoGetExecutable-    AppInfoGetExecutableMethodInfo          ,-    appInfoGetExecutable                    ,----- ** appInfoGetFallbackForType-    appInfoGetFallbackForType               ,----- ** appInfoGetIcon-    AppInfoGetIconMethodInfo                ,-    appInfoGetIcon                          ,----- ** appInfoGetId-    AppInfoGetIdMethodInfo                  ,-    appInfoGetId                            ,----- ** appInfoGetName-    AppInfoGetNameMethodInfo                ,-    appInfoGetName                          ,----- ** appInfoGetRecommendedForType-    appInfoGetRecommendedForType            ,----- ** appInfoGetSupportedTypes-    AppInfoGetSupportedTypesMethodInfo      ,-    appInfoGetSupportedTypes                ,----- ** appInfoLaunch-    AppInfoLaunchMethodInfo                 ,-    appInfoLaunch                           ,----- ** appInfoLaunchDefaultForUri-    appInfoLaunchDefaultForUri              ,----- ** appInfoLaunchUris-    AppInfoLaunchUrisMethodInfo             ,-    appInfoLaunchUris                       ,----- ** appInfoRemoveSupportsType-    AppInfoRemoveSupportsTypeMethodInfo     ,-    appInfoRemoveSupportsType               ,----- ** appInfoResetTypeAssociations-    appInfoResetTypeAssociations            ,----- ** appInfoSetAsDefaultForExtension-    AppInfoSetAsDefaultForExtensionMethodInfo,-    appInfoSetAsDefaultForExtension         ,----- ** appInfoSetAsDefaultForType-    AppInfoSetAsDefaultForTypeMethodInfo    ,-    appInfoSetAsDefaultForType              ,----- ** appInfoSetAsLastUsedForType-    AppInfoSetAsLastUsedForTypeMethodInfo   ,-    appInfoSetAsLastUsedForType             ,----- ** appInfoShouldShow-    AppInfoShouldShowMethodInfo             ,-    appInfoShouldShow                       ,----- ** appInfoSupportsFiles-    AppInfoSupportsFilesMethodInfo          ,-    appInfoSupportsFiles                    ,----- ** appInfoSupportsUris-    AppInfoSupportsUrisMethodInfo           ,-    appInfoSupportsUris                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface AppInfo --newtype AppInfo = AppInfo (ForeignPtr AppInfo)-noAppInfo :: Maybe AppInfo-noAppInfo = Nothing--type family ResolveAppInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveAppInfoMethod "addSupportsType" o = AppInfoAddSupportsTypeMethodInfo-    ResolveAppInfoMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAppInfoMethod "bindPropertyFull" o = GObject.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.ObjectForceFloatingMethodInfo-    ResolveAppInfoMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAppInfoMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAppInfoMethod "launch" o = AppInfoLaunchMethodInfo-    ResolveAppInfoMethod "launchUris" o = AppInfoLaunchUrisMethodInfo-    ResolveAppInfoMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAppInfoMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAppInfoMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAppInfoMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAppInfoMethod "removeSupportsType" o = AppInfoRemoveSupportsTypeMethodInfo-    ResolveAppInfoMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAppInfoMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAppInfoMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAppInfoMethod "shouldShow" o = AppInfoShouldShowMethodInfo-    ResolveAppInfoMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAppInfoMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAppInfoMethod "supportsFiles" o = AppInfoSupportsFilesMethodInfo-    ResolveAppInfoMethod "supportsUris" o = AppInfoSupportsUrisMethodInfo-    ResolveAppInfoMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAppInfoMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAppInfoMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAppInfoMethod "getCommandline" o = AppInfoGetCommandlineMethodInfo-    ResolveAppInfoMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo-    ResolveAppInfoMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAppInfoMethod "getSupportedTypes" o = AppInfoGetSupportedTypesMethodInfo-    ResolveAppInfoMethod "setAsDefaultForExtension" o = AppInfoSetAsDefaultForExtensionMethodInfo-    ResolveAppInfoMethod "setAsDefaultForType" o = AppInfoSetAsDefaultForTypeMethodInfo-    ResolveAppInfoMethod "setAsLastUsedForType" o = AppInfoSetAsLastUsedForTypeMethodInfo-    ResolveAppInfoMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAppInfoMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAppInfoMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAppInfoMethod t AppInfo, MethodInfo info AppInfo p) => IsLabelProxy t (AppInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAppInfoMethod t AppInfo, MethodInfo info AppInfo p) => IsLabel t (AppInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AppInfo = AppInfoAttributeList-type AppInfoAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AppInfo = AppInfoSignalList-type AppInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_app_info_get_type"-    c_g_app_info_get_type :: IO GType--type instance ParentTypes AppInfo = AppInfoParentTypes-type AppInfoParentTypes = '[GObject.Object]--instance GObject AppInfo where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_app_info_get_type-    --class GObject o => AppInfoK o-instance (GObject o, IsDescendantOf AppInfo o) => AppInfoK o--toAppInfo :: AppInfoK o => o -> IO AppInfo-toAppInfo = unsafeCastTo AppInfo---- method AppInfo::add_supports_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---appInfoAddSupportsType ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- contentType-    -> m ()                                 -- result-appInfoAddSupportsType _obj contentType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    contentType' <- textToCString contentType-    onException (do-        _ <- propagateGError $ g_app_info_add_supports_type _obj' contentType'-        touchManagedPtr _obj-        freeMem contentType'-        return ()-     ) (do-        freeMem contentType'-     )--data AppInfoAddSupportsTypeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AppInfoK a) => MethodInfo AppInfoAddSupportsTypeMethodInfo a signature where-    overloadedMethod _ = appInfoAddSupportsType---- method AppInfo::can_delete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CInt---appInfoCanDelete ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-appInfoCanDelete _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_can_delete _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AppInfoCanDeleteMethodInfo-instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoCanDeleteMethodInfo a signature where-    overloadedMethod _ = appInfoCanDelete---- method AppInfo::can_remove_supports_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CInt---appInfoCanRemoveSupportsType ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-appInfoCanRemoveSupportsType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_can_remove_supports_type _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AppInfoCanRemoveSupportsTypeMethodInfo-instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoCanRemoveSupportsTypeMethodInfo a signature where-    overloadedMethod _ = appInfoCanRemoveSupportsType---- method AppInfo::delete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CInt---appInfoDelete ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-appInfoDelete _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_delete _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AppInfoDeleteMethodInfo-instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoDeleteMethodInfo a signature where-    overloadedMethod _ = appInfoDelete---- method AppInfo::dup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "AppInfo")--- throws : False--- Skip return : False--foreign import ccall "g_app_info_dup" g_app_info_dup :: -    Ptr AppInfo ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO (Ptr AppInfo)---appInfoDup ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m AppInfo                            -- result-appInfoDup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_dup _obj'-    checkUnexpectedReturnNULL "g_app_info_dup" result-    result' <- (wrapObject AppInfo) result-    touchManagedPtr _obj-    return result'--data AppInfoDupMethodInfo-instance (signature ~ (m AppInfo), MonadIO m, AppInfoK a) => MethodInfo AppInfoDupMethodInfo a signature where-    overloadedMethod _ = appInfoDup---- method AppInfo::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "appinfo2", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    Ptr AppInfo ->                          -- appinfo2 : TInterface "Gio" "AppInfo"-    IO CInt---appInfoEqual ::-    (MonadIO m, AppInfoK a, AppInfoK b) =>-    a                                       -- _obj-    -> b                                    -- appinfo2-    -> m Bool                               -- result-appInfoEqual _obj appinfo2 = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let appinfo2' = unsafeManagedPtrCastPtr appinfo2-    result <- g_app_info_equal _obj' appinfo2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr appinfo2-    return result'--data AppInfoEqualMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, AppInfoK a, AppInfoK b) => MethodInfo AppInfoEqualMethodInfo a signature where-    overloadedMethod _ = appInfoEqual---- method AppInfo::get_commandline--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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_commandline" g_app_info_get_commandline :: -    Ptr AppInfo ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CString---appInfoGetCommandline ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-appInfoGetCommandline _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_get_commandline _obj'-    checkUnexpectedReturnNULL "g_app_info_get_commandline" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AppInfoGetCommandlineMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetCommandlineMethodInfo a signature where-    overloadedMethod _ = appInfoGetCommandline---- method AppInfo::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CString---appInfoGetDescription ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-appInfoGetDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_get_description _obj'-    checkUnexpectedReturnNULL "g_app_info_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AppInfoGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetDescriptionMethodInfo a signature where-    overloadedMethod _ = appInfoGetDescription---- method AppInfo::get_display_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CString---appInfoGetDisplayName ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-appInfoGetDisplayName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_get_display_name _obj'-    checkUnexpectedReturnNULL "g_app_info_get_display_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AppInfoGetDisplayNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetDisplayNameMethodInfo a signature where-    overloadedMethod _ = appInfoGetDisplayName---- method AppInfo::get_executable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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_executable" g_app_info_get_executable :: -    Ptr AppInfo ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CString---appInfoGetExecutable ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-appInfoGetExecutable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_get_executable _obj'-    checkUnexpectedReturnNULL "g_app_info_get_executable" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AppInfoGetExecutableMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetExecutableMethodInfo a signature where-    overloadedMethod _ = appInfoGetExecutable---- method AppInfo::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_icon" g_app_info_get_icon :: -    Ptr AppInfo ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO (Ptr Icon)---appInfoGetIcon ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m Icon                               -- result-appInfoGetIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_get_icon _obj'-    checkUnexpectedReturnNULL "g_app_info_get_icon" result-    result' <- (newObject Icon) result-    touchManagedPtr _obj-    return result'--data AppInfoGetIconMethodInfo-instance (signature ~ (m Icon), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetIconMethodInfo a signature where-    overloadedMethod _ = appInfoGetIcon---- method AppInfo::get_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CString---appInfoGetId ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-appInfoGetId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_get_id _obj'-    checkUnexpectedReturnNULL "g_app_info_get_id" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AppInfoGetIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetIdMethodInfo a signature where-    overloadedMethod _ = appInfoGetId---- method AppInfo::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CString---appInfoGetName ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-appInfoGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_get_name _obj'-    checkUnexpectedReturnNULL "g_app_info_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AppInfoGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetNameMethodInfo a signature where-    overloadedMethod _ = appInfoGetName---- method AppInfo::get_supported_types--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO (Ptr CString)---appInfoGetSupportedTypes ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-appInfoGetSupportedTypes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_get_supported_types _obj'-    checkUnexpectedReturnNULL "g_app_info_get_supported_types" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'--data AppInfoGetSupportedTypesMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetSupportedTypesMethodInfo a signature where-    overloadedMethod _ = appInfoGetSupportedTypes---- method AppInfo::launch--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    Ptr (GList (Ptr File)) ->               -- files : TGList (TInterface "Gio" "File")-    Ptr AppLaunchContext ->                 -- launch_context : TInterface "Gio" "AppLaunchContext"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---appInfoLaunch ::-    (MonadIO m, AppInfoK a, FileK b, AppLaunchContextK c) =>-    a                                       -- _obj-    -> [b]                                  -- files-    -> Maybe (c)                            -- launchContext-    -> m ()                                 -- result-appInfoLaunch _obj files launchContext = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let files' = map unsafeManagedPtrCastPtr files-    files'' <- packGList files'-    maybeLaunchContext <- case launchContext of-        Nothing -> return nullPtr-        Just jLaunchContext -> do-            let jLaunchContext' = unsafeManagedPtrCastPtr jLaunchContext-            return jLaunchContext'-    onException (do-        _ <- propagateGError $ g_app_info_launch _obj' files'' maybeLaunchContext-        touchManagedPtr _obj-        mapM_ touchManagedPtr files-        whenJust launchContext touchManagedPtr-        g_list_free files''-        return ()-     ) (do-        g_list_free files''-     )--data AppInfoLaunchMethodInfo-instance (signature ~ ([b] -> Maybe (c) -> m ()), MonadIO m, AppInfoK a, FileK b, AppLaunchContextK c) => MethodInfo AppInfoLaunchMethodInfo a signature where-    overloadedMethod _ = appInfoLaunch---- method AppInfo::launch_uris--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uris", argType = TGList (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    Ptr (GList CString) ->                  -- uris : TGList (TBasicType TUTF8)-    Ptr AppLaunchContext ->                 -- launch_context : TInterface "Gio" "AppLaunchContext"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---appInfoLaunchUris ::-    (MonadIO m, AppInfoK a, AppLaunchContextK b) =>-    a                                       -- _obj-    -> [T.Text]                             -- uris-    -> Maybe (b)                            -- launchContext-    -> m ()                                 -- result-appInfoLaunchUris _obj uris launchContext = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uris' <- mapM textToCString uris-    uris'' <- packGList uris'-    maybeLaunchContext <- case launchContext of-        Nothing -> return nullPtr-        Just jLaunchContext -> do-            let jLaunchContext' = unsafeManagedPtrCastPtr jLaunchContext-            return jLaunchContext'-    onException (do-        _ <- propagateGError $ g_app_info_launch_uris _obj' uris'' maybeLaunchContext-        touchManagedPtr _obj-        whenJust launchContext touchManagedPtr-        mapGList freeMem uris''-        g_list_free uris''-        return ()-     ) (do-        mapGList freeMem uris''-        g_list_free uris''-     )--data AppInfoLaunchUrisMethodInfo-instance (signature ~ ([T.Text] -> Maybe (b) -> m ()), MonadIO m, AppInfoK a, AppLaunchContextK b) => MethodInfo AppInfoLaunchUrisMethodInfo a signature where-    overloadedMethod _ = appInfoLaunchUris---- method AppInfo::remove_supports_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---appInfoRemoveSupportsType ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- contentType-    -> m ()                                 -- result-appInfoRemoveSupportsType _obj contentType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    contentType' <- textToCString contentType-    onException (do-        _ <- propagateGError $ g_app_info_remove_supports_type _obj' contentType'-        touchManagedPtr _obj-        freeMem contentType'-        return ()-     ) (do-        freeMem contentType'-     )--data AppInfoRemoveSupportsTypeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AppInfoK a) => MethodInfo AppInfoRemoveSupportsTypeMethodInfo a signature where-    overloadedMethod _ = appInfoRemoveSupportsType---- method AppInfo::set_as_default_for_extension--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extension", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    CString ->                              -- extension : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---appInfoSetAsDefaultForExtension ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- extension-    -> m ()                                 -- result-appInfoSetAsDefaultForExtension _obj extension = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    extension' <- textToCString extension-    onException (do-        _ <- propagateGError $ g_app_info_set_as_default_for_extension _obj' extension'-        touchManagedPtr _obj-        freeMem extension'-        return ()-     ) (do-        freeMem extension'-     )--data AppInfoSetAsDefaultForExtensionMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AppInfoK a) => MethodInfo AppInfoSetAsDefaultForExtensionMethodInfo a signature where-    overloadedMethod _ = appInfoSetAsDefaultForExtension---- method AppInfo::set_as_default_for_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---appInfoSetAsDefaultForType ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- contentType-    -> m ()                                 -- result-appInfoSetAsDefaultForType _obj contentType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    contentType' <- textToCString contentType-    onException (do-        _ <- propagateGError $ g_app_info_set_as_default_for_type _obj' contentType'-        touchManagedPtr _obj-        freeMem contentType'-        return ()-     ) (do-        freeMem contentType'-     )--data AppInfoSetAsDefaultForTypeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AppInfoK a) => MethodInfo AppInfoSetAsDefaultForTypeMethodInfo a signature where-    overloadedMethod _ = appInfoSetAsDefaultForType---- method AppInfo::set_as_last_used_for_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---appInfoSetAsLastUsedForType ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- contentType-    -> m ()                                 -- result-appInfoSetAsLastUsedForType _obj contentType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    contentType' <- textToCString contentType-    onException (do-        _ <- propagateGError $ g_app_info_set_as_last_used_for_type _obj' contentType'-        touchManagedPtr _obj-        freeMem contentType'-        return ()-     ) (do-        freeMem contentType'-     )--data AppInfoSetAsLastUsedForTypeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AppInfoK a) => MethodInfo AppInfoSetAsLastUsedForTypeMethodInfo a signature where-    overloadedMethod _ = appInfoSetAsLastUsedForType---- method AppInfo::should_show--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CInt---appInfoShouldShow ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-appInfoShouldShow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_should_show _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AppInfoShouldShowMethodInfo-instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoShouldShowMethodInfo a signature where-    overloadedMethod _ = appInfoShouldShow---- method AppInfo::supports_files--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CInt---appInfoSupportsFiles ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-appInfoSupportsFiles _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_supports_files _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AppInfoSupportsFilesMethodInfo-instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoSupportsFilesMethodInfo a signature where-    overloadedMethod _ = appInfoSupportsFiles---- method AppInfo::supports_uris--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                          -- _obj : TInterface "Gio" "AppInfo"-    IO CInt---appInfoSupportsUris ::-    (MonadIO m, AppInfoK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-appInfoSupportsUris _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_info_supports_uris _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AppInfoSupportsUrisMethodInfo-instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoSupportsUrisMethodInfo a signature where-    overloadedMethod _ = appInfoSupportsUris---- method AppInfo::create_from_commandline--- method type : MemberFunction--- Args : [Arg {argCName = "commandline", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "AppInfoCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "AppInfo")--- throws : True--- Skip return : False--foreign import ccall "g_app_info_create_from_commandline" g_app_info_create_from_commandline :: -    CString ->                              -- commandline : TBasicType TUTF8-    CString ->                              -- application_name : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "AppInfoCreateFlags"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr AppInfo)---appInfoCreateFromCommandline ::-    (MonadIO m) =>-    T.Text                                  -- commandline-    -> Maybe (T.Text)                       -- applicationName-    -> [AppInfoCreateFlags]                 -- flags-    -> m AppInfo                            -- result-appInfoCreateFromCommandline commandline applicationName flags = liftIO $ do-    commandline' <- textToCString 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 "g_app_info_create_from_commandline" result-        result' <- (wrapObject AppInfo) result-        freeMem commandline'-        freeMem maybeApplicationName-        return result'-     ) (do-        freeMem commandline'-        freeMem maybeApplicationName-     )---- method AppInfo::get_all--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "AppInfo"))--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_all" g_app_info_get_all :: -    IO (Ptr (GList (Ptr AppInfo)))---appInfoGetAll ::-    (MonadIO m) =>-    m [AppInfo]                             -- result-appInfoGetAll  = liftIO $ do-    result <- g_app_info_get_all-    result' <- unpackGList result-    result'' <- mapM (wrapObject AppInfo) result'-    g_list_free result-    return result''---- method AppInfo::get_all_for_type--- method type : MemberFunction--- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "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)))---appInfoGetAllForType ::-    (MonadIO m) =>-    T.Text                                  -- contentType-    -> m [AppInfo]                          -- result-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''---- method AppInfo::get_default_for_type--- method type : MemberFunction--- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "must_support_uris", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---appInfoGetDefaultForType ::-    (MonadIO m) =>-    T.Text                                  -- contentType-    -> Bool                                 -- mustSupportUris-    -> m AppInfo                            -- result-appInfoGetDefaultForType contentType mustSupportUris = liftIO $ do-    contentType' <- textToCString contentType-    let mustSupportUris' = (fromIntegral . fromEnum) mustSupportUris-    result <- g_app_info_get_default_for_type contentType' mustSupportUris'-    checkUnexpectedReturnNULL "g_app_info_get_default_for_type" result-    result' <- (wrapObject AppInfo) result-    freeMem contentType'-    return result'---- method AppInfo::get_default_for_uri_scheme--- method type : MemberFunction--- Args : [Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---appInfoGetDefaultForUriScheme ::-    (MonadIO m) =>-    T.Text                                  -- uriScheme-    -> m AppInfo                            -- result-appInfoGetDefaultForUriScheme uriScheme = liftIO $ do-    uriScheme' <- textToCString uriScheme-    result <- g_app_info_get_default_for_uri_scheme uriScheme'-    checkUnexpectedReturnNULL "g_app_info_get_default_for_uri_scheme" result-    result' <- (wrapObject AppInfo) result-    freeMem uriScheme'-    return result'---- method AppInfo::get_fallback_for_type--- method type : MemberFunction--- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "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)))---appInfoGetFallbackForType ::-    (MonadIO m) =>-    T.Text                                  -- contentType-    -> m [AppInfo]                          -- result-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''---- method AppInfo::get_recommended_for_type--- method type : MemberFunction--- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "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)))---appInfoGetRecommendedForType ::-    (MonadIO m) =>-    T.Text                                  -- contentType-    -> m [AppInfo]                          -- result-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''---- method AppInfo::launch_default_for_uri--- method type : MemberFunction--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, 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 AppLaunchContext ->                 -- launch_context : TInterface "Gio" "AppLaunchContext"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---appInfoLaunchDefaultForUri ::-    (MonadIO m, AppLaunchContextK a) =>-    T.Text                                  -- uri-    -> Maybe (a)                            -- launchContext-    -> m ()                                 -- result-appInfoLaunchDefaultForUri uri launchContext = liftIO $ do-    uri' <- textToCString uri-    maybeLaunchContext <- case launchContext of-        Nothing -> return nullPtr-        Just jLaunchContext -> do-            let jLaunchContext' = unsafeManagedPtrCastPtr jLaunchContext-            return jLaunchContext'-    onException (do-        _ <- propagateGError $ g_app_info_launch_default_for_uri uri' maybeLaunchContext-        whenJust launchContext touchManagedPtr-        freeMem uri'-        return ()-     ) (do-        freeMem uri'-     )---- method AppInfo::reset_type_associations--- method type : MemberFunction--- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ()---appInfoResetTypeAssociations ::-    (MonadIO m) =>-    T.Text                                  -- contentType-    -> m ()                                 -- result-appInfoResetTypeAssociations contentType = liftIO $ do-    contentType' <- textToCString contentType-    g_app_info_reset_type_associations contentType'-    freeMem contentType'-    return ()--
− GI/Gio/Interfaces/AppInfo.hs-boot 
@@ -1,36 +0,0 @@-module GI.Gio.Interfaces.AppInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AppInfo = AppInfo (ForeignPtr AppInfo)-instance GObject AppInfo where-class GObject o => AppInfoK o-instance (GObject o, IsDescendantOf AppInfo o) => AppInfoK o-data AppInfoAddSupportsTypeMethodInfo-data AppInfoCanDeleteMethodInfo-data AppInfoCanRemoveSupportsTypeMethodInfo-data AppInfoDeleteMethodInfo-data AppInfoDupMethodInfo-data AppInfoEqualMethodInfo-data AppInfoGetCommandlineMethodInfo-data AppInfoGetDescriptionMethodInfo-data AppInfoGetDisplayNameMethodInfo-data AppInfoGetExecutableMethodInfo-data AppInfoGetIconMethodInfo-data AppInfoGetIdMethodInfo-data AppInfoGetNameMethodInfo-data AppInfoGetSupportedTypesMethodInfo-data AppInfoLaunchMethodInfo-data AppInfoLaunchUrisMethodInfo-data AppInfoRemoveSupportsTypeMethodInfo-data AppInfoSetAsDefaultForExtensionMethodInfo-data AppInfoSetAsDefaultForTypeMethodInfo-data AppInfoSetAsLastUsedForTypeMethodInfo-data AppInfoShouldShowMethodInfo-data AppInfoSupportsFilesMethodInfo-data AppInfoSupportsUrisMethodInfo
− GI/Gio/Interfaces/AsyncInitable.hs 
@@ -1,290 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.AsyncInitable-    ( ---- * Exported types-    AsyncInitable(..)                       ,-    noAsyncInitable                         ,-    AsyncInitableK                          ,-    toAsyncInitable                         ,--- -- * Methods--- ** asyncInitableInitAsync-    AsyncInitableInitAsyncMethodInfo        ,-    asyncInitableInitAsync                  ,----- ** asyncInitableInitFinish-    AsyncInitableInitFinishMethodInfo       ,-    asyncInitableInitFinish                 ,----- ** asyncInitableNewFinish-    AsyncInitableNewFinishMethodInfo        ,-    asyncInitableNewFinish                  ,----- ** asyncInitableNewvAsync-    asyncInitableNewvAsync                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface AsyncInitable --newtype AsyncInitable = AsyncInitable (ForeignPtr AsyncInitable)-noAsyncInitable :: Maybe AsyncInitable-noAsyncInitable = Nothing--type family ResolveAsyncInitableMethod (t :: Symbol) (o :: *) :: * where-    ResolveAsyncInitableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAsyncInitableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAsyncInitableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAsyncInitableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAsyncInitableMethod "initAsync" o = AsyncInitableInitAsyncMethodInfo-    ResolveAsyncInitableMethod "initFinish" o = AsyncInitableInitFinishMethodInfo-    ResolveAsyncInitableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAsyncInitableMethod "newFinish" o = AsyncInitableNewFinishMethodInfo-    ResolveAsyncInitableMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAsyncInitableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAsyncInitableMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAsyncInitableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAsyncInitableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAsyncInitableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAsyncInitableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAsyncInitableMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAsyncInitableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAsyncInitableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAsyncInitableMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAsyncInitableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAsyncInitableMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAsyncInitableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAsyncInitableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAsyncInitableMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAsyncInitableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAsyncInitableMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAsyncInitableMethod t AsyncInitable, MethodInfo info AsyncInitable p) => IsLabelProxy t (AsyncInitable -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAsyncInitableMethod t AsyncInitable, MethodInfo info AsyncInitable p) => IsLabel t (AsyncInitable -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AsyncInitable = AsyncInitableAttributeList-type AsyncInitableAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AsyncInitable = AsyncInitableSignalList-type AsyncInitableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_async_initable_get_type"-    c_g_async_initable_get_type :: IO GType--type instance ParentTypes AsyncInitable = AsyncInitableParentTypes-type AsyncInitableParentTypes = '[GObject.Object]--instance GObject AsyncInitable where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_async_initable_get_type-    --class GObject o => AsyncInitableK o-instance (GObject o, IsDescendantOf AsyncInitable o) => AsyncInitableK o--toAsyncInitable :: AsyncInitableK o => o -> IO AsyncInitable-toAsyncInitable = unsafeCastTo AsyncInitable---- method AsyncInitable::init_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "AsyncInitable"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---asyncInitableInitAsync ::-    (MonadIO m, AsyncInitableK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-asyncInitableInitAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_async_initable_init_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data AsyncInitableInitAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, AsyncInitableK a, CancellableK b) => MethodInfo AsyncInitableInitAsyncMethodInfo a signature where-    overloadedMethod _ = asyncInitableInitAsync---- method AsyncInitable::init_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "AsyncInitable"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---asyncInitableInitFinish ::-    (MonadIO m, AsyncInitableK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m ()                                 -- result-asyncInitableInitFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        _ <- propagateGError $ g_async_initable_init_finish _obj' res'-        touchManagedPtr _obj-        touchManagedPtr res-        return ()-     ) (do-        return ()-     )--data AsyncInitableInitFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, AsyncInitableK a, AsyncResultK b) => MethodInfo AsyncInitableInitFinishMethodInfo a signature where-    overloadedMethod _ = asyncInitableInitFinish---- method AsyncInitable::new_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GObject" "Object")--- throws : True--- Skip return : False--foreign import ccall "g_async_initable_new_finish" g_async_initable_new_finish :: -    Ptr AsyncInitable ->                    -- _obj : TInterface "Gio" "AsyncInitable"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GObject.Object)---asyncInitableNewFinish ::-    (MonadIO m, AsyncInitableK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m GObject.Object                     -- result-asyncInitableNewFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_async_initable_new_finish _obj' res'-        checkUnexpectedReturnNULL "g_async_initable_new_finish" result-        result' <- (wrapObject GObject.Object) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data AsyncInitableNewFinishMethodInfo-instance (signature ~ (b -> m GObject.Object), MonadIO m, AsyncInitableK a, AsyncResultK b) => MethodInfo AsyncInitableNewFinishMethodInfo a signature where-    overloadedMethod _ = asyncInitableNewFinish---- method AsyncInitable::newv_async--- method type : MemberFunction--- Args : [Arg {argCName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_parameters", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TInterface "GObject" "Parameter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                -- parameters : TInterface "GObject" "Parameter"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---asyncInitableNewvAsync ::-    (MonadIO m, CancellableK a) =>-    GType                                   -- objectType-    -> Word32                               -- nParameters-    -> GObject.Parameter                    -- parameters-    -> Int32                                -- ioPriority-    -> Maybe (a)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-asyncInitableNewvAsync objectType nParameters parameters ioPriority cancellable callback = liftIO $ do-    let objectType' = gtypeToCGType objectType-    let parameters' = unsafeManagedPtrGetPtr parameters-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) 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 ()--
− GI/Gio/Interfaces/AsyncInitable.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gio.Interfaces.AsyncInitable where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AsyncInitable = AsyncInitable (ForeignPtr AsyncInitable)-instance GObject AsyncInitable where-class GObject o => AsyncInitableK o-instance (GObject o, IsDescendantOf AsyncInitable o) => AsyncInitableK o-data AsyncInitableInitAsyncMethodInfo-data AsyncInitableInitFinishMethodInfo-data AsyncInitableNewFinishMethodInfo
− GI/Gio/Interfaces/AsyncResult.hs 
@@ -1,239 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.AsyncResult-    ( ---- * Exported types-    AsyncResult(..)                         ,-    noAsyncResult                           ,-    AsyncResultK                            ,-    toAsyncResult                           ,--- -- * Methods--- ** asyncResultGetSourceObject-    AsyncResultGetSourceObjectMethodInfo    ,-    asyncResultGetSourceObject              ,----- ** asyncResultGetUserData-    AsyncResultGetUserDataMethodInfo        ,-    asyncResultGetUserData                  ,----- ** asyncResultIsTagged-    AsyncResultIsTaggedMethodInfo           ,-    asyncResultIsTagged                     ,----- ** asyncResultLegacyPropagateError-    AsyncResultLegacyPropagateErrorMethodInfo,-    asyncResultLegacyPropagateError         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface AsyncResult --newtype AsyncResult = AsyncResult (ForeignPtr AsyncResult)-noAsyncResult :: Maybe AsyncResult-noAsyncResult = Nothing--type family ResolveAsyncResultMethod (t :: Symbol) (o :: *) :: * where-    ResolveAsyncResultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAsyncResultMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAsyncResultMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAsyncResultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAsyncResultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAsyncResultMethod "isTagged" o = AsyncResultIsTaggedMethodInfo-    ResolveAsyncResultMethod "legacyPropagateError" o = AsyncResultLegacyPropagateErrorMethodInfo-    ResolveAsyncResultMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAsyncResultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAsyncResultMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAsyncResultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAsyncResultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAsyncResultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAsyncResultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAsyncResultMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAsyncResultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAsyncResultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAsyncResultMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAsyncResultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAsyncResultMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAsyncResultMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAsyncResultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAsyncResultMethod "getSourceObject" o = AsyncResultGetSourceObjectMethodInfo-    ResolveAsyncResultMethod "getUserData" o = AsyncResultGetUserDataMethodInfo-    ResolveAsyncResultMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAsyncResultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAsyncResultMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAsyncResultMethod t AsyncResult, MethodInfo info AsyncResult p) => IsLabelProxy t (AsyncResult -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAsyncResultMethod t AsyncResult, MethodInfo info AsyncResult p) => IsLabel t (AsyncResult -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AsyncResult = AsyncResultAttributeList-type AsyncResultAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList AsyncResult = AsyncResultSignalList-type AsyncResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_async_result_get_type"-    c_g_async_result_get_type :: IO GType--type instance ParentTypes AsyncResult = AsyncResultParentTypes-type AsyncResultParentTypes = '[GObject.Object]--instance GObject AsyncResult where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_async_result_get_type-    --class GObject o => AsyncResultK o-instance (GObject o, IsDescendantOf AsyncResult o) => AsyncResultK o--toAsyncResult :: AsyncResultK o => o -> IO AsyncResult-toAsyncResult = unsafeCastTo AsyncResult---- method AsyncResult::get_source_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GObject" "Object")--- throws : False--- Skip return : False--foreign import ccall "g_async_result_get_source_object" g_async_result_get_source_object :: -    Ptr AsyncResult ->                      -- _obj : TInterface "Gio" "AsyncResult"-    IO (Ptr GObject.Object)---asyncResultGetSourceObject ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- _obj-    -> m GObject.Object                     -- result-asyncResultGetSourceObject _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_async_result_get_source_object _obj'-    checkUnexpectedReturnNULL "g_async_result_get_source_object" result-    result' <- (wrapObject GObject.Object) result-    touchManagedPtr _obj-    return result'--data AsyncResultGetSourceObjectMethodInfo-instance (signature ~ (m GObject.Object), MonadIO m, AsyncResultK a) => MethodInfo AsyncResultGetSourceObjectMethodInfo a signature where-    overloadedMethod _ = asyncResultGetSourceObject---- method AsyncResult::get_user_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "AsyncResult"-    IO (Ptr ())---asyncResultGetUserData ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- _obj-    -> m (Ptr ())                           -- result-asyncResultGetUserData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_async_result_get_user_data _obj'-    touchManagedPtr _obj-    return result--data AsyncResultGetUserDataMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, AsyncResultK a) => MethodInfo AsyncResultGetUserDataMethodInfo a signature where-    overloadedMethod _ = asyncResultGetUserData---- method AsyncResult::is_tagged--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "AsyncResult"-    Ptr () ->                               -- source_tag : TBasicType TPtr-    IO CInt---asyncResultIsTagged ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- _obj-    -> Ptr ()                               -- sourceTag-    -> m Bool                               -- result-asyncResultIsTagged _obj sourceTag = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_async_result_is_tagged _obj' sourceTag-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AsyncResultIsTaggedMethodInfo-instance (signature ~ (Ptr () -> m Bool), MonadIO m, AsyncResultK a) => MethodInfo AsyncResultIsTaggedMethodInfo a signature where-    overloadedMethod _ = asyncResultIsTagged---- method AsyncResult::legacy_propagate_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---asyncResultLegacyPropagateError ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-asyncResultLegacyPropagateError _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_async_result_legacy_propagate_error _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data AsyncResultLegacyPropagateErrorMethodInfo-instance (signature ~ (m ()), MonadIO m, AsyncResultK a) => MethodInfo AsyncResultLegacyPropagateErrorMethodInfo a signature where-    overloadedMethod _ = asyncResultLegacyPropagateError--
− GI/Gio/Interfaces/AsyncResult.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Interfaces.AsyncResult where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AsyncResult = AsyncResult (ForeignPtr AsyncResult)-instance GObject AsyncResult where-class GObject o => AsyncResultK o-instance (GObject o, IsDescendantOf AsyncResult o) => AsyncResultK o-data AsyncResultGetSourceObjectMethodInfo-data AsyncResultGetUserDataMethodInfo-data AsyncResultIsTaggedMethodInfo-data AsyncResultLegacyPropagateErrorMethodInfo
− GI/Gio/Interfaces/Converter.hs 
@@ -1,192 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.Converter-    ( ---- * Exported types-    Converter(..)                           ,-    noConverter                             ,-    ConverterK                              ,-    toConverter                             ,--- -- * Methods--- ** converterConvert-    ConverterConvertMethodInfo              ,-    converterConvert                        ,----- ** converterReset-    ConverterResetMethodInfo                ,-    converterReset                          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface Converter --newtype Converter = Converter (ForeignPtr Converter)-noConverter :: Maybe Converter-noConverter = Nothing--type family ResolveConverterMethod (t :: Symbol) (o :: *) :: * where-    ResolveConverterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveConverterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveConverterMethod "convert" o = ConverterConvertMethodInfo-    ResolveConverterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveConverterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveConverterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveConverterMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveConverterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveConverterMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveConverterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveConverterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveConverterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveConverterMethod "reset" o = ConverterResetMethodInfo-    ResolveConverterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveConverterMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveConverterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveConverterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveConverterMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveConverterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveConverterMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveConverterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveConverterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveConverterMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveConverterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveConverterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveConverterMethod t Converter, MethodInfo info Converter p) => IsLabelProxy t (Converter -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveConverterMethod t Converter, MethodInfo info Converter p) => IsLabel t (Converter -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Converter = ConverterAttributeList-type ConverterAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Converter = ConverterSignalList-type ConverterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_converter_get_type"-    c_g_converter_get_type :: IO GType--type instance ParentTypes Converter = ConverterParentTypes-type ConverterParentTypes = '[GObject.Object]--instance GObject Converter where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_converter_get_type-    --class GObject o => ConverterK o-instance (GObject o, IsDescendantOf Converter o) => ConverterK o--toConverter :: ConverterK o => o -> IO Converter-toConverter = unsafeCastTo Converter---- method Converter::convert--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inbuf", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "outbuf", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "outbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "ConverterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "inbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Gio" "ConverterResult")--- throws : True--- Skip return : False--foreign import ccall "g_converter_convert" g_converter_convert :: -    Ptr Converter ->                        -- _obj : TInterface "Gio" "Converter"-    Ptr Word8 ->                            -- inbuf : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- inbuf_size : TBasicType TUInt64-    Ptr () ->                               -- outbuf : TBasicType TPtr-    Word64 ->                               -- outbuf_size : TBasicType TUInt64-    CUInt ->                                -- flags : TInterface "Gio" "ConverterFlags"-    Ptr Word64 ->                           -- bytes_read : TBasicType TUInt64-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---converterConvert ::-    (MonadIO m, ConverterK a) =>-    a                                       -- _obj-    -> ByteString                           -- inbuf-    -> Ptr ()                               -- outbuf-    -> Word64                               -- outbufSize-    -> [ConverterFlags]                     -- flags-    -> m (ConverterResult,Word64,Word64)    -- result-converterConvert _obj inbuf outbuf outbufSize flags = liftIO $ do-    let inbufSize = fromIntegral $ B.length inbuf-    let _obj' = unsafeManagedPtrCastPtr _obj-    inbuf' <- packByteString inbuf-    let flags' = gflagsToWord flags-    bytesRead <- allocMem :: IO (Ptr Word64)-    bytesWritten <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_converter_convert _obj' inbuf' inbufSize outbuf outbufSize flags' bytesRead bytesWritten-        let result' = (toEnum . fromIntegral) result-        bytesRead' <- peek bytesRead-        bytesWritten' <- peek bytesWritten-        touchManagedPtr _obj-        freeMem inbuf'-        freeMem bytesRead-        freeMem bytesWritten-        return (result', bytesRead', bytesWritten')-     ) (do-        freeMem inbuf'-        freeMem bytesRead-        freeMem bytesWritten-     )--data ConverterConvertMethodInfo-instance (signature ~ (ByteString -> Ptr () -> Word64 -> [ConverterFlags] -> m (ConverterResult,Word64,Word64)), MonadIO m, ConverterK a) => MethodInfo ConverterConvertMethodInfo a signature where-    overloadedMethod _ = converterConvert---- method Converter::reset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "Converter"-    IO ()---converterReset ::-    (MonadIO m, ConverterK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-converterReset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_converter_reset _obj'-    touchManagedPtr _obj-    return ()--data ConverterResetMethodInfo-instance (signature ~ (m ()), MonadIO m, ConverterK a) => MethodInfo ConverterResetMethodInfo a signature where-    overloadedMethod _ = converterReset--
− GI/Gio/Interfaces/Converter.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Interfaces.Converter where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Converter = Converter (ForeignPtr Converter)-instance GObject Converter where-class GObject o => ConverterK o-instance (GObject o, IsDescendantOf Converter o) => ConverterK o-data ConverterConvertMethodInfo-data ConverterResetMethodInfo
− GI/Gio/Interfaces/DBusInterface.hs 
@@ -1,208 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.DBusInterface-    ( ---- * Exported types-    DBusInterface(..)                       ,-    noDBusInterface                         ,-    DBusInterfaceK                          ,-    toDBusInterface                         ,--- -- * Methods--- ** dBusInterfaceGetInfo-    DBusInterfaceGetInfoMethodInfo          ,-    dBusInterfaceGetInfo                    ,----- ** dBusInterfaceGetObject-    DBusInterfaceGetObjectMethodInfo        ,-    dBusInterfaceGetObject                  ,----- ** dBusInterfaceSetObject-    DBusInterfaceSetObjectMethodInfo        ,-    dBusInterfaceSetObject                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface DBusInterface --newtype DBusInterface = DBusInterface (ForeignPtr DBusInterface)-noDBusInterface :: Maybe DBusInterface-noDBusInterface = Nothing--type family ResolveDBusInterfaceMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusInterfaceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusInterfaceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusInterfaceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusInterfaceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusInterfaceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusInterfaceMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusInterfaceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusInterfaceMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusInterfaceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusInterfaceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusInterfaceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusInterfaceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusInterfaceMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusInterfaceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusInterfaceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusInterfaceMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusInterfaceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusInterfaceMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusInterfaceMethod "getInfo" o = DBusInterfaceGetInfoMethodInfo-    ResolveDBusInterfaceMethod "getObject" o = DBusInterfaceGetObjectMethodInfo-    ResolveDBusInterfaceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusInterfaceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusInterfaceMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusInterfaceMethod "setObject" o = DBusInterfaceSetObjectMethodInfo-    ResolveDBusInterfaceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusInterfaceMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusInterfaceMethod t DBusInterface, MethodInfo info DBusInterface p) => IsLabelProxy t (DBusInterface -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusInterfaceMethod t DBusInterface, MethodInfo info DBusInterface p) => IsLabel t (DBusInterface -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList DBusInterface = DBusInterfaceAttributeList-type DBusInterfaceAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList DBusInterface = DBusInterfaceSignalList-type DBusInterfaceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_dbus_interface_get_type"-    c_g_dbus_interface_get_type :: IO GType--type instance ParentTypes DBusInterface = DBusInterfaceParentTypes-type DBusInterfaceParentTypes = '[GObject.Object]--instance GObject DBusInterface where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_interface_get_type-    --class GObject o => DBusInterfaceK o-instance (GObject o, IsDescendantOf DBusInterface o) => DBusInterfaceK o--toDBusInterface :: DBusInterfaceK o => o -> IO DBusInterface-toDBusInterface = unsafeCastTo DBusInterface---- method DBusInterface::get_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusObject")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_dup_object" g_dbus_interface_dup_object :: -    Ptr DBusInterface ->                    -- _obj : TInterface "Gio" "DBusInterface"-    IO (Ptr DBusObject)---dBusInterfaceGetObject ::-    (MonadIO m, DBusInterfaceK a) =>-    a                                       -- _obj-    -> m DBusObject                         -- result-dBusInterfaceGetObject _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_interface_dup_object _obj'-    checkUnexpectedReturnNULL "g_dbus_interface_dup_object" result-    result' <- (wrapObject DBusObject) result-    touchManagedPtr _obj-    return result'--data DBusInterfaceGetObjectMethodInfo-instance (signature ~ (m DBusObject), MonadIO m, DBusInterfaceK a) => MethodInfo DBusInterfaceGetObjectMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceGetObject---- method DBusInterface::get_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusInterfaceInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_get_info" g_dbus_interface_get_info :: -    Ptr DBusInterface ->                    -- _obj : TInterface "Gio" "DBusInterface"-    IO (Ptr DBusInterfaceInfo)---dBusInterfaceGetInfo ::-    (MonadIO m, DBusInterfaceK a) =>-    a                                       -- _obj-    -> m DBusInterfaceInfo                  -- result-dBusInterfaceGetInfo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_interface_get_info _obj'-    checkUnexpectedReturnNULL "g_dbus_interface_get_info" result-    result' <- (newBoxed DBusInterfaceInfo) result-    touchManagedPtr _obj-    return result'--data DBusInterfaceGetInfoMethodInfo-instance (signature ~ (m DBusInterfaceInfo), MonadIO m, DBusInterfaceK a) => MethodInfo DBusInterfaceGetInfoMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceGetInfo---- method DBusInterface::set_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = True, 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 ->                    -- _obj : TInterface "Gio" "DBusInterface"-    Ptr DBusObject ->                       -- object : TInterface "Gio" "DBusObject"-    IO ()---dBusInterfaceSetObject ::-    (MonadIO m, DBusInterfaceK a, DBusObjectK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- object-    -> m ()                                 -- result-dBusInterfaceSetObject _obj object = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeObject <- case object of-        Nothing -> return nullPtr-        Just jObject -> do-            let jObject' = unsafeManagedPtrCastPtr jObject-            return jObject'-    g_dbus_interface_set_object _obj' maybeObject-    touchManagedPtr _obj-    whenJust object touchManagedPtr-    return ()--data DBusInterfaceSetObjectMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, DBusInterfaceK a, DBusObjectK b) => MethodInfo DBusInterfaceSetObjectMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSetObject--
− GI/Gio/Interfaces/DBusInterface.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gio.Interfaces.DBusInterface where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusInterface = DBusInterface (ForeignPtr DBusInterface)-instance GObject DBusInterface where-class GObject o => DBusInterfaceK o-instance (GObject o, IsDescendantOf DBusInterface o) => DBusInterfaceK o-data DBusInterfaceGetObjectMethodInfo-data DBusInterfaceGetInfoMethodInfo-data DBusInterfaceSetObjectMethodInfo
− GI/Gio/Interfaces/DBusObject.hs 
@@ -1,328 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.DBusObject-    ( ---- * Exported types-    DBusObject(..)                          ,-    noDBusObject                            ,-    DBusObjectK                             ,-    toDBusObject                            ,--- -- * Methods--- ** dBusObjectGetInterface-    DBusObjectGetInterfaceMethodInfo        ,-    dBusObjectGetInterface                  ,----- ** dBusObjectGetInterfaces-    DBusObjectGetInterfacesMethodInfo       ,-    dBusObjectGetInterfaces                 ,----- ** dBusObjectGetObjectPath-    DBusObjectGetObjectPathMethodInfo       ,-    dBusObjectGetObjectPath                 ,----- -- * Signals--- ** InterfaceAdded-    DBusObjectInterfaceAddedCallback        ,-    DBusObjectInterfaceAddedCallbackC       ,-    DBusObjectInterfaceAddedSignalInfo      ,-    afterDBusObjectInterfaceAdded           ,-    dBusObjectInterfaceAddedCallbackWrapper ,-    dBusObjectInterfaceAddedClosure         ,-    mkDBusObjectInterfaceAddedCallback      ,-    noDBusObjectInterfaceAddedCallback      ,-    onDBusObjectInterfaceAdded              ,----- ** InterfaceRemoved-    DBusObjectInterfaceRemovedCallback      ,-    DBusObjectInterfaceRemovedCallbackC     ,-    DBusObjectInterfaceRemovedSignalInfo    ,-    afterDBusObjectInterfaceRemoved         ,-    dBusObjectInterfaceRemovedCallbackWrapper,-    dBusObjectInterfaceRemovedClosure       ,-    mkDBusObjectInterfaceRemovedCallback    ,-    noDBusObjectInterfaceRemovedCallback    ,-    onDBusObjectInterfaceRemoved            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface DBusObject --newtype DBusObject = DBusObject (ForeignPtr DBusObject)-noDBusObject :: Maybe DBusObject-noDBusObject = Nothing--type family ResolveDBusObjectMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusObjectMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusObjectMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusObjectMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusObjectMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusObjectMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusObjectMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusObjectMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusObjectMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusObjectMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusObjectMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusObjectMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusObjectMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusObjectMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusObjectMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusObjectMethod "getInterface" o = DBusObjectGetInterfaceMethodInfo-    ResolveDBusObjectMethod "getInterfaces" o = DBusObjectGetInterfacesMethodInfo-    ResolveDBusObjectMethod "getObjectPath" o = DBusObjectGetObjectPathMethodInfo-    ResolveDBusObjectMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusObjectMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusObjectMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusObjectMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusObjectMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectMethod t DBusObject, MethodInfo info DBusObject p) => IsLabelProxy t (DBusObject -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusObjectMethod t DBusObject, MethodInfo info DBusObject p) => IsLabel t (DBusObject -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal DBusObject::interface-added-type DBusObjectInterfaceAddedCallback =-    DBusInterface ->-    IO ()--noDBusObjectInterfaceAddedCallback :: Maybe DBusObjectInterfaceAddedCallback-noDBusObjectInterfaceAddedCallback = Nothing--type DBusObjectInterfaceAddedCallbackC =-    Ptr () ->                               -- object-    Ptr DBusInterface ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDBusObjectInterfaceAddedCallback :: DBusObjectInterfaceAddedCallbackC -> IO (FunPtr DBusObjectInterfaceAddedCallbackC)--dBusObjectInterfaceAddedClosure :: DBusObjectInterfaceAddedCallback -> IO Closure-dBusObjectInterfaceAddedClosure cb = newCClosure =<< mkDBusObjectInterfaceAddedCallback wrapped-    where wrapped = dBusObjectInterfaceAddedCallbackWrapper cb--dBusObjectInterfaceAddedCallbackWrapper ::-    DBusObjectInterfaceAddedCallback ->-    Ptr () ->-    Ptr DBusInterface ->-    Ptr () ->-    IO ()-dBusObjectInterfaceAddedCallbackWrapper _cb _ interface _ = do-    interface' <- (newObject DBusInterface) interface-    _cb  interface'--onDBusObjectInterfaceAdded :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceAddedCallback -> m SignalHandlerId-onDBusObjectInterfaceAdded obj cb = liftIO $ connectDBusObjectInterfaceAdded obj cb SignalConnectBefore-afterDBusObjectInterfaceAdded :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceAddedCallback -> m SignalHandlerId-afterDBusObjectInterfaceAdded obj cb = connectDBusObjectInterfaceAdded obj cb SignalConnectAfter--connectDBusObjectInterfaceAdded :: (GObject a, MonadIO m) =>-                                   a -> DBusObjectInterfaceAddedCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusObjectInterfaceAdded obj cb after = liftIO $ do-    cb' <- mkDBusObjectInterfaceAddedCallback (dBusObjectInterfaceAddedCallbackWrapper cb)-    connectSignalFunPtr obj "interface-added" cb' after---- signal DBusObject::interface-removed-type DBusObjectInterfaceRemovedCallback =-    DBusInterface ->-    IO ()--noDBusObjectInterfaceRemovedCallback :: Maybe DBusObjectInterfaceRemovedCallback-noDBusObjectInterfaceRemovedCallback = Nothing--type DBusObjectInterfaceRemovedCallbackC =-    Ptr () ->                               -- object-    Ptr DBusInterface ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDBusObjectInterfaceRemovedCallback :: DBusObjectInterfaceRemovedCallbackC -> IO (FunPtr DBusObjectInterfaceRemovedCallbackC)--dBusObjectInterfaceRemovedClosure :: DBusObjectInterfaceRemovedCallback -> IO Closure-dBusObjectInterfaceRemovedClosure cb = newCClosure =<< mkDBusObjectInterfaceRemovedCallback wrapped-    where wrapped = dBusObjectInterfaceRemovedCallbackWrapper cb--dBusObjectInterfaceRemovedCallbackWrapper ::-    DBusObjectInterfaceRemovedCallback ->-    Ptr () ->-    Ptr DBusInterface ->-    Ptr () ->-    IO ()-dBusObjectInterfaceRemovedCallbackWrapper _cb _ interface _ = do-    interface' <- (newObject DBusInterface) interface-    _cb  interface'--onDBusObjectInterfaceRemoved :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceRemovedCallback -> m SignalHandlerId-onDBusObjectInterfaceRemoved obj cb = liftIO $ connectDBusObjectInterfaceRemoved obj cb SignalConnectBefore-afterDBusObjectInterfaceRemoved :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceRemovedCallback -> m SignalHandlerId-afterDBusObjectInterfaceRemoved obj cb = connectDBusObjectInterfaceRemoved obj cb SignalConnectAfter--connectDBusObjectInterfaceRemoved :: (GObject a, MonadIO m) =>-                                     a -> DBusObjectInterfaceRemovedCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusObjectInterfaceRemoved obj cb after = liftIO $ do-    cb' <- mkDBusObjectInterfaceRemovedCallback (dBusObjectInterfaceRemovedCallbackWrapper cb)-    connectSignalFunPtr obj "interface-removed" cb' after--type instance AttributeList DBusObject = DBusObjectAttributeList-type DBusObjectAttributeList = ('[ ] :: [(Symbol, *)])--data DBusObjectInterfaceAddedSignalInfo-instance SignalInfo DBusObjectInterfaceAddedSignalInfo where-    type HaskellCallbackType DBusObjectInterfaceAddedSignalInfo = DBusObjectInterfaceAddedCallback-    connectSignal _ = connectDBusObjectInterfaceAdded--data DBusObjectInterfaceRemovedSignalInfo-instance SignalInfo DBusObjectInterfaceRemovedSignalInfo where-    type HaskellCallbackType DBusObjectInterfaceRemovedSignalInfo = DBusObjectInterfaceRemovedCallback-    connectSignal _ = connectDBusObjectInterfaceRemoved--type instance SignalList DBusObject = DBusObjectSignalList-type DBusObjectSignalList = ('[ '("interfaceAdded", DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_dbus_object_get_type"-    c_g_dbus_object_get_type :: IO GType--type instance ParentTypes DBusObject = DBusObjectParentTypes-type DBusObjectParentTypes = '[GObject.Object]--instance GObject DBusObject where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_object_get_type-    --class GObject o => DBusObjectK o-instance (GObject o, IsDescendantOf DBusObject o) => DBusObjectK o--toDBusObject :: DBusObjectK o => o -> IO DBusObject-toDBusObject = unsafeCastTo DBusObject---- method DBusObject::get_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusInterface")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_get_interface" g_dbus_object_get_interface :: -    Ptr DBusObject ->                       -- _obj : TInterface "Gio" "DBusObject"-    CString ->                              -- interface_name : TBasicType TUTF8-    IO (Ptr DBusInterface)---dBusObjectGetInterface ::-    (MonadIO m, DBusObjectK a) =>-    a                                       -- _obj-    -> T.Text                               -- interfaceName-    -> m DBusInterface                      -- result-dBusObjectGetInterface _obj interfaceName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    interfaceName' <- textToCString interfaceName-    result <- g_dbus_object_get_interface _obj' interfaceName'-    checkUnexpectedReturnNULL "g_dbus_object_get_interface" result-    result' <- (wrapObject DBusInterface) result-    touchManagedPtr _obj-    freeMem interfaceName'-    return result'--data DBusObjectGetInterfaceMethodInfo-instance (signature ~ (T.Text -> m DBusInterface), MonadIO m, DBusObjectK a) => MethodInfo DBusObjectGetInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusObjectGetInterface---- method DBusObject::get_interfaces--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "DBusInterface"))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_get_interfaces" g_dbus_object_get_interfaces :: -    Ptr DBusObject ->                       -- _obj : TInterface "Gio" "DBusObject"-    IO (Ptr (GList (Ptr DBusInterface)))---dBusObjectGetInterfaces ::-    (MonadIO m, DBusObjectK a) =>-    a                                       -- _obj-    -> m [DBusInterface]                    -- result-dBusObjectGetInterfaces _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_object_get_interfaces _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapObject DBusInterface) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data DBusObjectGetInterfacesMethodInfo-instance (signature ~ (m [DBusInterface]), MonadIO m, DBusObjectK a) => MethodInfo DBusObjectGetInterfacesMethodInfo a signature where-    overloadedMethod _ = dBusObjectGetInterfaces---- method DBusObject::get_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "DBusObject"-    IO CString---dBusObjectGetObjectPath ::-    (MonadIO m, DBusObjectK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusObjectGetObjectPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_object_get_object_path _obj'-    checkUnexpectedReturnNULL "g_dbus_object_get_object_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusObjectGetObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusObjectK a) => MethodInfo DBusObjectGetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusObjectGetObjectPath--
− GI/Gio/Interfaces/DBusObject.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Interfaces.DBusObject where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusObject = DBusObject (ForeignPtr DBusObject)-data DBusObjectInterfaceAddedSignalInfo-data DBusObjectInterfaceRemovedSignalInfo-instance GObject DBusObject where-class GObject o => DBusObjectK o-instance (GObject o, IsDescendantOf DBusObject o) => DBusObjectK o-data DBusObjectGetInterfaceMethodInfo-data DBusObjectGetInterfacesMethodInfo-data DBusObjectGetObjectPathMethodInfo
− GI/Gio/Interfaces/DBusObjectManager.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 (garetxe@gmail.com)--}--module GI.Gio.Interfaces.DBusObjectManager-    ( ---- * Exported types-    DBusObjectManager(..)                   ,-    noDBusObjectManager                     ,-    DBusObjectManagerK                      ,-    toDBusObjectManager                     ,--- -- * Methods--- ** dBusObjectManagerGetInterface-    DBusObjectManagerGetInterfaceMethodInfo ,-    dBusObjectManagerGetInterface           ,----- ** dBusObjectManagerGetObject-    DBusObjectManagerGetObjectMethodInfo    ,-    dBusObjectManagerGetObject              ,----- ** dBusObjectManagerGetObjectPath-    DBusObjectManagerGetObjectPathMethodInfo,-    dBusObjectManagerGetObjectPath          ,----- ** dBusObjectManagerGetObjects-    DBusObjectManagerGetObjectsMethodInfo   ,-    dBusObjectManagerGetObjects             ,----- -- * Signals--- ** InterfaceAdded-    DBusObjectManagerInterfaceAddedCallback ,-    DBusObjectManagerInterfaceAddedCallbackC,-    DBusObjectManagerInterfaceAddedSignalInfo,-    afterDBusObjectManagerInterfaceAdded    ,-    dBusObjectManagerInterfaceAddedCallbackWrapper,-    dBusObjectManagerInterfaceAddedClosure  ,-    mkDBusObjectManagerInterfaceAddedCallback,-    noDBusObjectManagerInterfaceAddedCallback,-    onDBusObjectManagerInterfaceAdded       ,----- ** InterfaceRemoved-    DBusObjectManagerInterfaceRemovedCallback,-    DBusObjectManagerInterfaceRemovedCallbackC,-    DBusObjectManagerInterfaceRemovedSignalInfo,-    afterDBusObjectManagerInterfaceRemoved  ,-    dBusObjectManagerInterfaceRemovedCallbackWrapper,-    dBusObjectManagerInterfaceRemovedClosure,-    mkDBusObjectManagerInterfaceRemovedCallback,-    noDBusObjectManagerInterfaceRemovedCallback,-    onDBusObjectManagerInterfaceRemoved     ,----- ** ObjectAdded-    DBusObjectManagerObjectAddedCallback    ,-    DBusObjectManagerObjectAddedCallbackC   ,-    DBusObjectManagerObjectAddedSignalInfo  ,-    afterDBusObjectManagerObjectAdded       ,-    dBusObjectManagerObjectAddedCallbackWrapper,-    dBusObjectManagerObjectAddedClosure     ,-    mkDBusObjectManagerObjectAddedCallback  ,-    noDBusObjectManagerObjectAddedCallback  ,-    onDBusObjectManagerObjectAdded          ,----- ** ObjectRemoved-    DBusObjectManagerObjectRemovedCallback  ,-    DBusObjectManagerObjectRemovedCallbackC ,-    DBusObjectManagerObjectRemovedSignalInfo,-    afterDBusObjectManagerObjectRemoved     ,-    dBusObjectManagerObjectRemovedCallbackWrapper,-    dBusObjectManagerObjectRemovedClosure   ,-    mkDBusObjectManagerObjectRemovedCallback,-    noDBusObjectManagerObjectRemovedCallback,-    onDBusObjectManagerObjectRemoved        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface DBusObjectManager --newtype DBusObjectManager = DBusObjectManager (ForeignPtr DBusObjectManager)-noDBusObjectManager :: Maybe DBusObjectManager-noDBusObjectManager = Nothing--type family ResolveDBusObjectManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusObjectManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusObjectManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusObjectManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusObjectManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectManagerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusObjectManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusObjectManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusObjectManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusObjectManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusObjectManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusObjectManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusObjectManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusObjectManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusObjectManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusObjectManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusObjectManagerMethod "getInterface" o = DBusObjectManagerGetInterfaceMethodInfo-    ResolveDBusObjectManagerMethod "getObject" o = DBusObjectManagerGetObjectMethodInfo-    ResolveDBusObjectManagerMethod "getObjectPath" o = DBusObjectManagerGetObjectPathMethodInfo-    ResolveDBusObjectManagerMethod "getObjects" o = DBusObjectManagerGetObjectsMethodInfo-    ResolveDBusObjectManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusObjectManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusObjectManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusObjectManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusObjectManagerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectManagerMethod t DBusObjectManager, MethodInfo info DBusObjectManager p) => IsLabelProxy t (DBusObjectManager -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusObjectManagerMethod t DBusObjectManager, MethodInfo info DBusObjectManager p) => IsLabel t (DBusObjectManager -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal DBusObjectManager::interface-added-type DBusObjectManagerInterfaceAddedCallback =-    DBusObject ->-    DBusInterface ->-    IO ()--noDBusObjectManagerInterfaceAddedCallback :: Maybe DBusObjectManagerInterfaceAddedCallback-noDBusObjectManagerInterfaceAddedCallback = Nothing--type DBusObjectManagerInterfaceAddedCallbackC =-    Ptr () ->                               -- object-    Ptr DBusObject ->-    Ptr DBusInterface ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDBusObjectManagerInterfaceAddedCallback :: DBusObjectManagerInterfaceAddedCallbackC -> IO (FunPtr DBusObjectManagerInterfaceAddedCallbackC)--dBusObjectManagerInterfaceAddedClosure :: DBusObjectManagerInterfaceAddedCallback -> IO Closure-dBusObjectManagerInterfaceAddedClosure cb = newCClosure =<< mkDBusObjectManagerInterfaceAddedCallback wrapped-    where wrapped = dBusObjectManagerInterfaceAddedCallbackWrapper cb--dBusObjectManagerInterfaceAddedCallbackWrapper ::-    DBusObjectManagerInterfaceAddedCallback ->-    Ptr () ->-    Ptr DBusObject ->-    Ptr DBusInterface ->-    Ptr () ->-    IO ()-dBusObjectManagerInterfaceAddedCallbackWrapper _cb _ object interface _ = do-    object' <- (newObject DBusObject) object-    interface' <- (newObject DBusInterface) interface-    _cb  object' interface'--onDBusObjectManagerInterfaceAdded :: (GObject a, MonadIO m) => a -> DBusObjectManagerInterfaceAddedCallback -> m SignalHandlerId-onDBusObjectManagerInterfaceAdded obj cb = liftIO $ connectDBusObjectManagerInterfaceAdded obj cb SignalConnectBefore-afterDBusObjectManagerInterfaceAdded :: (GObject a, MonadIO m) => a -> DBusObjectManagerInterfaceAddedCallback -> m SignalHandlerId-afterDBusObjectManagerInterfaceAdded obj cb = connectDBusObjectManagerInterfaceAdded obj cb SignalConnectAfter--connectDBusObjectManagerInterfaceAdded :: (GObject a, MonadIO m) =>-                                          a -> DBusObjectManagerInterfaceAddedCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusObjectManagerInterfaceAdded obj cb after = liftIO $ do-    cb' <- mkDBusObjectManagerInterfaceAddedCallback (dBusObjectManagerInterfaceAddedCallbackWrapper cb)-    connectSignalFunPtr obj "interface-added" cb' after---- signal DBusObjectManager::interface-removed-type DBusObjectManagerInterfaceRemovedCallback =-    DBusObject ->-    DBusInterface ->-    IO ()--noDBusObjectManagerInterfaceRemovedCallback :: Maybe DBusObjectManagerInterfaceRemovedCallback-noDBusObjectManagerInterfaceRemovedCallback = Nothing--type DBusObjectManagerInterfaceRemovedCallbackC =-    Ptr () ->                               -- object-    Ptr DBusObject ->-    Ptr DBusInterface ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDBusObjectManagerInterfaceRemovedCallback :: DBusObjectManagerInterfaceRemovedCallbackC -> IO (FunPtr DBusObjectManagerInterfaceRemovedCallbackC)--dBusObjectManagerInterfaceRemovedClosure :: DBusObjectManagerInterfaceRemovedCallback -> IO Closure-dBusObjectManagerInterfaceRemovedClosure cb = newCClosure =<< mkDBusObjectManagerInterfaceRemovedCallback wrapped-    where wrapped = dBusObjectManagerInterfaceRemovedCallbackWrapper cb--dBusObjectManagerInterfaceRemovedCallbackWrapper ::-    DBusObjectManagerInterfaceRemovedCallback ->-    Ptr () ->-    Ptr DBusObject ->-    Ptr DBusInterface ->-    Ptr () ->-    IO ()-dBusObjectManagerInterfaceRemovedCallbackWrapper _cb _ object interface _ = do-    object' <- (newObject DBusObject) object-    interface' <- (newObject DBusInterface) interface-    _cb  object' interface'--onDBusObjectManagerInterfaceRemoved :: (GObject a, MonadIO m) => a -> DBusObjectManagerInterfaceRemovedCallback -> m SignalHandlerId-onDBusObjectManagerInterfaceRemoved obj cb = liftIO $ connectDBusObjectManagerInterfaceRemoved obj cb SignalConnectBefore-afterDBusObjectManagerInterfaceRemoved :: (GObject a, MonadIO m) => a -> DBusObjectManagerInterfaceRemovedCallback -> m SignalHandlerId-afterDBusObjectManagerInterfaceRemoved obj cb = connectDBusObjectManagerInterfaceRemoved obj cb SignalConnectAfter--connectDBusObjectManagerInterfaceRemoved :: (GObject a, MonadIO m) =>-                                            a -> DBusObjectManagerInterfaceRemovedCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusObjectManagerInterfaceRemoved obj cb after = liftIO $ do-    cb' <- mkDBusObjectManagerInterfaceRemovedCallback (dBusObjectManagerInterfaceRemovedCallbackWrapper cb)-    connectSignalFunPtr obj "interface-removed" cb' after---- signal DBusObjectManager::object-added-type DBusObjectManagerObjectAddedCallback =-    DBusObject ->-    IO ()--noDBusObjectManagerObjectAddedCallback :: Maybe DBusObjectManagerObjectAddedCallback-noDBusObjectManagerObjectAddedCallback = Nothing--type DBusObjectManagerObjectAddedCallbackC =-    Ptr () ->                               -- object-    Ptr DBusObject ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDBusObjectManagerObjectAddedCallback :: DBusObjectManagerObjectAddedCallbackC -> IO (FunPtr DBusObjectManagerObjectAddedCallbackC)--dBusObjectManagerObjectAddedClosure :: DBusObjectManagerObjectAddedCallback -> IO Closure-dBusObjectManagerObjectAddedClosure cb = newCClosure =<< mkDBusObjectManagerObjectAddedCallback wrapped-    where wrapped = dBusObjectManagerObjectAddedCallbackWrapper cb--dBusObjectManagerObjectAddedCallbackWrapper ::-    DBusObjectManagerObjectAddedCallback ->-    Ptr () ->-    Ptr DBusObject ->-    Ptr () ->-    IO ()-dBusObjectManagerObjectAddedCallbackWrapper _cb _ object _ = do-    object' <- (newObject DBusObject) object-    _cb  object'--onDBusObjectManagerObjectAdded :: (GObject a, MonadIO m) => a -> DBusObjectManagerObjectAddedCallback -> m SignalHandlerId-onDBusObjectManagerObjectAdded obj cb = liftIO $ connectDBusObjectManagerObjectAdded obj cb SignalConnectBefore-afterDBusObjectManagerObjectAdded :: (GObject a, MonadIO m) => a -> DBusObjectManagerObjectAddedCallback -> m SignalHandlerId-afterDBusObjectManagerObjectAdded obj cb = connectDBusObjectManagerObjectAdded obj cb SignalConnectAfter--connectDBusObjectManagerObjectAdded :: (GObject a, MonadIO m) =>-                                       a -> DBusObjectManagerObjectAddedCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusObjectManagerObjectAdded obj cb after = liftIO $ do-    cb' <- mkDBusObjectManagerObjectAddedCallback (dBusObjectManagerObjectAddedCallbackWrapper cb)-    connectSignalFunPtr obj "object-added" cb' after---- signal DBusObjectManager::object-removed-type DBusObjectManagerObjectRemovedCallback =-    DBusObject ->-    IO ()--noDBusObjectManagerObjectRemovedCallback :: Maybe DBusObjectManagerObjectRemovedCallback-noDBusObjectManagerObjectRemovedCallback = Nothing--type DBusObjectManagerObjectRemovedCallbackC =-    Ptr () ->                               -- object-    Ptr DBusObject ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDBusObjectManagerObjectRemovedCallback :: DBusObjectManagerObjectRemovedCallbackC -> IO (FunPtr DBusObjectManagerObjectRemovedCallbackC)--dBusObjectManagerObjectRemovedClosure :: DBusObjectManagerObjectRemovedCallback -> IO Closure-dBusObjectManagerObjectRemovedClosure cb = newCClosure =<< mkDBusObjectManagerObjectRemovedCallback wrapped-    where wrapped = dBusObjectManagerObjectRemovedCallbackWrapper cb--dBusObjectManagerObjectRemovedCallbackWrapper ::-    DBusObjectManagerObjectRemovedCallback ->-    Ptr () ->-    Ptr DBusObject ->-    Ptr () ->-    IO ()-dBusObjectManagerObjectRemovedCallbackWrapper _cb _ object _ = do-    object' <- (newObject DBusObject) object-    _cb  object'--onDBusObjectManagerObjectRemoved :: (GObject a, MonadIO m) => a -> DBusObjectManagerObjectRemovedCallback -> m SignalHandlerId-onDBusObjectManagerObjectRemoved obj cb = liftIO $ connectDBusObjectManagerObjectRemoved obj cb SignalConnectBefore-afterDBusObjectManagerObjectRemoved :: (GObject a, MonadIO m) => a -> DBusObjectManagerObjectRemovedCallback -> m SignalHandlerId-afterDBusObjectManagerObjectRemoved obj cb = connectDBusObjectManagerObjectRemoved obj cb SignalConnectAfter--connectDBusObjectManagerObjectRemoved :: (GObject a, MonadIO m) =>-                                         a -> DBusObjectManagerObjectRemovedCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusObjectManagerObjectRemoved obj cb after = liftIO $ do-    cb' <- mkDBusObjectManagerObjectRemovedCallback (dBusObjectManagerObjectRemovedCallbackWrapper cb)-    connectSignalFunPtr obj "object-removed" cb' after--type instance AttributeList DBusObjectManager = DBusObjectManagerAttributeList-type DBusObjectManagerAttributeList = ('[ ] :: [(Symbol, *)])--data DBusObjectManagerInterfaceAddedSignalInfo-instance SignalInfo DBusObjectManagerInterfaceAddedSignalInfo where-    type HaskellCallbackType DBusObjectManagerInterfaceAddedSignalInfo = DBusObjectManagerInterfaceAddedCallback-    connectSignal _ = connectDBusObjectManagerInterfaceAdded--data DBusObjectManagerInterfaceRemovedSignalInfo-instance SignalInfo DBusObjectManagerInterfaceRemovedSignalInfo where-    type HaskellCallbackType DBusObjectManagerInterfaceRemovedSignalInfo = DBusObjectManagerInterfaceRemovedCallback-    connectSignal _ = connectDBusObjectManagerInterfaceRemoved--data DBusObjectManagerObjectAddedSignalInfo-instance SignalInfo DBusObjectManagerObjectAddedSignalInfo where-    type HaskellCallbackType DBusObjectManagerObjectAddedSignalInfo = DBusObjectManagerObjectAddedCallback-    connectSignal _ = connectDBusObjectManagerObjectAdded--data DBusObjectManagerObjectRemovedSignalInfo-instance SignalInfo DBusObjectManagerObjectRemovedSignalInfo where-    type HaskellCallbackType DBusObjectManagerObjectRemovedSignalInfo = DBusObjectManagerObjectRemovedCallback-    connectSignal _ = connectDBusObjectManagerObjectRemoved--type instance SignalList DBusObjectManager = DBusObjectManagerSignalList-type DBusObjectManagerSignalList = ('[ '("interfaceAdded", DBusObjectManagerInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("objectAdded", DBusObjectManagerObjectAddedSignalInfo), '("objectRemoved", DBusObjectManagerObjectRemovedSignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_dbus_object_manager_get_type"-    c_g_dbus_object_manager_get_type :: IO GType--type instance ParentTypes DBusObjectManager = DBusObjectManagerParentTypes-type DBusObjectManagerParentTypes = '[GObject.Object]--instance GObject DBusObjectManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_object_manager_get_type-    --class GObject o => DBusObjectManagerK o-instance (GObject o, IsDescendantOf DBusObjectManager o) => DBusObjectManagerK o--toDBusObjectManager :: DBusObjectManagerK o => o -> IO DBusObjectManager-toDBusObjectManager = unsafeCastTo DBusObjectManager---- method DBusObjectManager::get_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusInterface")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_get_interface" g_dbus_object_manager_get_interface :: -    Ptr DBusObjectManager ->                -- _obj : TInterface "Gio" "DBusObjectManager"-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    IO (Ptr DBusInterface)---dBusObjectManagerGetInterface ::-    (MonadIO m, DBusObjectManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- objectPath-    -> T.Text                               -- interfaceName-    -> m DBusInterface                      -- result-dBusObjectManagerGetInterface _obj objectPath interfaceName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    result <- g_dbus_object_manager_get_interface _obj' objectPath' interfaceName'-    checkUnexpectedReturnNULL "g_dbus_object_manager_get_interface" result-    result' <- (wrapObject DBusInterface) result-    touchManagedPtr _obj-    freeMem objectPath'-    freeMem interfaceName'-    return result'--data DBusObjectManagerGetInterfaceMethodInfo-instance (signature ~ (T.Text -> T.Text -> m DBusInterface), MonadIO m, DBusObjectManagerK a) => MethodInfo DBusObjectManagerGetInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerGetInterface---- method DBusObjectManager::get_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusObject")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_get_object" g_dbus_object_manager_get_object :: -    Ptr DBusObjectManager ->                -- _obj : TInterface "Gio" "DBusObjectManager"-    CString ->                              -- object_path : TBasicType TUTF8-    IO (Ptr DBusObject)---dBusObjectManagerGetObject ::-    (MonadIO m, DBusObjectManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- objectPath-    -> m DBusObject                         -- result-dBusObjectManagerGetObject _obj objectPath = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    objectPath' <- textToCString objectPath-    result <- g_dbus_object_manager_get_object _obj' objectPath'-    checkUnexpectedReturnNULL "g_dbus_object_manager_get_object" result-    result' <- (wrapObject DBusObject) result-    touchManagedPtr _obj-    freeMem objectPath'-    return result'--data DBusObjectManagerGetObjectMethodInfo-instance (signature ~ (T.Text -> m DBusObject), MonadIO m, DBusObjectManagerK a) => MethodInfo DBusObjectManagerGetObjectMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerGetObject---- method DBusObjectManager::get_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "DBusObjectManager"-    IO CString---dBusObjectManagerGetObjectPath ::-    (MonadIO m, DBusObjectManagerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusObjectManagerGetObjectPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_object_manager_get_object_path _obj'-    checkUnexpectedReturnNULL "g_dbus_object_manager_get_object_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusObjectManagerGetObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusObjectManagerK a) => MethodInfo DBusObjectManagerGetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerGetObjectPath---- method DBusObjectManager::get_objects--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "DBusObject"))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_get_objects" g_dbus_object_manager_get_objects :: -    Ptr DBusObjectManager ->                -- _obj : TInterface "Gio" "DBusObjectManager"-    IO (Ptr (GList (Ptr DBusObject)))---dBusObjectManagerGetObjects ::-    (MonadIO m, DBusObjectManagerK a) =>-    a                                       -- _obj-    -> m [DBusObject]                       -- result-dBusObjectManagerGetObjects _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_object_manager_get_objects _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapObject DBusObject) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data DBusObjectManagerGetObjectsMethodInfo-instance (signature ~ (m [DBusObject]), MonadIO m, DBusObjectManagerK a) => MethodInfo DBusObjectManagerGetObjectsMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerGetObjects--
− GI/Gio/Interfaces/DBusObjectManager.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Interfaces.DBusObjectManager where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusObjectManager = DBusObjectManager (ForeignPtr DBusObjectManager)-data DBusObjectManagerInterfaceAddedSignalInfo-data DBusObjectManagerInterfaceRemovedSignalInfo-data DBusObjectManagerObjectAddedSignalInfo-data DBusObjectManagerObjectRemovedSignalInfo-instance GObject DBusObjectManager where-class GObject o => DBusObjectManagerK o-instance (GObject o, IsDescendantOf DBusObjectManager o) => DBusObjectManagerK o-data DBusObjectManagerGetInterfaceMethodInfo-data DBusObjectManagerGetObjectMethodInfo-data DBusObjectManagerGetObjectPathMethodInfo-data DBusObjectManagerGetObjectsMethodInfo
− GI/Gio/Interfaces/DesktopAppInfoLookup.hs 
@@ -1,136 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.DesktopAppInfoLookup-    ( ---- * Exported types-    DesktopAppInfoLookup(..)                ,-    noDesktopAppInfoLookup                  ,-    DesktopAppInfoLookupK                   ,-    toDesktopAppInfoLookup                  ,--- -- * Methods--- ** desktopAppInfoLookupGetDefaultForUriScheme-    DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo,-    desktopAppInfoLookupGetDefaultForUriScheme,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface DesktopAppInfoLookup --newtype DesktopAppInfoLookup = DesktopAppInfoLookup (ForeignPtr DesktopAppInfoLookup)-noDesktopAppInfoLookup :: Maybe DesktopAppInfoLookup-noDesktopAppInfoLookup = Nothing--type family ResolveDesktopAppInfoLookupMethod (t :: Symbol) (o :: *) :: * where-    ResolveDesktopAppInfoLookupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDesktopAppInfoLookupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDesktopAppInfoLookupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDesktopAppInfoLookupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDesktopAppInfoLookupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDesktopAppInfoLookupMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDesktopAppInfoLookupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDesktopAppInfoLookupMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDesktopAppInfoLookupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDesktopAppInfoLookupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDesktopAppInfoLookupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDesktopAppInfoLookupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDesktopAppInfoLookupMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDesktopAppInfoLookupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDesktopAppInfoLookupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDesktopAppInfoLookupMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDesktopAppInfoLookupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDesktopAppInfoLookupMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDesktopAppInfoLookupMethod "getDefaultForUriScheme" o = DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo-    ResolveDesktopAppInfoLookupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDesktopAppInfoLookupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDesktopAppInfoLookupMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDesktopAppInfoLookupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDesktopAppInfoLookupMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDesktopAppInfoLookupMethod t DesktopAppInfoLookup, MethodInfo info DesktopAppInfoLookup p) => IsLabelProxy t (DesktopAppInfoLookup -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDesktopAppInfoLookupMethod t DesktopAppInfoLookup, MethodInfo info DesktopAppInfoLookup p) => IsLabel t (DesktopAppInfoLookup -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList DesktopAppInfoLookup = DesktopAppInfoLookupAttributeList-type DesktopAppInfoLookupAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList DesktopAppInfoLookup = DesktopAppInfoLookupSignalList-type DesktopAppInfoLookupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_desktop_app_info_lookup_get_type"-    c_g_desktop_app_info_lookup_get_type :: IO GType--type instance ParentTypes DesktopAppInfoLookup = DesktopAppInfoLookupParentTypes-type DesktopAppInfoLookupParentTypes = '[GObject.Object]--instance GObject DesktopAppInfoLookup where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_desktop_app_info_lookup_get_type-    --class GObject o => DesktopAppInfoLookupK o-instance (GObject o, IsDescendantOf DesktopAppInfoLookup o) => DesktopAppInfoLookupK o--toDesktopAppInfoLookup :: DesktopAppInfoLookupK o => o -> IO DesktopAppInfoLookup-toDesktopAppInfoLookup = unsafeCastTo DesktopAppInfoLookup---- method DesktopAppInfoLookup::get_default_for_uri_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfoLookup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->             -- _obj : TInterface "Gio" "DesktopAppInfoLookup"-    CString ->                              -- uri_scheme : TBasicType TUTF8-    IO (Ptr AppInfo)--{-# DEPRECATED desktopAppInfoLookupGetDefaultForUriScheme ["The #GDesktopAppInfoLookup interface is deprecated and unused by gio."]#-}-desktopAppInfoLookupGetDefaultForUriScheme ::-    (MonadIO m, DesktopAppInfoLookupK a) =>-    a                                       -- _obj-    -> T.Text                               -- uriScheme-    -> m AppInfo                            -- result-desktopAppInfoLookupGetDefaultForUriScheme _obj uriScheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uriScheme' <- textToCString uriScheme-    result <- g_desktop_app_info_lookup_get_default_for_uri_scheme _obj' uriScheme'-    checkUnexpectedReturnNULL "g_desktop_app_info_lookup_get_default_for_uri_scheme" result-    result' <- (wrapObject AppInfo) result-    touchManagedPtr _obj-    freeMem uriScheme'-    return result'--data DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo-instance (signature ~ (T.Text -> m AppInfo), MonadIO m, DesktopAppInfoLookupK a) => MethodInfo DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoLookupGetDefaultForUriScheme--
− GI/Gio/Interfaces/DesktopAppInfoLookup.hs-boot 
@@ -1,14 +0,0 @@-module GI.Gio.Interfaces.DesktopAppInfoLookup where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DesktopAppInfoLookup = DesktopAppInfoLookup (ForeignPtr DesktopAppInfoLookup)-instance GObject DesktopAppInfoLookup where-class GObject o => DesktopAppInfoLookupK o-instance (GObject o, IsDescendantOf DesktopAppInfoLookup o) => DesktopAppInfoLookupK o-data DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo
− GI/Gio/Interfaces/Drive.hs 
@@ -1,1420 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.Drive-    ( ---- * Exported types-    Drive(..)                               ,-    noDrive                                 ,-    DriveK                                  ,-    toDrive                                 ,--- -- * Methods--- ** driveCanEject-    DriveCanEjectMethodInfo                 ,-    driveCanEject                           ,----- ** driveCanPollForMedia-    DriveCanPollForMediaMethodInfo          ,-    driveCanPollForMedia                    ,----- ** driveCanStart-    DriveCanStartMethodInfo                 ,-    driveCanStart                           ,----- ** driveCanStartDegraded-    DriveCanStartDegradedMethodInfo         ,-    driveCanStartDegraded                   ,----- ** driveCanStop-    DriveCanStopMethodInfo                  ,-    driveCanStop                            ,----- ** driveEject-    DriveEjectMethodInfo                    ,-    driveEject                              ,----- ** driveEjectFinish-    DriveEjectFinishMethodInfo              ,-    driveEjectFinish                        ,----- ** driveEjectWithOperation-    DriveEjectWithOperationMethodInfo       ,-    driveEjectWithOperation                 ,----- ** driveEjectWithOperationFinish-    DriveEjectWithOperationFinishMethodInfo ,-    driveEjectWithOperationFinish           ,----- ** driveEnumerateIdentifiers-    DriveEnumerateIdentifiersMethodInfo     ,-    driveEnumerateIdentifiers               ,----- ** driveGetIcon-    DriveGetIconMethodInfo                  ,-    driveGetIcon                            ,----- ** driveGetIdentifier-    DriveGetIdentifierMethodInfo            ,-    driveGetIdentifier                      ,----- ** driveGetName-    DriveGetNameMethodInfo                  ,-    driveGetName                            ,----- ** driveGetSortKey-    DriveGetSortKeyMethodInfo               ,-    driveGetSortKey                         ,----- ** driveGetStartStopType-    DriveGetStartStopTypeMethodInfo         ,-    driveGetStartStopType                   ,----- ** driveGetSymbolicIcon-    DriveGetSymbolicIconMethodInfo          ,-    driveGetSymbolicIcon                    ,----- ** driveGetVolumes-    DriveGetVolumesMethodInfo               ,-    driveGetVolumes                         ,----- ** driveHasMedia-    DriveHasMediaMethodInfo                 ,-    driveHasMedia                           ,----- ** driveHasVolumes-    DriveHasVolumesMethodInfo               ,-    driveHasVolumes                         ,----- ** driveIsMediaCheckAutomatic-    DriveIsMediaCheckAutomaticMethodInfo    ,-    driveIsMediaCheckAutomatic              ,----- ** driveIsMediaRemovable-    DriveIsMediaRemovableMethodInfo         ,-    driveIsMediaRemovable                   ,----- ** drivePollForMedia-    DrivePollForMediaMethodInfo             ,-    drivePollForMedia                       ,----- ** drivePollForMediaFinish-    DrivePollForMediaFinishMethodInfo       ,-    drivePollForMediaFinish                 ,----- ** driveStart-    DriveStartMethodInfo                    ,-    driveStart                              ,----- ** driveStartFinish-    DriveStartFinishMethodInfo              ,-    driveStartFinish                        ,----- ** driveStop-    DriveStopMethodInfo                     ,-    driveStop                               ,----- ** driveStopFinish-    DriveStopFinishMethodInfo               ,-    driveStopFinish                         ,----- -- * Signals--- ** Changed-    DriveChangedCallback                    ,-    DriveChangedCallbackC                   ,-    DriveChangedSignalInfo                  ,-    afterDriveChanged                       ,-    driveChangedCallbackWrapper             ,-    driveChangedClosure                     ,-    mkDriveChangedCallback                  ,-    noDriveChangedCallback                  ,-    onDriveChanged                          ,----- ** Disconnected-    DriveDisconnectedCallback               ,-    DriveDisconnectedCallbackC              ,-    DriveDisconnectedSignalInfo             ,-    afterDriveDisconnected                  ,-    driveDisconnectedCallbackWrapper        ,-    driveDisconnectedClosure                ,-    mkDriveDisconnectedCallback             ,-    noDriveDisconnectedCallback             ,-    onDriveDisconnected                     ,----- ** EjectButton-    DriveEjectButtonCallback                ,-    DriveEjectButtonCallbackC               ,-    DriveEjectButtonSignalInfo              ,-    afterDriveEjectButton                   ,-    driveEjectButtonCallbackWrapper         ,-    driveEjectButtonClosure                 ,-    mkDriveEjectButtonCallback              ,-    noDriveEjectButtonCallback              ,-    onDriveEjectButton                      ,----- ** StopButton-    DriveStopButtonCallback                 ,-    DriveStopButtonCallbackC                ,-    DriveStopButtonSignalInfo               ,-    afterDriveStopButton                    ,-    driveStopButtonCallbackWrapper          ,-    driveStopButtonClosure                  ,-    mkDriveStopButtonCallback               ,-    noDriveStopButtonCallback               ,-    onDriveStopButton                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface Drive --newtype Drive = Drive (ForeignPtr Drive)-noDrive :: Maybe Drive-noDrive = Nothing--type family ResolveDriveMethod (t :: Symbol) (o :: *) :: * where-    ResolveDriveMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDriveMethod "bindPropertyFull" o = GObject.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.ObjectForceFloatingMethodInfo-    ResolveDriveMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDriveMethod "hasMedia" o = DriveHasMediaMethodInfo-    ResolveDriveMethod "hasVolumes" o = DriveHasVolumesMethodInfo-    ResolveDriveMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDriveMethod "isMediaCheckAutomatic" o = DriveIsMediaCheckAutomaticMethodInfo-    ResolveDriveMethod "isMediaRemovable" o = DriveIsMediaRemovableMethodInfo-    ResolveDriveMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDriveMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDriveMethod "pollForMedia" o = DrivePollForMediaMethodInfo-    ResolveDriveMethod "pollForMediaFinish" o = DrivePollForMediaFinishMethodInfo-    ResolveDriveMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDriveMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDriveMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDriveMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDriveMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDriveMethod "start" o = DriveStartMethodInfo-    ResolveDriveMethod "startFinish" o = DriveStartFinishMethodInfo-    ResolveDriveMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDriveMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDriveMethod "stop" o = DriveStopMethodInfo-    ResolveDriveMethod "stopFinish" o = DriveStopFinishMethodInfo-    ResolveDriveMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDriveMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDriveMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDriveMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDriveMethod "getIcon" o = DriveGetIconMethodInfo-    ResolveDriveMethod "getIdentifier" o = DriveGetIdentifierMethodInfo-    ResolveDriveMethod "getName" o = DriveGetNameMethodInfo-    ResolveDriveMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDriveMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDriveMethod "getSortKey" o = DriveGetSortKeyMethodInfo-    ResolveDriveMethod "getStartStopType" o = DriveGetStartStopTypeMethodInfo-    ResolveDriveMethod "getSymbolicIcon" o = DriveGetSymbolicIconMethodInfo-    ResolveDriveMethod "getVolumes" o = DriveGetVolumesMethodInfo-    ResolveDriveMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDriveMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDriveMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDriveMethod t Drive, MethodInfo info Drive p) => IsLabelProxy t (Drive -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDriveMethod t Drive, MethodInfo info Drive p) => IsLabel t (Drive -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Drive::changed-type DriveChangedCallback =-    IO ()--noDriveChangedCallback :: Maybe DriveChangedCallback-noDriveChangedCallback = Nothing--type DriveChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDriveChangedCallback :: DriveChangedCallbackC -> IO (FunPtr DriveChangedCallbackC)--driveChangedClosure :: DriveChangedCallback -> IO Closure-driveChangedClosure cb = newCClosure =<< mkDriveChangedCallback wrapped-    where wrapped = driveChangedCallbackWrapper cb--driveChangedCallbackWrapper ::-    DriveChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-driveChangedCallbackWrapper _cb _ _ = do-    _cb --onDriveChanged :: (GObject a, MonadIO m) => a -> DriveChangedCallback -> m SignalHandlerId-onDriveChanged obj cb = liftIO $ connectDriveChanged obj cb SignalConnectBefore-afterDriveChanged :: (GObject a, MonadIO m) => a -> DriveChangedCallback -> m SignalHandlerId-afterDriveChanged obj cb = connectDriveChanged obj cb SignalConnectAfter--connectDriveChanged :: (GObject a, MonadIO m) =>-                       a -> DriveChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectDriveChanged obj cb after = liftIO $ do-    cb' <- mkDriveChangedCallback (driveChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after---- signal Drive::disconnected-type DriveDisconnectedCallback =-    IO ()--noDriveDisconnectedCallback :: Maybe DriveDisconnectedCallback-noDriveDisconnectedCallback = Nothing--type DriveDisconnectedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDriveDisconnectedCallback :: DriveDisconnectedCallbackC -> IO (FunPtr DriveDisconnectedCallbackC)--driveDisconnectedClosure :: DriveDisconnectedCallback -> IO Closure-driveDisconnectedClosure cb = newCClosure =<< mkDriveDisconnectedCallback wrapped-    where wrapped = driveDisconnectedCallbackWrapper cb--driveDisconnectedCallbackWrapper ::-    DriveDisconnectedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-driveDisconnectedCallbackWrapper _cb _ _ = do-    _cb --onDriveDisconnected :: (GObject a, MonadIO m) => a -> DriveDisconnectedCallback -> m SignalHandlerId-onDriveDisconnected obj cb = liftIO $ connectDriveDisconnected obj cb SignalConnectBefore-afterDriveDisconnected :: (GObject a, MonadIO m) => a -> DriveDisconnectedCallback -> m SignalHandlerId-afterDriveDisconnected obj cb = connectDriveDisconnected obj cb SignalConnectAfter--connectDriveDisconnected :: (GObject a, MonadIO m) =>-                            a -> DriveDisconnectedCallback -> SignalConnectMode -> m SignalHandlerId-connectDriveDisconnected obj cb after = liftIO $ do-    cb' <- mkDriveDisconnectedCallback (driveDisconnectedCallbackWrapper cb)-    connectSignalFunPtr obj "disconnected" cb' after---- signal Drive::eject-button-type DriveEjectButtonCallback =-    IO ()--noDriveEjectButtonCallback :: Maybe DriveEjectButtonCallback-noDriveEjectButtonCallback = Nothing--type DriveEjectButtonCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDriveEjectButtonCallback :: DriveEjectButtonCallbackC -> IO (FunPtr DriveEjectButtonCallbackC)--driveEjectButtonClosure :: DriveEjectButtonCallback -> IO Closure-driveEjectButtonClosure cb = newCClosure =<< mkDriveEjectButtonCallback wrapped-    where wrapped = driveEjectButtonCallbackWrapper cb--driveEjectButtonCallbackWrapper ::-    DriveEjectButtonCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-driveEjectButtonCallbackWrapper _cb _ _ = do-    _cb --onDriveEjectButton :: (GObject a, MonadIO m) => a -> DriveEjectButtonCallback -> m SignalHandlerId-onDriveEjectButton obj cb = liftIO $ connectDriveEjectButton obj cb SignalConnectBefore-afterDriveEjectButton :: (GObject a, MonadIO m) => a -> DriveEjectButtonCallback -> m SignalHandlerId-afterDriveEjectButton obj cb = connectDriveEjectButton obj cb SignalConnectAfter--connectDriveEjectButton :: (GObject a, MonadIO m) =>-                           a -> DriveEjectButtonCallback -> SignalConnectMode -> m SignalHandlerId-connectDriveEjectButton obj cb after = liftIO $ do-    cb' <- mkDriveEjectButtonCallback (driveEjectButtonCallbackWrapper cb)-    connectSignalFunPtr obj "eject-button" cb' after---- signal Drive::stop-button-type DriveStopButtonCallback =-    IO ()--noDriveStopButtonCallback :: Maybe DriveStopButtonCallback-noDriveStopButtonCallback = Nothing--type DriveStopButtonCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDriveStopButtonCallback :: DriveStopButtonCallbackC -> IO (FunPtr DriveStopButtonCallbackC)--driveStopButtonClosure :: DriveStopButtonCallback -> IO Closure-driveStopButtonClosure cb = newCClosure =<< mkDriveStopButtonCallback wrapped-    where wrapped = driveStopButtonCallbackWrapper cb--driveStopButtonCallbackWrapper ::-    DriveStopButtonCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-driveStopButtonCallbackWrapper _cb _ _ = do-    _cb --onDriveStopButton :: (GObject a, MonadIO m) => a -> DriveStopButtonCallback -> m SignalHandlerId-onDriveStopButton obj cb = liftIO $ connectDriveStopButton obj cb SignalConnectBefore-afterDriveStopButton :: (GObject a, MonadIO m) => a -> DriveStopButtonCallback -> m SignalHandlerId-afterDriveStopButton obj cb = connectDriveStopButton obj cb SignalConnectAfter--connectDriveStopButton :: (GObject a, MonadIO m) =>-                          a -> DriveStopButtonCallback -> SignalConnectMode -> m SignalHandlerId-connectDriveStopButton obj cb after = liftIO $ do-    cb' <- mkDriveStopButtonCallback (driveStopButtonCallbackWrapper cb)-    connectSignalFunPtr obj "stop-button" cb' after--type instance AttributeList Drive = DriveAttributeList-type DriveAttributeList = ('[ ] :: [(Symbol, *)])--data DriveChangedSignalInfo-instance SignalInfo DriveChangedSignalInfo where-    type HaskellCallbackType DriveChangedSignalInfo = DriveChangedCallback-    connectSignal _ = connectDriveChanged--data DriveDisconnectedSignalInfo-instance SignalInfo DriveDisconnectedSignalInfo where-    type HaskellCallbackType DriveDisconnectedSignalInfo = DriveDisconnectedCallback-    connectSignal _ = connectDriveDisconnected--data DriveEjectButtonSignalInfo-instance SignalInfo DriveEjectButtonSignalInfo where-    type HaskellCallbackType DriveEjectButtonSignalInfo = DriveEjectButtonCallback-    connectSignal _ = connectDriveEjectButton--data DriveStopButtonSignalInfo-instance SignalInfo DriveStopButtonSignalInfo where-    type HaskellCallbackType DriveStopButtonSignalInfo = DriveStopButtonCallback-    connectSignal _ = connectDriveStopButton--type instance SignalList Drive = DriveSignalList-type DriveSignalList = ('[ '("changed", DriveChangedSignalInfo), '("disconnected", DriveDisconnectedSignalInfo), '("ejectButton", DriveEjectButtonSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("stopButton", DriveStopButtonSignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_drive_get_type"-    c_g_drive_get_type :: IO GType--type instance ParentTypes Drive = DriveParentTypes-type DriveParentTypes = '[GObject.Object]--instance GObject Drive where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_drive_get_type-    --class GObject o => DriveK o-instance (GObject o, IsDescendantOf Drive o) => DriveK o--toDrive :: DriveK o => o -> IO Drive-toDrive = unsafeCastTo Drive---- method Drive::can_eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO CInt---driveCanEject ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-driveCanEject _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_can_eject _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DriveCanEjectMethodInfo-instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveCanEjectMethodInfo a signature where-    overloadedMethod _ = driveCanEject---- method Drive::can_poll_for_media--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO CInt---driveCanPollForMedia ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-driveCanPollForMedia _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_can_poll_for_media _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DriveCanPollForMediaMethodInfo-instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveCanPollForMediaMethodInfo a signature where-    overloadedMethod _ = driveCanPollForMedia---- method Drive::can_start--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO CInt---driveCanStart ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-driveCanStart _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_can_start _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DriveCanStartMethodInfo-instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveCanStartMethodInfo a signature where-    overloadedMethod _ = driveCanStart---- method Drive::can_start_degraded--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO CInt---driveCanStartDegraded ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-driveCanStartDegraded _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_can_start_degraded _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DriveCanStartDegradedMethodInfo-instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveCanStartDegradedMethodInfo a signature where-    overloadedMethod _ = driveCanStartDegraded---- method Drive::can_stop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO CInt---driveCanStop ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-driveCanStop _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_can_stop _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DriveCanStopMethodInfo-instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveCanStopMethodInfo a signature where-    overloadedMethod _ = driveCanStop---- method Drive::eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{-# DEPRECATED driveEject ["(Since version 2.22)","Use g_drive_eject_with_operation() instead."]#-}-driveEject ::-    (MonadIO m, DriveK a, CancellableK b) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-driveEject _obj flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_drive_eject _obj' flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data DriveEjectMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DriveK a, CancellableK b) => MethodInfo DriveEjectMethodInfo a signature where-    overloadedMethod _ = driveEject---- method Drive::eject_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED driveEjectFinish ["(Since version 2.22)","Use g_drive_eject_with_operation_finish() instead."]#-}-driveEjectFinish ::-    (MonadIO m, DriveK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-driveEjectFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_drive_eject_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data DriveEjectFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DriveK a, AsyncResultK b) => MethodInfo DriveEjectFinishMethodInfo a signature where-    overloadedMethod _ = driveEjectFinish---- method Drive::eject_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---driveEjectWithOperation ::-    (MonadIO m, DriveK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-driveEjectWithOperation _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_drive_eject_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data DriveEjectWithOperationMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DriveK a, MountOperationK b, CancellableK c) => MethodInfo DriveEjectWithOperationMethodInfo a signature where-    overloadedMethod _ = driveEjectWithOperation---- method Drive::eject_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---driveEjectWithOperationFinish ::-    (MonadIO m, DriveK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-driveEjectWithOperationFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_drive_eject_with_operation_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data DriveEjectWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DriveK a, AsyncResultK b) => MethodInfo DriveEjectWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = driveEjectWithOperationFinish---- method Drive::enumerate_identifiers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO (Ptr CString)---driveEnumerateIdentifiers ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-driveEnumerateIdentifiers _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_enumerate_identifiers _obj'-    checkUnexpectedReturnNULL "g_drive_enumerate_identifiers" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    return result'--data DriveEnumerateIdentifiersMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, DriveK a) => MethodInfo DriveEnumerateIdentifiersMethodInfo a signature where-    overloadedMethod _ = driveEnumerateIdentifiers---- method Drive::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_drive_get_icon" g_drive_get_icon :: -    Ptr Drive ->                            -- _obj : TInterface "Gio" "Drive"-    IO (Ptr Icon)---driveGetIcon ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m Icon                               -- result-driveGetIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_get_icon _obj'-    checkUnexpectedReturnNULL "g_drive_get_icon" result-    result' <- (wrapObject Icon) result-    touchManagedPtr _obj-    return result'--data DriveGetIconMethodInfo-instance (signature ~ (m Icon), MonadIO m, DriveK a) => MethodInfo DriveGetIconMethodInfo a signature where-    overloadedMethod _ = driveGetIcon---- method Drive::get_identifier--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    CString ->                              -- kind : TBasicType TUTF8-    IO CString---driveGetIdentifier ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> T.Text                               -- kind-    -> m T.Text                             -- result-driveGetIdentifier _obj kind = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    kind' <- textToCString kind-    result <- g_drive_get_identifier _obj' kind'-    checkUnexpectedReturnNULL "g_drive_get_identifier" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem kind'-    return result'--data DriveGetIdentifierMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, DriveK a) => MethodInfo DriveGetIdentifierMethodInfo a signature where-    overloadedMethod _ = driveGetIdentifier---- method Drive::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO CString---driveGetName ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-driveGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_get_name _obj'-    checkUnexpectedReturnNULL "g_drive_get_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DriveGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DriveK a) => MethodInfo DriveGetNameMethodInfo a signature where-    overloadedMethod _ = driveGetName---- method Drive::get_sort_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO CString---driveGetSortKey ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-driveGetSortKey _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_get_sort_key _obj'-    checkUnexpectedReturnNULL "g_drive_get_sort_key" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DriveGetSortKeyMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DriveK a) => MethodInfo DriveGetSortKeyMethodInfo a signature where-    overloadedMethod _ = driveGetSortKey---- method Drive::get_start_stop_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DriveStartStopType")--- throws : False--- Skip return : False--foreign import ccall "g_drive_get_start_stop_type" g_drive_get_start_stop_type :: -    Ptr Drive ->                            -- _obj : TInterface "Gio" "Drive"-    IO CUInt---driveGetStartStopType ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m DriveStartStopType                 -- result-driveGetStartStopType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_get_start_stop_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DriveGetStartStopTypeMethodInfo-instance (signature ~ (m DriveStartStopType), MonadIO m, DriveK a) => MethodInfo DriveGetStartStopTypeMethodInfo a signature where-    overloadedMethod _ = driveGetStartStopType---- method Drive::get_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_drive_get_symbolic_icon" g_drive_get_symbolic_icon :: -    Ptr Drive ->                            -- _obj : TInterface "Gio" "Drive"-    IO (Ptr Icon)---driveGetSymbolicIcon ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m Icon                               -- result-driveGetSymbolicIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_get_symbolic_icon _obj'-    checkUnexpectedReturnNULL "g_drive_get_symbolic_icon" result-    result' <- (wrapObject Icon) result-    touchManagedPtr _obj-    return result'--data DriveGetSymbolicIconMethodInfo-instance (signature ~ (m Icon), MonadIO m, DriveK a) => MethodInfo DriveGetSymbolicIconMethodInfo a signature where-    overloadedMethod _ = driveGetSymbolicIcon---- method Drive::get_volumes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "Volume"))--- throws : False--- Skip return : False--foreign import ccall "g_drive_get_volumes" g_drive_get_volumes :: -    Ptr Drive ->                            -- _obj : TInterface "Gio" "Drive"-    IO (Ptr (GList (Ptr Volume)))---driveGetVolumes ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m [Volume]                           -- result-driveGetVolumes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_get_volumes _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Volume) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data DriveGetVolumesMethodInfo-instance (signature ~ (m [Volume]), MonadIO m, DriveK a) => MethodInfo DriveGetVolumesMethodInfo a signature where-    overloadedMethod _ = driveGetVolumes---- method Drive::has_media--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO CInt---driveHasMedia ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-driveHasMedia _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_has_media _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DriveHasMediaMethodInfo-instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveHasMediaMethodInfo a signature where-    overloadedMethod _ = driveHasMedia---- method Drive::has_volumes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO CInt---driveHasVolumes ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-driveHasVolumes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_has_volumes _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DriveHasVolumesMethodInfo-instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveHasVolumesMethodInfo a signature where-    overloadedMethod _ = driveHasVolumes---- method Drive::is_media_check_automatic--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO CInt---driveIsMediaCheckAutomatic ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-driveIsMediaCheckAutomatic _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_is_media_check_automatic _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DriveIsMediaCheckAutomaticMethodInfo-instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveIsMediaCheckAutomaticMethodInfo a signature where-    overloadedMethod _ = driveIsMediaCheckAutomatic---- method Drive::is_media_removable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    IO CInt---driveIsMediaRemovable ::-    (MonadIO m, DriveK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-driveIsMediaRemovable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_drive_is_media_removable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DriveIsMediaRemovableMethodInfo-instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveIsMediaRemovableMethodInfo a signature where-    overloadedMethod _ = driveIsMediaRemovable---- method Drive::poll_for_media--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---drivePollForMedia ::-    (MonadIO m, DriveK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-drivePollForMedia _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_drive_poll_for_media _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data DrivePollForMediaMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DriveK a, CancellableK b) => MethodInfo DrivePollForMediaMethodInfo a signature where-    overloadedMethod _ = drivePollForMedia---- method Drive::poll_for_media_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---drivePollForMediaFinish ::-    (MonadIO m, DriveK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-drivePollForMediaFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_drive_poll_for_media_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data DrivePollForMediaFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DriveK a, AsyncResultK b) => MethodInfo DrivePollForMediaFinishMethodInfo a signature where-    overloadedMethod _ = drivePollForMediaFinish---- method Drive::start--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DriveStartFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    CUInt ->                                -- flags : TInterface "Gio" "DriveStartFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---driveStart ::-    (MonadIO m, DriveK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [DriveStartFlags]                    -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-driveStart _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_drive_start _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data DriveStartMethodInfo-instance (signature ~ ([DriveStartFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DriveK a, MountOperationK b, CancellableK c) => MethodInfo DriveStartMethodInfo a signature where-    overloadedMethod _ = driveStart---- method Drive::start_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---driveStartFinish ::-    (MonadIO m, DriveK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-driveStartFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_drive_start_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data DriveStartFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DriveK a, AsyncResultK b) => MethodInfo DriveStartFinishMethodInfo a signature where-    overloadedMethod _ = driveStartFinish---- method Drive::stop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---driveStop ::-    (MonadIO m, DriveK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-driveStop _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_drive_stop _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data DriveStopMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DriveK a, MountOperationK b, CancellableK c) => MethodInfo DriveStopMethodInfo a signature where-    overloadedMethod _ = driveStop---- method Drive::stop_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Drive"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---driveStopFinish ::-    (MonadIO m, DriveK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-driveStopFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_drive_stop_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data DriveStopFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DriveK a, AsyncResultK b) => MethodInfo DriveStopFinishMethodInfo a signature where-    overloadedMethod _ = driveStopFinish--
− GI/Gio/Interfaces/Drive.hs-boot 
@@ -1,44 +0,0 @@-module GI.Gio.Interfaces.Drive where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Drive = Drive (ForeignPtr Drive)-data DriveChangedSignalInfo-data DriveDisconnectedSignalInfo-data DriveEjectButtonSignalInfo-data DriveStopButtonSignalInfo-instance GObject Drive where-class GObject o => DriveK o-instance (GObject o, IsDescendantOf Drive o) => DriveK o-data DriveCanEjectMethodInfo-data DriveCanPollForMediaMethodInfo-data DriveCanStartMethodInfo-data DriveCanStartDegradedMethodInfo-data DriveCanStopMethodInfo-data DriveEjectMethodInfo-data DriveEjectFinishMethodInfo-data DriveEjectWithOperationMethodInfo-data DriveEjectWithOperationFinishMethodInfo-data DriveEnumerateIdentifiersMethodInfo-data DriveGetIconMethodInfo-data DriveGetIdentifierMethodInfo-data DriveGetNameMethodInfo-data DriveGetSortKeyMethodInfo-data DriveGetStartStopTypeMethodInfo-data DriveGetSymbolicIconMethodInfo-data DriveGetVolumesMethodInfo-data DriveHasMediaMethodInfo-data DriveHasVolumesMethodInfo-data DriveIsMediaCheckAutomaticMethodInfo-data DriveIsMediaRemovableMethodInfo-data DrivePollForMediaMethodInfo-data DrivePollForMediaFinishMethodInfo-data DriveStartMethodInfo-data DriveStartFinishMethodInfo-data DriveStopMethodInfo-data DriveStopFinishMethodInfo
− GI/Gio/Interfaces/File.hs 
@@ -1,5994 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.File-    ( ---- * Exported types-    File(..)                                ,-    noFile                                  ,-    FileK                                   ,-    toFile                                  ,--- -- * Methods--- ** fileAppendTo-    FileAppendToMethodInfo                  ,-    fileAppendTo                            ,----- ** fileAppendToAsync-    FileAppendToAsyncMethodInfo             ,-    fileAppendToAsync                       ,----- ** fileAppendToFinish-    FileAppendToFinishMethodInfo            ,-    fileAppendToFinish                      ,----- ** fileCopy-    FileCopyMethodInfo                      ,-    fileCopy                                ,----- ** fileCopyAttributes-    FileCopyAttributesMethodInfo            ,-    fileCopyAttributes                      ,----- ** fileCopyFinish-    FileCopyFinishMethodInfo                ,-    fileCopyFinish                          ,----- ** fileCreate-    FileCreateMethodInfo                    ,-    fileCreate                              ,----- ** fileCreateAsync-    FileCreateAsyncMethodInfo               ,-    fileCreateAsync                         ,----- ** fileCreateFinish-    FileCreateFinishMethodInfo              ,-    fileCreateFinish                        ,----- ** fileCreateReadwrite-    FileCreateReadwriteMethodInfo           ,-    fileCreateReadwrite                     ,----- ** fileCreateReadwriteAsync-    FileCreateReadwriteAsyncMethodInfo      ,-    fileCreateReadwriteAsync                ,----- ** fileCreateReadwriteFinish-    FileCreateReadwriteFinishMethodInfo     ,-    fileCreateReadwriteFinish               ,----- ** fileDelete-    FileDeleteMethodInfo                    ,-    fileDelete                              ,----- ** fileDeleteAsync-    FileDeleteAsyncMethodInfo               ,-    fileDeleteAsync                         ,----- ** fileDeleteFinish-    FileDeleteFinishMethodInfo              ,-    fileDeleteFinish                        ,----- ** fileDup-    FileDupMethodInfo                       ,-    fileDup                                 ,----- ** fileEjectMountable-    FileEjectMountableMethodInfo            ,-    fileEjectMountable                      ,----- ** fileEjectMountableFinish-    FileEjectMountableFinishMethodInfo      ,-    fileEjectMountableFinish                ,----- ** fileEjectMountableWithOperation-    FileEjectMountableWithOperationMethodInfo,-    fileEjectMountableWithOperation         ,----- ** fileEjectMountableWithOperationFinish-    FileEjectMountableWithOperationFinishMethodInfo,-    fileEjectMountableWithOperationFinish   ,----- ** fileEnumerateChildren-    FileEnumerateChildrenMethodInfo         ,-    fileEnumerateChildren                   ,----- ** fileEnumerateChildrenAsync-    FileEnumerateChildrenAsyncMethodInfo    ,-    fileEnumerateChildrenAsync              ,----- ** fileEnumerateChildrenFinish-    FileEnumerateChildrenFinishMethodInfo   ,-    fileEnumerateChildrenFinish             ,----- ** fileEqual-    FileEqualMethodInfo                     ,-    fileEqual                               ,----- ** fileFindEnclosingMount-    FileFindEnclosingMountMethodInfo        ,-    fileFindEnclosingMount                  ,----- ** fileFindEnclosingMountAsync-    FileFindEnclosingMountAsyncMethodInfo   ,-    fileFindEnclosingMountAsync             ,----- ** fileFindEnclosingMountFinish-    FileFindEnclosingMountFinishMethodInfo  ,-    fileFindEnclosingMountFinish            ,----- ** fileGetBasename-    FileGetBasenameMethodInfo               ,-    fileGetBasename                         ,----- ** fileGetChild-    FileGetChildMethodInfo                  ,-    fileGetChild                            ,----- ** fileGetChildForDisplayName-    FileGetChildForDisplayNameMethodInfo    ,-    fileGetChildForDisplayName              ,----- ** fileGetParent-    FileGetParentMethodInfo                 ,-    fileGetParent                           ,----- ** fileGetParseName-    FileGetParseNameMethodInfo              ,-    fileGetParseName                        ,----- ** fileGetPath-    FileGetPathMethodInfo                   ,-    fileGetPath                             ,----- ** fileGetRelativePath-    FileGetRelativePathMethodInfo           ,-    fileGetRelativePath                     ,----- ** fileGetUri-    FileGetUriMethodInfo                    ,-    fileGetUri                              ,----- ** fileGetUriScheme-    FileGetUriSchemeMethodInfo              ,-    fileGetUriScheme                        ,----- ** fileHasParent-    FileHasParentMethodInfo                 ,-    fileHasParent                           ,----- ** fileHasPrefix-    FileHasPrefixMethodInfo                 ,-    fileHasPrefix                           ,----- ** fileHasUriScheme-    FileHasUriSchemeMethodInfo              ,-    fileHasUriScheme                        ,----- ** fileHash-    FileHashMethodInfo                      ,-    fileHash                                ,----- ** fileIsNative-    FileIsNativeMethodInfo                  ,-    fileIsNative                            ,----- ** fileLoadContents-    FileLoadContentsMethodInfo              ,-    fileLoadContents                        ,----- ** fileLoadContentsAsync-    FileLoadContentsAsyncMethodInfo         ,-    fileLoadContentsAsync                   ,----- ** fileLoadContentsFinish-    FileLoadContentsFinishMethodInfo        ,-    fileLoadContentsFinish                  ,----- ** fileLoadPartialContentsFinish-    FileLoadPartialContentsFinishMethodInfo ,-    fileLoadPartialContentsFinish           ,----- ** fileMakeDirectory-    FileMakeDirectoryMethodInfo             ,-    fileMakeDirectory                       ,----- ** fileMakeDirectoryAsync-    FileMakeDirectoryAsyncMethodInfo        ,-    fileMakeDirectoryAsync                  ,----- ** fileMakeDirectoryFinish-    FileMakeDirectoryFinishMethodInfo       ,-    fileMakeDirectoryFinish                 ,----- ** fileMakeDirectoryWithParents-    FileMakeDirectoryWithParentsMethodInfo  ,-    fileMakeDirectoryWithParents            ,----- ** fileMakeSymbolicLink-    FileMakeSymbolicLinkMethodInfo          ,-    fileMakeSymbolicLink                    ,----- ** fileMeasureDiskUsageFinish-    FileMeasureDiskUsageFinishMethodInfo    ,-    fileMeasureDiskUsageFinish              ,----- ** fileMonitor-    FileMonitorMethodInfo                   ,-    fileMonitor                             ,----- ** fileMonitorDirectory-    FileMonitorDirectoryMethodInfo          ,-    fileMonitorDirectory                    ,----- ** fileMonitorFile-    FileMonitorFileMethodInfo               ,-    fileMonitorFile                         ,----- ** fileMountEnclosingVolume-    FileMountEnclosingVolumeMethodInfo      ,-    fileMountEnclosingVolume                ,----- ** fileMountEnclosingVolumeFinish-    FileMountEnclosingVolumeFinishMethodInfo,-    fileMountEnclosingVolumeFinish          ,----- ** fileMountMountable-    FileMountMountableMethodInfo            ,-    fileMountMountable                      ,----- ** fileMountMountableFinish-    FileMountMountableFinishMethodInfo      ,-    fileMountMountableFinish                ,----- ** fileMove-    FileMoveMethodInfo                      ,-    fileMove                                ,----- ** fileNewForCommandlineArg-    fileNewForCommandlineArg                ,----- ** fileNewForCommandlineArgAndCwd-    fileNewForCommandlineArgAndCwd          ,----- ** fileNewForPath-    fileNewForPath                          ,----- ** fileNewForUri-    fileNewForUri                           ,----- ** fileNewTmp-    fileNewTmp                              ,----- ** fileOpenReadwrite-    FileOpenReadwriteMethodInfo             ,-    fileOpenReadwrite                       ,----- ** fileOpenReadwriteAsync-    FileOpenReadwriteAsyncMethodInfo        ,-    fileOpenReadwriteAsync                  ,----- ** fileOpenReadwriteFinish-    FileOpenReadwriteFinishMethodInfo       ,-    fileOpenReadwriteFinish                 ,----- ** fileParseName-    fileParseName                           ,----- ** filePollMountable-    FilePollMountableMethodInfo             ,-    filePollMountable                       ,----- ** filePollMountableFinish-    FilePollMountableFinishMethodInfo       ,-    filePollMountableFinish                 ,----- ** fileQueryDefaultHandler-    FileQueryDefaultHandlerMethodInfo       ,-    fileQueryDefaultHandler                 ,----- ** fileQueryExists-    FileQueryExistsMethodInfo               ,-    fileQueryExists                         ,----- ** fileQueryFileType-    FileQueryFileTypeMethodInfo             ,-    fileQueryFileType                       ,----- ** fileQueryFilesystemInfo-    FileQueryFilesystemInfoMethodInfo       ,-    fileQueryFilesystemInfo                 ,----- ** fileQueryFilesystemInfoAsync-    FileQueryFilesystemInfoAsyncMethodInfo  ,-    fileQueryFilesystemInfoAsync            ,----- ** fileQueryFilesystemInfoFinish-    FileQueryFilesystemInfoFinishMethodInfo ,-    fileQueryFilesystemInfoFinish           ,----- ** fileQueryInfo-    FileQueryInfoMethodInfo                 ,-    fileQueryInfo                           ,----- ** fileQueryInfoAsync-    FileQueryInfoAsyncMethodInfo            ,-    fileQueryInfoAsync                      ,----- ** fileQueryInfoFinish-    FileQueryInfoFinishMethodInfo           ,-    fileQueryInfoFinish                     ,----- ** fileQuerySettableAttributes-    FileQuerySettableAttributesMethodInfo   ,-    fileQuerySettableAttributes             ,----- ** fileQueryWritableNamespaces-    FileQueryWritableNamespacesMethodInfo   ,-    fileQueryWritableNamespaces             ,----- ** fileRead-    FileReadMethodInfo                      ,-    fileRead                                ,----- ** fileReadAsync-    FileReadAsyncMethodInfo                 ,-    fileReadAsync                           ,----- ** fileReadFinish-    FileReadFinishMethodInfo                ,-    fileReadFinish                          ,----- ** fileReplace-    FileReplaceMethodInfo                   ,-    fileReplace                             ,----- ** fileReplaceAsync-    FileReplaceAsyncMethodInfo              ,-    fileReplaceAsync                        ,----- ** fileReplaceContents-    FileReplaceContentsMethodInfo           ,-    fileReplaceContents                     ,----- ** fileReplaceContentsAsync-    FileReplaceContentsAsyncMethodInfo      ,-    fileReplaceContentsAsync                ,----- ** fileReplaceContentsBytesAsync-    FileReplaceContentsBytesAsyncMethodInfo ,-    fileReplaceContentsBytesAsync           ,----- ** fileReplaceContentsFinish-    FileReplaceContentsFinishMethodInfo     ,-    fileReplaceContentsFinish               ,----- ** fileReplaceFinish-    FileReplaceFinishMethodInfo             ,-    fileReplaceFinish                       ,----- ** fileReplaceReadwrite-    FileReplaceReadwriteMethodInfo          ,-    fileReplaceReadwrite                    ,----- ** fileReplaceReadwriteAsync-    FileReplaceReadwriteAsyncMethodInfo     ,-    fileReplaceReadwriteAsync               ,----- ** fileReplaceReadwriteFinish-    FileReplaceReadwriteFinishMethodInfo    ,-    fileReplaceReadwriteFinish              ,----- ** fileResolveRelativePath-    FileResolveRelativePathMethodInfo       ,-    fileResolveRelativePath                 ,----- ** fileSetAttribute-    FileSetAttributeMethodInfo              ,-    fileSetAttribute                        ,----- ** fileSetAttributeByteString-    FileSetAttributeByteStringMethodInfo    ,-    fileSetAttributeByteString              ,----- ** fileSetAttributeInt32-    FileSetAttributeInt32MethodInfo         ,-    fileSetAttributeInt32                   ,----- ** fileSetAttributeInt64-    FileSetAttributeInt64MethodInfo         ,-    fileSetAttributeInt64                   ,----- ** fileSetAttributeString-    FileSetAttributeStringMethodInfo        ,-    fileSetAttributeString                  ,----- ** fileSetAttributeUint32-    FileSetAttributeUint32MethodInfo        ,-    fileSetAttributeUint32                  ,----- ** fileSetAttributeUint64-    FileSetAttributeUint64MethodInfo        ,-    fileSetAttributeUint64                  ,----- ** fileSetAttributesAsync-    FileSetAttributesAsyncMethodInfo        ,-    fileSetAttributesAsync                  ,----- ** fileSetAttributesFinish-    FileSetAttributesFinishMethodInfo       ,-    fileSetAttributesFinish                 ,----- ** fileSetAttributesFromInfo-    FileSetAttributesFromInfoMethodInfo     ,-    fileSetAttributesFromInfo               ,----- ** fileSetDisplayName-    FileSetDisplayNameMethodInfo            ,-    fileSetDisplayName                      ,----- ** fileSetDisplayNameAsync-    FileSetDisplayNameAsyncMethodInfo       ,-    fileSetDisplayNameAsync                 ,----- ** fileSetDisplayNameFinish-    FileSetDisplayNameFinishMethodInfo      ,-    fileSetDisplayNameFinish                ,----- ** fileStartMountable-    FileStartMountableMethodInfo            ,-    fileStartMountable                      ,----- ** fileStartMountableFinish-    FileStartMountableFinishMethodInfo      ,-    fileStartMountableFinish                ,----- ** fileStopMountable-    FileStopMountableMethodInfo             ,-    fileStopMountable                       ,----- ** fileStopMountableFinish-    FileStopMountableFinishMethodInfo       ,-    fileStopMountableFinish                 ,----- ** fileSupportsThreadContexts-    FileSupportsThreadContextsMethodInfo    ,-    fileSupportsThreadContexts              ,----- ** fileTrash-    FileTrashMethodInfo                     ,-    fileTrash                               ,----- ** fileTrashAsync-    FileTrashAsyncMethodInfo                ,-    fileTrashAsync                          ,----- ** fileTrashFinish-    FileTrashFinishMethodInfo               ,-    fileTrashFinish                         ,----- ** fileUnmountMountable-    FileUnmountMountableMethodInfo          ,-    fileUnmountMountable                    ,----- ** fileUnmountMountableFinish-    FileUnmountMountableFinishMethodInfo    ,-    fileUnmountMountableFinish              ,----- ** fileUnmountMountableWithOperation-    FileUnmountMountableWithOperationMethodInfo,-    fileUnmountMountableWithOperation       ,----- ** fileUnmountMountableWithOperationFinish-    FileUnmountMountableWithOperationFinishMethodInfo,-    fileUnmountMountableWithOperationFinish ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject---- interface File --newtype File = File (ForeignPtr File)-noFile :: Maybe File-noFile = Nothing--type family ResolveFileMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileMethod "appendTo" o = FileAppendToMethodInfo-    ResolveFileMethod "appendToAsync" o = FileAppendToAsyncMethodInfo-    ResolveFileMethod "appendToFinish" o = FileAppendToFinishMethodInfo-    ResolveFileMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFileMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFileMethod "copy" o = FileCopyMethodInfo-    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.ObjectForceFloatingMethodInfo-    ResolveFileMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFileMethod "hasParent" o = FileHasParentMethodInfo-    ResolveFileMethod "hasPrefix" o = FileHasPrefixMethodInfo-    ResolveFileMethod "hasUriScheme" o = FileHasUriSchemeMethodInfo-    ResolveFileMethod "hash" o = FileHashMethodInfo-    ResolveFileMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFileMethod "isNative" o = FileIsNativeMethodInfo-    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.ObjectNotifyMethodInfo-    ResolveFileMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFileMethod "openReadwrite" o = FileOpenReadwriteMethodInfo-    ResolveFileMethod "openReadwriteAsync" o = FileOpenReadwriteAsyncMethodInfo-    ResolveFileMethod "openReadwriteFinish" o = FileOpenReadwriteFinishMethodInfo-    ResolveFileMethod "pollMountable" o = FilePollMountableMethodInfo-    ResolveFileMethod "pollMountableFinish" o = FilePollMountableFinishMethodInfo-    ResolveFileMethod "queryDefaultHandler" o = FileQueryDefaultHandlerMethodInfo-    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.ObjectRefMethodInfo-    ResolveFileMethod "refSink" o = GObject.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 "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFileMethod "replaceFinish" o = FileReplaceFinishMethodInfo-    ResolveFileMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFileMethod "replaceReadwrite" o = FileReplaceReadwriteMethodInfo-    ResolveFileMethod "replaceReadwriteAsync" o = FileReplaceReadwriteAsyncMethodInfo-    ResolveFileMethod "replaceReadwriteFinish" o = FileReplaceReadwriteFinishMethodInfo-    ResolveFileMethod "resolveRelativePath" o = FileResolveRelativePathMethodInfo-    ResolveFileMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFileMethod "startMountable" o = FileStartMountableMethodInfo-    ResolveFileMethod "startMountableFinish" o = FileStartMountableFinishMethodInfo-    ResolveFileMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFileMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFileMethod "stopMountable" o = FileStopMountableMethodInfo-    ResolveFileMethod "stopMountableFinish" o = FileStopMountableFinishMethodInfo-    ResolveFileMethod "supportsThreadContexts" o = FileSupportsThreadContextsMethodInfo-    ResolveFileMethod "thawNotify" o = GObject.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.ObjectUnrefMethodInfo-    ResolveFileMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFileMethod "getBasename" o = FileGetBasenameMethodInfo-    ResolveFileMethod "getChild" o = FileGetChildMethodInfo-    ResolveFileMethod "getChildForDisplayName" o = FileGetChildForDisplayNameMethodInfo-    ResolveFileMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFileMethod "getParent" o = FileGetParentMethodInfo-    ResolveFileMethod "getParseName" o = FileGetParseNameMethodInfo-    ResolveFileMethod "getPath" o = FileGetPathMethodInfo-    ResolveFileMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFileMethod "getQdata" o = GObject.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.ObjectSetDataMethodInfo-    ResolveFileMethod "setDisplayName" o = FileSetDisplayNameMethodInfo-    ResolveFileMethod "setDisplayNameAsync" o = FileSetDisplayNameAsyncMethodInfo-    ResolveFileMethod "setDisplayNameFinish" o = FileSetDisplayNameFinishMethodInfo-    ResolveFileMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFileMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFileMethod t File, MethodInfo info File p) => IsLabelProxy t (File -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileMethod t File, MethodInfo info File p) => IsLabel t (File -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList File = FileAttributeList-type FileAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList File = FileSignalList-type FileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_file_get_type"-    c_g_file_get_type :: IO GType--type instance ParentTypes File = FileParentTypes-type FileParentTypes = '[GObject.Object]--instance GObject File where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_file_get_type-    --class GObject o => FileK o-instance (GObject o, IsDescendantOf File o) => FileK o--toFile :: FileK o => o -> IO File-toFile = unsafeCastTo File---- method File::append_to--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileOutputStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_append_to" g_file_append_to :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileCreateFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileOutputStream)---fileAppendTo ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [FileCreateFlags]                    -- flags-    -> Maybe (b)                            -- cancellable-    -> m FileOutputStream                   -- result-fileAppendTo _obj flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_append_to _obj' flags' maybeCancellable-        checkUnexpectedReturnNULL "g_file_append_to" result-        result' <- (wrapObject FileOutputStream) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileAppendToMethodInfo-instance (signature ~ ([FileCreateFlags] -> Maybe (b) -> m FileOutputStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileAppendToMethodInfo a signature where-    overloadedMethod _ = fileAppendTo---- method File::append_to_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileCreateFlags"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileAppendToAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [FileCreateFlags]                    -- flags-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileAppendToAsync _obj flags ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_append_to_async _obj' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileAppendToAsyncMethodInfo-instance (signature ~ ([FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileAppendToAsyncMethodInfo a signature where-    overloadedMethod _ = fileAppendToAsync---- method File::append_to_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileOutputStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_append_to_finish" g_file_append_to_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileOutputStream)---fileAppendToFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m FileOutputStream                   -- result-fileAppendToFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_append_to_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_append_to_finish" result-        result' <- (wrapObject FileOutputStream) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileAppendToFinishMethodInfo-instance (signature ~ (b -> m FileOutputStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileAppendToFinishMethodInfo a signature where-    overloadedMethod _ = fileAppendToFinish---- method File::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCopyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress_callback", argType = TInterface "Gio" "FileProgressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress_callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr File ->                             -- destination : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileCopyFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr FileProgressCallbackC ->         -- progress_callback : TInterface "Gio" "FileProgressCallback"-    Ptr () ->                               -- progress_callback_data : TBasicType TPtr-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileCopy ::-    (MonadIO m, FileK a, FileK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- destination-    -> [FileCopyFlags]                      -- flags-    -> Maybe (c)                            -- cancellable-    -> Maybe (FileProgressCallback)         -- progressCallback-    -> m ()                                 -- result-fileCopy _obj destination flags cancellable progressCallback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let destination' = unsafeManagedPtrCastPtr destination-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    maybeProgressCallback <- case progressCallback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jProgressCallback -> do-            jProgressCallback' <- mkFileProgressCallback (fileProgressCallbackWrapper Nothing jProgressCallback)-            return jProgressCallback'-    let progressCallbackData = nullPtr-    onException (do-        _ <- propagateGError $ g_file_copy _obj' destination' flags' maybeCancellable maybeProgressCallback progressCallbackData-        safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback-        touchManagedPtr _obj-        touchManagedPtr destination-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback-        return ()-     )--data FileCopyMethodInfo-instance (signature ~ (b -> [FileCopyFlags] -> Maybe (c) -> Maybe (FileProgressCallback) -> m ()), MonadIO m, FileK a, FileK b, CancellableK c) => MethodInfo FileCopyMethodInfo a signature where-    overloadedMethod _ = fileCopy---- method File::copy_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCopyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr File ->                             -- destination : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileCopyFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileCopyAttributes ::-    (MonadIO m, FileK a, FileK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- destination-    -> [FileCopyFlags]                      -- flags-    -> Maybe (c)                            -- cancellable-    -> m ()                                 -- result-fileCopyAttributes _obj destination flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let destination' = unsafeManagedPtrCastPtr destination-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_copy_attributes _obj' destination' flags' maybeCancellable-        touchManagedPtr _obj-        touchManagedPtr destination-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data FileCopyAttributesMethodInfo-instance (signature ~ (b -> [FileCopyFlags] -> Maybe (c) -> m ()), MonadIO m, FileK a, FileK b, CancellableK c) => MethodInfo FileCopyAttributesMethodInfo a signature where-    overloadedMethod _ = fileCopyAttributes---- method File::copy_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileCopyFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m ()                                 -- result-fileCopyFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        _ <- propagateGError $ g_file_copy_finish _obj' res'-        touchManagedPtr _obj-        touchManagedPtr res-        return ()-     ) (do-        return ()-     )--data FileCopyFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileCopyFinishMethodInfo a signature where-    overloadedMethod _ = fileCopyFinish---- method File::create--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileOutputStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_create" g_file_create :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileCreateFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileOutputStream)---fileCreate ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [FileCreateFlags]                    -- flags-    -> Maybe (b)                            -- cancellable-    -> m FileOutputStream                   -- result-fileCreate _obj flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_create _obj' flags' maybeCancellable-        checkUnexpectedReturnNULL "g_file_create" result-        result' <- (wrapObject FileOutputStream) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileCreateMethodInfo-instance (signature ~ ([FileCreateFlags] -> Maybe (b) -> m FileOutputStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileCreateMethodInfo a signature where-    overloadedMethod _ = fileCreate---- method File::create_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileCreateFlags"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileCreateAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [FileCreateFlags]                    -- flags-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileCreateAsync _obj flags ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_create_async _obj' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileCreateAsyncMethodInfo-instance (signature ~ ([FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileCreateAsyncMethodInfo a signature where-    overloadedMethod _ = fileCreateAsync---- method File::create_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileOutputStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_create_finish" g_file_create_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileOutputStream)---fileCreateFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m FileOutputStream                   -- result-fileCreateFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_create_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_create_finish" result-        result' <- (wrapObject FileOutputStream) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileCreateFinishMethodInfo-instance (signature ~ (b -> m FileOutputStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileCreateFinishMethodInfo a signature where-    overloadedMethod _ = fileCreateFinish---- method File::create_readwrite--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileIOStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_create_readwrite" g_file_create_readwrite :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileCreateFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileIOStream)---fileCreateReadwrite ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [FileCreateFlags]                    -- flags-    -> Maybe (b)                            -- cancellable-    -> m FileIOStream                       -- result-fileCreateReadwrite _obj flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_create_readwrite _obj' flags' maybeCancellable-        checkUnexpectedReturnNULL "g_file_create_readwrite" result-        result' <- (wrapObject FileIOStream) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileCreateReadwriteMethodInfo-instance (signature ~ ([FileCreateFlags] -> Maybe (b) -> m FileIOStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileCreateReadwriteMethodInfo a signature where-    overloadedMethod _ = fileCreateReadwrite---- method File::create_readwrite_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileCreateFlags"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileCreateReadwriteAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [FileCreateFlags]                    -- flags-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileCreateReadwriteAsync _obj flags ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_create_readwrite_async _obj' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileCreateReadwriteAsyncMethodInfo-instance (signature ~ ([FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileCreateReadwriteAsyncMethodInfo a signature where-    overloadedMethod _ = fileCreateReadwriteAsync---- method File::create_readwrite_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileIOStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_create_readwrite_finish" g_file_create_readwrite_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileIOStream)---fileCreateReadwriteFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m FileIOStream                       -- result-fileCreateReadwriteFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_create_readwrite_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_create_readwrite_finish" result-        result' <- (wrapObject FileIOStream) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileCreateReadwriteFinishMethodInfo-instance (signature ~ (b -> m FileIOStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileCreateReadwriteFinishMethodInfo a signature where-    overloadedMethod _ = fileCreateReadwriteFinish---- method File::delete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileDelete ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileDelete _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_delete _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data FileDeleteMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileDeleteMethodInfo a signature where-    overloadedMethod _ = fileDelete---- method File::delete_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileDeleteAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileDeleteAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_delete_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileDeleteAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileDeleteAsyncMethodInfo a signature where-    overloadedMethod _ = fileDeleteAsync---- method File::delete_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileDeleteFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-fileDeleteFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_delete_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FileDeleteFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileDeleteFinishMethodInfo a signature where-    overloadedMethod _ = fileDeleteFinish---- method File::dup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_file_dup" g_file_dup :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    IO (Ptr File)---fileDup ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> m File                               -- result-fileDup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_dup _obj'-    checkUnexpectedReturnNULL "g_file_dup" result-    result' <- (wrapObject File) result-    touchManagedPtr _obj-    return result'--data FileDupMethodInfo-instance (signature ~ (m File), MonadIO m, FileK a) => MethodInfo FileDupMethodInfo a signature where-    overloadedMethod _ = fileDup---- method File::eject_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{-# DEPRECATED fileEjectMountable ["(Since version 2.22)","Use g_file_eject_mountable_with_operation() instead."]#-}-fileEjectMountable ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileEjectMountable _obj flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_eject_mountable _obj' flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileEjectMountableMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileEjectMountableMethodInfo a signature where-    overloadedMethod _ = fileEjectMountable---- method File::eject_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED fileEjectMountableFinish ["(Since version 2.22)","Use g_file_eject_mountable_with_operation_finish()","    instead."]#-}-fileEjectMountableFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-fileEjectMountableFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_eject_mountable_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FileEjectMountableFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileEjectMountableFinishMethodInfo a signature where-    overloadedMethod _ = fileEjectMountableFinish---- method File::eject_mountable_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileEjectMountableWithOperation ::-    (MonadIO m, FileK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileEjectMountableWithOperation _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_eject_mountable_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data FileEjectMountableWithOperationMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileEjectMountableWithOperationMethodInfo a signature where-    overloadedMethod _ = fileEjectMountableWithOperation---- method File::eject_mountable_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileEjectMountableWithOperationFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-fileEjectMountableWithOperationFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_eject_mountable_with_operation_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FileEjectMountableWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileEjectMountableWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = fileEjectMountableWithOperationFinish---- method File::enumerate_children--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileEnumerator")--- throws : True--- Skip return : False--foreign import ccall "g_file_enumerate_children" g_file_enumerate_children :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attributes : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileEnumerator)---fileEnumerateChildren ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> [FileQueryInfoFlags]                 -- flags-    -> Maybe (b)                            -- cancellable-    -> m FileEnumerator                     -- result-fileEnumerateChildren _obj attributes flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_enumerate_children _obj' attributes' flags' maybeCancellable-        checkUnexpectedReturnNULL "g_file_enumerate_children" result-        result' <- (wrapObject FileEnumerator) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--data FileEnumerateChildrenMethodInfo-instance (signature ~ (T.Text -> [FileQueryInfoFlags] -> Maybe (b) -> m FileEnumerator), MonadIO m, FileK a, CancellableK b) => MethodInfo FileEnumerateChildrenMethodInfo a signature where-    overloadedMethod _ = fileEnumerateChildren---- method File::enumerate_children_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attributes : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileEnumerateChildrenAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> [FileQueryInfoFlags]                 -- flags-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileEnumerateChildrenAsync _obj attributes flags ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_enumerate_children_async _obj' attributes' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--data FileEnumerateChildrenAsyncMethodInfo-instance (signature ~ (T.Text -> [FileQueryInfoFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileEnumerateChildrenAsyncMethodInfo a signature where-    overloadedMethod _ = fileEnumerateChildrenAsync---- method File::enumerate_children_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileEnumerator")--- throws : True--- Skip return : False--foreign import ccall "g_file_enumerate_children_finish" g_file_enumerate_children_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileEnumerator)---fileEnumerateChildrenFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m FileEnumerator                     -- result-fileEnumerateChildrenFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_enumerate_children_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_enumerate_children_finish" result-        result' <- (wrapObject FileEnumerator) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileEnumerateChildrenFinishMethodInfo-instance (signature ~ (b -> m FileEnumerator), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileEnumerateChildrenFinishMethodInfo a signature where-    overloadedMethod _ = fileEnumerateChildrenFinish---- method File::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file2", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr File ->                             -- file2 : TInterface "Gio" "File"-    IO CInt---fileEqual ::-    (MonadIO m, FileK a, FileK b) =>-    a                                       -- _obj-    -> b                                    -- file2-    -> m Bool                               -- result-fileEqual _obj file2 = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let file2' = unsafeManagedPtrCastPtr file2-    result <- g_file_equal _obj' file2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr file2-    return result'--data FileEqualMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, FileK a, FileK b) => MethodInfo FileEqualMethodInfo a signature where-    overloadedMethod _ = fileEqual---- method File::find_enclosing_mount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Mount")--- throws : True--- Skip return : False--foreign import ccall "g_file_find_enclosing_mount" g_file_find_enclosing_mount :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Mount)---fileFindEnclosingMount ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Mount                              -- result-fileFindEnclosingMount _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_find_enclosing_mount _obj' maybeCancellable-        checkUnexpectedReturnNULL "g_file_find_enclosing_mount" result-        result' <- (wrapObject Mount) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileFindEnclosingMountMethodInfo-instance (signature ~ (Maybe (b) -> m Mount), MonadIO m, FileK a, CancellableK b) => MethodInfo FileFindEnclosingMountMethodInfo a signature where-    overloadedMethod _ = fileFindEnclosingMount---- method File::find_enclosing_mount_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileFindEnclosingMountAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileFindEnclosingMountAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_find_enclosing_mount_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileFindEnclosingMountAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileFindEnclosingMountAsyncMethodInfo a signature where-    overloadedMethod _ = fileFindEnclosingMountAsync---- method File::find_enclosing_mount_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Mount")--- throws : True--- Skip return : False--foreign import ccall "g_file_find_enclosing_mount_finish" g_file_find_enclosing_mount_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Mount)---fileFindEnclosingMountFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m Mount                              -- result-fileFindEnclosingMountFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_find_enclosing_mount_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_find_enclosing_mount_finish" result-        result' <- (wrapObject Mount) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileFindEnclosingMountFinishMethodInfo-instance (signature ~ (b -> m Mount), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileFindEnclosingMountFinishMethodInfo a signature where-    overloadedMethod _ = fileFindEnclosingMountFinish---- method File::get_basename--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, 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_basename" g_file_get_basename :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    IO CString---fileGetBasename ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-fileGetBasename _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_get_basename _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data FileGetBasenameMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, FileK a) => MethodInfo FileGetBasenameMethodInfo a signature where-    overloadedMethod _ = fileGetBasename---- method File::get_child--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_file_get_child" g_file_get_child :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr File)---fileGetChild ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> T.Text                               -- name-    -> m File                               -- result-fileGetChild _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    result <- g_file_get_child _obj' name'-    checkUnexpectedReturnNULL "g_file_get_child" result-    result' <- (wrapObject File) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data FileGetChildMethodInfo-instance (signature ~ (T.Text -> m File), MonadIO m, FileK a) => MethodInfo FileGetChildMethodInfo a signature where-    overloadedMethod _ = fileGetChild---- method File::get_child_for_display_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- display_name : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr File)---fileGetChildForDisplayName ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> T.Text                               -- displayName-    -> m File                               -- result-fileGetChildForDisplayName _obj displayName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    displayName' <- textToCString displayName-    onException (do-        result <- propagateGError $ g_file_get_child_for_display_name _obj' displayName'-        checkUnexpectedReturnNULL "g_file_get_child_for_display_name" result-        result' <- (wrapObject File) result-        touchManagedPtr _obj-        freeMem displayName'-        return result'-     ) (do-        freeMem displayName'-     )--data FileGetChildForDisplayNameMethodInfo-instance (signature ~ (T.Text -> m File), MonadIO m, FileK a) => MethodInfo FileGetChildForDisplayNameMethodInfo a signature where-    overloadedMethod _ = fileGetChildForDisplayName---- method File::get_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_file_get_parent" g_file_get_parent :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    IO (Ptr File)---fileGetParent ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> m (Maybe File)                       -- result-fileGetParent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_get_parent _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject File) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data FileGetParentMethodInfo-instance (signature ~ (m (Maybe File)), MonadIO m, FileK a) => MethodInfo FileGetParentMethodInfo a signature where-    overloadedMethod _ = fileGetParent---- method File::get_parse_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    IO CString---fileGetParseName ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-fileGetParseName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_get_parse_name _obj'-    checkUnexpectedReturnNULL "g_file_get_parse_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FileGetParseNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FileK a) => MethodInfo FileGetParseNameMethodInfo a signature where-    overloadedMethod _ = fileGetParseName---- method File::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, 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_path" g_file_get_path :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    IO CString---fileGetPath ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-fileGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_get_path _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data FileGetPathMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, FileK a) => MethodInfo FileGetPathMethodInfo a signature where-    overloadedMethod _ = fileGetPath---- method File::get_relative_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "descendant", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, 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_relative_path" g_file_get_relative_path :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr File ->                             -- descendant : TInterface "Gio" "File"-    IO CString---fileGetRelativePath ::-    (MonadIO m, FileK a, FileK b) =>-    a                                       -- _obj-    -> b                                    -- descendant-    -> m (Maybe T.Text)                     -- result-fileGetRelativePath _obj descendant = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let descendant' = unsafeManagedPtrCastPtr descendant-    result <- g_file_get_relative_path _obj' descendant'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr _obj-    touchManagedPtr descendant-    return maybeResult--data FileGetRelativePathMethodInfo-instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, FileK a, FileK b) => MethodInfo FileGetRelativePathMethodInfo a signature where-    overloadedMethod _ = fileGetRelativePath---- method File::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    IO CString---fileGetUri ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-fileGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_get_uri _obj'-    checkUnexpectedReturnNULL "g_file_get_uri" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FileGetUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FileK a) => MethodInfo FileGetUriMethodInfo a signature where-    overloadedMethod _ = fileGetUri---- method File::get_uri_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    IO CString---fileGetUriScheme ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-fileGetUriScheme _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_get_uri_scheme _obj'-    checkUnexpectedReturnNULL "g_file_get_uri_scheme" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FileGetUriSchemeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FileK a) => MethodInfo FileGetUriSchemeMethodInfo a signature where-    overloadedMethod _ = fileGetUriScheme---- method File::has_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr File ->                             -- parent : TInterface "Gio" "File"-    IO CInt---fileHasParent ::-    (MonadIO m, FileK a, FileK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- parent-    -> m Bool                               -- result-fileHasParent _obj parent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeParent <- case parent of-        Nothing -> return nullPtr-        Just jParent -> do-            let jParent' = unsafeManagedPtrCastPtr jParent-            return jParent'-    result <- g_file_has_parent _obj' maybeParent-    let result' = (/= 0) result-    touchManagedPtr _obj-    whenJust parent touchManagedPtr-    return result'--data FileHasParentMethodInfo-instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, FileK a, FileK b) => MethodInfo FileHasParentMethodInfo a signature where-    overloadedMethod _ = fileHasParent---- method File::has_prefix--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr File ->                             -- prefix : TInterface "Gio" "File"-    IO CInt---fileHasPrefix ::-    (MonadIO m, FileK a, FileK b) =>-    a                                       -- _obj-    -> b                                    -- prefix-    -> m Bool                               -- result-fileHasPrefix _obj prefix = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let prefix' = unsafeManagedPtrCastPtr prefix-    result <- g_file_has_prefix _obj' prefix'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr prefix-    return result'--data FileHasPrefixMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, FileK a, FileK b) => MethodInfo FileHasPrefixMethodInfo a signature where-    overloadedMethod _ = fileHasPrefix---- method File::has_uri_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- uri_scheme : TBasicType TUTF8-    IO CInt---fileHasUriScheme ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> T.Text                               -- uriScheme-    -> m Bool                               -- result-fileHasUriScheme _obj uriScheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uriScheme' <- textToCString uriScheme-    result <- g_file_has_uri_scheme _obj' uriScheme'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem uriScheme'-    return result'--data FileHasUriSchemeMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, FileK a) => MethodInfo FileHasUriSchemeMethodInfo a signature where-    overloadedMethod _ = fileHasUriScheme---- method File::hash--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    IO Word32---fileHash ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-fileHash _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_hash _obj'-    touchManagedPtr _obj-    return result--data FileHashMethodInfo-instance (signature ~ (m Word32), MonadIO m, FileK a) => MethodInfo FileHashMethodInfo a signature where-    overloadedMethod _ = fileHash---- method File::is_native--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    IO CInt---fileIsNative ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-fileIsNative _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_is_native _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FileIsNativeMethodInfo-instance (signature ~ (m Bool), MonadIO m, FileK a) => MethodInfo FileIsNativeMethodInfo a signature where-    overloadedMethod _ = fileIsNative---- method File::load_contents--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "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---fileLoadContents ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m (ByteString,T.Text)                -- result-fileLoadContents _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let 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 _obj' 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 _obj-        whenJust cancellable touchManagedPtr-        freeMem contents-        freeMem length_-        freeMem etagOut-        return (contents'', etagOut'')-     ) (do-        freeMem contents-        freeMem length_-        freeMem etagOut-     )--data FileLoadContentsMethodInfo-instance (signature ~ (Maybe (b) -> m (ByteString,T.Text)), MonadIO m, FileK a, CancellableK b) => MethodInfo FileLoadContentsMethodInfo a signature where-    overloadedMethod _ = fileLoadContents---- method File::load_contents_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileLoadContentsAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileLoadContentsAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_load_contents_async _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileLoadContentsAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileLoadContentsAsyncMethodInfo a signature where-    overloadedMethod _ = fileLoadContentsAsync---- method File::load_contents_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "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---fileLoadContentsFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m (ByteString,T.Text)                -- result-fileLoadContentsFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let 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 _obj' 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 _obj-        touchManagedPtr res-        freeMem contents-        freeMem length_-        freeMem etagOut-        return (contents'', etagOut'')-     ) (do-        freeMem contents-        freeMem length_-        freeMem etagOut-     )--data FileLoadContentsFinishMethodInfo-instance (signature ~ (b -> m (ByteString,T.Text)), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileLoadContentsFinishMethodInfo a signature where-    overloadedMethod _ = fileLoadContentsFinish---- method File::load_partial_contents_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "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---fileLoadPartialContentsFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m (ByteString,T.Text)                -- result-fileLoadPartialContentsFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let 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 _obj' 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 _obj-        touchManagedPtr res-        freeMem contents-        freeMem length_-        freeMem etagOut-        return (contents'', etagOut'')-     ) (do-        freeMem contents-        freeMem length_-        freeMem etagOut-     )--data FileLoadPartialContentsFinishMethodInfo-instance (signature ~ (b -> m (ByteString,T.Text)), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileLoadPartialContentsFinishMethodInfo a signature where-    overloadedMethod _ = fileLoadPartialContentsFinish---- method File::make_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileMakeDirectory ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileMakeDirectory _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_make_directory _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data FileMakeDirectoryMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMakeDirectoryMethodInfo a signature where-    overloadedMethod _ = fileMakeDirectory---- method File::make_directory_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileMakeDirectoryAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileMakeDirectoryAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_make_directory_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileMakeDirectoryAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMakeDirectoryAsyncMethodInfo a signature where-    overloadedMethod _ = fileMakeDirectoryAsync---- method File::make_directory_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileMakeDirectoryFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-fileMakeDirectoryFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_make_directory_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FileMakeDirectoryFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileMakeDirectoryFinishMethodInfo a signature where-    overloadedMethod _ = fileMakeDirectoryFinish---- method File::make_directory_with_parents--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileMakeDirectoryWithParents ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileMakeDirectoryWithParents _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_make_directory_with_parents _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data FileMakeDirectoryWithParentsMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMakeDirectoryWithParentsMethodInfo a signature where-    overloadedMethod _ = fileMakeDirectoryWithParents---- method File::make_symbolic_link--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "symlink_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- symlink_value : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileMakeSymbolicLink ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- symlinkValue-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileMakeSymbolicLink _obj symlinkValue cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    symlinkValue' <- textToCString symlinkValue-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_make_symbolic_link _obj' symlinkValue' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem symlinkValue'-        return ()-     ) (do-        freeMem symlinkValue'-     )--data FileMakeSymbolicLinkMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMakeSymbolicLinkMethodInfo a signature where-    overloadedMethod _ = fileMakeSymbolicLink---- method File::measure_disk_usage_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "disk_usage", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "num_dirs", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "num_files", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "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---fileMeasureDiskUsageFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m (Word64,Word64,Word64)             -- result-fileMeasureDiskUsageFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let 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 _obj' result_' diskUsage numDirs numFiles-        diskUsage' <- peek diskUsage-        numDirs' <- peek numDirs-        numFiles' <- peek numFiles-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem diskUsage-        freeMem numDirs-        freeMem numFiles-        return (diskUsage', numDirs', numFiles')-     ) (do-        freeMem diskUsage-        freeMem numDirs-        freeMem numFiles-     )--data FileMeasureDiskUsageFinishMethodInfo-instance (signature ~ (b -> m (Word64,Word64,Word64)), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileMeasureDiskUsageFinishMethodInfo a signature where-    overloadedMethod _ = fileMeasureDiskUsageFinish---- method File::monitor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileMonitorFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileMonitor")--- throws : True--- Skip return : False--foreign import ccall "g_file_monitor" g_file_monitor :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileMonitorFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileMonitor)---fileMonitor ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [FileMonitorFlags]                   -- flags-    -> Maybe (b)                            -- cancellable-    -> m FileMonitor                        -- result-fileMonitor _obj flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_monitor _obj' flags' maybeCancellable-        checkUnexpectedReturnNULL "g_file_monitor" result-        result' <- (wrapObject FileMonitor) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileMonitorMethodInfo-instance (signature ~ ([FileMonitorFlags] -> Maybe (b) -> m FileMonitor), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMonitorMethodInfo a signature where-    overloadedMethod _ = fileMonitor---- method File::monitor_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileMonitorFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileMonitor")--- throws : True--- Skip return : False--foreign import ccall "g_file_monitor_directory" g_file_monitor_directory :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileMonitorFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileMonitor)---fileMonitorDirectory ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [FileMonitorFlags]                   -- flags-    -> Maybe (b)                            -- cancellable-    -> m FileMonitor                        -- result-fileMonitorDirectory _obj flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_monitor_directory _obj' flags' maybeCancellable-        checkUnexpectedReturnNULL "g_file_monitor_directory" result-        result' <- (wrapObject FileMonitor) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileMonitorDirectoryMethodInfo-instance (signature ~ ([FileMonitorFlags] -> Maybe (b) -> m FileMonitor), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMonitorDirectoryMethodInfo a signature where-    overloadedMethod _ = fileMonitorDirectory---- method File::monitor_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileMonitorFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileMonitor")--- throws : True--- Skip return : False--foreign import ccall "g_file_monitor_file" g_file_monitor_file :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileMonitorFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileMonitor)---fileMonitorFile ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [FileMonitorFlags]                   -- flags-    -> Maybe (b)                            -- cancellable-    -> m FileMonitor                        -- result-fileMonitorFile _obj flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_monitor_file _obj' flags' maybeCancellable-        checkUnexpectedReturnNULL "g_file_monitor_file" result-        result' <- (wrapObject FileMonitor) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileMonitorFileMethodInfo-instance (signature ~ ([FileMonitorFlags] -> Maybe (b) -> m FileMonitor), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMonitorFileMethodInfo a signature where-    overloadedMethod _ = fileMonitorFile---- method File::mount_enclosing_volume--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "MountMountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileMountEnclosingVolume ::-    (MonadIO m, FileK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountMountFlags]                    -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileMountEnclosingVolume _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_mount_enclosing_volume _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data FileMountEnclosingVolumeMethodInfo-instance (signature ~ ([MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileMountEnclosingVolumeMethodInfo a signature where-    overloadedMethod _ = fileMountEnclosingVolume---- method File::mount_enclosing_volume_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileMountEnclosingVolumeFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-fileMountEnclosingVolumeFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_mount_enclosing_volume_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FileMountEnclosingVolumeFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileMountEnclosingVolumeFinishMethodInfo a signature where-    overloadedMethod _ = fileMountEnclosingVolumeFinish---- method File::mount_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "MountMountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileMountMountable ::-    (MonadIO m, FileK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountMountFlags]                    -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileMountMountable _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_mount_mountable _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data FileMountMountableMethodInfo-instance (signature ~ ([MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileMountMountableMethodInfo a signature where-    overloadedMethod _ = fileMountMountable---- method File::mount_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : True--- Skip return : False--foreign import ccall "g_file_mount_mountable_finish" g_file_mount_mountable_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr File)---fileMountMountableFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m File                               -- result-fileMountMountableFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_file_mount_mountable_finish _obj' result_'-        checkUnexpectedReturnNULL "g_file_mount_mountable_finish" result-        result' <- (wrapObject File) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data FileMountMountableFinishMethodInfo-instance (signature ~ (b -> m File), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileMountMountableFinishMethodInfo a signature where-    overloadedMethod _ = fileMountMountableFinish---- method File::move--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCopyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress_callback", argType = TInterface "Gio" "FileProgressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress_callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr File ->                             -- destination : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileCopyFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr FileProgressCallbackC ->         -- progress_callback : TInterface "Gio" "FileProgressCallback"-    Ptr () ->                               -- progress_callback_data : TBasicType TPtr-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileMove ::-    (MonadIO m, FileK a, FileK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- destination-    -> [FileCopyFlags]                      -- flags-    -> Maybe (c)                            -- cancellable-    -> Maybe (FileProgressCallback)         -- progressCallback-    -> m ()                                 -- result-fileMove _obj destination flags cancellable progressCallback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let destination' = unsafeManagedPtrCastPtr destination-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    maybeProgressCallback <- case progressCallback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jProgressCallback -> do-            jProgressCallback' <- mkFileProgressCallback (fileProgressCallbackWrapper Nothing jProgressCallback)-            return jProgressCallback'-    let progressCallbackData = nullPtr-    onException (do-        _ <- propagateGError $ g_file_move _obj' destination' flags' maybeCancellable maybeProgressCallback progressCallbackData-        safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback-        touchManagedPtr _obj-        touchManagedPtr destination-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback-        return ()-     )--data FileMoveMethodInfo-instance (signature ~ (b -> [FileCopyFlags] -> Maybe (c) -> Maybe (FileProgressCallback) -> m ()), MonadIO m, FileK a, FileK b, CancellableK c) => MethodInfo FileMoveMethodInfo a signature where-    overloadedMethod _ = fileMove---- method File::open_readwrite--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileIOStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_open_readwrite" g_file_open_readwrite :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileIOStream)---fileOpenReadwrite ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m FileIOStream                       -- result-fileOpenReadwrite _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_open_readwrite _obj' maybeCancellable-        checkUnexpectedReturnNULL "g_file_open_readwrite" result-        result' <- (wrapObject FileIOStream) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileOpenReadwriteMethodInfo-instance (signature ~ (Maybe (b) -> m FileIOStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileOpenReadwriteMethodInfo a signature where-    overloadedMethod _ = fileOpenReadwrite---- method File::open_readwrite_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileOpenReadwriteAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileOpenReadwriteAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_open_readwrite_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileOpenReadwriteAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileOpenReadwriteAsyncMethodInfo a signature where-    overloadedMethod _ = fileOpenReadwriteAsync---- method File::open_readwrite_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileIOStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_open_readwrite_finish" g_file_open_readwrite_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileIOStream)---fileOpenReadwriteFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m FileIOStream                       -- result-fileOpenReadwriteFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_open_readwrite_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_open_readwrite_finish" result-        result' <- (wrapObject FileIOStream) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileOpenReadwriteFinishMethodInfo-instance (signature ~ (b -> m FileIOStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileOpenReadwriteFinishMethodInfo a signature where-    overloadedMethod _ = fileOpenReadwriteFinish---- method File::poll_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---filePollMountable ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-filePollMountable _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_poll_mountable _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FilePollMountableMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FilePollMountableMethodInfo a signature where-    overloadedMethod _ = filePollMountable---- method File::poll_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---filePollMountableFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-filePollMountableFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_poll_mountable_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FilePollMountableFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FilePollMountableFinishMethodInfo a signature where-    overloadedMethod _ = filePollMountableFinish---- method File::query_default_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "AppInfo")--- throws : True--- Skip return : False--foreign import ccall "g_file_query_default_handler" g_file_query_default_handler :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr AppInfo)---fileQueryDefaultHandler ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m AppInfo                            -- result-fileQueryDefaultHandler _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_query_default_handler _obj' maybeCancellable-        checkUnexpectedReturnNULL "g_file_query_default_handler" result-        result' <- (wrapObject AppInfo) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileQueryDefaultHandlerMethodInfo-instance (signature ~ (Maybe (b) -> m AppInfo), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryDefaultHandlerMethodInfo a signature where-    overloadedMethod _ = fileQueryDefaultHandler---- method File::query_exists--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    IO CInt---fileQueryExists ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Bool                               -- result-fileQueryExists _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- g_file_query_exists _obj' maybeCancellable-    let result' = (/= 0) result-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return result'--data FileQueryExistsMethodInfo-instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryExistsMethodInfo a signature where-    overloadedMethod _ = fileQueryExists---- method File::query_file_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileType")--- throws : False--- Skip return : False--foreign import ccall "g_file_query_file_type" g_file_query_file_type :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    IO CUInt---fileQueryFileType ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [FileQueryInfoFlags]                 -- flags-    -> Maybe (b)                            -- cancellable-    -> m FileType                           -- result-fileQueryFileType _obj flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- g_file_query_file_type _obj' flags' maybeCancellable-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return result'--data FileQueryFileTypeMethodInfo-instance (signature ~ ([FileQueryInfoFlags] -> Maybe (b) -> m FileType), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryFileTypeMethodInfo a signature where-    overloadedMethod _ = fileQueryFileType---- method File::query_filesystem_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : True--- Skip return : False--foreign import ccall "g_file_query_filesystem_info" g_file_query_filesystem_info :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attributes : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInfo)---fileQueryFilesystemInfo ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> Maybe (b)                            -- cancellable-    -> m FileInfo                           -- result-fileQueryFilesystemInfo _obj attributes cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_query_filesystem_info _obj' attributes' maybeCancellable-        checkUnexpectedReturnNULL "g_file_query_filesystem_info" result-        result' <- (wrapObject FileInfo) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--data FileQueryFilesystemInfoMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m FileInfo), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryFilesystemInfoMethodInfo a signature where-    overloadedMethod _ = fileQueryFilesystemInfo---- method File::query_filesystem_info_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attributes : TBasicType TUTF8-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileQueryFilesystemInfoAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileQueryFilesystemInfoAsync _obj attributes ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_query_filesystem_info_async _obj' attributes' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--data FileQueryFilesystemInfoAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryFilesystemInfoAsyncMethodInfo a signature where-    overloadedMethod _ = fileQueryFilesystemInfoAsync---- method File::query_filesystem_info_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : True--- Skip return : False--foreign import ccall "g_file_query_filesystem_info_finish" g_file_query_filesystem_info_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInfo)---fileQueryFilesystemInfoFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m FileInfo                           -- result-fileQueryFilesystemInfoFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_query_filesystem_info_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_query_filesystem_info_finish" result-        result' <- (wrapObject FileInfo) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileQueryFilesystemInfoFinishMethodInfo-instance (signature ~ (b -> m FileInfo), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileQueryFilesystemInfoFinishMethodInfo a signature where-    overloadedMethod _ = fileQueryFilesystemInfoFinish---- method File::query_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : True--- Skip return : False--foreign import ccall "g_file_query_info" g_file_query_info :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attributes : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInfo)---fileQueryInfo ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> [FileQueryInfoFlags]                 -- flags-    -> Maybe (b)                            -- cancellable-    -> m FileInfo                           -- result-fileQueryInfo _obj attributes flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_query_info _obj' attributes' flags' maybeCancellable-        checkUnexpectedReturnNULL "g_file_query_info" result-        result' <- (wrapObject FileInfo) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--data FileQueryInfoMethodInfo-instance (signature ~ (T.Text -> [FileQueryInfoFlags] -> Maybe (b) -> m FileInfo), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryInfoMethodInfo a signature where-    overloadedMethod _ = fileQueryInfo---- method File::query_info_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attributes : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileQueryInfoAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> [FileQueryInfoFlags]                 -- flags-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileQueryInfoAsync _obj attributes flags ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_query_info_async _obj' attributes' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--data FileQueryInfoAsyncMethodInfo-instance (signature ~ (T.Text -> [FileQueryInfoFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryInfoAsyncMethodInfo a signature where-    overloadedMethod _ = fileQueryInfoAsync---- method File::query_info_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : True--- Skip return : False--foreign import ccall "g_file_query_info_finish" g_file_query_info_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInfo)---fileQueryInfoFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m FileInfo                           -- result-fileQueryInfoFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_query_info_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_query_info_finish" result-        result' <- (wrapObject FileInfo) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileQueryInfoFinishMethodInfo-instance (signature ~ (b -> m FileInfo), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileQueryInfoFinishMethodInfo a signature where-    overloadedMethod _ = fileQueryInfoFinish---- method File::query_settable_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileAttributeInfoList")--- throws : True--- Skip return : False--foreign import ccall "g_file_query_settable_attributes" g_file_query_settable_attributes :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileAttributeInfoList)---fileQuerySettableAttributes ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m FileAttributeInfoList              -- result-fileQuerySettableAttributes _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_query_settable_attributes _obj' maybeCancellable-        checkUnexpectedReturnNULL "g_file_query_settable_attributes" result-        result' <- (wrapBoxed FileAttributeInfoList) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileQuerySettableAttributesMethodInfo-instance (signature ~ (Maybe (b) -> m FileAttributeInfoList), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQuerySettableAttributesMethodInfo a signature where-    overloadedMethod _ = fileQuerySettableAttributes---- method File::query_writable_namespaces--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileAttributeInfoList")--- throws : True--- Skip return : False--foreign import ccall "g_file_query_writable_namespaces" g_file_query_writable_namespaces :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileAttributeInfoList)---fileQueryWritableNamespaces ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m FileAttributeInfoList              -- result-fileQueryWritableNamespaces _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_query_writable_namespaces _obj' maybeCancellable-        checkUnexpectedReturnNULL "g_file_query_writable_namespaces" result-        result' <- (wrapBoxed FileAttributeInfoList) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileQueryWritableNamespacesMethodInfo-instance (signature ~ (Maybe (b) -> m FileAttributeInfoList), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryWritableNamespacesMethodInfo a signature where-    overloadedMethod _ = fileQueryWritableNamespaces---- method File::read--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInputStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_read" g_file_read :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInputStream)---fileRead ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m FileInputStream                    -- result-fileRead _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_read _obj' maybeCancellable-        checkUnexpectedReturnNULL "g_file_read" result-        result' <- (wrapObject FileInputStream) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data FileReadMethodInfo-instance (signature ~ (Maybe (b) -> m FileInputStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReadMethodInfo a signature where-    overloadedMethod _ = fileRead---- method File::read_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileReadAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileReadAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_read_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileReadAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReadAsyncMethodInfo a signature where-    overloadedMethod _ = fileReadAsync---- method File::read_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInputStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_read_finish" g_file_read_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInputStream)---fileReadFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m FileInputStream                    -- result-fileReadFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_read_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_read_finish" result-        result' <- (wrapObject FileInputStream) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileReadFinishMethodInfo-instance (signature ~ (b -> m FileInputStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileReadFinishMethodInfo a signature where-    overloadedMethod _ = fileReadFinish---- method File::replace--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileOutputStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_replace" g_file_replace :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface "Gio" "FileCreateFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileOutputStream)---fileReplace ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- etag-    -> Bool                                 -- makeBackup-    -> [FileCreateFlags]                    -- flags-    -> Maybe (b)                            -- cancellable-    -> m FileOutputStream                   -- result-fileReplace _obj etag makeBackup flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_replace _obj' maybeEtag makeBackup' flags' maybeCancellable-        checkUnexpectedReturnNULL "g_file_replace" result-        result' <- (wrapObject FileOutputStream) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem maybeEtag-        return result'-     ) (do-        freeMem maybeEtag-     )--data FileReplaceMethodInfo-instance (signature ~ (Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Maybe (b) -> m FileOutputStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceMethodInfo a signature where-    overloadedMethod _ = fileReplace---- method File::replace_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface "Gio" "FileCreateFlags"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileReplaceAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- etag-    -> Bool                                 -- makeBackup-    -> [FileCreateFlags]                    -- flags-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileReplaceAsync _obj etag makeBackup flags ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_replace_async _obj' maybeEtag makeBackup' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem maybeEtag-    return ()--data FileReplaceAsyncMethodInfo-instance (signature ~ (Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceAsyncMethodInfo a signature where-    overloadedMethod _ = fileReplaceAsync---- method File::replace_contents--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_etag", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "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 "Gio" "FileCreateFlags"-    Ptr CString ->                          -- new_etag : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileReplaceContents ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- contents-    -> Maybe (T.Text)                       -- etag-    -> Bool                                 -- makeBackup-    -> [FileCreateFlags]                    -- flags-    -> Maybe (b)                            -- cancellable-    -> m (T.Text)                           -- result-fileReplaceContents _obj contents etag makeBackup flags cancellable = liftIO $ do-    let length_ = fromIntegral $ B.length contents-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_replace_contents _obj' contents' length_ maybeEtag makeBackup' flags' newEtag maybeCancellable-        newEtag' <- peek newEtag-        newEtag'' <- cstringToText newEtag'-        freeMem newEtag'-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem contents'-        freeMem maybeEtag-        freeMem newEtag-        return newEtag''-     ) (do-        freeMem contents'-        freeMem maybeEtag-        freeMem newEtag-     )--data FileReplaceContentsMethodInfo-instance (signature ~ (ByteString -> Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Maybe (b) -> m (T.Text)), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceContentsMethodInfo a signature where-    overloadedMethod _ = fileReplaceContents---- method File::replace_contents_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "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 "Gio" "FileCreateFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileReplaceContentsAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- contents-    -> Maybe (T.Text)                       -- etag-    -> Bool                                 -- makeBackup-    -> [FileCreateFlags]                    -- flags-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileReplaceContentsAsync _obj contents etag makeBackup flags cancellable callback = liftIO $ do-    let length_ = fromIntegral $ B.length contents-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_replace_contents_async _obj' contents' length_ maybeEtag makeBackup' flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem contents'-    freeMem maybeEtag-    return ()--data FileReplaceContentsAsyncMethodInfo-instance (signature ~ (ByteString -> Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceContentsAsyncMethodInfo a signature where-    overloadedMethod _ = fileReplaceContentsAsync---- method File::replace_contents_bytes_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr GLib.Bytes ->                       -- contents : TInterface "GLib" "Bytes"-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface "Gio" "FileCreateFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileReplaceContentsBytesAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> GLib.Bytes                           -- contents-    -> Maybe (T.Text)                       -- etag-    -> Bool                                 -- makeBackup-    -> [FileCreateFlags]                    -- flags-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileReplaceContentsBytesAsync _obj contents etag makeBackup flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let 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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_replace_contents_bytes_async _obj' contents' maybeEtag makeBackup' flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr contents-    whenJust cancellable touchManagedPtr-    freeMem maybeEtag-    return ()--data FileReplaceContentsBytesAsyncMethodInfo-instance (signature ~ (GLib.Bytes -> Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceContentsBytesAsyncMethodInfo a signature where-    overloadedMethod _ = fileReplaceContentsBytesAsync---- method File::replace_contents_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_etag", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr CString ->                          -- new_etag : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileReplaceContentsFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m (T.Text)                           -- result-fileReplaceContentsFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    newEtag <- allocMem :: IO (Ptr CString)-    onException (do-        _ <- propagateGError $ g_file_replace_contents_finish _obj' res' newEtag-        newEtag' <- peek newEtag-        newEtag'' <- cstringToText newEtag'-        freeMem newEtag'-        touchManagedPtr _obj-        touchManagedPtr res-        freeMem newEtag-        return newEtag''-     ) (do-        freeMem newEtag-     )--data FileReplaceContentsFinishMethodInfo-instance (signature ~ (b -> m (T.Text)), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileReplaceContentsFinishMethodInfo a signature where-    overloadedMethod _ = fileReplaceContentsFinish---- method File::replace_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileOutputStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_replace_finish" g_file_replace_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileOutputStream)---fileReplaceFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m FileOutputStream                   -- result-fileReplaceFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_replace_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_replace_finish" result-        result' <- (wrapObject FileOutputStream) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileReplaceFinishMethodInfo-instance (signature ~ (b -> m FileOutputStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileReplaceFinishMethodInfo a signature where-    overloadedMethod _ = fileReplaceFinish---- method File::replace_readwrite--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileIOStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_replace_readwrite" g_file_replace_readwrite :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface "Gio" "FileCreateFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileIOStream)---fileReplaceReadwrite ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- etag-    -> Bool                                 -- makeBackup-    -> [FileCreateFlags]                    -- flags-    -> Maybe (b)                            -- cancellable-    -> m FileIOStream                       -- result-fileReplaceReadwrite _obj etag makeBackup flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_replace_readwrite _obj' maybeEtag makeBackup' flags' maybeCancellable-        checkUnexpectedReturnNULL "g_file_replace_readwrite" result-        result' <- (wrapObject FileIOStream) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem maybeEtag-        return result'-     ) (do-        freeMem maybeEtag-     )--data FileReplaceReadwriteMethodInfo-instance (signature ~ (Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Maybe (b) -> m FileIOStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceReadwriteMethodInfo a signature where-    overloadedMethod _ = fileReplaceReadwrite---- method File::replace_readwrite_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface "Gio" "FileCreateFlags"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileReplaceReadwriteAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- etag-    -> Bool                                 -- makeBackup-    -> [FileCreateFlags]                    -- flags-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileReplaceReadwriteAsync _obj etag makeBackup flags ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_replace_readwrite_async _obj' maybeEtag makeBackup' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem maybeEtag-    return ()--data FileReplaceReadwriteAsyncMethodInfo-instance (signature ~ (Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceReadwriteAsyncMethodInfo a signature where-    overloadedMethod _ = fileReplaceReadwriteAsync---- method File::replace_readwrite_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileIOStream")--- throws : True--- Skip return : False--foreign import ccall "g_file_replace_readwrite_finish" g_file_replace_readwrite_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileIOStream)---fileReplaceReadwriteFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m FileIOStream                       -- result-fileReplaceReadwriteFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_replace_readwrite_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_replace_readwrite_finish" result-        result' <- (wrapObject FileIOStream) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileReplaceReadwriteFinishMethodInfo-instance (signature ~ (b -> m FileIOStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileReplaceReadwriteFinishMethodInfo a signature where-    overloadedMethod _ = fileReplaceReadwriteFinish---- method File::resolve_relative_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relative_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_file_resolve_relative_path" g_file_resolve_relative_path :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- relative_path : TBasicType TUTF8-    IO (Ptr File)---fileResolveRelativePath ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> T.Text                               -- relativePath-    -> m File                               -- result-fileResolveRelativePath _obj relativePath = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    relativePath' <- textToCString relativePath-    result <- g_file_resolve_relative_path _obj' relativePath'-    checkUnexpectedReturnNULL "g_file_resolve_relative_path" result-    result' <- (wrapObject File) result-    touchManagedPtr _obj-    freeMem relativePath'-    return result'--data FileResolveRelativePathMethodInfo-instance (signature ~ (T.Text -> m File), MonadIO m, FileK a) => MethodInfo FileResolveRelativePathMethodInfo a signature where-    overloadedMethod _ = fileResolveRelativePath---- method File::set_attribute--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value_p", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attribute : TBasicType TUTF8-    CUInt ->                                -- type : TInterface "Gio" "FileAttributeType"-    Ptr () ->                               -- value_p : TBasicType TPtr-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileSetAttribute ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> FileAttributeType                    -- type_-    -> Ptr ()                               -- valueP-    -> [FileQueryInfoFlags]                 -- flags-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileSetAttribute _obj attribute type_ valueP flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    let type_' = (fromIntegral . fromEnum) type_-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute _obj' attribute' type_' valueP flags' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        return ()-     ) (do-        freeMem attribute'-     )--data FileSetAttributeMethodInfo-instance (signature ~ (T.Text -> FileAttributeType -> Ptr () -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeMethodInfo a signature where-    overloadedMethod _ = fileSetAttribute---- method File::set_attribute_byte_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attribute : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileSetAttributeByteString ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> T.Text                               -- value-    -> [FileQueryInfoFlags]                 -- flags-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileSetAttributeByteString _obj attribute value flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    value' <- textToCString value-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_byte_string _obj' attribute' value' flags' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        freeMem value'-        return ()-     ) (do-        freeMem attribute'-        freeMem value'-     )--data FileSetAttributeByteStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeByteStringMethodInfo a signature where-    overloadedMethod _ = fileSetAttributeByteString---- method File::set_attribute_int32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attribute : TBasicType TUTF8-    Int32 ->                                -- value : TBasicType TInt32-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileSetAttributeInt32 ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Int32                                -- value-    -> [FileQueryInfoFlags]                 -- flags-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileSetAttributeInt32 _obj attribute value flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_int32 _obj' attribute' value flags' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        return ()-     ) (do-        freeMem attribute'-     )--data FileSetAttributeInt32MethodInfo-instance (signature ~ (T.Text -> Int32 -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeInt32MethodInfo a signature where-    overloadedMethod _ = fileSetAttributeInt32---- method File::set_attribute_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attribute : TBasicType TUTF8-    Int64 ->                                -- value : TBasicType TInt64-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileSetAttributeInt64 ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Int64                                -- value-    -> [FileQueryInfoFlags]                 -- flags-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileSetAttributeInt64 _obj attribute value flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_int64 _obj' attribute' value flags' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        return ()-     ) (do-        freeMem attribute'-     )--data FileSetAttributeInt64MethodInfo-instance (signature ~ (T.Text -> Int64 -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeInt64MethodInfo a signature where-    overloadedMethod _ = fileSetAttributeInt64---- method File::set_attribute_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attribute : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileSetAttributeString ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> T.Text                               -- value-    -> [FileQueryInfoFlags]                 -- flags-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileSetAttributeString _obj attribute value flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    value' <- textToCString value-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_string _obj' attribute' value' flags' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        freeMem value'-        return ()-     ) (do-        freeMem attribute'-        freeMem value'-     )--data FileSetAttributeStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeStringMethodInfo a signature where-    overloadedMethod _ = fileSetAttributeString---- method File::set_attribute_uint32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attribute : TBasicType TUTF8-    Word32 ->                               -- value : TBasicType TUInt32-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileSetAttributeUint32 ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Word32                               -- value-    -> [FileQueryInfoFlags]                 -- flags-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileSetAttributeUint32 _obj attribute value flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_uint32 _obj' attribute' value flags' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        return ()-     ) (do-        freeMem attribute'-     )--data FileSetAttributeUint32MethodInfo-instance (signature ~ (T.Text -> Word32 -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeUint32MethodInfo a signature where-    overloadedMethod _ = fileSetAttributeUint32---- method File::set_attribute_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- attribute : TBasicType TUTF8-    Word64 ->                               -- value : TBasicType TUInt64-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileSetAttributeUint64 ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Word64                               -- value-    -> [FileQueryInfoFlags]                 -- flags-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileSetAttributeUint64 _obj attribute value flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_uint64 _obj' attribute' value flags' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        return ()-     ) (do-        freeMem attribute'-     )--data FileSetAttributeUint64MethodInfo-instance (signature ~ (T.Text -> Word64 -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeUint64MethodInfo a signature where-    overloadedMethod _ = fileSetAttributeUint64---- method File::set_attributes_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr FileInfo ->                         -- info : TInterface "Gio" "FileInfo"-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileSetAttributesAsync ::-    (MonadIO m, FileK a, FileInfoK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- info-    -> [FileQueryInfoFlags]                 -- flags-    -> Int32                                -- ioPriority-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileSetAttributesAsync _obj info flags ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let info' = unsafeManagedPtrCastPtr info-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_set_attributes_async _obj' info' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr info-    whenJust cancellable touchManagedPtr-    return ()--data FileSetAttributesAsyncMethodInfo-instance (signature ~ (b -> [FileQueryInfoFlags] -> Int32 -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, FileInfoK b, CancellableK c) => MethodInfo FileSetAttributesAsyncMethodInfo a signature where-    overloadedMethod _ = fileSetAttributesAsync---- method File::set_attributes_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionOut, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr FileInfo) ->                   -- info : TInterface "Gio" "FileInfo"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileSetAttributesFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m (FileInfo)                         -- result-fileSetAttributesFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    info <- allocMem :: IO (Ptr (Ptr FileInfo))-    onException (do-        _ <- propagateGError $ g_file_set_attributes_finish _obj' result_' info-        info' <- peek info-        info'' <- (wrapObject FileInfo) info'-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem info-        return info''-     ) (do-        freeMem info-     )--data FileSetAttributesFinishMethodInfo-instance (signature ~ (b -> m (FileInfo)), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileSetAttributesFinishMethodInfo a signature where-    overloadedMethod _ = fileSetAttributesFinish---- method File::set_attributes_from_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr FileInfo ->                         -- info : TInterface "Gio" "FileInfo"-    CUInt ->                                -- flags : TInterface "Gio" "FileQueryInfoFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileSetAttributesFromInfo ::-    (MonadIO m, FileK a, FileInfoK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- info-    -> [FileQueryInfoFlags]                 -- flags-    -> Maybe (c)                            -- cancellable-    -> m ()                                 -- result-fileSetAttributesFromInfo _obj info flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let info' = unsafeManagedPtrCastPtr info-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attributes_from_info _obj' info' flags' maybeCancellable-        touchManagedPtr _obj-        touchManagedPtr info-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data FileSetAttributesFromInfoMethodInfo-instance (signature ~ (b -> [FileQueryInfoFlags] -> Maybe (c) -> m ()), MonadIO m, FileK a, FileInfoK b, CancellableK c) => MethodInfo FileSetAttributesFromInfoMethodInfo a signature where-    overloadedMethod _ = fileSetAttributesFromInfo---- method File::set_display_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : True--- Skip return : False--foreign import ccall "g_file_set_display_name" g_file_set_display_name :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- display_name : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr File)---fileSetDisplayName ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- displayName-    -> Maybe (b)                            -- cancellable-    -> m File                               -- result-fileSetDisplayName _obj displayName cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    displayName' <- textToCString displayName-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_set_display_name _obj' displayName' maybeCancellable-        checkUnexpectedReturnNULL "g_file_set_display_name" result-        result' <- (wrapObject File) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem displayName'-        return result'-     ) (do-        freeMem displayName'-     )--data FileSetDisplayNameMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m File), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetDisplayNameMethodInfo a signature where-    overloadedMethod _ = fileSetDisplayName---- method File::set_display_name_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CString ->                              -- display_name : TBasicType TUTF8-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileSetDisplayNameAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- displayName-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileSetDisplayNameAsync _obj displayName ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    displayName' <- textToCString displayName-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_set_display_name_async _obj' displayName' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem displayName'-    return ()--data FileSetDisplayNameAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetDisplayNameAsyncMethodInfo a signature where-    overloadedMethod _ = fileSetDisplayNameAsync---- method File::set_display_name_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : True--- Skip return : False--foreign import ccall "g_file_set_display_name_finish" g_file_set_display_name_finish :: -    Ptr File ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr File)---fileSetDisplayNameFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m File                               -- result-fileSetDisplayNameFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_set_display_name_finish _obj' res'-        checkUnexpectedReturnNULL "g_file_set_display_name_finish" result-        result' <- (wrapObject File) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data FileSetDisplayNameFinishMethodInfo-instance (signature ~ (b -> m File), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileSetDisplayNameFinishMethodInfo a signature where-    overloadedMethod _ = fileSetDisplayNameFinish---- method File::start_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DriveStartFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "DriveStartFlags"-    Ptr MountOperation ->                   -- start_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileStartMountable ::-    (MonadIO m, FileK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [DriveStartFlags]                    -- flags-    -> Maybe (b)                            -- startOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileStartMountable _obj flags startOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeStartOperation <- case startOperation of-        Nothing -> return nullPtr-        Just jStartOperation -> do-            let jStartOperation' = unsafeManagedPtrCastPtr jStartOperation-            return jStartOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_start_mountable _obj' flags' maybeStartOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust startOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data FileStartMountableMethodInfo-instance (signature ~ ([DriveStartFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileStartMountableMethodInfo a signature where-    overloadedMethod _ = fileStartMountable---- method File::start_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileStartMountableFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-fileStartMountableFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_start_mountable_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FileStartMountableFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileStartMountableFinishMethodInfo a signature where-    overloadedMethod _ = fileStartMountableFinish---- method File::stop_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileStopMountable ::-    (MonadIO m, FileK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileStopMountable _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_stop_mountable _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data FileStopMountableMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileStopMountableMethodInfo a signature where-    overloadedMethod _ = fileStopMountable---- method File::stop_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileStopMountableFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-fileStopMountableFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_stop_mountable_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FileStopMountableFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileStopMountableFinishMethodInfo a signature where-    overloadedMethod _ = fileStopMountableFinish---- method File::supports_thread_contexts--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    IO CInt---fileSupportsThreadContexts ::-    (MonadIO m, FileK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-fileSupportsThreadContexts _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_supports_thread_contexts _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FileSupportsThreadContextsMethodInfo-instance (signature ~ (m Bool), MonadIO m, FileK a) => MethodInfo FileSupportsThreadContextsMethodInfo a signature where-    overloadedMethod _ = fileSupportsThreadContexts---- method File::trash--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileTrash ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileTrash _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_trash _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data FileTrashMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileTrashMethodInfo a signature where-    overloadedMethod _ = fileTrash---- method File::trash_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileTrashAsync ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileTrashAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_trash_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileTrashAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileTrashAsyncMethodInfo a signature where-    overloadedMethod _ = fileTrashAsync---- method File::trash_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileTrashFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-fileTrashFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_trash_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FileTrashFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileTrashFinishMethodInfo a signature where-    overloadedMethod _ = fileTrashFinish---- method File::unmount_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{-# DEPRECATED fileUnmountMountable ["(Since version 2.22)","Use g_file_unmount_mountable_with_operation() instead."]#-}-fileUnmountMountable ::-    (MonadIO m, FileK a, CancellableK b) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileUnmountMountable _obj flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_unmount_mountable _obj' flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileUnmountMountableMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileUnmountMountableMethodInfo a signature where-    overloadedMethod _ = fileUnmountMountable---- method File::unmount_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED fileUnmountMountableFinish ["(Since version 2.22)","Use g_file_unmount_mountable_with_operation_finish()","    instead."]#-}-fileUnmountMountableFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-fileUnmountMountableFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_unmount_mountable_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FileUnmountMountableFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileUnmountMountableFinishMethodInfo a signature where-    overloadedMethod _ = fileUnmountMountableFinish---- method File::unmount_mountable_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileUnmountMountableWithOperation ::-    (MonadIO m, FileK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileUnmountMountableWithOperation _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_unmount_mountable_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data FileUnmountMountableWithOperationMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileUnmountMountableWithOperationMethodInfo a signature where-    overloadedMethod _ = fileUnmountMountableWithOperation---- method File::unmount_mountable_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "File"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileUnmountMountableWithOperationFinish ::-    (MonadIO m, FileK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-fileUnmountMountableWithOperationFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_unmount_mountable_with_operation_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FileUnmountMountableWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileUnmountMountableWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = fileUnmountMountableWithOperationFinish---- method File::new_for_commandline_arg--- method type : MemberFunction--- Args : [Arg {argCName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_file_new_for_commandline_arg" g_file_new_for_commandline_arg :: -    CString ->                              -- arg : TBasicType TUTF8-    IO (Ptr File)---fileNewForCommandlineArg ::-    (MonadIO m) =>-    T.Text                                  -- arg-    -> m File                               -- result-fileNewForCommandlineArg arg = liftIO $ do-    arg' <- textToCString arg-    result <- g_file_new_for_commandline_arg arg'-    checkUnexpectedReturnNULL "g_file_new_for_commandline_arg" result-    result' <- (wrapObject File) result-    freeMem arg'-    return result'---- method File::new_for_commandline_arg_and_cwd--- method type : MemberFunction--- Args : [Arg {argCName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cwd", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 TUTF8-    CString ->                              -- cwd : TBasicType TUTF8-    IO (Ptr File)---fileNewForCommandlineArgAndCwd ::-    (MonadIO m) =>-    T.Text                                  -- arg-    -> T.Text                               -- cwd-    -> m File                               -- result-fileNewForCommandlineArgAndCwd arg cwd = liftIO $ do-    arg' <- textToCString arg-    cwd' <- textToCString cwd-    result <- g_file_new_for_commandline_arg_and_cwd arg' cwd'-    checkUnexpectedReturnNULL "g_file_new_for_commandline_arg_and_cwd" result-    result' <- (wrapObject File) result-    freeMem arg'-    freeMem cwd'-    return result'---- method File::new_for_path--- method type : MemberFunction--- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_file_new_for_path" g_file_new_for_path :: -    CString ->                              -- path : TBasicType TUTF8-    IO (Ptr File)---fileNewForPath ::-    (MonadIO m) =>-    T.Text                                  -- path-    -> m File                               -- result-fileNewForPath path = liftIO $ do-    path' <- textToCString path-    result <- g_file_new_for_path path'-    checkUnexpectedReturnNULL "g_file_new_for_path" result-    result' <- (wrapObject File) result-    freeMem path'-    return result'---- method File::new_for_uri--- method type : MemberFunction--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---fileNewForUri ::-    (MonadIO m) =>-    T.Text                                  -- uri-    -> m File                               -- result-fileNewForUri uri = liftIO $ do-    uri' <- textToCString uri-    result <- g_file_new_for_uri uri'-    checkUnexpectedReturnNULL "g_file_new_for_uri" result-    result' <- (wrapObject File) result-    freeMem uri'-    return result'---- method File::new_tmp--- method type : MemberFunction--- Args : [Arg {argCName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iostream", argType = TInterface "Gio" "FileIOStream", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : True--- Skip return : False--foreign import ccall "g_file_new_tmp" g_file_new_tmp :: -    CString ->                              -- tmpl : TBasicType TFileName-    Ptr (Ptr FileIOStream) ->               -- iostream : TInterface "Gio" "FileIOStream"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr File)---fileNewTmp ::-    (MonadIO m) =>-    Maybe ([Char])                          -- tmpl-    -> m (File,FileIOStream)                -- result-fileNewTmp tmpl = liftIO $ do-    maybeTmpl <- case tmpl of-        Nothing -> return nullPtr-        Just jTmpl -> do-            jTmpl' <- stringToCString jTmpl-            return jTmpl'-    iostream <- allocMem :: IO (Ptr (Ptr FileIOStream))-    onException (do-        result <- propagateGError $ g_file_new_tmp maybeTmpl iostream-        checkUnexpectedReturnNULL "g_file_new_tmp" result-        result' <- (wrapObject File) result-        iostream' <- peek iostream-        iostream'' <- (wrapObject FileIOStream) iostream'-        freeMem maybeTmpl-        freeMem iostream-        return (result', iostream'')-     ) (do-        freeMem maybeTmpl-        freeMem iostream-     )---- method File::parse_name--- method type : MemberFunction--- Args : [Arg {argCName = "parse_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---fileParseName ::-    (MonadIO m) =>-    T.Text                                  -- parseName-    -> m File                               -- result-fileParseName parseName = liftIO $ do-    parseName' <- textToCString parseName-    result <- g_file_parse_name parseName'-    checkUnexpectedReturnNULL "g_file_parse_name" result-    result' <- (wrapObject File) result-    freeMem parseName'-    return result'--
− GI/Gio/Interfaces/File.hs-boot 
@@ -1,127 +0,0 @@-module GI.Gio.Interfaces.File where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype File = File (ForeignPtr File)-instance GObject File where-class GObject o => FileK o-instance (GObject o, IsDescendantOf File o) => FileK o-data FileAppendToMethodInfo-data FileAppendToAsyncMethodInfo-data FileAppendToFinishMethodInfo-data FileCopyMethodInfo-data FileCopyAttributesMethodInfo-data FileCopyFinishMethodInfo-data FileCreateMethodInfo-data FileCreateAsyncMethodInfo-data FileCreateFinishMethodInfo-data FileCreateReadwriteMethodInfo-data FileCreateReadwriteAsyncMethodInfo-data FileCreateReadwriteFinishMethodInfo-data FileDeleteMethodInfo-data FileDeleteAsyncMethodInfo-data FileDeleteFinishMethodInfo-data FileDupMethodInfo-data FileEjectMountableMethodInfo-data FileEjectMountableFinishMethodInfo-data FileEjectMountableWithOperationMethodInfo-data FileEjectMountableWithOperationFinishMethodInfo-data FileEnumerateChildrenMethodInfo-data FileEnumerateChildrenAsyncMethodInfo-data FileEnumerateChildrenFinishMethodInfo-data FileEqualMethodInfo-data FileFindEnclosingMountMethodInfo-data FileFindEnclosingMountAsyncMethodInfo-data FileFindEnclosingMountFinishMethodInfo-data FileGetBasenameMethodInfo-data FileGetChildMethodInfo-data FileGetChildForDisplayNameMethodInfo-data FileGetParentMethodInfo-data FileGetParseNameMethodInfo-data FileGetPathMethodInfo-data FileGetRelativePathMethodInfo-data FileGetUriMethodInfo-data FileGetUriSchemeMethodInfo-data FileHasParentMethodInfo-data FileHasPrefixMethodInfo-data FileHasUriSchemeMethodInfo-data FileHashMethodInfo-data FileIsNativeMethodInfo-data FileLoadContentsMethodInfo-data FileLoadContentsAsyncMethodInfo-data FileLoadContentsFinishMethodInfo-data FileLoadPartialContentsFinishMethodInfo-data FileMakeDirectoryMethodInfo-data FileMakeDirectoryAsyncMethodInfo-data FileMakeDirectoryFinishMethodInfo-data FileMakeDirectoryWithParentsMethodInfo-data FileMakeSymbolicLinkMethodInfo-data FileMeasureDiskUsageFinishMethodInfo-data FileMonitorMethodInfo-data FileMonitorDirectoryMethodInfo-data FileMonitorFileMethodInfo-data FileMountEnclosingVolumeMethodInfo-data FileMountEnclosingVolumeFinishMethodInfo-data FileMountMountableMethodInfo-data FileMountMountableFinishMethodInfo-data FileMoveMethodInfo-data FileOpenReadwriteMethodInfo-data FileOpenReadwriteAsyncMethodInfo-data FileOpenReadwriteFinishMethodInfo-data FilePollMountableMethodInfo-data FilePollMountableFinishMethodInfo-data FileQueryDefaultHandlerMethodInfo-data FileQueryExistsMethodInfo-data FileQueryFileTypeMethodInfo-data FileQueryFilesystemInfoMethodInfo-data FileQueryFilesystemInfoAsyncMethodInfo-data FileQueryFilesystemInfoFinishMethodInfo-data FileQueryInfoMethodInfo-data FileQueryInfoAsyncMethodInfo-data FileQueryInfoFinishMethodInfo-data FileQuerySettableAttributesMethodInfo-data FileQueryWritableNamespacesMethodInfo-data FileReadMethodInfo-data FileReadAsyncMethodInfo-data FileReadFinishMethodInfo-data FileReplaceMethodInfo-data FileReplaceAsyncMethodInfo-data FileReplaceContentsMethodInfo-data FileReplaceContentsAsyncMethodInfo-data FileReplaceContentsBytesAsyncMethodInfo-data FileReplaceContentsFinishMethodInfo-data FileReplaceFinishMethodInfo-data FileReplaceReadwriteMethodInfo-data FileReplaceReadwriteAsyncMethodInfo-data FileReplaceReadwriteFinishMethodInfo-data FileResolveRelativePathMethodInfo-data FileSetAttributeMethodInfo-data FileSetAttributeByteStringMethodInfo-data FileSetAttributeInt32MethodInfo-data FileSetAttributeInt64MethodInfo-data FileSetAttributeStringMethodInfo-data FileSetAttributeUint32MethodInfo-data FileSetAttributeUint64MethodInfo-data FileSetAttributesAsyncMethodInfo-data FileSetAttributesFinishMethodInfo-data FileSetAttributesFromInfoMethodInfo-data FileSetDisplayNameMethodInfo-data FileSetDisplayNameAsyncMethodInfo-data FileSetDisplayNameFinishMethodInfo-data FileStartMountableMethodInfo-data FileStartMountableFinishMethodInfo-data FileStopMountableMethodInfo-data FileStopMountableFinishMethodInfo-data FileSupportsThreadContextsMethodInfo-data FileTrashMethodInfo-data FileTrashAsyncMethodInfo-data FileTrashFinishMethodInfo-data FileUnmountMountableMethodInfo-data FileUnmountMountableFinishMethodInfo-data FileUnmountMountableWithOperationMethodInfo-data FileUnmountMountableWithOperationFinishMethodInfo
− GI/Gio/Interfaces/FileDescriptorBased.hs 
@@ -1,130 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.FileDescriptorBased-    ( ---- * Exported types-    FileDescriptorBased(..)                 ,-    noFileDescriptorBased                   ,-    FileDescriptorBasedK                    ,-    toFileDescriptorBased                   ,--- -- * Methods--- ** fileDescriptorBasedGetFd-    FileDescriptorBasedGetFdMethodInfo      ,-    fileDescriptorBasedGetFd                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface FileDescriptorBased --newtype FileDescriptorBased = FileDescriptorBased (ForeignPtr FileDescriptorBased)-noFileDescriptorBased :: Maybe FileDescriptorBased-noFileDescriptorBased = Nothing--type family ResolveFileDescriptorBasedMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileDescriptorBasedMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFileDescriptorBasedMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFileDescriptorBasedMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFileDescriptorBasedMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFileDescriptorBasedMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFileDescriptorBasedMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFileDescriptorBasedMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFileDescriptorBasedMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFileDescriptorBasedMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFileDescriptorBasedMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFileDescriptorBasedMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFileDescriptorBasedMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFileDescriptorBasedMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFileDescriptorBasedMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFileDescriptorBasedMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFileDescriptorBasedMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFileDescriptorBasedMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFileDescriptorBasedMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFileDescriptorBasedMethod "getFd" o = FileDescriptorBasedGetFdMethodInfo-    ResolveFileDescriptorBasedMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFileDescriptorBasedMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFileDescriptorBasedMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFileDescriptorBasedMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFileDescriptorBasedMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFileDescriptorBasedMethod t FileDescriptorBased, MethodInfo info FileDescriptorBased p) => IsLabelProxy t (FileDescriptorBased -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileDescriptorBasedMethod t FileDescriptorBased, MethodInfo info FileDescriptorBased p) => IsLabel t (FileDescriptorBased -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList FileDescriptorBased = FileDescriptorBasedAttributeList-type FileDescriptorBasedAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FileDescriptorBased = FileDescriptorBasedSignalList-type FileDescriptorBasedSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_file_descriptor_based_get_type"-    c_g_file_descriptor_based_get_type :: IO GType--type instance ParentTypes FileDescriptorBased = FileDescriptorBasedParentTypes-type FileDescriptorBasedParentTypes = '[GObject.Object]--instance GObject FileDescriptorBased where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_file_descriptor_based_get_type-    --class GObject o => FileDescriptorBasedK o-instance (GObject o, IsDescendantOf FileDescriptorBased o) => FileDescriptorBasedK o--toFileDescriptorBased :: FileDescriptorBasedK o => o -> IO FileDescriptorBased-toFileDescriptorBased = unsafeCastTo FileDescriptorBased---- method FileDescriptorBased::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileDescriptorBased", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "FileDescriptorBased"-    IO Int32---fileDescriptorBasedGetFd ::-    (MonadIO m, FileDescriptorBasedK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-fileDescriptorBasedGetFd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_descriptor_based_get_fd _obj'-    touchManagedPtr _obj-    return result--data FileDescriptorBasedGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, FileDescriptorBasedK a) => MethodInfo FileDescriptorBasedGetFdMethodInfo a signature where-    overloadedMethod _ = fileDescriptorBasedGetFd--
− GI/Gio/Interfaces/FileDescriptorBased.hs-boot 
@@ -1,14 +0,0 @@-module GI.Gio.Interfaces.FileDescriptorBased where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileDescriptorBased = FileDescriptorBased (ForeignPtr FileDescriptorBased)-instance GObject FileDescriptorBased where-class GObject o => FileDescriptorBasedK o-instance (GObject o, IsDescendantOf FileDescriptorBased o) => FileDescriptorBasedK o-data FileDescriptorBasedGetFdMethodInfo
− GI/Gio/Interfaces/Icon.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 (garetxe@gmail.com)--}--module GI.Gio.Interfaces.Icon-    ( ---- * Exported types-    Icon(..)                                ,-    noIcon                                  ,-    IconK                                   ,-    toIcon                                  ,--- -- * Methods--- ** iconDeserialize-    iconDeserialize                         ,----- ** iconEqual-    IconEqualMethodInfo                     ,-    iconEqual                               ,----- ** iconHash-    iconHash                                ,----- ** iconNewForString-    iconNewForString                        ,----- ** iconSerialize-    IconSerializeMethodInfo                 ,-    iconSerialize                           ,----- ** iconToString-    IconToStringMethodInfo                  ,-    iconToString                            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface Icon --newtype Icon = Icon (ForeignPtr Icon)-noIcon :: Maybe Icon-noIcon = Nothing--type family ResolveIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveIconMethod "equal" o = IconEqualMethodInfo-    ResolveIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveIconMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveIconMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveIconMethod "serialize" o = IconSerializeMethodInfo-    ResolveIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveIconMethod "toString" o = IconToStringMethodInfo-    ResolveIconMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveIconMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveIconMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveIconMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveIconMethod t Icon, MethodInfo info Icon p) => IsLabelProxy t (Icon -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveIconMethod t Icon, MethodInfo info Icon p) => IsLabel t (Icon -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Icon = IconAttributeList-type IconAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Icon = IconSignalList-type IconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_icon_get_type"-    c_g_icon_get_type :: IO GType--type instance ParentTypes Icon = IconParentTypes-type IconParentTypes = '[GObject.Object]--instance GObject Icon where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_icon_get_type-    --class GObject o => IconK o-instance (GObject o, IsDescendantOf Icon o) => IconK o--toIcon :: IconK o => o -> IO Icon-toIcon = unsafeCastTo Icon---- method Icon::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon2", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "Icon"-    Ptr Icon ->                             -- icon2 : TInterface "Gio" "Icon"-    IO CInt---iconEqual ::-    (MonadIO m, IconK a, IconK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- icon2-    -> m Bool                               -- result-iconEqual _obj icon2 = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeIcon2 <- case icon2 of-        Nothing -> return nullPtr-        Just jIcon2 -> do-            let jIcon2' = unsafeManagedPtrCastPtr jIcon2-            return jIcon2'-    result <- g_icon_equal _obj' maybeIcon2-    let result' = (/= 0) result-    touchManagedPtr _obj-    whenJust icon2 touchManagedPtr-    return result'--data IconEqualMethodInfo-instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, IconK a, IconK b) => MethodInfo IconEqualMethodInfo a signature where-    overloadedMethod _ = iconEqual---- method Icon::serialize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Icon"-    IO (Ptr GVariant)---iconSerialize ::-    (MonadIO m, IconK a) =>-    a                                       -- _obj-    -> m GVariant                           -- result-iconSerialize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_icon_serialize _obj'-    checkUnexpectedReturnNULL "g_icon_serialize" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    return result'--data IconSerializeMethodInfo-instance (signature ~ (m GVariant), MonadIO m, IconK a) => MethodInfo IconSerializeMethodInfo a signature where-    overloadedMethod _ = iconSerialize---- method Icon::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Icon"-    IO CString---iconToString ::-    (MonadIO m, IconK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-iconToString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_icon_to_string _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data IconToStringMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IconK a) => MethodInfo IconToStringMethodInfo a signature where-    overloadedMethod _ = iconToString---- method Icon::deserialize--- method type : MemberFunction--- Args : [Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_icon_deserialize" g_icon_deserialize :: -    Ptr GVariant ->                         -- value : TVariant-    IO (Ptr Icon)---iconDeserialize ::-    (MonadIO m) =>-    GVariant                                -- value-    -> m Icon                               -- result-iconDeserialize value = liftIO $ do-    let value' = unsafeManagedPtrGetPtr value-    result <- g_icon_deserialize value'-    checkUnexpectedReturnNULL "g_icon_deserialize" result-    result' <- (wrapObject Icon) result-    return result'---- method Icon::hash--- method type : MemberFunction--- Args : [Arg {argCName = "icon", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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---iconHash ::-    (MonadIO m) =>-    Ptr ()                                  -- icon-    -> m Word32                             -- result-iconHash icon = liftIO $ do-    result <- g_icon_hash icon-    return result---- method Icon::new_for_string--- method type : MemberFunction--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---iconNewForString ::-    (MonadIO m) =>-    T.Text                                  -- str-    -> m Icon                               -- result-iconNewForString str = liftIO $ do-    str' <- textToCString str-    onException (do-        result <- propagateGError $ g_icon_new_for_string str'-        checkUnexpectedReturnNULL "g_icon_new_for_string" result-        result' <- (wrapObject Icon) result-        freeMem str'-        return result'-     ) (do-        freeMem str'-     )--
− GI/Gio/Interfaces/Icon.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gio.Interfaces.Icon where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Icon = Icon (ForeignPtr Icon)-instance GObject Icon where-class GObject o => IconK o-instance (GObject o, IsDescendantOf Icon o) => IconK o-data IconEqualMethodInfo-data IconSerializeMethodInfo-data IconToStringMethodInfo
− GI/Gio/Interfaces/Initable.hs 
@@ -1,192 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.Initable-    ( ---- * Exported types-    Initable(..)                            ,-    noInitable                              ,-    InitableK                               ,-    toInitable                              ,--- -- * Methods--- ** initableInit-    InitableInitMethodInfo                  ,-    initableInit                            ,----- ** initableNewv-    initableNewv                            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface Initable --newtype Initable = Initable (ForeignPtr Initable)-noInitable :: Maybe Initable-noInitable = Nothing--type family ResolveInitableMethod (t :: Symbol) (o :: *) :: * where-    ResolveInitableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveInitableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveInitableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveInitableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveInitableMethod "init" o = InitableInitMethodInfo-    ResolveInitableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveInitableMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveInitableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveInitableMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveInitableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveInitableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveInitableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveInitableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveInitableMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveInitableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveInitableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveInitableMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveInitableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveInitableMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveInitableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveInitableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveInitableMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveInitableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveInitableMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveInitableMethod t Initable, MethodInfo info Initable p) => IsLabelProxy t (Initable -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveInitableMethod t Initable, MethodInfo info Initable p) => IsLabel t (Initable -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Initable = InitableAttributeList-type InitableAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Initable = InitableSignalList-type InitableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_initable_get_type"-    c_g_initable_get_type :: IO GType--type instance ParentTypes Initable = InitableParentTypes-type InitableParentTypes = '[GObject.Object]--instance GObject Initable where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_initable_get_type-    --class GObject o => InitableK o-instance (GObject o, IsDescendantOf Initable o) => InitableK o--toInitable :: InitableK o => o -> IO Initable-toInitable = unsafeCastTo Initable---- method Initable::init--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Initable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "Initable"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---initableInit ::-    (MonadIO m, InitableK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-initableInit _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_initable_init _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data InitableInitMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, InitableK a, CancellableK b) => MethodInfo InitableInitMethodInfo a signature where-    overloadedMethod _ = initableInit---- method Initable::newv--- method type : MemberFunction--- Args : [Arg {argCName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_parameters", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TCArray False (-1) 1 (TInterface "GObject" "Parameter"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_parameters", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "GObject" "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 ->                -- parameters : TCArray False (-1) 1 (TInterface "GObject" "Parameter")-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GObject.Object)---initableNewv ::-    (MonadIO m, CancellableK a) =>-    GType                                   -- objectType-    -> [GObject.Parameter]                  -- parameters-    -> Maybe (a)                            -- cancellable-    -> m GObject.Object                     -- result-initableNewv objectType parameters cancellable = liftIO $ do-    let nParameters = fromIntegral $ length parameters-    let objectType' = gtypeToCGType objectType-    let parameters' = map unsafeManagedPtrGetPtr parameters-    parameters'' <- packBlockArray 32 parameters'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_initable_newv objectType' nParameters parameters'' maybeCancellable-        checkUnexpectedReturnNULL "g_initable_newv" result-        result' <- (wrapObject GObject.Object) result-        mapM_ touchManagedPtr parameters-        whenJust cancellable touchManagedPtr-        freeMem parameters''-        return result'-     ) (do-        freeMem parameters''-     )--
− GI/Gio/Interfaces/Initable.hs-boot 
@@ -1,14 +0,0 @@-module GI.Gio.Interfaces.Initable where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Initable = Initable (ForeignPtr Initable)-instance GObject Initable where-class GObject o => InitableK o-instance (GObject o, IsDescendantOf Initable o) => InitableK o-data InitableInitMethodInfo
− GI/Gio/Interfaces/ListModel.hs 
@@ -1,308 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.ListModel-    ( ---- * Exported types-    ListModel(..)                           ,-    noListModel                             ,-    ListModelK                              ,-    toListModel                             ,--- -- * Methods--- ** listModelGetItem-    ListModelGetItemMethodInfo              ,-    listModelGetItem                        ,----- ** listModelGetItemType-    ListModelGetItemTypeMethodInfo          ,-    listModelGetItemType                    ,----- ** listModelGetNItems-    ListModelGetNItemsMethodInfo            ,-    listModelGetNItems                      ,----- ** listModelItemsChanged-    ListModelItemsChangedMethodInfo         ,-    listModelItemsChanged                   ,----- -- * Signals--- ** ItemsChanged-    ListModelItemsChangedCallback           ,-    ListModelItemsChangedCallbackC          ,-    ListModelItemsChangedSignalInfo         ,-    afterListModelItemsChanged              ,-    listModelItemsChangedCallbackWrapper    ,-    listModelItemsChangedClosure            ,-    mkListModelItemsChangedCallback         ,-    noListModelItemsChangedCallback         ,-    onListModelItemsChanged                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface ListModel --newtype ListModel = ListModel (ForeignPtr ListModel)-noListModel :: Maybe ListModel-noListModel = Nothing--type family ResolveListModelMethod (t :: Symbol) (o :: *) :: * where-    ResolveListModelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveListModelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveListModelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveListModelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveListModelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveListModelMethod "itemsChanged" o = ListModelItemsChangedMethodInfo-    ResolveListModelMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveListModelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveListModelMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveListModelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveListModelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveListModelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveListModelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveListModelMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveListModelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveListModelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveListModelMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveListModelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveListModelMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveListModelMethod "getItem" o = ListModelGetItemMethodInfo-    ResolveListModelMethod "getItemType" o = ListModelGetItemTypeMethodInfo-    ResolveListModelMethod "getNItems" o = ListModelGetNItemsMethodInfo-    ResolveListModelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveListModelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveListModelMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveListModelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveListModelMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveListModelMethod t ListModel, MethodInfo info ListModel p) => IsLabelProxy t (ListModel -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveListModelMethod t ListModel, MethodInfo info ListModel p) => IsLabel t (ListModel -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal ListModel::items-changed-type ListModelItemsChangedCallback =-    Word32 ->-    Word32 ->-    Word32 ->-    IO ()--noListModelItemsChangedCallback :: Maybe ListModelItemsChangedCallback-noListModelItemsChangedCallback = Nothing--type ListModelItemsChangedCallbackC =-    Ptr () ->                               -- object-    Word32 ->-    Word32 ->-    Word32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkListModelItemsChangedCallback :: ListModelItemsChangedCallbackC -> IO (FunPtr ListModelItemsChangedCallbackC)--listModelItemsChangedClosure :: ListModelItemsChangedCallback -> IO Closure-listModelItemsChangedClosure cb = newCClosure =<< mkListModelItemsChangedCallback wrapped-    where wrapped = listModelItemsChangedCallbackWrapper cb--listModelItemsChangedCallbackWrapper ::-    ListModelItemsChangedCallback ->-    Ptr () ->-    Word32 ->-    Word32 ->-    Word32 ->-    Ptr () ->-    IO ()-listModelItemsChangedCallbackWrapper _cb _ position removed added _ = do-    _cb  position removed added--onListModelItemsChanged :: (GObject a, MonadIO m) => a -> ListModelItemsChangedCallback -> m SignalHandlerId-onListModelItemsChanged obj cb = liftIO $ connectListModelItemsChanged obj cb SignalConnectBefore-afterListModelItemsChanged :: (GObject a, MonadIO m) => a -> ListModelItemsChangedCallback -> m SignalHandlerId-afterListModelItemsChanged obj cb = connectListModelItemsChanged obj cb SignalConnectAfter--connectListModelItemsChanged :: (GObject a, MonadIO m) =>-                                a -> ListModelItemsChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectListModelItemsChanged obj cb after = liftIO $ do-    cb' <- mkListModelItemsChangedCallback (listModelItemsChangedCallbackWrapper cb)-    connectSignalFunPtr obj "items-changed" cb' after--type instance AttributeList ListModel = ListModelAttributeList-type ListModelAttributeList = ('[ ] :: [(Symbol, *)])--data ListModelItemsChangedSignalInfo-instance SignalInfo ListModelItemsChangedSignalInfo where-    type HaskellCallbackType ListModelItemsChangedSignalInfo = ListModelItemsChangedCallback-    connectSignal _ = connectListModelItemsChanged--type instance SignalList ListModel = ListModelSignalList-type ListModelSignalList = ('[ '("itemsChanged", ListModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_list_model_get_type"-    c_g_list_model_get_type :: IO GType--type instance ParentTypes ListModel = ListModelParentTypes-type ListModelParentTypes = '[GObject.Object]--instance GObject ListModel where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_list_model_get_type-    --class GObject o => ListModelK o-instance (GObject o, IsDescendantOf ListModel o) => ListModelK o--toListModel :: ListModelK o => o -> IO ListModel-toListModel = unsafeCastTo ListModel---- method ListModel::get_item_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ListModel"-    IO CGType---listModelGetItemType ::-    (MonadIO m, ListModelK a) =>-    a                                       -- _obj-    -> m GType                              -- result-listModelGetItemType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_list_model_get_item_type _obj'-    let result' = GType result-    touchManagedPtr _obj-    return result'--data ListModelGetItemTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, ListModelK a) => MethodInfo ListModelGetItemTypeMethodInfo a signature where-    overloadedMethod _ = listModelGetItemType---- method ListModel::get_n_items--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ListModel"-    IO Word32---listModelGetNItems ::-    (MonadIO m, ListModelK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-listModelGetNItems _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_list_model_get_n_items _obj'-    touchManagedPtr _obj-    return result--data ListModelGetNItemsMethodInfo-instance (signature ~ (m Word32), MonadIO m, ListModelK a) => MethodInfo ListModelGetNItemsMethodInfo a signature where-    overloadedMethod _ = listModelGetNItems---- method ListModel::get_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GObject" "Object")--- throws : False--- Skip return : False--foreign import ccall "g_list_model_get_object" g_list_model_get_object :: -    Ptr ListModel ->                        -- _obj : TInterface "Gio" "ListModel"-    Word32 ->                               -- position : TBasicType TUInt-    IO (Ptr GObject.Object)---listModelGetItem ::-    (MonadIO m, ListModelK a) =>-    a                                       -- _obj-    -> Word32                               -- position-    -> m (Maybe GObject.Object)             -- result-listModelGetItem _obj position = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_list_model_get_object _obj' position-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject GObject.Object) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ListModelGetItemMethodInfo-instance (signature ~ (Word32 -> m (Maybe GObject.Object)), MonadIO m, ListModelK a) => MethodInfo ListModelGetItemMethodInfo a signature where-    overloadedMethod _ = listModelGetItem---- method ListModel::items_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "removed", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ListModel"-    Word32 ->                               -- position : TBasicType TUInt-    Word32 ->                               -- removed : TBasicType TUInt-    Word32 ->                               -- added : TBasicType TUInt-    IO ()---listModelItemsChanged ::-    (MonadIO m, ListModelK a) =>-    a                                       -- _obj-    -> Word32                               -- position-    -> Word32                               -- removed-    -> Word32                               -- added-    -> m ()                                 -- result-listModelItemsChanged _obj position removed added = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_list_model_items_changed _obj' position removed added-    touchManagedPtr _obj-    return ()--data ListModelItemsChangedMethodInfo-instance (signature ~ (Word32 -> Word32 -> Word32 -> m ()), MonadIO m, ListModelK a) => MethodInfo ListModelItemsChangedMethodInfo a signature where-    overloadedMethod _ = listModelItemsChanged--
− GI/Gio/Interfaces/ListModel.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Interfaces.ListModel where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ListModel = ListModel (ForeignPtr ListModel)-data ListModelItemsChangedSignalInfo-instance GObject ListModel where-class GObject o => ListModelK o-instance (GObject o, IsDescendantOf ListModel o) => ListModelK o-data ListModelGetItemTypeMethodInfo-data ListModelGetNItemsMethodInfo-data ListModelGetItemMethodInfo-data ListModelItemsChangedMethodInfo
− GI/Gio/Interfaces/LoadableIcon.hs 
@@ -1,260 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.LoadableIcon-    ( ---- * Exported types-    LoadableIcon(..)                        ,-    noLoadableIcon                          ,-    LoadableIconK                           ,-    toLoadableIcon                          ,--- -- * Methods--- ** loadableIconLoad-    LoadableIconLoadMethodInfo              ,-    loadableIconLoad                        ,----- ** loadableIconLoadAsync-    LoadableIconLoadAsyncMethodInfo         ,-    loadableIconLoadAsync                   ,----- ** loadableIconLoadFinish-    LoadableIconLoadFinishMethodInfo        ,-    loadableIconLoadFinish                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface LoadableIcon --newtype LoadableIcon = LoadableIcon (ForeignPtr LoadableIcon)-noLoadableIcon :: Maybe LoadableIcon-noLoadableIcon = Nothing--type family ResolveLoadableIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveLoadableIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveLoadableIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveLoadableIconMethod "equal" o = IconEqualMethodInfo-    ResolveLoadableIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveLoadableIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveLoadableIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveLoadableIconMethod "load" o = LoadableIconLoadMethodInfo-    ResolveLoadableIconMethod "loadAsync" o = LoadableIconLoadAsyncMethodInfo-    ResolveLoadableIconMethod "loadFinish" o = LoadableIconLoadFinishMethodInfo-    ResolveLoadableIconMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveLoadableIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveLoadableIconMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveLoadableIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveLoadableIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveLoadableIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveLoadableIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveLoadableIconMethod "serialize" o = IconSerializeMethodInfo-    ResolveLoadableIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveLoadableIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveLoadableIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveLoadableIconMethod "toString" o = IconToStringMethodInfo-    ResolveLoadableIconMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveLoadableIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveLoadableIconMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveLoadableIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveLoadableIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveLoadableIconMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveLoadableIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveLoadableIconMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveLoadableIconMethod t LoadableIcon, MethodInfo info LoadableIcon p) => IsLabelProxy t (LoadableIcon -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveLoadableIconMethod t LoadableIcon, MethodInfo info LoadableIcon p) => IsLabel t (LoadableIcon -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList LoadableIcon = LoadableIconAttributeList-type LoadableIconAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList LoadableIcon = LoadableIconSignalList-type LoadableIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_loadable_icon_get_type"-    c_g_loadable_icon_get_type :: IO GType--type instance ParentTypes LoadableIcon = LoadableIconParentTypes-type LoadableIconParentTypes = '[Icon, GObject.Object]--instance GObject LoadableIcon where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_loadable_icon_get_type-    --class GObject o => LoadableIconK o-instance (GObject o, IsDescendantOf LoadableIcon o) => LoadableIconK o--toLoadableIcon :: LoadableIconK o => o -> IO LoadableIcon-toLoadableIcon = unsafeCastTo LoadableIcon---- method LoadableIcon::load--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : True--- Skip return : False--foreign import ccall "g_loadable_icon_load" g_loadable_icon_load :: -    Ptr LoadableIcon ->                     -- _obj : TInterface "Gio" "LoadableIcon"-    Int32 ->                                -- size : TBasicType TInt-    Ptr CString ->                          -- type : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr InputStream)---loadableIconLoad ::-    (MonadIO m, LoadableIconK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- size-    -> Maybe (b)                            -- cancellable-    -> m (InputStream,T.Text)               -- result-loadableIconLoad _obj size cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    type_ <- allocMem :: IO (Ptr CString)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_loadable_icon_load _obj' size type_ maybeCancellable-        checkUnexpectedReturnNULL "g_loadable_icon_load" result-        result' <- (wrapObject InputStream) result-        type_' <- peek type_-        type_'' <- cstringToText type_'-        freeMem type_'-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem type_-        return (result', type_'')-     ) (do-        freeMem type_-     )--data LoadableIconLoadMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> m (InputStream,T.Text)), MonadIO m, LoadableIconK a, CancellableK b) => MethodInfo LoadableIconLoadMethodInfo a signature where-    overloadedMethod _ = loadableIconLoad---- method LoadableIcon::load_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "LoadableIcon"-    Int32 ->                                -- size : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---loadableIconLoadAsync ::-    (MonadIO m, LoadableIconK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- size-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-loadableIconLoadAsync _obj size cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_loadable_icon_load_async _obj' size maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data LoadableIconLoadAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, LoadableIconK a, CancellableK b) => MethodInfo LoadableIconLoadAsyncMethodInfo a signature where-    overloadedMethod _ = loadableIconLoadAsync---- method LoadableIcon::load_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : True--- Skip return : False--foreign import ccall "g_loadable_icon_load_finish" g_loadable_icon_load_finish :: -    Ptr LoadableIcon ->                     -- _obj : TInterface "Gio" "LoadableIcon"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr CString ->                          -- type : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr InputStream)---loadableIconLoadFinish ::-    (MonadIO m, LoadableIconK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m (InputStream,T.Text)               -- result-loadableIconLoadFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    type_ <- allocMem :: IO (Ptr CString)-    onException (do-        result <- propagateGError $ g_loadable_icon_load_finish _obj' res' type_-        checkUnexpectedReturnNULL "g_loadable_icon_load_finish" result-        result' <- (wrapObject InputStream) result-        type_' <- peek type_-        type_'' <- cstringToText type_'-        freeMem type_'-        touchManagedPtr _obj-        touchManagedPtr res-        freeMem type_-        return (result', type_'')-     ) (do-        freeMem type_-     )--data LoadableIconLoadFinishMethodInfo-instance (signature ~ (b -> m (InputStream,T.Text)), MonadIO m, LoadableIconK a, AsyncResultK b) => MethodInfo LoadableIconLoadFinishMethodInfo a signature where-    overloadedMethod _ = loadableIconLoadFinish--
− GI/Gio/Interfaces/LoadableIcon.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gio.Interfaces.LoadableIcon where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype LoadableIcon = LoadableIcon (ForeignPtr LoadableIcon)-instance GObject LoadableIcon where-class GObject o => LoadableIconK o-instance (GObject o, IsDescendantOf LoadableIcon o) => LoadableIconK o-data LoadableIconLoadMethodInfo-data LoadableIconLoadAsyncMethodInfo-data LoadableIconLoadFinishMethodInfo
− GI/Gio/Interfaces/Mount.hs 
@@ -1,1413 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.Mount-    ( ---- * Exported types-    Mount(..)                               ,-    noMount                                 ,-    MountK                                  ,-    toMount                                 ,--- -- * Methods--- ** mountCanEject-    MountCanEjectMethodInfo                 ,-    mountCanEject                           ,----- ** mountCanUnmount-    MountCanUnmountMethodInfo               ,-    mountCanUnmount                         ,----- ** mountEject-    MountEjectMethodInfo                    ,-    mountEject                              ,----- ** mountEjectFinish-    MountEjectFinishMethodInfo              ,-    mountEjectFinish                        ,----- ** mountEjectWithOperation-    MountEjectWithOperationMethodInfo       ,-    mountEjectWithOperation                 ,----- ** mountEjectWithOperationFinish-    MountEjectWithOperationFinishMethodInfo ,-    mountEjectWithOperationFinish           ,----- ** mountGetDefaultLocation-    MountGetDefaultLocationMethodInfo       ,-    mountGetDefaultLocation                 ,----- ** mountGetDrive-    MountGetDriveMethodInfo                 ,-    mountGetDrive                           ,----- ** mountGetIcon-    MountGetIconMethodInfo                  ,-    mountGetIcon                            ,----- ** mountGetName-    MountGetNameMethodInfo                  ,-    mountGetName                            ,----- ** mountGetRoot-    MountGetRootMethodInfo                  ,-    mountGetRoot                            ,----- ** mountGetSortKey-    MountGetSortKeyMethodInfo               ,-    mountGetSortKey                         ,----- ** mountGetSymbolicIcon-    MountGetSymbolicIconMethodInfo          ,-    mountGetSymbolicIcon                    ,----- ** mountGetUuid-    MountGetUuidMethodInfo                  ,-    mountGetUuid                            ,----- ** mountGetVolume-    MountGetVolumeMethodInfo                ,-    mountGetVolume                          ,----- ** mountGuessContentType-    MountGuessContentTypeMethodInfo         ,-    mountGuessContentType                   ,----- ** mountGuessContentTypeFinish-    MountGuessContentTypeFinishMethodInfo   ,-    mountGuessContentTypeFinish             ,----- ** mountGuessContentTypeSync-    MountGuessContentTypeSyncMethodInfo     ,-    mountGuessContentTypeSync               ,----- ** mountIsShadowed-    MountIsShadowedMethodInfo               ,-    mountIsShadowed                         ,----- ** mountRemount-    MountRemountMethodInfo                  ,-    mountRemount                            ,----- ** mountRemountFinish-    MountRemountFinishMethodInfo            ,-    mountRemountFinish                      ,----- ** mountShadow-    MountShadowMethodInfo                   ,-    mountShadow                             ,----- ** mountUnmount-    MountUnmountMethodInfo                  ,-    mountUnmount                            ,----- ** mountUnmountFinish-    MountUnmountFinishMethodInfo            ,-    mountUnmountFinish                      ,----- ** mountUnmountWithOperation-    MountUnmountWithOperationMethodInfo     ,-    mountUnmountWithOperation               ,----- ** mountUnmountWithOperationFinish-    MountUnmountWithOperationFinishMethodInfo,-    mountUnmountWithOperationFinish         ,----- ** mountUnshadow-    MountUnshadowMethodInfo                 ,-    mountUnshadow                           ,----- -- * Signals--- ** Changed-    MountChangedCallback                    ,-    MountChangedCallbackC                   ,-    MountChangedSignalInfo                  ,-    afterMountChanged                       ,-    mkMountChangedCallback                  ,-    mountChangedCallbackWrapper             ,-    mountChangedClosure                     ,-    noMountChangedCallback                  ,-    onMountChanged                          ,----- ** PreUnmount-    MountPreUnmountCallback                 ,-    MountPreUnmountCallbackC                ,-    MountPreUnmountSignalInfo               ,-    afterMountPreUnmount                    ,-    mkMountPreUnmountCallback               ,-    mountPreUnmountCallbackWrapper          ,-    mountPreUnmountClosure                  ,-    noMountPreUnmountCallback               ,-    onMountPreUnmount                       ,----- ** Unmounted-    MountUnmountedCallback                  ,-    MountUnmountedCallbackC                 ,-    MountUnmountedSignalInfo                ,-    afterMountUnmounted                     ,-    mkMountUnmountedCallback                ,-    mountUnmountedCallbackWrapper           ,-    mountUnmountedClosure                   ,-    noMountUnmountedCallback                ,-    onMountUnmounted                        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface Mount --newtype Mount = Mount (ForeignPtr Mount)-noMount :: Maybe Mount-noMount = Nothing--type family ResolveMountMethod (t :: Symbol) (o :: *) :: * where-    ResolveMountMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMountMethod "bindPropertyFull" o = GObject.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.ObjectForceFloatingMethodInfo-    ResolveMountMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMountMethod "guessContentType" o = MountGuessContentTypeMethodInfo-    ResolveMountMethod "guessContentTypeFinish" o = MountGuessContentTypeFinishMethodInfo-    ResolveMountMethod "guessContentTypeSync" o = MountGuessContentTypeSyncMethodInfo-    ResolveMountMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMountMethod "isShadowed" o = MountIsShadowedMethodInfo-    ResolveMountMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMountMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMountMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMountMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMountMethod "remount" o = MountRemountMethodInfo-    ResolveMountMethod "remountFinish" o = MountRemountFinishMethodInfo-    ResolveMountMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMountMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMountMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMountMethod "shadow" o = MountShadowMethodInfo-    ResolveMountMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMountMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMountMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMountMethod "unmount" o = MountUnmountMethodInfo-    ResolveMountMethod "unmountFinish" o = MountUnmountFinishMethodInfo-    ResolveMountMethod "unmountWithOperation" o = MountUnmountWithOperationMethodInfo-    ResolveMountMethod "unmountWithOperationFinish" o = MountUnmountWithOperationFinishMethodInfo-    ResolveMountMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMountMethod "unshadow" o = MountUnshadowMethodInfo-    ResolveMountMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMountMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMountMethod "getDefaultLocation" o = MountGetDefaultLocationMethodInfo-    ResolveMountMethod "getDrive" o = MountGetDriveMethodInfo-    ResolveMountMethod "getIcon" o = MountGetIconMethodInfo-    ResolveMountMethod "getName" o = MountGetNameMethodInfo-    ResolveMountMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMountMethod "getQdata" o = GObject.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.ObjectSetDataMethodInfo-    ResolveMountMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMountMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMountMethod t Mount, MethodInfo info Mount p) => IsLabelProxy t (Mount -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMountMethod t Mount, MethodInfo info Mount p) => IsLabel t (Mount -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Mount::changed-type MountChangedCallback =-    IO ()--noMountChangedCallback :: Maybe MountChangedCallback-noMountChangedCallback = Nothing--type MountChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMountChangedCallback :: MountChangedCallbackC -> IO (FunPtr MountChangedCallbackC)--mountChangedClosure :: MountChangedCallback -> IO Closure-mountChangedClosure cb = newCClosure =<< mkMountChangedCallback wrapped-    where wrapped = mountChangedCallbackWrapper cb--mountChangedCallbackWrapper ::-    MountChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-mountChangedCallbackWrapper _cb _ _ = do-    _cb --onMountChanged :: (GObject a, MonadIO m) => a -> MountChangedCallback -> m SignalHandlerId-onMountChanged obj cb = liftIO $ connectMountChanged obj cb SignalConnectBefore-afterMountChanged :: (GObject a, MonadIO m) => a -> MountChangedCallback -> m SignalHandlerId-afterMountChanged obj cb = connectMountChanged obj cb SignalConnectAfter--connectMountChanged :: (GObject a, MonadIO m) =>-                       a -> MountChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectMountChanged obj cb after = liftIO $ do-    cb' <- mkMountChangedCallback (mountChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after---- signal Mount::pre-unmount-type MountPreUnmountCallback =-    IO ()--noMountPreUnmountCallback :: Maybe MountPreUnmountCallback-noMountPreUnmountCallback = Nothing--type MountPreUnmountCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMountPreUnmountCallback :: MountPreUnmountCallbackC -> IO (FunPtr MountPreUnmountCallbackC)--mountPreUnmountClosure :: MountPreUnmountCallback -> IO Closure-mountPreUnmountClosure cb = newCClosure =<< mkMountPreUnmountCallback wrapped-    where wrapped = mountPreUnmountCallbackWrapper cb--mountPreUnmountCallbackWrapper ::-    MountPreUnmountCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-mountPreUnmountCallbackWrapper _cb _ _ = do-    _cb --onMountPreUnmount :: (GObject a, MonadIO m) => a -> MountPreUnmountCallback -> m SignalHandlerId-onMountPreUnmount obj cb = liftIO $ connectMountPreUnmount obj cb SignalConnectBefore-afterMountPreUnmount :: (GObject a, MonadIO m) => a -> MountPreUnmountCallback -> m SignalHandlerId-afterMountPreUnmount obj cb = connectMountPreUnmount obj cb SignalConnectAfter--connectMountPreUnmount :: (GObject a, MonadIO m) =>-                          a -> MountPreUnmountCallback -> SignalConnectMode -> m SignalHandlerId-connectMountPreUnmount obj cb after = liftIO $ do-    cb' <- mkMountPreUnmountCallback (mountPreUnmountCallbackWrapper cb)-    connectSignalFunPtr obj "pre-unmount" cb' after---- signal Mount::unmounted-type MountUnmountedCallback =-    IO ()--noMountUnmountedCallback :: Maybe MountUnmountedCallback-noMountUnmountedCallback = Nothing--type MountUnmountedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMountUnmountedCallback :: MountUnmountedCallbackC -> IO (FunPtr MountUnmountedCallbackC)--mountUnmountedClosure :: MountUnmountedCallback -> IO Closure-mountUnmountedClosure cb = newCClosure =<< mkMountUnmountedCallback wrapped-    where wrapped = mountUnmountedCallbackWrapper cb--mountUnmountedCallbackWrapper ::-    MountUnmountedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-mountUnmountedCallbackWrapper _cb _ _ = do-    _cb --onMountUnmounted :: (GObject a, MonadIO m) => a -> MountUnmountedCallback -> m SignalHandlerId-onMountUnmounted obj cb = liftIO $ connectMountUnmounted obj cb SignalConnectBefore-afterMountUnmounted :: (GObject a, MonadIO m) => a -> MountUnmountedCallback -> m SignalHandlerId-afterMountUnmounted obj cb = connectMountUnmounted obj cb SignalConnectAfter--connectMountUnmounted :: (GObject a, MonadIO m) =>-                         a -> MountUnmountedCallback -> SignalConnectMode -> m SignalHandlerId-connectMountUnmounted obj cb after = liftIO $ do-    cb' <- mkMountUnmountedCallback (mountUnmountedCallbackWrapper cb)-    connectSignalFunPtr obj "unmounted" cb' after--type instance AttributeList Mount = MountAttributeList-type MountAttributeList = ('[ ] :: [(Symbol, *)])--data MountChangedSignalInfo-instance SignalInfo MountChangedSignalInfo where-    type HaskellCallbackType MountChangedSignalInfo = MountChangedCallback-    connectSignal _ = connectMountChanged--data MountPreUnmountSignalInfo-instance SignalInfo MountPreUnmountSignalInfo where-    type HaskellCallbackType MountPreUnmountSignalInfo = MountPreUnmountCallback-    connectSignal _ = connectMountPreUnmount--data MountUnmountedSignalInfo-instance SignalInfo MountUnmountedSignalInfo where-    type HaskellCallbackType MountUnmountedSignalInfo = MountUnmountedCallback-    connectSignal _ = connectMountUnmounted--type instance SignalList Mount = MountSignalList-type MountSignalList = ('[ '("changed", MountChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preUnmount", MountPreUnmountSignalInfo), '("unmounted", MountUnmountedSignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_mount_get_type"-    c_g_mount_get_type :: IO GType--type instance ParentTypes Mount = MountParentTypes-type MountParentTypes = '[GObject.Object]--instance GObject Mount where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_mount_get_type-    --class GObject o => MountK o-instance (GObject o, IsDescendantOf Mount o) => MountK o--toMount :: MountK o => o -> IO Mount-toMount = unsafeCastTo Mount---- method Mount::can_eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    IO CInt---mountCanEject ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-mountCanEject _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_can_eject _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MountCanEjectMethodInfo-instance (signature ~ (m Bool), MonadIO m, MountK a) => MethodInfo MountCanEjectMethodInfo a signature where-    overloadedMethod _ = mountCanEject---- method Mount::can_unmount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    IO CInt---mountCanUnmount ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-mountCanUnmount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_can_unmount _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MountCanUnmountMethodInfo-instance (signature ~ (m Bool), MonadIO m, MountK a) => MethodInfo MountCanUnmountMethodInfo a signature where-    overloadedMethod _ = mountCanUnmount---- method Mount::eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{-# DEPRECATED mountEject ["(Since version 2.22)","Use g_mount_eject_with_operation() instead."]#-}-mountEject ::-    (MonadIO m, MountK a, CancellableK b) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-mountEject _obj flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_mount_eject _obj' flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data MountEjectMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, CancellableK b) => MethodInfo MountEjectMethodInfo a signature where-    overloadedMethod _ = mountEject---- method Mount::eject_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED mountEjectFinish ["(Since version 2.22)","Use g_mount_eject_with_operation_finish() instead."]#-}-mountEjectFinish ::-    (MonadIO m, MountK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-mountEjectFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_mount_eject_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data MountEjectFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountEjectFinishMethodInfo a signature where-    overloadedMethod _ = mountEjectFinish---- method Mount::eject_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---mountEjectWithOperation ::-    (MonadIO m, MountK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-mountEjectWithOperation _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_mount_eject_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data MountEjectWithOperationMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, MountOperationK b, CancellableK c) => MethodInfo MountEjectWithOperationMethodInfo a signature where-    overloadedMethod _ = mountEjectWithOperation---- method Mount::eject_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---mountEjectWithOperationFinish ::-    (MonadIO m, MountK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-mountEjectWithOperationFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_mount_eject_with_operation_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data MountEjectWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountEjectWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = mountEjectWithOperationFinish---- method Mount::get_default_location--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_default_location" g_mount_get_default_location :: -    Ptr Mount ->                            -- _obj : TInterface "Gio" "Mount"-    IO (Ptr File)---mountGetDefaultLocation ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m File                               -- result-mountGetDefaultLocation _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_get_default_location _obj'-    checkUnexpectedReturnNULL "g_mount_get_default_location" result-    result' <- (wrapObject File) result-    touchManagedPtr _obj-    return result'--data MountGetDefaultLocationMethodInfo-instance (signature ~ (m File), MonadIO m, MountK a) => MethodInfo MountGetDefaultLocationMethodInfo a signature where-    overloadedMethod _ = mountGetDefaultLocation---- method Mount::get_drive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Drive")--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_drive" g_mount_get_drive :: -    Ptr Mount ->                            -- _obj : TInterface "Gio" "Mount"-    IO (Ptr Drive)---mountGetDrive ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m Drive                              -- result-mountGetDrive _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_get_drive _obj'-    checkUnexpectedReturnNULL "g_mount_get_drive" result-    result' <- (wrapObject Drive) result-    touchManagedPtr _obj-    return result'--data MountGetDriveMethodInfo-instance (signature ~ (m Drive), MonadIO m, MountK a) => MethodInfo MountGetDriveMethodInfo a signature where-    overloadedMethod _ = mountGetDrive---- method Mount::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_icon" g_mount_get_icon :: -    Ptr Mount ->                            -- _obj : TInterface "Gio" "Mount"-    IO (Ptr Icon)---mountGetIcon ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m Icon                               -- result-mountGetIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_get_icon _obj'-    checkUnexpectedReturnNULL "g_mount_get_icon" result-    result' <- (wrapObject Icon) result-    touchManagedPtr _obj-    return result'--data MountGetIconMethodInfo-instance (signature ~ (m Icon), MonadIO m, MountK a) => MethodInfo MountGetIconMethodInfo a signature where-    overloadedMethod _ = mountGetIcon---- method Mount::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    IO CString---mountGetName ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-mountGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_get_name _obj'-    checkUnexpectedReturnNULL "g_mount_get_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data MountGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, MountK a) => MethodInfo MountGetNameMethodInfo a signature where-    overloadedMethod _ = mountGetName---- method Mount::get_root--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_root" g_mount_get_root :: -    Ptr Mount ->                            -- _obj : TInterface "Gio" "Mount"-    IO (Ptr File)---mountGetRoot ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m File                               -- result-mountGetRoot _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_get_root _obj'-    checkUnexpectedReturnNULL "g_mount_get_root" result-    result' <- (wrapObject File) result-    touchManagedPtr _obj-    return result'--data MountGetRootMethodInfo-instance (signature ~ (m File), MonadIO m, MountK a) => MethodInfo MountGetRootMethodInfo a signature where-    overloadedMethod _ = mountGetRoot---- method Mount::get_sort_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    IO CString---mountGetSortKey ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-mountGetSortKey _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_get_sort_key _obj'-    checkUnexpectedReturnNULL "g_mount_get_sort_key" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data MountGetSortKeyMethodInfo-instance (signature ~ (m T.Text), MonadIO m, MountK a) => MethodInfo MountGetSortKeyMethodInfo a signature where-    overloadedMethod _ = mountGetSortKey---- method Mount::get_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_symbolic_icon" g_mount_get_symbolic_icon :: -    Ptr Mount ->                            -- _obj : TInterface "Gio" "Mount"-    IO (Ptr Icon)---mountGetSymbolicIcon ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m Icon                               -- result-mountGetSymbolicIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_get_symbolic_icon _obj'-    checkUnexpectedReturnNULL "g_mount_get_symbolic_icon" result-    result' <- (wrapObject Icon) result-    touchManagedPtr _obj-    return result'--data MountGetSymbolicIconMethodInfo-instance (signature ~ (m Icon), MonadIO m, MountK a) => MethodInfo MountGetSymbolicIconMethodInfo a signature where-    overloadedMethod _ = mountGetSymbolicIcon---- method Mount::get_uuid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    IO CString---mountGetUuid ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-mountGetUuid _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_get_uuid _obj'-    checkUnexpectedReturnNULL "g_mount_get_uuid" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data MountGetUuidMethodInfo-instance (signature ~ (m T.Text), MonadIO m, MountK a) => MethodInfo MountGetUuidMethodInfo a signature where-    overloadedMethod _ = mountGetUuid---- method Mount::get_volume--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Volume")--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_volume" g_mount_get_volume :: -    Ptr Mount ->                            -- _obj : TInterface "Gio" "Mount"-    IO (Ptr Volume)---mountGetVolume ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m Volume                             -- result-mountGetVolume _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_get_volume _obj'-    checkUnexpectedReturnNULL "g_mount_get_volume" result-    result' <- (wrapObject Volume) result-    touchManagedPtr _obj-    return result'--data MountGetVolumeMethodInfo-instance (signature ~ (m Volume), MonadIO m, MountK a) => MethodInfo MountGetVolumeMethodInfo a signature where-    overloadedMethod _ = mountGetVolume---- method Mount::guess_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_rescan", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    CInt ->                                 -- force_rescan : TBasicType TBoolean-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---mountGuessContentType ::-    (MonadIO m, MountK a, CancellableK b) =>-    a                                       -- _obj-    -> Bool                                 -- forceRescan-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-mountGuessContentType _obj forceRescan cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let forceRescan' = (fromIntegral . fromEnum) forceRescan-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_mount_guess_content_type _obj' forceRescan' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data MountGuessContentTypeMethodInfo-instance (signature ~ (Bool -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, CancellableK b) => MethodInfo MountGuessContentTypeMethodInfo a signature where-    overloadedMethod _ = mountGuessContentType---- method Mount::guess_content_type_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---mountGuessContentTypeFinish ::-    (MonadIO m, MountK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m [T.Text]                           -- result-mountGuessContentTypeFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_mount_guess_content_type_finish _obj' result_'-        checkUnexpectedReturnNULL "g_mount_guess_content_type_finish" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data MountGuessContentTypeFinishMethodInfo-instance (signature ~ (b -> m [T.Text]), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountGuessContentTypeFinishMethodInfo a signature where-    overloadedMethod _ = mountGuessContentTypeFinish---- method Mount::guess_content_type_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_rescan", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    CInt ->                                 -- force_rescan : TBasicType TBoolean-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---mountGuessContentTypeSync ::-    (MonadIO m, MountK a, CancellableK b) =>-    a                                       -- _obj-    -> Bool                                 -- forceRescan-    -> Maybe (b)                            -- cancellable-    -> m [T.Text]                           -- result-mountGuessContentTypeSync _obj forceRescan cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let forceRescan' = (fromIntegral . fromEnum) forceRescan-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_mount_guess_content_type_sync _obj' forceRescan' maybeCancellable-        checkUnexpectedReturnNULL "g_mount_guess_content_type_sync" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data MountGuessContentTypeSyncMethodInfo-instance (signature ~ (Bool -> Maybe (b) -> m [T.Text]), MonadIO m, MountK a, CancellableK b) => MethodInfo MountGuessContentTypeSyncMethodInfo a signature where-    overloadedMethod _ = mountGuessContentTypeSync---- method Mount::is_shadowed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    IO CInt---mountIsShadowed ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-mountIsShadowed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_is_shadowed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MountIsShadowedMethodInfo-instance (signature ~ (m Bool), MonadIO m, MountK a) => MethodInfo MountIsShadowedMethodInfo a signature where-    overloadedMethod _ = mountIsShadowed---- method Mount::remount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    CUInt ->                                -- flags : TInterface "Gio" "MountMountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---mountRemount ::-    (MonadIO m, MountK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountMountFlags]                    -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-mountRemount _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_mount_remount _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data MountRemountMethodInfo-instance (signature ~ ([MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, MountOperationK b, CancellableK c) => MethodInfo MountRemountMethodInfo a signature where-    overloadedMethod _ = mountRemount---- method Mount::remount_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---mountRemountFinish ::-    (MonadIO m, MountK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-mountRemountFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_mount_remount_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data MountRemountFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountRemountFinishMethodInfo a signature where-    overloadedMethod _ = mountRemountFinish---- method Mount::shadow--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    IO ()---mountShadow ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-mountShadow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_mount_shadow _obj'-    touchManagedPtr _obj-    return ()--data MountShadowMethodInfo-instance (signature ~ (m ()), MonadIO m, MountK a) => MethodInfo MountShadowMethodInfo a signature where-    overloadedMethod _ = mountShadow---- method Mount::unmount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{-# DEPRECATED mountUnmount ["(Since version 2.22)","Use g_mount_unmount_with_operation() instead."]#-}-mountUnmount ::-    (MonadIO m, MountK a, CancellableK b) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-mountUnmount _obj flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_mount_unmount _obj' flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data MountUnmountMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, CancellableK b) => MethodInfo MountUnmountMethodInfo a signature where-    overloadedMethod _ = mountUnmount---- method Mount::unmount_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED mountUnmountFinish ["(Since version 2.22)","Use g_mount_unmount_with_operation_finish() instead."]#-}-mountUnmountFinish ::-    (MonadIO m, MountK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-mountUnmountFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_mount_unmount_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data MountUnmountFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountUnmountFinishMethodInfo a signature where-    overloadedMethod _ = mountUnmountFinish---- method Mount::unmount_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---mountUnmountWithOperation ::-    (MonadIO m, MountK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-mountUnmountWithOperation _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_mount_unmount_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data MountUnmountWithOperationMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, MountOperationK b, CancellableK c) => MethodInfo MountUnmountWithOperationMethodInfo a signature where-    overloadedMethod _ = mountUnmountWithOperation---- method Mount::unmount_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---mountUnmountWithOperationFinish ::-    (MonadIO m, MountK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-mountUnmountWithOperationFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_mount_unmount_with_operation_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data MountUnmountWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountUnmountWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = mountUnmountWithOperationFinish---- method Mount::unshadow--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Mount"-    IO ()---mountUnshadow ::-    (MonadIO m, MountK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-mountUnshadow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_mount_unshadow _obj'-    touchManagedPtr _obj-    return ()--data MountUnshadowMethodInfo-instance (signature ~ (m ()), MonadIO m, MountK a) => MethodInfo MountUnshadowMethodInfo a signature where-    overloadedMethod _ = mountUnshadow--
− GI/Gio/Interfaces/Mount.hs-boot 
@@ -1,43 +0,0 @@-module GI.Gio.Interfaces.Mount where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Mount = Mount (ForeignPtr Mount)-data MountChangedSignalInfo-data MountPreUnmountSignalInfo-data MountUnmountedSignalInfo-instance GObject Mount where-class GObject o => MountK o-instance (GObject o, IsDescendantOf Mount o) => MountK o-data MountCanEjectMethodInfo-data MountCanUnmountMethodInfo-data MountEjectMethodInfo-data MountEjectFinishMethodInfo-data MountEjectWithOperationMethodInfo-data MountEjectWithOperationFinishMethodInfo-data MountGetDefaultLocationMethodInfo-data MountGetDriveMethodInfo-data MountGetIconMethodInfo-data MountGetNameMethodInfo-data MountGetRootMethodInfo-data MountGetSortKeyMethodInfo-data MountGetSymbolicIconMethodInfo-data MountGetUuidMethodInfo-data MountGetVolumeMethodInfo-data MountGuessContentTypeMethodInfo-data MountGuessContentTypeFinishMethodInfo-data MountGuessContentTypeSyncMethodInfo-data MountIsShadowedMethodInfo-data MountRemountMethodInfo-data MountRemountFinishMethodInfo-data MountShadowMethodInfo-data MountUnmountMethodInfo-data MountUnmountFinishMethodInfo-data MountUnmountWithOperationMethodInfo-data MountUnmountWithOperationFinishMethodInfo-data MountUnshadowMethodInfo
− GI/Gio/Interfaces/NetworkMonitor.hs 
@@ -1,525 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.NetworkMonitor-    ( ---- * Exported types-    NetworkMonitor(..)                      ,-    noNetworkMonitor                        ,-    NetworkMonitorK                         ,-    toNetworkMonitor                        ,--- -- * Methods--- ** networkMonitorCanReach-    NetworkMonitorCanReachMethodInfo        ,-    networkMonitorCanReach                  ,----- ** networkMonitorCanReachAsync-    NetworkMonitorCanReachAsyncMethodInfo   ,-    networkMonitorCanReachAsync             ,----- ** networkMonitorCanReachFinish-    NetworkMonitorCanReachFinishMethodInfo  ,-    networkMonitorCanReachFinish            ,----- ** networkMonitorGetConnectivity-    NetworkMonitorGetConnectivityMethodInfo ,-    networkMonitorGetConnectivity           ,----- ** networkMonitorGetDefault-    networkMonitorGetDefault                ,----- ** networkMonitorGetNetworkAvailable-    NetworkMonitorGetNetworkAvailableMethodInfo,-    networkMonitorGetNetworkAvailable       ,----- ** networkMonitorGetNetworkMetered-    NetworkMonitorGetNetworkMeteredMethodInfo,-    networkMonitorGetNetworkMetered         ,----- -- * Properties--- ** Connectivity-    NetworkMonitorConnectivityPropertyInfo  ,-    getNetworkMonitorConnectivity           ,-    networkMonitorConnectivity              ,----- ** NetworkAvailable-    NetworkMonitorNetworkAvailablePropertyInfo,-    getNetworkMonitorNetworkAvailable       ,-    networkMonitorNetworkAvailable          ,----- ** NetworkMetered-    NetworkMonitorNetworkMeteredPropertyInfo,-    getNetworkMonitorNetworkMetered         ,-    networkMonitorNetworkMetered            ,----- -- * Signals--- ** NetworkChanged-    NetworkMonitorNetworkChangedCallback    ,-    NetworkMonitorNetworkChangedCallbackC   ,-    NetworkMonitorNetworkChangedSignalInfo  ,-    afterNetworkMonitorNetworkChanged       ,-    mkNetworkMonitorNetworkChangedCallback  ,-    networkMonitorNetworkChangedCallbackWrapper,-    networkMonitorNetworkChangedClosure     ,-    noNetworkMonitorNetworkChangedCallback  ,-    onNetworkMonitorNetworkChanged          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface NetworkMonitor --newtype NetworkMonitor = NetworkMonitor (ForeignPtr NetworkMonitor)-noNetworkMonitor :: Maybe NetworkMonitor-noNetworkMonitor = Nothing--type family ResolveNetworkMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveNetworkMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveNetworkMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveNetworkMonitorMethod "canReach" o = NetworkMonitorCanReachMethodInfo-    ResolveNetworkMonitorMethod "canReachAsync" o = NetworkMonitorCanReachAsyncMethodInfo-    ResolveNetworkMonitorMethod "canReachFinish" o = NetworkMonitorCanReachFinishMethodInfo-    ResolveNetworkMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveNetworkMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveNetworkMonitorMethod "init" o = InitableInitMethodInfo-    ResolveNetworkMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveNetworkMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveNetworkMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveNetworkMonitorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveNetworkMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveNetworkMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveNetworkMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveNetworkMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveNetworkMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveNetworkMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveNetworkMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveNetworkMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveNetworkMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveNetworkMonitorMethod "getConnectivity" o = NetworkMonitorGetConnectivityMethodInfo-    ResolveNetworkMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveNetworkMonitorMethod "getNetworkAvailable" o = NetworkMonitorGetNetworkAvailableMethodInfo-    ResolveNetworkMonitorMethod "getNetworkMetered" o = NetworkMonitorGetNetworkMeteredMethodInfo-    ResolveNetworkMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveNetworkMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveNetworkMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveNetworkMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveNetworkMonitorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNetworkMonitorMethod t NetworkMonitor, MethodInfo info NetworkMonitor p) => IsLabelProxy t (NetworkMonitor -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNetworkMonitorMethod t NetworkMonitor, MethodInfo info NetworkMonitor p) => IsLabel t (NetworkMonitor -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal NetworkMonitor::network-changed-type NetworkMonitorNetworkChangedCallback =-    Bool ->-    IO ()--noNetworkMonitorNetworkChangedCallback :: Maybe NetworkMonitorNetworkChangedCallback-noNetworkMonitorNetworkChangedCallback = Nothing--type NetworkMonitorNetworkChangedCallbackC =-    Ptr () ->                               -- object-    CInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkNetworkMonitorNetworkChangedCallback :: NetworkMonitorNetworkChangedCallbackC -> IO (FunPtr NetworkMonitorNetworkChangedCallbackC)--networkMonitorNetworkChangedClosure :: NetworkMonitorNetworkChangedCallback -> IO Closure-networkMonitorNetworkChangedClosure cb = newCClosure =<< mkNetworkMonitorNetworkChangedCallback wrapped-    where wrapped = networkMonitorNetworkChangedCallbackWrapper cb--networkMonitorNetworkChangedCallbackWrapper ::-    NetworkMonitorNetworkChangedCallback ->-    Ptr () ->-    CInt ->-    Ptr () ->-    IO ()-networkMonitorNetworkChangedCallbackWrapper _cb _ available _ = do-    let available' = (/= 0) available-    _cb  available'--onNetworkMonitorNetworkChanged :: (GObject a, MonadIO m) => a -> NetworkMonitorNetworkChangedCallback -> m SignalHandlerId-onNetworkMonitorNetworkChanged obj cb = liftIO $ connectNetworkMonitorNetworkChanged obj cb SignalConnectBefore-afterNetworkMonitorNetworkChanged :: (GObject a, MonadIO m) => a -> NetworkMonitorNetworkChangedCallback -> m SignalHandlerId-afterNetworkMonitorNetworkChanged obj cb = connectNetworkMonitorNetworkChanged obj cb SignalConnectAfter--connectNetworkMonitorNetworkChanged :: (GObject a, MonadIO m) =>-                                       a -> NetworkMonitorNetworkChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectNetworkMonitorNetworkChanged obj cb after = liftIO $ do-    cb' <- mkNetworkMonitorNetworkChangedCallback (networkMonitorNetworkChangedCallbackWrapper cb)-    connectSignalFunPtr obj "network-changed" cb' after---- VVV Prop "connectivity"-   -- Type: TInterface "Gio" "NetworkConnectivity"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNetworkMonitorConnectivity :: (MonadIO m, NetworkMonitorK o) => o -> m NetworkConnectivity-getNetworkMonitorConnectivity obj = liftIO $ getObjectPropertyEnum obj "connectivity"--data NetworkMonitorConnectivityPropertyInfo-instance AttrInfo NetworkMonitorConnectivityPropertyInfo where-    type AttrAllowedOps NetworkMonitorConnectivityPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NetworkMonitorConnectivityPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NetworkMonitorConnectivityPropertyInfo = NetworkMonitorK-    type AttrGetType NetworkMonitorConnectivityPropertyInfo = NetworkConnectivity-    type AttrLabel NetworkMonitorConnectivityPropertyInfo = "connectivity"-    attrGet _ = getNetworkMonitorConnectivity-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "network-available"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNetworkMonitorNetworkAvailable :: (MonadIO m, NetworkMonitorK o) => o -> m Bool-getNetworkMonitorNetworkAvailable obj = liftIO $ getObjectPropertyBool obj "network-available"--data NetworkMonitorNetworkAvailablePropertyInfo-instance AttrInfo NetworkMonitorNetworkAvailablePropertyInfo where-    type AttrAllowedOps NetworkMonitorNetworkAvailablePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NetworkMonitorNetworkAvailablePropertyInfo = (~) ()-    type AttrBaseTypeConstraint NetworkMonitorNetworkAvailablePropertyInfo = NetworkMonitorK-    type AttrGetType NetworkMonitorNetworkAvailablePropertyInfo = Bool-    type AttrLabel NetworkMonitorNetworkAvailablePropertyInfo = "network-available"-    attrGet _ = getNetworkMonitorNetworkAvailable-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "network-metered"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getNetworkMonitorNetworkMetered :: (MonadIO m, NetworkMonitorK o) => o -> m Bool-getNetworkMonitorNetworkMetered obj = liftIO $ getObjectPropertyBool obj "network-metered"--data NetworkMonitorNetworkMeteredPropertyInfo-instance AttrInfo NetworkMonitorNetworkMeteredPropertyInfo where-    type AttrAllowedOps NetworkMonitorNetworkMeteredPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NetworkMonitorNetworkMeteredPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NetworkMonitorNetworkMeteredPropertyInfo = NetworkMonitorK-    type AttrGetType NetworkMonitorNetworkMeteredPropertyInfo = Bool-    type AttrLabel NetworkMonitorNetworkMeteredPropertyInfo = "network-metered"-    attrGet _ = getNetworkMonitorNetworkMetered-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList NetworkMonitor = NetworkMonitorAttributeList-type NetworkMonitorAttributeList = ('[ '("connectivity", NetworkMonitorConnectivityPropertyInfo), '("networkAvailable", NetworkMonitorNetworkAvailablePropertyInfo), '("networkMetered", NetworkMonitorNetworkMeteredPropertyInfo)] :: [(Symbol, *)])--networkMonitorConnectivity :: AttrLabelProxy "connectivity"-networkMonitorConnectivity = AttrLabelProxy--networkMonitorNetworkAvailable :: AttrLabelProxy "networkAvailable"-networkMonitorNetworkAvailable = AttrLabelProxy--networkMonitorNetworkMetered :: AttrLabelProxy "networkMetered"-networkMonitorNetworkMetered = AttrLabelProxy--data NetworkMonitorNetworkChangedSignalInfo-instance SignalInfo NetworkMonitorNetworkChangedSignalInfo where-    type HaskellCallbackType NetworkMonitorNetworkChangedSignalInfo = NetworkMonitorNetworkChangedCallback-    connectSignal _ = connectNetworkMonitorNetworkChanged--type instance SignalList NetworkMonitor = NetworkMonitorSignalList-type NetworkMonitorSignalList = ('[ '("networkChanged", NetworkMonitorNetworkChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_network_monitor_get_type"-    c_g_network_monitor_get_type :: IO GType--type instance ParentTypes NetworkMonitor = NetworkMonitorParentTypes-type NetworkMonitorParentTypes = '[Initable, GObject.Object]--instance GObject NetworkMonitor where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_network_monitor_get_type-    --class GObject o => NetworkMonitorK o-instance (GObject o, IsDescendantOf NetworkMonitor o) => NetworkMonitorK o--toNetworkMonitor :: NetworkMonitorK o => o -> IO NetworkMonitor-toNetworkMonitor = unsafeCastTo NetworkMonitor---- method NetworkMonitor::can_reach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "NetworkMonitor"-    Ptr SocketConnectable ->                -- connectable : TInterface "Gio" "SocketConnectable"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---networkMonitorCanReach ::-    (MonadIO m, NetworkMonitorK a, SocketConnectableK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- connectable-    -> Maybe (c)                            -- cancellable-    -> m ()                                 -- result-networkMonitorCanReach _obj connectable cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connectable' = unsafeManagedPtrCastPtr connectable-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_network_monitor_can_reach _obj' connectable' maybeCancellable-        touchManagedPtr _obj-        touchManagedPtr connectable-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data NetworkMonitorCanReachMethodInfo-instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, NetworkMonitorK a, SocketConnectableK b, CancellableK c) => MethodInfo NetworkMonitorCanReachMethodInfo a signature where-    overloadedMethod _ = networkMonitorCanReach---- method NetworkMonitor::can_reach_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkMonitor"-    Ptr SocketConnectable ->                -- connectable : TInterface "Gio" "SocketConnectable"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---networkMonitorCanReachAsync ::-    (MonadIO m, NetworkMonitorK a, SocketConnectableK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- connectable-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-networkMonitorCanReachAsync _obj connectable cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connectable' = unsafeManagedPtrCastPtr connectable-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_network_monitor_can_reach_async _obj' connectable' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr connectable-    whenJust cancellable touchManagedPtr-    return ()--data NetworkMonitorCanReachAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, NetworkMonitorK a, SocketConnectableK b, CancellableK c) => MethodInfo NetworkMonitorCanReachAsyncMethodInfo a signature where-    overloadedMethod _ = networkMonitorCanReachAsync---- method NetworkMonitor::can_reach_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkMonitor"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---networkMonitorCanReachFinish ::-    (MonadIO m, NetworkMonitorK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-networkMonitorCanReachFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_network_monitor_can_reach_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data NetworkMonitorCanReachFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, NetworkMonitorK a, AsyncResultK b) => MethodInfo NetworkMonitorCanReachFinishMethodInfo a signature where-    overloadedMethod _ = networkMonitorCanReachFinish---- method NetworkMonitor::get_connectivity--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "NetworkConnectivity")--- throws : False--- Skip return : False--foreign import ccall "g_network_monitor_get_connectivity" g_network_monitor_get_connectivity :: -    Ptr NetworkMonitor ->                   -- _obj : TInterface "Gio" "NetworkMonitor"-    IO CUInt---networkMonitorGetConnectivity ::-    (MonadIO m, NetworkMonitorK a) =>-    a                                       -- _obj-    -> m NetworkConnectivity                -- result-networkMonitorGetConnectivity _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_network_monitor_get_connectivity _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data NetworkMonitorGetConnectivityMethodInfo-instance (signature ~ (m NetworkConnectivity), MonadIO m, NetworkMonitorK a) => MethodInfo NetworkMonitorGetConnectivityMethodInfo a signature where-    overloadedMethod _ = networkMonitorGetConnectivity---- method NetworkMonitor::get_network_available--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkMonitor"-    IO CInt---networkMonitorGetNetworkAvailable ::-    (MonadIO m, NetworkMonitorK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-networkMonitorGetNetworkAvailable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_network_monitor_get_network_available _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data NetworkMonitorGetNetworkAvailableMethodInfo-instance (signature ~ (m Bool), MonadIO m, NetworkMonitorK a) => MethodInfo NetworkMonitorGetNetworkAvailableMethodInfo a signature where-    overloadedMethod _ = networkMonitorGetNetworkAvailable---- method NetworkMonitor::get_network_metered--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkMonitor"-    IO CInt---networkMonitorGetNetworkMetered ::-    (MonadIO m, NetworkMonitorK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-networkMonitorGetNetworkMetered _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_network_monitor_get_network_metered _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data NetworkMonitorGetNetworkMeteredMethodInfo-instance (signature ~ (m Bool), MonadIO m, NetworkMonitorK a) => MethodInfo NetworkMonitorGetNetworkMeteredMethodInfo a signature where-    overloadedMethod _ = networkMonitorGetNetworkMetered---- method NetworkMonitor::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "NetworkMonitor")--- throws : False--- Skip return : False--foreign import ccall "g_network_monitor_get_default" g_network_monitor_get_default :: -    IO (Ptr NetworkMonitor)---networkMonitorGetDefault ::-    (MonadIO m) =>-    m NetworkMonitor                        -- result-networkMonitorGetDefault  = liftIO $ do-    result <- g_network_monitor_get_default-    checkUnexpectedReturnNULL "g_network_monitor_get_default" result-    result' <- (newObject NetworkMonitor) result-    return result'--
− GI/Gio/Interfaces/NetworkMonitor.hs-boot 
@@ -1,23 +0,0 @@-module GI.Gio.Interfaces.NetworkMonitor where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype NetworkMonitor = NetworkMonitor (ForeignPtr NetworkMonitor)-data NetworkMonitorConnectivityPropertyInfo-data NetworkMonitorNetworkAvailablePropertyInfo-data NetworkMonitorNetworkMeteredPropertyInfo-data NetworkMonitorNetworkChangedSignalInfo-instance GObject NetworkMonitor where-class GObject o => NetworkMonitorK o-instance (GObject o, IsDescendantOf NetworkMonitor o) => NetworkMonitorK o-data NetworkMonitorCanReachMethodInfo-data NetworkMonitorCanReachAsyncMethodInfo-data NetworkMonitorCanReachFinishMethodInfo-data NetworkMonitorGetConnectivityMethodInfo-data NetworkMonitorGetNetworkAvailableMethodInfo-data NetworkMonitorGetNetworkMeteredMethodInfo
− GI/Gio/Interfaces/PollableInputStream.hs 
@@ -1,280 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.PollableInputStream-    ( ---- * Exported types-    PollableInputStream(..)                 ,-    noPollableInputStream                   ,-    PollableInputStreamK                    ,-    toPollableInputStream                   ,--- -- * Methods--- ** pollableInputStreamCanPoll-    PollableInputStreamCanPollMethodInfo    ,-    pollableInputStreamCanPoll              ,----- ** pollableInputStreamCreateSource-    PollableInputStreamCreateSourceMethodInfo,-    pollableInputStreamCreateSource         ,----- ** pollableInputStreamIsReadable-    PollableInputStreamIsReadableMethodInfo ,-    pollableInputStreamIsReadable           ,----- ** pollableInputStreamReadNonblocking-    PollableInputStreamReadNonblockingMethodInfo,-    pollableInputStreamReadNonblocking      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject---- interface PollableInputStream --newtype PollableInputStream = PollableInputStream (ForeignPtr PollableInputStream)-noPollableInputStream :: Maybe PollableInputStream-noPollableInputStream = Nothing--type family ResolvePollableInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolvePollableInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolvePollableInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolvePollableInputStreamMethod "canPoll" o = PollableInputStreamCanPollMethodInfo-    ResolvePollableInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo-    ResolvePollableInputStreamMethod "close" o = InputStreamCloseMethodInfo-    ResolvePollableInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo-    ResolvePollableInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo-    ResolvePollableInputStreamMethod "createSource" o = PollableInputStreamCreateSourceMethodInfo-    ResolvePollableInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolvePollableInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolvePollableInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo-    ResolvePollableInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo-    ResolvePollableInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolvePollableInputStreamMethod "isReadable" o = PollableInputStreamIsReadableMethodInfo-    ResolvePollableInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolvePollableInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolvePollableInputStreamMethod "read" o = InputStreamReadMethodInfo-    ResolvePollableInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo-    ResolvePollableInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo-    ResolvePollableInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo-    ResolvePollableInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo-    ResolvePollableInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo-    ResolvePollableInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo-    ResolvePollableInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo-    ResolvePollableInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo-    ResolvePollableInputStreamMethod "readNonblocking" o = PollableInputStreamReadNonblockingMethodInfo-    ResolvePollableInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolvePollableInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolvePollableInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolvePollableInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolvePollableInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolvePollableInputStreamMethod "skip" o = InputStreamSkipMethodInfo-    ResolvePollableInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo-    ResolvePollableInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo-    ResolvePollableInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolvePollableInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolvePollableInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolvePollableInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolvePollableInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolvePollableInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolvePollableInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolvePollableInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolvePollableInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolvePollableInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo-    ResolvePollableInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolvePollableInputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePollableInputStreamMethod t PollableInputStream, MethodInfo info PollableInputStream p) => IsLabelProxy t (PollableInputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePollableInputStreamMethod t PollableInputStream, MethodInfo info PollableInputStream p) => IsLabel t (PollableInputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList PollableInputStream = PollableInputStreamAttributeList-type PollableInputStreamAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList PollableInputStream = PollableInputStreamSignalList-type PollableInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_pollable_input_stream_get_type"-    c_g_pollable_input_stream_get_type :: IO GType--type instance ParentTypes PollableInputStream = PollableInputStreamParentTypes-type PollableInputStreamParentTypes = '[InputStream, GObject.Object]--instance GObject PollableInputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_pollable_input_stream_get_type-    --class GObject o => PollableInputStreamK o-instance (GObject o, IsDescendantOf PollableInputStream o) => PollableInputStreamK o--toPollableInputStream :: PollableInputStreamK o => o -> IO PollableInputStream-toPollableInputStream = unsafeCastTo PollableInputStream---- method PollableInputStream::can_poll--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "PollableInputStream"-    IO CInt---pollableInputStreamCanPoll ::-    (MonadIO m, PollableInputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-pollableInputStreamCanPoll _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_pollable_input_stream_can_poll _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data PollableInputStreamCanPollMethodInfo-instance (signature ~ (m Bool), MonadIO m, PollableInputStreamK a) => MethodInfo PollableInputStreamCanPollMethodInfo a signature where-    overloadedMethod _ = pollableInputStreamCanPoll---- method PollableInputStream::create_source--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "Source")--- throws : False--- Skip return : False--foreign import ccall "g_pollable_input_stream_create_source" g_pollable_input_stream_create_source :: -    Ptr PollableInputStream ->              -- _obj : TInterface "Gio" "PollableInputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    IO (Ptr GLib.Source)---pollableInputStreamCreateSource ::-    (MonadIO m, PollableInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m GLib.Source                        -- result-pollableInputStreamCreateSource _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- g_pollable_input_stream_create_source _obj' maybeCancellable-    checkUnexpectedReturnNULL "g_pollable_input_stream_create_source" result-    result' <- (wrapBoxed GLib.Source) result-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return result'--data PollableInputStreamCreateSourceMethodInfo-instance (signature ~ (Maybe (b) -> m GLib.Source), MonadIO m, PollableInputStreamK a, CancellableK b) => MethodInfo PollableInputStreamCreateSourceMethodInfo a signature where-    overloadedMethod _ = pollableInputStreamCreateSource---- method PollableInputStream::is_readable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "PollableInputStream"-    IO CInt---pollableInputStreamIsReadable ::-    (MonadIO m, PollableInputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-pollableInputStreamIsReadable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_pollable_input_stream_is_readable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data PollableInputStreamIsReadableMethodInfo-instance (signature ~ (m Bool), MonadIO m, PollableInputStreamK a) => MethodInfo PollableInputStreamIsReadableMethodInfo a signature where-    overloadedMethod _ = pollableInputStreamIsReadable---- method PollableInputStream::read_nonblocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "PollableInputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---pollableInputStreamReadNonblocking ::-    (MonadIO m, PollableInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-pollableInputStreamReadNonblocking _obj buffer cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_pollable_input_stream_read_nonblocking _obj' buffer' count maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--data PollableInputStreamReadNonblockingMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, PollableInputStreamK a, CancellableK b) => MethodInfo PollableInputStreamReadNonblockingMethodInfo a signature where-    overloadedMethod _ = pollableInputStreamReadNonblocking--
− GI/Gio/Interfaces/PollableInputStream.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Interfaces.PollableInputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PollableInputStream = PollableInputStream (ForeignPtr PollableInputStream)-instance GObject PollableInputStream where-class GObject o => PollableInputStreamK o-instance (GObject o, IsDescendantOf PollableInputStream o) => PollableInputStreamK o-data PollableInputStreamCanPollMethodInfo-data PollableInputStreamCreateSourceMethodInfo-data PollableInputStreamIsReadableMethodInfo-data PollableInputStreamReadNonblockingMethodInfo
− GI/Gio/Interfaces/PollableOutputStream.hs 
@@ -1,284 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.PollableOutputStream-    ( ---- * Exported types-    PollableOutputStream(..)                ,-    noPollableOutputStream                  ,-    PollableOutputStreamK                   ,-    toPollableOutputStream                  ,--- -- * Methods--- ** pollableOutputStreamCanPoll-    PollableOutputStreamCanPollMethodInfo   ,-    pollableOutputStreamCanPoll             ,----- ** pollableOutputStreamCreateSource-    PollableOutputStreamCreateSourceMethodInfo,-    pollableOutputStreamCreateSource        ,----- ** pollableOutputStreamIsWritable-    PollableOutputStreamIsWritableMethodInfo,-    pollableOutputStreamIsWritable          ,----- ** pollableOutputStreamWriteNonblocking-    PollableOutputStreamWriteNonblockingMethodInfo,-    pollableOutputStreamWriteNonblocking    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject---- interface PollableOutputStream --newtype PollableOutputStream = PollableOutputStream (ForeignPtr PollableOutputStream)-noPollableOutputStream :: Maybe PollableOutputStream-noPollableOutputStream = Nothing--type family ResolvePollableOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolvePollableOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolvePollableOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolvePollableOutputStreamMethod "canPoll" o = PollableOutputStreamCanPollMethodInfo-    ResolvePollableOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo-    ResolvePollableOutputStreamMethod "close" o = OutputStreamCloseMethodInfo-    ResolvePollableOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo-    ResolvePollableOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo-    ResolvePollableOutputStreamMethod "createSource" o = PollableOutputStreamCreateSourceMethodInfo-    ResolvePollableOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo-    ResolvePollableOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo-    ResolvePollableOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo-    ResolvePollableOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolvePollableOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolvePollableOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo-    ResolvePollableOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo-    ResolvePollableOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo-    ResolvePollableOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolvePollableOutputStreamMethod "isWritable" o = PollableOutputStreamIsWritableMethodInfo-    ResolvePollableOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolvePollableOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolvePollableOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolvePollableOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolvePollableOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolvePollableOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolvePollableOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolvePollableOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo-    ResolvePollableOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo-    ResolvePollableOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo-    ResolvePollableOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolvePollableOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolvePollableOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolvePollableOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolvePollableOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolvePollableOutputStreamMethod "write" o = OutputStreamWriteMethodInfo-    ResolvePollableOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo-    ResolvePollableOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo-    ResolvePollableOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo-    ResolvePollableOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo-    ResolvePollableOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo-    ResolvePollableOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo-    ResolvePollableOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo-    ResolvePollableOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo-    ResolvePollableOutputStreamMethod "writeNonblocking" o = PollableOutputStreamWriteNonblockingMethodInfo-    ResolvePollableOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolvePollableOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolvePollableOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolvePollableOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolvePollableOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo-    ResolvePollableOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolvePollableOutputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePollableOutputStreamMethod t PollableOutputStream, MethodInfo info PollableOutputStream p) => IsLabelProxy t (PollableOutputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePollableOutputStreamMethod t PollableOutputStream, MethodInfo info PollableOutputStream p) => IsLabel t (PollableOutputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList PollableOutputStream = PollableOutputStreamAttributeList-type PollableOutputStreamAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList PollableOutputStream = PollableOutputStreamSignalList-type PollableOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_pollable_output_stream_get_type"-    c_g_pollable_output_stream_get_type :: IO GType--type instance ParentTypes PollableOutputStream = PollableOutputStreamParentTypes-type PollableOutputStreamParentTypes = '[OutputStream, GObject.Object]--instance GObject PollableOutputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_pollable_output_stream_get_type-    --class GObject o => PollableOutputStreamK o-instance (GObject o, IsDescendantOf PollableOutputStream o) => PollableOutputStreamK o--toPollableOutputStream :: PollableOutputStreamK o => o -> IO PollableOutputStream-toPollableOutputStream = unsafeCastTo PollableOutputStream---- method PollableOutputStream::can_poll--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "PollableOutputStream"-    IO CInt---pollableOutputStreamCanPoll ::-    (MonadIO m, PollableOutputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-pollableOutputStreamCanPoll _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_pollable_output_stream_can_poll _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data PollableOutputStreamCanPollMethodInfo-instance (signature ~ (m Bool), MonadIO m, PollableOutputStreamK a) => MethodInfo PollableOutputStreamCanPollMethodInfo a signature where-    overloadedMethod _ = pollableOutputStreamCanPoll---- method PollableOutputStream::create_source--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "Source")--- throws : False--- Skip return : False--foreign import ccall "g_pollable_output_stream_create_source" g_pollable_output_stream_create_source :: -    Ptr PollableOutputStream ->             -- _obj : TInterface "Gio" "PollableOutputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    IO (Ptr GLib.Source)---pollableOutputStreamCreateSource ::-    (MonadIO m, PollableOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m GLib.Source                        -- result-pollableOutputStreamCreateSource _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- g_pollable_output_stream_create_source _obj' maybeCancellable-    checkUnexpectedReturnNULL "g_pollable_output_stream_create_source" result-    result' <- (wrapBoxed GLib.Source) result-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return result'--data PollableOutputStreamCreateSourceMethodInfo-instance (signature ~ (Maybe (b) -> m GLib.Source), MonadIO m, PollableOutputStreamK a, CancellableK b) => MethodInfo PollableOutputStreamCreateSourceMethodInfo a signature where-    overloadedMethod _ = pollableOutputStreamCreateSource---- method PollableOutputStream::is_writable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "PollableOutputStream"-    IO CInt---pollableOutputStreamIsWritable ::-    (MonadIO m, PollableOutputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-pollableOutputStreamIsWritable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_pollable_output_stream_is_writable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data PollableOutputStreamIsWritableMethodInfo-instance (signature ~ (m Bool), MonadIO m, PollableOutputStreamK a) => MethodInfo PollableOutputStreamIsWritableMethodInfo a signature where-    overloadedMethod _ = pollableOutputStreamIsWritable---- method PollableOutputStream::write_nonblocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "PollableOutputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---pollableOutputStreamWriteNonblocking ::-    (MonadIO m, PollableOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-pollableOutputStreamWriteNonblocking _obj buffer cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_pollable_output_stream_write_nonblocking _obj' buffer' count maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--data PollableOutputStreamWriteNonblockingMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, PollableOutputStreamK a, CancellableK b) => MethodInfo PollableOutputStreamWriteNonblockingMethodInfo a signature where-    overloadedMethod _ = pollableOutputStreamWriteNonblocking--
− GI/Gio/Interfaces/PollableOutputStream.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Interfaces.PollableOutputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PollableOutputStream = PollableOutputStream (ForeignPtr PollableOutputStream)-instance GObject PollableOutputStream where-class GObject o => PollableOutputStreamK o-instance (GObject o, IsDescendantOf PollableOutputStream o) => PollableOutputStreamK o-data PollableOutputStreamCanPollMethodInfo-data PollableOutputStreamCreateSourceMethodInfo-data PollableOutputStreamIsWritableMethodInfo-data PollableOutputStreamWriteNonblockingMethodInfo
− GI/Gio/Interfaces/Proxy.hs 
@@ -1,320 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.Proxy-    ( ---- * Exported types-    Proxy(..)                               ,-    noProxy                                 ,-    ProxyK                                  ,-    toProxy                                 ,--- -- * Methods--- ** proxyConnect-    ProxyConnectMethodInfo                  ,-    proxyConnect                            ,----- ** proxyConnectAsync-    ProxyConnectAsyncMethodInfo             ,-    proxyConnectAsync                       ,----- ** proxyConnectFinish-    ProxyConnectFinishMethodInfo            ,-    proxyConnectFinish                      ,----- ** proxyGetDefaultForProtocol-    proxyGetDefaultForProtocol              ,----- ** proxySupportsHostname-    ProxySupportsHostnameMethodInfo         ,-    proxySupportsHostname                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface Proxy --newtype Proxy = Proxy (ForeignPtr Proxy)-noProxy :: Maybe Proxy-noProxy = Nothing--type family ResolveProxyMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveProxyMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveProxyMethod "connect" o = ProxyConnectMethodInfo-    ResolveProxyMethod "connectAsync" o = ProxyConnectAsyncMethodInfo-    ResolveProxyMethod "connectFinish" o = ProxyConnectFinishMethodInfo-    ResolveProxyMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveProxyMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveProxyMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveProxyMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveProxyMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveProxyMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveProxyMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveProxyMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveProxyMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveProxyMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveProxyMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveProxyMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveProxyMethod "supportsHostname" o = ProxySupportsHostnameMethodInfo-    ResolveProxyMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveProxyMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveProxyMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveProxyMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveProxyMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveProxyMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveProxyMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveProxyMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveProxyMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveProxyMethod t Proxy, MethodInfo info Proxy p) => IsLabelProxy t (Proxy -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveProxyMethod t Proxy, MethodInfo info Proxy p) => IsLabel t (Proxy -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Proxy = ProxyAttributeList-type ProxyAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Proxy = ProxySignalList-type ProxySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_proxy_get_type"-    c_g_proxy_get_type :: IO GType--type instance ParentTypes Proxy = ProxyParentTypes-type ProxyParentTypes = '[GObject.Object]--instance GObject Proxy where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_proxy_get_type-    --class GObject o => ProxyK o-instance (GObject o, IsDescendantOf Proxy o) => ProxyK o--toProxy :: ProxyK o => o -> IO Proxy-toProxy = unsafeCastTo Proxy---- method Proxy::connect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_address", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "IOStream")--- throws : True--- Skip return : False--foreign import ccall "g_proxy_connect" g_proxy_connect :: -    Ptr Proxy ->                            -- _obj : TInterface "Gio" "Proxy"-    Ptr IOStream ->                         -- connection : TInterface "Gio" "IOStream"-    Ptr ProxyAddress ->                     -- proxy_address : TInterface "Gio" "ProxyAddress"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr IOStream)---proxyConnect ::-    (MonadIO m, ProxyK a, IOStreamK b, ProxyAddressK c, CancellableK d) =>-    a                                       -- _obj-    -> b                                    -- connection-    -> c                                    -- proxyAddress-    -> Maybe (d)                            -- cancellable-    -> m IOStream                           -- result-proxyConnect _obj connection proxyAddress cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connection' = unsafeManagedPtrCastPtr connection-    let proxyAddress' = unsafeManagedPtrCastPtr proxyAddress-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_proxy_connect _obj' connection' proxyAddress' maybeCancellable-        checkUnexpectedReturnNULL "g_proxy_connect" result-        result' <- (wrapObject IOStream) result-        touchManagedPtr _obj-        touchManagedPtr connection-        touchManagedPtr proxyAddress-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data ProxyConnectMethodInfo-instance (signature ~ (b -> c -> Maybe (d) -> m IOStream), MonadIO m, ProxyK a, IOStreamK b, ProxyAddressK c, CancellableK d) => MethodInfo ProxyConnectMethodInfo a signature where-    overloadedMethod _ = proxyConnect---- method Proxy::connect_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_address", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Proxy"-    Ptr IOStream ->                         -- connection : TInterface "Gio" "IOStream"-    Ptr ProxyAddress ->                     -- proxy_address : TInterface "Gio" "ProxyAddress"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---proxyConnectAsync ::-    (MonadIO m, ProxyK a, IOStreamK b, ProxyAddressK c, CancellableK d) =>-    a                                       -- _obj-    -> b                                    -- connection-    -> c                                    -- proxyAddress-    -> Maybe (d)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-proxyConnectAsync _obj connection proxyAddress cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connection' = unsafeManagedPtrCastPtr connection-    let proxyAddress' = unsafeManagedPtrCastPtr proxyAddress-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_proxy_connect_async _obj' connection' proxyAddress' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr connection-    touchManagedPtr proxyAddress-    whenJust cancellable touchManagedPtr-    return ()--data ProxyConnectAsyncMethodInfo-instance (signature ~ (b -> c -> Maybe (d) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ProxyK a, IOStreamK b, ProxyAddressK c, CancellableK d) => MethodInfo ProxyConnectAsyncMethodInfo a signature where-    overloadedMethod _ = proxyConnectAsync---- method Proxy::connect_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "IOStream")--- throws : True--- Skip return : False--foreign import ccall "g_proxy_connect_finish" g_proxy_connect_finish :: -    Ptr Proxy ->                            -- _obj : TInterface "Gio" "Proxy"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr IOStream)---proxyConnectFinish ::-    (MonadIO m, ProxyK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m IOStream                           -- result-proxyConnectFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_proxy_connect_finish _obj' result_'-        checkUnexpectedReturnNULL "g_proxy_connect_finish" result-        result' <- (wrapObject IOStream) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data ProxyConnectFinishMethodInfo-instance (signature ~ (b -> m IOStream), MonadIO m, ProxyK a, AsyncResultK b) => MethodInfo ProxyConnectFinishMethodInfo a signature where-    overloadedMethod _ = proxyConnectFinish---- method Proxy::supports_hostname--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, 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 ->                            -- _obj : TInterface "Gio" "Proxy"-    IO CInt---proxySupportsHostname ::-    (MonadIO m, ProxyK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-proxySupportsHostname _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_proxy_supports_hostname _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data ProxySupportsHostnameMethodInfo-instance (signature ~ (m Bool), MonadIO m, ProxyK a) => MethodInfo ProxySupportsHostnameMethodInfo a signature where-    overloadedMethod _ = proxySupportsHostname---- method Proxy::get_default_for_protocol--- method type : MemberFunction--- Args : [Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---proxyGetDefaultForProtocol ::-    (MonadIO m) =>-    T.Text                                  -- protocol-    -> m Proxy                              -- result-proxyGetDefaultForProtocol protocol = liftIO $ do-    protocol' <- textToCString protocol-    result <- g_proxy_get_default_for_protocol protocol'-    checkUnexpectedReturnNULL "g_proxy_get_default_for_protocol" result-    result' <- (wrapObject Proxy) result-    freeMem protocol'-    return result'--
− GI/Gio/Interfaces/Proxy.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Interfaces.Proxy where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Proxy = Proxy (ForeignPtr Proxy)-instance GObject Proxy where-class GObject o => ProxyK o-instance (GObject o, IsDescendantOf Proxy o) => ProxyK o-data ProxyConnectMethodInfo-data ProxyConnectAsyncMethodInfo-data ProxyConnectFinishMethodInfo-data ProxySupportsHostnameMethodInfo
− GI/Gio/Interfaces/ProxyResolver.hs 
@@ -1,312 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.ProxyResolver-    ( ---- * Exported types-    ProxyResolver(..)                       ,-    noProxyResolver                         ,-    ProxyResolverK                          ,-    toProxyResolver                         ,--- -- * Methods--- ** proxyResolverGetDefault-    proxyResolverGetDefault                 ,----- ** proxyResolverIsSupported-    ProxyResolverIsSupportedMethodInfo      ,-    proxyResolverIsSupported                ,----- ** proxyResolverLookup-    ProxyResolverLookupMethodInfo           ,-    proxyResolverLookup                     ,----- ** proxyResolverLookupAsync-    ProxyResolverLookupAsyncMethodInfo      ,-    proxyResolverLookupAsync                ,----- ** proxyResolverLookupFinish-    ProxyResolverLookupFinishMethodInfo     ,-    proxyResolverLookupFinish               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface ProxyResolver --newtype ProxyResolver = ProxyResolver (ForeignPtr ProxyResolver)-noProxyResolver :: Maybe ProxyResolver-noProxyResolver = Nothing--type family ResolveProxyResolverMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyResolverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveProxyResolverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveProxyResolverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveProxyResolverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveProxyResolverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveProxyResolverMethod "isSupported" o = ProxyResolverIsSupportedMethodInfo-    ResolveProxyResolverMethod "lookup" o = ProxyResolverLookupMethodInfo-    ResolveProxyResolverMethod "lookupAsync" o = ProxyResolverLookupAsyncMethodInfo-    ResolveProxyResolverMethod "lookupFinish" o = ProxyResolverLookupFinishMethodInfo-    ResolveProxyResolverMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveProxyResolverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveProxyResolverMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveProxyResolverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveProxyResolverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveProxyResolverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveProxyResolverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveProxyResolverMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveProxyResolverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveProxyResolverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveProxyResolverMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveProxyResolverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveProxyResolverMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveProxyResolverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveProxyResolverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveProxyResolverMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveProxyResolverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveProxyResolverMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveProxyResolverMethod t ProxyResolver, MethodInfo info ProxyResolver p) => IsLabelProxy t (ProxyResolver -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveProxyResolverMethod t ProxyResolver, MethodInfo info ProxyResolver p) => IsLabel t (ProxyResolver -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList ProxyResolver = ProxyResolverAttributeList-type ProxyResolverAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList ProxyResolver = ProxyResolverSignalList-type ProxyResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_proxy_resolver_get_type"-    c_g_proxy_resolver_get_type :: IO GType--type instance ParentTypes ProxyResolver = ProxyResolverParentTypes-type ProxyResolverParentTypes = '[GObject.Object]--instance GObject ProxyResolver where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_proxy_resolver_get_type-    --class GObject o => ProxyResolverK o-instance (GObject o, IsDescendantOf ProxyResolver o) => ProxyResolverK o--toProxyResolver :: ProxyResolverK o => o -> IO ProxyResolver-toProxyResolver = unsafeCastTo ProxyResolver---- method ProxyResolver::is_supported--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "ProxyResolver"-    IO CInt---proxyResolverIsSupported ::-    (MonadIO m, ProxyResolverK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-proxyResolverIsSupported _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_proxy_resolver_is_supported _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data ProxyResolverIsSupportedMethodInfo-instance (signature ~ (m Bool), MonadIO m, ProxyResolverK a) => MethodInfo ProxyResolverIsSupportedMethodInfo a signature where-    overloadedMethod _ = proxyResolverIsSupported---- method ProxyResolver::lookup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                    -- _obj : TInterface "Gio" "ProxyResolver"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---proxyResolverLookup ::-    (MonadIO m, ProxyResolverK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> Maybe (b)                            -- cancellable-    -> m [T.Text]                           -- result-proxyResolverLookup _obj uri cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_proxy_resolver_lookup _obj' uri' maybeCancellable-        checkUnexpectedReturnNULL "g_proxy_resolver_lookup" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem uri'-        return result'-     ) (do-        freeMem uri'-     )--data ProxyResolverLookupMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m [T.Text]), MonadIO m, ProxyResolverK a, CancellableK b) => MethodInfo ProxyResolverLookupMethodInfo a signature where-    overloadedMethod _ = proxyResolverLookup---- method ProxyResolver::lookup_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "ProxyResolver"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---proxyResolverLookupAsync ::-    (MonadIO m, ProxyResolverK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-proxyResolverLookupAsync _obj uri cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_proxy_resolver_lookup_async _obj' uri' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem uri'-    return ()--data ProxyResolverLookupAsyncMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ProxyResolverK a, CancellableK b) => MethodInfo ProxyResolverLookupAsyncMethodInfo a signature where-    overloadedMethod _ = proxyResolverLookupAsync---- method ProxyResolver::lookup_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "ProxyResolver"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---proxyResolverLookupFinish ::-    (MonadIO m, ProxyResolverK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m [T.Text]                           -- result-proxyResolverLookupFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_proxy_resolver_lookup_finish _obj' result_'-        checkUnexpectedReturnNULL "g_proxy_resolver_lookup_finish" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data ProxyResolverLookupFinishMethodInfo-instance (signature ~ (b -> m [T.Text]), MonadIO m, ProxyResolverK a, AsyncResultK b) => MethodInfo ProxyResolverLookupFinishMethodInfo a signature where-    overloadedMethod _ = proxyResolverLookupFinish---- method ProxyResolver::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "ProxyResolver")--- throws : False--- Skip return : False--foreign import ccall "g_proxy_resolver_get_default" g_proxy_resolver_get_default :: -    IO (Ptr ProxyResolver)---proxyResolverGetDefault ::-    (MonadIO m) =>-    m ProxyResolver                         -- result-proxyResolverGetDefault  = liftIO $ do-    result <- g_proxy_resolver_get_default-    checkUnexpectedReturnNULL "g_proxy_resolver_get_default" result-    result' <- (newObject ProxyResolver) result-    return result'--
− GI/Gio/Interfaces/ProxyResolver.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Interfaces.ProxyResolver where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ProxyResolver = ProxyResolver (ForeignPtr ProxyResolver)-instance GObject ProxyResolver where-class GObject o => ProxyResolverK o-instance (GObject o, IsDescendantOf ProxyResolver o) => ProxyResolverK o-data ProxyResolverIsSupportedMethodInfo-data ProxyResolverLookupMethodInfo-data ProxyResolverLookupAsyncMethodInfo-data ProxyResolverLookupFinishMethodInfo
− GI/Gio/Interfaces/RemoteActionGroup.hs 
@@ -1,201 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.RemoteActionGroup-    ( ---- * Exported types-    RemoteActionGroup(..)                   ,-    noRemoteActionGroup                     ,-    RemoteActionGroupK                      ,-    toRemoteActionGroup                     ,--- -- * Methods--- ** remoteActionGroupActivateActionFull-    RemoteActionGroupActivateActionFullMethodInfo,-    remoteActionGroupActivateActionFull     ,----- ** remoteActionGroupChangeActionStateFull-    RemoteActionGroupChangeActionStateFullMethodInfo,-    remoteActionGroupChangeActionStateFull  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface RemoteActionGroup --newtype RemoteActionGroup = RemoteActionGroup (ForeignPtr RemoteActionGroup)-noRemoteActionGroup :: Maybe RemoteActionGroup-noRemoteActionGroup = Nothing--type family ResolveRemoteActionGroupMethod (t :: Symbol) (o :: *) :: * where-    ResolveRemoteActionGroupMethod "actionAdded" o = ActionGroupActionAddedMethodInfo-    ResolveRemoteActionGroupMethod "actionEnabledChanged" o = ActionGroupActionEnabledChangedMethodInfo-    ResolveRemoteActionGroupMethod "actionRemoved" o = ActionGroupActionRemovedMethodInfo-    ResolveRemoteActionGroupMethod "actionStateChanged" o = ActionGroupActionStateChangedMethodInfo-    ResolveRemoteActionGroupMethod "activateAction" o = ActionGroupActivateActionMethodInfo-    ResolveRemoteActionGroupMethod "activateActionFull" o = RemoteActionGroupActivateActionFullMethodInfo-    ResolveRemoteActionGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveRemoteActionGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveRemoteActionGroupMethod "changeActionState" o = ActionGroupChangeActionStateMethodInfo-    ResolveRemoteActionGroupMethod "changeActionStateFull" o = RemoteActionGroupChangeActionStateFullMethodInfo-    ResolveRemoteActionGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveRemoteActionGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveRemoteActionGroupMethod "hasAction" o = ActionGroupHasActionMethodInfo-    ResolveRemoteActionGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveRemoteActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo-    ResolveRemoteActionGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveRemoteActionGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveRemoteActionGroupMethod "queryAction" o = ActionGroupQueryActionMethodInfo-    ResolveRemoteActionGroupMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveRemoteActionGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveRemoteActionGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveRemoteActionGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveRemoteActionGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveRemoteActionGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveRemoteActionGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveRemoteActionGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveRemoteActionGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveRemoteActionGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveRemoteActionGroupMethod "getActionEnabled" o = ActionGroupGetActionEnabledMethodInfo-    ResolveRemoteActionGroupMethod "getActionParameterType" o = ActionGroupGetActionParameterTypeMethodInfo-    ResolveRemoteActionGroupMethod "getActionState" o = ActionGroupGetActionStateMethodInfo-    ResolveRemoteActionGroupMethod "getActionStateHint" o = ActionGroupGetActionStateHintMethodInfo-    ResolveRemoteActionGroupMethod "getActionStateType" o = ActionGroupGetActionStateTypeMethodInfo-    ResolveRemoteActionGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveRemoteActionGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveRemoteActionGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveRemoteActionGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveRemoteActionGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveRemoteActionGroupMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRemoteActionGroupMethod t RemoteActionGroup, MethodInfo info RemoteActionGroup p) => IsLabelProxy t (RemoteActionGroup -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRemoteActionGroupMethod t RemoteActionGroup, MethodInfo info RemoteActionGroup p) => IsLabel t (RemoteActionGroup -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList RemoteActionGroup = RemoteActionGroupAttributeList-type RemoteActionGroupAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList RemoteActionGroup = RemoteActionGroupSignalList-type RemoteActionGroupSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_remote_action_group_get_type"-    c_g_remote_action_group_get_type :: IO GType--type instance ParentTypes RemoteActionGroup = RemoteActionGroupParentTypes-type RemoteActionGroupParentTypes = '[ActionGroup, GObject.Object]--instance GObject RemoteActionGroup where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_remote_action_group_get_type-    --class GObject o => RemoteActionGroupK o-instance (GObject o, IsDescendantOf RemoteActionGroup o) => RemoteActionGroupK o--toRemoteActionGroup :: RemoteActionGroupK o => o -> IO RemoteActionGroup-toRemoteActionGroup = unsafeCastTo RemoteActionGroup---- method RemoteActionGroup::activate_action_full--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "RemoteActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "platform_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "RemoteActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameter : TVariant-    Ptr GVariant ->                         -- platform_data : TVariant-    IO ()---remoteActionGroupActivateActionFull ::-    (MonadIO m, RemoteActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> Maybe (GVariant)                     -- parameter-    -> GVariant                             -- platformData-    -> m ()                                 -- result-remoteActionGroupActivateActionFull _obj actionName parameter platformData = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    maybeParameter <- case parameter of-        Nothing -> return nullPtr-        Just jParameter -> do-            let jParameter' = unsafeManagedPtrGetPtr jParameter-            return jParameter'-    let platformData' = unsafeManagedPtrGetPtr platformData-    g_remote_action_group_activate_action_full _obj' actionName' maybeParameter platformData'-    touchManagedPtr _obj-    freeMem actionName'-    return ()--data RemoteActionGroupActivateActionFullMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> GVariant -> m ()), MonadIO m, RemoteActionGroupK a) => MethodInfo RemoteActionGroupActivateActionFullMethodInfo a signature where-    overloadedMethod _ = remoteActionGroupActivateActionFull---- method RemoteActionGroup::change_action_state_full--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "RemoteActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "platform_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "RemoteActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    Ptr GVariant ->                         -- platform_data : TVariant-    IO ()---remoteActionGroupChangeActionStateFull ::-    (MonadIO m, RemoteActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> GVariant                             -- value-    -> GVariant                             -- platformData-    -> m ()                                 -- result-remoteActionGroupChangeActionStateFull _obj actionName value platformData = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    let value' = unsafeManagedPtrGetPtr value-    let platformData' = unsafeManagedPtrGetPtr platformData-    g_remote_action_group_change_action_state_full _obj' actionName' value' platformData'-    touchManagedPtr _obj-    freeMem actionName'-    return ()--data RemoteActionGroupChangeActionStateFullMethodInfo-instance (signature ~ (T.Text -> GVariant -> GVariant -> m ()), MonadIO m, RemoteActionGroupK a) => MethodInfo RemoteActionGroupChangeActionStateFullMethodInfo a signature where-    overloadedMethod _ = remoteActionGroupChangeActionStateFull--
− GI/Gio/Interfaces/RemoteActionGroup.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Interfaces.RemoteActionGroup where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype RemoteActionGroup = RemoteActionGroup (ForeignPtr RemoteActionGroup)-instance GObject RemoteActionGroup where-class GObject o => RemoteActionGroupK o-instance (GObject o, IsDescendantOf RemoteActionGroup o) => RemoteActionGroupK o-data RemoteActionGroupActivateActionFullMethodInfo-data RemoteActionGroupChangeActionStateFullMethodInfo
− GI/Gio/Interfaces/Seekable.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 (garetxe@gmail.com)--}--module GI.Gio.Interfaces.Seekable-    ( ---- * Exported types-    Seekable(..)                            ,-    noSeekable                              ,-    SeekableK                               ,-    toSeekable                              ,--- -- * Methods--- ** seekableCanSeek-    SeekableCanSeekMethodInfo               ,-    seekableCanSeek                         ,----- ** seekableCanTruncate-    SeekableCanTruncateMethodInfo           ,-    seekableCanTruncate                     ,----- ** seekableSeek-    SeekableSeekMethodInfo                  ,-    seekableSeek                            ,----- ** seekableTell-    SeekableTellMethodInfo                  ,-    seekableTell                            ,----- ** seekableTruncate-    SeekableTruncateMethodInfo              ,-    seekableTruncate                        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject---- interface Seekable --newtype Seekable = Seekable (ForeignPtr Seekable)-noSeekable :: Maybe Seekable-noSeekable = Nothing--type family ResolveSeekableMethod (t :: Symbol) (o :: *) :: * where-    ResolveSeekableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSeekableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSeekableMethod "canSeek" o = SeekableCanSeekMethodInfo-    ResolveSeekableMethod "canTruncate" o = SeekableCanTruncateMethodInfo-    ResolveSeekableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSeekableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSeekableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSeekableMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSeekableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSeekableMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSeekableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSeekableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSeekableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSeekableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSeekableMethod "seek" o = SeekableSeekMethodInfo-    ResolveSeekableMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSeekableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSeekableMethod "tell" o = SeekableTellMethodInfo-    ResolveSeekableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSeekableMethod "truncate" o = SeekableTruncateMethodInfo-    ResolveSeekableMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSeekableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSeekableMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSeekableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSeekableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSeekableMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSeekableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSeekableMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSeekableMethod t Seekable, MethodInfo info Seekable p) => IsLabelProxy t (Seekable -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSeekableMethod t Seekable, MethodInfo info Seekable p) => IsLabel t (Seekable -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Seekable = SeekableAttributeList-type SeekableAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Seekable = SeekableSignalList-type SeekableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_seekable_get_type"-    c_g_seekable_get_type :: IO GType--type instance ParentTypes Seekable = SeekableParentTypes-type SeekableParentTypes = '[GObject.Object]--instance GObject Seekable where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_seekable_get_type-    --class GObject o => SeekableK o-instance (GObject o, IsDescendantOf Seekable o) => SeekableK o--toSeekable :: SeekableK o => o -> IO Seekable-toSeekable = unsafeCastTo Seekable---- method Seekable::can_seek--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Seekable"-    IO CInt---seekableCanSeek ::-    (MonadIO m, SeekableK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-seekableCanSeek _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_seekable_can_seek _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SeekableCanSeekMethodInfo-instance (signature ~ (m Bool), MonadIO m, SeekableK a) => MethodInfo SeekableCanSeekMethodInfo a signature where-    overloadedMethod _ = seekableCanSeek---- method Seekable::can_truncate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Seekable"-    IO CInt---seekableCanTruncate ::-    (MonadIO m, SeekableK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-seekableCanTruncate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_seekable_can_truncate _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SeekableCanTruncateMethodInfo-instance (signature ~ (m Bool), MonadIO m, SeekableK a) => MethodInfo SeekableCanTruncateMethodInfo a signature where-    overloadedMethod _ = seekableCanTruncate---- method Seekable::seek--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "Seekable"-    Int64 ->                                -- offset : TBasicType TInt64-    CUInt ->                                -- type : TInterface "GLib" "SeekType"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---seekableSeek ::-    (MonadIO m, SeekableK a, CancellableK b) =>-    a                                       -- _obj-    -> Int64                                -- offset-    -> GLib.SeekType                        -- type_-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-seekableSeek _obj offset type_ cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_seekable_seek _obj' offset type_' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data SeekableSeekMethodInfo-instance (signature ~ (Int64 -> GLib.SeekType -> Maybe (b) -> m ()), MonadIO m, SeekableK a, CancellableK b) => MethodInfo SeekableSeekMethodInfo a signature where-    overloadedMethod _ = seekableSeek---- method Seekable::tell--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Seekable"-    IO Int64---seekableTell ::-    (MonadIO m, SeekableK a) =>-    a                                       -- _obj-    -> m Int64                              -- result-seekableTell _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_seekable_tell _obj'-    touchManagedPtr _obj-    return result--data SeekableTellMethodInfo-instance (signature ~ (m Int64), MonadIO m, SeekableK a) => MethodInfo SeekableTellMethodInfo a signature where-    overloadedMethod _ = seekableTell---- method Seekable::truncate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "Seekable"-    Int64 ->                                -- offset : TBasicType TInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---seekableTruncate ::-    (MonadIO m, SeekableK a, CancellableK b) =>-    a                                       -- _obj-    -> Int64                                -- offset-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-seekableTruncate _obj offset cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_seekable_truncate _obj' offset maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data SeekableTruncateMethodInfo-instance (signature ~ (Int64 -> Maybe (b) -> m ()), MonadIO m, SeekableK a, CancellableK b) => MethodInfo SeekableTruncateMethodInfo a signature where-    overloadedMethod _ = seekableTruncate--
− GI/Gio/Interfaces/Seekable.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Interfaces.Seekable where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Seekable = Seekable (ForeignPtr Seekable)-instance GObject Seekable where-class GObject o => SeekableK o-instance (GObject o, IsDescendantOf Seekable o) => SeekableK o-data SeekableCanSeekMethodInfo-data SeekableCanTruncateMethodInfo-data SeekableSeekMethodInfo-data SeekableTellMethodInfo-data SeekableTruncateMethodInfo
− GI/Gio/Interfaces/SocketConnectable.hs 
@@ -1,167 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.SocketConnectable-    ( ---- * Exported types-    SocketConnectable(..)                   ,-    noSocketConnectable                     ,-    SocketConnectableK                      ,-    toSocketConnectable                     ,--- -- * Methods--- ** socketConnectableEnumerate-    SocketConnectableEnumerateMethodInfo    ,-    socketConnectableEnumerate              ,----- ** socketConnectableProxyEnumerate-    SocketConnectableProxyEnumerateMethodInfo,-    socketConnectableProxyEnumerate         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface SocketConnectable --newtype SocketConnectable = SocketConnectable (ForeignPtr SocketConnectable)-noSocketConnectable :: Maybe SocketConnectable-noSocketConnectable = Nothing--type family ResolveSocketConnectableMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketConnectableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSocketConnectableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSocketConnectableMethod "enumerate" o = SocketConnectableEnumerateMethodInfo-    ResolveSocketConnectableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSocketConnectableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSocketConnectableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSocketConnectableMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSocketConnectableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSocketConnectableMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo-    ResolveSocketConnectableMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSocketConnectableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSocketConnectableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSocketConnectableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSocketConnectableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSocketConnectableMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSocketConnectableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSocketConnectableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSocketConnectableMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSocketConnectableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSocketConnectableMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSocketConnectableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSocketConnectableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSocketConnectableMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSocketConnectableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSocketConnectableMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSocketConnectableMethod t SocketConnectable, MethodInfo info SocketConnectable p) => IsLabelProxy t (SocketConnectable -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSocketConnectableMethod t SocketConnectable, MethodInfo info SocketConnectable p) => IsLabel t (SocketConnectable -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList SocketConnectable = SocketConnectableAttributeList-type SocketConnectableAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList SocketConnectable = SocketConnectableSignalList-type SocketConnectableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_socket_connectable_get_type"-    c_g_socket_connectable_get_type :: IO GType--type instance ParentTypes SocketConnectable = SocketConnectableParentTypes-type SocketConnectableParentTypes = '[GObject.Object]--instance GObject SocketConnectable where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_socket_connectable_get_type-    --class GObject o => SocketConnectableK o-instance (GObject o, IsDescendantOf SocketConnectable o) => SocketConnectableK o--toSocketConnectable :: SocketConnectableK o => o -> IO SocketConnectable-toSocketConnectable = unsafeCastTo SocketConnectable---- method SocketConnectable::enumerate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddressEnumerator")--- throws : False--- Skip return : False--foreign import ccall "g_socket_connectable_enumerate" g_socket_connectable_enumerate :: -    Ptr SocketConnectable ->                -- _obj : TInterface "Gio" "SocketConnectable"-    IO (Ptr SocketAddressEnumerator)---socketConnectableEnumerate ::-    (MonadIO m, SocketConnectableK a) =>-    a                                       -- _obj-    -> m SocketAddressEnumerator            -- result-socketConnectableEnumerate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_connectable_enumerate _obj'-    checkUnexpectedReturnNULL "g_socket_connectable_enumerate" result-    result' <- (wrapObject SocketAddressEnumerator) result-    touchManagedPtr _obj-    return result'--data SocketConnectableEnumerateMethodInfo-instance (signature ~ (m SocketAddressEnumerator), MonadIO m, SocketConnectableK a) => MethodInfo SocketConnectableEnumerateMethodInfo a signature where-    overloadedMethod _ = socketConnectableEnumerate---- method SocketConnectable::proxy_enumerate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddressEnumerator")--- throws : False--- Skip return : False--foreign import ccall "g_socket_connectable_proxy_enumerate" g_socket_connectable_proxy_enumerate :: -    Ptr SocketConnectable ->                -- _obj : TInterface "Gio" "SocketConnectable"-    IO (Ptr SocketAddressEnumerator)---socketConnectableProxyEnumerate ::-    (MonadIO m, SocketConnectableK a) =>-    a                                       -- _obj-    -> m SocketAddressEnumerator            -- result-socketConnectableProxyEnumerate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_connectable_proxy_enumerate _obj'-    checkUnexpectedReturnNULL "g_socket_connectable_proxy_enumerate" result-    result' <- (wrapObject SocketAddressEnumerator) result-    touchManagedPtr _obj-    return result'--data SocketConnectableProxyEnumerateMethodInfo-instance (signature ~ (m SocketAddressEnumerator), MonadIO m, SocketConnectableK a) => MethodInfo SocketConnectableProxyEnumerateMethodInfo a signature where-    overloadedMethod _ = socketConnectableProxyEnumerate--
− GI/Gio/Interfaces/SocketConnectable.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Interfaces.SocketConnectable where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SocketConnectable = SocketConnectable (ForeignPtr SocketConnectable)-instance GObject SocketConnectable where-class GObject o => SocketConnectableK o-instance (GObject o, IsDescendantOf SocketConnectable o) => SocketConnectableK o-data SocketConnectableEnumerateMethodInfo-data SocketConnectableProxyEnumerateMethodInfo
− GI/Gio/Interfaces/TlsBackend.hs 
@@ -1,327 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.TlsBackend-    ( ---- * Exported types-    TlsBackend(..)                          ,-    noTlsBackend                            ,-    TlsBackendK                             ,-    toTlsBackend                            ,--- -- * Methods--- ** tlsBackendGetCertificateType-    TlsBackendGetCertificateTypeMethodInfo  ,-    tlsBackendGetCertificateType            ,----- ** tlsBackendGetClientConnectionType-    TlsBackendGetClientConnectionTypeMethodInfo,-    tlsBackendGetClientConnectionType       ,----- ** tlsBackendGetDefault-    tlsBackendGetDefault                    ,----- ** tlsBackendGetDefaultDatabase-    TlsBackendGetDefaultDatabaseMethodInfo  ,-    tlsBackendGetDefaultDatabase            ,----- ** tlsBackendGetFileDatabaseType-    TlsBackendGetFileDatabaseTypeMethodInfo ,-    tlsBackendGetFileDatabaseType           ,----- ** tlsBackendGetServerConnectionType-    TlsBackendGetServerConnectionTypeMethodInfo,-    tlsBackendGetServerConnectionType       ,----- ** tlsBackendSupportsTls-    TlsBackendSupportsTlsMethodInfo         ,-    tlsBackendSupportsTls                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface TlsBackend --newtype TlsBackend = TlsBackend (ForeignPtr TlsBackend)-noTlsBackend :: Maybe TlsBackend-noTlsBackend = Nothing--type family ResolveTlsBackendMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsBackendMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTlsBackendMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTlsBackendMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTlsBackendMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTlsBackendMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTlsBackendMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTlsBackendMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTlsBackendMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTlsBackendMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTlsBackendMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTlsBackendMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTlsBackendMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTlsBackendMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTlsBackendMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTlsBackendMethod "supportsTls" o = TlsBackendSupportsTlsMethodInfo-    ResolveTlsBackendMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTlsBackendMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTlsBackendMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTlsBackendMethod "getCertificateType" o = TlsBackendGetCertificateTypeMethodInfo-    ResolveTlsBackendMethod "getClientConnectionType" o = TlsBackendGetClientConnectionTypeMethodInfo-    ResolveTlsBackendMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTlsBackendMethod "getDefaultDatabase" o = TlsBackendGetDefaultDatabaseMethodInfo-    ResolveTlsBackendMethod "getFileDatabaseType" o = TlsBackendGetFileDatabaseTypeMethodInfo-    ResolveTlsBackendMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTlsBackendMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTlsBackendMethod "getServerConnectionType" o = TlsBackendGetServerConnectionTypeMethodInfo-    ResolveTlsBackendMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTlsBackendMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTlsBackendMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTlsBackendMethod t TlsBackend, MethodInfo info TlsBackend p) => IsLabelProxy t (TlsBackend -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTlsBackendMethod t TlsBackend, MethodInfo info TlsBackend p) => IsLabel t (TlsBackend -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList TlsBackend = TlsBackendAttributeList-type TlsBackendAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList TlsBackend = TlsBackendSignalList-type TlsBackendSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_tls_backend_get_type"-    c_g_tls_backend_get_type :: IO GType--type instance ParentTypes TlsBackend = TlsBackendParentTypes-type TlsBackendParentTypes = '[GObject.Object]--instance GObject TlsBackend where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_tls_backend_get_type-    --class GObject o => TlsBackendK o-instance (GObject o, IsDescendantOf TlsBackend o) => TlsBackendK o--toTlsBackend :: TlsBackendK o => o -> IO TlsBackend-toTlsBackend = unsafeCastTo TlsBackend---- method TlsBackend::get_certificate_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "TlsBackend"-    IO CGType---tlsBackendGetCertificateType ::-    (MonadIO m, TlsBackendK a) =>-    a                                       -- _obj-    -> m GType                              -- result-tlsBackendGetCertificateType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_backend_get_certificate_type _obj'-    let result' = GType result-    touchManagedPtr _obj-    return result'--data TlsBackendGetCertificateTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendGetCertificateTypeMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetCertificateType---- method TlsBackend::get_client_connection_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "TlsBackend"-    IO CGType---tlsBackendGetClientConnectionType ::-    (MonadIO m, TlsBackendK a) =>-    a                                       -- _obj-    -> m GType                              -- result-tlsBackendGetClientConnectionType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_backend_get_client_connection_type _obj'-    let result' = GType result-    touchManagedPtr _obj-    return result'--data TlsBackendGetClientConnectionTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendGetClientConnectionTypeMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetClientConnectionType---- method TlsBackend::get_default_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsDatabase")--- throws : False--- Skip return : False--foreign import ccall "g_tls_backend_get_default_database" g_tls_backend_get_default_database :: -    Ptr TlsBackend ->                       -- _obj : TInterface "Gio" "TlsBackend"-    IO (Ptr TlsDatabase)---tlsBackendGetDefaultDatabase ::-    (MonadIO m, TlsBackendK a) =>-    a                                       -- _obj-    -> m TlsDatabase                        -- result-tlsBackendGetDefaultDatabase _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_backend_get_default_database _obj'-    checkUnexpectedReturnNULL "g_tls_backend_get_default_database" result-    result' <- (wrapObject TlsDatabase) result-    touchManagedPtr _obj-    return result'--data TlsBackendGetDefaultDatabaseMethodInfo-instance (signature ~ (m TlsDatabase), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendGetDefaultDatabaseMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetDefaultDatabase---- method TlsBackend::get_file_database_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "TlsBackend"-    IO CGType---tlsBackendGetFileDatabaseType ::-    (MonadIO m, TlsBackendK a) =>-    a                                       -- _obj-    -> m GType                              -- result-tlsBackendGetFileDatabaseType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_backend_get_file_database_type _obj'-    let result' = GType result-    touchManagedPtr _obj-    return result'--data TlsBackendGetFileDatabaseTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendGetFileDatabaseTypeMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetFileDatabaseType---- method TlsBackend::get_server_connection_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "TlsBackend"-    IO CGType---tlsBackendGetServerConnectionType ::-    (MonadIO m, TlsBackendK a) =>-    a                                       -- _obj-    -> m GType                              -- result-tlsBackendGetServerConnectionType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_backend_get_server_connection_type _obj'-    let result' = GType result-    touchManagedPtr _obj-    return result'--data TlsBackendGetServerConnectionTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendGetServerConnectionTypeMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetServerConnectionType---- method TlsBackend::supports_tls--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "TlsBackend"-    IO CInt---tlsBackendSupportsTls ::-    (MonadIO m, TlsBackendK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-tlsBackendSupportsTls _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_backend_supports_tls _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TlsBackendSupportsTlsMethodInfo-instance (signature ~ (m Bool), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendSupportsTlsMethodInfo a signature where-    overloadedMethod _ = tlsBackendSupportsTls---- method TlsBackend::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsBackend")--- throws : False--- Skip return : False--foreign import ccall "g_tls_backend_get_default" g_tls_backend_get_default :: -    IO (Ptr TlsBackend)---tlsBackendGetDefault ::-    (MonadIO m) =>-    m TlsBackend                            -- result-tlsBackendGetDefault  = liftIO $ do-    result <- g_tls_backend_get_default-    checkUnexpectedReturnNULL "g_tls_backend_get_default" result-    result' <- (newObject TlsBackend) result-    return result'--
− GI/Gio/Interfaces/TlsBackend.hs-boot 
@@ -1,19 +0,0 @@-module GI.Gio.Interfaces.TlsBackend where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TlsBackend = TlsBackend (ForeignPtr TlsBackend)-instance GObject TlsBackend where-class GObject o => TlsBackendK o-instance (GObject o, IsDescendantOf TlsBackend o) => TlsBackendK o-data TlsBackendGetCertificateTypeMethodInfo-data TlsBackendGetClientConnectionTypeMethodInfo-data TlsBackendGetDefaultDatabaseMethodInfo-data TlsBackendGetFileDatabaseTypeMethodInfo-data TlsBackendGetServerConnectionTypeMethodInfo-data TlsBackendSupportsTlsMethodInfo
− GI/Gio/Interfaces/TlsClientConnection.hs 
@@ -1,596 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.TlsClientConnection-    ( ---- * Exported types-    TlsClientConnection(..)                 ,-    noTlsClientConnection                   ,-    TlsClientConnectionK                    ,-    toTlsClientConnection                   ,--- -- * Methods--- ** tlsClientConnectionCopySessionState-    TlsClientConnectionCopySessionStateMethodInfo,-    tlsClientConnectionCopySessionState     ,----- ** tlsClientConnectionGetAcceptedCas-    TlsClientConnectionGetAcceptedCasMethodInfo,-    tlsClientConnectionGetAcceptedCas       ,----- ** tlsClientConnectionGetServerIdentity-    TlsClientConnectionGetServerIdentityMethodInfo,-    tlsClientConnectionGetServerIdentity    ,----- ** tlsClientConnectionGetUseSsl3-    TlsClientConnectionGetUseSsl3MethodInfo ,-    tlsClientConnectionGetUseSsl3           ,----- ** tlsClientConnectionGetValidationFlags-    TlsClientConnectionGetValidationFlagsMethodInfo,-    tlsClientConnectionGetValidationFlags   ,----- ** tlsClientConnectionNew-    tlsClientConnectionNew                  ,----- ** tlsClientConnectionSetServerIdentity-    TlsClientConnectionSetServerIdentityMethodInfo,-    tlsClientConnectionSetServerIdentity    ,----- ** tlsClientConnectionSetUseSsl3-    TlsClientConnectionSetUseSsl3MethodInfo ,-    tlsClientConnectionSetUseSsl3           ,----- ** tlsClientConnectionSetValidationFlags-    TlsClientConnectionSetValidationFlagsMethodInfo,-    tlsClientConnectionSetValidationFlags   ,----- -- * Properties--- ** AcceptedCas-    TlsClientConnectionAcceptedCasPropertyInfo,-    getTlsClientConnectionAcceptedCas       ,-    tlsClientConnectionAcceptedCas          ,----- ** ServerIdentity-    TlsClientConnectionServerIdentityPropertyInfo,-    constructTlsClientConnectionServerIdentity,-    getTlsClientConnectionServerIdentity    ,-    setTlsClientConnectionServerIdentity    ,-    tlsClientConnectionServerIdentity       ,----- ** UseSsl3-    TlsClientConnectionUseSsl3PropertyInfo  ,-    constructTlsClientConnectionUseSsl3     ,-    getTlsClientConnectionUseSsl3           ,-    setTlsClientConnectionUseSsl3           ,-    tlsClientConnectionUseSsl3              ,----- ** ValidationFlags-    TlsClientConnectionValidationFlagsPropertyInfo,-    constructTlsClientConnectionValidationFlags,-    getTlsClientConnectionValidationFlags   ,-    setTlsClientConnectionValidationFlags   ,-    tlsClientConnectionValidationFlags      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface TlsClientConnection --newtype TlsClientConnection = TlsClientConnection (ForeignPtr TlsClientConnection)-noTlsClientConnection :: Maybe TlsClientConnection-noTlsClientConnection = Nothing--type family ResolveTlsClientConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsClientConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTlsClientConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTlsClientConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo-    ResolveTlsClientConnectionMethod "close" o = IOStreamCloseMethodInfo-    ResolveTlsClientConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo-    ResolveTlsClientConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo-    ResolveTlsClientConnectionMethod "copySessionState" o = TlsClientConnectionCopySessionStateMethodInfo-    ResolveTlsClientConnectionMethod "emitAcceptCertificate" o = TlsConnectionEmitAcceptCertificateMethodInfo-    ResolveTlsClientConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTlsClientConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTlsClientConnectionMethod "handshake" o = TlsConnectionHandshakeMethodInfo-    ResolveTlsClientConnectionMethod "handshakeAsync" o = TlsConnectionHandshakeAsyncMethodInfo-    ResolveTlsClientConnectionMethod "handshakeFinish" o = TlsConnectionHandshakeFinishMethodInfo-    ResolveTlsClientConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo-    ResolveTlsClientConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo-    ResolveTlsClientConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTlsClientConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTlsClientConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTlsClientConnectionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTlsClientConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTlsClientConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTlsClientConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTlsClientConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTlsClientConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo-    ResolveTlsClientConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTlsClientConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTlsClientConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTlsClientConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTlsClientConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTlsClientConnectionMethod "getAcceptedCas" o = TlsClientConnectionGetAcceptedCasMethodInfo-    ResolveTlsClientConnectionMethod "getCertificate" o = TlsConnectionGetCertificateMethodInfo-    ResolveTlsClientConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTlsClientConnectionMethod "getDatabase" o = TlsConnectionGetDatabaseMethodInfo-    ResolveTlsClientConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo-    ResolveTlsClientConnectionMethod "getInteraction" o = TlsConnectionGetInteractionMethodInfo-    ResolveTlsClientConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo-    ResolveTlsClientConnectionMethod "getPeerCertificate" o = TlsConnectionGetPeerCertificateMethodInfo-    ResolveTlsClientConnectionMethod "getPeerCertificateErrors" o = TlsConnectionGetPeerCertificateErrorsMethodInfo-    ResolveTlsClientConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTlsClientConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTlsClientConnectionMethod "getRehandshakeMode" o = TlsConnectionGetRehandshakeModeMethodInfo-    ResolveTlsClientConnectionMethod "getRequireCloseNotify" o = TlsConnectionGetRequireCloseNotifyMethodInfo-    ResolveTlsClientConnectionMethod "getServerIdentity" o = TlsClientConnectionGetServerIdentityMethodInfo-    ResolveTlsClientConnectionMethod "getUseSsl3" o = TlsClientConnectionGetUseSsl3MethodInfo-    ResolveTlsClientConnectionMethod "getUseSystemCertdb" o = TlsConnectionGetUseSystemCertdbMethodInfo-    ResolveTlsClientConnectionMethod "getValidationFlags" o = TlsClientConnectionGetValidationFlagsMethodInfo-    ResolveTlsClientConnectionMethod "setCertificate" o = TlsConnectionSetCertificateMethodInfo-    ResolveTlsClientConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTlsClientConnectionMethod "setDatabase" o = TlsConnectionSetDatabaseMethodInfo-    ResolveTlsClientConnectionMethod "setInteraction" o = TlsConnectionSetInteractionMethodInfo-    ResolveTlsClientConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo-    ResolveTlsClientConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTlsClientConnectionMethod "setRehandshakeMode" o = TlsConnectionSetRehandshakeModeMethodInfo-    ResolveTlsClientConnectionMethod "setRequireCloseNotify" o = TlsConnectionSetRequireCloseNotifyMethodInfo-    ResolveTlsClientConnectionMethod "setServerIdentity" o = TlsClientConnectionSetServerIdentityMethodInfo-    ResolveTlsClientConnectionMethod "setUseSsl3" o = TlsClientConnectionSetUseSsl3MethodInfo-    ResolveTlsClientConnectionMethod "setUseSystemCertdb" o = TlsConnectionSetUseSystemCertdbMethodInfo-    ResolveTlsClientConnectionMethod "setValidationFlags" o = TlsClientConnectionSetValidationFlagsMethodInfo-    ResolveTlsClientConnectionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTlsClientConnectionMethod t TlsClientConnection, MethodInfo info TlsClientConnection p) => IsLabelProxy t (TlsClientConnection -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTlsClientConnectionMethod t TlsClientConnection, MethodInfo info TlsClientConnection p) => IsLabel t (TlsClientConnection -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "accepted-cas"-   -- Type: TGList (TBasicType TPtr)-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getTlsClientConnectionAcceptedCas :: (MonadIO m, TlsClientConnectionK o) => o -> m [Ptr ()]-getTlsClientConnectionAcceptedCas obj = liftIO $ getObjectPropertyPtrGList obj "accepted-cas"--data TlsClientConnectionAcceptedCasPropertyInfo-instance AttrInfo TlsClientConnectionAcceptedCasPropertyInfo where-    type AttrAllowedOps TlsClientConnectionAcceptedCasPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint TlsClientConnectionAcceptedCasPropertyInfo = (~) ()-    type AttrBaseTypeConstraint TlsClientConnectionAcceptedCasPropertyInfo = TlsClientConnectionK-    type AttrGetType TlsClientConnectionAcceptedCasPropertyInfo = ([Ptr ()])-    type AttrLabel TlsClientConnectionAcceptedCasPropertyInfo = "accepted-cas"-    attrGet _ = getTlsClientConnectionAcceptedCas-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "server-identity"-   -- Type: TInterface "Gio" "SocketConnectable"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getTlsClientConnectionServerIdentity :: (MonadIO m, TlsClientConnectionK o) => o -> m SocketConnectable-getTlsClientConnectionServerIdentity obj = liftIO $ checkUnexpectedNothing "getTlsClientConnectionServerIdentity" $ getObjectPropertyObject obj "server-identity" SocketConnectable--setTlsClientConnectionServerIdentity :: (MonadIO m, TlsClientConnectionK o, SocketConnectableK a) => o -> a -> m ()-setTlsClientConnectionServerIdentity obj val = liftIO $ setObjectPropertyObject obj "server-identity" (Just val)--constructTlsClientConnectionServerIdentity :: (SocketConnectableK a) => a -> IO ([Char], GValue)-constructTlsClientConnectionServerIdentity val = constructObjectPropertyObject "server-identity" (Just val)--data TlsClientConnectionServerIdentityPropertyInfo-instance AttrInfo TlsClientConnectionServerIdentityPropertyInfo where-    type AttrAllowedOps TlsClientConnectionServerIdentityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsClientConnectionServerIdentityPropertyInfo = SocketConnectableK-    type AttrBaseTypeConstraint TlsClientConnectionServerIdentityPropertyInfo = TlsClientConnectionK-    type AttrGetType TlsClientConnectionServerIdentityPropertyInfo = SocketConnectable-    type AttrLabel TlsClientConnectionServerIdentityPropertyInfo = "server-identity"-    attrGet _ = getTlsClientConnectionServerIdentity-    attrSet _ = setTlsClientConnectionServerIdentity-    attrConstruct _ = constructTlsClientConnectionServerIdentity-    attrClear _ = undefined---- VVV Prop "use-ssl3"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getTlsClientConnectionUseSsl3 :: (MonadIO m, TlsClientConnectionK o) => o -> m Bool-getTlsClientConnectionUseSsl3 obj = liftIO $ getObjectPropertyBool obj "use-ssl3"--setTlsClientConnectionUseSsl3 :: (MonadIO m, TlsClientConnectionK o) => o -> Bool -> m ()-setTlsClientConnectionUseSsl3 obj val = liftIO $ setObjectPropertyBool obj "use-ssl3" val--constructTlsClientConnectionUseSsl3 :: Bool -> IO ([Char], GValue)-constructTlsClientConnectionUseSsl3 val = constructObjectPropertyBool "use-ssl3" val--data TlsClientConnectionUseSsl3PropertyInfo-instance AttrInfo TlsClientConnectionUseSsl3PropertyInfo where-    type AttrAllowedOps TlsClientConnectionUseSsl3PropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsClientConnectionUseSsl3PropertyInfo = (~) Bool-    type AttrBaseTypeConstraint TlsClientConnectionUseSsl3PropertyInfo = TlsClientConnectionK-    type AttrGetType TlsClientConnectionUseSsl3PropertyInfo = Bool-    type AttrLabel TlsClientConnectionUseSsl3PropertyInfo = "use-ssl3"-    attrGet _ = getTlsClientConnectionUseSsl3-    attrSet _ = setTlsClientConnectionUseSsl3-    attrConstruct _ = constructTlsClientConnectionUseSsl3-    attrClear _ = undefined---- VVV Prop "validation-flags"-   -- Type: TInterface "Gio" "TlsCertificateFlags"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getTlsClientConnectionValidationFlags :: (MonadIO m, TlsClientConnectionK o) => o -> m [TlsCertificateFlags]-getTlsClientConnectionValidationFlags obj = liftIO $ getObjectPropertyFlags obj "validation-flags"--setTlsClientConnectionValidationFlags :: (MonadIO m, TlsClientConnectionK o) => o -> [TlsCertificateFlags] -> m ()-setTlsClientConnectionValidationFlags obj val = liftIO $ setObjectPropertyFlags obj "validation-flags" val--constructTlsClientConnectionValidationFlags :: [TlsCertificateFlags] -> IO ([Char], GValue)-constructTlsClientConnectionValidationFlags val = constructObjectPropertyFlags "validation-flags" val--data TlsClientConnectionValidationFlagsPropertyInfo-instance AttrInfo TlsClientConnectionValidationFlagsPropertyInfo where-    type AttrAllowedOps TlsClientConnectionValidationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsClientConnectionValidationFlagsPropertyInfo = (~) [TlsCertificateFlags]-    type AttrBaseTypeConstraint TlsClientConnectionValidationFlagsPropertyInfo = TlsClientConnectionK-    type AttrGetType TlsClientConnectionValidationFlagsPropertyInfo = [TlsCertificateFlags]-    type AttrLabel TlsClientConnectionValidationFlagsPropertyInfo = "validation-flags"-    attrGet _ = getTlsClientConnectionValidationFlags-    attrSet _ = setTlsClientConnectionValidationFlags-    attrConstruct _ = constructTlsClientConnectionValidationFlags-    attrClear _ = undefined--type instance AttributeList TlsClientConnection = TlsClientConnectionAttributeList-type TlsClientConnectionAttributeList = ('[ '("acceptedCas", TlsClientConnectionAcceptedCasPropertyInfo), '("baseIoStream", TlsConnectionBaseIoStreamPropertyInfo), '("certificate", TlsConnectionCertificatePropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("database", TlsConnectionDatabasePropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("interaction", TlsConnectionInteractionPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("peerCertificate", TlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", TlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", TlsConnectionRequireCloseNotifyPropertyInfo), '("serverIdentity", TlsClientConnectionServerIdentityPropertyInfo), '("useSsl3", TlsClientConnectionUseSsl3PropertyInfo), '("useSystemCertdb", TlsConnectionUseSystemCertdbPropertyInfo), '("validationFlags", TlsClientConnectionValidationFlagsPropertyInfo)] :: [(Symbol, *)])--tlsClientConnectionAcceptedCas :: AttrLabelProxy "acceptedCas"-tlsClientConnectionAcceptedCas = AttrLabelProxy--tlsClientConnectionServerIdentity :: AttrLabelProxy "serverIdentity"-tlsClientConnectionServerIdentity = AttrLabelProxy--tlsClientConnectionUseSsl3 :: AttrLabelProxy "useSsl3"-tlsClientConnectionUseSsl3 = AttrLabelProxy--tlsClientConnectionValidationFlags :: AttrLabelProxy "validationFlags"-tlsClientConnectionValidationFlags = AttrLabelProxy--type instance SignalList TlsClientConnection = TlsClientConnectionSignalList-type TlsClientConnectionSignalList = ('[ '("acceptCertificate", TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_tls_client_connection_get_type"-    c_g_tls_client_connection_get_type :: IO GType--type instance ParentTypes TlsClientConnection = TlsClientConnectionParentTypes-type TlsClientConnectionParentTypes = '[TlsConnection, IOStream, GObject.Object]--instance GObject TlsClientConnection where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_tls_client_connection_get_type-    --class GObject o => TlsClientConnectionK o-instance (GObject o, IsDescendantOf TlsClientConnection o) => TlsClientConnectionK o--toTlsClientConnection :: TlsClientConnectionK o => o -> IO TlsClientConnection-toTlsClientConnection = unsafeCastTo TlsClientConnection---- method TlsClientConnection::copy_session_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "TlsClientConnection"-    Ptr TlsClientConnection ->              -- source : TInterface "Gio" "TlsClientConnection"-    IO ()---tlsClientConnectionCopySessionState ::-    (MonadIO m, TlsClientConnectionK a, TlsClientConnectionK b) =>-    a                                       -- _obj-    -> b                                    -- source-    -> m ()                                 -- result-tlsClientConnectionCopySessionState _obj source = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let source' = unsafeManagedPtrCastPtr source-    g_tls_client_connection_copy_session_state _obj' source'-    touchManagedPtr _obj-    touchManagedPtr source-    return ()--data TlsClientConnectionCopySessionStateMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, TlsClientConnectionK a, TlsClientConnectionK b) => MethodInfo TlsClientConnectionCopySessionStateMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionCopySessionState---- method TlsClientConnection::get_accepted_cas--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "TlsClientConnection"-    IO (Ptr (GList (Ptr GByteArray)))---tlsClientConnectionGetAcceptedCas ::-    (MonadIO m, TlsClientConnectionK a) =>-    a                                       -- _obj-    -> m [ByteString]                       -- result-tlsClientConnectionGetAcceptedCas _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_client_connection_get_accepted_cas _obj'-    result' <- unpackGList result-    result'' <- mapM unpackGByteArray result'-    mapGList unrefGByteArray result-    g_list_free result-    touchManagedPtr _obj-    return result''--data TlsClientConnectionGetAcceptedCasMethodInfo-instance (signature ~ (m [ByteString]), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionGetAcceptedCasMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionGetAcceptedCas---- method TlsClientConnection::get_server_identity--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->              -- _obj : TInterface "Gio" "TlsClientConnection"-    IO (Ptr SocketConnectable)---tlsClientConnectionGetServerIdentity ::-    (MonadIO m, TlsClientConnectionK a) =>-    a                                       -- _obj-    -> m SocketConnectable                  -- result-tlsClientConnectionGetServerIdentity _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_client_connection_get_server_identity _obj'-    checkUnexpectedReturnNULL "g_tls_client_connection_get_server_identity" result-    result' <- (newObject SocketConnectable) result-    touchManagedPtr _obj-    return result'--data TlsClientConnectionGetServerIdentityMethodInfo-instance (signature ~ (m SocketConnectable), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionGetServerIdentityMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionGetServerIdentity---- method TlsClientConnection::get_use_ssl3--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "TlsClientConnection"-    IO CInt---tlsClientConnectionGetUseSsl3 ::-    (MonadIO m, TlsClientConnectionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-tlsClientConnectionGetUseSsl3 _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_client_connection_get_use_ssl3 _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TlsClientConnectionGetUseSsl3MethodInfo-instance (signature ~ (m Bool), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionGetUseSsl3MethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionGetUseSsl3---- method TlsClientConnection::get_validation_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->              -- _obj : TInterface "Gio" "TlsClientConnection"-    IO CUInt---tlsClientConnectionGetValidationFlags ::-    (MonadIO m, TlsClientConnectionK a) =>-    a                                       -- _obj-    -> m [TlsCertificateFlags]              -- result-tlsClientConnectionGetValidationFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_client_connection_get_validation_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data TlsClientConnectionGetValidationFlagsMethodInfo-instance (signature ~ (m [TlsCertificateFlags]), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionGetValidationFlagsMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionGetValidationFlags---- method TlsClientConnection::set_server_identity--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "TlsClientConnection"-    Ptr SocketConnectable ->                -- identity : TInterface "Gio" "SocketConnectable"-    IO ()---tlsClientConnectionSetServerIdentity ::-    (MonadIO m, TlsClientConnectionK a, SocketConnectableK b) =>-    a                                       -- _obj-    -> b                                    -- identity-    -> m ()                                 -- result-tlsClientConnectionSetServerIdentity _obj identity = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let identity' = unsafeManagedPtrCastPtr identity-    g_tls_client_connection_set_server_identity _obj' identity'-    touchManagedPtr _obj-    touchManagedPtr identity-    return ()--data TlsClientConnectionSetServerIdentityMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, TlsClientConnectionK a, SocketConnectableK b) => MethodInfo TlsClientConnectionSetServerIdentityMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionSetServerIdentity---- method TlsClientConnection::set_use_ssl3--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_ssl3", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "TlsClientConnection"-    CInt ->                                 -- use_ssl3 : TBasicType TBoolean-    IO ()---tlsClientConnectionSetUseSsl3 ::-    (MonadIO m, TlsClientConnectionK a) =>-    a                                       -- _obj-    -> Bool                                 -- useSsl3-    -> m ()                                 -- result-tlsClientConnectionSetUseSsl3 _obj useSsl3 = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let useSsl3' = (fromIntegral . fromEnum) useSsl3-    g_tls_client_connection_set_use_ssl3 _obj' useSsl3'-    touchManagedPtr _obj-    return ()--data TlsClientConnectionSetUseSsl3MethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionSetUseSsl3MethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionSetUseSsl3---- method TlsClientConnection::set_validation_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "TlsClientConnection"-    CUInt ->                                -- flags : TInterface "Gio" "TlsCertificateFlags"-    IO ()---tlsClientConnectionSetValidationFlags ::-    (MonadIO m, TlsClientConnectionK a) =>-    a                                       -- _obj-    -> [TlsCertificateFlags]                -- flags-    -> m ()                                 -- result-tlsClientConnectionSetValidationFlags _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    g_tls_client_connection_set_validation_flags _obj' flags'-    touchManagedPtr _obj-    return ()--data TlsClientConnectionSetValidationFlagsMethodInfo-instance (signature ~ ([TlsCertificateFlags] -> m ()), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionSetValidationFlagsMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionSetValidationFlags---- method TlsClientConnection::new--- method type : MemberFunction--- Args : [Arg {argCName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "server_identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsClientConnection")--- throws : True--- Skip return : False--foreign import ccall "g_tls_client_connection_new" g_tls_client_connection_new :: -    Ptr IOStream ->                         -- base_io_stream : TInterface "Gio" "IOStream"-    Ptr SocketConnectable ->                -- server_identity : TInterface "Gio" "SocketConnectable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsClientConnection)---tlsClientConnectionNew ::-    (MonadIO m, IOStreamK a, SocketConnectableK b) =>-    a                                       -- baseIoStream-    -> Maybe (b)                            -- serverIdentity-    -> m TlsClientConnection                -- result-tlsClientConnectionNew baseIoStream serverIdentity = liftIO $ do-    let baseIoStream' = unsafeManagedPtrCastPtr baseIoStream-    maybeServerIdentity <- case serverIdentity of-        Nothing -> return nullPtr-        Just jServerIdentity -> do-            let jServerIdentity' = unsafeManagedPtrCastPtr jServerIdentity-            return jServerIdentity'-    onException (do-        result <- propagateGError $ g_tls_client_connection_new baseIoStream' maybeServerIdentity-        checkUnexpectedReturnNULL "g_tls_client_connection_new" result-        result' <- (wrapObject TlsClientConnection) result-        touchManagedPtr baseIoStream-        whenJust serverIdentity touchManagedPtr-        return result'-     ) (do-        return ()-     )--
− GI/Gio/Interfaces/TlsClientConnection.hs-boot 
@@ -1,25 +0,0 @@-module GI.Gio.Interfaces.TlsClientConnection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TlsClientConnection = TlsClientConnection (ForeignPtr TlsClientConnection)-data TlsClientConnectionAcceptedCasPropertyInfo-data TlsClientConnectionServerIdentityPropertyInfo-data TlsClientConnectionUseSsl3PropertyInfo-data TlsClientConnectionValidationFlagsPropertyInfo-instance GObject TlsClientConnection where-class GObject o => TlsClientConnectionK o-instance (GObject o, IsDescendantOf TlsClientConnection o) => TlsClientConnectionK o-data TlsClientConnectionCopySessionStateMethodInfo-data TlsClientConnectionGetAcceptedCasMethodInfo-data TlsClientConnectionGetServerIdentityMethodInfo-data TlsClientConnectionGetUseSsl3MethodInfo-data TlsClientConnectionGetValidationFlagsMethodInfo-data TlsClientConnectionSetServerIdentityMethodInfo-data TlsClientConnectionSetUseSsl3MethodInfo-data TlsClientConnectionSetValidationFlagsMethodInfo
− GI/Gio/Interfaces/TlsFileDatabase.hs 
@@ -1,188 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.TlsFileDatabase-    ( ---- * Exported types-    TlsFileDatabase(..)                     ,-    noTlsFileDatabase                       ,-    TlsFileDatabaseK                        ,-    toTlsFileDatabase                       ,--- -- * Methods--- ** tlsFileDatabaseNew-    tlsFileDatabaseNew                      ,----- -- * Properties--- ** Anchors-    TlsFileDatabaseAnchorsPropertyInfo      ,-    clearTlsFileDatabaseAnchors             ,-    constructTlsFileDatabaseAnchors         ,-    getTlsFileDatabaseAnchors               ,-    setTlsFileDatabaseAnchors               ,-    tlsFileDatabaseAnchors                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface TlsFileDatabase --newtype TlsFileDatabase = TlsFileDatabase (ForeignPtr TlsFileDatabase)-noTlsFileDatabase :: Maybe TlsFileDatabase-noTlsFileDatabase = Nothing--type family ResolveTlsFileDatabaseMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsFileDatabaseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTlsFileDatabaseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTlsFileDatabaseMethod "createCertificateHandle" o = TlsDatabaseCreateCertificateHandleMethodInfo-    ResolveTlsFileDatabaseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTlsFileDatabaseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTlsFileDatabaseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateForHandle" o = TlsDatabaseLookupCertificateForHandleMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateForHandleAsync" o = TlsDatabaseLookupCertificateForHandleAsyncMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateForHandleFinish" o = TlsDatabaseLookupCertificateForHandleFinishMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateIssuer" o = TlsDatabaseLookupCertificateIssuerMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateIssuerAsync" o = TlsDatabaseLookupCertificateIssuerAsyncMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateIssuerFinish" o = TlsDatabaseLookupCertificateIssuerFinishMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedBy" o = TlsDatabaseLookupCertificatesIssuedByMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedByAsync" o = TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedByFinish" o = TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo-    ResolveTlsFileDatabaseMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTlsFileDatabaseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTlsFileDatabaseMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTlsFileDatabaseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTlsFileDatabaseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTlsFileDatabaseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTlsFileDatabaseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTlsFileDatabaseMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTlsFileDatabaseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTlsFileDatabaseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTlsFileDatabaseMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTlsFileDatabaseMethod "verifyChain" o = TlsDatabaseVerifyChainMethodInfo-    ResolveTlsFileDatabaseMethod "verifyChainAsync" o = TlsDatabaseVerifyChainAsyncMethodInfo-    ResolveTlsFileDatabaseMethod "verifyChainFinish" o = TlsDatabaseVerifyChainFinishMethodInfo-    ResolveTlsFileDatabaseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTlsFileDatabaseMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTlsFileDatabaseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTlsFileDatabaseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTlsFileDatabaseMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTlsFileDatabaseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTlsFileDatabaseMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTlsFileDatabaseMethod t TlsFileDatabase, MethodInfo info TlsFileDatabase p) => IsLabelProxy t (TlsFileDatabase -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTlsFileDatabaseMethod t TlsFileDatabase, MethodInfo info TlsFileDatabase p) => IsLabel t (TlsFileDatabase -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "anchors"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getTlsFileDatabaseAnchors :: (MonadIO m, TlsFileDatabaseK o) => o -> m (Maybe T.Text)-getTlsFileDatabaseAnchors obj = liftIO $ getObjectPropertyString obj "anchors"--setTlsFileDatabaseAnchors :: (MonadIO m, TlsFileDatabaseK o) => o -> T.Text -> m ()-setTlsFileDatabaseAnchors obj val = liftIO $ setObjectPropertyString obj "anchors" (Just val)--constructTlsFileDatabaseAnchors :: T.Text -> IO ([Char], GValue)-constructTlsFileDatabaseAnchors val = constructObjectPropertyString "anchors" (Just val)--clearTlsFileDatabaseAnchors :: (MonadIO m, TlsFileDatabaseK o) => o -> m ()-clearTlsFileDatabaseAnchors obj = liftIO $ setObjectPropertyString obj "anchors" (Nothing :: Maybe T.Text)--data TlsFileDatabaseAnchorsPropertyInfo-instance AttrInfo TlsFileDatabaseAnchorsPropertyInfo where-    type AttrAllowedOps TlsFileDatabaseAnchorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsFileDatabaseAnchorsPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint TlsFileDatabaseAnchorsPropertyInfo = TlsFileDatabaseK-    type AttrGetType TlsFileDatabaseAnchorsPropertyInfo = (Maybe T.Text)-    type AttrLabel TlsFileDatabaseAnchorsPropertyInfo = "anchors"-    attrGet _ = getTlsFileDatabaseAnchors-    attrSet _ = setTlsFileDatabaseAnchors-    attrConstruct _ = constructTlsFileDatabaseAnchors-    attrClear _ = clearTlsFileDatabaseAnchors--type instance AttributeList TlsFileDatabase = TlsFileDatabaseAttributeList-type TlsFileDatabaseAttributeList = ('[ '("anchors", TlsFileDatabaseAnchorsPropertyInfo)] :: [(Symbol, *)])--tlsFileDatabaseAnchors :: AttrLabelProxy "anchors"-tlsFileDatabaseAnchors = AttrLabelProxy--type instance SignalList TlsFileDatabase = TlsFileDatabaseSignalList-type TlsFileDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_tls_file_database_get_type"-    c_g_tls_file_database_get_type :: IO GType--type instance ParentTypes TlsFileDatabase = TlsFileDatabaseParentTypes-type TlsFileDatabaseParentTypes = '[TlsDatabase, GObject.Object]--instance GObject TlsFileDatabase where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_tls_file_database_get_type-    --class GObject o => TlsFileDatabaseK o-instance (GObject o, IsDescendantOf TlsFileDatabase o) => TlsFileDatabaseK o--toTlsFileDatabase :: TlsFileDatabaseK o => o -> IO TlsFileDatabase-toTlsFileDatabase = unsafeCastTo TlsFileDatabase---- method TlsFileDatabase::new--- method type : MemberFunction--- Args : [Arg {argCName = "anchors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsFileDatabase")--- throws : True--- Skip return : False--foreign import ccall "g_tls_file_database_new" g_tls_file_database_new :: -    CString ->                              -- anchors : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsFileDatabase)---tlsFileDatabaseNew ::-    (MonadIO m) =>-    T.Text                                  -- anchors-    -> m TlsFileDatabase                    -- result-tlsFileDatabaseNew anchors = liftIO $ do-    anchors' <- textToCString anchors-    onException (do-        result <- propagateGError $ g_tls_file_database_new anchors'-        checkUnexpectedReturnNULL "g_tls_file_database_new" result-        result' <- (wrapObject TlsFileDatabase) result-        freeMem anchors'-        return result'-     ) (do-        freeMem anchors'-     )--
− GI/Gio/Interfaces/TlsFileDatabase.hs-boot 
@@ -1,14 +0,0 @@-module GI.Gio.Interfaces.TlsFileDatabase where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TlsFileDatabase = TlsFileDatabase (ForeignPtr TlsFileDatabase)-data TlsFileDatabaseAnchorsPropertyInfo-instance GObject TlsFileDatabase where-class GObject o => TlsFileDatabaseK o-instance (GObject o, IsDescendantOf TlsFileDatabase o) => TlsFileDatabaseK o
− GI/Gio/Interfaces/TlsServerConnection.hs 
@@ -1,207 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.TlsServerConnection-    ( ---- * Exported types-    TlsServerConnection(..)                 ,-    noTlsServerConnection                   ,-    TlsServerConnectionK                    ,-    toTlsServerConnection                   ,--- -- * Methods--- ** tlsServerConnectionNew-    tlsServerConnectionNew                  ,----- -- * Properties--- ** AuthenticationMode-    TlsServerConnectionAuthenticationModePropertyInfo,-    constructTlsServerConnectionAuthenticationMode,-    getTlsServerConnectionAuthenticationMode,-    setTlsServerConnectionAuthenticationMode,-    tlsServerConnectionAuthenticationMode   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface TlsServerConnection --newtype TlsServerConnection = TlsServerConnection (ForeignPtr TlsServerConnection)-noTlsServerConnection :: Maybe TlsServerConnection-noTlsServerConnection = Nothing--type family ResolveTlsServerConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsServerConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTlsServerConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTlsServerConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo-    ResolveTlsServerConnectionMethod "close" o = IOStreamCloseMethodInfo-    ResolveTlsServerConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo-    ResolveTlsServerConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo-    ResolveTlsServerConnectionMethod "emitAcceptCertificate" o = TlsConnectionEmitAcceptCertificateMethodInfo-    ResolveTlsServerConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTlsServerConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTlsServerConnectionMethod "handshake" o = TlsConnectionHandshakeMethodInfo-    ResolveTlsServerConnectionMethod "handshakeAsync" o = TlsConnectionHandshakeAsyncMethodInfo-    ResolveTlsServerConnectionMethod "handshakeFinish" o = TlsConnectionHandshakeFinishMethodInfo-    ResolveTlsServerConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo-    ResolveTlsServerConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo-    ResolveTlsServerConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTlsServerConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTlsServerConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTlsServerConnectionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTlsServerConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTlsServerConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTlsServerConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTlsServerConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTlsServerConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo-    ResolveTlsServerConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTlsServerConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTlsServerConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTlsServerConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTlsServerConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTlsServerConnectionMethod "getCertificate" o = TlsConnectionGetCertificateMethodInfo-    ResolveTlsServerConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTlsServerConnectionMethod "getDatabase" o = TlsConnectionGetDatabaseMethodInfo-    ResolveTlsServerConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo-    ResolveTlsServerConnectionMethod "getInteraction" o = TlsConnectionGetInteractionMethodInfo-    ResolveTlsServerConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo-    ResolveTlsServerConnectionMethod "getPeerCertificate" o = TlsConnectionGetPeerCertificateMethodInfo-    ResolveTlsServerConnectionMethod "getPeerCertificateErrors" o = TlsConnectionGetPeerCertificateErrorsMethodInfo-    ResolveTlsServerConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTlsServerConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTlsServerConnectionMethod "getRehandshakeMode" o = TlsConnectionGetRehandshakeModeMethodInfo-    ResolveTlsServerConnectionMethod "getRequireCloseNotify" o = TlsConnectionGetRequireCloseNotifyMethodInfo-    ResolveTlsServerConnectionMethod "getUseSystemCertdb" o = TlsConnectionGetUseSystemCertdbMethodInfo-    ResolveTlsServerConnectionMethod "setCertificate" o = TlsConnectionSetCertificateMethodInfo-    ResolveTlsServerConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTlsServerConnectionMethod "setDatabase" o = TlsConnectionSetDatabaseMethodInfo-    ResolveTlsServerConnectionMethod "setInteraction" o = TlsConnectionSetInteractionMethodInfo-    ResolveTlsServerConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo-    ResolveTlsServerConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTlsServerConnectionMethod "setRehandshakeMode" o = TlsConnectionSetRehandshakeModeMethodInfo-    ResolveTlsServerConnectionMethod "setRequireCloseNotify" o = TlsConnectionSetRequireCloseNotifyMethodInfo-    ResolveTlsServerConnectionMethod "setUseSystemCertdb" o = TlsConnectionSetUseSystemCertdbMethodInfo-    ResolveTlsServerConnectionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTlsServerConnectionMethod t TlsServerConnection, MethodInfo info TlsServerConnection p) => IsLabelProxy t (TlsServerConnection -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTlsServerConnectionMethod t TlsServerConnection, MethodInfo info TlsServerConnection p) => IsLabel t (TlsServerConnection -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "authentication-mode"-   -- Type: TInterface "Gio" "TlsAuthenticationMode"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getTlsServerConnectionAuthenticationMode :: (MonadIO m, TlsServerConnectionK o) => o -> m TlsAuthenticationMode-getTlsServerConnectionAuthenticationMode obj = liftIO $ getObjectPropertyEnum obj "authentication-mode"--setTlsServerConnectionAuthenticationMode :: (MonadIO m, TlsServerConnectionK o) => o -> TlsAuthenticationMode -> m ()-setTlsServerConnectionAuthenticationMode obj val = liftIO $ setObjectPropertyEnum obj "authentication-mode" val--constructTlsServerConnectionAuthenticationMode :: TlsAuthenticationMode -> IO ([Char], GValue)-constructTlsServerConnectionAuthenticationMode val = constructObjectPropertyEnum "authentication-mode" val--data TlsServerConnectionAuthenticationModePropertyInfo-instance AttrInfo TlsServerConnectionAuthenticationModePropertyInfo where-    type AttrAllowedOps TlsServerConnectionAuthenticationModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsServerConnectionAuthenticationModePropertyInfo = (~) TlsAuthenticationMode-    type AttrBaseTypeConstraint TlsServerConnectionAuthenticationModePropertyInfo = TlsServerConnectionK-    type AttrGetType TlsServerConnectionAuthenticationModePropertyInfo = TlsAuthenticationMode-    type AttrLabel TlsServerConnectionAuthenticationModePropertyInfo = "authentication-mode"-    attrGet _ = getTlsServerConnectionAuthenticationMode-    attrSet _ = setTlsServerConnectionAuthenticationMode-    attrConstruct _ = constructTlsServerConnectionAuthenticationMode-    attrClear _ = undefined--type instance AttributeList TlsServerConnection = TlsServerConnectionAttributeList-type TlsServerConnectionAttributeList = ('[ '("authenticationMode", TlsServerConnectionAuthenticationModePropertyInfo), '("baseIoStream", TlsConnectionBaseIoStreamPropertyInfo), '("certificate", TlsConnectionCertificatePropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("database", TlsConnectionDatabasePropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("interaction", TlsConnectionInteractionPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("peerCertificate", TlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", TlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", TlsConnectionRequireCloseNotifyPropertyInfo), '("useSystemCertdb", TlsConnectionUseSystemCertdbPropertyInfo)] :: [(Symbol, *)])--tlsServerConnectionAuthenticationMode :: AttrLabelProxy "authenticationMode"-tlsServerConnectionAuthenticationMode = AttrLabelProxy--type instance SignalList TlsServerConnection = TlsServerConnectionSignalList-type TlsServerConnectionSignalList = ('[ '("acceptCertificate", TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_tls_server_connection_get_type"-    c_g_tls_server_connection_get_type :: IO GType--type instance ParentTypes TlsServerConnection = TlsServerConnectionParentTypes-type TlsServerConnectionParentTypes = '[TlsConnection, IOStream, GObject.Object]--instance GObject TlsServerConnection where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_tls_server_connection_get_type-    --class GObject o => TlsServerConnectionK o-instance (GObject o, IsDescendantOf TlsServerConnection o) => TlsServerConnectionK o--toTlsServerConnection :: TlsServerConnectionK o => o -> IO TlsServerConnection-toTlsServerConnection = unsafeCastTo TlsServerConnection---- method TlsServerConnection::new--- method type : MemberFunction--- Args : [Arg {argCName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsServerConnection")--- throws : True--- Skip return : False--foreign import ccall "g_tls_server_connection_new" g_tls_server_connection_new :: -    Ptr IOStream ->                         -- base_io_stream : TInterface "Gio" "IOStream"-    Ptr TlsCertificate ->                   -- certificate : TInterface "Gio" "TlsCertificate"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsServerConnection)---tlsServerConnectionNew ::-    (MonadIO m, IOStreamK a, TlsCertificateK b) =>-    a                                       -- baseIoStream-    -> Maybe (b)                            -- certificate-    -> m TlsServerConnection                -- result-tlsServerConnectionNew baseIoStream certificate = liftIO $ do-    let baseIoStream' = unsafeManagedPtrCastPtr baseIoStream-    maybeCertificate <- case certificate of-        Nothing -> return nullPtr-        Just jCertificate -> do-            let jCertificate' = unsafeManagedPtrCastPtr jCertificate-            return jCertificate'-    onException (do-        result <- propagateGError $ g_tls_server_connection_new baseIoStream' maybeCertificate-        checkUnexpectedReturnNULL "g_tls_server_connection_new" result-        result' <- (wrapObject TlsServerConnection) result-        touchManagedPtr baseIoStream-        whenJust certificate touchManagedPtr-        return result'-     ) (do-        return ()-     )--
− GI/Gio/Interfaces/TlsServerConnection.hs-boot 
@@ -1,14 +0,0 @@-module GI.Gio.Interfaces.TlsServerConnection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TlsServerConnection = TlsServerConnection (ForeignPtr TlsServerConnection)-data TlsServerConnectionAuthenticationModePropertyInfo-instance GObject TlsServerConnection where-class GObject o => TlsServerConnectionK o-instance (GObject o, IsDescendantOf TlsServerConnection o) => TlsServerConnectionK o
− GI/Gio/Interfaces/Volume.hs 
@@ -1,979 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Interfaces.Volume-    ( ---- * Exported types-    Volume(..)                              ,-    noVolume                                ,-    VolumeK                                 ,-    toVolume                                ,--- -- * Methods--- ** volumeCanEject-    VolumeCanEjectMethodInfo                ,-    volumeCanEject                          ,----- ** volumeCanMount-    VolumeCanMountMethodInfo                ,-    volumeCanMount                          ,----- ** volumeEject-    VolumeEjectMethodInfo                   ,-    volumeEject                             ,----- ** volumeEjectFinish-    VolumeEjectFinishMethodInfo             ,-    volumeEjectFinish                       ,----- ** volumeEjectWithOperation-    VolumeEjectWithOperationMethodInfo      ,-    volumeEjectWithOperation                ,----- ** volumeEjectWithOperationFinish-    VolumeEjectWithOperationFinishMethodInfo,-    volumeEjectWithOperationFinish          ,----- ** volumeEnumerateIdentifiers-    VolumeEnumerateIdentifiersMethodInfo    ,-    volumeEnumerateIdentifiers              ,----- ** volumeGetActivationRoot-    VolumeGetActivationRootMethodInfo       ,-    volumeGetActivationRoot                 ,----- ** volumeGetDrive-    VolumeGetDriveMethodInfo                ,-    volumeGetDrive                          ,----- ** volumeGetIcon-    VolumeGetIconMethodInfo                 ,-    volumeGetIcon                           ,----- ** volumeGetIdentifier-    VolumeGetIdentifierMethodInfo           ,-    volumeGetIdentifier                     ,----- ** volumeGetMount-    VolumeGetMountMethodInfo                ,-    volumeGetMount                          ,----- ** volumeGetName-    VolumeGetNameMethodInfo                 ,-    volumeGetName                           ,----- ** volumeGetSortKey-    VolumeGetSortKeyMethodInfo              ,-    volumeGetSortKey                        ,----- ** volumeGetSymbolicIcon-    VolumeGetSymbolicIconMethodInfo         ,-    volumeGetSymbolicIcon                   ,----- ** volumeGetUuid-    VolumeGetUuidMethodInfo                 ,-    volumeGetUuid                           ,----- ** volumeMount-    VolumeMountMethodInfo                   ,-    volumeMount                             ,----- ** volumeMountFinish-    VolumeMountFinishMethodInfo             ,-    volumeMountFinish                       ,----- ** volumeShouldAutomount-    VolumeShouldAutomountMethodInfo         ,-    volumeShouldAutomount                   ,----- -- * Signals--- ** Changed-    VolumeChangedCallback                   ,-    VolumeChangedCallbackC                  ,-    VolumeChangedSignalInfo                 ,-    afterVolumeChanged                      ,-    mkVolumeChangedCallback                 ,-    noVolumeChangedCallback                 ,-    onVolumeChanged                         ,-    volumeChangedCallbackWrapper            ,-    volumeChangedClosure                    ,----- ** Removed-    VolumeRemovedCallback                   ,-    VolumeRemovedCallbackC                  ,-    VolumeRemovedSignalInfo                 ,-    afterVolumeRemoved                      ,-    mkVolumeRemovedCallback                 ,-    noVolumeRemovedCallback                 ,-    onVolumeRemoved                         ,-    volumeRemovedCallbackWrapper            ,-    volumeRemovedClosure                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject---- interface Volume --newtype Volume = Volume (ForeignPtr Volume)-noVolume :: Maybe Volume-noVolume = Nothing--type family ResolveVolumeMethod (t :: Symbol) (o :: *) :: * where-    ResolveVolumeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveVolumeMethod "bindPropertyFull" o = GObject.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.ObjectForceFloatingMethodInfo-    ResolveVolumeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveVolumeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveVolumeMethod "mount" o = VolumeMountMethodInfo-    ResolveVolumeMethod "mountFinish" o = VolumeMountFinishMethodInfo-    ResolveVolumeMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveVolumeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveVolumeMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveVolumeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveVolumeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveVolumeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveVolumeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveVolumeMethod "shouldAutomount" o = VolumeShouldAutomountMethodInfo-    ResolveVolumeMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveVolumeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveVolumeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveVolumeMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveVolumeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveVolumeMethod "getActivationRoot" o = VolumeGetActivationRootMethodInfo-    ResolveVolumeMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo-    ResolveVolumeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveVolumeMethod "getSortKey" o = VolumeGetSortKeyMethodInfo-    ResolveVolumeMethod "getSymbolicIcon" o = VolumeGetSymbolicIconMethodInfo-    ResolveVolumeMethod "getUuid" o = VolumeGetUuidMethodInfo-    ResolveVolumeMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveVolumeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveVolumeMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveVolumeMethod t Volume, MethodInfo info Volume p) => IsLabelProxy t (Volume -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveVolumeMethod t Volume, MethodInfo info Volume p) => IsLabel t (Volume -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Volume::changed-type VolumeChangedCallback =-    IO ()--noVolumeChangedCallback :: Maybe VolumeChangedCallback-noVolumeChangedCallback = Nothing--type VolumeChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeChangedCallback :: VolumeChangedCallbackC -> IO (FunPtr VolumeChangedCallbackC)--volumeChangedClosure :: VolumeChangedCallback -> IO Closure-volumeChangedClosure cb = newCClosure =<< mkVolumeChangedCallback wrapped-    where wrapped = volumeChangedCallbackWrapper cb--volumeChangedCallbackWrapper ::-    VolumeChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-volumeChangedCallbackWrapper _cb _ _ = do-    _cb --onVolumeChanged :: (GObject a, MonadIO m) => a -> VolumeChangedCallback -> m SignalHandlerId-onVolumeChanged obj cb = liftIO $ connectVolumeChanged obj cb SignalConnectBefore-afterVolumeChanged :: (GObject a, MonadIO m) => a -> VolumeChangedCallback -> m SignalHandlerId-afterVolumeChanged obj cb = connectVolumeChanged obj cb SignalConnectAfter--connectVolumeChanged :: (GObject a, MonadIO m) =>-                        a -> VolumeChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeChanged obj cb after = liftIO $ do-    cb' <- mkVolumeChangedCallback (volumeChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after---- signal Volume::removed-type VolumeRemovedCallback =-    IO ()--noVolumeRemovedCallback :: Maybe VolumeRemovedCallback-noVolumeRemovedCallback = Nothing--type VolumeRemovedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeRemovedCallback :: VolumeRemovedCallbackC -> IO (FunPtr VolumeRemovedCallbackC)--volumeRemovedClosure :: VolumeRemovedCallback -> IO Closure-volumeRemovedClosure cb = newCClosure =<< mkVolumeRemovedCallback wrapped-    where wrapped = volumeRemovedCallbackWrapper cb--volumeRemovedCallbackWrapper ::-    VolumeRemovedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-volumeRemovedCallbackWrapper _cb _ _ = do-    _cb --onVolumeRemoved :: (GObject a, MonadIO m) => a -> VolumeRemovedCallback -> m SignalHandlerId-onVolumeRemoved obj cb = liftIO $ connectVolumeRemoved obj cb SignalConnectBefore-afterVolumeRemoved :: (GObject a, MonadIO m) => a -> VolumeRemovedCallback -> m SignalHandlerId-afterVolumeRemoved obj cb = connectVolumeRemoved obj cb SignalConnectAfter--connectVolumeRemoved :: (GObject a, MonadIO m) =>-                        a -> VolumeRemovedCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeRemoved obj cb after = liftIO $ do-    cb' <- mkVolumeRemovedCallback (volumeRemovedCallbackWrapper cb)-    connectSignalFunPtr obj "removed" cb' after--type instance AttributeList Volume = VolumeAttributeList-type VolumeAttributeList = ('[ ] :: [(Symbol, *)])--data VolumeChangedSignalInfo-instance SignalInfo VolumeChangedSignalInfo where-    type HaskellCallbackType VolumeChangedSignalInfo = VolumeChangedCallback-    connectSignal _ = connectVolumeChanged--data VolumeRemovedSignalInfo-instance SignalInfo VolumeRemovedSignalInfo where-    type HaskellCallbackType VolumeRemovedSignalInfo = VolumeRemovedCallback-    connectSignal _ = connectVolumeRemoved--type instance SignalList Volume = VolumeSignalList-type VolumeSignalList = ('[ '("changed", VolumeChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("removed", VolumeRemovedSignalInfo)] :: [(Symbol, *)])--foreign import ccall "g_volume_get_type"-    c_g_volume_get_type :: IO GType--type instance ParentTypes Volume = VolumeParentTypes-type VolumeParentTypes = '[GObject.Object]--instance GObject Volume where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_volume_get_type-    --class GObject o => VolumeK o-instance (GObject o, IsDescendantOf Volume o) => VolumeK o--toVolume :: VolumeK o => o -> IO Volume-toVolume = unsafeCastTo Volume---- method Volume::can_eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    IO CInt---volumeCanEject ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-volumeCanEject _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_can_eject _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data VolumeCanEjectMethodInfo-instance (signature ~ (m Bool), MonadIO m, VolumeK a) => MethodInfo VolumeCanEjectMethodInfo a signature where-    overloadedMethod _ = volumeCanEject---- method Volume::can_mount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    IO CInt---volumeCanMount ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-volumeCanMount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_can_mount _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data VolumeCanMountMethodInfo-instance (signature ~ (m Bool), MonadIO m, VolumeK a) => MethodInfo VolumeCanMountMethodInfo a signature where-    overloadedMethod _ = volumeCanMount---- method Volume::eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{-# DEPRECATED volumeEject ["(Since version 2.22)","Use g_volume_eject_with_operation() instead."]#-}-volumeEject ::-    (MonadIO m, VolumeK a, CancellableK b) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-volumeEject _obj flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_volume_eject _obj' flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data VolumeEjectMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, VolumeK a, CancellableK b) => MethodInfo VolumeEjectMethodInfo a signature where-    overloadedMethod _ = volumeEject---- method Volume::eject_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED volumeEjectFinish ["(Since version 2.22)","Use g_volume_eject_with_operation_finish() instead."]#-}-volumeEjectFinish ::-    (MonadIO m, VolumeK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-volumeEjectFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_volume_eject_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data VolumeEjectFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, VolumeK a, AsyncResultK b) => MethodInfo VolumeEjectFinishMethodInfo a signature where-    overloadedMethod _ = volumeEjectFinish---- method Volume::eject_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    CUInt ->                                -- flags : TInterface "Gio" "MountUnmountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---volumeEjectWithOperation ::-    (MonadIO m, VolumeK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountUnmountFlags]                  -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-volumeEjectWithOperation _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_volume_eject_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data VolumeEjectWithOperationMethodInfo-instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, VolumeK a, MountOperationK b, CancellableK c) => MethodInfo VolumeEjectWithOperationMethodInfo a signature where-    overloadedMethod _ = volumeEjectWithOperation---- method Volume::eject_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---volumeEjectWithOperationFinish ::-    (MonadIO m, VolumeK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-volumeEjectWithOperationFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_volume_eject_with_operation_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data VolumeEjectWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, VolumeK a, AsyncResultK b) => MethodInfo VolumeEjectWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = volumeEjectWithOperationFinish---- method Volume::enumerate_identifiers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    IO (Ptr CString)---volumeEnumerateIdentifiers ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-volumeEnumerateIdentifiers _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_enumerate_identifiers _obj'-    checkUnexpectedReturnNULL "g_volume_enumerate_identifiers" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    return result'--data VolumeEnumerateIdentifiersMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, VolumeK a) => MethodInfo VolumeEnumerateIdentifiersMethodInfo a signature where-    overloadedMethod _ = volumeEnumerateIdentifiers---- method Volume::get_activation_root--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_volume_get_activation_root" g_volume_get_activation_root :: -    Ptr Volume ->                           -- _obj : TInterface "Gio" "Volume"-    IO (Ptr File)---volumeGetActivationRoot ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m (Maybe File)                       -- result-volumeGetActivationRoot _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_get_activation_root _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject File) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data VolumeGetActivationRootMethodInfo-instance (signature ~ (m (Maybe File)), MonadIO m, VolumeK a) => MethodInfo VolumeGetActivationRootMethodInfo a signature where-    overloadedMethod _ = volumeGetActivationRoot---- method Volume::get_drive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Drive")--- throws : False--- Skip return : False--foreign import ccall "g_volume_get_drive" g_volume_get_drive :: -    Ptr Volume ->                           -- _obj : TInterface "Gio" "Volume"-    IO (Ptr Drive)---volumeGetDrive ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m Drive                              -- result-volumeGetDrive _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_get_drive _obj'-    checkUnexpectedReturnNULL "g_volume_get_drive" result-    result' <- (wrapObject Drive) result-    touchManagedPtr _obj-    return result'--data VolumeGetDriveMethodInfo-instance (signature ~ (m Drive), MonadIO m, VolumeK a) => MethodInfo VolumeGetDriveMethodInfo a signature where-    overloadedMethod _ = volumeGetDrive---- method Volume::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_volume_get_icon" g_volume_get_icon :: -    Ptr Volume ->                           -- _obj : TInterface "Gio" "Volume"-    IO (Ptr Icon)---volumeGetIcon ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m Icon                               -- result-volumeGetIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_get_icon _obj'-    checkUnexpectedReturnNULL "g_volume_get_icon" result-    result' <- (wrapObject Icon) result-    touchManagedPtr _obj-    return result'--data VolumeGetIconMethodInfo-instance (signature ~ (m Icon), MonadIO m, VolumeK a) => MethodInfo VolumeGetIconMethodInfo a signature where-    overloadedMethod _ = volumeGetIcon---- method Volume::get_identifier--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    CString ->                              -- kind : TBasicType TUTF8-    IO CString---volumeGetIdentifier ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> T.Text                               -- kind-    -> m T.Text                             -- result-volumeGetIdentifier _obj kind = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    kind' <- textToCString kind-    result <- g_volume_get_identifier _obj' kind'-    checkUnexpectedReturnNULL "g_volume_get_identifier" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem kind'-    return result'--data VolumeGetIdentifierMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, VolumeK a) => MethodInfo VolumeGetIdentifierMethodInfo a signature where-    overloadedMethod _ = volumeGetIdentifier---- method Volume::get_mount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Mount")--- throws : False--- Skip return : False--foreign import ccall "g_volume_get_mount" g_volume_get_mount :: -    Ptr Volume ->                           -- _obj : TInterface "Gio" "Volume"-    IO (Ptr Mount)---volumeGetMount ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m Mount                              -- result-volumeGetMount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_get_mount _obj'-    checkUnexpectedReturnNULL "g_volume_get_mount" result-    result' <- (wrapObject Mount) result-    touchManagedPtr _obj-    return result'--data VolumeGetMountMethodInfo-instance (signature ~ (m Mount), MonadIO m, VolumeK a) => MethodInfo VolumeGetMountMethodInfo a signature where-    overloadedMethod _ = volumeGetMount---- method Volume::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    IO CString---volumeGetName ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-volumeGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_get_name _obj'-    checkUnexpectedReturnNULL "g_volume_get_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data VolumeGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, VolumeK a) => MethodInfo VolumeGetNameMethodInfo a signature where-    overloadedMethod _ = volumeGetName---- method Volume::get_sort_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    IO CString---volumeGetSortKey ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-volumeGetSortKey _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_get_sort_key _obj'-    checkUnexpectedReturnNULL "g_volume_get_sort_key" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data VolumeGetSortKeyMethodInfo-instance (signature ~ (m T.Text), MonadIO m, VolumeK a) => MethodInfo VolumeGetSortKeyMethodInfo a signature where-    overloadedMethod _ = volumeGetSortKey---- method Volume::get_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_volume_get_symbolic_icon" g_volume_get_symbolic_icon :: -    Ptr Volume ->                           -- _obj : TInterface "Gio" "Volume"-    IO (Ptr Icon)---volumeGetSymbolicIcon ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m Icon                               -- result-volumeGetSymbolicIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_get_symbolic_icon _obj'-    checkUnexpectedReturnNULL "g_volume_get_symbolic_icon" result-    result' <- (wrapObject Icon) result-    touchManagedPtr _obj-    return result'--data VolumeGetSymbolicIconMethodInfo-instance (signature ~ (m Icon), MonadIO m, VolumeK a) => MethodInfo VolumeGetSymbolicIconMethodInfo a signature where-    overloadedMethod _ = volumeGetSymbolicIcon---- method Volume::get_uuid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    IO CString---volumeGetUuid ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-volumeGetUuid _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_get_uuid _obj'-    checkUnexpectedReturnNULL "g_volume_get_uuid" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data VolumeGetUuidMethodInfo-instance (signature ~ (m T.Text), MonadIO m, VolumeK a) => MethodInfo VolumeGetUuidMethodInfo a signature where-    overloadedMethod _ = volumeGetUuid---- method Volume::mount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    CUInt ->                                -- flags : TInterface "Gio" "MountMountFlags"-    Ptr MountOperation ->                   -- mount_operation : TInterface "Gio" "MountOperation"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---volumeMount ::-    (MonadIO m, VolumeK a, MountOperationK b, CancellableK c) =>-    a                                       -- _obj-    -> [MountMountFlags]                    -- flags-    -> Maybe (b)                            -- mountOperation-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-volumeMount _obj flags mountOperation cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_volume_mount _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data VolumeMountMethodInfo-instance (signature ~ ([MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, VolumeK a, MountOperationK b, CancellableK c) => MethodInfo VolumeMountMethodInfo a signature where-    overloadedMethod _ = volumeMount---- method Volume::mount_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---volumeMountFinish ::-    (MonadIO m, VolumeK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-volumeMountFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_volume_mount_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data VolumeMountFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, VolumeK a, AsyncResultK b) => MethodInfo VolumeMountFinishMethodInfo a signature where-    overloadedMethod _ = volumeMountFinish---- method Volume::should_automount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Volume"-    IO CInt---volumeShouldAutomount ::-    (MonadIO m, VolumeK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-volumeShouldAutomount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_should_automount _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data VolumeShouldAutomountMethodInfo-instance (signature ~ (m Bool), MonadIO m, VolumeK a) => MethodInfo VolumeShouldAutomountMethodInfo a signature where-    overloadedMethod _ = volumeShouldAutomount--
− GI/Gio/Interfaces/Volume.hs-boot 
@@ -1,34 +0,0 @@-module GI.Gio.Interfaces.Volume where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Volume = Volume (ForeignPtr Volume)-data VolumeChangedSignalInfo-data VolumeRemovedSignalInfo-instance GObject Volume where-class GObject o => VolumeK o-instance (GObject o, IsDescendantOf Volume o) => VolumeK o-data VolumeCanEjectMethodInfo-data VolumeCanMountMethodInfo-data VolumeEjectMethodInfo-data VolumeEjectFinishMethodInfo-data VolumeEjectWithOperationMethodInfo-data VolumeEjectWithOperationFinishMethodInfo-data VolumeEnumerateIdentifiersMethodInfo-data VolumeGetActivationRootMethodInfo-data VolumeGetDriveMethodInfo-data VolumeGetIconMethodInfo-data VolumeGetIdentifierMethodInfo-data VolumeGetMountMethodInfo-data VolumeGetNameMethodInfo-data VolumeGetSortKeyMethodInfo-data VolumeGetSymbolicIconMethodInfo-data VolumeGetUuidMethodInfo-data VolumeMountMethodInfo-data VolumeMountFinishMethodInfo-data VolumeShouldAutomountMethodInfo
− GI/Gio/Objects.hs 
@@ -1,233 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--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.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.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.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--
− GI/Gio/Objects/AppInfoMonitor.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.AppInfoMonitor-    ( ---- * Exported types-    AppInfoMonitor(..)                      ,-    AppInfoMonitorK                         ,-    toAppInfoMonitor                        ,-    noAppInfoMonitor                        ,--- -- * Methods--- ** appInfoMonitorGet-    appInfoMonitorGet                       ,----- -- * Signals--- ** Changed-    AppInfoMonitorChangedCallback           ,-    AppInfoMonitorChangedCallbackC          ,-    AppInfoMonitorChangedSignalInfo         ,-    afterAppInfoMonitorChanged              ,-    appInfoMonitorChangedCallbackWrapper    ,-    appInfoMonitorChangedClosure            ,-    mkAppInfoMonitorChangedCallback         ,-    noAppInfoMonitorChangedCallback         ,-    onAppInfoMonitorChanged                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype AppInfoMonitor = AppInfoMonitor (ForeignPtr AppInfoMonitor)-foreign import ccall "g_app_info_monitor_get_type"-    c_g_app_info_monitor_get_type :: IO GType--type instance ParentTypes AppInfoMonitor = AppInfoMonitorParentTypes-type AppInfoMonitorParentTypes = '[GObject.Object]--instance GObject AppInfoMonitor where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_app_info_monitor_get_type-    --class GObject o => AppInfoMonitorK o-instance (GObject o, IsDescendantOf AppInfoMonitor o) => AppInfoMonitorK o--toAppInfoMonitor :: AppInfoMonitorK o => o -> IO AppInfoMonitor-toAppInfoMonitor = unsafeCastTo AppInfoMonitor--noAppInfoMonitor :: Maybe AppInfoMonitor-noAppInfoMonitor = Nothing--type family ResolveAppInfoMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveAppInfoMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAppInfoMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAppInfoMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAppInfoMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAppInfoMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAppInfoMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAppInfoMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAppInfoMonitorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAppInfoMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAppInfoMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAppInfoMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAppInfoMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAppInfoMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAppInfoMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAppInfoMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAppInfoMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAppInfoMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAppInfoMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAppInfoMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAppInfoMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAppInfoMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAppInfoMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAppInfoMonitorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAppInfoMonitorMethod t AppInfoMonitor, MethodInfo info AppInfoMonitor p) => IsLabelProxy t (AppInfoMonitor -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAppInfoMonitorMethod t AppInfoMonitor, MethodInfo info AppInfoMonitor p) => IsLabel t (AppInfoMonitor -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal AppInfoMonitor::changed-type AppInfoMonitorChangedCallback =-    IO ()--noAppInfoMonitorChangedCallback :: Maybe AppInfoMonitorChangedCallback-noAppInfoMonitorChangedCallback = Nothing--type AppInfoMonitorChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkAppInfoMonitorChangedCallback :: AppInfoMonitorChangedCallbackC -> IO (FunPtr AppInfoMonitorChangedCallbackC)--appInfoMonitorChangedClosure :: AppInfoMonitorChangedCallback -> IO Closure-appInfoMonitorChangedClosure cb = newCClosure =<< mkAppInfoMonitorChangedCallback wrapped-    where wrapped = appInfoMonitorChangedCallbackWrapper cb--appInfoMonitorChangedCallbackWrapper ::-    AppInfoMonitorChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-appInfoMonitorChangedCallbackWrapper _cb _ _ = do-    _cb --onAppInfoMonitorChanged :: (GObject a, MonadIO m) => a -> AppInfoMonitorChangedCallback -> m SignalHandlerId-onAppInfoMonitorChanged obj cb = liftIO $ connectAppInfoMonitorChanged obj cb SignalConnectBefore-afterAppInfoMonitorChanged :: (GObject a, MonadIO m) => a -> AppInfoMonitorChangedCallback -> m SignalHandlerId-afterAppInfoMonitorChanged obj cb = connectAppInfoMonitorChanged obj cb SignalConnectAfter--connectAppInfoMonitorChanged :: (GObject a, MonadIO m) =>-                                a -> AppInfoMonitorChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectAppInfoMonitorChanged obj cb after = liftIO $ do-    cb' <- mkAppInfoMonitorChangedCallback (appInfoMonitorChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after--type instance AttributeList AppInfoMonitor = AppInfoMonitorAttributeList-type AppInfoMonitorAttributeList = ('[ ] :: [(Symbol, *)])--data AppInfoMonitorChangedSignalInfo-instance SignalInfo AppInfoMonitorChangedSignalInfo where-    type HaskellCallbackType AppInfoMonitorChangedSignalInfo = AppInfoMonitorChangedCallback-    connectSignal _ = connectAppInfoMonitorChanged--type instance SignalList AppInfoMonitor = AppInfoMonitorSignalList-type AppInfoMonitorSignalList = ('[ '("changed", AppInfoMonitorChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AppInfoMonitor::get--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "AppInfoMonitor")--- throws : False--- Skip return : False--foreign import ccall "g_app_info_monitor_get" g_app_info_monitor_get :: -    IO (Ptr AppInfoMonitor)---appInfoMonitorGet ::-    (MonadIO m) =>-    m AppInfoMonitor                        -- result-appInfoMonitorGet  = liftIO $ do-    result <- g_app_info_monitor_get-    checkUnexpectedReturnNULL "g_app_info_monitor_get" result-    result' <- (wrapObject AppInfoMonitor) result-    return result'--
− GI/Gio/Objects/AppInfoMonitor.hs-boot 
@@ -1,14 +0,0 @@-module GI.Gio.Objects.AppInfoMonitor where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AppInfoMonitor = AppInfoMonitor (ForeignPtr AppInfoMonitor)-instance GObject AppInfoMonitor where-class GObject o => AppInfoMonitorK o-instance (GObject o, IsDescendantOf AppInfoMonitor o) => AppInfoMonitorK o-data AppInfoMonitorChangedSignalInfo
− GI/Gio/Objects/AppLaunchContext.hs 
@@ -1,489 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.AppLaunchContext-    ( ---- * Exported types-    AppLaunchContext(..)                    ,-    AppLaunchContextK                       ,-    toAppLaunchContext                      ,-    noAppLaunchContext                      ,--- -- * Methods--- ** appLaunchContextGetDisplay-    AppLaunchContextGetDisplayMethodInfo    ,-    appLaunchContextGetDisplay              ,----- ** appLaunchContextGetEnvironment-    AppLaunchContextGetEnvironmentMethodInfo,-    appLaunchContextGetEnvironment          ,----- ** appLaunchContextGetStartupNotifyId-    AppLaunchContextGetStartupNotifyIdMethodInfo,-    appLaunchContextGetStartupNotifyId      ,----- ** appLaunchContextLaunchFailed-    AppLaunchContextLaunchFailedMethodInfo  ,-    appLaunchContextLaunchFailed            ,----- ** appLaunchContextNew-    appLaunchContextNew                     ,----- ** appLaunchContextSetenv-    AppLaunchContextSetenvMethodInfo        ,-    appLaunchContextSetenv                  ,----- ** appLaunchContextUnsetenv-    AppLaunchContextUnsetenvMethodInfo      ,-    appLaunchContextUnsetenv                ,----- -- * Signals--- ** LaunchFailed-    AppLaunchContextLaunchFailedCallback    ,-    AppLaunchContextLaunchFailedCallbackC   ,-    AppLaunchContextLaunchFailedSignalInfo  ,-    afterAppLaunchContextLaunchFailed       ,-    appLaunchContextLaunchFailedCallbackWrapper,-    appLaunchContextLaunchFailedClosure     ,-    mkAppLaunchContextLaunchFailedCallback  ,-    noAppLaunchContextLaunchFailedCallback  ,-    onAppLaunchContextLaunchFailed          ,----- ** Launched-    AppLaunchContextLaunchedCallback        ,-    AppLaunchContextLaunchedCallbackC       ,-    AppLaunchContextLaunchedSignalInfo      ,-    afterAppLaunchContextLaunched           ,-    appLaunchContextLaunchedCallbackWrapper ,-    appLaunchContextLaunchedClosure         ,-    mkAppLaunchContextLaunchedCallback      ,-    noAppLaunchContextLaunchedCallback      ,-    onAppLaunchContextLaunched              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext)-foreign import ccall "g_app_launch_context_get_type"-    c_g_app_launch_context_get_type :: IO GType--type instance ParentTypes AppLaunchContext = AppLaunchContextParentTypes-type AppLaunchContextParentTypes = '[GObject.Object]--instance GObject AppLaunchContext where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_app_launch_context_get_type-    --class GObject o => AppLaunchContextK o-instance (GObject o, IsDescendantOf AppLaunchContext o) => AppLaunchContextK o--toAppLaunchContext :: AppLaunchContextK o => o -> IO AppLaunchContext-toAppLaunchContext = unsafeCastTo AppLaunchContext--noAppLaunchContext :: Maybe AppLaunchContext-noAppLaunchContext = Nothing--type family ResolveAppLaunchContextMethod (t :: Symbol) (o :: *) :: * where-    ResolveAppLaunchContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAppLaunchContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAppLaunchContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAppLaunchContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAppLaunchContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAppLaunchContextMethod "launchFailed" o = AppLaunchContextLaunchFailedMethodInfo-    ResolveAppLaunchContextMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAppLaunchContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAppLaunchContextMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAppLaunchContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAppLaunchContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAppLaunchContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAppLaunchContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAppLaunchContextMethod "setenv" o = AppLaunchContextSetenvMethodInfo-    ResolveAppLaunchContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAppLaunchContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAppLaunchContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAppLaunchContextMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAppLaunchContextMethod "unsetenv" o = AppLaunchContextUnsetenvMethodInfo-    ResolveAppLaunchContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAppLaunchContextMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAppLaunchContextMethod "getDisplay" o = AppLaunchContextGetDisplayMethodInfo-    ResolveAppLaunchContextMethod "getEnvironment" o = AppLaunchContextGetEnvironmentMethodInfo-    ResolveAppLaunchContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAppLaunchContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAppLaunchContextMethod "getStartupNotifyId" o = AppLaunchContextGetStartupNotifyIdMethodInfo-    ResolveAppLaunchContextMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAppLaunchContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAppLaunchContextMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAppLaunchContextMethod t AppLaunchContext, MethodInfo info AppLaunchContext p) => IsLabelProxy t (AppLaunchContext -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAppLaunchContextMethod t AppLaunchContext, MethodInfo info AppLaunchContext p) => IsLabel t (AppLaunchContext -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal AppLaunchContext::launch-failed-type AppLaunchContextLaunchFailedCallback =-    T.Text ->-    IO ()--noAppLaunchContextLaunchFailedCallback :: Maybe AppLaunchContextLaunchFailedCallback-noAppLaunchContextLaunchFailedCallback = Nothing--type AppLaunchContextLaunchFailedCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkAppLaunchContextLaunchFailedCallback :: AppLaunchContextLaunchFailedCallbackC -> IO (FunPtr AppLaunchContextLaunchFailedCallbackC)--appLaunchContextLaunchFailedClosure :: AppLaunchContextLaunchFailedCallback -> IO Closure-appLaunchContextLaunchFailedClosure cb = newCClosure =<< mkAppLaunchContextLaunchFailedCallback wrapped-    where wrapped = appLaunchContextLaunchFailedCallbackWrapper cb--appLaunchContextLaunchFailedCallbackWrapper ::-    AppLaunchContextLaunchFailedCallback ->-    Ptr () ->-    CString ->-    Ptr () ->-    IO ()-appLaunchContextLaunchFailedCallbackWrapper _cb _ startupNotifyId _ = do-    startupNotifyId' <- cstringToText startupNotifyId-    _cb  startupNotifyId'--onAppLaunchContextLaunchFailed :: (GObject a, MonadIO m) => a -> AppLaunchContextLaunchFailedCallback -> m SignalHandlerId-onAppLaunchContextLaunchFailed obj cb = liftIO $ connectAppLaunchContextLaunchFailed obj cb SignalConnectBefore-afterAppLaunchContextLaunchFailed :: (GObject a, MonadIO m) => a -> AppLaunchContextLaunchFailedCallback -> m SignalHandlerId-afterAppLaunchContextLaunchFailed obj cb = connectAppLaunchContextLaunchFailed obj cb SignalConnectAfter--connectAppLaunchContextLaunchFailed :: (GObject a, MonadIO m) =>-                                       a -> AppLaunchContextLaunchFailedCallback -> SignalConnectMode -> m SignalHandlerId-connectAppLaunchContextLaunchFailed obj cb after = liftIO $ do-    cb' <- mkAppLaunchContextLaunchFailedCallback (appLaunchContextLaunchFailedCallbackWrapper cb)-    connectSignalFunPtr obj "launch-failed" cb' after---- signal AppLaunchContext::launched-type AppLaunchContextLaunchedCallback =-    AppInfo ->-    GVariant ->-    IO ()--noAppLaunchContextLaunchedCallback :: Maybe AppLaunchContextLaunchedCallback-noAppLaunchContextLaunchedCallback = Nothing--type AppLaunchContextLaunchedCallbackC =-    Ptr () ->                               -- object-    Ptr AppInfo ->-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkAppLaunchContextLaunchedCallback :: AppLaunchContextLaunchedCallbackC -> IO (FunPtr AppLaunchContextLaunchedCallbackC)--appLaunchContextLaunchedClosure :: AppLaunchContextLaunchedCallback -> IO Closure-appLaunchContextLaunchedClosure cb = newCClosure =<< mkAppLaunchContextLaunchedCallback wrapped-    where wrapped = appLaunchContextLaunchedCallbackWrapper cb--appLaunchContextLaunchedCallbackWrapper ::-    AppLaunchContextLaunchedCallback ->-    Ptr () ->-    Ptr AppInfo ->-    Ptr GVariant ->-    Ptr () ->-    IO ()-appLaunchContextLaunchedCallbackWrapper _cb _ info platformData _ = do-    info' <- (newObject AppInfo) info-    platformData' <- newGVariantFromPtr platformData-    _cb  info' platformData'--onAppLaunchContextLaunched :: (GObject a, MonadIO m) => a -> AppLaunchContextLaunchedCallback -> m SignalHandlerId-onAppLaunchContextLaunched obj cb = liftIO $ connectAppLaunchContextLaunched obj cb SignalConnectBefore-afterAppLaunchContextLaunched :: (GObject a, MonadIO m) => a -> AppLaunchContextLaunchedCallback -> m SignalHandlerId-afterAppLaunchContextLaunched obj cb = connectAppLaunchContextLaunched obj cb SignalConnectAfter--connectAppLaunchContextLaunched :: (GObject a, MonadIO m) =>-                                   a -> AppLaunchContextLaunchedCallback -> SignalConnectMode -> m SignalHandlerId-connectAppLaunchContextLaunched obj cb after = liftIO $ do-    cb' <- mkAppLaunchContextLaunchedCallback (appLaunchContextLaunchedCallbackWrapper cb)-    connectSignalFunPtr obj "launched" cb' after--type instance AttributeList AppLaunchContext = AppLaunchContextAttributeList-type AppLaunchContextAttributeList = ('[ ] :: [(Symbol, *)])--data AppLaunchContextLaunchFailedSignalInfo-instance SignalInfo AppLaunchContextLaunchFailedSignalInfo where-    type HaskellCallbackType AppLaunchContextLaunchFailedSignalInfo = AppLaunchContextLaunchFailedCallback-    connectSignal _ = connectAppLaunchContextLaunchFailed--data AppLaunchContextLaunchedSignalInfo-instance SignalInfo AppLaunchContextLaunchedSignalInfo where-    type HaskellCallbackType AppLaunchContextLaunchedSignalInfo = AppLaunchContextLaunchedCallback-    connectSignal _ = connectAppLaunchContextLaunched--type instance SignalList AppLaunchContext = AppLaunchContextSignalList-type AppLaunchContextSignalList = ('[ '("launchFailed", AppLaunchContextLaunchFailedSignalInfo), '("launched", AppLaunchContextLaunchedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AppLaunchContext::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "AppLaunchContext")--- throws : False--- Skip return : False--foreign import ccall "g_app_launch_context_new" g_app_launch_context_new :: -    IO (Ptr AppLaunchContext)---appLaunchContextNew ::-    (MonadIO m) =>-    m AppLaunchContext                      -- result-appLaunchContextNew  = liftIO $ do-    result <- g_app_launch_context_new-    checkUnexpectedReturnNULL "g_app_launch_context_new" result-    result' <- (wrapObject AppLaunchContext) result-    return result'---- method AppLaunchContext::get_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "AppLaunchContext"-    Ptr AppInfo ->                          -- info : TInterface "Gio" "AppInfo"-    Ptr (GList (Ptr File)) ->               -- files : TGList (TInterface "Gio" "File")-    IO CString---appLaunchContextGetDisplay ::-    (MonadIO m, AppLaunchContextK a, AppInfoK b, FileK c) =>-    a                                       -- _obj-    -> b                                    -- info-    -> [c]                                  -- files-    -> m T.Text                             -- result-appLaunchContextGetDisplay _obj info files = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let info' = unsafeManagedPtrCastPtr info-    let files' = map unsafeManagedPtrCastPtr files-    files'' <- packGList files'-    result <- g_app_launch_context_get_display _obj' info' files''-    checkUnexpectedReturnNULL "g_app_launch_context_get_display" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    touchManagedPtr info-    mapM_ touchManagedPtr files-    g_list_free files''-    return result'--data AppLaunchContextGetDisplayMethodInfo-instance (signature ~ (b -> [c] -> m T.Text), MonadIO m, AppLaunchContextK a, AppInfoK b, FileK c) => MethodInfo AppLaunchContextGetDisplayMethodInfo a signature where-    overloadedMethod _ = appLaunchContextGetDisplay---- method AppLaunchContext::get_environment--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, 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_launch_context_get_environment" g_app_launch_context_get_environment :: -    Ptr AppLaunchContext ->                 -- _obj : TInterface "Gio" "AppLaunchContext"-    IO (Ptr CString)---appLaunchContextGetEnvironment ::-    (MonadIO m, AppLaunchContextK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-appLaunchContextGetEnvironment _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_app_launch_context_get_environment _obj'-    checkUnexpectedReturnNULL "g_app_launch_context_get_environment" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    return result'--data AppLaunchContextGetEnvironmentMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextGetEnvironmentMethodInfo a signature where-    overloadedMethod _ = appLaunchContextGetEnvironment---- method AppLaunchContext::get_startup_notify_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "AppLaunchContext"-    Ptr AppInfo ->                          -- info : TInterface "Gio" "AppInfo"-    Ptr (GList (Ptr File)) ->               -- files : TGList (TInterface "Gio" "File")-    IO CString---appLaunchContextGetStartupNotifyId ::-    (MonadIO m, AppLaunchContextK a, AppInfoK b, FileK c) =>-    a                                       -- _obj-    -> b                                    -- info-    -> [c]                                  -- files-    -> m T.Text                             -- result-appLaunchContextGetStartupNotifyId _obj info files = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let info' = unsafeManagedPtrCastPtr info-    let files' = map unsafeManagedPtrCastPtr files-    files'' <- packGList files'-    result <- g_app_launch_context_get_startup_notify_id _obj' info' files''-    checkUnexpectedReturnNULL "g_app_launch_context_get_startup_notify_id" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    touchManagedPtr info-    mapM_ touchManagedPtr files-    g_list_free files''-    return result'--data AppLaunchContextGetStartupNotifyIdMethodInfo-instance (signature ~ (b -> [c] -> m T.Text), MonadIO m, AppLaunchContextK a, AppInfoK b, FileK c) => MethodInfo AppLaunchContextGetStartupNotifyIdMethodInfo a signature where-    overloadedMethod _ = appLaunchContextGetStartupNotifyId---- method AppLaunchContext::launch_failed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_notify_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "AppLaunchContext"-    CString ->                              -- startup_notify_id : TBasicType TUTF8-    IO ()---appLaunchContextLaunchFailed ::-    (MonadIO m, AppLaunchContextK a) =>-    a                                       -- _obj-    -> T.Text                               -- startupNotifyId-    -> m ()                                 -- result-appLaunchContextLaunchFailed _obj startupNotifyId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    startupNotifyId' <- textToCString startupNotifyId-    g_app_launch_context_launch_failed _obj' startupNotifyId'-    touchManagedPtr _obj-    freeMem startupNotifyId'-    return ()--data AppLaunchContextLaunchFailedMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextLaunchFailedMethodInfo a signature where-    overloadedMethod _ = appLaunchContextLaunchFailed---- method AppLaunchContext::setenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "AppLaunchContext"-    CString ->                              -- variable : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()---appLaunchContextSetenv ::-    (MonadIO m, AppLaunchContextK a) =>-    a                                       -- _obj-    -> T.Text                               -- variable-    -> T.Text                               -- value-    -> m ()                                 -- result-appLaunchContextSetenv _obj variable value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    variable' <- textToCString variable-    value' <- textToCString value-    g_app_launch_context_setenv _obj' variable' value'-    touchManagedPtr _obj-    freeMem variable'-    freeMem value'-    return ()--data AppLaunchContextSetenvMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextSetenvMethodInfo a signature where-    overloadedMethod _ = appLaunchContextSetenv---- method AppLaunchContext::unsetenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "AppLaunchContext"-    CString ->                              -- variable : TBasicType TUTF8-    IO ()---appLaunchContextUnsetenv ::-    (MonadIO m, AppLaunchContextK a) =>-    a                                       -- _obj-    -> T.Text                               -- variable-    -> m ()                                 -- result-appLaunchContextUnsetenv _obj variable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    variable' <- textToCString variable-    g_app_launch_context_unsetenv _obj' variable'-    touchManagedPtr _obj-    freeMem variable'-    return ()--data AppLaunchContextUnsetenvMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextUnsetenvMethodInfo a signature where-    overloadedMethod _ = appLaunchContextUnsetenv--
− GI/Gio/Objects/AppLaunchContext.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.AppLaunchContext where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext)-instance GObject AppLaunchContext where-class GObject o => AppLaunchContextK o-instance (GObject o, IsDescendantOf AppLaunchContext o) => AppLaunchContextK o-data AppLaunchContextLaunchFailedSignalInfo-data AppLaunchContextLaunchedSignalInfo-data AppLaunchContextGetDisplayMethodInfo-data AppLaunchContextGetEnvironmentMethodInfo-data AppLaunchContextGetStartupNotifyIdMethodInfo-data AppLaunchContextLaunchFailedMethodInfo-data AppLaunchContextSetenvMethodInfo-data AppLaunchContextUnsetenvMethodInfo
− GI/Gio/Objects/Application.hs 
@@ -1,2009 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Application-    ( ---- * Exported types-    Application(..)                         ,-    ApplicationK                            ,-    toApplication                           ,-    noApplication                           ,--- -- * Methods--- ** applicationActivate-    ApplicationActivateMethodInfo           ,-    applicationActivate                     ,----- ** applicationAddMainOption-    ApplicationAddMainOptionMethodInfo      ,-    applicationAddMainOption                ,----- ** applicationAddMainOptionEntries-    ApplicationAddMainOptionEntriesMethodInfo,-    applicationAddMainOptionEntries         ,----- ** applicationAddOptionGroup-    ApplicationAddOptionGroupMethodInfo     ,-    applicationAddOptionGroup               ,----- ** applicationBindBusyProperty-    ApplicationBindBusyPropertyMethodInfo   ,-    applicationBindBusyProperty             ,----- ** applicationGetApplicationId-    ApplicationGetApplicationIdMethodInfo   ,-    applicationGetApplicationId             ,----- ** applicationGetDbusConnection-    ApplicationGetDbusConnectionMethodInfo  ,-    applicationGetDbusConnection            ,----- ** applicationGetDbusObjectPath-    ApplicationGetDbusObjectPathMethodInfo  ,-    applicationGetDbusObjectPath            ,----- ** applicationGetDefault-    applicationGetDefault                   ,----- ** applicationGetFlags-    ApplicationGetFlagsMethodInfo           ,-    applicationGetFlags                     ,----- ** applicationGetInactivityTimeout-    ApplicationGetInactivityTimeoutMethodInfo,-    applicationGetInactivityTimeout         ,----- ** applicationGetIsBusy-    ApplicationGetIsBusyMethodInfo          ,-    applicationGetIsBusy                    ,----- ** applicationGetIsRegistered-    ApplicationGetIsRegisteredMethodInfo    ,-    applicationGetIsRegistered              ,----- ** applicationGetIsRemote-    ApplicationGetIsRemoteMethodInfo        ,-    applicationGetIsRemote                  ,----- ** applicationGetResourceBasePath-    ApplicationGetResourceBasePathMethodInfo,-    applicationGetResourceBasePath          ,----- ** applicationHold-    ApplicationHoldMethodInfo               ,-    applicationHold                         ,----- ** applicationIdIsValid-    applicationIdIsValid                    ,----- ** applicationMarkBusy-    ApplicationMarkBusyMethodInfo           ,-    applicationMarkBusy                     ,----- ** applicationNew-    applicationNew                          ,----- ** applicationOpen-    ApplicationOpenMethodInfo               ,-    applicationOpen                         ,----- ** applicationQuit-    ApplicationQuitMethodInfo               ,-    applicationQuit                         ,----- ** applicationRegister-    ApplicationRegisterMethodInfo           ,-    applicationRegister                     ,----- ** applicationRelease-    ApplicationReleaseMethodInfo            ,-    applicationRelease                      ,----- ** applicationRun-    ApplicationRunMethodInfo                ,-    applicationRun                          ,----- ** applicationSendNotification-    ApplicationSendNotificationMethodInfo   ,-    applicationSendNotification             ,----- ** applicationSetActionGroup-    ApplicationSetActionGroupMethodInfo     ,-    applicationSetActionGroup               ,----- ** applicationSetApplicationId-    ApplicationSetApplicationIdMethodInfo   ,-    applicationSetApplicationId             ,----- ** applicationSetDefault-    ApplicationSetDefaultMethodInfo         ,-    applicationSetDefault                   ,----- ** applicationSetFlags-    ApplicationSetFlagsMethodInfo           ,-    applicationSetFlags                     ,----- ** applicationSetInactivityTimeout-    ApplicationSetInactivityTimeoutMethodInfo,-    applicationSetInactivityTimeout         ,----- ** applicationSetResourceBasePath-    ApplicationSetResourceBasePathMethodInfo,-    applicationSetResourceBasePath          ,----- ** applicationUnbindBusyProperty-    ApplicationUnbindBusyPropertyMethodInfo ,-    applicationUnbindBusyProperty           ,----- ** applicationUnmarkBusy-    ApplicationUnmarkBusyMethodInfo         ,-    applicationUnmarkBusy                   ,----- ** applicationWithdrawNotification-    ApplicationWithdrawNotificationMethodInfo,-    applicationWithdrawNotification         ,----- -- * Properties--- ** ActionGroup-    ApplicationActionGroupPropertyInfo      ,-    applicationActionGroup                  ,-    clearApplicationActionGroup             ,-    constructApplicationActionGroup         ,-    setApplicationActionGroup               ,----- ** ApplicationId-    ApplicationApplicationIdPropertyInfo    ,-    applicationApplicationId                ,-    clearApplicationApplicationId           ,-    constructApplicationApplicationId       ,-    getApplicationApplicationId             ,-    setApplicationApplicationId             ,----- ** Flags-    ApplicationFlagsPropertyInfo            ,-    applicationFlags                        ,-    constructApplicationFlags               ,-    getApplicationFlags                     ,-    setApplicationFlags                     ,----- ** InactivityTimeout-    ApplicationInactivityTimeoutPropertyInfo,-    applicationInactivityTimeout            ,-    constructApplicationInactivityTimeout   ,-    getApplicationInactivityTimeout         ,-    setApplicationInactivityTimeout         ,----- ** IsBusy-    ApplicationIsBusyPropertyInfo           ,-    applicationIsBusy                       ,-    getApplicationIsBusy                    ,----- ** IsRegistered-    ApplicationIsRegisteredPropertyInfo     ,-    applicationIsRegistered                 ,-    getApplicationIsRegistered              ,----- ** IsRemote-    ApplicationIsRemotePropertyInfo         ,-    applicationIsRemote                     ,-    getApplicationIsRemote                  ,----- ** ResourceBasePath-    ApplicationResourceBasePathPropertyInfo ,-    applicationResourceBasePath             ,-    clearApplicationResourceBasePath        ,-    constructApplicationResourceBasePath    ,-    getApplicationResourceBasePath          ,-    setApplicationResourceBasePath          ,----- -- * Signals--- ** Activate-    ApplicationActivateCallback             ,-    ApplicationActivateCallbackC            ,-    ApplicationActivateSignalInfo           ,-    afterApplicationActivate                ,-    applicationActivateCallbackWrapper      ,-    applicationActivateClosure              ,-    mkApplicationActivateCallback           ,-    noApplicationActivateCallback           ,-    onApplicationActivate                   ,----- ** CommandLine-    ApplicationCommandLineCallback          ,-    ApplicationCommandLineCallbackC         ,-    ApplicationCommandLineSignalInfo        ,-    afterApplicationCommandLine             ,-    applicationCommandLineCallbackWrapper   ,-    applicationCommandLineClosure           ,-    mkApplicationCommandLineCallback        ,-    noApplicationCommandLineCallback        ,-    onApplicationCommandLine                ,----- ** HandleLocalOptions-    ApplicationHandleLocalOptionsCallback   ,-    ApplicationHandleLocalOptionsCallbackC  ,-    ApplicationHandleLocalOptionsSignalInfo ,-    afterApplicationHandleLocalOptions      ,-    applicationHandleLocalOptionsCallbackWrapper,-    applicationHandleLocalOptionsClosure    ,-    mkApplicationHandleLocalOptionsCallback ,-    noApplicationHandleLocalOptionsCallback ,-    onApplicationHandleLocalOptions         ,----- ** Open-    ApplicationOpenCallback                 ,-    ApplicationOpenCallbackC                ,-    ApplicationOpenSignalInfo               ,-    afterApplicationOpen                    ,-    applicationOpenCallbackWrapper          ,-    applicationOpenClosure                  ,-    mkApplicationOpenCallback               ,-    noApplicationOpenCallback               ,-    onApplicationOpen                       ,----- ** Shutdown-    ApplicationShutdownCallback             ,-    ApplicationShutdownCallbackC            ,-    ApplicationShutdownSignalInfo           ,-    afterApplicationShutdown                ,-    applicationShutdownCallbackWrapper      ,-    applicationShutdownClosure              ,-    mkApplicationShutdownCallback           ,-    noApplicationShutdownCallback           ,-    onApplicationShutdown                   ,----- ** Startup-    ApplicationStartupCallback              ,-    ApplicationStartupCallbackC             ,-    ApplicationStartupSignalInfo            ,-    afterApplicationStartup                 ,-    applicationStartupCallbackWrapper       ,-    applicationStartupClosure               ,-    mkApplicationStartupCallback            ,-    noApplicationStartupCallback            ,-    onApplicationStartup                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype Application = Application (ForeignPtr Application)-foreign import ccall "g_application_get_type"-    c_g_application_get_type :: IO GType--type instance ParentTypes Application = ApplicationParentTypes-type ApplicationParentTypes = '[GObject.Object, ActionGroup, ActionMap]--instance GObject Application where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_application_get_type-    --class GObject o => ApplicationK o-instance (GObject o, IsDescendantOf Application o) => ApplicationK o--toApplication :: ApplicationK o => o -> IO Application-toApplication = unsafeCastTo Application--noApplication :: Maybe Application-noApplication = Nothing--type family ResolveApplicationMethod (t :: Symbol) (o :: *) :: * where-    ResolveApplicationMethod "actionAdded" o = ActionGroupActionAddedMethodInfo-    ResolveApplicationMethod "actionEnabledChanged" o = ActionGroupActionEnabledChangedMethodInfo-    ResolveApplicationMethod "actionRemoved" o = ActionGroupActionRemovedMethodInfo-    ResolveApplicationMethod "actionStateChanged" o = ActionGroupActionStateChangedMethodInfo-    ResolveApplicationMethod "activate" o = ApplicationActivateMethodInfo-    ResolveApplicationMethod "activateAction" o = ActionGroupActivateActionMethodInfo-    ResolveApplicationMethod "addAction" o = ActionMapAddActionMethodInfo-    ResolveApplicationMethod "addActionEntries" o = ActionMapAddActionEntriesMethodInfo-    ResolveApplicationMethod "addMainOption" o = ApplicationAddMainOptionMethodInfo-    ResolveApplicationMethod "addMainOptionEntries" o = ApplicationAddMainOptionEntriesMethodInfo-    ResolveApplicationMethod "addOptionGroup" o = ApplicationAddOptionGroupMethodInfo-    ResolveApplicationMethod "bindBusyProperty" o = ApplicationBindBusyPropertyMethodInfo-    ResolveApplicationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveApplicationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveApplicationMethod "changeActionState" o = ActionGroupChangeActionStateMethodInfo-    ResolveApplicationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveApplicationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveApplicationMethod "hasAction" o = ActionGroupHasActionMethodInfo-    ResolveApplicationMethod "hold" o = ApplicationHoldMethodInfo-    ResolveApplicationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveApplicationMethod "listActions" o = ActionGroupListActionsMethodInfo-    ResolveApplicationMethod "lookupAction" o = ActionMapLookupActionMethodInfo-    ResolveApplicationMethod "markBusy" o = ApplicationMarkBusyMethodInfo-    ResolveApplicationMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveApplicationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveApplicationMethod "open" o = ApplicationOpenMethodInfo-    ResolveApplicationMethod "queryAction" o = ActionGroupQueryActionMethodInfo-    ResolveApplicationMethod "quit" o = ApplicationQuitMethodInfo-    ResolveApplicationMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveApplicationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveApplicationMethod "register" o = ApplicationRegisterMethodInfo-    ResolveApplicationMethod "release" o = ApplicationReleaseMethodInfo-    ResolveApplicationMethod "removeAction" o = ActionMapRemoveActionMethodInfo-    ResolveApplicationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveApplicationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveApplicationMethod "run" o = ApplicationRunMethodInfo-    ResolveApplicationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveApplicationMethod "sendNotification" o = ApplicationSendNotificationMethodInfo-    ResolveApplicationMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveApplicationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveApplicationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveApplicationMethod "unbindBusyProperty" o = ApplicationUnbindBusyPropertyMethodInfo-    ResolveApplicationMethod "unmarkBusy" o = ApplicationUnmarkBusyMethodInfo-    ResolveApplicationMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveApplicationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveApplicationMethod "withdrawNotification" o = ApplicationWithdrawNotificationMethodInfo-    ResolveApplicationMethod "getActionEnabled" o = ActionGroupGetActionEnabledMethodInfo-    ResolveApplicationMethod "getActionParameterType" o = ActionGroupGetActionParameterTypeMethodInfo-    ResolveApplicationMethod "getActionState" o = ActionGroupGetActionStateMethodInfo-    ResolveApplicationMethod "getActionStateHint" o = ActionGroupGetActionStateHintMethodInfo-    ResolveApplicationMethod "getActionStateType" o = ActionGroupGetActionStateTypeMethodInfo-    ResolveApplicationMethod "getApplicationId" o = ApplicationGetApplicationIdMethodInfo-    ResolveApplicationMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo-    ResolveApplicationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveApplicationMethod "getResourceBasePath" o = ApplicationGetResourceBasePathMethodInfo-    ResolveApplicationMethod "setActionGroup" o = ApplicationSetActionGroupMethodInfo-    ResolveApplicationMethod "setApplicationId" o = ApplicationSetApplicationIdMethodInfo-    ResolveApplicationMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveApplicationMethod "setDefault" o = ApplicationSetDefaultMethodInfo-    ResolveApplicationMethod "setFlags" o = ApplicationSetFlagsMethodInfo-    ResolveApplicationMethod "setInactivityTimeout" o = ApplicationSetInactivityTimeoutMethodInfo-    ResolveApplicationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveApplicationMethod "setResourceBasePath" o = ApplicationSetResourceBasePathMethodInfo-    ResolveApplicationMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveApplicationMethod t Application, MethodInfo info Application p) => IsLabelProxy t (Application -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveApplicationMethod t Application, MethodInfo info Application p) => IsLabel t (Application -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Application::activate-type ApplicationActivateCallback =-    IO ()--noApplicationActivateCallback :: Maybe ApplicationActivateCallback-noApplicationActivateCallback = Nothing--type ApplicationActivateCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkApplicationActivateCallback :: ApplicationActivateCallbackC -> IO (FunPtr ApplicationActivateCallbackC)--applicationActivateClosure :: ApplicationActivateCallback -> IO Closure-applicationActivateClosure cb = newCClosure =<< mkApplicationActivateCallback wrapped-    where wrapped = applicationActivateCallbackWrapper cb--applicationActivateCallbackWrapper ::-    ApplicationActivateCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-applicationActivateCallbackWrapper _cb _ _ = do-    _cb --onApplicationActivate :: (GObject a, MonadIO m) => a -> ApplicationActivateCallback -> m SignalHandlerId-onApplicationActivate obj cb = liftIO $ connectApplicationActivate obj cb SignalConnectBefore-afterApplicationActivate :: (GObject a, MonadIO m) => a -> ApplicationActivateCallback -> m SignalHandlerId-afterApplicationActivate obj cb = connectApplicationActivate obj cb SignalConnectAfter--connectApplicationActivate :: (GObject a, MonadIO m) =>-                              a -> ApplicationActivateCallback -> SignalConnectMode -> m SignalHandlerId-connectApplicationActivate obj cb after = liftIO $ do-    cb' <- mkApplicationActivateCallback (applicationActivateCallbackWrapper cb)-    connectSignalFunPtr obj "activate" cb' after---- signal Application::command-line-type ApplicationCommandLineCallback =-    ApplicationCommandLine ->-    IO Int32--noApplicationCommandLineCallback :: Maybe ApplicationCommandLineCallback-noApplicationCommandLineCallback = Nothing--type ApplicationCommandLineCallbackC =-    Ptr () ->                               -- object-    Ptr ApplicationCommandLine ->-    Ptr () ->                               -- user_data-    IO Int32--foreign import ccall "wrapper"-    mkApplicationCommandLineCallback :: ApplicationCommandLineCallbackC -> IO (FunPtr ApplicationCommandLineCallbackC)--applicationCommandLineClosure :: ApplicationCommandLineCallback -> IO Closure-applicationCommandLineClosure cb = newCClosure =<< mkApplicationCommandLineCallback wrapped-    where wrapped = applicationCommandLineCallbackWrapper cb--applicationCommandLineCallbackWrapper ::-    ApplicationCommandLineCallback ->-    Ptr () ->-    Ptr ApplicationCommandLine ->-    Ptr () ->-    IO Int32-applicationCommandLineCallbackWrapper _cb _ commandLine _ = do-    commandLine' <- (newObject ApplicationCommandLine) commandLine-    result <- _cb  commandLine'-    return result--onApplicationCommandLine :: (GObject a, MonadIO m) => a -> ApplicationCommandLineCallback -> m SignalHandlerId-onApplicationCommandLine obj cb = liftIO $ connectApplicationCommandLine obj cb SignalConnectBefore-afterApplicationCommandLine :: (GObject a, MonadIO m) => a -> ApplicationCommandLineCallback -> m SignalHandlerId-afterApplicationCommandLine obj cb = connectApplicationCommandLine obj cb SignalConnectAfter--connectApplicationCommandLine :: (GObject a, MonadIO m) =>-                                 a -> ApplicationCommandLineCallback -> SignalConnectMode -> m SignalHandlerId-connectApplicationCommandLine obj cb after = liftIO $ do-    cb' <- mkApplicationCommandLineCallback (applicationCommandLineCallbackWrapper cb)-    connectSignalFunPtr obj "command-line" cb' after---- signal Application::handle-local-options-type ApplicationHandleLocalOptionsCallback =-    GLib.VariantDict ->-    IO Int32--noApplicationHandleLocalOptionsCallback :: Maybe ApplicationHandleLocalOptionsCallback-noApplicationHandleLocalOptionsCallback = Nothing--type ApplicationHandleLocalOptionsCallbackC =-    Ptr () ->                               -- object-    Ptr GLib.VariantDict ->-    Ptr () ->                               -- user_data-    IO Int32--foreign import ccall "wrapper"-    mkApplicationHandleLocalOptionsCallback :: ApplicationHandleLocalOptionsCallbackC -> IO (FunPtr ApplicationHandleLocalOptionsCallbackC)--applicationHandleLocalOptionsClosure :: ApplicationHandleLocalOptionsCallback -> IO Closure-applicationHandleLocalOptionsClosure cb = newCClosure =<< mkApplicationHandleLocalOptionsCallback wrapped-    where wrapped = applicationHandleLocalOptionsCallbackWrapper cb--applicationHandleLocalOptionsCallbackWrapper ::-    ApplicationHandleLocalOptionsCallback ->-    Ptr () ->-    Ptr GLib.VariantDict ->-    Ptr () ->-    IO Int32-applicationHandleLocalOptionsCallbackWrapper _cb _ options _ = do-    options' <- (newBoxed GLib.VariantDict) options-    result <- _cb  options'-    return result--onApplicationHandleLocalOptions :: (GObject a, MonadIO m) => a -> ApplicationHandleLocalOptionsCallback -> m SignalHandlerId-onApplicationHandleLocalOptions obj cb = liftIO $ connectApplicationHandleLocalOptions obj cb SignalConnectBefore-afterApplicationHandleLocalOptions :: (GObject a, MonadIO m) => a -> ApplicationHandleLocalOptionsCallback -> m SignalHandlerId-afterApplicationHandleLocalOptions obj cb = connectApplicationHandleLocalOptions obj cb SignalConnectAfter--connectApplicationHandleLocalOptions :: (GObject a, MonadIO m) =>-                                        a -> ApplicationHandleLocalOptionsCallback -> SignalConnectMode -> m SignalHandlerId-connectApplicationHandleLocalOptions obj cb after = liftIO $ do-    cb' <- mkApplicationHandleLocalOptionsCallback (applicationHandleLocalOptionsCallbackWrapper cb)-    connectSignalFunPtr obj "handle-local-options" cb' after---- signal Application::open-type ApplicationOpenCallback =-    [File] ->-    T.Text ->-    IO ()--noApplicationOpenCallback :: Maybe ApplicationOpenCallback-noApplicationOpenCallback = Nothing--type ApplicationOpenCallbackC =-    Ptr () ->                               -- object-    Ptr (Ptr File) ->-    Int32 ->-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkApplicationOpenCallback :: ApplicationOpenCallbackC -> IO (FunPtr ApplicationOpenCallbackC)--applicationOpenClosure :: ApplicationOpenCallback -> IO Closure-applicationOpenClosure cb = newCClosure =<< mkApplicationOpenCallback wrapped-    where wrapped = applicationOpenCallbackWrapper cb--applicationOpenCallbackWrapper ::-    ApplicationOpenCallback ->-    Ptr () ->-    Ptr (Ptr File) ->-    Int32 ->-    CString ->-    Ptr () ->-    IO ()-applicationOpenCallbackWrapper _cb _ files nFiles hint _ = do-    files' <- (unpackPtrArrayWithLength nFiles) files-    files'' <- mapM (newObject File) files'-    hint' <- cstringToText hint-    _cb  files'' hint'--onApplicationOpen :: (GObject a, MonadIO m) => a -> ApplicationOpenCallback -> m SignalHandlerId-onApplicationOpen obj cb = liftIO $ connectApplicationOpen obj cb SignalConnectBefore-afterApplicationOpen :: (GObject a, MonadIO m) => a -> ApplicationOpenCallback -> m SignalHandlerId-afterApplicationOpen obj cb = connectApplicationOpen obj cb SignalConnectAfter--connectApplicationOpen :: (GObject a, MonadIO m) =>-                          a -> ApplicationOpenCallback -> SignalConnectMode -> m SignalHandlerId-connectApplicationOpen obj cb after = liftIO $ do-    cb' <- mkApplicationOpenCallback (applicationOpenCallbackWrapper cb)-    connectSignalFunPtr obj "open" cb' after---- signal Application::shutdown-type ApplicationShutdownCallback =-    IO ()--noApplicationShutdownCallback :: Maybe ApplicationShutdownCallback-noApplicationShutdownCallback = Nothing--type ApplicationShutdownCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkApplicationShutdownCallback :: ApplicationShutdownCallbackC -> IO (FunPtr ApplicationShutdownCallbackC)--applicationShutdownClosure :: ApplicationShutdownCallback -> IO Closure-applicationShutdownClosure cb = newCClosure =<< mkApplicationShutdownCallback wrapped-    where wrapped = applicationShutdownCallbackWrapper cb--applicationShutdownCallbackWrapper ::-    ApplicationShutdownCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-applicationShutdownCallbackWrapper _cb _ _ = do-    _cb --onApplicationShutdown :: (GObject a, MonadIO m) => a -> ApplicationShutdownCallback -> m SignalHandlerId-onApplicationShutdown obj cb = liftIO $ connectApplicationShutdown obj cb SignalConnectBefore-afterApplicationShutdown :: (GObject a, MonadIO m) => a -> ApplicationShutdownCallback -> m SignalHandlerId-afterApplicationShutdown obj cb = connectApplicationShutdown obj cb SignalConnectAfter--connectApplicationShutdown :: (GObject a, MonadIO m) =>-                              a -> ApplicationShutdownCallback -> SignalConnectMode -> m SignalHandlerId-connectApplicationShutdown obj cb after = liftIO $ do-    cb' <- mkApplicationShutdownCallback (applicationShutdownCallbackWrapper cb)-    connectSignalFunPtr obj "shutdown" cb' after---- signal Application::startup-type ApplicationStartupCallback =-    IO ()--noApplicationStartupCallback :: Maybe ApplicationStartupCallback-noApplicationStartupCallback = Nothing--type ApplicationStartupCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkApplicationStartupCallback :: ApplicationStartupCallbackC -> IO (FunPtr ApplicationStartupCallbackC)--applicationStartupClosure :: ApplicationStartupCallback -> IO Closure-applicationStartupClosure cb = newCClosure =<< mkApplicationStartupCallback wrapped-    where wrapped = applicationStartupCallbackWrapper cb--applicationStartupCallbackWrapper ::-    ApplicationStartupCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-applicationStartupCallbackWrapper _cb _ _ = do-    _cb --onApplicationStartup :: (GObject a, MonadIO m) => a -> ApplicationStartupCallback -> m SignalHandlerId-onApplicationStartup obj cb = liftIO $ connectApplicationStartup obj cb SignalConnectBefore-afterApplicationStartup :: (GObject a, MonadIO m) => a -> ApplicationStartupCallback -> m SignalHandlerId-afterApplicationStartup obj cb = connectApplicationStartup obj cb SignalConnectAfter--connectApplicationStartup :: (GObject a, MonadIO m) =>-                             a -> ApplicationStartupCallback -> SignalConnectMode -> m SignalHandlerId-connectApplicationStartup obj cb after = liftIO $ do-    cb' <- mkApplicationStartupCallback (applicationStartupCallbackWrapper cb)-    connectSignalFunPtr obj "startup" cb' after---- VVV Prop "action-group"-   -- Type: TInterface "Gio" "ActionGroup"-   -- Flags: [PropertyWritable]-   -- Nullable: (Nothing,Just True)--setApplicationActionGroup :: (MonadIO m, ApplicationK o, ActionGroupK a) => o -> a -> m ()-setApplicationActionGroup obj val = liftIO $ setObjectPropertyObject obj "action-group" (Just val)--constructApplicationActionGroup :: (ActionGroupK a) => a -> IO ([Char], GValue)-constructApplicationActionGroup val = constructObjectPropertyObject "action-group" (Just val)--clearApplicationActionGroup :: (MonadIO m, ApplicationK o) => o -> m ()-clearApplicationActionGroup obj = liftIO $ setObjectPropertyObject obj "action-group" (Nothing :: Maybe ActionGroup)--data ApplicationActionGroupPropertyInfo-instance AttrInfo ApplicationActionGroupPropertyInfo where-    type AttrAllowedOps ApplicationActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ApplicationActionGroupPropertyInfo = ActionGroupK-    type AttrBaseTypeConstraint ApplicationActionGroupPropertyInfo = ApplicationK-    type AttrGetType ApplicationActionGroupPropertyInfo = ()-    type AttrLabel ApplicationActionGroupPropertyInfo = "action-group"-    attrGet _ = undefined-    attrSet _ = setApplicationActionGroup-    attrConstruct _ = constructApplicationActionGroup-    attrClear _ = clearApplicationActionGroup---- VVV Prop "application-id"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just True)--getApplicationApplicationId :: (MonadIO m, ApplicationK o) => o -> m T.Text-getApplicationApplicationId obj = liftIO $ checkUnexpectedNothing "getApplicationApplicationId" $ getObjectPropertyString obj "application-id"--setApplicationApplicationId :: (MonadIO m, ApplicationK o) => o -> T.Text -> m ()-setApplicationApplicationId obj val = liftIO $ setObjectPropertyString obj "application-id" (Just val)--constructApplicationApplicationId :: T.Text -> IO ([Char], GValue)-constructApplicationApplicationId val = constructObjectPropertyString "application-id" (Just val)--clearApplicationApplicationId :: (MonadIO m, ApplicationK o) => o -> m ()-clearApplicationApplicationId obj = liftIO $ setObjectPropertyString obj "application-id" (Nothing :: Maybe T.Text)--data ApplicationApplicationIdPropertyInfo-instance AttrInfo ApplicationApplicationIdPropertyInfo where-    type AttrAllowedOps ApplicationApplicationIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ApplicationApplicationIdPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ApplicationApplicationIdPropertyInfo = ApplicationK-    type AttrGetType ApplicationApplicationIdPropertyInfo = T.Text-    type AttrLabel ApplicationApplicationIdPropertyInfo = "application-id"-    attrGet _ = getApplicationApplicationId-    attrSet _ = setApplicationApplicationId-    attrConstruct _ = constructApplicationApplicationId-    attrClear _ = clearApplicationApplicationId---- VVV Prop "flags"-   -- Type: TInterface "Gio" "ApplicationFlags"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getApplicationFlags :: (MonadIO m, ApplicationK o) => o -> m [ApplicationFlags]-getApplicationFlags obj = liftIO $ getObjectPropertyFlags obj "flags"--setApplicationFlags :: (MonadIO m, ApplicationK o) => o -> [ApplicationFlags] -> m ()-setApplicationFlags obj val = liftIO $ setObjectPropertyFlags obj "flags" val--constructApplicationFlags :: [ApplicationFlags] -> IO ([Char], GValue)-constructApplicationFlags val = constructObjectPropertyFlags "flags" val--data ApplicationFlagsPropertyInfo-instance AttrInfo ApplicationFlagsPropertyInfo where-    type AttrAllowedOps ApplicationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ApplicationFlagsPropertyInfo = (~) [ApplicationFlags]-    type AttrBaseTypeConstraint ApplicationFlagsPropertyInfo = ApplicationK-    type AttrGetType ApplicationFlagsPropertyInfo = [ApplicationFlags]-    type AttrLabel ApplicationFlagsPropertyInfo = "flags"-    attrGet _ = getApplicationFlags-    attrSet _ = setApplicationFlags-    attrConstruct _ = constructApplicationFlags-    attrClear _ = undefined---- VVV Prop "inactivity-timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getApplicationInactivityTimeout :: (MonadIO m, ApplicationK o) => o -> m Word32-getApplicationInactivityTimeout obj = liftIO $ getObjectPropertyUInt32 obj "inactivity-timeout"--setApplicationInactivityTimeout :: (MonadIO m, ApplicationK o) => o -> Word32 -> m ()-setApplicationInactivityTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "inactivity-timeout" val--constructApplicationInactivityTimeout :: Word32 -> IO ([Char], GValue)-constructApplicationInactivityTimeout val = constructObjectPropertyUInt32 "inactivity-timeout" val--data ApplicationInactivityTimeoutPropertyInfo-instance AttrInfo ApplicationInactivityTimeoutPropertyInfo where-    type AttrAllowedOps ApplicationInactivityTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ApplicationInactivityTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint ApplicationInactivityTimeoutPropertyInfo = ApplicationK-    type AttrGetType ApplicationInactivityTimeoutPropertyInfo = Word32-    type AttrLabel ApplicationInactivityTimeoutPropertyInfo = "inactivity-timeout"-    attrGet _ = getApplicationInactivityTimeout-    attrSet _ = setApplicationInactivityTimeout-    attrConstruct _ = constructApplicationInactivityTimeout-    attrClear _ = undefined---- VVV Prop "is-busy"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getApplicationIsBusy :: (MonadIO m, ApplicationK o) => o -> m Bool-getApplicationIsBusy obj = liftIO $ getObjectPropertyBool obj "is-busy"--data ApplicationIsBusyPropertyInfo-instance AttrInfo ApplicationIsBusyPropertyInfo where-    type AttrAllowedOps ApplicationIsBusyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ApplicationIsBusyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ApplicationIsBusyPropertyInfo = ApplicationK-    type AttrGetType ApplicationIsBusyPropertyInfo = Bool-    type AttrLabel ApplicationIsBusyPropertyInfo = "is-busy"-    attrGet _ = getApplicationIsBusy-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-registered"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getApplicationIsRegistered :: (MonadIO m, ApplicationK o) => o -> m Bool-getApplicationIsRegistered obj = liftIO $ getObjectPropertyBool obj "is-registered"--data ApplicationIsRegisteredPropertyInfo-instance AttrInfo ApplicationIsRegisteredPropertyInfo where-    type AttrAllowedOps ApplicationIsRegisteredPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ApplicationIsRegisteredPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ApplicationIsRegisteredPropertyInfo = ApplicationK-    type AttrGetType ApplicationIsRegisteredPropertyInfo = Bool-    type AttrLabel ApplicationIsRegisteredPropertyInfo = "is-registered"-    attrGet _ = getApplicationIsRegistered-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-remote"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getApplicationIsRemote :: (MonadIO m, ApplicationK o) => o -> m Bool-getApplicationIsRemote obj = liftIO $ getObjectPropertyBool obj "is-remote"--data ApplicationIsRemotePropertyInfo-instance AttrInfo ApplicationIsRemotePropertyInfo where-    type AttrAllowedOps ApplicationIsRemotePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ApplicationIsRemotePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ApplicationIsRemotePropertyInfo = ApplicationK-    type AttrGetType ApplicationIsRemotePropertyInfo = Bool-    type AttrLabel ApplicationIsRemotePropertyInfo = "is-remote"-    attrGet _ = getApplicationIsRemote-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "resource-base-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just True,Just True)--getApplicationResourceBasePath :: (MonadIO m, ApplicationK o) => o -> m (Maybe T.Text)-getApplicationResourceBasePath obj = liftIO $ getObjectPropertyString obj "resource-base-path"--setApplicationResourceBasePath :: (MonadIO m, ApplicationK o) => o -> T.Text -> m ()-setApplicationResourceBasePath obj val = liftIO $ setObjectPropertyString obj "resource-base-path" (Just val)--constructApplicationResourceBasePath :: T.Text -> IO ([Char], GValue)-constructApplicationResourceBasePath val = constructObjectPropertyString "resource-base-path" (Just val)--clearApplicationResourceBasePath :: (MonadIO m, ApplicationK o) => o -> m ()-clearApplicationResourceBasePath obj = liftIO $ setObjectPropertyString obj "resource-base-path" (Nothing :: Maybe T.Text)--data ApplicationResourceBasePathPropertyInfo-instance AttrInfo ApplicationResourceBasePathPropertyInfo where-    type AttrAllowedOps ApplicationResourceBasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ApplicationResourceBasePathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ApplicationResourceBasePathPropertyInfo = ApplicationK-    type AttrGetType ApplicationResourceBasePathPropertyInfo = (Maybe T.Text)-    type AttrLabel ApplicationResourceBasePathPropertyInfo = "resource-base-path"-    attrGet _ = getApplicationResourceBasePath-    attrSet _ = setApplicationResourceBasePath-    attrConstruct _ = constructApplicationResourceBasePath-    attrClear _ = clearApplicationResourceBasePath--type instance AttributeList Application = ApplicationAttributeList-type ApplicationAttributeList = ('[ '("actionGroup", ApplicationActionGroupPropertyInfo), '("applicationId", ApplicationApplicationIdPropertyInfo), '("flags", ApplicationFlagsPropertyInfo), '("inactivityTimeout", ApplicationInactivityTimeoutPropertyInfo), '("isBusy", ApplicationIsBusyPropertyInfo), '("isRegistered", ApplicationIsRegisteredPropertyInfo), '("isRemote", ApplicationIsRemotePropertyInfo), '("resourceBasePath", ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)])--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--data ApplicationActivateSignalInfo-instance SignalInfo ApplicationActivateSignalInfo where-    type HaskellCallbackType ApplicationActivateSignalInfo = ApplicationActivateCallback-    connectSignal _ = connectApplicationActivate--data ApplicationCommandLineSignalInfo-instance SignalInfo ApplicationCommandLineSignalInfo where-    type HaskellCallbackType ApplicationCommandLineSignalInfo = ApplicationCommandLineCallback-    connectSignal _ = connectApplicationCommandLine--data ApplicationHandleLocalOptionsSignalInfo-instance SignalInfo ApplicationHandleLocalOptionsSignalInfo where-    type HaskellCallbackType ApplicationHandleLocalOptionsSignalInfo = ApplicationHandleLocalOptionsCallback-    connectSignal _ = connectApplicationHandleLocalOptions--data ApplicationOpenSignalInfo-instance SignalInfo ApplicationOpenSignalInfo where-    type HaskellCallbackType ApplicationOpenSignalInfo = ApplicationOpenCallback-    connectSignal _ = connectApplicationOpen--data ApplicationShutdownSignalInfo-instance SignalInfo ApplicationShutdownSignalInfo where-    type HaskellCallbackType ApplicationShutdownSignalInfo = ApplicationShutdownCallback-    connectSignal _ = connectApplicationShutdown--data ApplicationStartupSignalInfo-instance SignalInfo ApplicationStartupSignalInfo where-    type HaskellCallbackType ApplicationStartupSignalInfo = ApplicationStartupCallback-    connectSignal _ = connectApplicationStartup--type instance SignalList Application = ApplicationSignalList-type ApplicationSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("activate", ApplicationActivateSignalInfo), '("commandLine", ApplicationCommandLineSignalInfo), '("handleLocalOptions", ApplicationHandleLocalOptionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open", ApplicationOpenSignalInfo), '("shutdown", ApplicationShutdownSignalInfo), '("startup", ApplicationStartupSignalInfo)] :: [(Symbol, *)])---- method Application::new--- method type : Constructor--- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Application")--- throws : False--- Skip return : False--foreign import ccall "g_application_new" g_application_new :: -    CString ->                              -- application_id : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "ApplicationFlags"-    IO (Ptr Application)---applicationNew ::-    (MonadIO m) =>-    Maybe (T.Text)                          -- applicationId-    -> [ApplicationFlags]                   -- flags-    -> m Application                        -- result-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'-    checkUnexpectedReturnNULL "g_application_new" result-    result' <- (wrapObject Application) result-    freeMem maybeApplicationId-    return result'---- method Application::activate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO ()---applicationActivate ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-applicationActivate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_application_activate _obj'-    touchManagedPtr _obj-    return ()--data ApplicationActivateMethodInfo-instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationActivateMethodInfo a signature where-    overloadedMethod _ = applicationActivate---- method Application::add_main_option--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "long_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "short_name", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GLib" "OptionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg", argType = TInterface "GLib" "OptionArg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Gio" "Application"-    CString ->                              -- long_name : TBasicType TUTF8-    Int8 ->                                 -- short_name : TBasicType TInt8-    CUInt ->                                -- flags : TInterface "GLib" "OptionFlags"-    CUInt ->                                -- arg : TInterface "GLib" "OptionArg"-    CString ->                              -- description : TBasicType TUTF8-    CString ->                              -- arg_description : TBasicType TUTF8-    IO ()---applicationAddMainOption ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> T.Text                               -- longName-    -> Int8                                 -- shortName-    -> [GLib.OptionFlags]                   -- flags-    -> GLib.OptionArg                       -- arg-    -> T.Text                               -- description-    -> Maybe (T.Text)                       -- argDescription-    -> m ()                                 -- result-applicationAddMainOption _obj longName shortName flags arg description argDescription = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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 _obj' longName' shortName flags' arg' description' maybeArgDescription-    touchManagedPtr _obj-    freeMem longName'-    freeMem description'-    freeMem maybeArgDescription-    return ()--data ApplicationAddMainOptionMethodInfo-instance (signature ~ (T.Text -> Int8 -> [GLib.OptionFlags] -> GLib.OptionArg -> T.Text -> Maybe (T.Text) -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationAddMainOptionMethodInfo a signature where-    overloadedMethod _ = applicationAddMainOption---- method Application::add_main_option_entries--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    Ptr (Ptr GLib.OptionEntry) ->           -- entries : TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry")-    IO ()---applicationAddMainOptionEntries ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> [GLib.OptionEntry]                   -- entries-    -> m ()                                 -- result-applicationAddMainOptionEntries _obj entries = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let entries' = map unsafeManagedPtrGetPtr entries-    entries'' <- packZeroTerminatedPtrArray entries'-    g_application_add_main_option_entries _obj' entries''-    touchManagedPtr _obj-    mapM_ touchManagedPtr entries-    freeMem entries''-    return ()--data ApplicationAddMainOptionEntriesMethodInfo-instance (signature ~ ([GLib.OptionEntry] -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationAddMainOptionEntriesMethodInfo a signature where-    overloadedMethod _ = applicationAddMainOptionEntries---- method Application::add_option_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_add_option_group" g_application_add_option_group :: -    Ptr Application ->                      -- _obj : TInterface "Gio" "Application"-    Ptr GLib.OptionGroup ->                 -- group : TInterface "GLib" "OptionGroup"-    IO ()---applicationAddOptionGroup ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> GLib.OptionGroup                     -- group-    -> m ()                                 -- result-applicationAddOptionGroup _obj group = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let group' = unsafeManagedPtrGetPtr group-    g_application_add_option_group _obj' group'-    touchManagedPtr _obj-    touchManagedPtr group-    return ()--data ApplicationAddOptionGroupMethodInfo-instance (signature ~ (GLib.OptionGroup -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationAddOptionGroupMethodInfo a signature where-    overloadedMethod _ = applicationAddOptionGroup---- method Application::bind_busy_property--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    Ptr GObject.Object ->                   -- object : TInterface "GObject" "Object"-    CString ->                              -- property : TBasicType TUTF8-    IO ()---applicationBindBusyProperty ::-    (MonadIO m, ApplicationK a, GObject.ObjectK b) =>-    a                                       -- _obj-    -> b                                    -- object-    -> T.Text                               -- property-    -> m ()                                 -- result-applicationBindBusyProperty _obj object property = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let object' = unsafeManagedPtrCastPtr object-    property' <- textToCString property-    g_application_bind_busy_property _obj' object' property'-    touchManagedPtr _obj-    touchManagedPtr object-    freeMem property'-    return ()--data ApplicationBindBusyPropertyMethodInfo-instance (signature ~ (b -> T.Text -> m ()), MonadIO m, ApplicationK a, GObject.ObjectK b) => MethodInfo ApplicationBindBusyPropertyMethodInfo a signature where-    overloadedMethod _ = applicationBindBusyProperty---- method Application::get_application_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO CString---applicationGetApplicationId ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-applicationGetApplicationId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_get_application_id _obj'-    checkUnexpectedReturnNULL "g_application_get_application_id" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ApplicationGetApplicationIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetApplicationIdMethodInfo a signature where-    overloadedMethod _ = applicationGetApplicationId---- method Application::get_dbus_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusConnection")--- throws : False--- Skip return : False--foreign import ccall "g_application_get_dbus_connection" g_application_get_dbus_connection :: -    Ptr Application ->                      -- _obj : TInterface "Gio" "Application"-    IO (Ptr DBusConnection)---applicationGetDbusConnection ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m DBusConnection                     -- result-applicationGetDbusConnection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_get_dbus_connection _obj'-    checkUnexpectedReturnNULL "g_application_get_dbus_connection" result-    result' <- (newObject DBusConnection) result-    touchManagedPtr _obj-    return result'--data ApplicationGetDbusConnectionMethodInfo-instance (signature ~ (m DBusConnection), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetDbusConnectionMethodInfo a signature where-    overloadedMethod _ = applicationGetDbusConnection---- method Application::get_dbus_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO CString---applicationGetDbusObjectPath ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-applicationGetDbusObjectPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_get_dbus_object_path _obj'-    checkUnexpectedReturnNULL "g_application_get_dbus_object_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ApplicationGetDbusObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetDbusObjectPathMethodInfo a signature where-    overloadedMethod _ = applicationGetDbusObjectPath---- method Application::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "ApplicationFlags")--- throws : False--- Skip return : False--foreign import ccall "g_application_get_flags" g_application_get_flags :: -    Ptr Application ->                      -- _obj : TInterface "Gio" "Application"-    IO CUInt---applicationGetFlags ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m [ApplicationFlags]                 -- result-applicationGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data ApplicationGetFlagsMethodInfo-instance (signature ~ (m [ApplicationFlags]), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetFlagsMethodInfo a signature where-    overloadedMethod _ = applicationGetFlags---- method Application::get_inactivity_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO Word32---applicationGetInactivityTimeout ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-applicationGetInactivityTimeout _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_get_inactivity_timeout _obj'-    touchManagedPtr _obj-    return result--data ApplicationGetInactivityTimeoutMethodInfo-instance (signature ~ (m Word32), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetInactivityTimeoutMethodInfo a signature where-    overloadedMethod _ = applicationGetInactivityTimeout---- method Application::get_is_busy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO CInt---applicationGetIsBusy ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-applicationGetIsBusy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_get_is_busy _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data ApplicationGetIsBusyMethodInfo-instance (signature ~ (m Bool), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetIsBusyMethodInfo a signature where-    overloadedMethod _ = applicationGetIsBusy---- method Application::get_is_registered--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO CInt---applicationGetIsRegistered ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-applicationGetIsRegistered _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_get_is_registered _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data ApplicationGetIsRegisteredMethodInfo-instance (signature ~ (m Bool), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetIsRegisteredMethodInfo a signature where-    overloadedMethod _ = applicationGetIsRegistered---- method Application::get_is_remote--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO CInt---applicationGetIsRemote ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-applicationGetIsRemote _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_get_is_remote _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data ApplicationGetIsRemoteMethodInfo-instance (signature ~ (m Bool), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetIsRemoteMethodInfo a signature where-    overloadedMethod _ = applicationGetIsRemote---- method Application::get_resource_base_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO CString---applicationGetResourceBasePath ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-applicationGetResourceBasePath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_get_resource_base_path _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ApplicationGetResourceBasePathMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetResourceBasePathMethodInfo a signature where-    overloadedMethod _ = applicationGetResourceBasePath---- method Application::hold--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO ()---applicationHold ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-applicationHold _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_application_hold _obj'-    touchManagedPtr _obj-    return ()--data ApplicationHoldMethodInfo-instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationHoldMethodInfo a signature where-    overloadedMethod _ = applicationHold---- method Application::mark_busy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO ()---applicationMarkBusy ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-applicationMarkBusy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_application_mark_busy _obj'-    touchManagedPtr _obj-    return ()--data ApplicationMarkBusyMethodInfo-instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationMarkBusyMethodInfo a signature where-    overloadedMethod _ = applicationMarkBusy---- method Application::open--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TCArray False (-1) 2 (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_files", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hint", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_files", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    Ptr (Ptr File) ->                       -- files : TCArray False (-1) 2 (TInterface "Gio" "File")-    Int32 ->                                -- n_files : TBasicType TInt-    CString ->                              -- hint : TBasicType TUTF8-    IO ()---applicationOpen ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> [File]                               -- files-    -> T.Text                               -- hint-    -> m ()                                 -- result-applicationOpen _obj files hint = liftIO $ do-    let nFiles = fromIntegral $ length files-    let _obj' = unsafeManagedPtrCastPtr _obj-    let files' = map unsafeManagedPtrCastPtr files-    files'' <- packPtrArray files'-    hint' <- textToCString hint-    g_application_open _obj' files'' nFiles hint'-    touchManagedPtr _obj-    mapM_ touchManagedPtr files-    freeMem files''-    freeMem hint'-    return ()--data ApplicationOpenMethodInfo-instance (signature ~ ([File] -> T.Text -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationOpenMethodInfo a signature where-    overloadedMethod _ = applicationOpen---- method Application::quit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO ()---applicationQuit ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-applicationQuit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_application_quit _obj'-    touchManagedPtr _obj-    return ()--data ApplicationQuitMethodInfo-instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationQuitMethodInfo a signature where-    overloadedMethod _ = applicationQuit---- method Application::register--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Gio" "Application"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---applicationRegister ::-    (MonadIO m, ApplicationK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-applicationRegister _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_application_register _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data ApplicationRegisterMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ApplicationK a, CancellableK b) => MethodInfo ApplicationRegisterMethodInfo a signature where-    overloadedMethod _ = applicationRegister---- method Application::release--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO ()---applicationRelease ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-applicationRelease _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_application_release _obj'-    touchManagedPtr _obj-    return ()--data ApplicationReleaseMethodInfo-instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationReleaseMethodInfo a signature where-    overloadedMethod _ = applicationRelease---- method Application::run--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    Int32 ->                                -- argc : TBasicType TInt-    Ptr CString ->                          -- argv : TCArray False (-1) 1 (TBasicType TUTF8)-    IO Int32---applicationRun ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> Maybe ([T.Text])                     -- argv-    -> m Int32                              -- result-applicationRun _obj argv = liftIO $ do-    let argc = case argv of-            Nothing -> 0-            Just jArgv -> fromIntegral $ length jArgv-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeArgv <- case argv of-        Nothing -> return nullPtr-        Just jArgv -> do-            jArgv' <- packUTF8CArray jArgv-            return jArgv'-    result <- g_application_run _obj' argc maybeArgv-    touchManagedPtr _obj-    (mapCArrayWithLength argc) freeMem maybeArgv-    freeMem maybeArgv-    return result--data ApplicationRunMethodInfo-instance (signature ~ (Maybe ([T.Text]) -> m Int32), MonadIO m, ApplicationK a) => MethodInfo ApplicationRunMethodInfo a signature where-    overloadedMethod _ = applicationRun---- method Application::send_notification--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notification", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    CString ->                              -- id : TBasicType TUTF8-    Ptr Notification ->                     -- notification : TInterface "Gio" "Notification"-    IO ()---applicationSendNotification ::-    (MonadIO m, ApplicationK a, NotificationK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- id-    -> b                                    -- notification-    -> m ()                                 -- result-applicationSendNotification _obj id notification = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeId <- case id of-        Nothing -> return nullPtr-        Just jId -> do-            jId' <- textToCString jId-            return jId'-    let notification' = unsafeManagedPtrCastPtr notification-    g_application_send_notification _obj' maybeId notification'-    touchManagedPtr _obj-    touchManagedPtr notification-    freeMem maybeId-    return ()--data ApplicationSendNotificationMethodInfo-instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, ApplicationK a, NotificationK b) => MethodInfo ApplicationSendNotificationMethodInfo a signature where-    overloadedMethod _ = applicationSendNotification---- method Application::set_action_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Gio" "Application"-    Ptr ActionGroup ->                      -- action_group : TInterface "Gio" "ActionGroup"-    IO ()--{-# DEPRECATED applicationSetActionGroup ["(Since version 2.32)","Use the #GActionMap interface instead.  Never ever","mix use of this API with use of #GActionMap 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 #GActionMap instead."]#-}-applicationSetActionGroup ::-    (MonadIO m, ApplicationK a, ActionGroupK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- actionGroup-    -> m ()                                 -- result-applicationSetActionGroup _obj actionGroup = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeActionGroup <- case actionGroup of-        Nothing -> return nullPtr-        Just jActionGroup -> do-            let jActionGroup' = unsafeManagedPtrCastPtr jActionGroup-            return jActionGroup'-    g_application_set_action_group _obj' maybeActionGroup-    touchManagedPtr _obj-    whenJust actionGroup touchManagedPtr-    return ()--data ApplicationSetActionGroupMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ApplicationK a, ActionGroupK b) => MethodInfo ApplicationSetActionGroupMethodInfo a signature where-    overloadedMethod _ = applicationSetActionGroup---- method Application::set_application_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Gio" "Application"-    CString ->                              -- application_id : TBasicType TUTF8-    IO ()---applicationSetApplicationId ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- applicationId-    -> m ()                                 -- result-applicationSetApplicationId _obj applicationId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeApplicationId <- case applicationId of-        Nothing -> return nullPtr-        Just jApplicationId -> do-            jApplicationId' <- textToCString jApplicationId-            return jApplicationId'-    g_application_set_application_id _obj' maybeApplicationId-    touchManagedPtr _obj-    freeMem maybeApplicationId-    return ()--data ApplicationSetApplicationIdMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetApplicationIdMethodInfo a signature where-    overloadedMethod _ = applicationSetApplicationId---- method Application::set_default--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO ()---applicationSetDefault ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-applicationSetDefault _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_application_set_default _obj'-    touchManagedPtr _obj-    return ()--data ApplicationSetDefaultMethodInfo-instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetDefaultMethodInfo a signature where-    overloadedMethod _ = applicationSetDefault---- method Application::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    CUInt ->                                -- flags : TInterface "Gio" "ApplicationFlags"-    IO ()---applicationSetFlags ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> [ApplicationFlags]                   -- flags-    -> m ()                                 -- result-applicationSetFlags _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    g_application_set_flags _obj' flags'-    touchManagedPtr _obj-    return ()--data ApplicationSetFlagsMethodInfo-instance (signature ~ ([ApplicationFlags] -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetFlagsMethodInfo a signature where-    overloadedMethod _ = applicationSetFlags---- method Application::set_inactivity_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inactivity_timeout", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    Word32 ->                               -- inactivity_timeout : TBasicType TUInt-    IO ()---applicationSetInactivityTimeout ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> Word32                               -- inactivityTimeout-    -> m ()                                 -- result-applicationSetInactivityTimeout _obj inactivityTimeout = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_application_set_inactivity_timeout _obj' inactivityTimeout-    touchManagedPtr _obj-    return ()--data ApplicationSetInactivityTimeoutMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetInactivityTimeoutMethodInfo a signature where-    overloadedMethod _ = applicationSetInactivityTimeout---- method Application::set_resource_base_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Gio" "Application"-    CString ->                              -- resource_path : TBasicType TUTF8-    IO ()---applicationSetResourceBasePath ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- resourcePath-    -> m ()                                 -- result-applicationSetResourceBasePath _obj resourcePath = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeResourcePath <- case resourcePath of-        Nothing -> return nullPtr-        Just jResourcePath -> do-            jResourcePath' <- textToCString jResourcePath-            return jResourcePath'-    g_application_set_resource_base_path _obj' maybeResourcePath-    touchManagedPtr _obj-    freeMem maybeResourcePath-    return ()--data ApplicationSetResourceBasePathMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetResourceBasePathMethodInfo a signature where-    overloadedMethod _ = applicationSetResourceBasePath---- method Application::unbind_busy_property--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    Ptr GObject.Object ->                   -- object : TInterface "GObject" "Object"-    CString ->                              -- property : TBasicType TUTF8-    IO ()---applicationUnbindBusyProperty ::-    (MonadIO m, ApplicationK a, GObject.ObjectK b) =>-    a                                       -- _obj-    -> b                                    -- object-    -> T.Text                               -- property-    -> m ()                                 -- result-applicationUnbindBusyProperty _obj object property = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let object' = unsafeManagedPtrCastPtr object-    property' <- textToCString property-    g_application_unbind_busy_property _obj' object' property'-    touchManagedPtr _obj-    touchManagedPtr object-    freeMem property'-    return ()--data ApplicationUnbindBusyPropertyMethodInfo-instance (signature ~ (b -> T.Text -> m ()), MonadIO m, ApplicationK a, GObject.ObjectK b) => MethodInfo ApplicationUnbindBusyPropertyMethodInfo a signature where-    overloadedMethod _ = applicationUnbindBusyProperty---- method Application::unmark_busy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    IO ()---applicationUnmarkBusy ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-applicationUnmarkBusy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_application_unmark_busy _obj'-    touchManagedPtr _obj-    return ()--data ApplicationUnmarkBusyMethodInfo-instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationUnmarkBusyMethodInfo a signature where-    overloadedMethod _ = applicationUnmarkBusy---- method Application::withdraw_notification--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Application"-    CString ->                              -- id : TBasicType TUTF8-    IO ()---applicationWithdrawNotification ::-    (MonadIO m, ApplicationK a) =>-    a                                       -- _obj-    -> T.Text                               -- id-    -> m ()                                 -- result-applicationWithdrawNotification _obj id = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    id' <- textToCString id-    g_application_withdraw_notification _obj' id'-    touchManagedPtr _obj-    freeMem id'-    return ()--data ApplicationWithdrawNotificationMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationWithdrawNotificationMethodInfo a signature where-    overloadedMethod _ = applicationWithdrawNotification---- method Application::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "Application")--- throws : False--- Skip return : False--foreign import ccall "g_application_get_default" g_application_get_default :: -    IO (Ptr Application)---applicationGetDefault ::-    (MonadIO m) =>-    m Application                           -- result-applicationGetDefault  = liftIO $ do-    result <- g_application_get_default-    checkUnexpectedReturnNULL "g_application_get_default" result-    result' <- (newObject Application) result-    return result'---- method Application::id_is_valid--- method type : MemberFunction--- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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---applicationIdIsValid ::-    (MonadIO m) =>-    T.Text                                  -- applicationId-    -> m Bool                               -- result-applicationIdIsValid applicationId = liftIO $ do-    applicationId' <- textToCString applicationId-    result <- g_application_id_is_valid applicationId'-    let result' = (/= 0) result-    freeMem applicationId'-    return result'--
− GI/Gio/Objects/Application.hs-boot 
@@ -1,58 +0,0 @@-module GI.Gio.Objects.Application where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Application = Application (ForeignPtr Application)-instance GObject Application where-class GObject o => ApplicationK o-instance (GObject o, IsDescendantOf Application o) => ApplicationK o-data ApplicationActionGroupPropertyInfo-data ApplicationApplicationIdPropertyInfo-data ApplicationFlagsPropertyInfo-data ApplicationInactivityTimeoutPropertyInfo-data ApplicationIsBusyPropertyInfo-data ApplicationIsRegisteredPropertyInfo-data ApplicationIsRemotePropertyInfo-data ApplicationResourceBasePathPropertyInfo-data ApplicationActivateSignalInfo-data ApplicationCommandLineSignalInfo-data ApplicationHandleLocalOptionsSignalInfo-data ApplicationOpenSignalInfo-data ApplicationShutdownSignalInfo-data ApplicationStartupSignalInfo-data ApplicationActivateMethodInfo-data ApplicationAddMainOptionMethodInfo-data ApplicationAddMainOptionEntriesMethodInfo-data ApplicationAddOptionGroupMethodInfo-data ApplicationBindBusyPropertyMethodInfo-data ApplicationGetApplicationIdMethodInfo-data ApplicationGetDbusConnectionMethodInfo-data ApplicationGetDbusObjectPathMethodInfo-data ApplicationGetFlagsMethodInfo-data ApplicationGetInactivityTimeoutMethodInfo-data ApplicationGetIsBusyMethodInfo-data ApplicationGetIsRegisteredMethodInfo-data ApplicationGetIsRemoteMethodInfo-data ApplicationGetResourceBasePathMethodInfo-data ApplicationHoldMethodInfo-data ApplicationMarkBusyMethodInfo-data ApplicationOpenMethodInfo-data ApplicationQuitMethodInfo-data ApplicationRegisterMethodInfo-data ApplicationReleaseMethodInfo-data ApplicationRunMethodInfo-data ApplicationSendNotificationMethodInfo-data ApplicationSetActionGroupMethodInfo-data ApplicationSetApplicationIdMethodInfo-data ApplicationSetDefaultMethodInfo-data ApplicationSetFlagsMethodInfo-data ApplicationSetInactivityTimeoutMethodInfo-data ApplicationSetResourceBasePathMethodInfo-data ApplicationUnbindBusyPropertyMethodInfo-data ApplicationUnmarkBusyMethodInfo-data ApplicationWithdrawNotificationMethodInfo
− GI/Gio/Objects/ApplicationCommandLine.hs 
@@ -1,612 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.ApplicationCommandLine-    ( ---- * Exported types-    ApplicationCommandLine(..)              ,-    ApplicationCommandLineK                 ,-    toApplicationCommandLine                ,-    noApplicationCommandLine                ,--- -- * Methods--- ** applicationCommandLineCreateFileForArg-    ApplicationCommandLineCreateFileForArgMethodInfo,-    applicationCommandLineCreateFileForArg  ,----- ** applicationCommandLineGetArguments-    ApplicationCommandLineGetArgumentsMethodInfo,-    applicationCommandLineGetArguments      ,----- ** applicationCommandLineGetCwd-    ApplicationCommandLineGetCwdMethodInfo  ,-    applicationCommandLineGetCwd            ,----- ** applicationCommandLineGetEnviron-    ApplicationCommandLineGetEnvironMethodInfo,-    applicationCommandLineGetEnviron        ,----- ** applicationCommandLineGetExitStatus-    ApplicationCommandLineGetExitStatusMethodInfo,-    applicationCommandLineGetExitStatus     ,----- ** applicationCommandLineGetIsRemote-    ApplicationCommandLineGetIsRemoteMethodInfo,-    applicationCommandLineGetIsRemote       ,----- ** applicationCommandLineGetOptionsDict-    ApplicationCommandLineGetOptionsDictMethodInfo,-    applicationCommandLineGetOptionsDict    ,----- ** applicationCommandLineGetPlatformData-    ApplicationCommandLineGetPlatformDataMethodInfo,-    applicationCommandLineGetPlatformData   ,----- ** applicationCommandLineGetStdin-    ApplicationCommandLineGetStdinMethodInfo,-    applicationCommandLineGetStdin          ,----- ** applicationCommandLineGetenv-    ApplicationCommandLineGetenvMethodInfo  ,-    applicationCommandLineGetenv            ,----- ** applicationCommandLineSetExitStatus-    ApplicationCommandLineSetExitStatusMethodInfo,-    applicationCommandLineSetExitStatus     ,----- -- * Properties--- ** Arguments-    ApplicationCommandLineArgumentsPropertyInfo,-    applicationCommandLineArguments         ,-    constructApplicationCommandLineArguments,----- ** IsRemote-    ApplicationCommandLineIsRemotePropertyInfo,-    applicationCommandLineIsRemote          ,-    getApplicationCommandLineIsRemote       ,----- ** Options-    ApplicationCommandLineOptionsPropertyInfo,-    applicationCommandLineOptions           ,-    constructApplicationCommandLineOptions  ,----- ** PlatformData-    ApplicationCommandLinePlatformDataPropertyInfo,-    applicationCommandLinePlatformData      ,-    constructApplicationCommandLinePlatformData,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype ApplicationCommandLine = ApplicationCommandLine (ForeignPtr ApplicationCommandLine)-foreign import ccall "g_application_command_line_get_type"-    c_g_application_command_line_get_type :: IO GType--type instance ParentTypes ApplicationCommandLine = ApplicationCommandLineParentTypes-type ApplicationCommandLineParentTypes = '[GObject.Object]--instance GObject ApplicationCommandLine where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_application_command_line_get_type-    --class GObject o => ApplicationCommandLineK o-instance (GObject o, IsDescendantOf ApplicationCommandLine o) => ApplicationCommandLineK o--toApplicationCommandLine :: ApplicationCommandLineK o => o -> IO ApplicationCommandLine-toApplicationCommandLine = unsafeCastTo ApplicationCommandLine--noApplicationCommandLine :: Maybe ApplicationCommandLine-noApplicationCommandLine = Nothing--type family ResolveApplicationCommandLineMethod (t :: Symbol) (o :: *) :: * where-    ResolveApplicationCommandLineMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveApplicationCommandLineMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveApplicationCommandLineMethod "createFileForArg" o = ApplicationCommandLineCreateFileForArgMethodInfo-    ResolveApplicationCommandLineMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveApplicationCommandLineMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveApplicationCommandLineMethod "getenv" o = ApplicationCommandLineGetenvMethodInfo-    ResolveApplicationCommandLineMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveApplicationCommandLineMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveApplicationCommandLineMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveApplicationCommandLineMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveApplicationCommandLineMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveApplicationCommandLineMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveApplicationCommandLineMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveApplicationCommandLineMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveApplicationCommandLineMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveApplicationCommandLineMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveApplicationCommandLineMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveApplicationCommandLineMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveApplicationCommandLineMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveApplicationCommandLineMethod "getArguments" o = ApplicationCommandLineGetArgumentsMethodInfo-    ResolveApplicationCommandLineMethod "getCwd" o = ApplicationCommandLineGetCwdMethodInfo-    ResolveApplicationCommandLineMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo-    ResolveApplicationCommandLineMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveApplicationCommandLineMethod "getStdin" o = ApplicationCommandLineGetStdinMethodInfo-    ResolveApplicationCommandLineMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveApplicationCommandLineMethod "setExitStatus" o = ApplicationCommandLineSetExitStatusMethodInfo-    ResolveApplicationCommandLineMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveApplicationCommandLineMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveApplicationCommandLineMethod t ApplicationCommandLine, MethodInfo info ApplicationCommandLine p) => IsLabelProxy t (ApplicationCommandLine -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveApplicationCommandLineMethod t ApplicationCommandLine, MethodInfo info ApplicationCommandLine p) => IsLabel t (ApplicationCommandLine -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "arguments"-   -- Type: TVariant-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructApplicationCommandLineArguments :: GVariant -> IO ([Char], GValue)-constructApplicationCommandLineArguments val = constructObjectPropertyVariant "arguments" (Just val)--data ApplicationCommandLineArgumentsPropertyInfo-instance AttrInfo ApplicationCommandLineArgumentsPropertyInfo where-    type AttrAllowedOps ApplicationCommandLineArgumentsPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = (~) GVariant-    type AttrBaseTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = ApplicationCommandLineK-    type AttrGetType ApplicationCommandLineArgumentsPropertyInfo = ()-    type AttrLabel ApplicationCommandLineArgumentsPropertyInfo = "arguments"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructApplicationCommandLineArguments-    attrClear _ = undefined---- VVV Prop "is-remote"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getApplicationCommandLineIsRemote :: (MonadIO m, ApplicationCommandLineK o) => o -> m Bool-getApplicationCommandLineIsRemote obj = liftIO $ getObjectPropertyBool obj "is-remote"--data ApplicationCommandLineIsRemotePropertyInfo-instance AttrInfo ApplicationCommandLineIsRemotePropertyInfo where-    type AttrAllowedOps ApplicationCommandLineIsRemotePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = ApplicationCommandLineK-    type AttrGetType ApplicationCommandLineIsRemotePropertyInfo = Bool-    type AttrLabel ApplicationCommandLineIsRemotePropertyInfo = "is-remote"-    attrGet _ = getApplicationCommandLineIsRemote-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "options"-   -- Type: TVariant-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructApplicationCommandLineOptions :: GVariant -> IO ([Char], GValue)-constructApplicationCommandLineOptions val = constructObjectPropertyVariant "options" (Just val)--data ApplicationCommandLineOptionsPropertyInfo-instance AttrInfo ApplicationCommandLineOptionsPropertyInfo where-    type AttrAllowedOps ApplicationCommandLineOptionsPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ApplicationCommandLineOptionsPropertyInfo = (~) GVariant-    type AttrBaseTypeConstraint ApplicationCommandLineOptionsPropertyInfo = ApplicationCommandLineK-    type AttrGetType ApplicationCommandLineOptionsPropertyInfo = ()-    type AttrLabel ApplicationCommandLineOptionsPropertyInfo = "options"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructApplicationCommandLineOptions-    attrClear _ = undefined---- VVV Prop "platform-data"-   -- Type: TVariant-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructApplicationCommandLinePlatformData :: GVariant -> IO ([Char], GValue)-constructApplicationCommandLinePlatformData val = constructObjectPropertyVariant "platform-data" (Just val)--data ApplicationCommandLinePlatformDataPropertyInfo-instance AttrInfo ApplicationCommandLinePlatformDataPropertyInfo where-    type AttrAllowedOps ApplicationCommandLinePlatformDataPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = (~) GVariant-    type AttrBaseTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = ApplicationCommandLineK-    type AttrGetType ApplicationCommandLinePlatformDataPropertyInfo = ()-    type AttrLabel ApplicationCommandLinePlatformDataPropertyInfo = "platform-data"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructApplicationCommandLinePlatformData-    attrClear _ = undefined--type instance AttributeList ApplicationCommandLine = ApplicationCommandLineAttributeList-type ApplicationCommandLineAttributeList = ('[ '("arguments", ApplicationCommandLineArgumentsPropertyInfo), '("isRemote", ApplicationCommandLineIsRemotePropertyInfo), '("options", ApplicationCommandLineOptionsPropertyInfo), '("platformData", ApplicationCommandLinePlatformDataPropertyInfo)] :: [(Symbol, *)])--applicationCommandLineArguments :: AttrLabelProxy "arguments"-applicationCommandLineArguments = AttrLabelProxy--applicationCommandLineIsRemote :: AttrLabelProxy "isRemote"-applicationCommandLineIsRemote = AttrLabelProxy--applicationCommandLineOptions :: AttrLabelProxy "options"-applicationCommandLineOptions = AttrLabelProxy--applicationCommandLinePlatformData :: AttrLabelProxy "platformData"-applicationCommandLinePlatformData = AttrLabelProxy--type instance SignalList ApplicationCommandLine = ApplicationCommandLineSignalList-type ApplicationCommandLineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ApplicationCommandLine::create_file_for_arg--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->           -- _obj : TInterface "Gio" "ApplicationCommandLine"-    CString ->                              -- arg : TBasicType TUTF8-    IO (Ptr File)---applicationCommandLineCreateFileForArg ::-    (MonadIO m, ApplicationCommandLineK a) =>-    a                                       -- _obj-    -> T.Text                               -- arg-    -> m File                               -- result-applicationCommandLineCreateFileForArg _obj arg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    arg' <- textToCString arg-    result <- g_application_command_line_create_file_for_arg _obj' arg'-    checkUnexpectedReturnNULL "g_application_command_line_create_file_for_arg" result-    result' <- (wrapObject File) result-    touchManagedPtr _obj-    freeMem arg'-    return result'--data ApplicationCommandLineCreateFileForArgMethodInfo-instance (signature ~ (T.Text -> m File), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineCreateFileForArgMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineCreateFileForArg---- method ApplicationCommandLine::get_arguments--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TCArray False (-1) 1 (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_application_command_line_get_arguments" g_application_command_line_get_arguments :: -    Ptr ApplicationCommandLine ->           -- _obj : TInterface "Gio" "ApplicationCommandLine"-    Ptr Int32 ->                            -- argc : TBasicType TInt-    IO (Ptr CString)---applicationCommandLineGetArguments ::-    (MonadIO m, ApplicationCommandLineK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-applicationCommandLineGetArguments _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    argc <- allocMem :: IO (Ptr Int32)-    result <- g_application_command_line_get_arguments _obj' argc-    argc' <- peek argc-    checkUnexpectedReturnNULL "g_application_command_line_get_arguments" result-    result' <- (unpackUTF8CArrayWithLength argc') result-    (mapCArrayWithLength argc') freeMem result-    freeMem result-    touchManagedPtr _obj-    freeMem argc-    return result'--data ApplicationCommandLineGetArgumentsMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetArgumentsMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetArguments---- method ApplicationCommandLine::get_cwd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, 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_get_cwd" g_application_command_line_get_cwd :: -    Ptr ApplicationCommandLine ->           -- _obj : TInterface "Gio" "ApplicationCommandLine"-    IO CString---applicationCommandLineGetCwd ::-    (MonadIO m, ApplicationCommandLineK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-applicationCommandLineGetCwd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_command_line_get_cwd _obj'-    checkUnexpectedReturnNULL "g_application_command_line_get_cwd" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ApplicationCommandLineGetCwdMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetCwdMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetCwd---- method ApplicationCommandLine::get_environ--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, 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_application_command_line_get_environ" g_application_command_line_get_environ :: -    Ptr ApplicationCommandLine ->           -- _obj : TInterface "Gio" "ApplicationCommandLine"-    IO (Ptr CString)---applicationCommandLineGetEnviron ::-    (MonadIO m, ApplicationCommandLineK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-applicationCommandLineGetEnviron _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_command_line_get_environ _obj'-    checkUnexpectedReturnNULL "g_application_command_line_get_environ" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'--data ApplicationCommandLineGetEnvironMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetEnvironMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetEnviron---- method ApplicationCommandLine::get_exit_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, 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 ->           -- _obj : TInterface "Gio" "ApplicationCommandLine"-    IO Int32---applicationCommandLineGetExitStatus ::-    (MonadIO m, ApplicationCommandLineK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-applicationCommandLineGetExitStatus _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_command_line_get_exit_status _obj'-    touchManagedPtr _obj-    return result--data ApplicationCommandLineGetExitStatusMethodInfo-instance (signature ~ (m Int32), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetExitStatusMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetExitStatus---- method ApplicationCommandLine::get_is_remote--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, 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 ->           -- _obj : TInterface "Gio" "ApplicationCommandLine"-    IO CInt---applicationCommandLineGetIsRemote ::-    (MonadIO m, ApplicationCommandLineK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-applicationCommandLineGetIsRemote _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_command_line_get_is_remote _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data ApplicationCommandLineGetIsRemoteMethodInfo-instance (signature ~ (m Bool), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetIsRemoteMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetIsRemote---- method ApplicationCommandLine::get_options_dict--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "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 ->           -- _obj : TInterface "Gio" "ApplicationCommandLine"-    IO (Ptr GLib.VariantDict)---applicationCommandLineGetOptionsDict ::-    (MonadIO m, ApplicationCommandLineK a) =>-    a                                       -- _obj-    -> m GLib.VariantDict                   -- result-applicationCommandLineGetOptionsDict _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_command_line_get_options_dict _obj'-    checkUnexpectedReturnNULL "g_application_command_line_get_options_dict" result-    result' <- (newBoxed GLib.VariantDict) result-    touchManagedPtr _obj-    return result'--data ApplicationCommandLineGetOptionsDictMethodInfo-instance (signature ~ (m GLib.VariantDict), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetOptionsDictMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetOptionsDict---- method ApplicationCommandLine::get_platform_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, 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 ->           -- _obj : TInterface "Gio" "ApplicationCommandLine"-    IO (Ptr GVariant)---applicationCommandLineGetPlatformData ::-    (MonadIO m, ApplicationCommandLineK a) =>-    a                                       -- _obj-    -> m (Maybe GVariant)                   -- result-applicationCommandLineGetPlatformData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_command_line_get_platform_data _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- wrapGVariantPtr result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ApplicationCommandLineGetPlatformDataMethodInfo-instance (signature ~ (m (Maybe GVariant)), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetPlatformDataMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetPlatformData---- method ApplicationCommandLine::get_stdin--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : False--- Skip return : False--foreign import ccall "g_application_command_line_get_stdin" g_application_command_line_get_stdin :: -    Ptr ApplicationCommandLine ->           -- _obj : TInterface "Gio" "ApplicationCommandLine"-    IO (Ptr InputStream)---applicationCommandLineGetStdin ::-    (MonadIO m, ApplicationCommandLineK a) =>-    a                                       -- _obj-    -> m InputStream                        -- result-applicationCommandLineGetStdin _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_application_command_line_get_stdin _obj'-    checkUnexpectedReturnNULL "g_application_command_line_get_stdin" result-    result' <- (wrapObject InputStream) result-    touchManagedPtr _obj-    return result'--data ApplicationCommandLineGetStdinMethodInfo-instance (signature ~ (m InputStream), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetStdinMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetStdin---- method ApplicationCommandLine::getenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->           -- _obj : TInterface "Gio" "ApplicationCommandLine"-    CString ->                              -- name : TBasicType TUTF8-    IO CString---applicationCommandLineGetenv ::-    (MonadIO m, ApplicationCommandLineK a) =>-    a                                       -- _obj-    -> T.Text                               -- name-    -> m T.Text                             -- result-applicationCommandLineGetenv _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    result <- g_application_command_line_getenv _obj' name'-    checkUnexpectedReturnNULL "g_application_command_line_getenv" result-    result' <- cstringToText result-    touchManagedPtr _obj-    freeMem name'-    return result'--data ApplicationCommandLineGetenvMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetenvMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetenv---- method ApplicationCommandLine::set_exit_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exit_status", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->           -- _obj : TInterface "Gio" "ApplicationCommandLine"-    Int32 ->                                -- exit_status : TBasicType TInt-    IO ()---applicationCommandLineSetExitStatus ::-    (MonadIO m, ApplicationCommandLineK a) =>-    a                                       -- _obj-    -> Int32                                -- exitStatus-    -> m ()                                 -- result-applicationCommandLineSetExitStatus _obj exitStatus = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_application_command_line_set_exit_status _obj' exitStatus-    touchManagedPtr _obj-    return ()--data ApplicationCommandLineSetExitStatusMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineSetExitStatusMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineSetExitStatus--
− GI/Gio/Objects/ApplicationCommandLine.hs-boot 
@@ -1,28 +0,0 @@-module GI.Gio.Objects.ApplicationCommandLine where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ApplicationCommandLine = ApplicationCommandLine (ForeignPtr ApplicationCommandLine)-instance GObject ApplicationCommandLine where-class GObject o => ApplicationCommandLineK o-instance (GObject o, IsDescendantOf ApplicationCommandLine o) => ApplicationCommandLineK o-data ApplicationCommandLineArgumentsPropertyInfo-data ApplicationCommandLineIsRemotePropertyInfo-data ApplicationCommandLineOptionsPropertyInfo-data ApplicationCommandLinePlatformDataPropertyInfo-data ApplicationCommandLineCreateFileForArgMethodInfo-data ApplicationCommandLineGetArgumentsMethodInfo-data ApplicationCommandLineGetCwdMethodInfo-data ApplicationCommandLineGetEnvironMethodInfo-data ApplicationCommandLineGetExitStatusMethodInfo-data ApplicationCommandLineGetIsRemoteMethodInfo-data ApplicationCommandLineGetOptionsDictMethodInfo-data ApplicationCommandLineGetPlatformDataMethodInfo-data ApplicationCommandLineGetStdinMethodInfo-data ApplicationCommandLineGetenvMethodInfo-data ApplicationCommandLineSetExitStatusMethodInfo
− GI/Gio/Objects/BufferedInputStream.hs 
@@ -1,595 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.BufferedInputStream-    ( ---- * Exported types-    BufferedInputStream(..)                 ,-    BufferedInputStreamK                    ,-    toBufferedInputStream                   ,-    noBufferedInputStream                   ,--- -- * Methods--- ** bufferedInputStreamFill-    BufferedInputStreamFillMethodInfo       ,-    bufferedInputStreamFill                 ,----- ** bufferedInputStreamFillAsync-    BufferedInputStreamFillAsyncMethodInfo  ,-    bufferedInputStreamFillAsync            ,----- ** bufferedInputStreamFillFinish-    BufferedInputStreamFillFinishMethodInfo ,-    bufferedInputStreamFillFinish           ,----- ** bufferedInputStreamGetAvailable-    BufferedInputStreamGetAvailableMethodInfo,-    bufferedInputStreamGetAvailable         ,----- ** bufferedInputStreamGetBufferSize-    BufferedInputStreamGetBufferSizeMethodInfo,-    bufferedInputStreamGetBufferSize        ,----- ** bufferedInputStreamNew-    bufferedInputStreamNew                  ,----- ** bufferedInputStreamNewSized-    bufferedInputStreamNewSized             ,----- ** bufferedInputStreamPeek-    BufferedInputStreamPeekMethodInfo       ,-    bufferedInputStreamPeek                 ,----- ** bufferedInputStreamPeekBuffer-    BufferedInputStreamPeekBufferMethodInfo ,-    bufferedInputStreamPeekBuffer           ,----- ** bufferedInputStreamReadByte-    BufferedInputStreamReadByteMethodInfo   ,-    bufferedInputStreamReadByte             ,----- ** bufferedInputStreamSetBufferSize-    BufferedInputStreamSetBufferSizeMethodInfo,-    bufferedInputStreamSetBufferSize        ,----- -- * Properties--- ** BufferSize-    BufferedInputStreamBufferSizePropertyInfo,-    bufferedInputStreamBufferSize           ,-    constructBufferedInputStreamBufferSize  ,-    getBufferedInputStreamBufferSize        ,-    setBufferedInputStreamBufferSize        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype BufferedInputStream = BufferedInputStream (ForeignPtr BufferedInputStream)-foreign import ccall "g_buffered_input_stream_get_type"-    c_g_buffered_input_stream_get_type :: IO GType--type instance ParentTypes BufferedInputStream = BufferedInputStreamParentTypes-type BufferedInputStreamParentTypes = '[FilterInputStream, InputStream, GObject.Object, Seekable]--instance GObject BufferedInputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_buffered_input_stream_get_type-    --class GObject o => BufferedInputStreamK o-instance (GObject o, IsDescendantOf BufferedInputStream o) => BufferedInputStreamK o--toBufferedInputStream :: BufferedInputStreamK o => o -> IO BufferedInputStream-toBufferedInputStream = unsafeCastTo BufferedInputStream--noBufferedInputStream :: Maybe BufferedInputStream-noBufferedInputStream = Nothing--type family ResolveBufferedInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveBufferedInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveBufferedInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveBufferedInputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo-    ResolveBufferedInputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo-    ResolveBufferedInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo-    ResolveBufferedInputStreamMethod "close" o = InputStreamCloseMethodInfo-    ResolveBufferedInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo-    ResolveBufferedInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo-    ResolveBufferedInputStreamMethod "fill" o = BufferedInputStreamFillMethodInfo-    ResolveBufferedInputStreamMethod "fillAsync" o = BufferedInputStreamFillAsyncMethodInfo-    ResolveBufferedInputStreamMethod "fillFinish" o = BufferedInputStreamFillFinishMethodInfo-    ResolveBufferedInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveBufferedInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveBufferedInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo-    ResolveBufferedInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo-    ResolveBufferedInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveBufferedInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveBufferedInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveBufferedInputStreamMethod "peek" o = BufferedInputStreamPeekMethodInfo-    ResolveBufferedInputStreamMethod "peekBuffer" o = BufferedInputStreamPeekBufferMethodInfo-    ResolveBufferedInputStreamMethod "read" o = InputStreamReadMethodInfo-    ResolveBufferedInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo-    ResolveBufferedInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo-    ResolveBufferedInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo-    ResolveBufferedInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo-    ResolveBufferedInputStreamMethod "readByte" o = BufferedInputStreamReadByteMethodInfo-    ResolveBufferedInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo-    ResolveBufferedInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo-    ResolveBufferedInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo-    ResolveBufferedInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo-    ResolveBufferedInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveBufferedInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveBufferedInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveBufferedInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveBufferedInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveBufferedInputStreamMethod "seek" o = SeekableSeekMethodInfo-    ResolveBufferedInputStreamMethod "skip" o = InputStreamSkipMethodInfo-    ResolveBufferedInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo-    ResolveBufferedInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo-    ResolveBufferedInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveBufferedInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveBufferedInputStreamMethod "tell" o = SeekableTellMethodInfo-    ResolveBufferedInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveBufferedInputStreamMethod "truncate" o = SeekableTruncateMethodInfo-    ResolveBufferedInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveBufferedInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveBufferedInputStreamMethod "getAvailable" o = BufferedInputStreamGetAvailableMethodInfo-    ResolveBufferedInputStreamMethod "getBaseStream" o = FilterInputStreamGetBaseStreamMethodInfo-    ResolveBufferedInputStreamMethod "getBufferSize" o = BufferedInputStreamGetBufferSizeMethodInfo-    ResolveBufferedInputStreamMethod "getCloseBaseStream" o = FilterInputStreamGetCloseBaseStreamMethodInfo-    ResolveBufferedInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveBufferedInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveBufferedInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveBufferedInputStreamMethod "setBufferSize" o = BufferedInputStreamSetBufferSizeMethodInfo-    ResolveBufferedInputStreamMethod "setCloseBaseStream" o = FilterInputStreamSetCloseBaseStreamMethodInfo-    ResolveBufferedInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveBufferedInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo-    ResolveBufferedInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveBufferedInputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveBufferedInputStreamMethod t BufferedInputStream, MethodInfo info BufferedInputStream p) => IsLabelProxy t (BufferedInputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveBufferedInputStreamMethod t BufferedInputStream, MethodInfo info BufferedInputStream p) => IsLabel t (BufferedInputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "buffer-size"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getBufferedInputStreamBufferSize :: (MonadIO m, BufferedInputStreamK o) => o -> m Word32-getBufferedInputStreamBufferSize obj = liftIO $ getObjectPropertyUInt32 obj "buffer-size"--setBufferedInputStreamBufferSize :: (MonadIO m, BufferedInputStreamK o) => o -> Word32 -> m ()-setBufferedInputStreamBufferSize obj val = liftIO $ setObjectPropertyUInt32 obj "buffer-size" val--constructBufferedInputStreamBufferSize :: Word32 -> IO ([Char], GValue)-constructBufferedInputStreamBufferSize val = constructObjectPropertyUInt32 "buffer-size" val--data BufferedInputStreamBufferSizePropertyInfo-instance AttrInfo BufferedInputStreamBufferSizePropertyInfo where-    type AttrAllowedOps BufferedInputStreamBufferSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint BufferedInputStreamBufferSizePropertyInfo = (~) Word32-    type AttrBaseTypeConstraint BufferedInputStreamBufferSizePropertyInfo = BufferedInputStreamK-    type AttrGetType BufferedInputStreamBufferSizePropertyInfo = Word32-    type AttrLabel BufferedInputStreamBufferSizePropertyInfo = "buffer-size"-    attrGet _ = getBufferedInputStreamBufferSize-    attrSet _ = setBufferedInputStreamBufferSize-    attrConstruct _ = constructBufferedInputStreamBufferSize-    attrClear _ = undefined--type instance AttributeList BufferedInputStream = BufferedInputStreamAttributeList-type BufferedInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("bufferSize", BufferedInputStreamBufferSizePropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])--bufferedInputStreamBufferSize :: AttrLabelProxy "bufferSize"-bufferedInputStreamBufferSize = AttrLabelProxy--type instance SignalList BufferedInputStream = BufferedInputStreamSignalList-type BufferedInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method BufferedInputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "BufferedInputStream")--- throws : False--- Skip return : False--foreign import ccall "g_buffered_input_stream_new" g_buffered_input_stream_new :: -    Ptr InputStream ->                      -- base_stream : TInterface "Gio" "InputStream"-    IO (Ptr BufferedInputStream)---bufferedInputStreamNew ::-    (MonadIO m, InputStreamK a) =>-    a                                       -- baseStream-    -> m BufferedInputStream                -- result-bufferedInputStreamNew baseStream = liftIO $ do-    let baseStream' = unsafeManagedPtrCastPtr baseStream-    result <- g_buffered_input_stream_new baseStream'-    checkUnexpectedReturnNULL "g_buffered_input_stream_new" result-    result' <- (wrapObject BufferedInputStream) result-    touchManagedPtr baseStream-    return result'---- method BufferedInputStream::new_sized--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "BufferedInputStream")--- throws : False--- Skip return : False--foreign import ccall "g_buffered_input_stream_new_sized" g_buffered_input_stream_new_sized :: -    Ptr InputStream ->                      -- base_stream : TInterface "Gio" "InputStream"-    Word64 ->                               -- size : TBasicType TUInt64-    IO (Ptr BufferedInputStream)---bufferedInputStreamNewSized ::-    (MonadIO m, InputStreamK a) =>-    a                                       -- baseStream-    -> Word64                               -- size-    -> m BufferedInputStream                -- result-bufferedInputStreamNewSized baseStream size = liftIO $ do-    let baseStream' = unsafeManagedPtrCastPtr baseStream-    result <- g_buffered_input_stream_new_sized baseStream' size-    checkUnexpectedReturnNULL "g_buffered_input_stream_new_sized" result-    result' <- (wrapObject BufferedInputStream) result-    touchManagedPtr baseStream-    return result'---- method BufferedInputStream::fill--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->              -- _obj : TInterface "Gio" "BufferedInputStream"-    Int64 ->                                -- count : TBasicType TInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---bufferedInputStreamFill ::-    (MonadIO m, BufferedInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Int64                                -- count-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-bufferedInputStreamFill _obj count cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_buffered_input_stream_fill _obj' count maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data BufferedInputStreamFillMethodInfo-instance (signature ~ (Int64 -> Maybe (b) -> m Int64), MonadIO m, BufferedInputStreamK a, CancellableK b) => MethodInfo BufferedInputStreamFillMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamFill---- method BufferedInputStream::fill_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "BufferedInputStream"-    Int64 ->                                -- count : TBasicType TInt64-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---bufferedInputStreamFillAsync ::-    (MonadIO m, BufferedInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Int64                                -- count-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-bufferedInputStreamFillAsync _obj count ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_buffered_input_stream_fill_async _obj' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data BufferedInputStreamFillAsyncMethodInfo-instance (signature ~ (Int64 -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, BufferedInputStreamK a, CancellableK b) => MethodInfo BufferedInputStreamFillAsyncMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamFillAsync---- method BufferedInputStream::fill_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "BufferedInputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---bufferedInputStreamFillFinish ::-    (MonadIO m, BufferedInputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Int64                              -- result-bufferedInputStreamFillFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_buffered_input_stream_fill_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--data BufferedInputStreamFillFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, BufferedInputStreamK a, AsyncResultK b) => MethodInfo BufferedInputStreamFillFinishMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamFillFinish---- method BufferedInputStream::get_available--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "BufferedInputStream"-    IO Word64---bufferedInputStreamGetAvailable ::-    (MonadIO m, BufferedInputStreamK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-bufferedInputStreamGetAvailable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_buffered_input_stream_get_available _obj'-    touchManagedPtr _obj-    return result--data BufferedInputStreamGetAvailableMethodInfo-instance (signature ~ (m Word64), MonadIO m, BufferedInputStreamK a) => MethodInfo BufferedInputStreamGetAvailableMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamGetAvailable---- method BufferedInputStream::get_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "BufferedInputStream"-    IO Word64---bufferedInputStreamGetBufferSize ::-    (MonadIO m, BufferedInputStreamK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-bufferedInputStreamGetBufferSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_buffered_input_stream_get_buffer_size _obj'-    touchManagedPtr _obj-    return result--data BufferedInputStreamGetBufferSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, BufferedInputStreamK a) => MethodInfo BufferedInputStreamGetBufferSizeMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamGetBufferSize---- method BufferedInputStream::peek--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "BufferedInputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 3 (TBasicType TUInt8)-    Word64 ->                               -- offset : TBasicType TUInt64-    Word64 ->                               -- count : TBasicType TUInt64-    IO Word64---bufferedInputStreamPeek ::-    (MonadIO m, BufferedInputStreamK a) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Word64                               -- offset-    -> m Word64                             -- result-bufferedInputStreamPeek _obj buffer offset = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    result <- g_buffered_input_stream_peek _obj' buffer' offset count-    touchManagedPtr _obj-    freeMem buffer'-    return result--data BufferedInputStreamPeekMethodInfo-instance (signature ~ (ByteString -> Word64 -> m Word64), MonadIO m, BufferedInputStreamK a) => MethodInfo BufferedInputStreamPeekMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamPeek---- method BufferedInputStream::peek_buffer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "BufferedInputStream"-    Ptr Word64 ->                           -- count : TBasicType TUInt64-    IO (Ptr Word8)---bufferedInputStreamPeekBuffer ::-    (MonadIO m, BufferedInputStreamK a) =>-    a                                       -- _obj-    -> m ByteString                         -- result-bufferedInputStreamPeekBuffer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    count <- allocMem :: IO (Ptr Word64)-    result <- g_buffered_input_stream_peek_buffer _obj' count-    count' <- peek count-    checkUnexpectedReturnNULL "g_buffered_input_stream_peek_buffer" result-    result' <- (unpackByteStringWithLength count') result-    touchManagedPtr _obj-    freeMem count-    return result'--data BufferedInputStreamPeekBufferMethodInfo-instance (signature ~ (m ByteString), MonadIO m, BufferedInputStreamK a) => MethodInfo BufferedInputStreamPeekBufferMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamPeekBuffer---- method BufferedInputStream::read_byte--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->              -- _obj : TInterface "Gio" "BufferedInputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int32---bufferedInputStreamReadByte ::-    (MonadIO m, BufferedInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Int32                              -- result-bufferedInputStreamReadByte _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_buffered_input_stream_read_byte _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data BufferedInputStreamReadByteMethodInfo-instance (signature ~ (Maybe (b) -> m Int32), MonadIO m, BufferedInputStreamK a, CancellableK b) => MethodInfo BufferedInputStreamReadByteMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamReadByte---- method BufferedInputStream::set_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "BufferedInputStream"-    Word64 ->                               -- size : TBasicType TUInt64-    IO ()---bufferedInputStreamSetBufferSize ::-    (MonadIO m, BufferedInputStreamK a) =>-    a                                       -- _obj-    -> Word64                               -- size-    -> m ()                                 -- result-bufferedInputStreamSetBufferSize _obj size = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_buffered_input_stream_set_buffer_size _obj' size-    touchManagedPtr _obj-    return ()--data BufferedInputStreamSetBufferSizeMethodInfo-instance (signature ~ (Word64 -> m ()), MonadIO m, BufferedInputStreamK a) => MethodInfo BufferedInputStreamSetBufferSizeMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamSetBufferSize--
− GI/Gio/Objects/BufferedInputStream.hs-boot 
@@ -1,23 +0,0 @@-module GI.Gio.Objects.BufferedInputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype BufferedInputStream = BufferedInputStream (ForeignPtr BufferedInputStream)-instance GObject BufferedInputStream where-class GObject o => BufferedInputStreamK o-instance (GObject o, IsDescendantOf BufferedInputStream o) => BufferedInputStreamK o-data BufferedInputStreamBufferSizePropertyInfo-data BufferedInputStreamFillMethodInfo-data BufferedInputStreamFillAsyncMethodInfo-data BufferedInputStreamFillFinishMethodInfo-data BufferedInputStreamGetAvailableMethodInfo-data BufferedInputStreamGetBufferSizeMethodInfo-data BufferedInputStreamPeekMethodInfo-data BufferedInputStreamPeekBufferMethodInfo-data BufferedInputStreamReadByteMethodInfo-data BufferedInputStreamSetBufferSizeMethodInfo
− GI/Gio/Objects/BufferedOutputStream.hs 
@@ -1,401 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.BufferedOutputStream-    ( ---- * Exported types-    BufferedOutputStream(..)                ,-    BufferedOutputStreamK                   ,-    toBufferedOutputStream                  ,-    noBufferedOutputStream                  ,--- -- * Methods--- ** bufferedOutputStreamGetAutoGrow-    BufferedOutputStreamGetAutoGrowMethodInfo,-    bufferedOutputStreamGetAutoGrow         ,----- ** bufferedOutputStreamGetBufferSize-    BufferedOutputStreamGetBufferSizeMethodInfo,-    bufferedOutputStreamGetBufferSize       ,----- ** bufferedOutputStreamNew-    bufferedOutputStreamNew                 ,----- ** bufferedOutputStreamNewSized-    bufferedOutputStreamNewSized            ,----- ** bufferedOutputStreamSetAutoGrow-    BufferedOutputStreamSetAutoGrowMethodInfo,-    bufferedOutputStreamSetAutoGrow         ,----- ** bufferedOutputStreamSetBufferSize-    BufferedOutputStreamSetBufferSizeMethodInfo,-    bufferedOutputStreamSetBufferSize       ,----- -- * Properties--- ** AutoGrow-    BufferedOutputStreamAutoGrowPropertyInfo,-    bufferedOutputStreamAutoGrow            ,-    constructBufferedOutputStreamAutoGrow   ,-    getBufferedOutputStreamAutoGrow         ,-    setBufferedOutputStreamAutoGrow         ,----- ** BufferSize-    BufferedOutputStreamBufferSizePropertyInfo,-    bufferedOutputStreamBufferSize          ,-    constructBufferedOutputStreamBufferSize ,-    getBufferedOutputStreamBufferSize       ,-    setBufferedOutputStreamBufferSize       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype BufferedOutputStream = BufferedOutputStream (ForeignPtr BufferedOutputStream)-foreign import ccall "g_buffered_output_stream_get_type"-    c_g_buffered_output_stream_get_type :: IO GType--type instance ParentTypes BufferedOutputStream = BufferedOutputStreamParentTypes-type BufferedOutputStreamParentTypes = '[FilterOutputStream, OutputStream, GObject.Object, Seekable]--instance GObject BufferedOutputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_buffered_output_stream_get_type-    --class GObject o => BufferedOutputStreamK o-instance (GObject o, IsDescendantOf BufferedOutputStream o) => BufferedOutputStreamK o--toBufferedOutputStream :: BufferedOutputStreamK o => o -> IO BufferedOutputStream-toBufferedOutputStream = unsafeCastTo BufferedOutputStream--noBufferedOutputStream :: Maybe BufferedOutputStream-noBufferedOutputStream = Nothing--type family ResolveBufferedOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveBufferedOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveBufferedOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveBufferedOutputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo-    ResolveBufferedOutputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo-    ResolveBufferedOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo-    ResolveBufferedOutputStreamMethod "close" o = OutputStreamCloseMethodInfo-    ResolveBufferedOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo-    ResolveBufferedOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo-    ResolveBufferedOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo-    ResolveBufferedOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveBufferedOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveBufferedOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo-    ResolveBufferedOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo-    ResolveBufferedOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo-    ResolveBufferedOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveBufferedOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveBufferedOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveBufferedOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveBufferedOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveBufferedOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveBufferedOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveBufferedOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveBufferedOutputStreamMethod "seek" o = SeekableSeekMethodInfo-    ResolveBufferedOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo-    ResolveBufferedOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo-    ResolveBufferedOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveBufferedOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveBufferedOutputStreamMethod "tell" o = SeekableTellMethodInfo-    ResolveBufferedOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveBufferedOutputStreamMethod "truncate" o = SeekableTruncateMethodInfo-    ResolveBufferedOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveBufferedOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveBufferedOutputStreamMethod "write" o = OutputStreamWriteMethodInfo-    ResolveBufferedOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo-    ResolveBufferedOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo-    ResolveBufferedOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo-    ResolveBufferedOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo-    ResolveBufferedOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo-    ResolveBufferedOutputStreamMethod "getAutoGrow" o = BufferedOutputStreamGetAutoGrowMethodInfo-    ResolveBufferedOutputStreamMethod "getBaseStream" o = FilterOutputStreamGetBaseStreamMethodInfo-    ResolveBufferedOutputStreamMethod "getBufferSize" o = BufferedOutputStreamGetBufferSizeMethodInfo-    ResolveBufferedOutputStreamMethod "getCloseBaseStream" o = FilterOutputStreamGetCloseBaseStreamMethodInfo-    ResolveBufferedOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveBufferedOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveBufferedOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveBufferedOutputStreamMethod "setAutoGrow" o = BufferedOutputStreamSetAutoGrowMethodInfo-    ResolveBufferedOutputStreamMethod "setBufferSize" o = BufferedOutputStreamSetBufferSizeMethodInfo-    ResolveBufferedOutputStreamMethod "setCloseBaseStream" o = FilterOutputStreamSetCloseBaseStreamMethodInfo-    ResolveBufferedOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveBufferedOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo-    ResolveBufferedOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveBufferedOutputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveBufferedOutputStreamMethod t BufferedOutputStream, MethodInfo info BufferedOutputStream p) => IsLabelProxy t (BufferedOutputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveBufferedOutputStreamMethod t BufferedOutputStream, MethodInfo info BufferedOutputStream p) => IsLabel t (BufferedOutputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "auto-grow"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getBufferedOutputStreamAutoGrow :: (MonadIO m, BufferedOutputStreamK o) => o -> m Bool-getBufferedOutputStreamAutoGrow obj = liftIO $ getObjectPropertyBool obj "auto-grow"--setBufferedOutputStreamAutoGrow :: (MonadIO m, BufferedOutputStreamK o) => o -> Bool -> m ()-setBufferedOutputStreamAutoGrow obj val = liftIO $ setObjectPropertyBool obj "auto-grow" val--constructBufferedOutputStreamAutoGrow :: Bool -> IO ([Char], GValue)-constructBufferedOutputStreamAutoGrow val = constructObjectPropertyBool "auto-grow" val--data BufferedOutputStreamAutoGrowPropertyInfo-instance AttrInfo BufferedOutputStreamAutoGrowPropertyInfo where-    type AttrAllowedOps BufferedOutputStreamAutoGrowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint BufferedOutputStreamAutoGrowPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint BufferedOutputStreamAutoGrowPropertyInfo = BufferedOutputStreamK-    type AttrGetType BufferedOutputStreamAutoGrowPropertyInfo = Bool-    type AttrLabel BufferedOutputStreamAutoGrowPropertyInfo = "auto-grow"-    attrGet _ = getBufferedOutputStreamAutoGrow-    attrSet _ = setBufferedOutputStreamAutoGrow-    attrConstruct _ = constructBufferedOutputStreamAutoGrow-    attrClear _ = undefined---- VVV Prop "buffer-size"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getBufferedOutputStreamBufferSize :: (MonadIO m, BufferedOutputStreamK o) => o -> m Word32-getBufferedOutputStreamBufferSize obj = liftIO $ getObjectPropertyUInt32 obj "buffer-size"--setBufferedOutputStreamBufferSize :: (MonadIO m, BufferedOutputStreamK o) => o -> Word32 -> m ()-setBufferedOutputStreamBufferSize obj val = liftIO $ setObjectPropertyUInt32 obj "buffer-size" val--constructBufferedOutputStreamBufferSize :: Word32 -> IO ([Char], GValue)-constructBufferedOutputStreamBufferSize val = constructObjectPropertyUInt32 "buffer-size" val--data BufferedOutputStreamBufferSizePropertyInfo-instance AttrInfo BufferedOutputStreamBufferSizePropertyInfo where-    type AttrAllowedOps BufferedOutputStreamBufferSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint BufferedOutputStreamBufferSizePropertyInfo = (~) Word32-    type AttrBaseTypeConstraint BufferedOutputStreamBufferSizePropertyInfo = BufferedOutputStreamK-    type AttrGetType BufferedOutputStreamBufferSizePropertyInfo = Word32-    type AttrLabel BufferedOutputStreamBufferSizePropertyInfo = "buffer-size"-    attrGet _ = getBufferedOutputStreamBufferSize-    attrSet _ = setBufferedOutputStreamBufferSize-    attrConstruct _ = constructBufferedOutputStreamBufferSize-    attrClear _ = undefined--type instance AttributeList BufferedOutputStream = BufferedOutputStreamAttributeList-type BufferedOutputStreamAttributeList = ('[ '("autoGrow", BufferedOutputStreamAutoGrowPropertyInfo), '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("bufferSize", BufferedOutputStreamBufferSizePropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])--bufferedOutputStreamAutoGrow :: AttrLabelProxy "autoGrow"-bufferedOutputStreamAutoGrow = AttrLabelProxy--bufferedOutputStreamBufferSize :: AttrLabelProxy "bufferSize"-bufferedOutputStreamBufferSize = AttrLabelProxy--type instance SignalList BufferedOutputStream = BufferedOutputStreamSignalList-type BufferedOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method BufferedOutputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "BufferedOutputStream")--- throws : False--- Skip return : False--foreign import ccall "g_buffered_output_stream_new" g_buffered_output_stream_new :: -    Ptr OutputStream ->                     -- base_stream : TInterface "Gio" "OutputStream"-    IO (Ptr BufferedOutputStream)---bufferedOutputStreamNew ::-    (MonadIO m, OutputStreamK a) =>-    a                                       -- baseStream-    -> m BufferedOutputStream               -- result-bufferedOutputStreamNew baseStream = liftIO $ do-    let baseStream' = unsafeManagedPtrCastPtr baseStream-    result <- g_buffered_output_stream_new baseStream'-    checkUnexpectedReturnNULL "g_buffered_output_stream_new" result-    result' <- (wrapObject BufferedOutputStream) result-    touchManagedPtr baseStream-    return result'---- method BufferedOutputStream::new_sized--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "BufferedOutputStream")--- throws : False--- Skip return : False--foreign import ccall "g_buffered_output_stream_new_sized" g_buffered_output_stream_new_sized :: -    Ptr OutputStream ->                     -- base_stream : TInterface "Gio" "OutputStream"-    Word64 ->                               -- size : TBasicType TUInt64-    IO (Ptr BufferedOutputStream)---bufferedOutputStreamNewSized ::-    (MonadIO m, OutputStreamK a) =>-    a                                       -- baseStream-    -> Word64                               -- size-    -> m BufferedOutputStream               -- result-bufferedOutputStreamNewSized baseStream size = liftIO $ do-    let baseStream' = unsafeManagedPtrCastPtr baseStream-    result <- g_buffered_output_stream_new_sized baseStream' size-    checkUnexpectedReturnNULL "g_buffered_output_stream_new_sized" result-    result' <- (wrapObject BufferedOutputStream) result-    touchManagedPtr baseStream-    return result'---- method BufferedOutputStream::get_auto_grow--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "BufferedOutputStream"-    IO CInt---bufferedOutputStreamGetAutoGrow ::-    (MonadIO m, BufferedOutputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-bufferedOutputStreamGetAutoGrow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_buffered_output_stream_get_auto_grow _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data BufferedOutputStreamGetAutoGrowMethodInfo-instance (signature ~ (m Bool), MonadIO m, BufferedOutputStreamK a) => MethodInfo BufferedOutputStreamGetAutoGrowMethodInfo a signature where-    overloadedMethod _ = bufferedOutputStreamGetAutoGrow---- method BufferedOutputStream::get_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "BufferedOutputStream"-    IO Word64---bufferedOutputStreamGetBufferSize ::-    (MonadIO m, BufferedOutputStreamK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-bufferedOutputStreamGetBufferSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_buffered_output_stream_get_buffer_size _obj'-    touchManagedPtr _obj-    return result--data BufferedOutputStreamGetBufferSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, BufferedOutputStreamK a) => MethodInfo BufferedOutputStreamGetBufferSizeMethodInfo a signature where-    overloadedMethod _ = bufferedOutputStreamGetBufferSize---- method BufferedOutputStream::set_auto_grow--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auto_grow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "BufferedOutputStream"-    CInt ->                                 -- auto_grow : TBasicType TBoolean-    IO ()---bufferedOutputStreamSetAutoGrow ::-    (MonadIO m, BufferedOutputStreamK a) =>-    a                                       -- _obj-    -> Bool                                 -- autoGrow-    -> m ()                                 -- result-bufferedOutputStreamSetAutoGrow _obj autoGrow = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let autoGrow' = (fromIntegral . fromEnum) autoGrow-    g_buffered_output_stream_set_auto_grow _obj' autoGrow'-    touchManagedPtr _obj-    return ()--data BufferedOutputStreamSetAutoGrowMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, BufferedOutputStreamK a) => MethodInfo BufferedOutputStreamSetAutoGrowMethodInfo a signature where-    overloadedMethod _ = bufferedOutputStreamSetAutoGrow---- method BufferedOutputStream::set_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "BufferedOutputStream"-    Word64 ->                               -- size : TBasicType TUInt64-    IO ()---bufferedOutputStreamSetBufferSize ::-    (MonadIO m, BufferedOutputStreamK a) =>-    a                                       -- _obj-    -> Word64                               -- size-    -> m ()                                 -- result-bufferedOutputStreamSetBufferSize _obj size = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_buffered_output_stream_set_buffer_size _obj' size-    touchManagedPtr _obj-    return ()--data BufferedOutputStreamSetBufferSizeMethodInfo-instance (signature ~ (Word64 -> m ()), MonadIO m, BufferedOutputStreamK a) => MethodInfo BufferedOutputStreamSetBufferSizeMethodInfo a signature where-    overloadedMethod _ = bufferedOutputStreamSetBufferSize--
− GI/Gio/Objects/BufferedOutputStream.hs-boot 
@@ -1,19 +0,0 @@-module GI.Gio.Objects.BufferedOutputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype BufferedOutputStream = BufferedOutputStream (ForeignPtr BufferedOutputStream)-instance GObject BufferedOutputStream where-class GObject o => BufferedOutputStreamK o-instance (GObject o, IsDescendantOf BufferedOutputStream o) => BufferedOutputStreamK o-data BufferedOutputStreamAutoGrowPropertyInfo-data BufferedOutputStreamBufferSizePropertyInfo-data BufferedOutputStreamGetAutoGrowMethodInfo-data BufferedOutputStreamGetBufferSizeMethodInfo-data BufferedOutputStreamSetAutoGrowMethodInfo-data BufferedOutputStreamSetBufferSizeMethodInfo
− GI/Gio/Objects/BytesIcon.hs 
@@ -1,202 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.BytesIcon-    ( ---- * Exported types-    BytesIcon(..)                           ,-    BytesIconK                              ,-    toBytesIcon                             ,-    noBytesIcon                             ,--- -- * Methods--- ** bytesIconGetBytes-    BytesIconGetBytesMethodInfo             ,-    bytesIconGetBytes                       ,----- ** bytesIconNew-    bytesIconNew                            ,----- -- * Properties--- ** Bytes-    BytesIconBytesPropertyInfo              ,-    bytesIconBytes                          ,-    constructBytesIconBytes                 ,-    getBytesIconBytes                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype BytesIcon = BytesIcon (ForeignPtr BytesIcon)-foreign import ccall "g_bytes_icon_get_type"-    c_g_bytes_icon_get_type :: IO GType--type instance ParentTypes BytesIcon = BytesIconParentTypes-type BytesIconParentTypes = '[GObject.Object, Icon, LoadableIcon]--instance GObject BytesIcon where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_bytes_icon_get_type-    --class GObject o => BytesIconK o-instance (GObject o, IsDescendantOf BytesIcon o) => BytesIconK o--toBytesIcon :: BytesIconK o => o -> IO BytesIcon-toBytesIcon = unsafeCastTo BytesIcon--noBytesIcon :: Maybe BytesIcon-noBytesIcon = Nothing--type family ResolveBytesIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveBytesIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveBytesIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveBytesIconMethod "equal" o = IconEqualMethodInfo-    ResolveBytesIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveBytesIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveBytesIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveBytesIconMethod "load" o = LoadableIconLoadMethodInfo-    ResolveBytesIconMethod "loadAsync" o = LoadableIconLoadAsyncMethodInfo-    ResolveBytesIconMethod "loadFinish" o = LoadableIconLoadFinishMethodInfo-    ResolveBytesIconMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveBytesIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveBytesIconMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveBytesIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveBytesIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveBytesIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveBytesIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveBytesIconMethod "serialize" o = IconSerializeMethodInfo-    ResolveBytesIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveBytesIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveBytesIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveBytesIconMethod "toString" o = IconToStringMethodInfo-    ResolveBytesIconMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveBytesIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveBytesIconMethod "getBytes" o = BytesIconGetBytesMethodInfo-    ResolveBytesIconMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveBytesIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveBytesIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveBytesIconMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveBytesIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveBytesIconMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveBytesIconMethod t BytesIcon, MethodInfo info BytesIcon p) => IsLabelProxy t (BytesIcon -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveBytesIconMethod t BytesIcon, MethodInfo info BytesIcon p) => IsLabel t (BytesIcon -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "bytes"-   -- Type: TInterface "GLib" "Bytes"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getBytesIconBytes :: (MonadIO m, BytesIconK o) => o -> m GLib.Bytes-getBytesIconBytes obj = liftIO $ checkUnexpectedNothing "getBytesIconBytes" $ getObjectPropertyBoxed obj "bytes" GLib.Bytes--constructBytesIconBytes :: GLib.Bytes -> IO ([Char], GValue)-constructBytesIconBytes val = constructObjectPropertyBoxed "bytes" (Just val)--data BytesIconBytesPropertyInfo-instance AttrInfo BytesIconBytesPropertyInfo where-    type AttrAllowedOps BytesIconBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint BytesIconBytesPropertyInfo = (~) GLib.Bytes-    type AttrBaseTypeConstraint BytesIconBytesPropertyInfo = BytesIconK-    type AttrGetType BytesIconBytesPropertyInfo = GLib.Bytes-    type AttrLabel BytesIconBytesPropertyInfo = "bytes"-    attrGet _ = getBytesIconBytes-    attrSet _ = undefined-    attrConstruct _ = constructBytesIconBytes-    attrClear _ = undefined--type instance AttributeList BytesIcon = BytesIconAttributeList-type BytesIconAttributeList = ('[ '("bytes", BytesIconBytesPropertyInfo)] :: [(Symbol, *)])--bytesIconBytes :: AttrLabelProxy "bytes"-bytesIconBytes = AttrLabelProxy--type instance SignalList BytesIcon = BytesIconSignalList-type BytesIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method BytesIcon::new--- method type : Constructor--- Args : [Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "BytesIcon")--- throws : False--- Skip return : False--foreign import ccall "g_bytes_icon_new" g_bytes_icon_new :: -    Ptr GLib.Bytes ->                       -- bytes : TInterface "GLib" "Bytes"-    IO (Ptr BytesIcon)---bytesIconNew ::-    (MonadIO m) =>-    GLib.Bytes                              -- bytes-    -> m BytesIcon                          -- result-bytesIconNew bytes = liftIO $ do-    let bytes' = unsafeManagedPtrGetPtr bytes-    result <- g_bytes_icon_new bytes'-    checkUnexpectedReturnNULL "g_bytes_icon_new" result-    result' <- (wrapObject BytesIcon) result-    touchManagedPtr bytes-    return result'---- method BytesIcon::get_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BytesIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "Bytes")--- throws : False--- Skip return : False--foreign import ccall "g_bytes_icon_get_bytes" g_bytes_icon_get_bytes :: -    Ptr BytesIcon ->                        -- _obj : TInterface "Gio" "BytesIcon"-    IO (Ptr GLib.Bytes)---bytesIconGetBytes ::-    (MonadIO m, BytesIconK a) =>-    a                                       -- _obj-    -> m GLib.Bytes                         -- result-bytesIconGetBytes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_bytes_icon_get_bytes _obj'-    checkUnexpectedReturnNULL "g_bytes_icon_get_bytes" result-    result' <- (newBoxed GLib.Bytes) result-    touchManagedPtr _obj-    return result'--data BytesIconGetBytesMethodInfo-instance (signature ~ (m GLib.Bytes), MonadIO m, BytesIconK a) => MethodInfo BytesIconGetBytesMethodInfo a signature where-    overloadedMethod _ = bytesIconGetBytes--
− GI/Gio/Objects/BytesIcon.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Objects.BytesIcon where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype BytesIcon = BytesIcon (ForeignPtr BytesIcon)-instance GObject BytesIcon where-class GObject o => BytesIconK o-instance (GObject o, IsDescendantOf BytesIcon o) => BytesIconK o-data BytesIconBytesPropertyInfo-data BytesIconGetBytesMethodInfo
− GI/Gio/Objects/Cancellable.hs 
@@ -1,588 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Cancellable-    ( ---- * Exported types-    Cancellable(..)                         ,-    CancellableK                            ,-    toCancellable                           ,-    noCancellable                           ,--- -- * Methods--- ** cancellableCancel-    CancellableCancelMethodInfo             ,-    cancellableCancel                       ,----- ** cancellableConnect-    CancellableConnectMethodInfo            ,-    cancellableConnect                      ,----- ** cancellableDisconnect-    CancellableDisconnectMethodInfo         ,-    cancellableDisconnect                   ,----- ** cancellableGetCurrent-    cancellableGetCurrent                   ,----- ** cancellableGetFd-    CancellableGetFdMethodInfo              ,-    cancellableGetFd                        ,----- ** cancellableIsCancelled-    CancellableIsCancelledMethodInfo        ,-    cancellableIsCancelled                  ,----- ** cancellableMakePollfd-    CancellableMakePollfdMethodInfo         ,-    cancellableMakePollfd                   ,----- ** cancellableNew-    cancellableNew                          ,----- ** cancellablePopCurrent-    CancellablePopCurrentMethodInfo         ,-    cancellablePopCurrent                   ,----- ** cancellablePushCurrent-    CancellablePushCurrentMethodInfo        ,-    cancellablePushCurrent                  ,----- ** cancellableReleaseFd-    CancellableReleaseFdMethodInfo          ,-    cancellableReleaseFd                    ,----- ** cancellableReset-    CancellableResetMethodInfo              ,-    cancellableReset                        ,----- ** cancellableSetErrorIfCancelled-    CancellableSetErrorIfCancelledMethodInfo,-    cancellableSetErrorIfCancelled          ,----- -- * Signals--- ** Cancelled-    CancellableCancelledCallback            ,-    CancellableCancelledCallbackC           ,-    CancellableCancelledSignalInfo          ,-    afterCancellableCancelled               ,-    cancellableCancelledCallbackWrapper     ,-    cancellableCancelledClosure             ,-    mkCancellableCancelledCallback          ,-    noCancellableCancelledCallback          ,-    onCancellableCancelled                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype Cancellable = Cancellable (ForeignPtr Cancellable)-foreign import ccall "g_cancellable_get_type"-    c_g_cancellable_get_type :: IO GType--type instance ParentTypes Cancellable = CancellableParentTypes-type CancellableParentTypes = '[GObject.Object]--instance GObject Cancellable where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_cancellable_get_type-    --class GObject o => CancellableK o-instance (GObject o, IsDescendantOf Cancellable o) => CancellableK o--toCancellable :: CancellableK o => o -> IO Cancellable-toCancellable = unsafeCastTo Cancellable--noCancellable :: Maybe Cancellable-noCancellable = Nothing--type family ResolveCancellableMethod (t :: Symbol) (o :: *) :: * where-    ResolveCancellableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveCancellableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveCancellableMethod "cancel" o = CancellableCancelMethodInfo-    ResolveCancellableMethod "connect" o = CancellableConnectMethodInfo-    ResolveCancellableMethod "disconnect" o = CancellableDisconnectMethodInfo-    ResolveCancellableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveCancellableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveCancellableMethod "isCancelled" o = CancellableIsCancelledMethodInfo-    ResolveCancellableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveCancellableMethod "makePollfd" o = CancellableMakePollfdMethodInfo-    ResolveCancellableMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveCancellableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveCancellableMethod "popCurrent" o = CancellablePopCurrentMethodInfo-    ResolveCancellableMethod "pushCurrent" o = CancellablePushCurrentMethodInfo-    ResolveCancellableMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveCancellableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveCancellableMethod "releaseFd" o = CancellableReleaseFdMethodInfo-    ResolveCancellableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveCancellableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveCancellableMethod "reset" o = CancellableResetMethodInfo-    ResolveCancellableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveCancellableMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveCancellableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveCancellableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveCancellableMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveCancellableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveCancellableMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveCancellableMethod "getFd" o = CancellableGetFdMethodInfo-    ResolveCancellableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveCancellableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveCancellableMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveCancellableMethod "setErrorIfCancelled" o = CancellableSetErrorIfCancelledMethodInfo-    ResolveCancellableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveCancellableMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveCancellableMethod t Cancellable, MethodInfo info Cancellable p) => IsLabelProxy t (Cancellable -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveCancellableMethod t Cancellable, MethodInfo info Cancellable p) => IsLabel t (Cancellable -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Cancellable::cancelled-type CancellableCancelledCallback =-    IO ()--noCancellableCancelledCallback :: Maybe CancellableCancelledCallback-noCancellableCancelledCallback = Nothing--type CancellableCancelledCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkCancellableCancelledCallback :: CancellableCancelledCallbackC -> IO (FunPtr CancellableCancelledCallbackC)--cancellableCancelledClosure :: CancellableCancelledCallback -> IO Closure-cancellableCancelledClosure cb = newCClosure =<< mkCancellableCancelledCallback wrapped-    where wrapped = cancellableCancelledCallbackWrapper cb--cancellableCancelledCallbackWrapper ::-    CancellableCancelledCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-cancellableCancelledCallbackWrapper _cb _ _ = do-    _cb --onCancellableCancelled :: (GObject a, MonadIO m) => a -> CancellableCancelledCallback -> m SignalHandlerId-onCancellableCancelled obj cb = liftIO $ connectCancellableCancelled obj cb SignalConnectBefore-afterCancellableCancelled :: (GObject a, MonadIO m) => a -> CancellableCancelledCallback -> m SignalHandlerId-afterCancellableCancelled obj cb = connectCancellableCancelled obj cb SignalConnectAfter--connectCancellableCancelled :: (GObject a, MonadIO m) =>-                               a -> CancellableCancelledCallback -> SignalConnectMode -> m SignalHandlerId-connectCancellableCancelled obj cb after = liftIO $ do-    cb' <- mkCancellableCancelledCallback (cancellableCancelledCallbackWrapper cb)-    connectSignalFunPtr obj "cancelled" cb' after--type instance AttributeList Cancellable = CancellableAttributeList-type CancellableAttributeList = ('[ ] :: [(Symbol, *)])--data CancellableCancelledSignalInfo-instance SignalInfo CancellableCancelledSignalInfo where-    type HaskellCallbackType CancellableCancelledSignalInfo = CancellableCancelledCallback-    connectSignal _ = connectCancellableCancelled--type instance SignalList Cancellable = CancellableSignalList-type CancellableSignalList = ('[ '("cancelled", CancellableCancelledSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Cancellable::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "Cancellable")--- throws : False--- Skip return : False--foreign import ccall "g_cancellable_new" g_cancellable_new :: -    IO (Ptr Cancellable)---cancellableNew ::-    (MonadIO m) =>-    m Cancellable                           -- result-cancellableNew  = liftIO $ do-    result <- g_cancellable_new-    checkUnexpectedReturnNULL "g_cancellable_new" result-    result' <- (wrapObject Cancellable) result-    return result'---- method Cancellable::cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Cancellable"-    IO ()---cancellableCancel ::-    (MonadIO m, CancellableK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cancellableCancel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_cancellable_cancel _obj'-    touchManagedPtr _obj-    return ()--data CancellableCancelMethodInfo-instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellableCancelMethodInfo a signature where-    overloadedMethod _ = cancellableCancel---- method Cancellable::connect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Gio" "Cancellable"-    FunPtr GObject.CallbackC ->             -- callback : TInterface "GObject" "Callback"-    Ptr () ->                               -- data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- data_destroy_func : TInterface "GLib" "DestroyNotify"-    IO CULong---cancellableConnect ::-    (MonadIO m, CancellableK a) =>-    a                                       -- _obj-    -> GObject.Callback                     -- callback-    -> m CULong                             -- result-cancellableConnect _obj callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    callback' <- GObject.mkCallback (GObject.callbackWrapper Nothing callback)-    let data_ = castFunPtrToPtr callback'-    let dataDestroyFunc = safeFreeFunPtrPtr-    result <- g_cancellable_connect _obj' callback' data_ dataDestroyFunc-    touchManagedPtr _obj-    return result--data CancellableConnectMethodInfo-instance (signature ~ (GObject.Callback -> m CULong), MonadIO m, CancellableK a) => MethodInfo CancellableConnectMethodInfo a signature where-    overloadedMethod _ = cancellableConnect---- method Cancellable::disconnect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Cancellable"-    CULong ->                               -- handler_id : TBasicType TULong-    IO ()---cancellableDisconnect ::-    (MonadIO m, CancellableK a) =>-    a                                       -- _obj-    -> CULong                               -- handlerId-    -> m ()                                 -- result-cancellableDisconnect _obj handlerId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_cancellable_disconnect _obj' handlerId-    touchManagedPtr _obj-    return ()--data CancellableDisconnectMethodInfo-instance (signature ~ (CULong -> m ()), MonadIO m, CancellableK a) => MethodInfo CancellableDisconnectMethodInfo a signature where-    overloadedMethod _ = cancellableDisconnect---- method Cancellable::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Cancellable"-    IO Int32---cancellableGetFd ::-    (MonadIO m, CancellableK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-cancellableGetFd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_cancellable_get_fd _obj'-    touchManagedPtr _obj-    return result--data CancellableGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, CancellableK a) => MethodInfo CancellableGetFdMethodInfo a signature where-    overloadedMethod _ = cancellableGetFd---- method Cancellable::is_cancelled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Cancellable"-    IO CInt---cancellableIsCancelled ::-    (MonadIO m, CancellableK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-cancellableIsCancelled _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_cancellable_is_cancelled _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data CancellableIsCancelledMethodInfo-instance (signature ~ (m Bool), MonadIO m, CancellableK a) => MethodInfo CancellableIsCancelledMethodInfo a signature where-    overloadedMethod _ = cancellableIsCancelled---- method Cancellable::make_pollfd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pollfd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Cancellable"-    Ptr GLib.PollFD ->                      -- pollfd : TInterface "GLib" "PollFD"-    IO CInt---cancellableMakePollfd ::-    (MonadIO m, CancellableK a) =>-    a                                       -- _obj-    -> GLib.PollFD                          -- pollfd-    -> m Bool                               -- result-cancellableMakePollfd _obj pollfd = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let pollfd' = unsafeManagedPtrGetPtr pollfd-    result <- g_cancellable_make_pollfd _obj' pollfd'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr pollfd-    return result'--data CancellableMakePollfdMethodInfo-instance (signature ~ (GLib.PollFD -> m Bool), MonadIO m, CancellableK a) => MethodInfo CancellableMakePollfdMethodInfo a signature where-    overloadedMethod _ = cancellableMakePollfd---- method Cancellable::pop_current--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Cancellable"-    IO ()---cancellablePopCurrent ::-    (MonadIO m, CancellableK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cancellablePopCurrent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_cancellable_pop_current _obj'-    touchManagedPtr _obj-    return ()--data CancellablePopCurrentMethodInfo-instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellablePopCurrentMethodInfo a signature where-    overloadedMethod _ = cancellablePopCurrent---- method Cancellable::push_current--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Cancellable"-    IO ()---cancellablePushCurrent ::-    (MonadIO m, CancellableK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cancellablePushCurrent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_cancellable_push_current _obj'-    touchManagedPtr _obj-    return ()--data CancellablePushCurrentMethodInfo-instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellablePushCurrentMethodInfo a signature where-    overloadedMethod _ = cancellablePushCurrent---- method Cancellable::release_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Cancellable"-    IO ()---cancellableReleaseFd ::-    (MonadIO m, CancellableK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cancellableReleaseFd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_cancellable_release_fd _obj'-    touchManagedPtr _obj-    return ()--data CancellableReleaseFdMethodInfo-instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellableReleaseFdMethodInfo a signature where-    overloadedMethod _ = cancellableReleaseFd---- method Cancellable::reset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Cancellable"-    IO ()---cancellableReset ::-    (MonadIO m, CancellableK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cancellableReset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_cancellable_reset _obj'-    touchManagedPtr _obj-    return ()--data CancellableResetMethodInfo-instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellableResetMethodInfo a signature where-    overloadedMethod _ = cancellableReset---- method Cancellable::set_error_if_cancelled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---cancellableSetErrorIfCancelled ::-    (MonadIO m, CancellableK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cancellableSetErrorIfCancelled _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_cancellable_set_error_if_cancelled _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data CancellableSetErrorIfCancelledMethodInfo-instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellableSetErrorIfCancelledMethodInfo a signature where-    overloadedMethod _ = cancellableSetErrorIfCancelled---- method Cancellable::get_current--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "Cancellable")--- throws : False--- Skip return : False--foreign import ccall "g_cancellable_get_current" g_cancellable_get_current :: -    IO (Ptr Cancellable)---cancellableGetCurrent ::-    (MonadIO m) =>-    m (Maybe Cancellable)                   -- result-cancellableGetCurrent  = liftIO $ do-    result <- g_cancellable_get_current-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Cancellable) result'-        return result''-    return maybeResult--
− GI/Gio/Objects/Cancellable.hs-boot 
@@ -1,25 +0,0 @@-module GI.Gio.Objects.Cancellable where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Cancellable = Cancellable (ForeignPtr Cancellable)-instance GObject Cancellable where-class GObject o => CancellableK o-instance (GObject o, IsDescendantOf Cancellable o) => CancellableK o-data CancellableCancelledSignalInfo-data CancellableCancelMethodInfo-data CancellableConnectMethodInfo-data CancellableDisconnectMethodInfo-data CancellableGetFdMethodInfo-data CancellableIsCancelledMethodInfo-data CancellableMakePollfdMethodInfo-data CancellablePopCurrentMethodInfo-data CancellablePushCurrentMethodInfo-data CancellableReleaseFdMethodInfo-data CancellableResetMethodInfo-data CancellableSetErrorIfCancelledMethodInfo
− GI/Gio/Objects/CharsetConverter.hs 
@@ -1,346 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.CharsetConverter-    ( ---- * Exported types-    CharsetConverter(..)                    ,-    CharsetConverterK                       ,-    toCharsetConverter                      ,-    noCharsetConverter                      ,--- -- * Methods--- ** charsetConverterGetNumFallbacks-    CharsetConverterGetNumFallbacksMethodInfo,-    charsetConverterGetNumFallbacks         ,----- ** charsetConverterGetUseFallback-    CharsetConverterGetUseFallbackMethodInfo,-    charsetConverterGetUseFallback          ,----- ** charsetConverterNew-    charsetConverterNew                     ,----- ** charsetConverterSetUseFallback-    CharsetConverterSetUseFallbackMethodInfo,-    charsetConverterSetUseFallback          ,----- -- * Properties--- ** FromCharset-    CharsetConverterFromCharsetPropertyInfo ,-    charsetConverterFromCharset             ,-    constructCharsetConverterFromCharset    ,-    getCharsetConverterFromCharset          ,----- ** ToCharset-    CharsetConverterToCharsetPropertyInfo   ,-    charsetConverterToCharset               ,-    constructCharsetConverterToCharset      ,-    getCharsetConverterToCharset            ,----- ** UseFallback-    CharsetConverterUseFallbackPropertyInfo ,-    charsetConverterUseFallback             ,-    constructCharsetConverterUseFallback    ,-    getCharsetConverterUseFallback          ,-    setCharsetConverterUseFallback          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype CharsetConverter = CharsetConverter (ForeignPtr CharsetConverter)-foreign import ccall "g_charset_converter_get_type"-    c_g_charset_converter_get_type :: IO GType--type instance ParentTypes CharsetConverter = CharsetConverterParentTypes-type CharsetConverterParentTypes = '[GObject.Object, Converter, Initable]--instance GObject CharsetConverter where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_charset_converter_get_type-    --class GObject o => CharsetConverterK o-instance (GObject o, IsDescendantOf CharsetConverter o) => CharsetConverterK o--toCharsetConverter :: CharsetConverterK o => o -> IO CharsetConverter-toCharsetConverter = unsafeCastTo CharsetConverter--noCharsetConverter :: Maybe CharsetConverter-noCharsetConverter = Nothing--type family ResolveCharsetConverterMethod (t :: Symbol) (o :: *) :: * where-    ResolveCharsetConverterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveCharsetConverterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveCharsetConverterMethod "convert" o = ConverterConvertMethodInfo-    ResolveCharsetConverterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveCharsetConverterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveCharsetConverterMethod "init" o = InitableInitMethodInfo-    ResolveCharsetConverterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveCharsetConverterMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveCharsetConverterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveCharsetConverterMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveCharsetConverterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveCharsetConverterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveCharsetConverterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveCharsetConverterMethod "reset" o = ConverterResetMethodInfo-    ResolveCharsetConverterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveCharsetConverterMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveCharsetConverterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveCharsetConverterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveCharsetConverterMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveCharsetConverterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveCharsetConverterMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveCharsetConverterMethod "getNumFallbacks" o = CharsetConverterGetNumFallbacksMethodInfo-    ResolveCharsetConverterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveCharsetConverterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveCharsetConverterMethod "getUseFallback" o = CharsetConverterGetUseFallbackMethodInfo-    ResolveCharsetConverterMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveCharsetConverterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveCharsetConverterMethod "setUseFallback" o = CharsetConverterSetUseFallbackMethodInfo-    ResolveCharsetConverterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveCharsetConverterMethod t CharsetConverter, MethodInfo info CharsetConverter p) => IsLabelProxy t (CharsetConverter -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveCharsetConverterMethod t CharsetConverter, MethodInfo info CharsetConverter p) => IsLabel t (CharsetConverter -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "from-charset"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getCharsetConverterFromCharset :: (MonadIO m, CharsetConverterK o) => o -> m (Maybe T.Text)-getCharsetConverterFromCharset obj = liftIO $ getObjectPropertyString obj "from-charset"--constructCharsetConverterFromCharset :: T.Text -> IO ([Char], GValue)-constructCharsetConverterFromCharset val = constructObjectPropertyString "from-charset" (Just val)--data CharsetConverterFromCharsetPropertyInfo-instance AttrInfo CharsetConverterFromCharsetPropertyInfo where-    type AttrAllowedOps CharsetConverterFromCharsetPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CharsetConverterFromCharsetPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CharsetConverterFromCharsetPropertyInfo = CharsetConverterK-    type AttrGetType CharsetConverterFromCharsetPropertyInfo = (Maybe T.Text)-    type AttrLabel CharsetConverterFromCharsetPropertyInfo = "from-charset"-    attrGet _ = getCharsetConverterFromCharset-    attrSet _ = undefined-    attrConstruct _ = constructCharsetConverterFromCharset-    attrClear _ = undefined---- VVV Prop "to-charset"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getCharsetConverterToCharset :: (MonadIO m, CharsetConverterK o) => o -> m (Maybe T.Text)-getCharsetConverterToCharset obj = liftIO $ getObjectPropertyString obj "to-charset"--constructCharsetConverterToCharset :: T.Text -> IO ([Char], GValue)-constructCharsetConverterToCharset val = constructObjectPropertyString "to-charset" (Just val)--data CharsetConverterToCharsetPropertyInfo-instance AttrInfo CharsetConverterToCharsetPropertyInfo where-    type AttrAllowedOps CharsetConverterToCharsetPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CharsetConverterToCharsetPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CharsetConverterToCharsetPropertyInfo = CharsetConverterK-    type AttrGetType CharsetConverterToCharsetPropertyInfo = (Maybe T.Text)-    type AttrLabel CharsetConverterToCharsetPropertyInfo = "to-charset"-    attrGet _ = getCharsetConverterToCharset-    attrSet _ = undefined-    attrConstruct _ = constructCharsetConverterToCharset-    attrClear _ = undefined---- VVV Prop "use-fallback"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getCharsetConverterUseFallback :: (MonadIO m, CharsetConverterK o) => o -> m Bool-getCharsetConverterUseFallback obj = liftIO $ getObjectPropertyBool obj "use-fallback"--setCharsetConverterUseFallback :: (MonadIO m, CharsetConverterK o) => o -> Bool -> m ()-setCharsetConverterUseFallback obj val = liftIO $ setObjectPropertyBool obj "use-fallback" val--constructCharsetConverterUseFallback :: Bool -> IO ([Char], GValue)-constructCharsetConverterUseFallback val = constructObjectPropertyBool "use-fallback" val--data CharsetConverterUseFallbackPropertyInfo-instance AttrInfo CharsetConverterUseFallbackPropertyInfo where-    type AttrAllowedOps CharsetConverterUseFallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CharsetConverterUseFallbackPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint CharsetConverterUseFallbackPropertyInfo = CharsetConverterK-    type AttrGetType CharsetConverterUseFallbackPropertyInfo = Bool-    type AttrLabel CharsetConverterUseFallbackPropertyInfo = "use-fallback"-    attrGet _ = getCharsetConverterUseFallback-    attrSet _ = setCharsetConverterUseFallback-    attrConstruct _ = constructCharsetConverterUseFallback-    attrClear _ = undefined--type instance AttributeList CharsetConverter = CharsetConverterAttributeList-type CharsetConverterAttributeList = ('[ '("fromCharset", CharsetConverterFromCharsetPropertyInfo), '("toCharset", CharsetConverterToCharsetPropertyInfo), '("useFallback", CharsetConverterUseFallbackPropertyInfo)] :: [(Symbol, *)])--charsetConverterFromCharset :: AttrLabelProxy "fromCharset"-charsetConverterFromCharset = AttrLabelProxy--charsetConverterToCharset :: AttrLabelProxy "toCharset"-charsetConverterToCharset = AttrLabelProxy--charsetConverterUseFallback :: AttrLabelProxy "useFallback"-charsetConverterUseFallback = AttrLabelProxy--type instance SignalList CharsetConverter = CharsetConverterSignalList-type CharsetConverterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method CharsetConverter::new--- method type : Constructor--- Args : [Arg {argCName = "to_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "from_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---charsetConverterNew ::-    (MonadIO m) =>-    T.Text                                  -- toCharset-    -> T.Text                               -- fromCharset-    -> m CharsetConverter                   -- result-charsetConverterNew toCharset fromCharset = liftIO $ do-    toCharset' <- textToCString toCharset-    fromCharset' <- textToCString fromCharset-    onException (do-        result <- propagateGError $ g_charset_converter_new toCharset' fromCharset'-        checkUnexpectedReturnNULL "g_charset_converter_new" result-        result' <- (wrapObject CharsetConverter) result-        freeMem toCharset'-        freeMem fromCharset'-        return result'-     ) (do-        freeMem toCharset'-        freeMem fromCharset'-     )---- method CharsetConverter::get_num_fallbacks--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "CharsetConverter"-    IO Word32---charsetConverterGetNumFallbacks ::-    (MonadIO m, CharsetConverterK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-charsetConverterGetNumFallbacks _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_charset_converter_get_num_fallbacks _obj'-    touchManagedPtr _obj-    return result--data CharsetConverterGetNumFallbacksMethodInfo-instance (signature ~ (m Word32), MonadIO m, CharsetConverterK a) => MethodInfo CharsetConverterGetNumFallbacksMethodInfo a signature where-    overloadedMethod _ = charsetConverterGetNumFallbacks---- method CharsetConverter::get_use_fallback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "CharsetConverter"-    IO CInt---charsetConverterGetUseFallback ::-    (MonadIO m, CharsetConverterK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-charsetConverterGetUseFallback _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_charset_converter_get_use_fallback _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data CharsetConverterGetUseFallbackMethodInfo-instance (signature ~ (m Bool), MonadIO m, CharsetConverterK a) => MethodInfo CharsetConverterGetUseFallbackMethodInfo a signature where-    overloadedMethod _ = charsetConverterGetUseFallback---- method CharsetConverter::set_use_fallback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_fallback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "CharsetConverter"-    CInt ->                                 -- use_fallback : TBasicType TBoolean-    IO ()---charsetConverterSetUseFallback ::-    (MonadIO m, CharsetConverterK a) =>-    a                                       -- _obj-    -> Bool                                 -- useFallback-    -> m ()                                 -- result-charsetConverterSetUseFallback _obj useFallback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let useFallback' = (fromIntegral . fromEnum) useFallback-    g_charset_converter_set_use_fallback _obj' useFallback'-    touchManagedPtr _obj-    return ()--data CharsetConverterSetUseFallbackMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, CharsetConverterK a) => MethodInfo CharsetConverterSetUseFallbackMethodInfo a signature where-    overloadedMethod _ = charsetConverterSetUseFallback--
− GI/Gio/Objects/CharsetConverter.hs-boot 
@@ -1,19 +0,0 @@-module GI.Gio.Objects.CharsetConverter where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype CharsetConverter = CharsetConverter (ForeignPtr CharsetConverter)-instance GObject CharsetConverter where-class GObject o => CharsetConverterK o-instance (GObject o, IsDescendantOf CharsetConverter o) => CharsetConverterK o-data CharsetConverterFromCharsetPropertyInfo-data CharsetConverterToCharsetPropertyInfo-data CharsetConverterUseFallbackPropertyInfo-data CharsetConverterGetNumFallbacksMethodInfo-data CharsetConverterGetUseFallbackMethodInfo-data CharsetConverterSetUseFallbackMethodInfo
− GI/Gio/Objects/ConverterInputStream.hs 
@@ -1,225 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.ConverterInputStream-    ( ---- * Exported types-    ConverterInputStream(..)                ,-    ConverterInputStreamK                   ,-    toConverterInputStream                  ,-    noConverterInputStream                  ,--- -- * Methods--- ** converterInputStreamGetConverter-    ConverterInputStreamGetConverterMethodInfo,-    converterInputStreamGetConverter        ,----- ** converterInputStreamNew-    converterInputStreamNew                 ,----- -- * Properties--- ** Converter-    ConverterInputStreamConverterPropertyInfo,-    constructConverterInputStreamConverter  ,-    converterInputStreamConverter           ,-    getConverterInputStreamConverter        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype ConverterInputStream = ConverterInputStream (ForeignPtr ConverterInputStream)-foreign import ccall "g_converter_input_stream_get_type"-    c_g_converter_input_stream_get_type :: IO GType--type instance ParentTypes ConverterInputStream = ConverterInputStreamParentTypes-type ConverterInputStreamParentTypes = '[FilterInputStream, InputStream, GObject.Object, PollableInputStream]--instance GObject ConverterInputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_converter_input_stream_get_type-    --class GObject o => ConverterInputStreamK o-instance (GObject o, IsDescendantOf ConverterInputStream o) => ConverterInputStreamK o--toConverterInputStream :: ConverterInputStreamK o => o -> IO ConverterInputStream-toConverterInputStream = unsafeCastTo ConverterInputStream--noConverterInputStream :: Maybe ConverterInputStream-noConverterInputStream = Nothing--type family ResolveConverterInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveConverterInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveConverterInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveConverterInputStreamMethod "canPoll" o = PollableInputStreamCanPollMethodInfo-    ResolveConverterInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo-    ResolveConverterInputStreamMethod "close" o = InputStreamCloseMethodInfo-    ResolveConverterInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo-    ResolveConverterInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo-    ResolveConverterInputStreamMethod "createSource" o = PollableInputStreamCreateSourceMethodInfo-    ResolveConverterInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveConverterInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveConverterInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo-    ResolveConverterInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo-    ResolveConverterInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveConverterInputStreamMethod "isReadable" o = PollableInputStreamIsReadableMethodInfo-    ResolveConverterInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveConverterInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveConverterInputStreamMethod "read" o = InputStreamReadMethodInfo-    ResolveConverterInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo-    ResolveConverterInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo-    ResolveConverterInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo-    ResolveConverterInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo-    ResolveConverterInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo-    ResolveConverterInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo-    ResolveConverterInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo-    ResolveConverterInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo-    ResolveConverterInputStreamMethod "readNonblocking" o = PollableInputStreamReadNonblockingMethodInfo-    ResolveConverterInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveConverterInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveConverterInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveConverterInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveConverterInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveConverterInputStreamMethod "skip" o = InputStreamSkipMethodInfo-    ResolveConverterInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo-    ResolveConverterInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo-    ResolveConverterInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveConverterInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveConverterInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveConverterInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveConverterInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveConverterInputStreamMethod "getBaseStream" o = FilterInputStreamGetBaseStreamMethodInfo-    ResolveConverterInputStreamMethod "getCloseBaseStream" o = FilterInputStreamGetCloseBaseStreamMethodInfo-    ResolveConverterInputStreamMethod "getConverter" o = ConverterInputStreamGetConverterMethodInfo-    ResolveConverterInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveConverterInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveConverterInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveConverterInputStreamMethod "setCloseBaseStream" o = FilterInputStreamSetCloseBaseStreamMethodInfo-    ResolveConverterInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveConverterInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo-    ResolveConverterInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveConverterInputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveConverterInputStreamMethod t ConverterInputStream, MethodInfo info ConverterInputStream p) => IsLabelProxy t (ConverterInputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveConverterInputStreamMethod t ConverterInputStream, MethodInfo info ConverterInputStream p) => IsLabel t (ConverterInputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "converter"-   -- Type: TInterface "Gio" "Converter"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getConverterInputStreamConverter :: (MonadIO m, ConverterInputStreamK o) => o -> m Converter-getConverterInputStreamConverter obj = liftIO $ checkUnexpectedNothing "getConverterInputStreamConverter" $ getObjectPropertyObject obj "converter" Converter--constructConverterInputStreamConverter :: (ConverterK a) => a -> IO ([Char], GValue)-constructConverterInputStreamConverter val = constructObjectPropertyObject "converter" (Just val)--data ConverterInputStreamConverterPropertyInfo-instance AttrInfo ConverterInputStreamConverterPropertyInfo where-    type AttrAllowedOps ConverterInputStreamConverterPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ConverterInputStreamConverterPropertyInfo = ConverterK-    type AttrBaseTypeConstraint ConverterInputStreamConverterPropertyInfo = ConverterInputStreamK-    type AttrGetType ConverterInputStreamConverterPropertyInfo = Converter-    type AttrLabel ConverterInputStreamConverterPropertyInfo = "converter"-    attrGet _ = getConverterInputStreamConverter-    attrSet _ = undefined-    attrConstruct _ = constructConverterInputStreamConverter-    attrClear _ = undefined--type instance AttributeList ConverterInputStream = ConverterInputStreamAttributeList-type ConverterInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo), '("converter", ConverterInputStreamConverterPropertyInfo)] :: [(Symbol, *)])--converterInputStreamConverter :: AttrLabelProxy "converter"-converterInputStreamConverter = AttrLabelProxy--type instance SignalList ConverterInputStream = ConverterInputStreamSignalList-type ConverterInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ConverterInputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "converter", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "ConverterInputStream")--- throws : False--- Skip return : False--foreign import ccall "g_converter_input_stream_new" g_converter_input_stream_new :: -    Ptr InputStream ->                      -- base_stream : TInterface "Gio" "InputStream"-    Ptr Converter ->                        -- converter : TInterface "Gio" "Converter"-    IO (Ptr ConverterInputStream)---converterInputStreamNew ::-    (MonadIO m, InputStreamK a, ConverterK b) =>-    a                                       -- baseStream-    -> b                                    -- converter-    -> m ConverterInputStream               -- result-converterInputStreamNew baseStream converter = liftIO $ do-    let baseStream' = unsafeManagedPtrCastPtr baseStream-    let converter' = unsafeManagedPtrCastPtr converter-    result <- g_converter_input_stream_new baseStream' converter'-    checkUnexpectedReturnNULL "g_converter_input_stream_new" result-    result' <- (wrapObject ConverterInputStream) result-    touchManagedPtr baseStream-    touchManagedPtr converter-    return result'---- method ConverterInputStream::get_converter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ConverterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Converter")--- throws : False--- Skip return : False--foreign import ccall "g_converter_input_stream_get_converter" g_converter_input_stream_get_converter :: -    Ptr ConverterInputStream ->             -- _obj : TInterface "Gio" "ConverterInputStream"-    IO (Ptr Converter)---converterInputStreamGetConverter ::-    (MonadIO m, ConverterInputStreamK a) =>-    a                                       -- _obj-    -> m Converter                          -- result-converterInputStreamGetConverter _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_converter_input_stream_get_converter _obj'-    checkUnexpectedReturnNULL "g_converter_input_stream_get_converter" result-    result' <- (newObject Converter) result-    touchManagedPtr _obj-    return result'--data ConverterInputStreamGetConverterMethodInfo-instance (signature ~ (m Converter), MonadIO m, ConverterInputStreamK a) => MethodInfo ConverterInputStreamGetConverterMethodInfo a signature where-    overloadedMethod _ = converterInputStreamGetConverter--
− GI/Gio/Objects/ConverterInputStream.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Objects.ConverterInputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ConverterInputStream = ConverterInputStream (ForeignPtr ConverterInputStream)-instance GObject ConverterInputStream where-class GObject o => ConverterInputStreamK o-instance (GObject o, IsDescendantOf ConverterInputStream o) => ConverterInputStreamK o-data ConverterInputStreamConverterPropertyInfo-data ConverterInputStreamGetConverterMethodInfo
− GI/Gio/Objects/ConverterOutputStream.hs 
@@ -1,229 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.ConverterOutputStream-    ( ---- * Exported types-    ConverterOutputStream(..)               ,-    ConverterOutputStreamK                  ,-    toConverterOutputStream                 ,-    noConverterOutputStream                 ,--- -- * Methods--- ** converterOutputStreamGetConverter-    ConverterOutputStreamGetConverterMethodInfo,-    converterOutputStreamGetConverter       ,----- ** converterOutputStreamNew-    converterOutputStreamNew                ,----- -- * Properties--- ** Converter-    ConverterOutputStreamConverterPropertyInfo,-    constructConverterOutputStreamConverter ,-    converterOutputStreamConverter          ,-    getConverterOutputStreamConverter       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype ConverterOutputStream = ConverterOutputStream (ForeignPtr ConverterOutputStream)-foreign import ccall "g_converter_output_stream_get_type"-    c_g_converter_output_stream_get_type :: IO GType--type instance ParentTypes ConverterOutputStream = ConverterOutputStreamParentTypes-type ConverterOutputStreamParentTypes = '[FilterOutputStream, OutputStream, GObject.Object, PollableOutputStream]--instance GObject ConverterOutputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_converter_output_stream_get_type-    --class GObject o => ConverterOutputStreamK o-instance (GObject o, IsDescendantOf ConverterOutputStream o) => ConverterOutputStreamK o--toConverterOutputStream :: ConverterOutputStreamK o => o -> IO ConverterOutputStream-toConverterOutputStream = unsafeCastTo ConverterOutputStream--noConverterOutputStream :: Maybe ConverterOutputStream-noConverterOutputStream = Nothing--type family ResolveConverterOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveConverterOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveConverterOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveConverterOutputStreamMethod "canPoll" o = PollableOutputStreamCanPollMethodInfo-    ResolveConverterOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo-    ResolveConverterOutputStreamMethod "close" o = OutputStreamCloseMethodInfo-    ResolveConverterOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo-    ResolveConverterOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo-    ResolveConverterOutputStreamMethod "createSource" o = PollableOutputStreamCreateSourceMethodInfo-    ResolveConverterOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo-    ResolveConverterOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo-    ResolveConverterOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo-    ResolveConverterOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveConverterOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveConverterOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo-    ResolveConverterOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo-    ResolveConverterOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo-    ResolveConverterOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveConverterOutputStreamMethod "isWritable" o = PollableOutputStreamIsWritableMethodInfo-    ResolveConverterOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveConverterOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveConverterOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveConverterOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveConverterOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveConverterOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveConverterOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveConverterOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo-    ResolveConverterOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo-    ResolveConverterOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo-    ResolveConverterOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveConverterOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveConverterOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveConverterOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveConverterOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveConverterOutputStreamMethod "write" o = OutputStreamWriteMethodInfo-    ResolveConverterOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo-    ResolveConverterOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo-    ResolveConverterOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo-    ResolveConverterOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo-    ResolveConverterOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo-    ResolveConverterOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo-    ResolveConverterOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo-    ResolveConverterOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo-    ResolveConverterOutputStreamMethod "writeNonblocking" o = PollableOutputStreamWriteNonblockingMethodInfo-    ResolveConverterOutputStreamMethod "getBaseStream" o = FilterOutputStreamGetBaseStreamMethodInfo-    ResolveConverterOutputStreamMethod "getCloseBaseStream" o = FilterOutputStreamGetCloseBaseStreamMethodInfo-    ResolveConverterOutputStreamMethod "getConverter" o = ConverterOutputStreamGetConverterMethodInfo-    ResolveConverterOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveConverterOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveConverterOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveConverterOutputStreamMethod "setCloseBaseStream" o = FilterOutputStreamSetCloseBaseStreamMethodInfo-    ResolveConverterOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveConverterOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo-    ResolveConverterOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveConverterOutputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveConverterOutputStreamMethod t ConverterOutputStream, MethodInfo info ConverterOutputStream p) => IsLabelProxy t (ConverterOutputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveConverterOutputStreamMethod t ConverterOutputStream, MethodInfo info ConverterOutputStream p) => IsLabel t (ConverterOutputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "converter"-   -- Type: TInterface "Gio" "Converter"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getConverterOutputStreamConverter :: (MonadIO m, ConverterOutputStreamK o) => o -> m Converter-getConverterOutputStreamConverter obj = liftIO $ checkUnexpectedNothing "getConverterOutputStreamConverter" $ getObjectPropertyObject obj "converter" Converter--constructConverterOutputStreamConverter :: (ConverterK a) => a -> IO ([Char], GValue)-constructConverterOutputStreamConverter val = constructObjectPropertyObject "converter" (Just val)--data ConverterOutputStreamConverterPropertyInfo-instance AttrInfo ConverterOutputStreamConverterPropertyInfo where-    type AttrAllowedOps ConverterOutputStreamConverterPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ConverterOutputStreamConverterPropertyInfo = ConverterK-    type AttrBaseTypeConstraint ConverterOutputStreamConverterPropertyInfo = ConverterOutputStreamK-    type AttrGetType ConverterOutputStreamConverterPropertyInfo = Converter-    type AttrLabel ConverterOutputStreamConverterPropertyInfo = "converter"-    attrGet _ = getConverterOutputStreamConverter-    attrSet _ = undefined-    attrConstruct _ = constructConverterOutputStreamConverter-    attrClear _ = undefined--type instance AttributeList ConverterOutputStream = ConverterOutputStreamAttributeList-type ConverterOutputStreamAttributeList = ('[ '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo), '("converter", ConverterOutputStreamConverterPropertyInfo)] :: [(Symbol, *)])--converterOutputStreamConverter :: AttrLabelProxy "converter"-converterOutputStreamConverter = AttrLabelProxy--type instance SignalList ConverterOutputStream = ConverterOutputStreamSignalList-type ConverterOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ConverterOutputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "converter", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "ConverterOutputStream")--- throws : False--- Skip return : False--foreign import ccall "g_converter_output_stream_new" g_converter_output_stream_new :: -    Ptr OutputStream ->                     -- base_stream : TInterface "Gio" "OutputStream"-    Ptr Converter ->                        -- converter : TInterface "Gio" "Converter"-    IO (Ptr ConverterOutputStream)---converterOutputStreamNew ::-    (MonadIO m, OutputStreamK a, ConverterK b) =>-    a                                       -- baseStream-    -> b                                    -- converter-    -> m ConverterOutputStream              -- result-converterOutputStreamNew baseStream converter = liftIO $ do-    let baseStream' = unsafeManagedPtrCastPtr baseStream-    let converter' = unsafeManagedPtrCastPtr converter-    result <- g_converter_output_stream_new baseStream' converter'-    checkUnexpectedReturnNULL "g_converter_output_stream_new" result-    result' <- (wrapObject ConverterOutputStream) result-    touchManagedPtr baseStream-    touchManagedPtr converter-    return result'---- method ConverterOutputStream::get_converter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ConverterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Converter")--- throws : False--- Skip return : False--foreign import ccall "g_converter_output_stream_get_converter" g_converter_output_stream_get_converter :: -    Ptr ConverterOutputStream ->            -- _obj : TInterface "Gio" "ConverterOutputStream"-    IO (Ptr Converter)---converterOutputStreamGetConverter ::-    (MonadIO m, ConverterOutputStreamK a) =>-    a                                       -- _obj-    -> m Converter                          -- result-converterOutputStreamGetConverter _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_converter_output_stream_get_converter _obj'-    checkUnexpectedReturnNULL "g_converter_output_stream_get_converter" result-    result' <- (newObject Converter) result-    touchManagedPtr _obj-    return result'--data ConverterOutputStreamGetConverterMethodInfo-instance (signature ~ (m Converter), MonadIO m, ConverterOutputStreamK a) => MethodInfo ConverterOutputStreamGetConverterMethodInfo a signature where-    overloadedMethod _ = converterOutputStreamGetConverter--
− GI/Gio/Objects/ConverterOutputStream.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Objects.ConverterOutputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ConverterOutputStream = ConverterOutputStream (ForeignPtr ConverterOutputStream)-instance GObject ConverterOutputStream where-class GObject o => ConverterOutputStreamK o-instance (GObject o, IsDescendantOf ConverterOutputStream o) => ConverterOutputStreamK o-data ConverterOutputStreamConverterPropertyInfo-data ConverterOutputStreamGetConverterMethodInfo
− GI/Gio/Objects/Credentials.hs 
@@ -1,352 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Credentials-    ( ---- * Exported types-    Credentials(..)                         ,-    CredentialsK                            ,-    toCredentials                           ,-    noCredentials                           ,--- -- * Methods--- ** credentialsGetUnixPid-    CredentialsGetUnixPidMethodInfo         ,-    credentialsGetUnixPid                   ,----- ** credentialsGetUnixUser-    CredentialsGetUnixUserMethodInfo        ,-    credentialsGetUnixUser                  ,----- ** credentialsIsSameUser-    CredentialsIsSameUserMethodInfo         ,-    credentialsIsSameUser                   ,----- ** credentialsNew-    credentialsNew                          ,----- ** credentialsSetNative-    CredentialsSetNativeMethodInfo          ,-    credentialsSetNative                    ,----- ** credentialsSetUnixUser-    CredentialsSetUnixUserMethodInfo        ,-    credentialsSetUnixUser                  ,----- ** credentialsToString-    CredentialsToStringMethodInfo           ,-    credentialsToString                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype Credentials = Credentials (ForeignPtr Credentials)-foreign import ccall "g_credentials_get_type"-    c_g_credentials_get_type :: IO GType--type instance ParentTypes Credentials = CredentialsParentTypes-type CredentialsParentTypes = '[GObject.Object]--instance GObject Credentials where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_credentials_get_type-    --class GObject o => CredentialsK o-instance (GObject o, IsDescendantOf Credentials o) => CredentialsK o--toCredentials :: CredentialsK o => o -> IO Credentials-toCredentials = unsafeCastTo Credentials--noCredentials :: Maybe Credentials-noCredentials = Nothing--type family ResolveCredentialsMethod (t :: Symbol) (o :: *) :: * where-    ResolveCredentialsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveCredentialsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveCredentialsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveCredentialsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveCredentialsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveCredentialsMethod "isSameUser" o = CredentialsIsSameUserMethodInfo-    ResolveCredentialsMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveCredentialsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveCredentialsMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveCredentialsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveCredentialsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveCredentialsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveCredentialsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveCredentialsMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveCredentialsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveCredentialsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveCredentialsMethod "toString" o = CredentialsToStringMethodInfo-    ResolveCredentialsMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveCredentialsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveCredentialsMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveCredentialsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveCredentialsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveCredentialsMethod "getUnixPid" o = CredentialsGetUnixPidMethodInfo-    ResolveCredentialsMethod "getUnixUser" o = CredentialsGetUnixUserMethodInfo-    ResolveCredentialsMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveCredentialsMethod "setNative" o = CredentialsSetNativeMethodInfo-    ResolveCredentialsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveCredentialsMethod "setUnixUser" o = CredentialsSetUnixUserMethodInfo-    ResolveCredentialsMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveCredentialsMethod t Credentials, MethodInfo info Credentials p) => IsLabelProxy t (Credentials -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveCredentialsMethod t Credentials, MethodInfo info Credentials p) => IsLabel t (Credentials -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Credentials = CredentialsAttributeList-type CredentialsAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Credentials = CredentialsSignalList-type CredentialsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Credentials::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "Credentials")--- throws : False--- Skip return : False--foreign import ccall "g_credentials_new" g_credentials_new :: -    IO (Ptr Credentials)---credentialsNew ::-    (MonadIO m) =>-    m Credentials                           -- result-credentialsNew  = liftIO $ do-    result <- g_credentials_new-    checkUnexpectedReturnNULL "g_credentials_new" result-    result' <- (wrapObject Credentials) result-    return result'---- method Credentials::get_unix_pid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Credentials"-    Ptr (Ptr GError) ->                     -- error-    IO Int32---credentialsGetUnixPid ::-    (MonadIO m, CredentialsK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-credentialsGetUnixPid _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_credentials_get_unix_pid _obj'-        touchManagedPtr _obj-        return result-     ) (do-        return ()-     )--data CredentialsGetUnixPidMethodInfo-instance (signature ~ (m Int32), MonadIO m, CredentialsK a) => MethodInfo CredentialsGetUnixPidMethodInfo a signature where-    overloadedMethod _ = credentialsGetUnixPid---- method Credentials::get_unix_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Credentials"-    Ptr (Ptr GError) ->                     -- error-    IO Word32---credentialsGetUnixUser ::-    (MonadIO m, CredentialsK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-credentialsGetUnixUser _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_credentials_get_unix_user _obj'-        touchManagedPtr _obj-        return result-     ) (do-        return ()-     )--data CredentialsGetUnixUserMethodInfo-instance (signature ~ (m Word32), MonadIO m, CredentialsK a) => MethodInfo CredentialsGetUnixUserMethodInfo a signature where-    overloadedMethod _ = credentialsGetUnixUser---- method Credentials::is_same_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other_credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Credentials"-    Ptr Credentials ->                      -- other_credentials : TInterface "Gio" "Credentials"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---credentialsIsSameUser ::-    (MonadIO m, CredentialsK a, CredentialsK b) =>-    a                                       -- _obj-    -> b                                    -- otherCredentials-    -> m ()                                 -- result-credentialsIsSameUser _obj otherCredentials = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let otherCredentials' = unsafeManagedPtrCastPtr otherCredentials-    onException (do-        _ <- propagateGError $ g_credentials_is_same_user _obj' otherCredentials'-        touchManagedPtr _obj-        touchManagedPtr otherCredentials-        return ()-     ) (do-        return ()-     )--data CredentialsIsSameUserMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, CredentialsK a, CredentialsK b) => MethodInfo CredentialsIsSameUserMethodInfo a signature where-    overloadedMethod _ = credentialsIsSameUser---- method Credentials::set_native--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "native_type", argType = TInterface "Gio" "CredentialsType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "native", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Credentials"-    CUInt ->                                -- native_type : TInterface "Gio" "CredentialsType"-    Ptr () ->                               -- native : TBasicType TPtr-    IO ()---credentialsSetNative ::-    (MonadIO m, CredentialsK a) =>-    a                                       -- _obj-    -> CredentialsType                      -- nativeType-    -> Ptr ()                               -- native-    -> m ()                                 -- result-credentialsSetNative _obj nativeType native = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let nativeType' = (fromIntegral . fromEnum) nativeType-    g_credentials_set_native _obj' nativeType' native-    touchManagedPtr _obj-    return ()--data CredentialsSetNativeMethodInfo-instance (signature ~ (CredentialsType -> Ptr () -> m ()), MonadIO m, CredentialsK a) => MethodInfo CredentialsSetNativeMethodInfo a signature where-    overloadedMethod _ = credentialsSetNative---- method Credentials::set_unix_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uid", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Credentials"-    Word32 ->                               -- uid : TBasicType TUInt-    Ptr (Ptr GError) ->                     -- error-    IO CInt---credentialsSetUnixUser ::-    (MonadIO m, CredentialsK a) =>-    a                                       -- _obj-    -> Word32                               -- uid-    -> m ()                                 -- result-credentialsSetUnixUser _obj uid = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_credentials_set_unix_user _obj' uid-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data CredentialsSetUnixUserMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, CredentialsK a) => MethodInfo CredentialsSetUnixUserMethodInfo a signature where-    overloadedMethod _ = credentialsSetUnixUser---- method Credentials::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "Credentials"-    IO CString---credentialsToString ::-    (MonadIO m, CredentialsK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-credentialsToString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_credentials_to_string _obj'-    checkUnexpectedReturnNULL "g_credentials_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data CredentialsToStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m, CredentialsK a) => MethodInfo CredentialsToStringMethodInfo a signature where-    overloadedMethod _ = credentialsToString--
− GI/Gio/Objects/Credentials.hs-boot 
@@ -1,19 +0,0 @@-module GI.Gio.Objects.Credentials where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Credentials = Credentials (ForeignPtr Credentials)-instance GObject Credentials where-class GObject o => CredentialsK o-instance (GObject o, IsDescendantOf Credentials o) => CredentialsK o-data CredentialsGetUnixPidMethodInfo-data CredentialsGetUnixUserMethodInfo-data CredentialsIsSameUserMethodInfo-data CredentialsSetNativeMethodInfo-data CredentialsSetUnixUserMethodInfo-data CredentialsToStringMethodInfo
− GI/Gio/Objects/DBusActionGroup.hs 
@@ -1,148 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusActionGroup-    ( ---- * Exported types-    DBusActionGroup(..)                     ,-    DBusActionGroupK                        ,-    toDBusActionGroup                       ,-    noDBusActionGroup                       ,--- -- * Methods--- ** dBusActionGroupGet-    dBusActionGroupGet                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DBusActionGroup = DBusActionGroup (ForeignPtr DBusActionGroup)-foreign import ccall "g_dbus_action_group_get_type"-    c_g_dbus_action_group_get_type :: IO GType--type instance ParentTypes DBusActionGroup = DBusActionGroupParentTypes-type DBusActionGroupParentTypes = '[GObject.Object, ActionGroup, RemoteActionGroup]--instance GObject DBusActionGroup where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_action_group_get_type-    --class GObject o => DBusActionGroupK o-instance (GObject o, IsDescendantOf DBusActionGroup o) => DBusActionGroupK o--toDBusActionGroup :: DBusActionGroupK o => o -> IO DBusActionGroup-toDBusActionGroup = unsafeCastTo DBusActionGroup--noDBusActionGroup :: Maybe DBusActionGroup-noDBusActionGroup = Nothing--type family ResolveDBusActionGroupMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusActionGroupMethod "actionAdded" o = ActionGroupActionAddedMethodInfo-    ResolveDBusActionGroupMethod "actionEnabledChanged" o = ActionGroupActionEnabledChangedMethodInfo-    ResolveDBusActionGroupMethod "actionRemoved" o = ActionGroupActionRemovedMethodInfo-    ResolveDBusActionGroupMethod "actionStateChanged" o = ActionGroupActionStateChangedMethodInfo-    ResolveDBusActionGroupMethod "activateAction" o = ActionGroupActivateActionMethodInfo-    ResolveDBusActionGroupMethod "activateActionFull" o = RemoteActionGroupActivateActionFullMethodInfo-    ResolveDBusActionGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusActionGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusActionGroupMethod "changeActionState" o = ActionGroupChangeActionStateMethodInfo-    ResolveDBusActionGroupMethod "changeActionStateFull" o = RemoteActionGroupChangeActionStateFullMethodInfo-    ResolveDBusActionGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusActionGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusActionGroupMethod "hasAction" o = ActionGroupHasActionMethodInfo-    ResolveDBusActionGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo-    ResolveDBusActionGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusActionGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusActionGroupMethod "queryAction" o = ActionGroupQueryActionMethodInfo-    ResolveDBusActionGroupMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusActionGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusActionGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusActionGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusActionGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusActionGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusActionGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusActionGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusActionGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusActionGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusActionGroupMethod "getActionEnabled" o = ActionGroupGetActionEnabledMethodInfo-    ResolveDBusActionGroupMethod "getActionParameterType" o = ActionGroupGetActionParameterTypeMethodInfo-    ResolveDBusActionGroupMethod "getActionState" o = ActionGroupGetActionStateMethodInfo-    ResolveDBusActionGroupMethod "getActionStateHint" o = ActionGroupGetActionStateHintMethodInfo-    ResolveDBusActionGroupMethod "getActionStateType" o = ActionGroupGetActionStateTypeMethodInfo-    ResolveDBusActionGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusActionGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusActionGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusActionGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusActionGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusActionGroupMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusActionGroupMethod t DBusActionGroup, MethodInfo info DBusActionGroup p) => IsLabelProxy t (DBusActionGroup -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusActionGroupMethod t DBusActionGroup, MethodInfo info DBusActionGroup p) => IsLabel t (DBusActionGroup -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList DBusActionGroup = DBusActionGroupAttributeList-type DBusActionGroupAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList DBusActionGroup = DBusActionGroupSignalList-type DBusActionGroupSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DBusActionGroup::get--- method type : MemberFunction--- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusActionGroup")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_action_group_get" g_dbus_action_group_get :: -    Ptr DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    CString ->                              -- bus_name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    IO (Ptr DBusActionGroup)---dBusActionGroupGet ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- connection-    -> T.Text                               -- busName-    -> T.Text                               -- objectPath-    -> m DBusActionGroup                    -- result-dBusActionGroupGet connection busName objectPath = liftIO $ do-    let connection' = unsafeManagedPtrCastPtr connection-    busName' <- textToCString busName-    objectPath' <- textToCString objectPath-    result <- g_dbus_action_group_get connection' busName' objectPath'-    checkUnexpectedReturnNULL "g_dbus_action_group_get" result-    result' <- (wrapObject DBusActionGroup) result-    touchManagedPtr connection-    freeMem busName'-    freeMem objectPath'-    return result'--
− GI/Gio/Objects/DBusActionGroup.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gio.Objects.DBusActionGroup where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusActionGroup = DBusActionGroup (ForeignPtr DBusActionGroup)-instance GObject DBusActionGroup where-class GObject o => DBusActionGroupK o-instance (GObject o, IsDescendantOf DBusActionGroup o) => DBusActionGroupK o
− GI/Gio/Objects/DBusAuthObserver.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusAuthObserver-    ( ---- * Exported types-    DBusAuthObserver(..)                    ,-    DBusAuthObserverK                       ,-    toDBusAuthObserver                      ,-    noDBusAuthObserver                      ,--- -- * Methods--- ** dBusAuthObserverAllowMechanism-    DBusAuthObserverAllowMechanismMethodInfo,-    dBusAuthObserverAllowMechanism          ,----- ** dBusAuthObserverAuthorizeAuthenticatedPeer-    DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo,-    dBusAuthObserverAuthorizeAuthenticatedPeer,----- ** dBusAuthObserverNew-    dBusAuthObserverNew                     ,----- -- * Signals--- ** AllowMechanism-    DBusAuthObserverAllowMechanismCallback  ,-    DBusAuthObserverAllowMechanismCallbackC ,-    DBusAuthObserverAllowMechanismSignalInfo,-    afterDBusAuthObserverAllowMechanism     ,-    dBusAuthObserverAllowMechanismCallbackWrapper,-    dBusAuthObserverAllowMechanismClosure   ,-    mkDBusAuthObserverAllowMechanismCallback,-    noDBusAuthObserverAllowMechanismCallback,-    onDBusAuthObserverAllowMechanism        ,----- ** AuthorizeAuthenticatedPeer-    DBusAuthObserverAuthorizeAuthenticatedPeerCallback,-    DBusAuthObserverAuthorizeAuthenticatedPeerCallbackC,-    DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo,-    afterDBusAuthObserverAuthorizeAuthenticatedPeer,-    dBusAuthObserverAuthorizeAuthenticatedPeerCallbackWrapper,-    dBusAuthObserverAuthorizeAuthenticatedPeerClosure,-    mkDBusAuthObserverAuthorizeAuthenticatedPeerCallback,-    noDBusAuthObserverAuthorizeAuthenticatedPeerCallback,-    onDBusAuthObserverAuthorizeAuthenticatedPeer,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DBusAuthObserver = DBusAuthObserver (ForeignPtr DBusAuthObserver)-foreign import ccall "g_dbus_auth_observer_get_type"-    c_g_dbus_auth_observer_get_type :: IO GType--type instance ParentTypes DBusAuthObserver = DBusAuthObserverParentTypes-type DBusAuthObserverParentTypes = '[GObject.Object]--instance GObject DBusAuthObserver where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_auth_observer_get_type-    --class GObject o => DBusAuthObserverK o-instance (GObject o, IsDescendantOf DBusAuthObserver o) => DBusAuthObserverK o--toDBusAuthObserver :: DBusAuthObserverK o => o -> IO DBusAuthObserver-toDBusAuthObserver = unsafeCastTo DBusAuthObserver--noDBusAuthObserver :: Maybe DBusAuthObserver-noDBusAuthObserver = Nothing--type family ResolveDBusAuthObserverMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusAuthObserverMethod "allowMechanism" o = DBusAuthObserverAllowMechanismMethodInfo-    ResolveDBusAuthObserverMethod "authorizeAuthenticatedPeer" o = DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo-    ResolveDBusAuthObserverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusAuthObserverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusAuthObserverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusAuthObserverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusAuthObserverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusAuthObserverMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusAuthObserverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusAuthObserverMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusAuthObserverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusAuthObserverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusAuthObserverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusAuthObserverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusAuthObserverMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusAuthObserverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusAuthObserverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusAuthObserverMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusAuthObserverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusAuthObserverMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusAuthObserverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusAuthObserverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusAuthObserverMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusAuthObserverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusAuthObserverMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusAuthObserverMethod t DBusAuthObserver, MethodInfo info DBusAuthObserver p) => IsLabelProxy t (DBusAuthObserver -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusAuthObserverMethod t DBusAuthObserver, MethodInfo info DBusAuthObserver p) => IsLabel t (DBusAuthObserver -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal DBusAuthObserver::allow-mechanism-type DBusAuthObserverAllowMechanismCallback =-    T.Text ->-    IO Bool--noDBusAuthObserverAllowMechanismCallback :: Maybe DBusAuthObserverAllowMechanismCallback-noDBusAuthObserverAllowMechanismCallback = Nothing--type DBusAuthObserverAllowMechanismCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkDBusAuthObserverAllowMechanismCallback :: DBusAuthObserverAllowMechanismCallbackC -> IO (FunPtr DBusAuthObserverAllowMechanismCallbackC)--dBusAuthObserverAllowMechanismClosure :: DBusAuthObserverAllowMechanismCallback -> IO Closure-dBusAuthObserverAllowMechanismClosure cb = newCClosure =<< mkDBusAuthObserverAllowMechanismCallback wrapped-    where wrapped = dBusAuthObserverAllowMechanismCallbackWrapper cb--dBusAuthObserverAllowMechanismCallbackWrapper ::-    DBusAuthObserverAllowMechanismCallback ->-    Ptr () ->-    CString ->-    Ptr () ->-    IO CInt-dBusAuthObserverAllowMechanismCallbackWrapper _cb _ mechanism _ = do-    mechanism' <- cstringToText mechanism-    result <- _cb  mechanism'-    let result' = (fromIntegral . fromEnum) result-    return result'--onDBusAuthObserverAllowMechanism :: (GObject a, MonadIO m) => a -> DBusAuthObserverAllowMechanismCallback -> m SignalHandlerId-onDBusAuthObserverAllowMechanism obj cb = liftIO $ connectDBusAuthObserverAllowMechanism obj cb SignalConnectBefore-afterDBusAuthObserverAllowMechanism :: (GObject a, MonadIO m) => a -> DBusAuthObserverAllowMechanismCallback -> m SignalHandlerId-afterDBusAuthObserverAllowMechanism obj cb = connectDBusAuthObserverAllowMechanism obj cb SignalConnectAfter--connectDBusAuthObserverAllowMechanism :: (GObject a, MonadIO m) =>-                                         a -> DBusAuthObserverAllowMechanismCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusAuthObserverAllowMechanism obj cb after = liftIO $ do-    cb' <- mkDBusAuthObserverAllowMechanismCallback (dBusAuthObserverAllowMechanismCallbackWrapper cb)-    connectSignalFunPtr obj "allow-mechanism" cb' after---- signal DBusAuthObserver::authorize-authenticated-peer-type DBusAuthObserverAuthorizeAuthenticatedPeerCallback =-    IOStream ->-    Maybe Credentials ->-    IO Bool--noDBusAuthObserverAuthorizeAuthenticatedPeerCallback :: Maybe DBusAuthObserverAuthorizeAuthenticatedPeerCallback-noDBusAuthObserverAuthorizeAuthenticatedPeerCallback = Nothing--type DBusAuthObserverAuthorizeAuthenticatedPeerCallbackC =-    Ptr () ->                               -- object-    Ptr IOStream ->-    Ptr Credentials ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkDBusAuthObserverAuthorizeAuthenticatedPeerCallback :: DBusAuthObserverAuthorizeAuthenticatedPeerCallbackC -> IO (FunPtr DBusAuthObserverAuthorizeAuthenticatedPeerCallbackC)--dBusAuthObserverAuthorizeAuthenticatedPeerClosure :: DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> IO Closure-dBusAuthObserverAuthorizeAuthenticatedPeerClosure cb = newCClosure =<< mkDBusAuthObserverAuthorizeAuthenticatedPeerCallback wrapped-    where wrapped = dBusAuthObserverAuthorizeAuthenticatedPeerCallbackWrapper cb--dBusAuthObserverAuthorizeAuthenticatedPeerCallbackWrapper ::-    DBusAuthObserverAuthorizeAuthenticatedPeerCallback ->-    Ptr () ->-    Ptr IOStream ->-    Ptr Credentials ->-    Ptr () ->-    IO CInt-dBusAuthObserverAuthorizeAuthenticatedPeerCallbackWrapper _cb _ stream credentials _ = do-    stream' <- (newObject IOStream) stream-    maybeCredentials <--        if credentials == nullPtr-        then return Nothing-        else do-            credentials' <- (newObject Credentials) credentials-            return $ Just credentials'-    result <- _cb  stream' maybeCredentials-    let result' = (fromIntegral . fromEnum) result-    return result'--onDBusAuthObserverAuthorizeAuthenticatedPeer :: (GObject a, MonadIO m) => a -> DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> m SignalHandlerId-onDBusAuthObserverAuthorizeAuthenticatedPeer obj cb = liftIO $ connectDBusAuthObserverAuthorizeAuthenticatedPeer obj cb SignalConnectBefore-afterDBusAuthObserverAuthorizeAuthenticatedPeer :: (GObject a, MonadIO m) => a -> DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> m SignalHandlerId-afterDBusAuthObserverAuthorizeAuthenticatedPeer obj cb = connectDBusAuthObserverAuthorizeAuthenticatedPeer obj cb SignalConnectAfter--connectDBusAuthObserverAuthorizeAuthenticatedPeer :: (GObject a, MonadIO m) =>-                                                     a -> DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusAuthObserverAuthorizeAuthenticatedPeer obj cb after = liftIO $ do-    cb' <- mkDBusAuthObserverAuthorizeAuthenticatedPeerCallback (dBusAuthObserverAuthorizeAuthenticatedPeerCallbackWrapper cb)-    connectSignalFunPtr obj "authorize-authenticated-peer" cb' after--type instance AttributeList DBusAuthObserver = DBusAuthObserverAttributeList-type DBusAuthObserverAttributeList = ('[ ] :: [(Symbol, *)])--data DBusAuthObserverAllowMechanismSignalInfo-instance SignalInfo DBusAuthObserverAllowMechanismSignalInfo where-    type HaskellCallbackType DBusAuthObserverAllowMechanismSignalInfo = DBusAuthObserverAllowMechanismCallback-    connectSignal _ = connectDBusAuthObserverAllowMechanism--data DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo-instance SignalInfo DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo where-    type HaskellCallbackType DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo = DBusAuthObserverAuthorizeAuthenticatedPeerCallback-    connectSignal _ = connectDBusAuthObserverAuthorizeAuthenticatedPeer--type instance SignalList DBusAuthObserver = DBusAuthObserverSignalList-type DBusAuthObserverSignalList = ('[ '("allowMechanism", DBusAuthObserverAllowMechanismSignalInfo), '("authorizeAuthenticatedPeer", DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DBusAuthObserver::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusAuthObserver")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_auth_observer_new" g_dbus_auth_observer_new :: -    IO (Ptr DBusAuthObserver)---dBusAuthObserverNew ::-    (MonadIO m) =>-    m DBusAuthObserver                      -- result-dBusAuthObserverNew  = liftIO $ do-    result <- g_dbus_auth_observer_new-    checkUnexpectedReturnNULL "g_dbus_auth_observer_new" result-    result' <- (wrapObject DBusAuthObserver) result-    return result'---- method DBusAuthObserver::allow_mechanism--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mechanism", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "DBusAuthObserver"-    CString ->                              -- mechanism : TBasicType TUTF8-    IO CInt---dBusAuthObserverAllowMechanism ::-    (MonadIO m, DBusAuthObserverK a) =>-    a                                       -- _obj-    -> T.Text                               -- mechanism-    -> m Bool                               -- result-dBusAuthObserverAllowMechanism _obj mechanism = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    mechanism' <- textToCString mechanism-    result <- g_dbus_auth_observer_allow_mechanism _obj' mechanism'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem mechanism'-    return result'--data DBusAuthObserverAllowMechanismMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, DBusAuthObserverK a) => MethodInfo DBusAuthObserverAllowMechanismMethodInfo a signature where-    overloadedMethod _ = dBusAuthObserverAllowMechanism---- method DBusAuthObserver::authorize_authenticated_peer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = True, 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 ->                 -- _obj : TInterface "Gio" "DBusAuthObserver"-    Ptr IOStream ->                         -- stream : TInterface "Gio" "IOStream"-    Ptr Credentials ->                      -- credentials : TInterface "Gio" "Credentials"-    IO CInt---dBusAuthObserverAuthorizeAuthenticatedPeer ::-    (MonadIO m, DBusAuthObserverK a, IOStreamK b, CredentialsK c) =>-    a                                       -- _obj-    -> b                                    -- stream-    -> Maybe (c)                            -- credentials-    -> m Bool                               -- result-dBusAuthObserverAuthorizeAuthenticatedPeer _obj stream credentials = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let stream' = unsafeManagedPtrCastPtr stream-    maybeCredentials <- case credentials of-        Nothing -> return nullPtr-        Just jCredentials -> do-            let jCredentials' = unsafeManagedPtrCastPtr jCredentials-            return jCredentials'-    result <- g_dbus_auth_observer_authorize_authenticated_peer _obj' stream' maybeCredentials-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr stream-    whenJust credentials touchManagedPtr-    return result'--data DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo-instance (signature ~ (b -> Maybe (c) -> m Bool), MonadIO m, DBusAuthObserverK a, IOStreamK b, CredentialsK c) => MethodInfo DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo a signature where-    overloadedMethod _ = dBusAuthObserverAuthorizeAuthenticatedPeer--
− GI/Gio/Objects/DBusAuthObserver.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.DBusAuthObserver where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusAuthObserver = DBusAuthObserver (ForeignPtr DBusAuthObserver)-instance GObject DBusAuthObserver where-class GObject o => DBusAuthObserverK o-instance (GObject o, IsDescendantOf DBusAuthObserver o) => DBusAuthObserverK o-data DBusAuthObserverAllowMechanismSignalInfo-data DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo-data DBusAuthObserverAllowMechanismMethodInfo-data DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo
− GI/Gio/Objects/DBusConnection.hs 
@@ -1,2699 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusConnection-    ( ---- * Exported types-    DBusConnection(..)                      ,-    DBusConnectionK                         ,-    toDBusConnection                        ,-    noDBusConnection                        ,--- -- * Methods--- ** dBusConnectionAddFilter-    DBusConnectionAddFilterMethodInfo       ,-    dBusConnectionAddFilter                 ,----- ** dBusConnectionCall-    DBusConnectionCallMethodInfo            ,-    dBusConnectionCall                      ,----- ** dBusConnectionCallFinish-    DBusConnectionCallFinishMethodInfo      ,-    dBusConnectionCallFinish                ,----- ** dBusConnectionCallSync-    DBusConnectionCallSyncMethodInfo        ,-    dBusConnectionCallSync                  ,----- ** dBusConnectionCallWithUnixFdList-    DBusConnectionCallWithUnixFdListMethodInfo,-    dBusConnectionCallWithUnixFdList        ,----- ** dBusConnectionCallWithUnixFdListFinish-    DBusConnectionCallWithUnixFdListFinishMethodInfo,-    dBusConnectionCallWithUnixFdListFinish  ,----- ** dBusConnectionCallWithUnixFdListSync-    DBusConnectionCallWithUnixFdListSyncMethodInfo,-    dBusConnectionCallWithUnixFdListSync    ,----- ** dBusConnectionClose-    DBusConnectionCloseMethodInfo           ,-    dBusConnectionClose                     ,----- ** dBusConnectionCloseFinish-    DBusConnectionCloseFinishMethodInfo     ,-    dBusConnectionCloseFinish               ,----- ** dBusConnectionCloseSync-    DBusConnectionCloseSyncMethodInfo       ,-    dBusConnectionCloseSync                 ,----- ** dBusConnectionEmitSignal-    DBusConnectionEmitSignalMethodInfo      ,-    dBusConnectionEmitSignal                ,----- ** dBusConnectionExportActionGroup-    DBusConnectionExportActionGroupMethodInfo,-    dBusConnectionExportActionGroup         ,----- ** dBusConnectionExportMenuModel-    DBusConnectionExportMenuModelMethodInfo ,-    dBusConnectionExportMenuModel           ,----- ** dBusConnectionFlush-    DBusConnectionFlushMethodInfo           ,-    dBusConnectionFlush                     ,----- ** dBusConnectionFlushFinish-    DBusConnectionFlushFinishMethodInfo     ,-    dBusConnectionFlushFinish               ,----- ** dBusConnectionFlushSync-    DBusConnectionFlushSyncMethodInfo       ,-    dBusConnectionFlushSync                 ,----- ** dBusConnectionGetCapabilities-    DBusConnectionGetCapabilitiesMethodInfo ,-    dBusConnectionGetCapabilities           ,----- ** dBusConnectionGetExitOnClose-    DBusConnectionGetExitOnCloseMethodInfo  ,-    dBusConnectionGetExitOnClose            ,----- ** dBusConnectionGetGuid-    DBusConnectionGetGuidMethodInfo         ,-    dBusConnectionGetGuid                   ,----- ** dBusConnectionGetLastSerial-    DBusConnectionGetLastSerialMethodInfo   ,-    dBusConnectionGetLastSerial             ,----- ** dBusConnectionGetPeerCredentials-    DBusConnectionGetPeerCredentialsMethodInfo,-    dBusConnectionGetPeerCredentials        ,----- ** dBusConnectionGetStream-    DBusConnectionGetStreamMethodInfo       ,-    dBusConnectionGetStream                 ,----- ** dBusConnectionGetUniqueName-    DBusConnectionGetUniqueNameMethodInfo   ,-    dBusConnectionGetUniqueName             ,----- ** dBusConnectionIsClosed-    DBusConnectionIsClosedMethodInfo        ,-    dBusConnectionIsClosed                  ,----- ** dBusConnectionNew-    dBusConnectionNew                       ,----- ** dBusConnectionNewFinish-    dBusConnectionNewFinish                 ,----- ** dBusConnectionNewForAddress-    dBusConnectionNewForAddress             ,----- ** dBusConnectionNewForAddressFinish-    dBusConnectionNewForAddressFinish       ,----- ** dBusConnectionNewForAddressSync-    dBusConnectionNewForAddressSync         ,----- ** dBusConnectionNewSync-    dBusConnectionNewSync                   ,----- ** dBusConnectionRegisterObject-    DBusConnectionRegisterObjectMethodInfo  ,-    dBusConnectionRegisterObject            ,----- ** dBusConnectionRegisterSubtree-    DBusConnectionRegisterSubtreeMethodInfo ,-    dBusConnectionRegisterSubtree           ,----- ** dBusConnectionRemoveFilter-    DBusConnectionRemoveFilterMethodInfo    ,-    dBusConnectionRemoveFilter              ,----- ** dBusConnectionSendMessage-    DBusConnectionSendMessageMethodInfo     ,-    dBusConnectionSendMessage               ,----- ** dBusConnectionSendMessageWithReply-    DBusConnectionSendMessageWithReplyMethodInfo,-    dBusConnectionSendMessageWithReply      ,----- ** dBusConnectionSendMessageWithReplyFinish-    DBusConnectionSendMessageWithReplyFinishMethodInfo,-    dBusConnectionSendMessageWithReplyFinish,----- ** dBusConnectionSendMessageWithReplySync-    DBusConnectionSendMessageWithReplySyncMethodInfo,-    dBusConnectionSendMessageWithReplySync  ,----- ** dBusConnectionSetExitOnClose-    DBusConnectionSetExitOnCloseMethodInfo  ,-    dBusConnectionSetExitOnClose            ,----- ** dBusConnectionSignalSubscribe-    DBusConnectionSignalSubscribeMethodInfo ,-    dBusConnectionSignalSubscribe           ,----- ** dBusConnectionSignalUnsubscribe-    DBusConnectionSignalUnsubscribeMethodInfo,-    dBusConnectionSignalUnsubscribe         ,----- ** dBusConnectionStartMessageProcessing-    DBusConnectionStartMessageProcessingMethodInfo,-    dBusConnectionStartMessageProcessing    ,----- ** dBusConnectionUnexportActionGroup-    DBusConnectionUnexportActionGroupMethodInfo,-    dBusConnectionUnexportActionGroup       ,----- ** dBusConnectionUnexportMenuModel-    DBusConnectionUnexportMenuModelMethodInfo,-    dBusConnectionUnexportMenuModel         ,----- ** dBusConnectionUnregisterObject-    DBusConnectionUnregisterObjectMethodInfo,-    dBusConnectionUnregisterObject          ,----- ** dBusConnectionUnregisterSubtree-    DBusConnectionUnregisterSubtreeMethodInfo,-    dBusConnectionUnregisterSubtree         ,----- -- * Properties--- ** Address-    DBusConnectionAddressPropertyInfo       ,-    constructDBusConnectionAddress          ,-    dBusConnectionAddress                   ,----- ** AuthenticationObserver-    DBusConnectionAuthenticationObserverPropertyInfo,-    constructDBusConnectionAuthenticationObserver,-    dBusConnectionAuthenticationObserver    ,----- ** Capabilities-    DBusConnectionCapabilitiesPropertyInfo  ,-    dBusConnectionCapabilities              ,-    getDBusConnectionCapabilities           ,----- ** Closed-    DBusConnectionClosedPropertyInfo        ,-    dBusConnectionClosed                    ,-    getDBusConnectionClosed                 ,----- ** ExitOnClose-    DBusConnectionExitOnClosePropertyInfo   ,-    constructDBusConnectionExitOnClose      ,-    dBusConnectionExitOnClose               ,-    getDBusConnectionExitOnClose            ,-    setDBusConnectionExitOnClose            ,----- ** Flags-    DBusConnectionFlagsPropertyInfo         ,-    constructDBusConnectionFlags            ,-    dBusConnectionFlags                     ,----- ** Guid-    DBusConnectionGuidPropertyInfo          ,-    constructDBusConnectionGuid             ,-    dBusConnectionGuid                      ,-    getDBusConnectionGuid                   ,----- ** Stream-    DBusConnectionStreamPropertyInfo        ,-    constructDBusConnectionStream           ,-    dBusConnectionStream                    ,-    getDBusConnectionStream                 ,----- ** UniqueName-    DBusConnectionUniqueNamePropertyInfo    ,-    dBusConnectionUniqueName                ,-    getDBusConnectionUniqueName             ,----- -- * Signals--- ** Closed-    DBusConnectionClosedCallback            ,-    DBusConnectionClosedCallbackC           ,-    DBusConnectionClosedSignalInfo          ,-    afterDBusConnectionClosed               ,-    dBusConnectionClosedCallbackWrapper     ,-    dBusConnectionClosedClosure             ,-    mkDBusConnectionClosedCallback          ,-    noDBusConnectionClosedCallback          ,-    onDBusConnectionClosed                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype DBusConnection = DBusConnection (ForeignPtr DBusConnection)-foreign import ccall "g_dbus_connection_get_type"-    c_g_dbus_connection_get_type :: IO GType--type instance ParentTypes DBusConnection = DBusConnectionParentTypes-type DBusConnectionParentTypes = '[GObject.Object, AsyncInitable, Initable]--instance GObject DBusConnection where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_connection_get_type-    --class GObject o => DBusConnectionK o-instance (GObject o, IsDescendantOf DBusConnection o) => DBusConnectionK o--toDBusConnection :: DBusConnectionK o => o -> IO DBusConnection-toDBusConnection = unsafeCastTo DBusConnection--noDBusConnection :: Maybe DBusConnection-noDBusConnection = Nothing--type family ResolveDBusConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusConnectionMethod "addFilter" o = DBusConnectionAddFilterMethodInfo-    ResolveDBusConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusConnectionMethod "bindPropertyFull" o = GObject.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.ObjectForceFloatingMethodInfo-    ResolveDBusConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusConnectionMethod "init" o = InitableInitMethodInfo-    ResolveDBusConnectionMethod "initAsync" o = AsyncInitableInitAsyncMethodInfo-    ResolveDBusConnectionMethod "initFinish" o = AsyncInitableInitFinishMethodInfo-    ResolveDBusConnectionMethod "isClosed" o = DBusConnectionIsClosedMethodInfo-    ResolveDBusConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusConnectionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusConnectionMethod "registerObject" o = DBusConnectionRegisterObjectMethodInfo-    ResolveDBusConnectionMethod "registerSubtree" o = DBusConnectionRegisterSubtreeMethodInfo-    ResolveDBusConnectionMethod "removeFilter" o = DBusConnectionRemoveFilterMethodInfo-    ResolveDBusConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusConnectionMethod "runDispose" o = GObject.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.ObjectStealDataMethodInfo-    ResolveDBusConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusConnectionMethod "unexportActionGroup" o = DBusConnectionUnexportActionGroupMethodInfo-    ResolveDBusConnectionMethod "unexportMenuModel" o = DBusConnectionUnexportMenuModelMethodInfo-    ResolveDBusConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusConnectionMethod "unregisterObject" o = DBusConnectionUnregisterObjectMethodInfo-    ResolveDBusConnectionMethod "unregisterSubtree" o = DBusConnectionUnregisterSubtreeMethodInfo-    ResolveDBusConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusConnectionMethod "getCapabilities" o = DBusConnectionGetCapabilitiesMethodInfo-    ResolveDBusConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusConnectionMethod "getExitOnClose" o = DBusConnectionGetExitOnCloseMethodInfo-    ResolveDBusConnectionMethod "getGuid" o = DBusConnectionGetGuidMethodInfo-    ResolveDBusConnectionMethod "getLastSerial" o = DBusConnectionGetLastSerialMethodInfo-    ResolveDBusConnectionMethod "getPeerCredentials" o = DBusConnectionGetPeerCredentialsMethodInfo-    ResolveDBusConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusConnectionMethod "getStream" o = DBusConnectionGetStreamMethodInfo-    ResolveDBusConnectionMethod "getUniqueName" o = DBusConnectionGetUniqueNameMethodInfo-    ResolveDBusConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusConnectionMethod "setExitOnClose" o = DBusConnectionSetExitOnCloseMethodInfo-    ResolveDBusConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusConnectionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusConnectionMethod t DBusConnection, MethodInfo info DBusConnection p) => IsLabelProxy t (DBusConnection -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusConnectionMethod t DBusConnection, MethodInfo info DBusConnection p) => IsLabel t (DBusConnection -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal DBusConnection::closed-type DBusConnectionClosedCallback =-    Bool ->-    Maybe GError ->-    IO ()--noDBusConnectionClosedCallback :: Maybe DBusConnectionClosedCallback-noDBusConnectionClosedCallback = Nothing--type DBusConnectionClosedCallbackC =-    Ptr () ->                               -- object-    CInt ->-    Ptr GError ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDBusConnectionClosedCallback :: DBusConnectionClosedCallbackC -> IO (FunPtr DBusConnectionClosedCallbackC)--dBusConnectionClosedClosure :: DBusConnectionClosedCallback -> IO Closure-dBusConnectionClosedClosure cb = newCClosure =<< mkDBusConnectionClosedCallback wrapped-    where wrapped = dBusConnectionClosedCallbackWrapper cb--dBusConnectionClosedCallbackWrapper ::-    DBusConnectionClosedCallback ->-    Ptr () ->-    CInt ->-    Ptr GError ->-    Ptr () ->-    IO ()-dBusConnectionClosedCallbackWrapper _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_--onDBusConnectionClosed :: (GObject a, MonadIO m) => a -> DBusConnectionClosedCallback -> m SignalHandlerId-onDBusConnectionClosed obj cb = liftIO $ connectDBusConnectionClosed obj cb SignalConnectBefore-afterDBusConnectionClosed :: (GObject a, MonadIO m) => a -> DBusConnectionClosedCallback -> m SignalHandlerId-afterDBusConnectionClosed obj cb = connectDBusConnectionClosed obj cb SignalConnectAfter--connectDBusConnectionClosed :: (GObject a, MonadIO m) =>-                               a -> DBusConnectionClosedCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusConnectionClosed obj cb after = liftIO $ do-    cb' <- mkDBusConnectionClosedCallback (dBusConnectionClosedCallbackWrapper cb)-    connectSignalFunPtr obj "closed" cb' after---- VVV Prop "address"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructDBusConnectionAddress :: T.Text -> IO ([Char], GValue)-constructDBusConnectionAddress val = constructObjectPropertyString "address" (Just val)--data DBusConnectionAddressPropertyInfo-instance AttrInfo DBusConnectionAddressPropertyInfo where-    type AttrAllowedOps DBusConnectionAddressPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint DBusConnectionAddressPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusConnectionAddressPropertyInfo = DBusConnectionK-    type AttrGetType DBusConnectionAddressPropertyInfo = ()-    type AttrLabel DBusConnectionAddressPropertyInfo = "address"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructDBusConnectionAddress-    attrClear _ = undefined---- VVV Prop "authentication-observer"-   -- Type: TInterface "Gio" "DBusAuthObserver"-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructDBusConnectionAuthenticationObserver :: (DBusAuthObserverK a) => a -> IO ([Char], GValue)-constructDBusConnectionAuthenticationObserver val = constructObjectPropertyObject "authentication-observer" (Just val)--data DBusConnectionAuthenticationObserverPropertyInfo-instance AttrInfo DBusConnectionAuthenticationObserverPropertyInfo where-    type AttrAllowedOps DBusConnectionAuthenticationObserverPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint DBusConnectionAuthenticationObserverPropertyInfo = DBusAuthObserverK-    type AttrBaseTypeConstraint DBusConnectionAuthenticationObserverPropertyInfo = DBusConnectionK-    type AttrGetType DBusConnectionAuthenticationObserverPropertyInfo = ()-    type AttrLabel DBusConnectionAuthenticationObserverPropertyInfo = "authentication-observer"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructDBusConnectionAuthenticationObserver-    attrClear _ = undefined---- VVV Prop "capabilities"-   -- Type: TInterface "Gio" "DBusCapabilityFlags"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getDBusConnectionCapabilities :: (MonadIO m, DBusConnectionK o) => o -> m [DBusCapabilityFlags]-getDBusConnectionCapabilities obj = liftIO $ getObjectPropertyFlags obj "capabilities"--data DBusConnectionCapabilitiesPropertyInfo-instance AttrInfo DBusConnectionCapabilitiesPropertyInfo where-    type AttrAllowedOps DBusConnectionCapabilitiesPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DBusConnectionCapabilitiesPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusConnectionCapabilitiesPropertyInfo = DBusConnectionK-    type AttrGetType DBusConnectionCapabilitiesPropertyInfo = [DBusCapabilityFlags]-    type AttrLabel DBusConnectionCapabilitiesPropertyInfo = "capabilities"-    attrGet _ = getDBusConnectionCapabilities-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "closed"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDBusConnectionClosed :: (MonadIO m, DBusConnectionK o) => o -> m Bool-getDBusConnectionClosed obj = liftIO $ getObjectPropertyBool obj "closed"--data DBusConnectionClosedPropertyInfo-instance AttrInfo DBusConnectionClosedPropertyInfo where-    type AttrAllowedOps DBusConnectionClosedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DBusConnectionClosedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusConnectionClosedPropertyInfo = DBusConnectionK-    type AttrGetType DBusConnectionClosedPropertyInfo = Bool-    type AttrLabel DBusConnectionClosedPropertyInfo = "closed"-    attrGet _ = getDBusConnectionClosed-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "exit-on-close"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getDBusConnectionExitOnClose :: (MonadIO m, DBusConnectionK o) => o -> m Bool-getDBusConnectionExitOnClose obj = liftIO $ getObjectPropertyBool obj "exit-on-close"--setDBusConnectionExitOnClose :: (MonadIO m, DBusConnectionK o) => o -> Bool -> m ()-setDBusConnectionExitOnClose obj val = liftIO $ setObjectPropertyBool obj "exit-on-close" val--constructDBusConnectionExitOnClose :: Bool -> IO ([Char], GValue)-constructDBusConnectionExitOnClose val = constructObjectPropertyBool "exit-on-close" val--data DBusConnectionExitOnClosePropertyInfo-instance AttrInfo DBusConnectionExitOnClosePropertyInfo where-    type AttrAllowedOps DBusConnectionExitOnClosePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusConnectionExitOnClosePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint DBusConnectionExitOnClosePropertyInfo = DBusConnectionK-    type AttrGetType DBusConnectionExitOnClosePropertyInfo = Bool-    type AttrLabel DBusConnectionExitOnClosePropertyInfo = "exit-on-close"-    attrGet _ = getDBusConnectionExitOnClose-    attrSet _ = setDBusConnectionExitOnClose-    attrConstruct _ = constructDBusConnectionExitOnClose-    attrClear _ = undefined---- VVV Prop "flags"-   -- Type: TInterface "Gio" "DBusConnectionFlags"-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructDBusConnectionFlags :: [DBusConnectionFlags] -> IO ([Char], GValue)-constructDBusConnectionFlags val = constructObjectPropertyFlags "flags" val--data DBusConnectionFlagsPropertyInfo-instance AttrInfo DBusConnectionFlagsPropertyInfo where-    type AttrAllowedOps DBusConnectionFlagsPropertyInfo = '[ 'AttrConstruct]-    type AttrSetTypeConstraint DBusConnectionFlagsPropertyInfo = (~) [DBusConnectionFlags]-    type AttrBaseTypeConstraint DBusConnectionFlagsPropertyInfo = DBusConnectionK-    type AttrGetType DBusConnectionFlagsPropertyInfo = ()-    type AttrLabel DBusConnectionFlagsPropertyInfo = "flags"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructDBusConnectionFlags-    attrClear _ = undefined---- VVV Prop "guid"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getDBusConnectionGuid :: (MonadIO m, DBusConnectionK o) => o -> m T.Text-getDBusConnectionGuid obj = liftIO $ checkUnexpectedNothing "getDBusConnectionGuid" $ getObjectPropertyString obj "guid"--constructDBusConnectionGuid :: T.Text -> IO ([Char], GValue)-constructDBusConnectionGuid val = constructObjectPropertyString "guid" (Just val)--data DBusConnectionGuidPropertyInfo-instance AttrInfo DBusConnectionGuidPropertyInfo where-    type AttrAllowedOps DBusConnectionGuidPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusConnectionGuidPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusConnectionGuidPropertyInfo = DBusConnectionK-    type AttrGetType DBusConnectionGuidPropertyInfo = T.Text-    type AttrLabel DBusConnectionGuidPropertyInfo = "guid"-    attrGet _ = getDBusConnectionGuid-    attrSet _ = undefined-    attrConstruct _ = constructDBusConnectionGuid-    attrClear _ = undefined---- VVV Prop "stream"-   -- Type: TInterface "Gio" "IOStream"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getDBusConnectionStream :: (MonadIO m, DBusConnectionK o) => o -> m IOStream-getDBusConnectionStream obj = liftIO $ checkUnexpectedNothing "getDBusConnectionStream" $ getObjectPropertyObject obj "stream" IOStream--constructDBusConnectionStream :: (IOStreamK a) => a -> IO ([Char], GValue)-constructDBusConnectionStream val = constructObjectPropertyObject "stream" (Just val)--data DBusConnectionStreamPropertyInfo-instance AttrInfo DBusConnectionStreamPropertyInfo where-    type AttrAllowedOps DBusConnectionStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusConnectionStreamPropertyInfo = IOStreamK-    type AttrBaseTypeConstraint DBusConnectionStreamPropertyInfo = DBusConnectionK-    type AttrGetType DBusConnectionStreamPropertyInfo = IOStream-    type AttrLabel DBusConnectionStreamPropertyInfo = "stream"-    attrGet _ = getDBusConnectionStream-    attrSet _ = undefined-    attrConstruct _ = constructDBusConnectionStream-    attrClear _ = undefined---- VVV Prop "unique-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getDBusConnectionUniqueName :: (MonadIO m, DBusConnectionK o) => o -> m T.Text-getDBusConnectionUniqueName obj = liftIO $ checkUnexpectedNothing "getDBusConnectionUniqueName" $ getObjectPropertyString obj "unique-name"--data DBusConnectionUniqueNamePropertyInfo-instance AttrInfo DBusConnectionUniqueNamePropertyInfo where-    type AttrAllowedOps DBusConnectionUniqueNamePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusConnectionUniqueNamePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusConnectionUniqueNamePropertyInfo = DBusConnectionK-    type AttrGetType DBusConnectionUniqueNamePropertyInfo = T.Text-    type AttrLabel DBusConnectionUniqueNamePropertyInfo = "unique-name"-    attrGet _ = getDBusConnectionUniqueName-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList DBusConnection = DBusConnectionAttributeList-type DBusConnectionAttributeList = ('[ '("address", DBusConnectionAddressPropertyInfo), '("authenticationObserver", DBusConnectionAuthenticationObserverPropertyInfo), '("capabilities", DBusConnectionCapabilitiesPropertyInfo), '("closed", DBusConnectionClosedPropertyInfo), '("exitOnClose", DBusConnectionExitOnClosePropertyInfo), '("flags", DBusConnectionFlagsPropertyInfo), '("guid", DBusConnectionGuidPropertyInfo), '("stream", DBusConnectionStreamPropertyInfo), '("uniqueName", DBusConnectionUniqueNamePropertyInfo)] :: [(Symbol, *)])--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--data DBusConnectionClosedSignalInfo-instance SignalInfo DBusConnectionClosedSignalInfo where-    type HaskellCallbackType DBusConnectionClosedSignalInfo = DBusConnectionClosedCallback-    connectSignal _ = connectDBusConnectionClosed--type instance SignalList DBusConnection = DBusConnectionSignalList-type DBusConnectionSignalList = ('[ '("closed", DBusConnectionClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DBusConnection::new_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusConnection")--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_new_finish" g_dbus_connection_new_finish :: -    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusConnection)---dBusConnectionNewFinish ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- res-    -> m DBusConnection                     -- result-dBusConnectionNewFinish res = liftIO $ do-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_connection_new_finish res'-        checkUnexpectedReturnNULL "g_dbus_connection_new_finish" result-        result' <- (wrapObject DBusConnection) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )---- method DBusConnection::new_for_address_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusConnection")--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_new_for_address_finish" g_dbus_connection_new_for_address_finish :: -    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusConnection)---dBusConnectionNewForAddressFinish ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- res-    -> m DBusConnection                     -- result-dBusConnectionNewForAddressFinish res = liftIO $ do-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_connection_new_for_address_finish res'-        checkUnexpectedReturnNULL "g_dbus_connection_new_for_address_finish" result-        result' <- (wrapObject DBusConnection) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )---- method DBusConnection::new_for_address_sync--- method type : Constructor--- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 "Gio" "DBusConnectionFlags"-    Ptr DBusAuthObserver ->                 -- observer : TInterface "Gio" "DBusAuthObserver"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusConnection)---dBusConnectionNewForAddressSync ::-    (MonadIO m, DBusAuthObserverK a, CancellableK b) =>-    T.Text                                  -- address-    -> [DBusConnectionFlags]                -- flags-    -> Maybe (a)                            -- observer-    -> Maybe (b)                            -- cancellable-    -> m DBusConnection                     -- result-dBusConnectionNewForAddressSync address flags observer cancellable = liftIO $ do-    address' <- textToCString address-    let flags' = gflagsToWord flags-    maybeObserver <- case observer of-        Nothing -> return nullPtr-        Just jObserver -> do-            let jObserver' = unsafeManagedPtrCastPtr jObserver-            return jObserver'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_connection_new_for_address_sync address' flags' maybeObserver maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_connection_new_for_address_sync" result-        result' <- (wrapObject DBusConnection) result-        whenJust observer touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem address'-        return result'-     ) (do-        freeMem address'-     )---- method DBusConnection::new_sync--- method type : Constructor--- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusConnection")--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_new_sync" g_dbus_connection_new_sync :: -    Ptr IOStream ->                         -- stream : TInterface "Gio" "IOStream"-    CString ->                              -- guid : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "DBusConnectionFlags"-    Ptr DBusAuthObserver ->                 -- observer : TInterface "Gio" "DBusAuthObserver"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusConnection)---dBusConnectionNewSync ::-    (MonadIO m, IOStreamK a, DBusAuthObserverK b, CancellableK c) =>-    a                                       -- stream-    -> Maybe (T.Text)                       -- guid-    -> [DBusConnectionFlags]                -- flags-    -> Maybe (b)                            -- observer-    -> Maybe (c)                            -- cancellable-    -> m DBusConnection                     -- result-dBusConnectionNewSync stream guid flags observer cancellable = liftIO $ do-    let 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-            let jObserver' = unsafeManagedPtrCastPtr jObserver-            return jObserver'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_connection_new_sync stream' maybeGuid flags' maybeObserver maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_connection_new_sync" result-        result' <- (wrapObject DBusConnection) result-        touchManagedPtr stream-        whenJust observer touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem maybeGuid-        return result'-     ) (do-        freeMem maybeGuid-     )---- method DBusConnection::add_filter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_function", argType = TInterface "Gio" "DBusMessageFilterFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    FunPtr DBusMessageFilterFunctionC ->    -- filter_function : TInterface "Gio" "DBusMessageFilterFunction"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- user_data_free_func : TInterface "GLib" "DestroyNotify"-    IO Word32---dBusConnectionAddFilter ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> DBusMessageFilterFunction            -- filterFunction-    -> m Word32                             -- result-dBusConnectionAddFilter _obj filterFunction = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    filterFunction' <- mkDBusMessageFilterFunction (dBusMessageFilterFunctionWrapper Nothing filterFunction)-    let userData = castFunPtrToPtr filterFunction'-    let userDataFreeFunc = safeFreeFunPtrPtr-    result <- g_dbus_connection_add_filter _obj' filterFunction' userData userDataFreeFunc-    touchManagedPtr _obj-    return result--data DBusConnectionAddFilterMethodInfo-instance (signature ~ (DBusMessageFilterFunction -> m Word32), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionAddFilterMethodInfo a signature where-    overloadedMethod _ = dBusConnectionAddFilter---- method DBusConnection::call--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 11, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "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 ->                 -- reply_type : TInterface "GLib" "VariantType"-    CUInt ->                                -- flags : TInterface "Gio" "DBusCallFlags"-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusConnectionCall ::-    (MonadIO m, DBusConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- busName-    -> T.Text                               -- objectPath-    -> T.Text                               -- interfaceName-    -> T.Text                               -- methodName-    -> Maybe (GVariant)                     -- parameters-    -> Maybe (GLib.VariantType)             -- replyType-    -> [DBusCallFlags]                      -- flags-    -> Int32                                -- timeoutMsec-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dBusConnectionCall _obj busName objectPath interfaceName methodName parameters replyType flags timeoutMsec cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jParameters' = unsafeManagedPtrGetPtr jParameters-            return jParameters'-    maybeReplyType <- case replyType of-        Nothing -> return nullPtr-        Just jReplyType -> do-            let jReplyType' = unsafeManagedPtrGetPtr jReplyType-            return jReplyType'-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_dbus_connection_call _obj' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust replyType touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem maybeBusName-    freeMem objectPath'-    freeMem interfaceName'-    freeMem methodName'-    return ()--data DBusConnectionCallMethodInfo-instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionCallMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCall---- method DBusConnection::call_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---dBusConnectionCallFinish ::-    (MonadIO m, DBusConnectionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m GVariant                           -- result-dBusConnectionCallFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_connection_call_finish _obj' res'-        checkUnexpectedReturnNULL "g_dbus_connection_call_finish" result-        result' <- wrapGVariantPtr result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data DBusConnectionCallFinishMethodInfo-instance (signature ~ (b -> m GVariant), MonadIO m, DBusConnectionK a, AsyncResultK b) => MethodInfo DBusConnectionCallFinishMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCallFinish---- method DBusConnection::call_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "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 ->                 -- reply_type : TInterface "GLib" "VariantType"-    CUInt ->                                -- flags : TInterface "Gio" "DBusCallFlags"-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---dBusConnectionCallSync ::-    (MonadIO m, DBusConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- busName-    -> T.Text                               -- objectPath-    -> T.Text                               -- interfaceName-    -> T.Text                               -- methodName-    -> Maybe (GVariant)                     -- parameters-    -> Maybe (GLib.VariantType)             -- replyType-    -> [DBusCallFlags]                      -- flags-    -> Int32                                -- timeoutMsec-    -> Maybe (b)                            -- cancellable-    -> m GVariant                           -- result-dBusConnectionCallSync _obj busName objectPath interfaceName methodName parameters replyType flags timeoutMsec cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jParameters' = unsafeManagedPtrGetPtr jParameters-            return jParameters'-    maybeReplyType <- case replyType of-        Nothing -> return nullPtr-        Just jReplyType -> do-            let jReplyType' = unsafeManagedPtrGetPtr jReplyType-            return jReplyType'-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_connection_call_sync _obj' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_connection_call_sync" result-        result' <- wrapGVariantPtr result-        touchManagedPtr _obj-        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'-     )--data DBusConnectionCallSyncMethodInfo-instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> m GVariant), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionCallSyncMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCallSync---- method DBusConnection::call_with_unix_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 12, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "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 ->                 -- reply_type : TInterface "GLib" "VariantType"-    CUInt ->                                -- flags : TInterface "Gio" "DBusCallFlags"-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr UnixFDList ->                       -- fd_list : TInterface "Gio" "UnixFDList"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusConnectionCallWithUnixFdList ::-    (MonadIO m, DBusConnectionK a, UnixFDListK b, CancellableK c) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- busName-    -> T.Text                               -- objectPath-    -> T.Text                               -- interfaceName-    -> T.Text                               -- methodName-    -> Maybe (GVariant)                     -- parameters-    -> Maybe (GLib.VariantType)             -- replyType-    -> [DBusCallFlags]                      -- flags-    -> Int32                                -- timeoutMsec-    -> Maybe (b)                            -- fdList-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dBusConnectionCallWithUnixFdList _obj busName objectPath interfaceName methodName parameters replyType flags timeoutMsec fdList cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jParameters' = unsafeManagedPtrGetPtr jParameters-            return jParameters'-    maybeReplyType <- case replyType of-        Nothing -> return nullPtr-        Just jReplyType -> do-            let jReplyType' = unsafeManagedPtrGetPtr jReplyType-            return jReplyType'-    let flags' = gflagsToWord flags-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            let jFdList' = unsafeManagedPtrCastPtr jFdList-            return jFdList'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_dbus_connection_call_with_unix_fd_list _obj' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeFdList maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust replyType touchManagedPtr-    whenJust fdList touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem maybeBusName-    freeMem objectPath'-    freeMem interfaceName'-    freeMem methodName'-    return ()--data DBusConnectionCallWithUnixFdListMethodInfo-instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusConnectionK a, UnixFDListK b, CancellableK c) => MethodInfo DBusConnectionCallWithUnixFdListMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCallWithUnixFdList---- method DBusConnection::call_with_unix_fd_list_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr (Ptr UnixFDList) ->                 -- out_fd_list : TInterface "Gio" "UnixFDList"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---dBusConnectionCallWithUnixFdListFinish ::-    (MonadIO m, DBusConnectionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m (GVariant,UnixFDList)              -- result-dBusConnectionCallWithUnixFdListFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    outFdList <- allocMem :: IO (Ptr (Ptr UnixFDList))-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_connection_call_with_unix_fd_list_finish _obj' outFdList res'-        checkUnexpectedReturnNULL "g_dbus_connection_call_with_unix_fd_list_finish" result-        result' <- wrapGVariantPtr result-        outFdList' <- peek outFdList-        outFdList'' <- (wrapObject UnixFDList) outFdList'-        touchManagedPtr _obj-        touchManagedPtr res-        freeMem outFdList-        return (result', outFdList'')-     ) (do-        freeMem outFdList-     )--data DBusConnectionCallWithUnixFdListFinishMethodInfo-instance (signature ~ (b -> m (GVariant,UnixFDList)), MonadIO m, DBusConnectionK a, AsyncResultK b) => MethodInfo DBusConnectionCallWithUnixFdListFinishMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCallWithUnixFdListFinish---- method DBusConnection::call_with_unix_fd_list_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "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 ->                 -- reply_type : TInterface "GLib" "VariantType"-    CUInt ->                                -- flags : TInterface "Gio" "DBusCallFlags"-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr UnixFDList ->                       -- fd_list : TInterface "Gio" "UnixFDList"-    Ptr (Ptr UnixFDList) ->                 -- out_fd_list : TInterface "Gio" "UnixFDList"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---dBusConnectionCallWithUnixFdListSync ::-    (MonadIO m, DBusConnectionK a, UnixFDListK b, CancellableK c) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- busName-    -> T.Text                               -- objectPath-    -> T.Text                               -- interfaceName-    -> T.Text                               -- methodName-    -> Maybe (GVariant)                     -- parameters-    -> Maybe (GLib.VariantType)             -- replyType-    -> [DBusCallFlags]                      -- flags-    -> Int32                                -- timeoutMsec-    -> Maybe (b)                            -- fdList-    -> Maybe (c)                            -- cancellable-    -> m (GVariant,UnixFDList)              -- result-dBusConnectionCallWithUnixFdListSync _obj busName objectPath interfaceName methodName parameters replyType flags timeoutMsec fdList cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jParameters' = unsafeManagedPtrGetPtr jParameters-            return jParameters'-    maybeReplyType <- case replyType of-        Nothing -> return nullPtr-        Just jReplyType -> do-            let jReplyType' = unsafeManagedPtrGetPtr jReplyType-            return jReplyType'-    let flags' = gflagsToWord flags-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            let jFdList' = unsafeManagedPtrCastPtr jFdList-            return jFdList'-    outFdList <- allocMem :: IO (Ptr (Ptr UnixFDList))-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_connection_call_with_unix_fd_list_sync _obj' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeFdList outFdList maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_connection_call_with_unix_fd_list_sync" result-        result' <- wrapGVariantPtr result-        outFdList' <- peek outFdList-        outFdList'' <- (wrapObject UnixFDList) outFdList'-        touchManagedPtr _obj-        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-     )--data DBusConnectionCallWithUnixFdListSyncMethodInfo-instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> m (GVariant,UnixFDList)), MonadIO m, DBusConnectionK a, UnixFDListK b, CancellableK c) => MethodInfo DBusConnectionCallWithUnixFdListSyncMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCallWithUnixFdListSync---- method DBusConnection::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusConnectionClose ::-    (MonadIO m, DBusConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dBusConnectionClose _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_dbus_connection_close _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data DBusConnectionCloseMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionCloseMethodInfo a signature where-    overloadedMethod _ = dBusConnectionClose---- method DBusConnection::close_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dBusConnectionCloseFinish ::-    (MonadIO m, DBusConnectionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m ()                                 -- result-dBusConnectionCloseFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        _ <- propagateGError $ g_dbus_connection_close_finish _obj' res'-        touchManagedPtr _obj-        touchManagedPtr res-        return ()-     ) (do-        return ()-     )--data DBusConnectionCloseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DBusConnectionK a, AsyncResultK b) => MethodInfo DBusConnectionCloseFinishMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCloseFinish---- method DBusConnection::close_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dBusConnectionCloseSync ::-    (MonadIO m, DBusConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-dBusConnectionCloseSync _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_dbus_connection_close_sync _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data DBusConnectionCloseSyncMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionCloseSyncMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCloseSync---- method DBusConnection::emit_signal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination_bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "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---dBusConnectionEmitSignal ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- destinationBusName-    -> T.Text                               -- objectPath-    -> T.Text                               -- interfaceName-    -> T.Text                               -- signalName-    -> Maybe (GVariant)                     -- parameters-    -> m ()                                 -- result-dBusConnectionEmitSignal _obj destinationBusName objectPath interfaceName signalName parameters = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jParameters' = unsafeManagedPtrGetPtr jParameters-            return jParameters'-    onException (do-        _ <- propagateGError $ g_dbus_connection_emit_signal _obj' maybeDestinationBusName objectPath' interfaceName' signalName' maybeParameters-        touchManagedPtr _obj-        freeMem maybeDestinationBusName-        freeMem objectPath'-        freeMem interfaceName'-        freeMem signalName'-        return ()-     ) (do-        freeMem maybeDestinationBusName-        freeMem objectPath'-        freeMem interfaceName'-        freeMem signalName'-     )--data DBusConnectionEmitSignalMethodInfo-instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionEmitSignalMethodInfo a signature where-    overloadedMethod _ = dBusConnectionEmitSignal---- method DBusConnection::export_action_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    CString ->                              -- object_path : TBasicType TUTF8-    Ptr ActionGroup ->                      -- action_group : TInterface "Gio" "ActionGroup"-    Ptr (Ptr GError) ->                     -- error-    IO Word32---dBusConnectionExportActionGroup ::-    (MonadIO m, DBusConnectionK a, ActionGroupK b) =>-    a                                       -- _obj-    -> T.Text                               -- objectPath-    -> b                                    -- actionGroup-    -> m Word32                             -- result-dBusConnectionExportActionGroup _obj objectPath actionGroup = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    objectPath' <- textToCString objectPath-    let actionGroup' = unsafeManagedPtrCastPtr actionGroup-    onException (do-        result <- propagateGError $ g_dbus_connection_export_action_group _obj' objectPath' actionGroup'-        touchManagedPtr _obj-        touchManagedPtr actionGroup-        freeMem objectPath'-        return result-     ) (do-        freeMem objectPath'-     )--data DBusConnectionExportActionGroupMethodInfo-instance (signature ~ (T.Text -> b -> m Word32), MonadIO m, DBusConnectionK a, ActionGroupK b) => MethodInfo DBusConnectionExportActionGroupMethodInfo a signature where-    overloadedMethod _ = dBusConnectionExportActionGroup---- method DBusConnection::export_menu_model--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    CString ->                              -- object_path : TBasicType TUTF8-    Ptr MenuModel ->                        -- menu : TInterface "Gio" "MenuModel"-    Ptr (Ptr GError) ->                     -- error-    IO Word32---dBusConnectionExportMenuModel ::-    (MonadIO m, DBusConnectionK a, MenuModelK b) =>-    a                                       -- _obj-    -> T.Text                               -- objectPath-    -> b                                    -- menu-    -> m Word32                             -- result-dBusConnectionExportMenuModel _obj objectPath menu = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    objectPath' <- textToCString objectPath-    let menu' = unsafeManagedPtrCastPtr menu-    onException (do-        result <- propagateGError $ g_dbus_connection_export_menu_model _obj' objectPath' menu'-        touchManagedPtr _obj-        touchManagedPtr menu-        freeMem objectPath'-        return result-     ) (do-        freeMem objectPath'-     )--data DBusConnectionExportMenuModelMethodInfo-instance (signature ~ (T.Text -> b -> m Word32), MonadIO m, DBusConnectionK a, MenuModelK b) => MethodInfo DBusConnectionExportMenuModelMethodInfo a signature where-    overloadedMethod _ = dBusConnectionExportMenuModel---- method DBusConnection::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusConnectionFlush ::-    (MonadIO m, DBusConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dBusConnectionFlush _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_dbus_connection_flush _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data DBusConnectionFlushMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionFlushMethodInfo a signature where-    overloadedMethod _ = dBusConnectionFlush---- method DBusConnection::flush_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dBusConnectionFlushFinish ::-    (MonadIO m, DBusConnectionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m ()                                 -- result-dBusConnectionFlushFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        _ <- propagateGError $ g_dbus_connection_flush_finish _obj' res'-        touchManagedPtr _obj-        touchManagedPtr res-        return ()-     ) (do-        return ()-     )--data DBusConnectionFlushFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DBusConnectionK a, AsyncResultK b) => MethodInfo DBusConnectionFlushFinishMethodInfo a signature where-    overloadedMethod _ = dBusConnectionFlushFinish---- method DBusConnection::flush_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dBusConnectionFlushSync ::-    (MonadIO m, DBusConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-dBusConnectionFlushSync _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_dbus_connection_flush_sync _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data DBusConnectionFlushSyncMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionFlushSyncMethodInfo a signature where-    overloadedMethod _ = dBusConnectionFlushSync---- method DBusConnection::get_capabilities--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusCapabilityFlags")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_get_capabilities" g_dbus_connection_get_capabilities :: -    Ptr DBusConnection ->                   -- _obj : TInterface "Gio" "DBusConnection"-    IO CUInt---dBusConnectionGetCapabilities ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> m [DBusCapabilityFlags]              -- result-dBusConnectionGetCapabilities _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_connection_get_capabilities _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data DBusConnectionGetCapabilitiesMethodInfo-instance (signature ~ (m [DBusCapabilityFlags]), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetCapabilitiesMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetCapabilities---- method DBusConnection::get_exit_on_close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    IO CInt---dBusConnectionGetExitOnClose ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-dBusConnectionGetExitOnClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_connection_get_exit_on_close _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DBusConnectionGetExitOnCloseMethodInfo-instance (signature ~ (m Bool), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetExitOnCloseMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetExitOnClose---- method DBusConnection::get_guid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    IO CString---dBusConnectionGetGuid ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusConnectionGetGuid _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_connection_get_guid _obj'-    checkUnexpectedReturnNULL "g_dbus_connection_get_guid" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusConnectionGetGuidMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetGuidMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetGuid---- method DBusConnection::get_last_serial--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    IO Word32---dBusConnectionGetLastSerial ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-dBusConnectionGetLastSerial _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_connection_get_last_serial _obj'-    touchManagedPtr _obj-    return result--data DBusConnectionGetLastSerialMethodInfo-instance (signature ~ (m Word32), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetLastSerialMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetLastSerial---- method DBusConnection::get_peer_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Credentials")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_get_peer_credentials" g_dbus_connection_get_peer_credentials :: -    Ptr DBusConnection ->                   -- _obj : TInterface "Gio" "DBusConnection"-    IO (Ptr Credentials)---dBusConnectionGetPeerCredentials ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> m Credentials                        -- result-dBusConnectionGetPeerCredentials _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_connection_get_peer_credentials _obj'-    checkUnexpectedReturnNULL "g_dbus_connection_get_peer_credentials" result-    result' <- (newObject Credentials) result-    touchManagedPtr _obj-    return result'--data DBusConnectionGetPeerCredentialsMethodInfo-instance (signature ~ (m Credentials), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetPeerCredentialsMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetPeerCredentials---- method DBusConnection::get_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "IOStream")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_get_stream" g_dbus_connection_get_stream :: -    Ptr DBusConnection ->                   -- _obj : TInterface "Gio" "DBusConnection"-    IO (Ptr IOStream)---dBusConnectionGetStream ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> m IOStream                           -- result-dBusConnectionGetStream _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_connection_get_stream _obj'-    checkUnexpectedReturnNULL "g_dbus_connection_get_stream" result-    result' <- (newObject IOStream) result-    touchManagedPtr _obj-    return result'--data DBusConnectionGetStreamMethodInfo-instance (signature ~ (m IOStream), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetStreamMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetStream---- method DBusConnection::get_unique_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    IO CString---dBusConnectionGetUniqueName ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusConnectionGetUniqueName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_connection_get_unique_name _obj'-    checkUnexpectedReturnNULL "g_dbus_connection_get_unique_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusConnectionGetUniqueNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetUniqueNameMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetUniqueName---- method DBusConnection::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    IO CInt---dBusConnectionIsClosed ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-dBusConnectionIsClosed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_connection_is_closed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DBusConnectionIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionIsClosedMethodInfo a signature where-    overloadedMethod _ = dBusConnectionIsClosed---- method DBusConnection::register_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_call_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_property_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set_property_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    CString ->                              -- object_path : TBasicType TUTF8-    Ptr DBusInterfaceInfo ->                -- interface_info : TInterface "Gio" "DBusInterfaceInfo"-    Ptr Closure ->                          -- method_call_closure : TInterface "GObject" "Closure"-    Ptr Closure ->                          -- get_property_closure : TInterface "GObject" "Closure"-    Ptr Closure ->                          -- set_property_closure : TInterface "GObject" "Closure"-    Ptr (Ptr GError) ->                     -- error-    IO Word32---dBusConnectionRegisterObject ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> T.Text                               -- objectPath-    -> DBusInterfaceInfo                    -- interfaceInfo-    -> Maybe (Closure)                      -- methodCallClosure-    -> Maybe (Closure)                      -- getPropertyClosure-    -> Maybe (Closure)                      -- setPropertyClosure-    -> m Word32                             -- result-dBusConnectionRegisterObject _obj objectPath interfaceInfo methodCallClosure getPropertyClosure setPropertyClosure = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    objectPath' <- textToCString objectPath-    let interfaceInfo' = unsafeManagedPtrGetPtr interfaceInfo-    maybeMethodCallClosure <- case methodCallClosure of-        Nothing -> return nullPtr-        Just jMethodCallClosure -> do-            let jMethodCallClosure' = unsafeManagedPtrGetPtr jMethodCallClosure-            return jMethodCallClosure'-    maybeGetPropertyClosure <- case getPropertyClosure of-        Nothing -> return nullPtr-        Just jGetPropertyClosure -> do-            let jGetPropertyClosure' = unsafeManagedPtrGetPtr jGetPropertyClosure-            return jGetPropertyClosure'-    maybeSetPropertyClosure <- case setPropertyClosure of-        Nothing -> return nullPtr-        Just jSetPropertyClosure -> do-            let jSetPropertyClosure' = unsafeManagedPtrGetPtr jSetPropertyClosure-            return jSetPropertyClosure'-    onException (do-        result <- propagateGError $ g_dbus_connection_register_object_with_closures _obj' objectPath' interfaceInfo' maybeMethodCallClosure maybeGetPropertyClosure maybeSetPropertyClosure-        touchManagedPtr _obj-        touchManagedPtr interfaceInfo-        whenJust methodCallClosure touchManagedPtr-        whenJust getPropertyClosure touchManagedPtr-        whenJust setPropertyClosure touchManagedPtr-        freeMem objectPath'-        return result-     ) (do-        freeMem objectPath'-     )--data DBusConnectionRegisterObjectMethodInfo-instance (signature ~ (T.Text -> DBusInterfaceInfo -> Maybe (Closure) -> Maybe (Closure) -> Maybe (Closure) -> m Word32), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionRegisterObjectMethodInfo a signature where-    overloadedMethod _ = dBusConnectionRegisterObject---- method DBusConnection::register_subtree--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vtable", argType = TInterface "Gio" "DBusSubtreeVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusSubtreeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    CString ->                              -- object_path : TBasicType TUTF8-    Ptr DBusSubtreeVTable ->                -- vtable : TInterface "Gio" "DBusSubtreeVTable"-    CUInt ->                                -- flags : TInterface "Gio" "DBusSubtreeFlags"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- user_data_free_func : TInterface "GLib" "DestroyNotify"-    Ptr (Ptr GError) ->                     -- error-    IO Word32---dBusConnectionRegisterSubtree ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> T.Text                               -- objectPath-    -> DBusSubtreeVTable                    -- vtable-    -> [DBusSubtreeFlags]                   -- flags-    -> Ptr ()                               -- userData-    -> GLib.DestroyNotify                   -- userDataFreeFunc-    -> m Word32                             -- result-dBusConnectionRegisterSubtree _obj objectPath vtable flags userData userDataFreeFunc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    objectPath' <- textToCString objectPath-    let vtable' = unsafeManagedPtrGetPtr vtable-    let flags' = gflagsToWord flags-    ptruserDataFreeFunc <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC))-    userDataFreeFunc' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptruserDataFreeFunc) userDataFreeFunc)-    poke ptruserDataFreeFunc userDataFreeFunc'-    onException (do-        result <- propagateGError $ g_dbus_connection_register_subtree _obj' objectPath' vtable' flags' userData userDataFreeFunc'-        touchManagedPtr _obj-        touchManagedPtr vtable-        freeMem objectPath'-        return result-     ) (do-        freeMem objectPath'-     )--data DBusConnectionRegisterSubtreeMethodInfo-instance (signature ~ (T.Text -> DBusSubtreeVTable -> [DBusSubtreeFlags] -> Ptr () -> GLib.DestroyNotify -> m Word32), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionRegisterSubtreeMethodInfo a signature where-    overloadedMethod _ = dBusConnectionRegisterSubtree---- method DBusConnection::remove_filter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Word32 ->                               -- filter_id : TBasicType TUInt-    IO ()---dBusConnectionRemoveFilter ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> Word32                               -- filterId-    -> m ()                                 -- result-dBusConnectionRemoveFilter _obj filterId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_connection_remove_filter _obj' filterId-    touchManagedPtr _obj-    return ()--data DBusConnectionRemoveFilterMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionRemoveFilterMethodInfo a signature where-    overloadedMethod _ = dBusConnectionRemoveFilter---- method DBusConnection::send_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_serial", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr DBusMessage ->                      -- message : TInterface "Gio" "DBusMessage"-    CUInt ->                                -- flags : TInterface "Gio" "DBusSendMessageFlags"-    Ptr Word32 ->                           -- out_serial : TBasicType TUInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dBusConnectionSendMessage ::-    (MonadIO m, DBusConnectionK a, DBusMessageK b) =>-    a                                       -- _obj-    -> b                                    -- message-    -> [DBusSendMessageFlags]               -- flags-    -> m (Word32)                           -- result-dBusConnectionSendMessage _obj message flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let message' = unsafeManagedPtrCastPtr message-    let flags' = gflagsToWord flags-    outSerial <- allocMem :: IO (Ptr Word32)-    onException (do-        _ <- propagateGError $ g_dbus_connection_send_message _obj' message' flags' outSerial-        outSerial' <- peek outSerial-        touchManagedPtr _obj-        touchManagedPtr message-        freeMem outSerial-        return outSerial'-     ) (do-        freeMem outSerial-     )--data DBusConnectionSendMessageMethodInfo-instance (signature ~ (b -> [DBusSendMessageFlags] -> m (Word32)), MonadIO m, DBusConnectionK a, DBusMessageK b) => MethodInfo DBusConnectionSendMessageMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSendMessage---- method DBusConnection::send_message_with_reply--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_serial", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr DBusMessage ->                      -- message : TInterface "Gio" "DBusMessage"-    CUInt ->                                -- flags : TInterface "Gio" "DBusSendMessageFlags"-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Word32 ->                           -- out_serial : TBasicType TUInt32-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusConnectionSendMessageWithReply ::-    (MonadIO m, DBusConnectionK a, DBusMessageK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- message-    -> [DBusSendMessageFlags]               -- flags-    -> Int32                                -- timeoutMsec-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m (Word32)                           -- result-dBusConnectionSendMessageWithReply _obj message flags timeoutMsec cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let message' = unsafeManagedPtrCastPtr message-    let flags' = gflagsToWord flags-    outSerial <- allocMem :: IO (Ptr Word32)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_dbus_connection_send_message_with_reply _obj' message' flags' timeoutMsec outSerial maybeCancellable maybeCallback userData-    outSerial' <- peek outSerial-    touchManagedPtr _obj-    touchManagedPtr message-    whenJust cancellable touchManagedPtr-    freeMem outSerial-    return outSerial'--data DBusConnectionSendMessageWithReplyMethodInfo-instance (signature ~ (b -> [DBusSendMessageFlags] -> Int32 -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m (Word32)), MonadIO m, DBusConnectionK a, DBusMessageK b, CancellableK c) => MethodInfo DBusConnectionSendMessageWithReplyMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSendMessageWithReply---- method DBusConnection::send_message_with_reply_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusMessage)---dBusConnectionSendMessageWithReplyFinish ::-    (MonadIO m, DBusConnectionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m DBusMessage                        -- result-dBusConnectionSendMessageWithReplyFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_connection_send_message_with_reply_finish _obj' res'-        checkUnexpectedReturnNULL "g_dbus_connection_send_message_with_reply_finish" result-        result' <- (wrapObject DBusMessage) result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data DBusConnectionSendMessageWithReplyFinishMethodInfo-instance (signature ~ (b -> m DBusMessage), MonadIO m, DBusConnectionK a, AsyncResultK b) => MethodInfo DBusConnectionSendMessageWithReplyFinishMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSendMessageWithReplyFinish---- method DBusConnection::send_message_with_reply_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_serial", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Ptr DBusMessage ->                      -- message : TInterface "Gio" "DBusMessage"-    CUInt ->                                -- flags : TInterface "Gio" "DBusSendMessageFlags"-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Word32 ->                           -- out_serial : TBasicType TUInt32-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusMessage)---dBusConnectionSendMessageWithReplySync ::-    (MonadIO m, DBusConnectionK a, DBusMessageK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- message-    -> [DBusSendMessageFlags]               -- flags-    -> Int32                                -- timeoutMsec-    -> Maybe (c)                            -- cancellable-    -> m (DBusMessage,Word32)               -- result-dBusConnectionSendMessageWithReplySync _obj message flags timeoutMsec cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let message' = unsafeManagedPtrCastPtr message-    let flags' = gflagsToWord flags-    outSerial <- allocMem :: IO (Ptr Word32)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_connection_send_message_with_reply_sync _obj' message' flags' timeoutMsec outSerial maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_connection_send_message_with_reply_sync" result-        result' <- (wrapObject DBusMessage) result-        outSerial' <- peek outSerial-        touchManagedPtr _obj-        touchManagedPtr message-        whenJust cancellable touchManagedPtr-        freeMem outSerial-        return (result', outSerial')-     ) (do-        freeMem outSerial-     )--data DBusConnectionSendMessageWithReplySyncMethodInfo-instance (signature ~ (b -> [DBusSendMessageFlags] -> Int32 -> Maybe (c) -> m (DBusMessage,Word32)), MonadIO m, DBusConnectionK a, DBusMessageK b, CancellableK c) => MethodInfo DBusConnectionSendMessageWithReplySyncMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSendMessageWithReplySync---- method DBusConnection::set_exit_on_close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exit_on_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    CInt ->                                 -- exit_on_close : TBasicType TBoolean-    IO ()---dBusConnectionSetExitOnClose ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> Bool                                 -- exitOnClose-    -> m ()                                 -- result-dBusConnectionSetExitOnClose _obj exitOnClose = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let exitOnClose' = (fromIntegral . fromEnum) exitOnClose-    g_dbus_connection_set_exit_on_close _obj' exitOnClose'-    touchManagedPtr _obj-    return ()--data DBusConnectionSetExitOnCloseMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionSetExitOnCloseMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSetExitOnClose---- method DBusConnection::signal_subscribe--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "member", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusSignalFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "DBusSignalCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 8, argDestroy = 9, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "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 "Gio" "DBusSignalFlags"-    FunPtr DBusSignalCallbackC ->           -- callback : TInterface "Gio" "DBusSignalCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- user_data_free_func : TInterface "GLib" "DestroyNotify"-    IO Word32---dBusConnectionSignalSubscribe ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- sender-    -> Maybe (T.Text)                       -- interfaceName-    -> Maybe (T.Text)                       -- member-    -> Maybe (T.Text)                       -- objectPath-    -> Maybe (T.Text)                       -- arg0-    -> [DBusSignalFlags]                    -- flags-    -> DBusSignalCallback                   -- callback-    -> m Word32                             -- result-dBusConnectionSignalSubscribe _obj sender interfaceName member objectPath arg0 flags callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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' <- mkDBusSignalCallback (dBusSignalCallbackWrapper Nothing callback)-    let userData = castFunPtrToPtr callback'-    let userDataFreeFunc = safeFreeFunPtrPtr-    result <- g_dbus_connection_signal_subscribe _obj' maybeSender maybeInterfaceName maybeMember maybeObjectPath maybeArg0 flags' callback' userData userDataFreeFunc-    touchManagedPtr _obj-    freeMem maybeSender-    freeMem maybeInterfaceName-    freeMem maybeMember-    freeMem maybeObjectPath-    freeMem maybeArg0-    return result--data DBusConnectionSignalSubscribeMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> [DBusSignalFlags] -> DBusSignalCallback -> m Word32), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionSignalSubscribeMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSignalSubscribe---- method DBusConnection::signal_unsubscribe--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subscription_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Word32 ->                               -- subscription_id : TBasicType TUInt-    IO ()---dBusConnectionSignalUnsubscribe ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> Word32                               -- subscriptionId-    -> m ()                                 -- result-dBusConnectionSignalUnsubscribe _obj subscriptionId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_connection_signal_unsubscribe _obj' subscriptionId-    touchManagedPtr _obj-    return ()--data DBusConnectionSignalUnsubscribeMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionSignalUnsubscribeMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSignalUnsubscribe---- method DBusConnection::start_message_processing--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    IO ()---dBusConnectionStartMessageProcessing ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-dBusConnectionStartMessageProcessing _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_connection_start_message_processing _obj'-    touchManagedPtr _obj-    return ()--data DBusConnectionStartMessageProcessingMethodInfo-instance (signature ~ (m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionStartMessageProcessingMethodInfo a signature where-    overloadedMethod _ = dBusConnectionStartMessageProcessing---- method DBusConnection::unexport_action_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "export_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Word32 ->                               -- export_id : TBasicType TUInt-    IO ()---dBusConnectionUnexportActionGroup ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> Word32                               -- exportId-    -> m ()                                 -- result-dBusConnectionUnexportActionGroup _obj exportId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_connection_unexport_action_group _obj' exportId-    touchManagedPtr _obj-    return ()--data DBusConnectionUnexportActionGroupMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionUnexportActionGroupMethodInfo a signature where-    overloadedMethod _ = dBusConnectionUnexportActionGroup---- method DBusConnection::unexport_menu_model--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "export_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Word32 ->                               -- export_id : TBasicType TUInt-    IO ()---dBusConnectionUnexportMenuModel ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> Word32                               -- exportId-    -> m ()                                 -- result-dBusConnectionUnexportMenuModel _obj exportId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_connection_unexport_menu_model _obj' exportId-    touchManagedPtr _obj-    return ()--data DBusConnectionUnexportMenuModelMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionUnexportMenuModelMethodInfo a signature where-    overloadedMethod _ = dBusConnectionUnexportMenuModel---- method DBusConnection::unregister_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "registration_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Word32 ->                               -- registration_id : TBasicType TUInt-    IO CInt---dBusConnectionUnregisterObject ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> Word32                               -- registrationId-    -> m Bool                               -- result-dBusConnectionUnregisterObject _obj registrationId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_connection_unregister_object _obj' registrationId-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DBusConnectionUnregisterObjectMethodInfo-instance (signature ~ (Word32 -> m Bool), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionUnregisterObjectMethodInfo a signature where-    overloadedMethod _ = dBusConnectionUnregisterObject---- method DBusConnection::unregister_subtree--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "registration_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusConnection"-    Word32 ->                               -- registration_id : TBasicType TUInt-    IO CInt---dBusConnectionUnregisterSubtree ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- _obj-    -> Word32                               -- registrationId-    -> m Bool                               -- result-dBusConnectionUnregisterSubtree _obj registrationId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_connection_unregister_subtree _obj' registrationId-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DBusConnectionUnregisterSubtreeMethodInfo-instance (signature ~ (Word32 -> m Bool), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionUnregisterSubtreeMethodInfo a signature where-    overloadedMethod _ = dBusConnectionUnregisterSubtree---- method DBusConnection::new--- method type : MemberFunction--- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 IOStream ->                         -- stream : TInterface "Gio" "IOStream"-    CString ->                              -- guid : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "DBusConnectionFlags"-    Ptr DBusAuthObserver ->                 -- observer : TInterface "Gio" "DBusAuthObserver"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusConnectionNew ::-    (MonadIO m, IOStreamK a, DBusAuthObserverK b, CancellableK c) =>-    a                                       -- stream-    -> Maybe (T.Text)                       -- guid-    -> [DBusConnectionFlags]                -- flags-    -> Maybe (b)                            -- observer-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dBusConnectionNew stream guid flags observer cancellable callback = liftIO $ do-    let 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-            let jObserver' = unsafeManagedPtrCastPtr jObserver-            return jObserver'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) 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 ()---- method DBusConnection::new_for_address--- method type : MemberFunction--- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 "Gio" "DBusConnectionFlags"-    Ptr DBusAuthObserver ->                 -- observer : TInterface "Gio" "DBusAuthObserver"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusConnectionNewForAddress ::-    (MonadIO m, DBusAuthObserverK a, CancellableK b) =>-    T.Text                                  -- address-    -> [DBusConnectionFlags]                -- flags-    -> Maybe (a)                            -- observer-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-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-            let jObserver' = unsafeManagedPtrCastPtr jObserver-            return jObserver'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) 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 ()--
− GI/Gio/Objects/DBusConnection.hs-boot 
@@ -1,62 +0,0 @@-module GI.Gio.Objects.DBusConnection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusConnection = DBusConnection (ForeignPtr DBusConnection)-instance GObject DBusConnection where-class GObject o => DBusConnectionK o-instance (GObject o, IsDescendantOf DBusConnection o) => DBusConnectionK o-data DBusConnectionAddressPropertyInfo-data DBusConnectionAuthenticationObserverPropertyInfo-data DBusConnectionCapabilitiesPropertyInfo-data DBusConnectionClosedPropertyInfo-data DBusConnectionExitOnClosePropertyInfo-data DBusConnectionFlagsPropertyInfo-data DBusConnectionGuidPropertyInfo-data DBusConnectionStreamPropertyInfo-data DBusConnectionUniqueNamePropertyInfo-data DBusConnectionClosedSignalInfo-data DBusConnectionAddFilterMethodInfo-data DBusConnectionCallMethodInfo-data DBusConnectionCallFinishMethodInfo-data DBusConnectionCallSyncMethodInfo-data DBusConnectionCallWithUnixFdListMethodInfo-data DBusConnectionCallWithUnixFdListFinishMethodInfo-data DBusConnectionCallWithUnixFdListSyncMethodInfo-data DBusConnectionCloseMethodInfo-data DBusConnectionCloseFinishMethodInfo-data DBusConnectionCloseSyncMethodInfo-data DBusConnectionEmitSignalMethodInfo-data DBusConnectionExportActionGroupMethodInfo-data DBusConnectionExportMenuModelMethodInfo-data DBusConnectionFlushMethodInfo-data DBusConnectionFlushFinishMethodInfo-data DBusConnectionFlushSyncMethodInfo-data DBusConnectionGetCapabilitiesMethodInfo-data DBusConnectionGetExitOnCloseMethodInfo-data DBusConnectionGetGuidMethodInfo-data DBusConnectionGetLastSerialMethodInfo-data DBusConnectionGetPeerCredentialsMethodInfo-data DBusConnectionGetStreamMethodInfo-data DBusConnectionGetUniqueNameMethodInfo-data DBusConnectionIsClosedMethodInfo-data DBusConnectionRegisterObjectMethodInfo-data DBusConnectionRegisterSubtreeMethodInfo-data DBusConnectionRemoveFilterMethodInfo-data DBusConnectionSendMessageMethodInfo-data DBusConnectionSendMessageWithReplyMethodInfo-data DBusConnectionSendMessageWithReplyFinishMethodInfo-data DBusConnectionSendMessageWithReplySyncMethodInfo-data DBusConnectionSetExitOnCloseMethodInfo-data DBusConnectionSignalSubscribeMethodInfo-data DBusConnectionSignalUnsubscribeMethodInfo-data DBusConnectionStartMessageProcessingMethodInfo-data DBusConnectionUnexportActionGroupMethodInfo-data DBusConnectionUnexportMenuModelMethodInfo-data DBusConnectionUnregisterObjectMethodInfo-data DBusConnectionUnregisterSubtreeMethodInfo
− GI/Gio/Objects/DBusInterfaceSkeleton.hs 
@@ -1,633 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusInterfaceSkeleton-    ( ---- * Exported types-    DBusInterfaceSkeleton(..)               ,-    DBusInterfaceSkeletonK                  ,-    toDBusInterfaceSkeleton                 ,-    noDBusInterfaceSkeleton                 ,--- -- * Methods--- ** dBusInterfaceSkeletonExport-    DBusInterfaceSkeletonExportMethodInfo   ,-    dBusInterfaceSkeletonExport             ,----- ** dBusInterfaceSkeletonFlush-    DBusInterfaceSkeletonFlushMethodInfo    ,-    dBusInterfaceSkeletonFlush              ,----- ** dBusInterfaceSkeletonGetConnection-    DBusInterfaceSkeletonGetConnectionMethodInfo,-    dBusInterfaceSkeletonGetConnection      ,----- ** dBusInterfaceSkeletonGetConnections-    DBusInterfaceSkeletonGetConnectionsMethodInfo,-    dBusInterfaceSkeletonGetConnections     ,----- ** dBusInterfaceSkeletonGetFlags-    DBusInterfaceSkeletonGetFlagsMethodInfo ,-    dBusInterfaceSkeletonGetFlags           ,----- ** dBusInterfaceSkeletonGetInfo-    DBusInterfaceSkeletonGetInfoMethodInfo  ,-    dBusInterfaceSkeletonGetInfo            ,----- ** dBusInterfaceSkeletonGetObjectPath-    DBusInterfaceSkeletonGetObjectPathMethodInfo,-    dBusInterfaceSkeletonGetObjectPath      ,----- ** dBusInterfaceSkeletonGetProperties-    DBusInterfaceSkeletonGetPropertiesMethodInfo,-    dBusInterfaceSkeletonGetProperties      ,----- ** dBusInterfaceSkeletonHasConnection-    DBusInterfaceSkeletonHasConnectionMethodInfo,-    dBusInterfaceSkeletonHasConnection      ,----- ** dBusInterfaceSkeletonSetFlags-    DBusInterfaceSkeletonSetFlagsMethodInfo ,-    dBusInterfaceSkeletonSetFlags           ,----- ** dBusInterfaceSkeletonUnexport-    DBusInterfaceSkeletonUnexportMethodInfo ,-    dBusInterfaceSkeletonUnexport           ,----- ** dBusInterfaceSkeletonUnexportFromConnection-    DBusInterfaceSkeletonUnexportFromConnectionMethodInfo,-    dBusInterfaceSkeletonUnexportFromConnection,----- -- * Properties--- ** GFlags-    DBusInterfaceSkeletonGFlagsPropertyInfo ,-    constructDBusInterfaceSkeletonGFlags    ,-    dBusInterfaceSkeletonGFlags             ,-    getDBusInterfaceSkeletonGFlags          ,-    setDBusInterfaceSkeletonGFlags          ,----- -- * Signals--- ** GAuthorizeMethod-    DBusInterfaceSkeletonGAuthorizeMethodCallback,-    DBusInterfaceSkeletonGAuthorizeMethodCallbackC,-    DBusInterfaceSkeletonGAuthorizeMethodSignalInfo,-    afterDBusInterfaceSkeletonGAuthorizeMethod,-    dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper,-    dBusInterfaceSkeletonGAuthorizeMethodClosure,-    mkDBusInterfaceSkeletonGAuthorizeMethodCallback,-    noDBusInterfaceSkeletonGAuthorizeMethodCallback,-    onDBusInterfaceSkeletonGAuthorizeMethod ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DBusInterfaceSkeleton = DBusInterfaceSkeleton (ForeignPtr DBusInterfaceSkeleton)-foreign import ccall "g_dbus_interface_skeleton_get_type"-    c_g_dbus_interface_skeleton_get_type :: IO GType--type instance ParentTypes DBusInterfaceSkeleton = DBusInterfaceSkeletonParentTypes-type DBusInterfaceSkeletonParentTypes = '[GObject.Object, DBusInterface]--instance GObject DBusInterfaceSkeleton where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_interface_skeleton_get_type-    --class GObject o => DBusInterfaceSkeletonK o-instance (GObject o, IsDescendantOf DBusInterfaceSkeleton o) => DBusInterfaceSkeletonK o--toDBusInterfaceSkeleton :: DBusInterfaceSkeletonK o => o -> IO DBusInterfaceSkeleton-toDBusInterfaceSkeleton = unsafeCastTo DBusInterfaceSkeleton--noDBusInterfaceSkeleton :: Maybe DBusInterfaceSkeleton-noDBusInterfaceSkeleton = Nothing--type family ResolveDBusInterfaceSkeletonMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusInterfaceSkeletonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusInterfaceSkeletonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusInterfaceSkeletonMethod "export" o = DBusInterfaceSkeletonExportMethodInfo-    ResolveDBusInterfaceSkeletonMethod "flush" o = DBusInterfaceSkeletonFlushMethodInfo-    ResolveDBusInterfaceSkeletonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusInterfaceSkeletonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusInterfaceSkeletonMethod "hasConnection" o = DBusInterfaceSkeletonHasConnectionMethodInfo-    ResolveDBusInterfaceSkeletonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusInterfaceSkeletonMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusInterfaceSkeletonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusInterfaceSkeletonMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusInterfaceSkeletonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusInterfaceSkeletonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusInterfaceSkeletonMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusInterfaceSkeletonMethod "unexport" o = DBusInterfaceSkeletonUnexportMethodInfo-    ResolveDBusInterfaceSkeletonMethod "unexportFromConnection" o = DBusInterfaceSkeletonUnexportFromConnectionMethodInfo-    ResolveDBusInterfaceSkeletonMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusInterfaceSkeletonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getConnection" o = DBusInterfaceSkeletonGetConnectionMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getConnections" o = DBusInterfaceSkeletonGetConnectionsMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getFlags" o = DBusInterfaceSkeletonGetFlagsMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getObject" o = DBusInterfaceGetObjectMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getObjectPath" o = DBusInterfaceSkeletonGetObjectPathMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getProperties" o = DBusInterfaceSkeletonGetPropertiesMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "setFlags" o = DBusInterfaceSkeletonSetFlagsMethodInfo-    ResolveDBusInterfaceSkeletonMethod "setObject" o = DBusInterfaceSetObjectMethodInfo-    ResolveDBusInterfaceSkeletonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusInterfaceSkeletonMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusInterfaceSkeletonMethod t DBusInterfaceSkeleton, MethodInfo info DBusInterfaceSkeleton p) => IsLabelProxy t (DBusInterfaceSkeleton -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusInterfaceSkeletonMethod t DBusInterfaceSkeleton, MethodInfo info DBusInterfaceSkeleton p) => IsLabel t (DBusInterfaceSkeleton -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal DBusInterfaceSkeleton::g-authorize-method-type DBusInterfaceSkeletonGAuthorizeMethodCallback =-    DBusMethodInvocation ->-    IO Bool--noDBusInterfaceSkeletonGAuthorizeMethodCallback :: Maybe DBusInterfaceSkeletonGAuthorizeMethodCallback-noDBusInterfaceSkeletonGAuthorizeMethodCallback = Nothing--type DBusInterfaceSkeletonGAuthorizeMethodCallbackC =-    Ptr () ->                               -- object-    Ptr DBusMethodInvocation ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkDBusInterfaceSkeletonGAuthorizeMethodCallback :: DBusInterfaceSkeletonGAuthorizeMethodCallbackC -> IO (FunPtr DBusInterfaceSkeletonGAuthorizeMethodCallbackC)--dBusInterfaceSkeletonGAuthorizeMethodClosure :: DBusInterfaceSkeletonGAuthorizeMethodCallback -> IO Closure-dBusInterfaceSkeletonGAuthorizeMethodClosure cb = newCClosure =<< mkDBusInterfaceSkeletonGAuthorizeMethodCallback wrapped-    where wrapped = dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper cb--dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper ::-    DBusInterfaceSkeletonGAuthorizeMethodCallback ->-    Ptr () ->-    Ptr DBusMethodInvocation ->-    Ptr () ->-    IO CInt-dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper _cb _ invocation _ = do-    invocation' <- (newObject DBusMethodInvocation) invocation-    result <- _cb  invocation'-    let result' = (fromIntegral . fromEnum) result-    return result'--onDBusInterfaceSkeletonGAuthorizeMethod :: (GObject a, MonadIO m) => a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> m SignalHandlerId-onDBusInterfaceSkeletonGAuthorizeMethod obj cb = liftIO $ connectDBusInterfaceSkeletonGAuthorizeMethod obj cb SignalConnectBefore-afterDBusInterfaceSkeletonGAuthorizeMethod :: (GObject a, MonadIO m) => a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> m SignalHandlerId-afterDBusInterfaceSkeletonGAuthorizeMethod obj cb = connectDBusInterfaceSkeletonGAuthorizeMethod obj cb SignalConnectAfter--connectDBusInterfaceSkeletonGAuthorizeMethod :: (GObject a, MonadIO m) =>-                                                a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusInterfaceSkeletonGAuthorizeMethod obj cb after = liftIO $ do-    cb' <- mkDBusInterfaceSkeletonGAuthorizeMethodCallback (dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper cb)-    connectSignalFunPtr obj "g-authorize-method" cb' after---- VVV Prop "g-flags"-   -- Type: TInterface "Gio" "DBusInterfaceSkeletonFlags"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getDBusInterfaceSkeletonGFlags :: (MonadIO m, DBusInterfaceSkeletonK o) => o -> m [DBusInterfaceSkeletonFlags]-getDBusInterfaceSkeletonGFlags obj = liftIO $ getObjectPropertyFlags obj "g-flags"--setDBusInterfaceSkeletonGFlags :: (MonadIO m, DBusInterfaceSkeletonK o) => o -> [DBusInterfaceSkeletonFlags] -> m ()-setDBusInterfaceSkeletonGFlags obj val = liftIO $ setObjectPropertyFlags obj "g-flags" val--constructDBusInterfaceSkeletonGFlags :: [DBusInterfaceSkeletonFlags] -> IO ([Char], GValue)-constructDBusInterfaceSkeletonGFlags val = constructObjectPropertyFlags "g-flags" val--data DBusInterfaceSkeletonGFlagsPropertyInfo-instance AttrInfo DBusInterfaceSkeletonGFlagsPropertyInfo where-    type AttrAllowedOps DBusInterfaceSkeletonGFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = (~) [DBusInterfaceSkeletonFlags]-    type AttrBaseTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = DBusInterfaceSkeletonK-    type AttrGetType DBusInterfaceSkeletonGFlagsPropertyInfo = [DBusInterfaceSkeletonFlags]-    type AttrLabel DBusInterfaceSkeletonGFlagsPropertyInfo = "g-flags"-    attrGet _ = getDBusInterfaceSkeletonGFlags-    attrSet _ = setDBusInterfaceSkeletonGFlags-    attrConstruct _ = constructDBusInterfaceSkeletonGFlags-    attrClear _ = undefined--type instance AttributeList DBusInterfaceSkeleton = DBusInterfaceSkeletonAttributeList-type DBusInterfaceSkeletonAttributeList = ('[ '("gFlags", DBusInterfaceSkeletonGFlagsPropertyInfo)] :: [(Symbol, *)])--dBusInterfaceSkeletonGFlags :: AttrLabelProxy "gFlags"-dBusInterfaceSkeletonGFlags = AttrLabelProxy--data DBusInterfaceSkeletonGAuthorizeMethodSignalInfo-instance SignalInfo DBusInterfaceSkeletonGAuthorizeMethodSignalInfo where-    type HaskellCallbackType DBusInterfaceSkeletonGAuthorizeMethodSignalInfo = DBusInterfaceSkeletonGAuthorizeMethodCallback-    connectSignal _ = connectDBusInterfaceSkeletonGAuthorizeMethod--type instance SignalList DBusInterfaceSkeleton = DBusInterfaceSkeletonSignalList-type DBusInterfaceSkeletonSignalList = ('[ '("gAuthorizeMethod", DBusInterfaceSkeletonGAuthorizeMethodSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DBusInterfaceSkeleton::export--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    Ptr DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    CString ->                              -- object_path : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dBusInterfaceSkeletonExport ::-    (MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) =>-    a                                       -- _obj-    -> b                                    -- connection-    -> T.Text                               -- objectPath-    -> m ()                                 -- result-dBusInterfaceSkeletonExport _obj connection objectPath = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connection' = unsafeManagedPtrCastPtr connection-    objectPath' <- textToCString objectPath-    onException (do-        _ <- propagateGError $ g_dbus_interface_skeleton_export _obj' connection' objectPath'-        touchManagedPtr _obj-        touchManagedPtr connection-        freeMem objectPath'-        return ()-     ) (do-        freeMem objectPath'-     )--data DBusInterfaceSkeletonExportMethodInfo-instance (signature ~ (b -> T.Text -> m ()), MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => MethodInfo DBusInterfaceSkeletonExportMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonExport---- method DBusInterfaceSkeleton::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, 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 ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    IO ()---dBusInterfaceSkeletonFlush ::-    (MonadIO m, DBusInterfaceSkeletonK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-dBusInterfaceSkeletonFlush _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_interface_skeleton_flush _obj'-    touchManagedPtr _obj-    return ()--data DBusInterfaceSkeletonFlushMethodInfo-instance (signature ~ (m ()), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonFlushMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonFlush---- method DBusInterfaceSkeleton::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusConnection")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_get_connection" g_dbus_interface_skeleton_get_connection :: -    Ptr DBusInterfaceSkeleton ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    IO (Ptr DBusConnection)---dBusInterfaceSkeletonGetConnection ::-    (MonadIO m, DBusInterfaceSkeletonK a) =>-    a                                       -- _obj-    -> m DBusConnection                     -- result-dBusInterfaceSkeletonGetConnection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_interface_skeleton_get_connection _obj'-    checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_connection" result-    result' <- (newObject DBusConnection) result-    touchManagedPtr _obj-    return result'--data DBusInterfaceSkeletonGetConnectionMethodInfo-instance (signature ~ (m DBusConnection), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetConnection---- method DBusInterfaceSkeleton::get_connections--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "DBusConnection"))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_get_connections" g_dbus_interface_skeleton_get_connections :: -    Ptr DBusInterfaceSkeleton ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    IO (Ptr (GList (Ptr DBusConnection)))---dBusInterfaceSkeletonGetConnections ::-    (MonadIO m, DBusInterfaceSkeletonK a) =>-    a                                       -- _obj-    -> m [DBusConnection]                   -- result-dBusInterfaceSkeletonGetConnections _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_interface_skeleton_get_connections _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapObject DBusConnection) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data DBusInterfaceSkeletonGetConnectionsMethodInfo-instance (signature ~ (m [DBusConnection]), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetConnectionsMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetConnections---- method DBusInterfaceSkeleton::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusInterfaceSkeletonFlags")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_get_flags" g_dbus_interface_skeleton_get_flags :: -    Ptr DBusInterfaceSkeleton ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    IO CUInt---dBusInterfaceSkeletonGetFlags ::-    (MonadIO m, DBusInterfaceSkeletonK a) =>-    a                                       -- _obj-    -> m [DBusInterfaceSkeletonFlags]       -- result-dBusInterfaceSkeletonGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_interface_skeleton_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data DBusInterfaceSkeletonGetFlagsMethodInfo-instance (signature ~ (m [DBusInterfaceSkeletonFlags]), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetFlags---- method DBusInterfaceSkeleton::get_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusInterfaceInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_get_info" g_dbus_interface_skeleton_get_info :: -    Ptr DBusInterfaceSkeleton ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    IO (Ptr DBusInterfaceInfo)---dBusInterfaceSkeletonGetInfo ::-    (MonadIO m, DBusInterfaceSkeletonK a) =>-    a                                       -- _obj-    -> m DBusInterfaceInfo                  -- result-dBusInterfaceSkeletonGetInfo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_interface_skeleton_get_info _obj'-    checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_info" result-    result' <- (newBoxed DBusInterfaceInfo) result-    touchManagedPtr _obj-    return result'--data DBusInterfaceSkeletonGetInfoMethodInfo-instance (signature ~ (m DBusInterfaceInfo), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetInfoMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetInfo---- method DBusInterfaceSkeleton::get_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, 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 ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    IO CString---dBusInterfaceSkeletonGetObjectPath ::-    (MonadIO m, DBusInterfaceSkeletonK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusInterfaceSkeletonGetObjectPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_interface_skeleton_get_object_path _obj'-    checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_object_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusInterfaceSkeletonGetObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetObjectPath---- method DBusInterfaceSkeleton::get_properties--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, 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 ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    IO (Ptr GVariant)---dBusInterfaceSkeletonGetProperties ::-    (MonadIO m, DBusInterfaceSkeletonK a) =>-    a                                       -- _obj-    -> m GVariant                           -- result-dBusInterfaceSkeletonGetProperties _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_interface_skeleton_get_properties _obj'-    checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_properties" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    return result'--data DBusInterfaceSkeletonGetPropertiesMethodInfo-instance (signature ~ (m GVariant), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetPropertiesMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetProperties---- method DBusInterfaceSkeleton::has_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, 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 ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    Ptr DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    IO CInt---dBusInterfaceSkeletonHasConnection ::-    (MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) =>-    a                                       -- _obj-    -> b                                    -- connection-    -> m Bool                               -- result-dBusInterfaceSkeletonHasConnection _obj connection = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connection' = unsafeManagedPtrCastPtr connection-    result <- g_dbus_interface_skeleton_has_connection _obj' connection'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr connection-    return result'--data DBusInterfaceSkeletonHasConnectionMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => MethodInfo DBusInterfaceSkeletonHasConnectionMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonHasConnection---- method DBusInterfaceSkeleton::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusInterfaceSkeletonFlags", direction = DirectionIn, mayBeNull = False, 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 ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    CUInt ->                                -- flags : TInterface "Gio" "DBusInterfaceSkeletonFlags"-    IO ()---dBusInterfaceSkeletonSetFlags ::-    (MonadIO m, DBusInterfaceSkeletonK a) =>-    a                                       -- _obj-    -> [DBusInterfaceSkeletonFlags]         -- flags-    -> m ()                                 -- result-dBusInterfaceSkeletonSetFlags _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    g_dbus_interface_skeleton_set_flags _obj' flags'-    touchManagedPtr _obj-    return ()--data DBusInterfaceSkeletonSetFlagsMethodInfo-instance (signature ~ ([DBusInterfaceSkeletonFlags] -> m ()), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonSetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonSetFlags---- method DBusInterfaceSkeleton::unexport--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, 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 ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    IO ()---dBusInterfaceSkeletonUnexport ::-    (MonadIO m, DBusInterfaceSkeletonK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-dBusInterfaceSkeletonUnexport _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_interface_skeleton_unexport _obj'-    touchManagedPtr _obj-    return ()--data DBusInterfaceSkeletonUnexportMethodInfo-instance (signature ~ (m ()), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonUnexportMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonUnexport---- method DBusInterfaceSkeleton::unexport_from_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, 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 ->            -- _obj : TInterface "Gio" "DBusInterfaceSkeleton"-    Ptr DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    IO ()---dBusInterfaceSkeletonUnexportFromConnection ::-    (MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) =>-    a                                       -- _obj-    -> b                                    -- connection-    -> m ()                                 -- result-dBusInterfaceSkeletonUnexportFromConnection _obj connection = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connection' = unsafeManagedPtrCastPtr connection-    g_dbus_interface_skeleton_unexport_from_connection _obj' connection'-    touchManagedPtr _obj-    touchManagedPtr connection-    return ()--data DBusInterfaceSkeletonUnexportFromConnectionMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => MethodInfo DBusInterfaceSkeletonUnexportFromConnectionMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonUnexportFromConnection--
− GI/Gio/Objects/DBusInterfaceSkeleton.hs-boot 
@@ -1,27 +0,0 @@-module GI.Gio.Objects.DBusInterfaceSkeleton where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusInterfaceSkeleton = DBusInterfaceSkeleton (ForeignPtr DBusInterfaceSkeleton)-instance GObject DBusInterfaceSkeleton where-class GObject o => DBusInterfaceSkeletonK o-instance (GObject o, IsDescendantOf DBusInterfaceSkeleton o) => DBusInterfaceSkeletonK o-data DBusInterfaceSkeletonGFlagsPropertyInfo-data DBusInterfaceSkeletonGAuthorizeMethodSignalInfo-data DBusInterfaceSkeletonExportMethodInfo-data DBusInterfaceSkeletonFlushMethodInfo-data DBusInterfaceSkeletonGetConnectionMethodInfo-data DBusInterfaceSkeletonGetConnectionsMethodInfo-data DBusInterfaceSkeletonGetFlagsMethodInfo-data DBusInterfaceSkeletonGetInfoMethodInfo-data DBusInterfaceSkeletonGetObjectPathMethodInfo-data DBusInterfaceSkeletonGetPropertiesMethodInfo-data DBusInterfaceSkeletonHasConnectionMethodInfo-data DBusInterfaceSkeletonSetFlagsMethodInfo-data DBusInterfaceSkeletonUnexportMethodInfo-data DBusInterfaceSkeletonUnexportFromConnectionMethodInfo
− GI/Gio/Objects/DBusMenuModel.hs 
@@ -1,139 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusMenuModel-    ( ---- * Exported types-    DBusMenuModel(..)                       ,-    DBusMenuModelK                          ,-    toDBusMenuModel                         ,-    noDBusMenuModel                         ,--- -- * Methods--- ** dBusMenuModelGet-    dBusMenuModelGet                        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DBusMenuModel = DBusMenuModel (ForeignPtr DBusMenuModel)-foreign import ccall "g_dbus_menu_model_get_type"-    c_g_dbus_menu_model_get_type :: IO GType--type instance ParentTypes DBusMenuModel = DBusMenuModelParentTypes-type DBusMenuModelParentTypes = '[MenuModel, GObject.Object]--instance GObject DBusMenuModel where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_menu_model_get_type-    --class GObject o => DBusMenuModelK o-instance (GObject o, IsDescendantOf DBusMenuModel o) => DBusMenuModelK o--toDBusMenuModel :: DBusMenuModelK o => o -> IO DBusMenuModel-toDBusMenuModel = unsafeCastTo DBusMenuModel--noDBusMenuModel :: Maybe DBusMenuModel-noDBusMenuModel = Nothing--type family ResolveDBusMenuModelMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusMenuModelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusMenuModelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusMenuModelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusMenuModelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusMenuModelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusMenuModelMethod "isMutable" o = MenuModelIsMutableMethodInfo-    ResolveDBusMenuModelMethod "itemsChanged" o = MenuModelItemsChangedMethodInfo-    ResolveDBusMenuModelMethod "iterateItemAttributes" o = MenuModelIterateItemAttributesMethodInfo-    ResolveDBusMenuModelMethod "iterateItemLinks" o = MenuModelIterateItemLinksMethodInfo-    ResolveDBusMenuModelMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusMenuModelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusMenuModelMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusMenuModelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusMenuModelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusMenuModelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusMenuModelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusMenuModelMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusMenuModelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusMenuModelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusMenuModelMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusMenuModelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusMenuModelMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusMenuModelMethod "getItemAttributeValue" o = MenuModelGetItemAttributeValueMethodInfo-    ResolveDBusMenuModelMethod "getItemLink" o = MenuModelGetItemLinkMethodInfo-    ResolveDBusMenuModelMethod "getNItems" o = MenuModelGetNItemsMethodInfo-    ResolveDBusMenuModelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusMenuModelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusMenuModelMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusMenuModelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusMenuModelMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusMenuModelMethod t DBusMenuModel, MethodInfo info DBusMenuModel p) => IsLabelProxy t (DBusMenuModel -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusMenuModelMethod t DBusMenuModel, MethodInfo info DBusMenuModel p) => IsLabel t (DBusMenuModel -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList DBusMenuModel = DBusMenuModelAttributeList-type DBusMenuModelAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList DBusMenuModel = DBusMenuModelSignalList-type DBusMenuModelSignalList = ('[ '("itemsChanged", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DBusMenuModel::get--- method type : MemberFunction--- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusMenuModel")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_menu_model_get" g_dbus_menu_model_get :: -    Ptr DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    CString ->                              -- bus_name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    IO (Ptr DBusMenuModel)---dBusMenuModelGet ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- connection-    -> T.Text                               -- busName-    -> T.Text                               -- objectPath-    -> m DBusMenuModel                      -- result-dBusMenuModelGet connection busName objectPath = liftIO $ do-    let connection' = unsafeManagedPtrCastPtr connection-    busName' <- textToCString busName-    objectPath' <- textToCString objectPath-    result <- g_dbus_menu_model_get connection' busName' objectPath'-    checkUnexpectedReturnNULL "g_dbus_menu_model_get" result-    result' <- (wrapObject DBusMenuModel) result-    touchManagedPtr connection-    freeMem busName'-    freeMem objectPath'-    return result'--
− GI/Gio/Objects/DBusMenuModel.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gio.Objects.DBusMenuModel where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusMenuModel = DBusMenuModel (ForeignPtr DBusMenuModel)-instance GObject DBusMenuModel where-class GObject o => DBusMenuModelK o-instance (GObject o, IsDescendantOf DBusMenuModel o) => DBusMenuModelK o
− GI/Gio/Objects/DBusMessage.hs 
@@ -1,1836 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusMessage-    ( ---- * Exported types-    DBusMessage(..)                         ,-    DBusMessageK                            ,-    toDBusMessage                           ,-    noDBusMessage                           ,--- -- * Methods--- ** dBusMessageBytesNeeded-    dBusMessageBytesNeeded                  ,----- ** dBusMessageCopy-    DBusMessageCopyMethodInfo               ,-    dBusMessageCopy                         ,----- ** dBusMessageGetArg0-    DBusMessageGetArg0MethodInfo            ,-    dBusMessageGetArg0                      ,----- ** dBusMessageGetBody-    DBusMessageGetBodyMethodInfo            ,-    dBusMessageGetBody                      ,----- ** dBusMessageGetByteOrder-    DBusMessageGetByteOrderMethodInfo       ,-    dBusMessageGetByteOrder                 ,----- ** dBusMessageGetDestination-    DBusMessageGetDestinationMethodInfo     ,-    dBusMessageGetDestination               ,----- ** dBusMessageGetErrorName-    DBusMessageGetErrorNameMethodInfo       ,-    dBusMessageGetErrorName                 ,----- ** dBusMessageGetFlags-    DBusMessageGetFlagsMethodInfo           ,-    dBusMessageGetFlags                     ,----- ** dBusMessageGetHeader-    DBusMessageGetHeaderMethodInfo          ,-    dBusMessageGetHeader                    ,----- ** dBusMessageGetHeaderFields-    DBusMessageGetHeaderFieldsMethodInfo    ,-    dBusMessageGetHeaderFields              ,----- ** dBusMessageGetInterface-    DBusMessageGetInterfaceMethodInfo       ,-    dBusMessageGetInterface                 ,----- ** dBusMessageGetLocked-    DBusMessageGetLockedMethodInfo          ,-    dBusMessageGetLocked                    ,----- ** dBusMessageGetMember-    DBusMessageGetMemberMethodInfo          ,-    dBusMessageGetMember                    ,----- ** dBusMessageGetMessageType-    DBusMessageGetMessageTypeMethodInfo     ,-    dBusMessageGetMessageType               ,----- ** dBusMessageGetNumUnixFds-    DBusMessageGetNumUnixFdsMethodInfo      ,-    dBusMessageGetNumUnixFds                ,----- ** dBusMessageGetPath-    DBusMessageGetPathMethodInfo            ,-    dBusMessageGetPath                      ,----- ** dBusMessageGetReplySerial-    DBusMessageGetReplySerialMethodInfo     ,-    dBusMessageGetReplySerial               ,----- ** dBusMessageGetSender-    DBusMessageGetSenderMethodInfo          ,-    dBusMessageGetSender                    ,----- ** dBusMessageGetSerial-    DBusMessageGetSerialMethodInfo          ,-    dBusMessageGetSerial                    ,----- ** dBusMessageGetSignature-    DBusMessageGetSignatureMethodInfo       ,-    dBusMessageGetSignature                 ,----- ** dBusMessageGetUnixFdList-    DBusMessageGetUnixFdListMethodInfo      ,-    dBusMessageGetUnixFdList                ,----- ** dBusMessageLock-    DBusMessageLockMethodInfo               ,-    dBusMessageLock                         ,----- ** dBusMessageNew-    dBusMessageNew                          ,----- ** dBusMessageNewFromBlob-    dBusMessageNewFromBlob                  ,----- ** dBusMessageNewMethodCall-    dBusMessageNewMethodCall                ,----- ** dBusMessageNewMethodErrorLiteral-    DBusMessageNewMethodErrorLiteralMethodInfo,-    dBusMessageNewMethodErrorLiteral        ,----- ** dBusMessageNewMethodReply-    DBusMessageNewMethodReplyMethodInfo     ,-    dBusMessageNewMethodReply               ,----- ** dBusMessageNewSignal-    dBusMessageNewSignal                    ,----- ** dBusMessagePrint-    DBusMessagePrintMethodInfo              ,-    dBusMessagePrint                        ,----- ** dBusMessageSetBody-    DBusMessageSetBodyMethodInfo            ,-    dBusMessageSetBody                      ,----- ** dBusMessageSetByteOrder-    DBusMessageSetByteOrderMethodInfo       ,-    dBusMessageSetByteOrder                 ,----- ** dBusMessageSetDestination-    DBusMessageSetDestinationMethodInfo     ,-    dBusMessageSetDestination               ,----- ** dBusMessageSetErrorName-    DBusMessageSetErrorNameMethodInfo       ,-    dBusMessageSetErrorName                 ,----- ** dBusMessageSetFlags-    DBusMessageSetFlagsMethodInfo           ,-    dBusMessageSetFlags                     ,----- ** dBusMessageSetHeader-    DBusMessageSetHeaderMethodInfo          ,-    dBusMessageSetHeader                    ,----- ** dBusMessageSetInterface-    DBusMessageSetInterfaceMethodInfo       ,-    dBusMessageSetInterface                 ,----- ** dBusMessageSetMember-    DBusMessageSetMemberMethodInfo          ,-    dBusMessageSetMember                    ,----- ** dBusMessageSetMessageType-    DBusMessageSetMessageTypeMethodInfo     ,-    dBusMessageSetMessageType               ,----- ** dBusMessageSetNumUnixFds-    DBusMessageSetNumUnixFdsMethodInfo      ,-    dBusMessageSetNumUnixFds                ,----- ** dBusMessageSetPath-    DBusMessageSetPathMethodInfo            ,-    dBusMessageSetPath                      ,----- ** dBusMessageSetReplySerial-    DBusMessageSetReplySerialMethodInfo     ,-    dBusMessageSetReplySerial               ,----- ** dBusMessageSetSender-    DBusMessageSetSenderMethodInfo          ,-    dBusMessageSetSender                    ,----- ** dBusMessageSetSerial-    DBusMessageSetSerialMethodInfo          ,-    dBusMessageSetSerial                    ,----- ** dBusMessageSetSignature-    DBusMessageSetSignatureMethodInfo       ,-    dBusMessageSetSignature                 ,----- ** dBusMessageSetUnixFdList-    DBusMessageSetUnixFdListMethodInfo      ,-    dBusMessageSetUnixFdList                ,----- ** dBusMessageToBlob-    DBusMessageToBlobMethodInfo             ,-    dBusMessageToBlob                       ,----- ** dBusMessageToGerror-    DBusMessageToGerrorMethodInfo           ,-    dBusMessageToGerror                     ,----- -- * Properties--- ** Locked-    DBusMessageLockedPropertyInfo           ,-    dBusMessageLocked                       ,-    getDBusMessageLocked                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DBusMessage = DBusMessage (ForeignPtr DBusMessage)-foreign import ccall "g_dbus_message_get_type"-    c_g_dbus_message_get_type :: IO GType--type instance ParentTypes DBusMessage = DBusMessageParentTypes-type DBusMessageParentTypes = '[GObject.Object]--instance GObject DBusMessage where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_message_get_type-    --class GObject o => DBusMessageK o-instance (GObject o, IsDescendantOf DBusMessage o) => DBusMessageK o--toDBusMessage :: DBusMessageK o => o -> IO DBusMessage-toDBusMessage = unsafeCastTo DBusMessage--noDBusMessage :: Maybe DBusMessage-noDBusMessage = Nothing--type family ResolveDBusMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusMessageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusMessageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusMessageMethod "copy" o = DBusMessageCopyMethodInfo-    ResolveDBusMessageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusMessageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusMessageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusMessageMethod "lock" o = DBusMessageLockMethodInfo-    ResolveDBusMessageMethod "newMethodErrorLiteral" o = DBusMessageNewMethodErrorLiteralMethodInfo-    ResolveDBusMessageMethod "newMethodReply" o = DBusMessageNewMethodReplyMethodInfo-    ResolveDBusMessageMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusMessageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusMessageMethod "print" o = DBusMessagePrintMethodInfo-    ResolveDBusMessageMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusMessageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusMessageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusMessageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusMessageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusMessageMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusMessageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusMessageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusMessageMethod "toBlob" o = DBusMessageToBlobMethodInfo-    ResolveDBusMessageMethod "toGerror" o = DBusMessageToGerrorMethodInfo-    ResolveDBusMessageMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusMessageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusMessageMethod "getArg0" o = DBusMessageGetArg0MethodInfo-    ResolveDBusMessageMethod "getBody" o = DBusMessageGetBodyMethodInfo-    ResolveDBusMessageMethod "getByteOrder" o = DBusMessageGetByteOrderMethodInfo-    ResolveDBusMessageMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo-    ResolveDBusMessageMethod "getQdata" o = GObject.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.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.ObjectSetPropertyMethodInfo-    ResolveDBusMessageMethod "setReplySerial" o = DBusMessageSetReplySerialMethodInfo-    ResolveDBusMessageMethod "setSender" o = DBusMessageSetSenderMethodInfo-    ResolveDBusMessageMethod "setSerial" o = DBusMessageSetSerialMethodInfo-    ResolveDBusMessageMethod "setSignature" o = DBusMessageSetSignatureMethodInfo-    ResolveDBusMessageMethod "setUnixFdList" o = DBusMessageSetUnixFdListMethodInfo-    ResolveDBusMessageMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusMessageMethod t DBusMessage, MethodInfo info DBusMessage p) => IsLabelProxy t (DBusMessage -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusMessageMethod t DBusMessage, MethodInfo info DBusMessage p) => IsLabel t (DBusMessage -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "locked"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getDBusMessageLocked :: (MonadIO m, DBusMessageK o) => o -> m Bool-getDBusMessageLocked obj = liftIO $ getObjectPropertyBool obj "locked"--data DBusMessageLockedPropertyInfo-instance AttrInfo DBusMessageLockedPropertyInfo where-    type AttrAllowedOps DBusMessageLockedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DBusMessageLockedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusMessageLockedPropertyInfo = DBusMessageK-    type AttrGetType DBusMessageLockedPropertyInfo = Bool-    type AttrLabel DBusMessageLockedPropertyInfo = "locked"-    attrGet _ = getDBusMessageLocked-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList DBusMessage = DBusMessageAttributeList-type DBusMessageAttributeList = ('[ '("locked", DBusMessageLockedPropertyInfo)] :: [(Symbol, *)])--dBusMessageLocked :: AttrLabelProxy "locked"-dBusMessageLocked = AttrLabelProxy--type instance SignalList DBusMessage = DBusMessageSignalList-type DBusMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DBusMessage::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusMessage")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_new" g_dbus_message_new :: -    IO (Ptr DBusMessage)---dBusMessageNew ::-    (MonadIO m) =>-    m DBusMessage                           -- result-dBusMessageNew  = liftIO $ do-    result <- g_dbus_message_new-    checkUnexpectedReturnNULL "g_dbus_message_new" result-    result' <- (wrapObject DBusMessage) result-    return result'---- method DBusMessage::new_from_blob--- method type : Constructor--- Args : [Arg {argCName = "blob", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "capabilities", argType = TInterface "Gio" "DBusCapabilityFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Gio" "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 "Gio" "DBusCapabilityFlags"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusMessage)---dBusMessageNewFromBlob ::-    (MonadIO m) =>-    ByteString                              -- blob-    -> [DBusCapabilityFlags]                -- capabilities-    -> m DBusMessage                        -- result-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 "g_dbus_message_new_from_blob" result-        result' <- (wrapObject DBusMessage) result-        freeMem blob'-        return result'-     ) (do-        freeMem blob'-     )---- method DBusMessage::new_method_call--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---dBusMessageNewMethodCall ::-    (MonadIO m) =>-    Maybe (T.Text)                          -- name-    -> T.Text                               -- path-    -> Maybe (T.Text)                       -- interface_-    -> T.Text                               -- method-    -> m DBusMessage                        -- result-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 "g_dbus_message_new_method_call" result-    result' <- (wrapObject DBusMessage) result-    freeMem maybeName-    freeMem path'-    freeMem maybeInterface_-    freeMem method'-    return result'---- method DBusMessage::new_signal--- method type : Constructor--- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---dBusMessageNewSignal ::-    (MonadIO m) =>-    T.Text                                  -- path-    -> T.Text                               -- interface_-    -> T.Text                               -- signal-    -> m DBusMessage                        -- result-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 "g_dbus_message_new_signal" result-    result' <- (wrapObject DBusMessage) result-    freeMem path'-    freeMem interface_'-    freeMem signal'-    return result'---- method DBusMessage::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusMessage")--- throws : True--- Skip return : False--foreign import ccall "g_dbus_message_copy" g_dbus_message_copy :: -    Ptr DBusMessage ->                      -- _obj : TInterface "Gio" "DBusMessage"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusMessage)---dBusMessageCopy ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m DBusMessage                        -- result-dBusMessageCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_dbus_message_copy _obj'-        checkUnexpectedReturnNULL "g_dbus_message_copy" result-        result' <- (wrapObject DBusMessage) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )--data DBusMessageCopyMethodInfo-instance (signature ~ (m DBusMessage), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageCopyMethodInfo a signature where-    overloadedMethod _ = dBusMessageCopy---- method DBusMessage::get_arg0--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CString---dBusMessageGetArg0 ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMessageGetArg0 _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_arg0 _obj'-    checkUnexpectedReturnNULL "g_dbus_message_get_arg0" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMessageGetArg0MethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetArg0MethodInfo a signature where-    overloadedMethod _ = dBusMessageGetArg0---- method DBusMessage::get_body--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO (Ptr GVariant)---dBusMessageGetBody ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m GVariant                           -- result-dBusMessageGetBody _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_body _obj'-    checkUnexpectedReturnNULL "g_dbus_message_get_body" result-    result' <- newGVariantFromPtr result-    touchManagedPtr _obj-    return result'--data DBusMessageGetBodyMethodInfo-instance (signature ~ (m GVariant), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetBodyMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetBody---- method DBusMessage::get_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusMessageByteOrder")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_byte_order" g_dbus_message_get_byte_order :: -    Ptr DBusMessage ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CUInt---dBusMessageGetByteOrder ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m DBusMessageByteOrder               -- result-dBusMessageGetByteOrder _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_byte_order _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DBusMessageGetByteOrderMethodInfo-instance (signature ~ (m DBusMessageByteOrder), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetByteOrderMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetByteOrder---- method DBusMessage::get_destination--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CString---dBusMessageGetDestination ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMessageGetDestination _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_destination _obj'-    checkUnexpectedReturnNULL "g_dbus_message_get_destination" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMessageGetDestinationMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetDestinationMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetDestination---- method DBusMessage::get_error_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CString---dBusMessageGetErrorName ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMessageGetErrorName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_error_name _obj'-    checkUnexpectedReturnNULL "g_dbus_message_get_error_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMessageGetErrorNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetErrorNameMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetErrorName---- method DBusMessage::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusMessageFlags")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_flags" g_dbus_message_get_flags :: -    Ptr DBusMessage ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CUInt---dBusMessageGetFlags ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m [DBusMessageFlags]                 -- result-dBusMessageGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data DBusMessageGetFlagsMethodInfo-instance (signature ~ (m [DBusMessageFlags]), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetFlags---- method DBusMessage::get_header--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header_field", argType = TInterface "Gio" "DBusMessageHeaderField", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CUInt ->                                -- header_field : TInterface "Gio" "DBusMessageHeaderField"-    IO (Ptr GVariant)---dBusMessageGetHeader ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> DBusMessageHeaderField               -- headerField-    -> m GVariant                           -- result-dBusMessageGetHeader _obj headerField = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let headerField' = (fromIntegral . fromEnum) headerField-    result <- g_dbus_message_get_header _obj' headerField'-    checkUnexpectedReturnNULL "g_dbus_message_get_header" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    return result'--data DBusMessageGetHeaderMethodInfo-instance (signature ~ (DBusMessageHeaderField -> m GVariant), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetHeaderMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetHeader---- method DBusMessage::get_header_fields--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO (Ptr Word8)---dBusMessageGetHeaderFields ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m ByteString                         -- result-dBusMessageGetHeaderFields _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_header_fields _obj'-    checkUnexpectedReturnNULL "g_dbus_message_get_header_fields" result-    result' <- unpackZeroTerminatedByteString result-    touchManagedPtr _obj-    return result'--data DBusMessageGetHeaderFieldsMethodInfo-instance (signature ~ (m ByteString), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetHeaderFieldsMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetHeaderFields---- method DBusMessage::get_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CString---dBusMessageGetInterface ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMessageGetInterface _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_interface _obj'-    checkUnexpectedReturnNULL "g_dbus_message_get_interface" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMessageGetInterfaceMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetInterface---- method DBusMessage::get_locked--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CInt---dBusMessageGetLocked ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-dBusMessageGetLocked _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_locked _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DBusMessageGetLockedMethodInfo-instance (signature ~ (m Bool), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetLockedMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetLocked---- method DBusMessage::get_member--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CString---dBusMessageGetMember ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMessageGetMember _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_member _obj'-    checkUnexpectedReturnNULL "g_dbus_message_get_member" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMessageGetMemberMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetMemberMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetMember---- method DBusMessage::get_message_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusMessageType")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_message_type" g_dbus_message_get_message_type :: -    Ptr DBusMessage ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CUInt---dBusMessageGetMessageType ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m DBusMessageType                    -- result-dBusMessageGetMessageType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_message_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DBusMessageGetMessageTypeMethodInfo-instance (signature ~ (m DBusMessageType), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetMessageTypeMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetMessageType---- method DBusMessage::get_num_unix_fds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO Word32---dBusMessageGetNumUnixFds ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-dBusMessageGetNumUnixFds _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_num_unix_fds _obj'-    touchManagedPtr _obj-    return result--data DBusMessageGetNumUnixFdsMethodInfo-instance (signature ~ (m Word32), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetNumUnixFdsMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetNumUnixFds---- method DBusMessage::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CString---dBusMessageGetPath ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMessageGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_path _obj'-    checkUnexpectedReturnNULL "g_dbus_message_get_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMessageGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetPathMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetPath---- method DBusMessage::get_reply_serial--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO Word32---dBusMessageGetReplySerial ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-dBusMessageGetReplySerial _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_reply_serial _obj'-    touchManagedPtr _obj-    return result--data DBusMessageGetReplySerialMethodInfo-instance (signature ~ (m Word32), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetReplySerialMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetReplySerial---- method DBusMessage::get_sender--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CString---dBusMessageGetSender ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMessageGetSender _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_sender _obj'-    checkUnexpectedReturnNULL "g_dbus_message_get_sender" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMessageGetSenderMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetSenderMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetSender---- method DBusMessage::get_serial--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO Word32---dBusMessageGetSerial ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-dBusMessageGetSerial _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_serial _obj'-    touchManagedPtr _obj-    return result--data DBusMessageGetSerialMethodInfo-instance (signature ~ (m Word32), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetSerialMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetSerial---- method DBusMessage::get_signature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO CString---dBusMessageGetSignature ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMessageGetSignature _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_signature _obj'-    checkUnexpectedReturnNULL "g_dbus_message_get_signature" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMessageGetSignatureMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetSignatureMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetSignature---- method DBusMessage::get_unix_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO (Ptr UnixFDList)---dBusMessageGetUnixFdList ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m UnixFDList                         -- result-dBusMessageGetUnixFdList _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_get_unix_fd_list _obj'-    checkUnexpectedReturnNULL "g_dbus_message_get_unix_fd_list" result-    result' <- (newObject UnixFDList) result-    touchManagedPtr _obj-    return result'--data DBusMessageGetUnixFdListMethodInfo-instance (signature ~ (m UnixFDList), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetUnixFdListMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetUnixFdList---- method DBusMessage::lock--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO ()---dBusMessageLock ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-dBusMessageLock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_message_lock _obj'-    touchManagedPtr _obj-    return ()--data DBusMessageLockMethodInfo-instance (signature ~ (m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageLockMethodInfo a signature where-    overloadedMethod _ = dBusMessageLock---- method DBusMessage::new_method_error_literal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CString ->                              -- error_name : TBasicType TUTF8-    CString ->                              -- error_message : TBasicType TUTF8-    IO (Ptr DBusMessage)---dBusMessageNewMethodErrorLiteral ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> T.Text                               -- errorName-    -> T.Text                               -- errorMessage-    -> m DBusMessage                        -- result-dBusMessageNewMethodErrorLiteral _obj errorName errorMessage = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    errorName' <- textToCString errorName-    errorMessage' <- textToCString errorMessage-    result <- g_dbus_message_new_method_error_literal _obj' errorName' errorMessage'-    checkUnexpectedReturnNULL "g_dbus_message_new_method_error_literal" result-    result' <- (wrapObject DBusMessage) result-    touchManagedPtr _obj-    freeMem errorName'-    freeMem errorMessage'-    return result'--data DBusMessageNewMethodErrorLiteralMethodInfo-instance (signature ~ (T.Text -> T.Text -> m DBusMessage), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageNewMethodErrorLiteralMethodInfo a signature where-    overloadedMethod _ = dBusMessageNewMethodErrorLiteral---- method DBusMessage::new_method_reply--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusMessage")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_new_method_reply" g_dbus_message_new_method_reply :: -    Ptr DBusMessage ->                      -- _obj : TInterface "Gio" "DBusMessage"-    IO (Ptr DBusMessage)---dBusMessageNewMethodReply ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m DBusMessage                        -- result-dBusMessageNewMethodReply _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_new_method_reply _obj'-    checkUnexpectedReturnNULL "g_dbus_message_new_method_reply" result-    result' <- (wrapObject DBusMessage) result-    touchManagedPtr _obj-    return result'--data DBusMessageNewMethodReplyMethodInfo-instance (signature ~ (m DBusMessage), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageNewMethodReplyMethodInfo a signature where-    overloadedMethod _ = dBusMessageNewMethodReply---- method DBusMessage::print--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    Word32 ->                               -- indent : TBasicType TUInt-    IO CString---dBusMessagePrint ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> Word32                               -- indent-    -> m T.Text                             -- result-dBusMessagePrint _obj indent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_message_print _obj' indent-    checkUnexpectedReturnNULL "g_dbus_message_print" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DBusMessagePrintMethodInfo-instance (signature ~ (Word32 -> m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessagePrintMethodInfo a signature where-    overloadedMethod _ = dBusMessagePrint---- method DBusMessage::set_body--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TVariant, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    Ptr GVariant ->                         -- body : TVariant-    IO ()---dBusMessageSetBody ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> GVariant                             -- body-    -> m ()                                 -- result-dBusMessageSetBody _obj body = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let body' = unsafeManagedPtrGetPtr body-    g_dbus_message_set_body _obj' body'-    touchManagedPtr _obj-    return ()--data DBusMessageSetBodyMethodInfo-instance (signature ~ (GVariant -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetBodyMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetBody---- method DBusMessage::set_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_order", argType = TInterface "Gio" "DBusMessageByteOrder", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CUInt ->                                -- byte_order : TInterface "Gio" "DBusMessageByteOrder"-    IO ()---dBusMessageSetByteOrder ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> DBusMessageByteOrder                 -- byteOrder-    -> m ()                                 -- result-dBusMessageSetByteOrder _obj byteOrder = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let byteOrder' = (fromIntegral . fromEnum) byteOrder-    g_dbus_message_set_byte_order _obj' byteOrder'-    touchManagedPtr _obj-    return ()--data DBusMessageSetByteOrderMethodInfo-instance (signature ~ (DBusMessageByteOrder -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetByteOrderMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetByteOrder---- method DBusMessage::set_destination--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CString ->                              -- value : TBasicType TUTF8-    IO ()---dBusMessageSetDestination ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> T.Text                               -- value-    -> m ()                                 -- result-dBusMessageSetDestination _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    value' <- textToCString value-    g_dbus_message_set_destination _obj' value'-    touchManagedPtr _obj-    freeMem value'-    return ()--data DBusMessageSetDestinationMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetDestinationMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetDestination---- method DBusMessage::set_error_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CString ->                              -- value : TBasicType TUTF8-    IO ()---dBusMessageSetErrorName ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> T.Text                               -- value-    -> m ()                                 -- result-dBusMessageSetErrorName _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    value' <- textToCString value-    g_dbus_message_set_error_name _obj' value'-    touchManagedPtr _obj-    freeMem value'-    return ()--data DBusMessageSetErrorNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetErrorNameMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetErrorName---- method DBusMessage::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusMessageFlags", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CUInt ->                                -- flags : TInterface "Gio" "DBusMessageFlags"-    IO ()---dBusMessageSetFlags ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> [DBusMessageFlags]                   -- flags-    -> m ()                                 -- result-dBusMessageSetFlags _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    g_dbus_message_set_flags _obj' flags'-    touchManagedPtr _obj-    return ()--data DBusMessageSetFlagsMethodInfo-instance (signature ~ ([DBusMessageFlags] -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetFlags---- method DBusMessage::set_header--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header_field", argType = TInterface "Gio" "DBusMessageHeaderField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CUInt ->                                -- header_field : TInterface "Gio" "DBusMessageHeaderField"-    Ptr GVariant ->                         -- value : TVariant-    IO ()---dBusMessageSetHeader ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> DBusMessageHeaderField               -- headerField-    -> Maybe (GVariant)                     -- value-    -> m ()                                 -- result-dBusMessageSetHeader _obj headerField value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let headerField' = (fromIntegral . fromEnum) headerField-    maybeValue <- case value of-        Nothing -> return nullPtr-        Just jValue -> do-            let jValue' = unsafeManagedPtrGetPtr jValue-            return jValue'-    g_dbus_message_set_header _obj' headerField' maybeValue-    touchManagedPtr _obj-    return ()--data DBusMessageSetHeaderMethodInfo-instance (signature ~ (DBusMessageHeaderField -> Maybe (GVariant) -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetHeaderMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetHeader---- method DBusMessage::set_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CString ->                              -- value : TBasicType TUTF8-    IO ()---dBusMessageSetInterface ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> T.Text                               -- value-    -> m ()                                 -- result-dBusMessageSetInterface _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    value' <- textToCString value-    g_dbus_message_set_interface _obj' value'-    touchManagedPtr _obj-    freeMem value'-    return ()--data DBusMessageSetInterfaceMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetInterface---- method DBusMessage::set_member--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CString ->                              -- value : TBasicType TUTF8-    IO ()---dBusMessageSetMember ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> T.Text                               -- value-    -> m ()                                 -- result-dBusMessageSetMember _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    value' <- textToCString value-    g_dbus_message_set_member _obj' value'-    touchManagedPtr _obj-    freeMem value'-    return ()--data DBusMessageSetMemberMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetMemberMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetMember---- method DBusMessage::set_message_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "DBusMessageType", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CUInt ->                                -- type : TInterface "Gio" "DBusMessageType"-    IO ()---dBusMessageSetMessageType ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> DBusMessageType                      -- type_-    -> m ()                                 -- result-dBusMessageSetMessageType _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    g_dbus_message_set_message_type _obj' type_'-    touchManagedPtr _obj-    return ()--data DBusMessageSetMessageTypeMethodInfo-instance (signature ~ (DBusMessageType -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetMessageTypeMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetMessageType---- method DBusMessage::set_num_unix_fds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    Word32 ->                               -- value : TBasicType TUInt32-    IO ()---dBusMessageSetNumUnixFds ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> Word32                               -- value-    -> m ()                                 -- result-dBusMessageSetNumUnixFds _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_message_set_num_unix_fds _obj' value-    touchManagedPtr _obj-    return ()--data DBusMessageSetNumUnixFdsMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetNumUnixFdsMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetNumUnixFds---- method DBusMessage::set_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CString ->                              -- value : TBasicType TUTF8-    IO ()---dBusMessageSetPath ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> T.Text                               -- value-    -> m ()                                 -- result-dBusMessageSetPath _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    value' <- textToCString value-    g_dbus_message_set_path _obj' value'-    touchManagedPtr _obj-    freeMem value'-    return ()--data DBusMessageSetPathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetPathMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetPath---- method DBusMessage::set_reply_serial--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    Word32 ->                               -- value : TBasicType TUInt32-    IO ()---dBusMessageSetReplySerial ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> Word32                               -- value-    -> m ()                                 -- result-dBusMessageSetReplySerial _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_message_set_reply_serial _obj' value-    touchManagedPtr _obj-    return ()--data DBusMessageSetReplySerialMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetReplySerialMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetReplySerial---- method DBusMessage::set_sender--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CString ->                              -- value : TBasicType TUTF8-    IO ()---dBusMessageSetSender ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> T.Text                               -- value-    -> m ()                                 -- result-dBusMessageSetSender _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    value' <- textToCString value-    g_dbus_message_set_sender _obj' value'-    touchManagedPtr _obj-    freeMem value'-    return ()--data DBusMessageSetSenderMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetSenderMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetSender---- method DBusMessage::set_serial--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "serial", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    Word32 ->                               -- serial : TBasicType TUInt32-    IO ()---dBusMessageSetSerial ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> Word32                               -- serial-    -> m ()                                 -- result-dBusMessageSetSerial _obj serial = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_message_set_serial _obj' serial-    touchManagedPtr _obj-    return ()--data DBusMessageSetSerialMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetSerialMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetSerial---- method DBusMessage::set_signature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    CString ->                              -- value : TBasicType TUTF8-    IO ()---dBusMessageSetSignature ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> T.Text                               -- value-    -> m ()                                 -- result-dBusMessageSetSignature _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    value' <- textToCString value-    g_dbus_message_set_signature _obj' value'-    touchManagedPtr _obj-    freeMem value'-    return ()--data DBusMessageSetSignatureMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetSignatureMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetSignature---- method DBusMessage::set_unix_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    Ptr UnixFDList ->                       -- fd_list : TInterface "Gio" "UnixFDList"-    IO ()---dBusMessageSetUnixFdList ::-    (MonadIO m, DBusMessageK a, UnixFDListK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- fdList-    -> m ()                                 -- result-dBusMessageSetUnixFdList _obj fdList = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            let jFdList' = unsafeManagedPtrCastPtr jFdList-            return jFdList'-    g_dbus_message_set_unix_fd_list _obj' maybeFdList-    touchManagedPtr _obj-    whenJust fdList touchManagedPtr-    return ()--data DBusMessageSetUnixFdListMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, DBusMessageK a, UnixFDListK b) => MethodInfo DBusMessageSetUnixFdListMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetUnixFdList---- method DBusMessage::to_blob--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "capabilities", argType = TInterface "Gio" "DBusCapabilityFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "out_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    Ptr Word64 ->                           -- out_size : TBasicType TUInt64-    CUInt ->                                -- capabilities : TInterface "Gio" "DBusCapabilityFlags"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Word8)---dBusMessageToBlob ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> [DBusCapabilityFlags]                -- capabilities-    -> m ByteString                         -- result-dBusMessageToBlob _obj capabilities = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    outSize <- allocMem :: IO (Ptr Word64)-    let capabilities' = gflagsToWord capabilities-    onException (do-        result <- propagateGError $ g_dbus_message_to_blob _obj' outSize capabilities'-        outSize' <- peek outSize-        checkUnexpectedReturnNULL "g_dbus_message_to_blob" result-        result' <- (unpackByteStringWithLength outSize') result-        freeMem result-        touchManagedPtr _obj-        freeMem outSize-        return result'-     ) (do-        freeMem outSize-     )--data DBusMessageToBlobMethodInfo-instance (signature ~ ([DBusCapabilityFlags] -> m ByteString), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageToBlobMethodInfo a signature where-    overloadedMethod _ = dBusMessageToBlob---- method DBusMessage::to_gerror--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusMessage"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dBusMessageToGerror ::-    (MonadIO m, DBusMessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-dBusMessageToGerror _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_dbus_message_to_gerror _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data DBusMessageToGerrorMethodInfo-instance (signature ~ (m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageToGerrorMethodInfo a signature where-    overloadedMethod _ = dBusMessageToGerror---- method DBusMessage::bytes_needed--- method type : MemberFunction--- Args : [Arg {argCName = "blob", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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---dBusMessageBytesNeeded ::-    (MonadIO m) =>-    ByteString                              -- blob-    -> m Int64                              -- result-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'-     )--
− GI/Gio/Objects/DBusMessage.hs-boot 
@@ -1,56 +0,0 @@-module GI.Gio.Objects.DBusMessage where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusMessage = DBusMessage (ForeignPtr DBusMessage)-instance GObject DBusMessage where-class GObject o => DBusMessageK o-instance (GObject o, IsDescendantOf DBusMessage o) => DBusMessageK o-data DBusMessageLockedPropertyInfo-data DBusMessageCopyMethodInfo-data DBusMessageGetArg0MethodInfo-data DBusMessageGetBodyMethodInfo-data DBusMessageGetByteOrderMethodInfo-data DBusMessageGetDestinationMethodInfo-data DBusMessageGetErrorNameMethodInfo-data DBusMessageGetFlagsMethodInfo-data DBusMessageGetHeaderMethodInfo-data DBusMessageGetHeaderFieldsMethodInfo-data DBusMessageGetInterfaceMethodInfo-data DBusMessageGetLockedMethodInfo-data DBusMessageGetMemberMethodInfo-data DBusMessageGetMessageTypeMethodInfo-data DBusMessageGetNumUnixFdsMethodInfo-data DBusMessageGetPathMethodInfo-data DBusMessageGetReplySerialMethodInfo-data DBusMessageGetSenderMethodInfo-data DBusMessageGetSerialMethodInfo-data DBusMessageGetSignatureMethodInfo-data DBusMessageGetUnixFdListMethodInfo-data DBusMessageLockMethodInfo-data DBusMessageNewMethodErrorLiteralMethodInfo-data DBusMessageNewMethodReplyMethodInfo-data DBusMessagePrintMethodInfo-data DBusMessageSetBodyMethodInfo-data DBusMessageSetByteOrderMethodInfo-data DBusMessageSetDestinationMethodInfo-data DBusMessageSetErrorNameMethodInfo-data DBusMessageSetFlagsMethodInfo-data DBusMessageSetHeaderMethodInfo-data DBusMessageSetInterfaceMethodInfo-data DBusMessageSetMemberMethodInfo-data DBusMessageSetMessageTypeMethodInfo-data DBusMessageSetNumUnixFdsMethodInfo-data DBusMessageSetPathMethodInfo-data DBusMessageSetReplySerialMethodInfo-data DBusMessageSetSenderMethodInfo-data DBusMessageSetSerialMethodInfo-data DBusMessageSetSignatureMethodInfo-data DBusMessageSetUnixFdListMethodInfo-data DBusMessageToBlobMethodInfo-data DBusMessageToGerrorMethodInfo
− GI/Gio/Objects/DBusMethodInvocation.hs 
@@ -1,617 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusMethodInvocation-    ( ---- * Exported types-    DBusMethodInvocation(..)                ,-    DBusMethodInvocationK                   ,-    toDBusMethodInvocation                  ,-    noDBusMethodInvocation                  ,--- -- * Methods--- ** dBusMethodInvocationGetConnection-    DBusMethodInvocationGetConnectionMethodInfo,-    dBusMethodInvocationGetConnection       ,----- ** dBusMethodInvocationGetInterfaceName-    DBusMethodInvocationGetInterfaceNameMethodInfo,-    dBusMethodInvocationGetInterfaceName    ,----- ** dBusMethodInvocationGetMessage-    DBusMethodInvocationGetMessageMethodInfo,-    dBusMethodInvocationGetMessage          ,----- ** dBusMethodInvocationGetMethodInfo-    DBusMethodInvocationGetMethodInfoMethodInfo,-    dBusMethodInvocationGetMethodInfo       ,----- ** dBusMethodInvocationGetMethodName-    DBusMethodInvocationGetMethodNameMethodInfo,-    dBusMethodInvocationGetMethodName       ,----- ** dBusMethodInvocationGetObjectPath-    DBusMethodInvocationGetObjectPathMethodInfo,-    dBusMethodInvocationGetObjectPath       ,----- ** dBusMethodInvocationGetParameters-    DBusMethodInvocationGetParametersMethodInfo,-    dBusMethodInvocationGetParameters       ,----- ** dBusMethodInvocationGetPropertyInfo-    DBusMethodInvocationGetPropertyInfoMethodInfo,-    dBusMethodInvocationGetPropertyInfo     ,----- ** dBusMethodInvocationGetSender-    DBusMethodInvocationGetSenderMethodInfo ,-    dBusMethodInvocationGetSender           ,----- ** dBusMethodInvocationReturnDbusError-    DBusMethodInvocationReturnDbusErrorMethodInfo,-    dBusMethodInvocationReturnDbusError     ,----- ** dBusMethodInvocationReturnErrorLiteral-    DBusMethodInvocationReturnErrorLiteralMethodInfo,-    dBusMethodInvocationReturnErrorLiteral  ,----- ** dBusMethodInvocationReturnGerror-    DBusMethodInvocationReturnGerrorMethodInfo,-    dBusMethodInvocationReturnGerror        ,----- ** dBusMethodInvocationReturnValue-    DBusMethodInvocationReturnValueMethodInfo,-    dBusMethodInvocationReturnValue         ,----- ** dBusMethodInvocationReturnValueWithUnixFdList-    DBusMethodInvocationReturnValueWithUnixFdListMethodInfo,-    dBusMethodInvocationReturnValueWithUnixFdList,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DBusMethodInvocation = DBusMethodInvocation (ForeignPtr DBusMethodInvocation)-foreign import ccall "g_dbus_method_invocation_get_type"-    c_g_dbus_method_invocation_get_type :: IO GType--type instance ParentTypes DBusMethodInvocation = DBusMethodInvocationParentTypes-type DBusMethodInvocationParentTypes = '[GObject.Object]--instance GObject DBusMethodInvocation where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_method_invocation_get_type-    --class GObject o => DBusMethodInvocationK o-instance (GObject o, IsDescendantOf DBusMethodInvocation o) => DBusMethodInvocationK o--toDBusMethodInvocation :: DBusMethodInvocationK o => o -> IO DBusMethodInvocation-toDBusMethodInvocation = unsafeCastTo DBusMethodInvocation--noDBusMethodInvocation :: Maybe DBusMethodInvocation-noDBusMethodInvocation = Nothing--type family ResolveDBusMethodInvocationMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusMethodInvocationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusMethodInvocationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusMethodInvocationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusMethodInvocationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusMethodInvocationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusMethodInvocationMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusMethodInvocationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusMethodInvocationMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusMethodInvocationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusMethodInvocationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusMethodInvocationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusMethodInvocationMethod "returnDbusError" o = DBusMethodInvocationReturnDbusErrorMethodInfo-    ResolveDBusMethodInvocationMethod "returnErrorLiteral" o = DBusMethodInvocationReturnErrorLiteralMethodInfo-    ResolveDBusMethodInvocationMethod "returnGerror" o = DBusMethodInvocationReturnGerrorMethodInfo-    ResolveDBusMethodInvocationMethod "returnValue" o = DBusMethodInvocationReturnValueMethodInfo-    ResolveDBusMethodInvocationMethod "returnValueWithUnixFdList" o = DBusMethodInvocationReturnValueWithUnixFdListMethodInfo-    ResolveDBusMethodInvocationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusMethodInvocationMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusMethodInvocationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusMethodInvocationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusMethodInvocationMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusMethodInvocationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusMethodInvocationMethod "getConnection" o = DBusMethodInvocationGetConnectionMethodInfo-    ResolveDBusMethodInvocationMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo-    ResolveDBusMethodInvocationMethod "getPropertyInfo" o = DBusMethodInvocationGetPropertyInfoMethodInfo-    ResolveDBusMethodInvocationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusMethodInvocationMethod "getSender" o = DBusMethodInvocationGetSenderMethodInfo-    ResolveDBusMethodInvocationMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusMethodInvocationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusMethodInvocationMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusMethodInvocationMethod t DBusMethodInvocation, MethodInfo info DBusMethodInvocation p) => IsLabelProxy t (DBusMethodInvocation -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusMethodInvocationMethod t DBusMethodInvocation, MethodInfo info DBusMethodInvocation p) => IsLabel t (DBusMethodInvocation -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList DBusMethodInvocation = DBusMethodInvocationAttributeList-type DBusMethodInvocationAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList DBusMethodInvocation = DBusMethodInvocationSignalList-type DBusMethodInvocationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DBusMethodInvocation::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusConnection")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_get_connection" g_dbus_method_invocation_get_connection :: -    Ptr DBusMethodInvocation ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    IO (Ptr DBusConnection)---dBusMethodInvocationGetConnection ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> m DBusConnection                     -- result-dBusMethodInvocationGetConnection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_method_invocation_get_connection _obj'-    checkUnexpectedReturnNULL "g_dbus_method_invocation_get_connection" result-    result' <- (newObject DBusConnection) result-    touchManagedPtr _obj-    return result'--data DBusMethodInvocationGetConnectionMethodInfo-instance (signature ~ (m DBusConnection), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetConnection---- method DBusMethodInvocation::get_interface_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    IO CString---dBusMethodInvocationGetInterfaceName ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMethodInvocationGetInterfaceName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_method_invocation_get_interface_name _obj'-    checkUnexpectedReturnNULL "g_dbus_method_invocation_get_interface_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMethodInvocationGetInterfaceNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetInterfaceNameMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetInterfaceName---- method DBusMethodInvocation::get_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusMessage")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_get_message" g_dbus_method_invocation_get_message :: -    Ptr DBusMethodInvocation ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    IO (Ptr DBusMessage)---dBusMethodInvocationGetMessage ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> m DBusMessage                        -- result-dBusMethodInvocationGetMessage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_method_invocation_get_message _obj'-    checkUnexpectedReturnNULL "g_dbus_method_invocation_get_message" result-    result' <- (newObject DBusMessage) result-    touchManagedPtr _obj-    return result'--data DBusMethodInvocationGetMessageMethodInfo-instance (signature ~ (m DBusMessage), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetMessageMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetMessage---- method DBusMethodInvocation::get_method_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    IO (Ptr DBusMethodInfo)---dBusMethodInvocationGetMethodInfo ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> m DBusMethodInfo                     -- result-dBusMethodInvocationGetMethodInfo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_method_invocation_get_method_info _obj'-    checkUnexpectedReturnNULL "g_dbus_method_invocation_get_method_info" result-    result' <- (newBoxed DBusMethodInfo) result-    touchManagedPtr _obj-    return result'--data DBusMethodInvocationGetMethodInfoMethodInfo-instance (signature ~ (m DBusMethodInfo), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetMethodInfoMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetMethodInfo---- method DBusMethodInvocation::get_method_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    IO CString---dBusMethodInvocationGetMethodName ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMethodInvocationGetMethodName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_method_invocation_get_method_name _obj'-    checkUnexpectedReturnNULL "g_dbus_method_invocation_get_method_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMethodInvocationGetMethodNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetMethodNameMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetMethodName---- method DBusMethodInvocation::get_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    IO CString---dBusMethodInvocationGetObjectPath ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMethodInvocationGetObjectPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_method_invocation_get_object_path _obj'-    checkUnexpectedReturnNULL "g_dbus_method_invocation_get_object_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMethodInvocationGetObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetObjectPath---- method DBusMethodInvocation::get_parameters--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    IO (Ptr GVariant)---dBusMethodInvocationGetParameters ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> m GVariant                           -- result-dBusMethodInvocationGetParameters _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_method_invocation_get_parameters _obj'-    checkUnexpectedReturnNULL "g_dbus_method_invocation_get_parameters" result-    result' <- newGVariantFromPtr result-    touchManagedPtr _obj-    return result'--data DBusMethodInvocationGetParametersMethodInfo-instance (signature ~ (m GVariant), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetParametersMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetParameters---- method DBusMethodInvocation::get_property_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    IO (Ptr DBusPropertyInfo)---dBusMethodInvocationGetPropertyInfo ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> m DBusPropertyInfo                   -- result-dBusMethodInvocationGetPropertyInfo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_method_invocation_get_property_info _obj'-    checkUnexpectedReturnNULL "g_dbus_method_invocation_get_property_info" result-    result' <- (newBoxed DBusPropertyInfo) result-    touchManagedPtr _obj-    return result'--data DBusMethodInvocationGetPropertyInfoMethodInfo-instance (signature ~ (m DBusPropertyInfo), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetPropertyInfoMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetPropertyInfo---- method DBusMethodInvocation::get_sender--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    IO CString---dBusMethodInvocationGetSender ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusMethodInvocationGetSender _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_method_invocation_get_sender _obj'-    checkUnexpectedReturnNULL "g_dbus_method_invocation_get_sender" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusMethodInvocationGetSenderMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetSenderMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetSender---- method DBusMethodInvocation::return_dbus_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    CString ->                              -- error_name : TBasicType TUTF8-    CString ->                              -- error_message : TBasicType TUTF8-    IO ()---dBusMethodInvocationReturnDbusError ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> T.Text                               -- errorName-    -> T.Text                               -- errorMessage-    -> m ()                                 -- result-dBusMethodInvocationReturnDbusError _obj errorName errorMessage = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    errorName' <- textToCString errorName-    errorMessage' <- textToCString errorMessage-    g_dbus_method_invocation_return_dbus_error _obj' errorName' errorMessage'-    touchManagedPtr _obj-    freeMem errorName'-    freeMem errorMessage'-    return ()--data DBusMethodInvocationReturnDbusErrorMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationReturnDbusErrorMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationReturnDbusError---- method DBusMethodInvocation::return_error_literal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "code", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    Word32 ->                               -- domain : TBasicType TUInt32-    Int32 ->                                -- code : TBasicType TInt-    CString ->                              -- message : TBasicType TUTF8-    IO ()---dBusMethodInvocationReturnErrorLiteral ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> Word32                               -- domain-    -> Int32                                -- code-    -> T.Text                               -- message-    -> m ()                                 -- result-dBusMethodInvocationReturnErrorLiteral _obj domain code message = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    message' <- textToCString message-    g_dbus_method_invocation_return_error_literal _obj' domain code message'-    touchManagedPtr _obj-    freeMem message'-    return ()--data DBusMethodInvocationReturnErrorLiteralMethodInfo-instance (signature ~ (Word32 -> Int32 -> T.Text -> m ()), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationReturnErrorLiteralMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationReturnErrorLiteral---- method DBusMethodInvocation::return_gerror--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    Ptr GError ->                           -- error : TError-    IO ()---dBusMethodInvocationReturnGerror ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> GError                               -- error_-    -> m ()                                 -- result-dBusMethodInvocationReturnGerror _obj error_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let error_' = unsafeManagedPtrGetPtr error_-    g_dbus_method_invocation_return_gerror _obj' error_'-    touchManagedPtr _obj-    touchManagedPtr error_-    return ()--data DBusMethodInvocationReturnGerrorMethodInfo-instance (signature ~ (GError -> m ()), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationReturnGerrorMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationReturnGerror---- method DBusMethodInvocation::return_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    Ptr GVariant ->                         -- parameters : TVariant-    IO ()---dBusMethodInvocationReturnValue ::-    (MonadIO m, DBusMethodInvocationK a) =>-    a                                       -- _obj-    -> Maybe (GVariant)                     -- parameters-    -> m ()                                 -- result-dBusMethodInvocationReturnValue _obj parameters = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            let jParameters' = unsafeManagedPtrGetPtr jParameters-            return jParameters'-    g_dbus_method_invocation_return_value _obj' maybeParameters-    touchManagedPtr _obj-    return ()--data DBusMethodInvocationReturnValueMethodInfo-instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationReturnValueMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationReturnValue---- method DBusMethodInvocation::return_value_with_unix_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, 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 ->             -- _obj : TInterface "Gio" "DBusMethodInvocation"-    Ptr GVariant ->                         -- parameters : TVariant-    Ptr UnixFDList ->                       -- fd_list : TInterface "Gio" "UnixFDList"-    IO ()---dBusMethodInvocationReturnValueWithUnixFdList ::-    (MonadIO m, DBusMethodInvocationK a, UnixFDListK b) =>-    a                                       -- _obj-    -> Maybe (GVariant)                     -- parameters-    -> Maybe (b)                            -- fdList-    -> m ()                                 -- result-dBusMethodInvocationReturnValueWithUnixFdList _obj parameters fdList = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            let jParameters' = unsafeManagedPtrGetPtr jParameters-            return jParameters'-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            let jFdList' = unsafeManagedPtrCastPtr jFdList-            return jFdList'-    g_dbus_method_invocation_return_value_with_unix_fd_list _obj' maybeParameters maybeFdList-    touchManagedPtr _obj-    whenJust fdList touchManagedPtr-    return ()--data DBusMethodInvocationReturnValueWithUnixFdListMethodInfo-instance (signature ~ (Maybe (GVariant) -> Maybe (b) -> m ()), MonadIO m, DBusMethodInvocationK a, UnixFDListK b) => MethodInfo DBusMethodInvocationReturnValueWithUnixFdListMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationReturnValueWithUnixFdList--
− GI/Gio/Objects/DBusMethodInvocation.hs-boot 
@@ -1,27 +0,0 @@-module GI.Gio.Objects.DBusMethodInvocation where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusMethodInvocation = DBusMethodInvocation (ForeignPtr DBusMethodInvocation)-instance GObject DBusMethodInvocation where-class GObject o => DBusMethodInvocationK o-instance (GObject o, IsDescendantOf DBusMethodInvocation o) => DBusMethodInvocationK o-data DBusMethodInvocationGetConnectionMethodInfo-data DBusMethodInvocationGetInterfaceNameMethodInfo-data DBusMethodInvocationGetMessageMethodInfo-data DBusMethodInvocationGetMethodInfoMethodInfo-data DBusMethodInvocationGetMethodNameMethodInfo-data DBusMethodInvocationGetObjectPathMethodInfo-data DBusMethodInvocationGetParametersMethodInfo-data DBusMethodInvocationGetPropertyInfoMethodInfo-data DBusMethodInvocationGetSenderMethodInfo-data DBusMethodInvocationReturnDbusErrorMethodInfo-data DBusMethodInvocationReturnErrorLiteralMethodInfo-data DBusMethodInvocationReturnGerrorMethodInfo-data DBusMethodInvocationReturnValueMethodInfo-data DBusMethodInvocationReturnValueWithUnixFdListMethodInfo
− GI/Gio/Objects/DBusObjectManagerClient.hs 
@@ -1,1021 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusObjectManagerClient-    ( ---- * Exported types-    DBusObjectManagerClient(..)             ,-    DBusObjectManagerClientK                ,-    toDBusObjectManagerClient               ,-    noDBusObjectManagerClient               ,--- -- * Methods--- ** dBusObjectManagerClientGetConnection-    DBusObjectManagerClientGetConnectionMethodInfo,-    dBusObjectManagerClientGetConnection    ,----- ** dBusObjectManagerClientGetFlags-    DBusObjectManagerClientGetFlagsMethodInfo,-    dBusObjectManagerClientGetFlags         ,----- ** dBusObjectManagerClientGetName-    DBusObjectManagerClientGetNameMethodInfo,-    dBusObjectManagerClientGetName          ,----- ** dBusObjectManagerClientGetNameOwner-    DBusObjectManagerClientGetNameOwnerMethodInfo,-    dBusObjectManagerClientGetNameOwner     ,----- ** dBusObjectManagerClientNew-    dBusObjectManagerClientNew              ,----- ** dBusObjectManagerClientNewFinish-    dBusObjectManagerClientNewFinish        ,----- ** dBusObjectManagerClientNewForBus-    dBusObjectManagerClientNewForBus        ,----- ** dBusObjectManagerClientNewForBusFinish-    dBusObjectManagerClientNewForBusFinish  ,----- ** dBusObjectManagerClientNewForBusSync-    dBusObjectManagerClientNewForBusSync    ,----- ** dBusObjectManagerClientNewSync-    dBusObjectManagerClientNewSync          ,----- -- * Properties--- ** BusType-    DBusObjectManagerClientBusTypePropertyInfo,-    constructDBusObjectManagerClientBusType ,-    dBusObjectManagerClientBusType          ,----- ** Connection-    DBusObjectManagerClientConnectionPropertyInfo,-    constructDBusObjectManagerClientConnection,-    dBusObjectManagerClientConnection       ,-    getDBusObjectManagerClientConnection    ,----- ** Flags-    DBusObjectManagerClientFlagsPropertyInfo,-    constructDBusObjectManagerClientFlags   ,-    dBusObjectManagerClientFlags            ,-    getDBusObjectManagerClientFlags         ,----- ** GetProxyTypeDestroyNotify-    DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo,-    constructDBusObjectManagerClientGetProxyTypeDestroyNotify,-    dBusObjectManagerClientGetProxyTypeDestroyNotify,-    getDBusObjectManagerClientGetProxyTypeDestroyNotify,----- ** GetProxyTypeFunc-    DBusObjectManagerClientGetProxyTypeFuncPropertyInfo,-    constructDBusObjectManagerClientGetProxyTypeFunc,-    dBusObjectManagerClientGetProxyTypeFunc ,-    getDBusObjectManagerClientGetProxyTypeFunc,----- ** GetProxyTypeUserData-    DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo,-    constructDBusObjectManagerClientGetProxyTypeUserData,-    dBusObjectManagerClientGetProxyTypeUserData,-    getDBusObjectManagerClientGetProxyTypeUserData,----- ** Name-    DBusObjectManagerClientNamePropertyInfo ,-    constructDBusObjectManagerClientName    ,-    dBusObjectManagerClientName             ,-    getDBusObjectManagerClientName          ,----- ** NameOwner-    DBusObjectManagerClientNameOwnerPropertyInfo,-    dBusObjectManagerClientNameOwner        ,-    getDBusObjectManagerClientNameOwner     ,----- ** ObjectPath-    DBusObjectManagerClientObjectPathPropertyInfo,-    constructDBusObjectManagerClientObjectPath,-    dBusObjectManagerClientObjectPath       ,-    getDBusObjectManagerClientObjectPath    ,----- -- * Signals--- ** InterfaceProxyPropertiesChanged-    DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,-    DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC,-    DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo,-    afterDBusObjectManagerClientInterfaceProxyPropertiesChanged,-    dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper,-    dBusObjectManagerClientInterfaceProxyPropertiesChangedClosure,-    mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,-    noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,-    onDBusObjectManagerClientInterfaceProxyPropertiesChanged,----- ** InterfaceProxySignal-    DBusObjectManagerClientInterfaceProxySignalCallback,-    DBusObjectManagerClientInterfaceProxySignalCallbackC,-    DBusObjectManagerClientInterfaceProxySignalSignalInfo,-    afterDBusObjectManagerClientInterfaceProxySignal,-    dBusObjectManagerClientInterfaceProxySignalCallbackWrapper,-    dBusObjectManagerClientInterfaceProxySignalClosure,-    mkDBusObjectManagerClientInterfaceProxySignalCallback,-    noDBusObjectManagerClientInterfaceProxySignalCallback,-    onDBusObjectManagerClientInterfaceProxySignal,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype DBusObjectManagerClient = DBusObjectManagerClient (ForeignPtr DBusObjectManagerClient)-foreign import ccall "g_dbus_object_manager_client_get_type"-    c_g_dbus_object_manager_client_get_type :: IO GType--type instance ParentTypes DBusObjectManagerClient = DBusObjectManagerClientParentTypes-type DBusObjectManagerClientParentTypes = '[GObject.Object, AsyncInitable, DBusObjectManager, Initable]--instance GObject DBusObjectManagerClient where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_object_manager_client_get_type-    --class GObject o => DBusObjectManagerClientK o-instance (GObject o, IsDescendantOf DBusObjectManagerClient o) => DBusObjectManagerClientK o--toDBusObjectManagerClient :: DBusObjectManagerClientK o => o -> IO DBusObjectManagerClient-toDBusObjectManagerClient = unsafeCastTo DBusObjectManagerClient--noDBusObjectManagerClient :: Maybe DBusObjectManagerClient-noDBusObjectManagerClient = Nothing--type family ResolveDBusObjectManagerClientMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectManagerClientMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusObjectManagerClientMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectManagerClientMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusObjectManagerClientMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectManagerClientMethod "init" o = InitableInitMethodInfo-    ResolveDBusObjectManagerClientMethod "initAsync" o = AsyncInitableInitAsyncMethodInfo-    ResolveDBusObjectManagerClientMethod "initFinish" o = AsyncInitableInitFinishMethodInfo-    ResolveDBusObjectManagerClientMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusObjectManagerClientMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusObjectManagerClientMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectManagerClientMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusObjectManagerClientMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusObjectManagerClientMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusObjectManagerClientMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusObjectManagerClientMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusObjectManagerClientMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusObjectManagerClientMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusObjectManagerClientMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusObjectManagerClientMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusObjectManagerClientMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusObjectManagerClientMethod "getConnection" o = DBusObjectManagerClientGetConnectionMethodInfo-    ResolveDBusObjectManagerClientMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusObjectManagerClientMethod "getFlags" o = DBusObjectManagerClientGetFlagsMethodInfo-    ResolveDBusObjectManagerClientMethod "getInterface" o = DBusObjectManagerGetInterfaceMethodInfo-    ResolveDBusObjectManagerClientMethod "getName" o = DBusObjectManagerClientGetNameMethodInfo-    ResolveDBusObjectManagerClientMethod "getNameOwner" o = DBusObjectManagerClientGetNameOwnerMethodInfo-    ResolveDBusObjectManagerClientMethod "getObject" o = DBusObjectManagerGetObjectMethodInfo-    ResolveDBusObjectManagerClientMethod "getObjectPath" o = DBusObjectManagerGetObjectPathMethodInfo-    ResolveDBusObjectManagerClientMethod "getObjects" o = DBusObjectManagerGetObjectsMethodInfo-    ResolveDBusObjectManagerClientMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusObjectManagerClientMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusObjectManagerClientMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusObjectManagerClientMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusObjectManagerClientMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectManagerClientMethod t DBusObjectManagerClient, MethodInfo info DBusObjectManagerClient p) => IsLabelProxy t (DBusObjectManagerClient -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusObjectManagerClientMethod t DBusObjectManagerClient, MethodInfo info DBusObjectManagerClient p) => IsLabel t (DBusObjectManagerClient -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal DBusObjectManagerClient::interface-proxy-properties-changed-type DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback =-    DBusObjectProxy ->-    DBusProxy ->-    GVariant ->-    [T.Text] ->-    IO ()--noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback :: Maybe DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback-noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback = Nothing--type DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC =-    Ptr () ->                               -- object-    Ptr DBusObjectProxy ->-    Ptr DBusProxy ->-    Ptr GVariant ->-    Ptr CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback :: DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC -> IO (FunPtr DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC)--dBusObjectManagerClientInterfaceProxyPropertiesChangedClosure :: DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> IO Closure-dBusObjectManagerClientInterfaceProxyPropertiesChangedClosure cb = newCClosure =<< mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback wrapped-    where wrapped = dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper cb--dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper ::-    DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback ->-    Ptr () ->-    Ptr DBusObjectProxy ->-    Ptr DBusProxy ->-    Ptr GVariant ->-    Ptr CString ->-    Ptr () ->-    IO ()-dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper _cb _ objectProxy interfaceProxy changedProperties invalidatedProperties _ = do-    objectProxy' <- (newObject DBusObjectProxy) objectProxy-    interfaceProxy' <- (newObject DBusProxy) interfaceProxy-    changedProperties' <- newGVariantFromPtr changedProperties-    invalidatedProperties' <- unpackZeroTerminatedUTF8CArray invalidatedProperties-    _cb  objectProxy' interfaceProxy' changedProperties' invalidatedProperties'--onDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> m SignalHandlerId-onDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb = liftIO $ connectDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb SignalConnectBefore-afterDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> m SignalHandlerId-afterDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb = connectDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb SignalConnectAfter--connectDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (GObject a, MonadIO m) =>-                                                                 a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb after = liftIO $ do-    cb' <- mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback (dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper cb)-    connectSignalFunPtr obj "interface-proxy-properties-changed" cb' after---- signal DBusObjectManagerClient::interface-proxy-signal-type DBusObjectManagerClientInterfaceProxySignalCallback =-    DBusObjectProxy ->-    DBusProxy ->-    T.Text ->-    T.Text ->-    GVariant ->-    IO ()--noDBusObjectManagerClientInterfaceProxySignalCallback :: Maybe DBusObjectManagerClientInterfaceProxySignalCallback-noDBusObjectManagerClientInterfaceProxySignalCallback = Nothing--type DBusObjectManagerClientInterfaceProxySignalCallbackC =-    Ptr () ->                               -- object-    Ptr DBusObjectProxy ->-    Ptr DBusProxy ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDBusObjectManagerClientInterfaceProxySignalCallback :: DBusObjectManagerClientInterfaceProxySignalCallbackC -> IO (FunPtr DBusObjectManagerClientInterfaceProxySignalCallbackC)--dBusObjectManagerClientInterfaceProxySignalClosure :: DBusObjectManagerClientInterfaceProxySignalCallback -> IO Closure-dBusObjectManagerClientInterfaceProxySignalClosure cb = newCClosure =<< mkDBusObjectManagerClientInterfaceProxySignalCallback wrapped-    where wrapped = dBusObjectManagerClientInterfaceProxySignalCallbackWrapper cb--dBusObjectManagerClientInterfaceProxySignalCallbackWrapper ::-    DBusObjectManagerClientInterfaceProxySignalCallback ->-    Ptr () ->-    Ptr DBusObjectProxy ->-    Ptr DBusProxy ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr () ->-    IO ()-dBusObjectManagerClientInterfaceProxySignalCallbackWrapper _cb _ objectProxy interfaceProxy senderName signalName parameters _ = do-    objectProxy' <- (newObject DBusObjectProxy) objectProxy-    interfaceProxy' <- (newObject DBusProxy) interfaceProxy-    senderName' <- cstringToText senderName-    signalName' <- cstringToText signalName-    parameters' <- newGVariantFromPtr parameters-    _cb  objectProxy' interfaceProxy' senderName' signalName' parameters'--onDBusObjectManagerClientInterfaceProxySignal :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxySignalCallback -> m SignalHandlerId-onDBusObjectManagerClientInterfaceProxySignal obj cb = liftIO $ connectDBusObjectManagerClientInterfaceProxySignal obj cb SignalConnectBefore-afterDBusObjectManagerClientInterfaceProxySignal :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxySignalCallback -> m SignalHandlerId-afterDBusObjectManagerClientInterfaceProxySignal obj cb = connectDBusObjectManagerClientInterfaceProxySignal obj cb SignalConnectAfter--connectDBusObjectManagerClientInterfaceProxySignal :: (GObject a, MonadIO m) =>-                                                      a -> DBusObjectManagerClientInterfaceProxySignalCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusObjectManagerClientInterfaceProxySignal obj cb after = liftIO $ do-    cb' <- mkDBusObjectManagerClientInterfaceProxySignalCallback (dBusObjectManagerClientInterfaceProxySignalCallbackWrapper cb)-    connectSignalFunPtr obj "interface-proxy-signal" cb' after---- VVV Prop "bus-type"-   -- Type: TInterface "Gio" "BusType"-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructDBusObjectManagerClientBusType :: BusType -> IO ([Char], GValue)-constructDBusObjectManagerClientBusType val = constructObjectPropertyEnum "bus-type" val--data DBusObjectManagerClientBusTypePropertyInfo-instance AttrInfo DBusObjectManagerClientBusTypePropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientBusTypePropertyInfo = '[ 'AttrConstruct]-    type AttrSetTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = (~) BusType-    type AttrBaseTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = DBusObjectManagerClientK-    type AttrGetType DBusObjectManagerClientBusTypePropertyInfo = ()-    type AttrLabel DBusObjectManagerClientBusTypePropertyInfo = "bus-type"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientBusType-    attrClear _ = undefined---- VVV Prop "connection"-   -- Type: TInterface "Gio" "DBusConnection"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getDBusObjectManagerClientConnection :: (MonadIO m, DBusObjectManagerClientK o) => o -> m DBusConnection-getDBusObjectManagerClientConnection obj = liftIO $ checkUnexpectedNothing "getDBusObjectManagerClientConnection" $ getObjectPropertyObject obj "connection" DBusConnection--constructDBusObjectManagerClientConnection :: (DBusConnectionK a) => a -> IO ([Char], GValue)-constructDBusObjectManagerClientConnection val = constructObjectPropertyObject "connection" (Just val)--data DBusObjectManagerClientConnectionPropertyInfo-instance AttrInfo DBusObjectManagerClientConnectionPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = DBusConnectionK-    type AttrBaseTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = DBusObjectManagerClientK-    type AttrGetType DBusObjectManagerClientConnectionPropertyInfo = DBusConnection-    type AttrLabel DBusObjectManagerClientConnectionPropertyInfo = "connection"-    attrGet _ = getDBusObjectManagerClientConnection-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientConnection-    attrClear _ = undefined---- VVV Prop "flags"-   -- Type: TInterface "Gio" "DBusObjectManagerClientFlags"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getDBusObjectManagerClientFlags :: (MonadIO m, DBusObjectManagerClientK o) => o -> m [DBusObjectManagerClientFlags]-getDBusObjectManagerClientFlags obj = liftIO $ getObjectPropertyFlags obj "flags"--constructDBusObjectManagerClientFlags :: [DBusObjectManagerClientFlags] -> IO ([Char], GValue)-constructDBusObjectManagerClientFlags val = constructObjectPropertyFlags "flags" val--data DBusObjectManagerClientFlagsPropertyInfo-instance AttrInfo DBusObjectManagerClientFlagsPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = (~) [DBusObjectManagerClientFlags]-    type AttrBaseTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = DBusObjectManagerClientK-    type AttrGetType DBusObjectManagerClientFlagsPropertyInfo = [DBusObjectManagerClientFlags]-    type AttrLabel DBusObjectManagerClientFlagsPropertyInfo = "flags"-    attrGet _ = getDBusObjectManagerClientFlags-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientFlags-    attrClear _ = undefined---- VVV Prop "get-proxy-type-destroy-notify"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusObjectManagerClientGetProxyTypeDestroyNotify :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Ptr ())-getDBusObjectManagerClientGetProxyTypeDestroyNotify obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-destroy-notify"--constructDBusObjectManagerClientGetProxyTypeDestroyNotify :: Ptr () -> IO ([Char], GValue)-constructDBusObjectManagerClientGetProxyTypeDestroyNotify val = constructObjectPropertyPtr "get-proxy-type-destroy-notify" val--data DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo-instance AttrInfo DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = DBusObjectManagerClientK-    type AttrGetType DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (Ptr ())-    type AttrLabel DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = "get-proxy-type-destroy-notify"-    attrGet _ = getDBusObjectManagerClientGetProxyTypeDestroyNotify-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeDestroyNotify-    attrClear _ = undefined---- VVV Prop "get-proxy-type-func"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusObjectManagerClientGetProxyTypeFunc :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Ptr ())-getDBusObjectManagerClientGetProxyTypeFunc obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-func"--constructDBusObjectManagerClientGetProxyTypeFunc :: Ptr () -> IO ([Char], GValue)-constructDBusObjectManagerClientGetProxyTypeFunc val = constructObjectPropertyPtr "get-proxy-type-func" val--data DBusObjectManagerClientGetProxyTypeFuncPropertyInfo-instance AttrInfo DBusObjectManagerClientGetProxyTypeFuncPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = DBusObjectManagerClientK-    type AttrGetType DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (Ptr ())-    type AttrLabel DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = "get-proxy-type-func"-    attrGet _ = getDBusObjectManagerClientGetProxyTypeFunc-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeFunc-    attrClear _ = undefined---- VVV Prop "get-proxy-type-user-data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusObjectManagerClientGetProxyTypeUserData :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Ptr ())-getDBusObjectManagerClientGetProxyTypeUserData obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-user-data"--constructDBusObjectManagerClientGetProxyTypeUserData :: Ptr () -> IO ([Char], GValue)-constructDBusObjectManagerClientGetProxyTypeUserData val = constructObjectPropertyPtr "get-proxy-type-user-data" val--data DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo-instance AttrInfo DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = DBusObjectManagerClientK-    type AttrGetType DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (Ptr ())-    type AttrLabel DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = "get-proxy-type-user-data"-    attrGet _ = getDBusObjectManagerClientGetProxyTypeUserData-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeUserData-    attrClear _ = undefined---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getDBusObjectManagerClientName :: (MonadIO m, DBusObjectManagerClientK o) => o -> m T.Text-getDBusObjectManagerClientName obj = liftIO $ checkUnexpectedNothing "getDBusObjectManagerClientName" $ getObjectPropertyString obj "name"--constructDBusObjectManagerClientName :: T.Text -> IO ([Char], GValue)-constructDBusObjectManagerClientName val = constructObjectPropertyString "name" (Just val)--data DBusObjectManagerClientNamePropertyInfo-instance AttrInfo DBusObjectManagerClientNamePropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerClientNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusObjectManagerClientNamePropertyInfo = DBusObjectManagerClientK-    type AttrGetType DBusObjectManagerClientNamePropertyInfo = T.Text-    type AttrLabel DBusObjectManagerClientNamePropertyInfo = "name"-    attrGet _ = getDBusObjectManagerClientName-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientName-    attrClear _ = undefined---- VVV Prop "name-owner"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDBusObjectManagerClientNameOwner :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Maybe T.Text)-getDBusObjectManagerClientNameOwner obj = liftIO $ getObjectPropertyString obj "name-owner"--data DBusObjectManagerClientNameOwnerPropertyInfo-instance AttrInfo DBusObjectManagerClientNameOwnerPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientNameOwnerPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = DBusObjectManagerClientK-    type AttrGetType DBusObjectManagerClientNameOwnerPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusObjectManagerClientNameOwnerPropertyInfo = "name-owner"-    attrGet _ = getDBusObjectManagerClientNameOwner-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "object-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusObjectManagerClientObjectPath :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Maybe T.Text)-getDBusObjectManagerClientObjectPath obj = liftIO $ getObjectPropertyString obj "object-path"--constructDBusObjectManagerClientObjectPath :: T.Text -> IO ([Char], GValue)-constructDBusObjectManagerClientObjectPath val = constructObjectPropertyString "object-path" (Just val)--data DBusObjectManagerClientObjectPathPropertyInfo-instance AttrInfo DBusObjectManagerClientObjectPathPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = DBusObjectManagerClientK-    type AttrGetType DBusObjectManagerClientObjectPathPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusObjectManagerClientObjectPathPropertyInfo = "object-path"-    attrGet _ = getDBusObjectManagerClientObjectPath-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientObjectPath-    attrClear _ = undefined--type instance AttributeList DBusObjectManagerClient = DBusObjectManagerClientAttributeList-type DBusObjectManagerClientAttributeList = ('[ '("busType", DBusObjectManagerClientBusTypePropertyInfo), '("connection", DBusObjectManagerClientConnectionPropertyInfo), '("flags", DBusObjectManagerClientFlagsPropertyInfo), '("getProxyTypeDestroyNotify", DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo), '("getProxyTypeFunc", DBusObjectManagerClientGetProxyTypeFuncPropertyInfo), '("getProxyTypeUserData", DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo), '("name", DBusObjectManagerClientNamePropertyInfo), '("nameOwner", DBusObjectManagerClientNameOwnerPropertyInfo), '("objectPath", DBusObjectManagerClientObjectPathPropertyInfo)] :: [(Symbol, *)])--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--data DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo-instance SignalInfo DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo where-    type HaskellCallbackType DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo = DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback-    connectSignal _ = connectDBusObjectManagerClientInterfaceProxyPropertiesChanged--data DBusObjectManagerClientInterfaceProxySignalSignalInfo-instance SignalInfo DBusObjectManagerClientInterfaceProxySignalSignalInfo where-    type HaskellCallbackType DBusObjectManagerClientInterfaceProxySignalSignalInfo = DBusObjectManagerClientInterfaceProxySignalCallback-    connectSignal _ = connectDBusObjectManagerClientInterfaceProxySignal--type instance SignalList DBusObjectManagerClient = DBusObjectManagerClientSignalList-type DBusObjectManagerClientSignalList = ('[ '("interfaceAdded", DBusObjectManagerInterfaceAddedSignalInfo), '("interfaceProxyPropertiesChanged", DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo), '("interfaceProxySignal", DBusObjectManagerClientInterfaceProxySignalSignalInfo), '("interfaceRemoved", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("objectAdded", DBusObjectManagerObjectAddedSignalInfo), '("objectRemoved", DBusObjectManagerObjectRemovedSignalInfo)] :: [(Symbol, *)])---- method DBusObjectManagerClient::new_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusObjectManagerClient")--- throws : True--- Skip return : False--foreign import ccall "g_dbus_object_manager_client_new_finish" g_dbus_object_manager_client_new_finish :: -    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusObjectManagerClient)---dBusObjectManagerClientNewFinish ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- res-    -> m DBusObjectManagerClient            -- result-dBusObjectManagerClientNewFinish res = liftIO $ do-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_object_manager_client_new_finish res'-        checkUnexpectedReturnNULL "g_dbus_object_manager_client_new_finish" result-        result' <- (wrapObject DBusObjectManagerClient) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )---- method DBusObjectManagerClient::new_for_bus_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusObjectManagerClient)---dBusObjectManagerClientNewForBusFinish ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- res-    -> m DBusObjectManagerClient            -- result-dBusObjectManagerClientNewForBusFinish res = liftIO $ do-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_object_manager_client_new_for_bus_finish res'-        checkUnexpectedReturnNULL "g_dbus_object_manager_client_new_for_bus_finish" result-        result' <- (wrapObject DBusObjectManagerClient) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )---- method DBusObjectManagerClient::new_for_bus_sync--- method type : Constructor--- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 :: -    CUInt ->                                -- bus_type : TInterface "Gio" "BusType"-    CUInt ->                                -- flags : TInterface "Gio" "DBusObjectManagerClientFlags"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    FunPtr DBusProxyTypeFuncC ->            -- get_proxy_type_func : TInterface "Gio" "DBusProxyTypeFunc"-    Ptr () ->                               -- get_proxy_type_user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- get_proxy_type_destroy_notify : TInterface "GLib" "DestroyNotify"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusObjectManagerClient)---dBusObjectManagerClientNewForBusSync ::-    (MonadIO m, CancellableK a) =>-    BusType                                 -- busType-    -> [DBusObjectManagerClientFlags]       -- flags-    -> T.Text                               -- name-    -> T.Text                               -- objectPath-    -> Maybe (DBusProxyTypeFunc)            -- getProxyTypeFunc-    -> Maybe (a)                            -- cancellable-    -> m DBusObjectManagerClient            -- result-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' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGetProxyTypeFunc)-            return jGetProxyTypeFunc'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let 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 "g_dbus_object_manager_client_new_for_bus_sync" result-        result' <- (wrapObject DBusObjectManagerClient) result-        whenJust cancellable touchManagedPtr-        freeMem name'-        freeMem objectPath'-        return result'-     ) (do-        freeMem name'-        freeMem objectPath'-     )---- method DBusObjectManagerClient::new_sync--- method type : Constructor--- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusObjectManagerClient")--- throws : True--- Skip return : False--foreign import ccall "g_dbus_object_manager_client_new_sync" g_dbus_object_manager_client_new_sync :: -    Ptr DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    CUInt ->                                -- flags : TInterface "Gio" "DBusObjectManagerClientFlags"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    FunPtr DBusProxyTypeFuncC ->            -- get_proxy_type_func : TInterface "Gio" "DBusProxyTypeFunc"-    Ptr () ->                               -- get_proxy_type_user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- get_proxy_type_destroy_notify : TInterface "GLib" "DestroyNotify"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusObjectManagerClient)---dBusObjectManagerClientNewSync ::-    (MonadIO m, DBusConnectionK a, CancellableK b) =>-    a                                       -- connection-    -> [DBusObjectManagerClientFlags]       -- flags-    -> Maybe (T.Text)                       -- name-    -> T.Text                               -- objectPath-    -> Maybe (DBusProxyTypeFunc)            -- getProxyTypeFunc-    -> Maybe (b)                            -- cancellable-    -> m DBusObjectManagerClient            -- result-dBusObjectManagerClientNewSync connection flags name objectPath getProxyTypeFunc cancellable = liftIO $ do-    let 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' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGetProxyTypeFunc)-            return jGetProxyTypeFunc'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let 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 "g_dbus_object_manager_client_new_sync" result-        result' <- (wrapObject DBusObjectManagerClient) result-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        freeMem maybeName-        freeMem objectPath'-        return result'-     ) (do-        freeMem maybeName-        freeMem objectPath'-     )---- method DBusObjectManagerClient::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->          -- _obj : TInterface "Gio" "DBusObjectManagerClient"-    IO (Ptr DBusConnection)---dBusObjectManagerClientGetConnection ::-    (MonadIO m, DBusObjectManagerClientK a) =>-    a                                       -- _obj-    -> m DBusConnection                     -- result-dBusObjectManagerClientGetConnection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_object_manager_client_get_connection _obj'-    checkUnexpectedReturnNULL "g_dbus_object_manager_client_get_connection" result-    result' <- (newObject DBusConnection) result-    touchManagedPtr _obj-    return result'--data DBusObjectManagerClientGetConnectionMethodInfo-instance (signature ~ (m DBusConnection), MonadIO m, DBusObjectManagerClientK a) => MethodInfo DBusObjectManagerClientGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerClientGetConnection---- method DBusObjectManagerClient::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->          -- _obj : TInterface "Gio" "DBusObjectManagerClient"-    IO CUInt---dBusObjectManagerClientGetFlags ::-    (MonadIO m, DBusObjectManagerClientK a) =>-    a                                       -- _obj-    -> m [DBusObjectManagerClientFlags]     -- result-dBusObjectManagerClientGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_object_manager_client_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data DBusObjectManagerClientGetFlagsMethodInfo-instance (signature ~ (m [DBusObjectManagerClientFlags]), MonadIO m, DBusObjectManagerClientK a) => MethodInfo DBusObjectManagerClientGetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerClientGetFlags---- method DBusObjectManagerClient::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, 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 ->          -- _obj : TInterface "Gio" "DBusObjectManagerClient"-    IO CString---dBusObjectManagerClientGetName ::-    (MonadIO m, DBusObjectManagerClientK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusObjectManagerClientGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_object_manager_client_get_name _obj'-    checkUnexpectedReturnNULL "g_dbus_object_manager_client_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusObjectManagerClientGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusObjectManagerClientK a) => MethodInfo DBusObjectManagerClientGetNameMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerClientGetName---- method DBusObjectManagerClient::get_name_owner--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, 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 ->          -- _obj : TInterface "Gio" "DBusObjectManagerClient"-    IO CString---dBusObjectManagerClientGetNameOwner ::-    (MonadIO m, DBusObjectManagerClientK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-dBusObjectManagerClientGetNameOwner _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_object_manager_client_get_name_owner _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data DBusObjectManagerClientGetNameOwnerMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, DBusObjectManagerClientK a) => MethodInfo DBusObjectManagerClientGetNameOwnerMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerClientGetNameOwner---- method DBusObjectManagerClient::new--- method type : MemberFunction--- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 9, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    CUInt ->                                -- flags : TInterface "Gio" "DBusObjectManagerClientFlags"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    FunPtr DBusProxyTypeFuncC ->            -- get_proxy_type_func : TInterface "Gio" "DBusProxyTypeFunc"-    Ptr () ->                               -- get_proxy_type_user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- get_proxy_type_destroy_notify : TInterface "GLib" "DestroyNotify"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusObjectManagerClientNew ::-    (MonadIO m, DBusConnectionK a, CancellableK b) =>-    a                                       -- connection-    -> [DBusObjectManagerClientFlags]       -- flags-    -> T.Text                               -- name-    -> T.Text                               -- objectPath-    -> Maybe (DBusProxyTypeFunc)            -- getProxyTypeFunc-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dBusObjectManagerClientNew connection flags name objectPath getProxyTypeFunc cancellable callback = liftIO $ do-    let 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' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGetProxyTypeFunc)-            return jGetProxyTypeFunc'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) 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 ()---- method DBusObjectManagerClient::new_for_bus--- method type : MemberFunction--- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 9, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 :: -    CUInt ->                                -- bus_type : TInterface "Gio" "BusType"-    CUInt ->                                -- flags : TInterface "Gio" "DBusObjectManagerClientFlags"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    FunPtr DBusProxyTypeFuncC ->            -- get_proxy_type_func : TInterface "Gio" "DBusProxyTypeFunc"-    Ptr () ->                               -- get_proxy_type_user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- get_proxy_type_destroy_notify : TInterface "GLib" "DestroyNotify"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusObjectManagerClientNewForBus ::-    (MonadIO m, CancellableK a) =>-    BusType                                 -- busType-    -> [DBusObjectManagerClientFlags]       -- flags-    -> T.Text                               -- name-    -> T.Text                               -- objectPath-    -> Maybe (DBusProxyTypeFunc)            -- getProxyTypeFunc-    -> Maybe (a)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-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' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGetProxyTypeFunc)-            return jGetProxyTypeFunc'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) 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 ()--
− GI/Gio/Objects/DBusObjectManagerClient.hs-boot 
@@ -1,28 +0,0 @@-module GI.Gio.Objects.DBusObjectManagerClient where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusObjectManagerClient = DBusObjectManagerClient (ForeignPtr DBusObjectManagerClient)-instance GObject DBusObjectManagerClient where-class GObject o => DBusObjectManagerClientK o-instance (GObject o, IsDescendantOf DBusObjectManagerClient o) => DBusObjectManagerClientK o-data DBusObjectManagerClientBusTypePropertyInfo-data DBusObjectManagerClientConnectionPropertyInfo-data DBusObjectManagerClientFlagsPropertyInfo-data DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo-data DBusObjectManagerClientGetProxyTypeFuncPropertyInfo-data DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo-data DBusObjectManagerClientNamePropertyInfo-data DBusObjectManagerClientNameOwnerPropertyInfo-data DBusObjectManagerClientObjectPathPropertyInfo-data DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo-data DBusObjectManagerClientInterfaceProxySignalSignalInfo-data DBusObjectManagerClientGetConnectionMethodInfo-data DBusObjectManagerClientGetFlagsMethodInfo-data DBusObjectManagerClientGetNameMethodInfo-data DBusObjectManagerClientGetNameOwnerMethodInfo
− GI/Gio/Objects/DBusObjectManagerServer.hs 
@@ -1,431 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusObjectManagerServer-    ( ---- * Exported types-    DBusObjectManagerServer(..)             ,-    DBusObjectManagerServerK                ,-    toDBusObjectManagerServer               ,-    noDBusObjectManagerServer               ,--- -- * Methods--- ** dBusObjectManagerServerExport-    DBusObjectManagerServerExportMethodInfo ,-    dBusObjectManagerServerExport           ,----- ** dBusObjectManagerServerExportUniquely-    DBusObjectManagerServerExportUniquelyMethodInfo,-    dBusObjectManagerServerExportUniquely   ,----- ** dBusObjectManagerServerGetConnection-    DBusObjectManagerServerGetConnectionMethodInfo,-    dBusObjectManagerServerGetConnection    ,----- ** dBusObjectManagerServerIsExported-    DBusObjectManagerServerIsExportedMethodInfo,-    dBusObjectManagerServerIsExported       ,----- ** dBusObjectManagerServerNew-    dBusObjectManagerServerNew              ,----- ** dBusObjectManagerServerSetConnection-    DBusObjectManagerServerSetConnectionMethodInfo,-    dBusObjectManagerServerSetConnection    ,----- ** dBusObjectManagerServerUnexport-    DBusObjectManagerServerUnexportMethodInfo,-    dBusObjectManagerServerUnexport         ,----- -- * Properties--- ** Connection-    DBusObjectManagerServerConnectionPropertyInfo,-    clearDBusObjectManagerServerConnection  ,-    constructDBusObjectManagerServerConnection,-    dBusObjectManagerServerConnection       ,-    getDBusObjectManagerServerConnection    ,-    setDBusObjectManagerServerConnection    ,----- ** ObjectPath-    DBusObjectManagerServerObjectPathPropertyInfo,-    constructDBusObjectManagerServerObjectPath,-    dBusObjectManagerServerObjectPath       ,-    getDBusObjectManagerServerObjectPath    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DBusObjectManagerServer = DBusObjectManagerServer (ForeignPtr DBusObjectManagerServer)-foreign import ccall "g_dbus_object_manager_server_get_type"-    c_g_dbus_object_manager_server_get_type :: IO GType--type instance ParentTypes DBusObjectManagerServer = DBusObjectManagerServerParentTypes-type DBusObjectManagerServerParentTypes = '[GObject.Object, DBusObjectManager]--instance GObject DBusObjectManagerServer where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_object_manager_server_get_type-    --class GObject o => DBusObjectManagerServerK o-instance (GObject o, IsDescendantOf DBusObjectManagerServer o) => DBusObjectManagerServerK o--toDBusObjectManagerServer :: DBusObjectManagerServerK o => o -> IO DBusObjectManagerServer-toDBusObjectManagerServer = unsafeCastTo DBusObjectManagerServer--noDBusObjectManagerServer :: Maybe DBusObjectManagerServer-noDBusObjectManagerServer = Nothing--type family ResolveDBusObjectManagerServerMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectManagerServerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusObjectManagerServerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectManagerServerMethod "export" o = DBusObjectManagerServerExportMethodInfo-    ResolveDBusObjectManagerServerMethod "exportUniquely" o = DBusObjectManagerServerExportUniquelyMethodInfo-    ResolveDBusObjectManagerServerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusObjectManagerServerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectManagerServerMethod "isExported" o = DBusObjectManagerServerIsExportedMethodInfo-    ResolveDBusObjectManagerServerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusObjectManagerServerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusObjectManagerServerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectManagerServerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusObjectManagerServerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusObjectManagerServerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusObjectManagerServerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusObjectManagerServerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusObjectManagerServerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusObjectManagerServerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusObjectManagerServerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusObjectManagerServerMethod "unexport" o = DBusObjectManagerServerUnexportMethodInfo-    ResolveDBusObjectManagerServerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusObjectManagerServerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusObjectManagerServerMethod "getConnection" o = DBusObjectManagerServerGetConnectionMethodInfo-    ResolveDBusObjectManagerServerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusObjectManagerServerMethod "getInterface" o = DBusObjectManagerGetInterfaceMethodInfo-    ResolveDBusObjectManagerServerMethod "getObject" o = DBusObjectManagerGetObjectMethodInfo-    ResolveDBusObjectManagerServerMethod "getObjectPath" o = DBusObjectManagerGetObjectPathMethodInfo-    ResolveDBusObjectManagerServerMethod "getObjects" o = DBusObjectManagerGetObjectsMethodInfo-    ResolveDBusObjectManagerServerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusObjectManagerServerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusObjectManagerServerMethod "setConnection" o = DBusObjectManagerServerSetConnectionMethodInfo-    ResolveDBusObjectManagerServerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusObjectManagerServerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusObjectManagerServerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectManagerServerMethod t DBusObjectManagerServer, MethodInfo info DBusObjectManagerServer p) => IsLabelProxy t (DBusObjectManagerServer -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusObjectManagerServerMethod t DBusObjectManagerServer, MethodInfo info DBusObjectManagerServer p) => IsLabel t (DBusObjectManagerServer -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "connection"-   -- Type: TInterface "Gio" "DBusConnection"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Just True)--getDBusObjectManagerServerConnection :: (MonadIO m, DBusObjectManagerServerK o) => o -> m (Maybe DBusConnection)-getDBusObjectManagerServerConnection obj = liftIO $ getObjectPropertyObject obj "connection" DBusConnection--setDBusObjectManagerServerConnection :: (MonadIO m, DBusObjectManagerServerK o, DBusConnectionK a) => o -> a -> m ()-setDBusObjectManagerServerConnection obj val = liftIO $ setObjectPropertyObject obj "connection" (Just val)--constructDBusObjectManagerServerConnection :: (DBusConnectionK a) => a -> IO ([Char], GValue)-constructDBusObjectManagerServerConnection val = constructObjectPropertyObject "connection" (Just val)--clearDBusObjectManagerServerConnection :: (MonadIO m, DBusObjectManagerServerK o) => o -> m ()-clearDBusObjectManagerServerConnection obj = liftIO $ setObjectPropertyObject obj "connection" (Nothing :: Maybe DBusConnection)--data DBusObjectManagerServerConnectionPropertyInfo-instance AttrInfo DBusObjectManagerServerConnectionPropertyInfo where-    type AttrAllowedOps DBusObjectManagerServerConnectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerServerConnectionPropertyInfo = DBusConnectionK-    type AttrBaseTypeConstraint DBusObjectManagerServerConnectionPropertyInfo = DBusObjectManagerServerK-    type AttrGetType DBusObjectManagerServerConnectionPropertyInfo = (Maybe DBusConnection)-    type AttrLabel DBusObjectManagerServerConnectionPropertyInfo = "connection"-    attrGet _ = getDBusObjectManagerServerConnection-    attrSet _ = setDBusObjectManagerServerConnection-    attrConstruct _ = constructDBusObjectManagerServerConnection-    attrClear _ = clearDBusObjectManagerServerConnection---- VVV Prop "object-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusObjectManagerServerObjectPath :: (MonadIO m, DBusObjectManagerServerK o) => o -> m (Maybe T.Text)-getDBusObjectManagerServerObjectPath obj = liftIO $ getObjectPropertyString obj "object-path"--constructDBusObjectManagerServerObjectPath :: T.Text -> IO ([Char], GValue)-constructDBusObjectManagerServerObjectPath val = constructObjectPropertyString "object-path" (Just val)--data DBusObjectManagerServerObjectPathPropertyInfo-instance AttrInfo DBusObjectManagerServerObjectPathPropertyInfo where-    type AttrAllowedOps DBusObjectManagerServerObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerServerObjectPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusObjectManagerServerObjectPathPropertyInfo = DBusObjectManagerServerK-    type AttrGetType DBusObjectManagerServerObjectPathPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusObjectManagerServerObjectPathPropertyInfo = "object-path"-    attrGet _ = getDBusObjectManagerServerObjectPath-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerServerObjectPath-    attrClear _ = undefined--type instance AttributeList DBusObjectManagerServer = DBusObjectManagerServerAttributeList-type DBusObjectManagerServerAttributeList = ('[ '("connection", DBusObjectManagerServerConnectionPropertyInfo), '("objectPath", DBusObjectManagerServerObjectPathPropertyInfo)] :: [(Symbol, *)])--dBusObjectManagerServerConnection :: AttrLabelProxy "connection"-dBusObjectManagerServerConnection = AttrLabelProxy--dBusObjectManagerServerObjectPath :: AttrLabelProxy "objectPath"-dBusObjectManagerServerObjectPath = AttrLabelProxy--type instance SignalList DBusObjectManagerServer = DBusObjectManagerServerSignalList-type DBusObjectManagerServerSignalList = ('[ '("interfaceAdded", DBusObjectManagerInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("objectAdded", DBusObjectManagerObjectAddedSignalInfo), '("objectRemoved", DBusObjectManagerObjectRemovedSignalInfo)] :: [(Symbol, *)])---- method DBusObjectManagerServer::new--- method type : Constructor--- Args : [Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---dBusObjectManagerServerNew ::-    (MonadIO m) =>-    T.Text                                  -- objectPath-    -> m DBusObjectManagerServer            -- result-dBusObjectManagerServerNew objectPath = liftIO $ do-    objectPath' <- textToCString objectPath-    result <- g_dbus_object_manager_server_new objectPath'-    checkUnexpectedReturnNULL "g_dbus_object_manager_server_new" result-    result' <- (wrapObject DBusObjectManagerServer) result-    freeMem objectPath'-    return result'---- method DBusObjectManagerServer::export--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, 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 ->          -- _obj : TInterface "Gio" "DBusObjectManagerServer"-    Ptr DBusObjectSkeleton ->               -- object : TInterface "Gio" "DBusObjectSkeleton"-    IO ()---dBusObjectManagerServerExport ::-    (MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) =>-    a                                       -- _obj-    -> b                                    -- object-    -> m ()                                 -- result-dBusObjectManagerServerExport _obj object = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let object' = unsafeManagedPtrCastPtr object-    g_dbus_object_manager_server_export _obj' object'-    touchManagedPtr _obj-    touchManagedPtr object-    return ()--data DBusObjectManagerServerExportMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => MethodInfo DBusObjectManagerServerExportMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerExport---- method DBusObjectManagerServer::export_uniquely--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, 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 ->          -- _obj : TInterface "Gio" "DBusObjectManagerServer"-    Ptr DBusObjectSkeleton ->               -- object : TInterface "Gio" "DBusObjectSkeleton"-    IO ()---dBusObjectManagerServerExportUniquely ::-    (MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) =>-    a                                       -- _obj-    -> b                                    -- object-    -> m ()                                 -- result-dBusObjectManagerServerExportUniquely _obj object = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let object' = unsafeManagedPtrCastPtr object-    g_dbus_object_manager_server_export_uniquely _obj' object'-    touchManagedPtr _obj-    touchManagedPtr object-    return ()--data DBusObjectManagerServerExportUniquelyMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => MethodInfo DBusObjectManagerServerExportUniquelyMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerExportUniquely---- method DBusObjectManagerServer::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->          -- _obj : TInterface "Gio" "DBusObjectManagerServer"-    IO (Ptr DBusConnection)---dBusObjectManagerServerGetConnection ::-    (MonadIO m, DBusObjectManagerServerK a) =>-    a                                       -- _obj-    -> m DBusConnection                     -- result-dBusObjectManagerServerGetConnection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_object_manager_server_get_connection _obj'-    checkUnexpectedReturnNULL "g_dbus_object_manager_server_get_connection" result-    result' <- (wrapObject DBusConnection) result-    touchManagedPtr _obj-    return result'--data DBusObjectManagerServerGetConnectionMethodInfo-instance (signature ~ (m DBusConnection), MonadIO m, DBusObjectManagerServerK a) => MethodInfo DBusObjectManagerServerGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerGetConnection---- method DBusObjectManagerServer::is_exported--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, 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 ->          -- _obj : TInterface "Gio" "DBusObjectManagerServer"-    Ptr DBusObjectSkeleton ->               -- object : TInterface "Gio" "DBusObjectSkeleton"-    IO CInt---dBusObjectManagerServerIsExported ::-    (MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) =>-    a                                       -- _obj-    -> b                                    -- object-    -> m Bool                               -- result-dBusObjectManagerServerIsExported _obj object = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let object' = unsafeManagedPtrCastPtr object-    result <- g_dbus_object_manager_server_is_exported _obj' object'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr object-    return result'--data DBusObjectManagerServerIsExportedMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => MethodInfo DBusObjectManagerServerIsExportedMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerIsExported---- method DBusObjectManagerServer::set_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = True, 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 ->          -- _obj : TInterface "Gio" "DBusObjectManagerServer"-    Ptr DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    IO ()---dBusObjectManagerServerSetConnection ::-    (MonadIO m, DBusObjectManagerServerK a, DBusConnectionK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- connection-    -> m ()                                 -- result-dBusObjectManagerServerSetConnection _obj connection = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeConnection <- case connection of-        Nothing -> return nullPtr-        Just jConnection -> do-            let jConnection' = unsafeManagedPtrCastPtr jConnection-            return jConnection'-    g_dbus_object_manager_server_set_connection _obj' maybeConnection-    touchManagedPtr _obj-    whenJust connection touchManagedPtr-    return ()--data DBusObjectManagerServerSetConnectionMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, DBusObjectManagerServerK a, DBusConnectionK b) => MethodInfo DBusObjectManagerServerSetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerSetConnection---- method DBusObjectManagerServer::unexport--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->          -- _obj : TInterface "Gio" "DBusObjectManagerServer"-    CString ->                              -- object_path : TBasicType TUTF8-    IO CInt---dBusObjectManagerServerUnexport ::-    (MonadIO m, DBusObjectManagerServerK a) =>-    a                                       -- _obj-    -> T.Text                               -- objectPath-    -> m Bool                               -- result-dBusObjectManagerServerUnexport _obj objectPath = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    objectPath' <- textToCString objectPath-    result <- g_dbus_object_manager_server_unexport _obj' objectPath'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem objectPath'-    return result'--data DBusObjectManagerServerUnexportMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, DBusObjectManagerServerK a) => MethodInfo DBusObjectManagerServerUnexportMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerUnexport--
− GI/Gio/Objects/DBusObjectManagerServer.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.DBusObjectManagerServer where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusObjectManagerServer = DBusObjectManagerServer (ForeignPtr DBusObjectManagerServer)-instance GObject DBusObjectManagerServer where-class GObject o => DBusObjectManagerServerK o-instance (GObject o, IsDescendantOf DBusObjectManagerServer o) => DBusObjectManagerServerK o-data DBusObjectManagerServerConnectionPropertyInfo-data DBusObjectManagerServerObjectPathPropertyInfo-data DBusObjectManagerServerExportMethodInfo-data DBusObjectManagerServerExportUniquelyMethodInfo-data DBusObjectManagerServerGetConnectionMethodInfo-data DBusObjectManagerServerIsExportedMethodInfo-data DBusObjectManagerServerSetConnectionMethodInfo-data DBusObjectManagerServerUnexportMethodInfo
− GI/Gio/Objects/DBusObjectProxy.hs 
@@ -1,235 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusObjectProxy-    ( ---- * Exported types-    DBusObjectProxy(..)                     ,-    DBusObjectProxyK                        ,-    toDBusObjectProxy                       ,-    noDBusObjectProxy                       ,--- -- * Methods--- ** dBusObjectProxyGetConnection-    DBusObjectProxyGetConnectionMethodInfo  ,-    dBusObjectProxyGetConnection            ,----- ** dBusObjectProxyNew-    dBusObjectProxyNew                      ,----- -- * Properties--- ** GConnection-    DBusObjectProxyGConnectionPropertyInfo  ,-    constructDBusObjectProxyGConnection     ,-    dBusObjectProxyGConnection              ,-    getDBusObjectProxyGConnection           ,----- ** GObjectPath-    DBusObjectProxyGObjectPathPropertyInfo  ,-    constructDBusObjectProxyGObjectPath     ,-    dBusObjectProxyGObjectPath              ,-    getDBusObjectProxyGObjectPath           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DBusObjectProxy = DBusObjectProxy (ForeignPtr DBusObjectProxy)-foreign import ccall "g_dbus_object_proxy_get_type"-    c_g_dbus_object_proxy_get_type :: IO GType--type instance ParentTypes DBusObjectProxy = DBusObjectProxyParentTypes-type DBusObjectProxyParentTypes = '[GObject.Object, DBusObject]--instance GObject DBusObjectProxy where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_object_proxy_get_type-    --class GObject o => DBusObjectProxyK o-instance (GObject o, IsDescendantOf DBusObjectProxy o) => DBusObjectProxyK o--toDBusObjectProxy :: DBusObjectProxyK o => o -> IO DBusObjectProxy-toDBusObjectProxy = unsafeCastTo DBusObjectProxy--noDBusObjectProxy :: Maybe DBusObjectProxy-noDBusObjectProxy = Nothing--type family ResolveDBusObjectProxyMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectProxyMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusObjectProxyMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectProxyMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusObjectProxyMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectProxyMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusObjectProxyMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusObjectProxyMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectProxyMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusObjectProxyMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusObjectProxyMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusObjectProxyMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusObjectProxyMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusObjectProxyMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusObjectProxyMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusObjectProxyMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusObjectProxyMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusObjectProxyMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusObjectProxyMethod "getConnection" o = DBusObjectProxyGetConnectionMethodInfo-    ResolveDBusObjectProxyMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusObjectProxyMethod "getInterface" o = DBusObjectGetInterfaceMethodInfo-    ResolveDBusObjectProxyMethod "getInterfaces" o = DBusObjectGetInterfacesMethodInfo-    ResolveDBusObjectProxyMethod "getObjectPath" o = DBusObjectGetObjectPathMethodInfo-    ResolveDBusObjectProxyMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusObjectProxyMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusObjectProxyMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusObjectProxyMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusObjectProxyMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectProxyMethod t DBusObjectProxy, MethodInfo info DBusObjectProxy p) => IsLabelProxy t (DBusObjectProxy -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusObjectProxyMethod t DBusObjectProxy, MethodInfo info DBusObjectProxy p) => IsLabel t (DBusObjectProxy -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "g-connection"-   -- Type: TInterface "Gio" "DBusConnection"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusObjectProxyGConnection :: (MonadIO m, DBusObjectProxyK o) => o -> m (Maybe DBusConnection)-getDBusObjectProxyGConnection obj = liftIO $ getObjectPropertyObject obj "g-connection" DBusConnection--constructDBusObjectProxyGConnection :: (DBusConnectionK a) => a -> IO ([Char], GValue)-constructDBusObjectProxyGConnection val = constructObjectPropertyObject "g-connection" (Just val)--data DBusObjectProxyGConnectionPropertyInfo-instance AttrInfo DBusObjectProxyGConnectionPropertyInfo where-    type AttrAllowedOps DBusObjectProxyGConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectProxyGConnectionPropertyInfo = DBusConnectionK-    type AttrBaseTypeConstraint DBusObjectProxyGConnectionPropertyInfo = DBusObjectProxyK-    type AttrGetType DBusObjectProxyGConnectionPropertyInfo = (Maybe DBusConnection)-    type AttrLabel DBusObjectProxyGConnectionPropertyInfo = "g-connection"-    attrGet _ = getDBusObjectProxyGConnection-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectProxyGConnection-    attrClear _ = undefined---- VVV Prop "g-object-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusObjectProxyGObjectPath :: (MonadIO m, DBusObjectProxyK o) => o -> m (Maybe T.Text)-getDBusObjectProxyGObjectPath obj = liftIO $ getObjectPropertyString obj "g-object-path"--constructDBusObjectProxyGObjectPath :: T.Text -> IO ([Char], GValue)-constructDBusObjectProxyGObjectPath val = constructObjectPropertyString "g-object-path" (Just val)--data DBusObjectProxyGObjectPathPropertyInfo-instance AttrInfo DBusObjectProxyGObjectPathPropertyInfo where-    type AttrAllowedOps DBusObjectProxyGObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectProxyGObjectPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusObjectProxyGObjectPathPropertyInfo = DBusObjectProxyK-    type AttrGetType DBusObjectProxyGObjectPathPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusObjectProxyGObjectPathPropertyInfo = "g-object-path"-    attrGet _ = getDBusObjectProxyGObjectPath-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectProxyGObjectPath-    attrClear _ = undefined--type instance AttributeList DBusObjectProxy = DBusObjectProxyAttributeList-type DBusObjectProxyAttributeList = ('[ '("gConnection", DBusObjectProxyGConnectionPropertyInfo), '("gObjectPath", DBusObjectProxyGObjectPathPropertyInfo)] :: [(Symbol, *)])--dBusObjectProxyGConnection :: AttrLabelProxy "gConnection"-dBusObjectProxyGConnection = AttrLabelProxy--dBusObjectProxyGObjectPath :: AttrLabelProxy "gObjectPath"-dBusObjectProxyGObjectPath = AttrLabelProxy--type instance SignalList DBusObjectProxy = DBusObjectProxySignalList-type DBusObjectProxySignalList = ('[ '("interfaceAdded", DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DBusObjectProxy::new--- method type : Constructor--- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusObjectProxy")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_proxy_new" g_dbus_object_proxy_new :: -    Ptr DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    CString ->                              -- object_path : TBasicType TUTF8-    IO (Ptr DBusObjectProxy)---dBusObjectProxyNew ::-    (MonadIO m, DBusConnectionK a) =>-    a                                       -- connection-    -> T.Text                               -- objectPath-    -> m DBusObjectProxy                    -- result-dBusObjectProxyNew connection objectPath = liftIO $ do-    let connection' = unsafeManagedPtrCastPtr connection-    objectPath' <- textToCString objectPath-    result <- g_dbus_object_proxy_new connection' objectPath'-    checkUnexpectedReturnNULL "g_dbus_object_proxy_new" result-    result' <- (wrapObject DBusObjectProxy) result-    touchManagedPtr connection-    freeMem objectPath'-    return result'---- method DBusObjectProxy::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusConnection")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_proxy_get_connection" g_dbus_object_proxy_get_connection :: -    Ptr DBusObjectProxy ->                  -- _obj : TInterface "Gio" "DBusObjectProxy"-    IO (Ptr DBusConnection)---dBusObjectProxyGetConnection ::-    (MonadIO m, DBusObjectProxyK a) =>-    a                                       -- _obj-    -> m DBusConnection                     -- result-dBusObjectProxyGetConnection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_object_proxy_get_connection _obj'-    checkUnexpectedReturnNULL "g_dbus_object_proxy_get_connection" result-    result' <- (newObject DBusConnection) result-    touchManagedPtr _obj-    return result'--data DBusObjectProxyGetConnectionMethodInfo-instance (signature ~ (m DBusConnection), MonadIO m, DBusObjectProxyK a) => MethodInfo DBusObjectProxyGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusObjectProxyGetConnection--
− GI/Gio/Objects/DBusObjectProxy.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gio.Objects.DBusObjectProxy where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusObjectProxy = DBusObjectProxy (ForeignPtr DBusObjectProxy)-instance GObject DBusObjectProxy where-class GObject o => DBusObjectProxyK o-instance (GObject o, IsDescendantOf DBusObjectProxy o) => DBusObjectProxyK o-data DBusObjectProxyGConnectionPropertyInfo-data DBusObjectProxyGObjectPathPropertyInfo-data DBusObjectProxyGetConnectionMethodInfo
− GI/Gio/Objects/DBusObjectSkeleton.hs 
@@ -1,420 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusObjectSkeleton-    ( ---- * Exported types-    DBusObjectSkeleton(..)                  ,-    DBusObjectSkeletonK                     ,-    toDBusObjectSkeleton                    ,-    noDBusObjectSkeleton                    ,--- -- * Methods--- ** dBusObjectSkeletonAddInterface-    DBusObjectSkeletonAddInterfaceMethodInfo,-    dBusObjectSkeletonAddInterface          ,----- ** dBusObjectSkeletonFlush-    DBusObjectSkeletonFlushMethodInfo       ,-    dBusObjectSkeletonFlush                 ,----- ** dBusObjectSkeletonNew-    dBusObjectSkeletonNew                   ,----- ** dBusObjectSkeletonRemoveInterface-    DBusObjectSkeletonRemoveInterfaceMethodInfo,-    dBusObjectSkeletonRemoveInterface       ,----- ** dBusObjectSkeletonRemoveInterfaceByName-    DBusObjectSkeletonRemoveInterfaceByNameMethodInfo,-    dBusObjectSkeletonRemoveInterfaceByName ,----- ** dBusObjectSkeletonSetObjectPath-    DBusObjectSkeletonSetObjectPathMethodInfo,-    dBusObjectSkeletonSetObjectPath         ,----- -- * Properties--- ** GObjectPath-    DBusObjectSkeletonGObjectPathPropertyInfo,-    clearDBusObjectSkeletonGObjectPath      ,-    constructDBusObjectSkeletonGObjectPath  ,-    dBusObjectSkeletonGObjectPath           ,-    getDBusObjectSkeletonGObjectPath        ,-    setDBusObjectSkeletonGObjectPath        ,----- -- * Signals--- ** AuthorizeMethod-    DBusObjectSkeletonAuthorizeMethodCallback,-    DBusObjectSkeletonAuthorizeMethodCallbackC,-    DBusObjectSkeletonAuthorizeMethodSignalInfo,-    afterDBusObjectSkeletonAuthorizeMethod  ,-    dBusObjectSkeletonAuthorizeMethodCallbackWrapper,-    dBusObjectSkeletonAuthorizeMethodClosure,-    mkDBusObjectSkeletonAuthorizeMethodCallback,-    noDBusObjectSkeletonAuthorizeMethodCallback,-    onDBusObjectSkeletonAuthorizeMethod     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DBusObjectSkeleton = DBusObjectSkeleton (ForeignPtr DBusObjectSkeleton)-foreign import ccall "g_dbus_object_skeleton_get_type"-    c_g_dbus_object_skeleton_get_type :: IO GType--type instance ParentTypes DBusObjectSkeleton = DBusObjectSkeletonParentTypes-type DBusObjectSkeletonParentTypes = '[GObject.Object, DBusObject]--instance GObject DBusObjectSkeleton where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_object_skeleton_get_type-    --class GObject o => DBusObjectSkeletonK o-instance (GObject o, IsDescendantOf DBusObjectSkeleton o) => DBusObjectSkeletonK o--toDBusObjectSkeleton :: DBusObjectSkeletonK o => o -> IO DBusObjectSkeleton-toDBusObjectSkeleton = unsafeCastTo DBusObjectSkeleton--noDBusObjectSkeleton :: Maybe DBusObjectSkeleton-noDBusObjectSkeleton = Nothing--type family ResolveDBusObjectSkeletonMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectSkeletonMethod "addInterface" o = DBusObjectSkeletonAddInterfaceMethodInfo-    ResolveDBusObjectSkeletonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusObjectSkeletonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectSkeletonMethod "flush" o = DBusObjectSkeletonFlushMethodInfo-    ResolveDBusObjectSkeletonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusObjectSkeletonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectSkeletonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusObjectSkeletonMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusObjectSkeletonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectSkeletonMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusObjectSkeletonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusObjectSkeletonMethod "removeInterface" o = DBusObjectSkeletonRemoveInterfaceMethodInfo-    ResolveDBusObjectSkeletonMethod "removeInterfaceByName" o = DBusObjectSkeletonRemoveInterfaceByNameMethodInfo-    ResolveDBusObjectSkeletonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusObjectSkeletonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusObjectSkeletonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusObjectSkeletonMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusObjectSkeletonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusObjectSkeletonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusObjectSkeletonMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusObjectSkeletonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusObjectSkeletonMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusObjectSkeletonMethod "getInterface" o = DBusObjectGetInterfaceMethodInfo-    ResolveDBusObjectSkeletonMethod "getInterfaces" o = DBusObjectGetInterfacesMethodInfo-    ResolveDBusObjectSkeletonMethod "getObjectPath" o = DBusObjectGetObjectPathMethodInfo-    ResolveDBusObjectSkeletonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusObjectSkeletonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusObjectSkeletonMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusObjectSkeletonMethod "setObjectPath" o = DBusObjectSkeletonSetObjectPathMethodInfo-    ResolveDBusObjectSkeletonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusObjectSkeletonMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectSkeletonMethod t DBusObjectSkeleton, MethodInfo info DBusObjectSkeleton p) => IsLabelProxy t (DBusObjectSkeleton -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusObjectSkeletonMethod t DBusObjectSkeleton, MethodInfo info DBusObjectSkeleton p) => IsLabel t (DBusObjectSkeleton -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal DBusObjectSkeleton::authorize-method-type DBusObjectSkeletonAuthorizeMethodCallback =-    DBusInterfaceSkeleton ->-    DBusMethodInvocation ->-    IO Bool--noDBusObjectSkeletonAuthorizeMethodCallback :: Maybe DBusObjectSkeletonAuthorizeMethodCallback-noDBusObjectSkeletonAuthorizeMethodCallback = Nothing--type DBusObjectSkeletonAuthorizeMethodCallbackC =-    Ptr () ->                               -- object-    Ptr DBusInterfaceSkeleton ->-    Ptr DBusMethodInvocation ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkDBusObjectSkeletonAuthorizeMethodCallback :: DBusObjectSkeletonAuthorizeMethodCallbackC -> IO (FunPtr DBusObjectSkeletonAuthorizeMethodCallbackC)--dBusObjectSkeletonAuthorizeMethodClosure :: DBusObjectSkeletonAuthorizeMethodCallback -> IO Closure-dBusObjectSkeletonAuthorizeMethodClosure cb = newCClosure =<< mkDBusObjectSkeletonAuthorizeMethodCallback wrapped-    where wrapped = dBusObjectSkeletonAuthorizeMethodCallbackWrapper cb--dBusObjectSkeletonAuthorizeMethodCallbackWrapper ::-    DBusObjectSkeletonAuthorizeMethodCallback ->-    Ptr () ->-    Ptr DBusInterfaceSkeleton ->-    Ptr DBusMethodInvocation ->-    Ptr () ->-    IO CInt-dBusObjectSkeletonAuthorizeMethodCallbackWrapper _cb _ interface invocation _ = do-    interface' <- (newObject DBusInterfaceSkeleton) interface-    invocation' <- (newObject DBusMethodInvocation) invocation-    result <- _cb  interface' invocation'-    let result' = (fromIntegral . fromEnum) result-    return result'--onDBusObjectSkeletonAuthorizeMethod :: (GObject a, MonadIO m) => a -> DBusObjectSkeletonAuthorizeMethodCallback -> m SignalHandlerId-onDBusObjectSkeletonAuthorizeMethod obj cb = liftIO $ connectDBusObjectSkeletonAuthorizeMethod obj cb SignalConnectBefore-afterDBusObjectSkeletonAuthorizeMethod :: (GObject a, MonadIO m) => a -> DBusObjectSkeletonAuthorizeMethodCallback -> m SignalHandlerId-afterDBusObjectSkeletonAuthorizeMethod obj cb = connectDBusObjectSkeletonAuthorizeMethod obj cb SignalConnectAfter--connectDBusObjectSkeletonAuthorizeMethod :: (GObject a, MonadIO m) =>-                                            a -> DBusObjectSkeletonAuthorizeMethodCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusObjectSkeletonAuthorizeMethod obj cb after = liftIO $ do-    cb' <- mkDBusObjectSkeletonAuthorizeMethodCallback (dBusObjectSkeletonAuthorizeMethodCallbackWrapper cb)-    connectSignalFunPtr obj "authorize-method" cb' after---- VVV Prop "g-object-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getDBusObjectSkeletonGObjectPath :: (MonadIO m, DBusObjectSkeletonK o) => o -> m (Maybe T.Text)-getDBusObjectSkeletonGObjectPath obj = liftIO $ getObjectPropertyString obj "g-object-path"--setDBusObjectSkeletonGObjectPath :: (MonadIO m, DBusObjectSkeletonK o) => o -> T.Text -> m ()-setDBusObjectSkeletonGObjectPath obj val = liftIO $ setObjectPropertyString obj "g-object-path" (Just val)--constructDBusObjectSkeletonGObjectPath :: T.Text -> IO ([Char], GValue)-constructDBusObjectSkeletonGObjectPath val = constructObjectPropertyString "g-object-path" (Just val)--clearDBusObjectSkeletonGObjectPath :: (MonadIO m, DBusObjectSkeletonK o) => o -> m ()-clearDBusObjectSkeletonGObjectPath obj = liftIO $ setObjectPropertyString obj "g-object-path" (Nothing :: Maybe T.Text)--data DBusObjectSkeletonGObjectPathPropertyInfo-instance AttrInfo DBusObjectSkeletonGObjectPathPropertyInfo where-    type AttrAllowedOps DBusObjectSkeletonGObjectPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectSkeletonGObjectPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusObjectSkeletonGObjectPathPropertyInfo = DBusObjectSkeletonK-    type AttrGetType DBusObjectSkeletonGObjectPathPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusObjectSkeletonGObjectPathPropertyInfo = "g-object-path"-    attrGet _ = getDBusObjectSkeletonGObjectPath-    attrSet _ = setDBusObjectSkeletonGObjectPath-    attrConstruct _ = constructDBusObjectSkeletonGObjectPath-    attrClear _ = clearDBusObjectSkeletonGObjectPath--type instance AttributeList DBusObjectSkeleton = DBusObjectSkeletonAttributeList-type DBusObjectSkeletonAttributeList = ('[ '("gObjectPath", DBusObjectSkeletonGObjectPathPropertyInfo)] :: [(Symbol, *)])--dBusObjectSkeletonGObjectPath :: AttrLabelProxy "gObjectPath"-dBusObjectSkeletonGObjectPath = AttrLabelProxy--data DBusObjectSkeletonAuthorizeMethodSignalInfo-instance SignalInfo DBusObjectSkeletonAuthorizeMethodSignalInfo where-    type HaskellCallbackType DBusObjectSkeletonAuthorizeMethodSignalInfo = DBusObjectSkeletonAuthorizeMethodCallback-    connectSignal _ = connectDBusObjectSkeletonAuthorizeMethod--type instance SignalList DBusObjectSkeleton = DBusObjectSkeletonSignalList-type DBusObjectSkeletonSignalList = ('[ '("authorizeMethod", DBusObjectSkeletonAuthorizeMethodSignalInfo), '("interfaceAdded", DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DBusObjectSkeleton::new--- method type : Constructor--- Args : [Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---dBusObjectSkeletonNew ::-    (MonadIO m) =>-    T.Text                                  -- objectPath-    -> m DBusObjectSkeleton                 -- result-dBusObjectSkeletonNew objectPath = liftIO $ do-    objectPath' <- textToCString objectPath-    result <- g_dbus_object_skeleton_new objectPath'-    checkUnexpectedReturnNULL "g_dbus_object_skeleton_new" result-    result' <- (wrapObject DBusObjectSkeleton) result-    freeMem objectPath'-    return result'---- method DBusObjectSkeleton::add_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "DBusObjectSkeleton"-    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface "Gio" "DBusInterfaceSkeleton"-    IO ()---dBusObjectSkeletonAddInterface ::-    (MonadIO m, DBusObjectSkeletonK a, DBusInterfaceSkeletonK b) =>-    a                                       -- _obj-    -> b                                    -- interface_-    -> m ()                                 -- result-dBusObjectSkeletonAddInterface _obj interface_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let interface_' = unsafeManagedPtrCastPtr interface_-    g_dbus_object_skeleton_add_interface _obj' interface_'-    touchManagedPtr _obj-    touchManagedPtr interface_-    return ()--data DBusObjectSkeletonAddInterfaceMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DBusObjectSkeletonK a, DBusInterfaceSkeletonK b) => MethodInfo DBusObjectSkeletonAddInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusObjectSkeletonAddInterface---- method DBusObjectSkeleton::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "DBusObjectSkeleton"-    IO ()---dBusObjectSkeletonFlush ::-    (MonadIO m, DBusObjectSkeletonK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-dBusObjectSkeletonFlush _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_object_skeleton_flush _obj'-    touchManagedPtr _obj-    return ()--data DBusObjectSkeletonFlushMethodInfo-instance (signature ~ (m ()), MonadIO m, DBusObjectSkeletonK a) => MethodInfo DBusObjectSkeletonFlushMethodInfo a signature where-    overloadedMethod _ = dBusObjectSkeletonFlush---- method DBusObjectSkeleton::remove_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "DBusObjectSkeleton"-    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface "Gio" "DBusInterfaceSkeleton"-    IO ()---dBusObjectSkeletonRemoveInterface ::-    (MonadIO m, DBusObjectSkeletonK a, DBusInterfaceSkeletonK b) =>-    a                                       -- _obj-    -> b                                    -- interface_-    -> m ()                                 -- result-dBusObjectSkeletonRemoveInterface _obj interface_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let interface_' = unsafeManagedPtrCastPtr interface_-    g_dbus_object_skeleton_remove_interface _obj' interface_'-    touchManagedPtr _obj-    touchManagedPtr interface_-    return ()--data DBusObjectSkeletonRemoveInterfaceMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DBusObjectSkeletonK a, DBusInterfaceSkeletonK b) => MethodInfo DBusObjectSkeletonRemoveInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusObjectSkeletonRemoveInterface---- method DBusObjectSkeleton::remove_interface_by_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "DBusObjectSkeleton"-    CString ->                              -- interface_name : TBasicType TUTF8-    IO ()---dBusObjectSkeletonRemoveInterfaceByName ::-    (MonadIO m, DBusObjectSkeletonK a) =>-    a                                       -- _obj-    -> T.Text                               -- interfaceName-    -> m ()                                 -- result-dBusObjectSkeletonRemoveInterfaceByName _obj interfaceName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    interfaceName' <- textToCString interfaceName-    g_dbus_object_skeleton_remove_interface_by_name _obj' interfaceName'-    touchManagedPtr _obj-    freeMem interfaceName'-    return ()--data DBusObjectSkeletonRemoveInterfaceByNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DBusObjectSkeletonK a) => MethodInfo DBusObjectSkeletonRemoveInterfaceByNameMethodInfo a signature where-    overloadedMethod _ = dBusObjectSkeletonRemoveInterfaceByName---- method DBusObjectSkeleton::set_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "DBusObjectSkeleton"-    CString ->                              -- object_path : TBasicType TUTF8-    IO ()---dBusObjectSkeletonSetObjectPath ::-    (MonadIO m, DBusObjectSkeletonK a) =>-    a                                       -- _obj-    -> T.Text                               -- objectPath-    -> m ()                                 -- result-dBusObjectSkeletonSetObjectPath _obj objectPath = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    objectPath' <- textToCString objectPath-    g_dbus_object_skeleton_set_object_path _obj' objectPath'-    touchManagedPtr _obj-    freeMem objectPath'-    return ()--data DBusObjectSkeletonSetObjectPathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DBusObjectSkeletonK a) => MethodInfo DBusObjectSkeletonSetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusObjectSkeletonSetObjectPath--
− GI/Gio/Objects/DBusObjectSkeleton.hs-boot 
@@ -1,20 +0,0 @@-module GI.Gio.Objects.DBusObjectSkeleton where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusObjectSkeleton = DBusObjectSkeleton (ForeignPtr DBusObjectSkeleton)-instance GObject DBusObjectSkeleton where-class GObject o => DBusObjectSkeletonK o-instance (GObject o, IsDescendantOf DBusObjectSkeleton o) => DBusObjectSkeletonK o-data DBusObjectSkeletonGObjectPathPropertyInfo-data DBusObjectSkeletonAuthorizeMethodSignalInfo-data DBusObjectSkeletonAddInterfaceMethodInfo-data DBusObjectSkeletonFlushMethodInfo-data DBusObjectSkeletonRemoveInterfaceMethodInfo-data DBusObjectSkeletonRemoveInterfaceByNameMethodInfo-data DBusObjectSkeletonSetObjectPathMethodInfo
− GI/Gio/Objects/DBusProxy.hs 
@@ -1,1742 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusProxy-    ( ---- * Exported types-    DBusProxy(..)                           ,-    DBusProxyK                              ,-    toDBusProxy                             ,-    noDBusProxy                             ,--- -- * Methods--- ** dBusProxyCall-    DBusProxyCallMethodInfo                 ,-    dBusProxyCall                           ,----- ** dBusProxyCallFinish-    DBusProxyCallFinishMethodInfo           ,-    dBusProxyCallFinish                     ,----- ** dBusProxyCallSync-    DBusProxyCallSyncMethodInfo             ,-    dBusProxyCallSync                       ,----- ** dBusProxyCallWithUnixFdList-    DBusProxyCallWithUnixFdListMethodInfo   ,-    dBusProxyCallWithUnixFdList             ,----- ** dBusProxyCallWithUnixFdListFinish-    DBusProxyCallWithUnixFdListFinishMethodInfo,-    dBusProxyCallWithUnixFdListFinish       ,----- ** dBusProxyCallWithUnixFdListSync-    DBusProxyCallWithUnixFdListSyncMethodInfo,-    dBusProxyCallWithUnixFdListSync         ,----- ** dBusProxyGetCachedProperty-    DBusProxyGetCachedPropertyMethodInfo    ,-    dBusProxyGetCachedProperty              ,----- ** dBusProxyGetCachedPropertyNames-    DBusProxyGetCachedPropertyNamesMethodInfo,-    dBusProxyGetCachedPropertyNames         ,----- ** dBusProxyGetConnection-    DBusProxyGetConnectionMethodInfo        ,-    dBusProxyGetConnection                  ,----- ** dBusProxyGetDefaultTimeout-    DBusProxyGetDefaultTimeoutMethodInfo    ,-    dBusProxyGetDefaultTimeout              ,----- ** dBusProxyGetFlags-    DBusProxyGetFlagsMethodInfo             ,-    dBusProxyGetFlags                       ,----- ** dBusProxyGetInterfaceInfo-    DBusProxyGetInterfaceInfoMethodInfo     ,-    dBusProxyGetInterfaceInfo               ,----- ** dBusProxyGetInterfaceName-    DBusProxyGetInterfaceNameMethodInfo     ,-    dBusProxyGetInterfaceName               ,----- ** dBusProxyGetName-    DBusProxyGetNameMethodInfo              ,-    dBusProxyGetName                        ,----- ** dBusProxyGetNameOwner-    DBusProxyGetNameOwnerMethodInfo         ,-    dBusProxyGetNameOwner                   ,----- ** dBusProxyGetObjectPath-    DBusProxyGetObjectPathMethodInfo        ,-    dBusProxyGetObjectPath                  ,----- ** dBusProxyNew-    dBusProxyNew                            ,----- ** dBusProxyNewFinish-    dBusProxyNewFinish                      ,----- ** dBusProxyNewForBus-    dBusProxyNewForBus                      ,----- ** dBusProxyNewForBusFinish-    dBusProxyNewForBusFinish                ,----- ** dBusProxyNewForBusSync-    dBusProxyNewForBusSync                  ,----- ** dBusProxyNewSync-    dBusProxyNewSync                        ,----- ** dBusProxySetCachedProperty-    DBusProxySetCachedPropertyMethodInfo    ,-    dBusProxySetCachedProperty              ,----- ** dBusProxySetDefaultTimeout-    DBusProxySetDefaultTimeoutMethodInfo    ,-    dBusProxySetDefaultTimeout              ,----- ** dBusProxySetInterfaceInfo-    DBusProxySetInterfaceInfoMethodInfo     ,-    dBusProxySetInterfaceInfo               ,----- -- * Properties--- ** GBusType-    DBusProxyGBusTypePropertyInfo           ,-    constructDBusProxyGBusType              ,-    dBusProxyGBusType                       ,----- ** GConnection-    DBusProxyGConnectionPropertyInfo        ,-    constructDBusProxyGConnection           ,-    dBusProxyGConnection                    ,-    getDBusProxyGConnection                 ,----- ** GDefaultTimeout-    DBusProxyGDefaultTimeoutPropertyInfo    ,-    constructDBusProxyGDefaultTimeout       ,-    dBusProxyGDefaultTimeout                ,-    getDBusProxyGDefaultTimeout             ,-    setDBusProxyGDefaultTimeout             ,----- ** GFlags-    DBusProxyGFlagsPropertyInfo             ,-    constructDBusProxyGFlags                ,-    dBusProxyGFlags                         ,-    getDBusProxyGFlags                      ,----- ** GInterfaceInfo-    DBusProxyGInterfaceInfoPropertyInfo     ,-    clearDBusProxyGInterfaceInfo            ,-    constructDBusProxyGInterfaceInfo        ,-    dBusProxyGInterfaceInfo                 ,-    getDBusProxyGInterfaceInfo              ,-    setDBusProxyGInterfaceInfo              ,----- ** GInterfaceName-    DBusProxyGInterfaceNamePropertyInfo     ,-    constructDBusProxyGInterfaceName        ,-    dBusProxyGInterfaceName                 ,-    getDBusProxyGInterfaceName              ,----- ** GName-    DBusProxyGNamePropertyInfo              ,-    constructDBusProxyGName                 ,-    dBusProxyGName                          ,-    getDBusProxyGName                       ,----- ** GNameOwner-    DBusProxyGNameOwnerPropertyInfo         ,-    dBusProxyGNameOwner                     ,-    getDBusProxyGNameOwner                  ,----- ** GObjectPath-    DBusProxyGObjectPathPropertyInfo        ,-    constructDBusProxyGObjectPath           ,-    dBusProxyGObjectPath                    ,-    getDBusProxyGObjectPath                 ,----- -- * Signals--- ** GPropertiesChanged-    DBusProxyGPropertiesChangedCallback     ,-    DBusProxyGPropertiesChangedCallbackC    ,-    DBusProxyGPropertiesChangedSignalInfo   ,-    afterDBusProxyGPropertiesChanged        ,-    dBusProxyGPropertiesChangedCallbackWrapper,-    dBusProxyGPropertiesChangedClosure      ,-    mkDBusProxyGPropertiesChangedCallback   ,-    noDBusProxyGPropertiesChangedCallback   ,-    onDBusProxyGPropertiesChanged           ,----- ** GSignal-    DBusProxyGSignalCallback                ,-    DBusProxyGSignalCallbackC               ,-    DBusProxyGSignalSignalInfo              ,-    afterDBusProxyGSignal                   ,-    dBusProxyGSignalCallbackWrapper         ,-    dBusProxyGSignalClosure                 ,-    mkDBusProxyGSignalCallback              ,-    noDBusProxyGSignalCallback              ,-    onDBusProxyGSignal                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DBusProxy = DBusProxy (ForeignPtr DBusProxy)-foreign import ccall "g_dbus_proxy_get_type"-    c_g_dbus_proxy_get_type :: IO GType--type instance ParentTypes DBusProxy = DBusProxyParentTypes-type DBusProxyParentTypes = '[GObject.Object, AsyncInitable, DBusInterface, Initable]--instance GObject DBusProxy where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_proxy_get_type-    --class GObject o => DBusProxyK o-instance (GObject o, IsDescendantOf DBusProxy o) => DBusProxyK o--toDBusProxy :: DBusProxyK o => o -> IO DBusProxy-toDBusProxy = unsafeCastTo DBusProxy--noDBusProxy :: Maybe DBusProxy-noDBusProxy = Nothing--type family ResolveDBusProxyMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusProxyMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusProxyMethod "bindPropertyFull" o = GObject.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.ObjectForceFloatingMethodInfo-    ResolveDBusProxyMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusProxyMethod "init" o = InitableInitMethodInfo-    ResolveDBusProxyMethod "initAsync" o = AsyncInitableInitAsyncMethodInfo-    ResolveDBusProxyMethod "initFinish" o = AsyncInitableInitFinishMethodInfo-    ResolveDBusProxyMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusProxyMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusProxyMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusProxyMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusProxyMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusProxyMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusProxyMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusProxyMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusProxyMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusProxyMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusProxyMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusProxyMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusProxyMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusProxyMethod "getCachedProperty" o = DBusProxyGetCachedPropertyMethodInfo-    ResolveDBusProxyMethod "getCachedPropertyNames" o = DBusProxyGetCachedPropertyNamesMethodInfo-    ResolveDBusProxyMethod "getConnection" o = DBusProxyGetConnectionMethodInfo-    ResolveDBusProxyMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusProxyMethod "getDefaultTimeout" o = DBusProxyGetDefaultTimeoutMethodInfo-    ResolveDBusProxyMethod "getFlags" o = DBusProxyGetFlagsMethodInfo-    ResolveDBusProxyMethod "getInfo" o = DBusInterfaceGetInfoMethodInfo-    ResolveDBusProxyMethod "getInterfaceInfo" o = DBusProxyGetInterfaceInfoMethodInfo-    ResolveDBusProxyMethod "getInterfaceName" o = DBusProxyGetInterfaceNameMethodInfo-    ResolveDBusProxyMethod "getName" o = DBusProxyGetNameMethodInfo-    ResolveDBusProxyMethod "getNameOwner" o = DBusProxyGetNameOwnerMethodInfo-    ResolveDBusProxyMethod "getObject" o = DBusInterfaceGetObjectMethodInfo-    ResolveDBusProxyMethod "getObjectPath" o = DBusProxyGetObjectPathMethodInfo-    ResolveDBusProxyMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusProxyMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusProxyMethod "setCachedProperty" o = DBusProxySetCachedPropertyMethodInfo-    ResolveDBusProxyMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusProxyMethod "setDefaultTimeout" o = DBusProxySetDefaultTimeoutMethodInfo-    ResolveDBusProxyMethod "setInterfaceInfo" o = DBusProxySetInterfaceInfoMethodInfo-    ResolveDBusProxyMethod "setObject" o = DBusInterfaceSetObjectMethodInfo-    ResolveDBusProxyMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusProxyMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusProxyMethod t DBusProxy, MethodInfo info DBusProxy p) => IsLabelProxy t (DBusProxy -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusProxyMethod t DBusProxy, MethodInfo info DBusProxy p) => IsLabel t (DBusProxy -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal DBusProxy::g-properties-changed-type DBusProxyGPropertiesChangedCallback =-    GVariant ->-    [T.Text] ->-    IO ()--noDBusProxyGPropertiesChangedCallback :: Maybe DBusProxyGPropertiesChangedCallback-noDBusProxyGPropertiesChangedCallback = Nothing--type DBusProxyGPropertiesChangedCallbackC =-    Ptr () ->                               -- object-    Ptr GVariant ->-    Ptr CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDBusProxyGPropertiesChangedCallback :: DBusProxyGPropertiesChangedCallbackC -> IO (FunPtr DBusProxyGPropertiesChangedCallbackC)--dBusProxyGPropertiesChangedClosure :: DBusProxyGPropertiesChangedCallback -> IO Closure-dBusProxyGPropertiesChangedClosure cb = newCClosure =<< mkDBusProxyGPropertiesChangedCallback wrapped-    where wrapped = dBusProxyGPropertiesChangedCallbackWrapper cb--dBusProxyGPropertiesChangedCallbackWrapper ::-    DBusProxyGPropertiesChangedCallback ->-    Ptr () ->-    Ptr GVariant ->-    Ptr CString ->-    Ptr () ->-    IO ()-dBusProxyGPropertiesChangedCallbackWrapper _cb _ changedProperties invalidatedProperties _ = do-    changedProperties' <- newGVariantFromPtr changedProperties-    invalidatedProperties' <- unpackZeroTerminatedUTF8CArray invalidatedProperties-    _cb  changedProperties' invalidatedProperties'--onDBusProxyGPropertiesChanged :: (GObject a, MonadIO m) => a -> DBusProxyGPropertiesChangedCallback -> m SignalHandlerId-onDBusProxyGPropertiesChanged obj cb = liftIO $ connectDBusProxyGPropertiesChanged obj cb SignalConnectBefore-afterDBusProxyGPropertiesChanged :: (GObject a, MonadIO m) => a -> DBusProxyGPropertiesChangedCallback -> m SignalHandlerId-afterDBusProxyGPropertiesChanged obj cb = connectDBusProxyGPropertiesChanged obj cb SignalConnectAfter--connectDBusProxyGPropertiesChanged :: (GObject a, MonadIO m) =>-                                      a -> DBusProxyGPropertiesChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusProxyGPropertiesChanged obj cb after = liftIO $ do-    cb' <- mkDBusProxyGPropertiesChangedCallback (dBusProxyGPropertiesChangedCallbackWrapper cb)-    connectSignalFunPtr obj "g-properties-changed" cb' after---- signal DBusProxy::g-signal-type DBusProxyGSignalCallback =-    Maybe T.Text ->-    T.Text ->-    GVariant ->-    IO ()--noDBusProxyGSignalCallback :: Maybe DBusProxyGSignalCallback-noDBusProxyGSignalCallback = Nothing--type DBusProxyGSignalCallbackC =-    Ptr () ->                               -- object-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDBusProxyGSignalCallback :: DBusProxyGSignalCallbackC -> IO (FunPtr DBusProxyGSignalCallbackC)--dBusProxyGSignalClosure :: DBusProxyGSignalCallback -> IO Closure-dBusProxyGSignalClosure cb = newCClosure =<< mkDBusProxyGSignalCallback wrapped-    where wrapped = dBusProxyGSignalCallbackWrapper cb--dBusProxyGSignalCallbackWrapper ::-    DBusProxyGSignalCallback ->-    Ptr () ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr () ->-    IO ()-dBusProxyGSignalCallbackWrapper _cb _ senderName signalName parameters _ = do-    maybeSenderName <--        if senderName == nullPtr-        then return Nothing-        else do-            senderName' <- cstringToText senderName-            return $ Just senderName'-    signalName' <- cstringToText signalName-    parameters' <- newGVariantFromPtr parameters-    _cb  maybeSenderName signalName' parameters'--onDBusProxyGSignal :: (GObject a, MonadIO m) => a -> DBusProxyGSignalCallback -> m SignalHandlerId-onDBusProxyGSignal obj cb = liftIO $ connectDBusProxyGSignal obj cb SignalConnectBefore-afterDBusProxyGSignal :: (GObject a, MonadIO m) => a -> DBusProxyGSignalCallback -> m SignalHandlerId-afterDBusProxyGSignal obj cb = connectDBusProxyGSignal obj cb SignalConnectAfter--connectDBusProxyGSignal :: (GObject a, MonadIO m) =>-                           a -> DBusProxyGSignalCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusProxyGSignal obj cb after = liftIO $ do-    cb' <- mkDBusProxyGSignalCallback (dBusProxyGSignalCallbackWrapper cb)-    connectSignalFunPtr obj "g-signal" cb' after---- VVV Prop "g-bus-type"-   -- Type: TInterface "Gio" "BusType"-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructDBusProxyGBusType :: BusType -> IO ([Char], GValue)-constructDBusProxyGBusType val = constructObjectPropertyEnum "g-bus-type" val--data DBusProxyGBusTypePropertyInfo-instance AttrInfo DBusProxyGBusTypePropertyInfo where-    type AttrAllowedOps DBusProxyGBusTypePropertyInfo = '[ 'AttrConstruct]-    type AttrSetTypeConstraint DBusProxyGBusTypePropertyInfo = (~) BusType-    type AttrBaseTypeConstraint DBusProxyGBusTypePropertyInfo = DBusProxyK-    type AttrGetType DBusProxyGBusTypePropertyInfo = ()-    type AttrLabel DBusProxyGBusTypePropertyInfo = "g-bus-type"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGBusType-    attrClear _ = undefined---- VVV Prop "g-connection"-   -- Type: TInterface "Gio" "DBusConnection"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusProxyGConnection :: (MonadIO m, DBusProxyK o) => o -> m (Maybe DBusConnection)-getDBusProxyGConnection obj = liftIO $ getObjectPropertyObject obj "g-connection" DBusConnection--constructDBusProxyGConnection :: (DBusConnectionK a) => a -> IO ([Char], GValue)-constructDBusProxyGConnection val = constructObjectPropertyObject "g-connection" (Just val)--data DBusProxyGConnectionPropertyInfo-instance AttrInfo DBusProxyGConnectionPropertyInfo where-    type AttrAllowedOps DBusProxyGConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGConnectionPropertyInfo = DBusConnectionK-    type AttrBaseTypeConstraint DBusProxyGConnectionPropertyInfo = DBusProxyK-    type AttrGetType DBusProxyGConnectionPropertyInfo = (Maybe DBusConnection)-    type AttrLabel DBusProxyGConnectionPropertyInfo = "g-connection"-    attrGet _ = getDBusProxyGConnection-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGConnection-    attrClear _ = undefined---- VVV Prop "g-default-timeout"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getDBusProxyGDefaultTimeout :: (MonadIO m, DBusProxyK o) => o -> m Int32-getDBusProxyGDefaultTimeout obj = liftIO $ getObjectPropertyInt32 obj "g-default-timeout"--setDBusProxyGDefaultTimeout :: (MonadIO m, DBusProxyK o) => o -> Int32 -> m ()-setDBusProxyGDefaultTimeout obj val = liftIO $ setObjectPropertyInt32 obj "g-default-timeout" val--constructDBusProxyGDefaultTimeout :: Int32 -> IO ([Char], GValue)-constructDBusProxyGDefaultTimeout val = constructObjectPropertyInt32 "g-default-timeout" val--data DBusProxyGDefaultTimeoutPropertyInfo-instance AttrInfo DBusProxyGDefaultTimeoutPropertyInfo where-    type AttrAllowedOps DBusProxyGDefaultTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusProxyGDefaultTimeoutPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint DBusProxyGDefaultTimeoutPropertyInfo = DBusProxyK-    type AttrGetType DBusProxyGDefaultTimeoutPropertyInfo = Int32-    type AttrLabel DBusProxyGDefaultTimeoutPropertyInfo = "g-default-timeout"-    attrGet _ = getDBusProxyGDefaultTimeout-    attrSet _ = setDBusProxyGDefaultTimeout-    attrConstruct _ = constructDBusProxyGDefaultTimeout-    attrClear _ = undefined---- VVV Prop "g-flags"-   -- Type: TInterface "Gio" "DBusProxyFlags"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusProxyGFlags :: (MonadIO m, DBusProxyK o) => o -> m [DBusProxyFlags]-getDBusProxyGFlags obj = liftIO $ getObjectPropertyFlags obj "g-flags"--constructDBusProxyGFlags :: [DBusProxyFlags] -> IO ([Char], GValue)-constructDBusProxyGFlags val = constructObjectPropertyFlags "g-flags" val--data DBusProxyGFlagsPropertyInfo-instance AttrInfo DBusProxyGFlagsPropertyInfo where-    type AttrAllowedOps DBusProxyGFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusProxyGFlagsPropertyInfo = (~) [DBusProxyFlags]-    type AttrBaseTypeConstraint DBusProxyGFlagsPropertyInfo = DBusProxyK-    type AttrGetType DBusProxyGFlagsPropertyInfo = [DBusProxyFlags]-    type AttrLabel DBusProxyGFlagsPropertyInfo = "g-flags"-    attrGet _ = getDBusProxyGFlags-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGFlags-    attrClear _ = undefined---- VVV Prop "g-interface-info"-   -- Type: TInterface "Gio" "DBusInterfaceInfo"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getDBusProxyGInterfaceInfo :: (MonadIO m, DBusProxyK o) => o -> m (Maybe DBusInterfaceInfo)-getDBusProxyGInterfaceInfo obj = liftIO $ getObjectPropertyBoxed obj "g-interface-info" DBusInterfaceInfo--setDBusProxyGInterfaceInfo :: (MonadIO m, DBusProxyK o) => o -> DBusInterfaceInfo -> m ()-setDBusProxyGInterfaceInfo obj val = liftIO $ setObjectPropertyBoxed obj "g-interface-info" (Just val)--constructDBusProxyGInterfaceInfo :: DBusInterfaceInfo -> IO ([Char], GValue)-constructDBusProxyGInterfaceInfo val = constructObjectPropertyBoxed "g-interface-info" (Just val)--clearDBusProxyGInterfaceInfo :: (MonadIO m, DBusProxyK o) => o -> m ()-clearDBusProxyGInterfaceInfo obj = liftIO $ setObjectPropertyBoxed obj "g-interface-info" (Nothing :: Maybe DBusInterfaceInfo)--data DBusProxyGInterfaceInfoPropertyInfo-instance AttrInfo DBusProxyGInterfaceInfoPropertyInfo where-    type AttrAllowedOps DBusProxyGInterfaceInfoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGInterfaceInfoPropertyInfo = (~) DBusInterfaceInfo-    type AttrBaseTypeConstraint DBusProxyGInterfaceInfoPropertyInfo = DBusProxyK-    type AttrGetType DBusProxyGInterfaceInfoPropertyInfo = (Maybe DBusInterfaceInfo)-    type AttrLabel DBusProxyGInterfaceInfoPropertyInfo = "g-interface-info"-    attrGet _ = getDBusProxyGInterfaceInfo-    attrSet _ = setDBusProxyGInterfaceInfo-    attrConstruct _ = constructDBusProxyGInterfaceInfo-    attrClear _ = clearDBusProxyGInterfaceInfo---- VVV Prop "g-interface-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusProxyGInterfaceName :: (MonadIO m, DBusProxyK o) => o -> m (Maybe T.Text)-getDBusProxyGInterfaceName obj = liftIO $ getObjectPropertyString obj "g-interface-name"--constructDBusProxyGInterfaceName :: T.Text -> IO ([Char], GValue)-constructDBusProxyGInterfaceName val = constructObjectPropertyString "g-interface-name" (Just val)--data DBusProxyGInterfaceNamePropertyInfo-instance AttrInfo DBusProxyGInterfaceNamePropertyInfo where-    type AttrAllowedOps DBusProxyGInterfaceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGInterfaceNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusProxyGInterfaceNamePropertyInfo = DBusProxyK-    type AttrGetType DBusProxyGInterfaceNamePropertyInfo = (Maybe T.Text)-    type AttrLabel DBusProxyGInterfaceNamePropertyInfo = "g-interface-name"-    attrGet _ = getDBusProxyGInterfaceName-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGInterfaceName-    attrClear _ = undefined---- VVV Prop "g-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusProxyGName :: (MonadIO m, DBusProxyK o) => o -> m (Maybe T.Text)-getDBusProxyGName obj = liftIO $ getObjectPropertyString obj "g-name"--constructDBusProxyGName :: T.Text -> IO ([Char], GValue)-constructDBusProxyGName val = constructObjectPropertyString "g-name" (Just val)--data DBusProxyGNamePropertyInfo-instance AttrInfo DBusProxyGNamePropertyInfo where-    type AttrAllowedOps DBusProxyGNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusProxyGNamePropertyInfo = DBusProxyK-    type AttrGetType DBusProxyGNamePropertyInfo = (Maybe T.Text)-    type AttrLabel DBusProxyGNamePropertyInfo = "g-name"-    attrGet _ = getDBusProxyGName-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGName-    attrClear _ = undefined---- VVV Prop "g-name-owner"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDBusProxyGNameOwner :: (MonadIO m, DBusProxyK o) => o -> m (Maybe T.Text)-getDBusProxyGNameOwner obj = liftIO $ getObjectPropertyString obj "g-name-owner"--data DBusProxyGNameOwnerPropertyInfo-instance AttrInfo DBusProxyGNameOwnerPropertyInfo where-    type AttrAllowedOps DBusProxyGNameOwnerPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGNameOwnerPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusProxyGNameOwnerPropertyInfo = DBusProxyK-    type AttrGetType DBusProxyGNameOwnerPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusProxyGNameOwnerPropertyInfo = "g-name-owner"-    attrGet _ = getDBusProxyGNameOwner-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "g-object-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusProxyGObjectPath :: (MonadIO m, DBusProxyK o) => o -> m (Maybe T.Text)-getDBusProxyGObjectPath obj = liftIO $ getObjectPropertyString obj "g-object-path"--constructDBusProxyGObjectPath :: T.Text -> IO ([Char], GValue)-constructDBusProxyGObjectPath val = constructObjectPropertyString "g-object-path" (Just val)--data DBusProxyGObjectPathPropertyInfo-instance AttrInfo DBusProxyGObjectPathPropertyInfo where-    type AttrAllowedOps DBusProxyGObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGObjectPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusProxyGObjectPathPropertyInfo = DBusProxyK-    type AttrGetType DBusProxyGObjectPathPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusProxyGObjectPathPropertyInfo = "g-object-path"-    attrGet _ = getDBusProxyGObjectPath-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGObjectPath-    attrClear _ = undefined--type instance AttributeList DBusProxy = DBusProxyAttributeList-type DBusProxyAttributeList = ('[ '("gBusType", DBusProxyGBusTypePropertyInfo), '("gConnection", DBusProxyGConnectionPropertyInfo), '("gDefaultTimeout", DBusProxyGDefaultTimeoutPropertyInfo), '("gFlags", DBusProxyGFlagsPropertyInfo), '("gInterfaceInfo", DBusProxyGInterfaceInfoPropertyInfo), '("gInterfaceName", DBusProxyGInterfaceNamePropertyInfo), '("gName", DBusProxyGNamePropertyInfo), '("gNameOwner", DBusProxyGNameOwnerPropertyInfo), '("gObjectPath", DBusProxyGObjectPathPropertyInfo)] :: [(Symbol, *)])--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--data DBusProxyGPropertiesChangedSignalInfo-instance SignalInfo DBusProxyGPropertiesChangedSignalInfo where-    type HaskellCallbackType DBusProxyGPropertiesChangedSignalInfo = DBusProxyGPropertiesChangedCallback-    connectSignal _ = connectDBusProxyGPropertiesChanged--data DBusProxyGSignalSignalInfo-instance SignalInfo DBusProxyGSignalSignalInfo where-    type HaskellCallbackType DBusProxyGSignalSignalInfo = DBusProxyGSignalCallback-    connectSignal _ = connectDBusProxyGSignal--type instance SignalList DBusProxy = DBusProxySignalList-type DBusProxySignalList = ('[ '("gPropertiesChanged", DBusProxyGPropertiesChangedSignalInfo), '("gSignal", DBusProxyGSignalSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DBusProxy::new_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusProxy")--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_new_finish" g_dbus_proxy_new_finish :: -    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusProxy)---dBusProxyNewFinish ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- res-    -> m DBusProxy                          -- result-dBusProxyNewFinish res = liftIO $ do-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_proxy_new_finish res'-        checkUnexpectedReturnNULL "g_dbus_proxy_new_finish" result-        result' <- (wrapObject DBusProxy) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )---- method DBusProxy::new_for_bus_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusProxy")--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_new_for_bus_finish" g_dbus_proxy_new_for_bus_finish :: -    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusProxy)---dBusProxyNewForBusFinish ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- res-    -> m DBusProxy                          -- result-dBusProxyNewForBusFinish res = liftIO $ do-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_proxy_new_for_bus_finish res'-        checkUnexpectedReturnNULL "g_dbus_proxy_new_for_bus_finish" result-        result' <- (wrapObject DBusProxy) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )---- method DBusProxy::new_for_bus_sync--- method type : Constructor--- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusProxy")--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_new_for_bus_sync" g_dbus_proxy_new_for_bus_sync :: -    CUInt ->                                -- bus_type : TInterface "Gio" "BusType"-    CUInt ->                                -- flags : TInterface "Gio" "DBusProxyFlags"-    Ptr DBusInterfaceInfo ->                -- info : TInterface "Gio" "DBusInterfaceInfo"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusProxy)---dBusProxyNewForBusSync ::-    (MonadIO m, CancellableK a) =>-    BusType                                 -- busType-    -> [DBusProxyFlags]                     -- flags-    -> Maybe (DBusInterfaceInfo)            -- info-    -> T.Text                               -- name-    -> T.Text                               -- objectPath-    -> T.Text                               -- interfaceName-    -> Maybe (a)                            -- cancellable-    -> m DBusProxy                          -- result-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-            let jInfo' = unsafeManagedPtrGetPtr jInfo-            return jInfo'-    name' <- textToCString name-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_proxy_new_for_bus_sync busType' flags' maybeInfo name' objectPath' interfaceName' maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_proxy_new_for_bus_sync" 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'-     )---- method DBusProxy::new_sync--- method type : Constructor--- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusProxy")--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_new_sync" g_dbus_proxy_new_sync :: -    Ptr DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    CUInt ->                                -- flags : TInterface "Gio" "DBusProxyFlags"-    Ptr DBusInterfaceInfo ->                -- info : TInterface "Gio" "DBusInterfaceInfo"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusProxy)---dBusProxyNewSync ::-    (MonadIO m, DBusConnectionK a, CancellableK b) =>-    a                                       -- connection-    -> [DBusProxyFlags]                     -- flags-    -> Maybe (DBusInterfaceInfo)            -- info-    -> Maybe (T.Text)                       -- name-    -> T.Text                               -- objectPath-    -> T.Text                               -- interfaceName-    -> Maybe (b)                            -- cancellable-    -> m DBusProxy                          -- result-dBusProxyNewSync connection flags info name objectPath interfaceName cancellable = liftIO $ do-    let connection' = unsafeManagedPtrCastPtr connection-    let flags' = gflagsToWord flags-    maybeInfo <- case info of-        Nothing -> return nullPtr-        Just jInfo -> do-            let 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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_proxy_new_sync connection' flags' maybeInfo maybeName objectPath' interfaceName' maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_proxy_new_sync" 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'-     )---- method DBusProxy::call--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    CUInt ->                                -- flags : TInterface "Gio" "DBusCallFlags"-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusProxyCall ::-    (MonadIO m, DBusProxyK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- methodName-    -> Maybe (GVariant)                     -- parameters-    -> [DBusCallFlags]                      -- flags-    -> Int32                                -- timeoutMsec-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dBusProxyCall _obj methodName parameters flags timeoutMsec cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            let jParameters' = unsafeManagedPtrGetPtr jParameters-            return jParameters'-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_dbus_proxy_call _obj' methodName' maybeParameters flags' timeoutMsec maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem methodName'-    return ()--data DBusProxyCallMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusProxyK a, CancellableK b) => MethodInfo DBusProxyCallMethodInfo a signature where-    overloadedMethod _ = dBusProxyCall---- method DBusProxy::call_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---dBusProxyCallFinish ::-    (MonadIO m, DBusProxyK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m GVariant                           -- result-dBusProxyCallFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_proxy_call_finish _obj' res'-        checkUnexpectedReturnNULL "g_dbus_proxy_call_finish" result-        result' <- wrapGVariantPtr result-        touchManagedPtr _obj-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--data DBusProxyCallFinishMethodInfo-instance (signature ~ (b -> m GVariant), MonadIO m, DBusProxyK a, AsyncResultK b) => MethodInfo DBusProxyCallFinishMethodInfo a signature where-    overloadedMethod _ = dBusProxyCallFinish---- method DBusProxy::call_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    CUInt ->                                -- flags : TInterface "Gio" "DBusCallFlags"-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---dBusProxyCallSync ::-    (MonadIO m, DBusProxyK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- methodName-    -> Maybe (GVariant)                     -- parameters-    -> [DBusCallFlags]                      -- flags-    -> Int32                                -- timeoutMsec-    -> Maybe (b)                            -- cancellable-    -> m GVariant                           -- result-dBusProxyCallSync _obj methodName parameters flags timeoutMsec cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            let jParameters' = unsafeManagedPtrGetPtr jParameters-            return jParameters'-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_proxy_call_sync _obj' methodName' maybeParameters flags' timeoutMsec maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_proxy_call_sync" result-        result' <- wrapGVariantPtr result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem methodName'-        return result'-     ) (do-        freeMem methodName'-     )--data DBusProxyCallSyncMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> m GVariant), MonadIO m, DBusProxyK a, CancellableK b) => MethodInfo DBusProxyCallSyncMethodInfo a signature where-    overloadedMethod _ = dBusProxyCallSync---- method DBusProxy::call_with_unix_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    CUInt ->                                -- flags : TInterface "Gio" "DBusCallFlags"-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr UnixFDList ->                       -- fd_list : TInterface "Gio" "UnixFDList"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusProxyCallWithUnixFdList ::-    (MonadIO m, DBusProxyK a, UnixFDListK b, CancellableK c) =>-    a                                       -- _obj-    -> T.Text                               -- methodName-    -> Maybe (GVariant)                     -- parameters-    -> [DBusCallFlags]                      -- flags-    -> Int32                                -- timeoutMsec-    -> Maybe (b)                            -- fdList-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dBusProxyCallWithUnixFdList _obj methodName parameters flags timeoutMsec fdList cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            let jParameters' = unsafeManagedPtrGetPtr jParameters-            return jParameters'-    let flags' = gflagsToWord flags-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            let jFdList' = unsafeManagedPtrCastPtr jFdList-            return jFdList'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_dbus_proxy_call_with_unix_fd_list _obj' methodName' maybeParameters flags' timeoutMsec maybeFdList maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust fdList touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem methodName'-    return ()--data DBusProxyCallWithUnixFdListMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusProxyK a, UnixFDListK b, CancellableK c) => MethodInfo DBusProxyCallWithUnixFdListMethodInfo a signature where-    overloadedMethod _ = dBusProxyCallWithUnixFdList---- method DBusProxy::call_with_unix_fd_list_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    Ptr (Ptr UnixFDList) ->                 -- out_fd_list : TInterface "Gio" "UnixFDList"-    Ptr AsyncResult ->                      -- res : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---dBusProxyCallWithUnixFdListFinish ::-    (MonadIO m, DBusProxyK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- res-    -> m (GVariant,UnixFDList)              -- result-dBusProxyCallWithUnixFdListFinish _obj res = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    outFdList <- allocMem :: IO (Ptr (Ptr UnixFDList))-    let res' = unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_proxy_call_with_unix_fd_list_finish _obj' outFdList res'-        checkUnexpectedReturnNULL "g_dbus_proxy_call_with_unix_fd_list_finish" result-        result' <- wrapGVariantPtr result-        outFdList' <- peek outFdList-        outFdList'' <- (wrapObject UnixFDList) outFdList'-        touchManagedPtr _obj-        touchManagedPtr res-        freeMem outFdList-        return (result', outFdList'')-     ) (do-        freeMem outFdList-     )--data DBusProxyCallWithUnixFdListFinishMethodInfo-instance (signature ~ (b -> m (GVariant,UnixFDList)), MonadIO m, DBusProxyK a, AsyncResultK b) => MethodInfo DBusProxyCallWithUnixFdListFinishMethodInfo a signature where-    overloadedMethod _ = dBusProxyCallWithUnixFdListFinish---- method DBusProxy::call_with_unix_fd_list_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    CUInt ->                                -- flags : TInterface "Gio" "DBusCallFlags"-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr UnixFDList ->                       -- fd_list : TInterface "Gio" "UnixFDList"-    Ptr (Ptr UnixFDList) ->                 -- out_fd_list : TInterface "Gio" "UnixFDList"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---dBusProxyCallWithUnixFdListSync ::-    (MonadIO m, DBusProxyK a, UnixFDListK b, CancellableK c) =>-    a                                       -- _obj-    -> T.Text                               -- methodName-    -> Maybe (GVariant)                     -- parameters-    -> [DBusCallFlags]                      -- flags-    -> Int32                                -- timeoutMsec-    -> Maybe (b)                            -- fdList-    -> Maybe (c)                            -- cancellable-    -> m (GVariant,UnixFDList)              -- result-dBusProxyCallWithUnixFdListSync _obj methodName parameters flags timeoutMsec fdList cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            let jParameters' = unsafeManagedPtrGetPtr jParameters-            return jParameters'-    let flags' = gflagsToWord flags-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            let jFdList' = unsafeManagedPtrCastPtr jFdList-            return jFdList'-    outFdList <- allocMem :: IO (Ptr (Ptr UnixFDList))-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_proxy_call_with_unix_fd_list_sync _obj' methodName' maybeParameters flags' timeoutMsec maybeFdList outFdList maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_proxy_call_with_unix_fd_list_sync" result-        result' <- wrapGVariantPtr result-        outFdList' <- peek outFdList-        outFdList'' <- (wrapObject UnixFDList) outFdList'-        touchManagedPtr _obj-        whenJust fdList touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem methodName'-        freeMem outFdList-        return (result', outFdList'')-     ) (do-        freeMem methodName'-        freeMem outFdList-     )--data DBusProxyCallWithUnixFdListSyncMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> m (GVariant,UnixFDList)), MonadIO m, DBusProxyK a, UnixFDListK b, CancellableK c) => MethodInfo DBusProxyCallWithUnixFdListSyncMethodInfo a signature where-    overloadedMethod _ = dBusProxyCallWithUnixFdListSync---- method DBusProxy::get_cached_property--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    CString ->                              -- property_name : TBasicType TUTF8-    IO (Ptr GVariant)---dBusProxyGetCachedProperty ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> T.Text                               -- propertyName-    -> m GVariant                           -- result-dBusProxyGetCachedProperty _obj propertyName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    propertyName' <- textToCString propertyName-    result <- g_dbus_proxy_get_cached_property _obj' propertyName'-    checkUnexpectedReturnNULL "g_dbus_proxy_get_cached_property" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    freeMem propertyName'-    return result'--data DBusProxyGetCachedPropertyMethodInfo-instance (signature ~ (T.Text -> m GVariant), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetCachedPropertyMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetCachedProperty---- method DBusProxy::get_cached_property_names--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    IO (Ptr CString)---dBusProxyGetCachedPropertyNames ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-dBusProxyGetCachedPropertyNames _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_proxy_get_cached_property_names _obj'-    checkUnexpectedReturnNULL "g_dbus_proxy_get_cached_property_names" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    return result'--data DBusProxyGetCachedPropertyNamesMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetCachedPropertyNamesMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetCachedPropertyNames---- method DBusProxy::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusConnection")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_proxy_get_connection" g_dbus_proxy_get_connection :: -    Ptr DBusProxy ->                        -- _obj : TInterface "Gio" "DBusProxy"-    IO (Ptr DBusConnection)---dBusProxyGetConnection ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> m DBusConnection                     -- result-dBusProxyGetConnection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_proxy_get_connection _obj'-    checkUnexpectedReturnNULL "g_dbus_proxy_get_connection" result-    result' <- (newObject DBusConnection) result-    touchManagedPtr _obj-    return result'--data DBusProxyGetConnectionMethodInfo-instance (signature ~ (m DBusConnection), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetConnection---- method DBusProxy::get_default_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    IO Int32---dBusProxyGetDefaultTimeout ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-dBusProxyGetDefaultTimeout _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_proxy_get_default_timeout _obj'-    touchManagedPtr _obj-    return result--data DBusProxyGetDefaultTimeoutMethodInfo-instance (signature ~ (m Int32), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetDefaultTimeoutMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetDefaultTimeout---- method DBusProxy::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusProxyFlags")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_proxy_get_flags" g_dbus_proxy_get_flags :: -    Ptr DBusProxy ->                        -- _obj : TInterface "Gio" "DBusProxy"-    IO CUInt---dBusProxyGetFlags ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> m [DBusProxyFlags]                   -- result-dBusProxyGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_proxy_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data DBusProxyGetFlagsMethodInfo-instance (signature ~ (m [DBusProxyFlags]), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetFlags---- method DBusProxy::get_interface_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusInterfaceInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_proxy_get_interface_info" g_dbus_proxy_get_interface_info :: -    Ptr DBusProxy ->                        -- _obj : TInterface "Gio" "DBusProxy"-    IO (Ptr DBusInterfaceInfo)---dBusProxyGetInterfaceInfo ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> m DBusInterfaceInfo                  -- result-dBusProxyGetInterfaceInfo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_proxy_get_interface_info _obj'-    checkUnexpectedReturnNULL "g_dbus_proxy_get_interface_info" result-    result' <- (wrapBoxed DBusInterfaceInfo) result-    touchManagedPtr _obj-    return result'--data DBusProxyGetInterfaceInfoMethodInfo-instance (signature ~ (m DBusInterfaceInfo), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetInterfaceInfoMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetInterfaceInfo---- method DBusProxy::get_interface_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    IO CString---dBusProxyGetInterfaceName ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusProxyGetInterfaceName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_proxy_get_interface_name _obj'-    checkUnexpectedReturnNULL "g_dbus_proxy_get_interface_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusProxyGetInterfaceNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetInterfaceNameMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetInterfaceName---- method DBusProxy::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    IO CString---dBusProxyGetName ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusProxyGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_proxy_get_name _obj'-    checkUnexpectedReturnNULL "g_dbus_proxy_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusProxyGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetNameMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetName---- method DBusProxy::get_name_owner--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    IO CString---dBusProxyGetNameOwner ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusProxyGetNameOwner _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_proxy_get_name_owner _obj'-    checkUnexpectedReturnNULL "g_dbus_proxy_get_name_owner" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DBusProxyGetNameOwnerMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetNameOwnerMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetNameOwner---- method DBusProxy::get_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    IO CString---dBusProxyGetObjectPath ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusProxyGetObjectPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_proxy_get_object_path _obj'-    checkUnexpectedReturnNULL "g_dbus_proxy_get_object_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusProxyGetObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetObjectPath---- method DBusProxy::set_cached_property--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    CString ->                              -- property_name : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    IO ()---dBusProxySetCachedProperty ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> T.Text                               -- propertyName-    -> Maybe (GVariant)                     -- value-    -> m ()                                 -- result-dBusProxySetCachedProperty _obj propertyName value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    propertyName' <- textToCString propertyName-    maybeValue <- case value of-        Nothing -> return nullPtr-        Just jValue -> do-            let jValue' = unsafeManagedPtrGetPtr jValue-            return jValue'-    g_dbus_proxy_set_cached_property _obj' propertyName' maybeValue-    touchManagedPtr _obj-    freeMem propertyName'-    return ()--data DBusProxySetCachedPropertyMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, DBusProxyK a) => MethodInfo DBusProxySetCachedPropertyMethodInfo a signature where-    overloadedMethod _ = dBusProxySetCachedProperty---- method DBusProxy::set_default_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    Int32 ->                                -- timeout_msec : TBasicType TInt-    IO ()---dBusProxySetDefaultTimeout ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> Int32                                -- timeoutMsec-    -> m ()                                 -- result-dBusProxySetDefaultTimeout _obj timeoutMsec = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_proxy_set_default_timeout _obj' timeoutMsec-    touchManagedPtr _obj-    return ()--data DBusProxySetDefaultTimeoutMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, DBusProxyK a) => MethodInfo DBusProxySetDefaultTimeoutMethodInfo a signature where-    overloadedMethod _ = dBusProxySetDefaultTimeout---- method DBusProxy::set_interface_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, 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 ->                        -- _obj : TInterface "Gio" "DBusProxy"-    Ptr DBusInterfaceInfo ->                -- info : TInterface "Gio" "DBusInterfaceInfo"-    IO ()---dBusProxySetInterfaceInfo ::-    (MonadIO m, DBusProxyK a) =>-    a                                       -- _obj-    -> Maybe (DBusInterfaceInfo)            -- info-    -> m ()                                 -- result-dBusProxySetInterfaceInfo _obj info = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeInfo <- case info of-        Nothing -> return nullPtr-        Just jInfo -> do-            let jInfo' = unsafeManagedPtrGetPtr jInfo-            return jInfo'-    g_dbus_proxy_set_interface_info _obj' maybeInfo-    touchManagedPtr _obj-    whenJust info touchManagedPtr-    return ()--data DBusProxySetInterfaceInfoMethodInfo-instance (signature ~ (Maybe (DBusInterfaceInfo) -> m ()), MonadIO m, DBusProxyK a) => MethodInfo DBusProxySetInterfaceInfoMethodInfo a signature where-    overloadedMethod _ = dBusProxySetInterfaceInfo---- method DBusProxy::new--- method type : MemberFunction--- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 DBusConnection ->                   -- connection : TInterface "Gio" "DBusConnection"-    CUInt ->                                -- flags : TInterface "Gio" "DBusProxyFlags"-    Ptr DBusInterfaceInfo ->                -- info : TInterface "Gio" "DBusInterfaceInfo"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusProxyNew ::-    (MonadIO m, DBusConnectionK a, CancellableK b) =>-    a                                       -- connection-    -> [DBusProxyFlags]                     -- flags-    -> Maybe (DBusInterfaceInfo)            -- info-    -> Maybe (T.Text)                       -- name-    -> T.Text                               -- objectPath-    -> T.Text                               -- interfaceName-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dBusProxyNew connection flags info name objectPath interfaceName cancellable callback = liftIO $ do-    let connection' = unsafeManagedPtrCastPtr connection-    let flags' = gflagsToWord flags-    maybeInfo <- case info of-        Nothing -> return nullPtr-        Just jInfo -> do-            let 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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) 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 ()---- method DBusProxy::new_for_bus--- method type : MemberFunction--- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 :: -    CUInt ->                                -- bus_type : TInterface "Gio" "BusType"-    CUInt ->                                -- flags : TInterface "Gio" "DBusProxyFlags"-    Ptr DBusInterfaceInfo ->                -- info : TInterface "Gio" "DBusInterfaceInfo"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dBusProxyNewForBus ::-    (MonadIO m, CancellableK a) =>-    BusType                                 -- busType-    -> [DBusProxyFlags]                     -- flags-    -> Maybe (DBusInterfaceInfo)            -- info-    -> T.Text                               -- name-    -> T.Text                               -- objectPath-    -> T.Text                               -- interfaceName-    -> Maybe (a)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-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-            let jInfo' = unsafeManagedPtrGetPtr jInfo-            return jInfo'-    name' <- textToCString name-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) 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 ()--
− GI/Gio/Objects/DBusProxy.hs-boot 
@@ -1,43 +0,0 @@-module GI.Gio.Objects.DBusProxy where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusProxy = DBusProxy (ForeignPtr DBusProxy)-instance GObject DBusProxy where-class GObject o => DBusProxyK o-instance (GObject o, IsDescendantOf DBusProxy o) => DBusProxyK o-data DBusProxyGBusTypePropertyInfo-data DBusProxyGConnectionPropertyInfo-data DBusProxyGDefaultTimeoutPropertyInfo-data DBusProxyGFlagsPropertyInfo-data DBusProxyGInterfaceInfoPropertyInfo-data DBusProxyGInterfaceNamePropertyInfo-data DBusProxyGNamePropertyInfo-data DBusProxyGNameOwnerPropertyInfo-data DBusProxyGObjectPathPropertyInfo-data DBusProxyGPropertiesChangedSignalInfo-data DBusProxyGSignalSignalInfo-data DBusProxyCallMethodInfo-data DBusProxyCallFinishMethodInfo-data DBusProxyCallSyncMethodInfo-data DBusProxyCallWithUnixFdListMethodInfo-data DBusProxyCallWithUnixFdListFinishMethodInfo-data DBusProxyCallWithUnixFdListSyncMethodInfo-data DBusProxyGetCachedPropertyMethodInfo-data DBusProxyGetCachedPropertyNamesMethodInfo-data DBusProxyGetConnectionMethodInfo-data DBusProxyGetDefaultTimeoutMethodInfo-data DBusProxyGetFlagsMethodInfo-data DBusProxyGetInterfaceInfoMethodInfo-data DBusProxyGetInterfaceNameMethodInfo-data DBusProxyGetNameMethodInfo-data DBusProxyGetNameOwnerMethodInfo-data DBusProxyGetObjectPathMethodInfo-data DBusProxySetCachedPropertyMethodInfo-data DBusProxySetDefaultTimeoutMethodInfo-data DBusProxySetInterfaceInfoMethodInfo
− GI/Gio/Objects/DBusServer.hs 
@@ -1,615 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DBusServer-    ( ---- * Exported types-    DBusServer(..)                          ,-    DBusServerK                             ,-    toDBusServer                            ,-    noDBusServer                            ,--- -- * Methods--- ** dBusServerGetClientAddress-    DBusServerGetClientAddressMethodInfo    ,-    dBusServerGetClientAddress              ,----- ** dBusServerGetFlags-    DBusServerGetFlagsMethodInfo            ,-    dBusServerGetFlags                      ,----- ** dBusServerGetGuid-    DBusServerGetGuidMethodInfo             ,-    dBusServerGetGuid                       ,----- ** dBusServerIsActive-    DBusServerIsActiveMethodInfo            ,-    dBusServerIsActive                      ,----- ** dBusServerNewSync-    dBusServerNewSync                       ,----- ** dBusServerStart-    DBusServerStartMethodInfo               ,-    dBusServerStart                         ,----- ** dBusServerStop-    DBusServerStopMethodInfo                ,-    dBusServerStop                          ,----- -- * Properties--- ** Active-    DBusServerActivePropertyInfo            ,-    dBusServerActive                        ,-    getDBusServerActive                     ,----- ** Address-    DBusServerAddressPropertyInfo           ,-    constructDBusServerAddress              ,-    dBusServerAddress                       ,-    getDBusServerAddress                    ,----- ** AuthenticationObserver-    DBusServerAuthenticationObserverPropertyInfo,-    constructDBusServerAuthenticationObserver,-    dBusServerAuthenticationObserver        ,-    getDBusServerAuthenticationObserver     ,----- ** ClientAddress-    DBusServerClientAddressPropertyInfo     ,-    dBusServerClientAddress                 ,-    getDBusServerClientAddress              ,----- ** Flags-    DBusServerFlagsPropertyInfo             ,-    constructDBusServerFlags                ,-    dBusServerFlags                         ,-    getDBusServerFlags                      ,----- ** Guid-    DBusServerGuidPropertyInfo              ,-    constructDBusServerGuid                 ,-    dBusServerGuid                          ,-    getDBusServerGuid                       ,----- -- * Signals--- ** NewConnection-    DBusServerNewConnectionCallback         ,-    DBusServerNewConnectionCallbackC        ,-    DBusServerNewConnectionSignalInfo       ,-    afterDBusServerNewConnection            ,-    dBusServerNewConnectionCallbackWrapper  ,-    dBusServerNewConnectionClosure          ,-    mkDBusServerNewConnectionCallback       ,-    noDBusServerNewConnectionCallback       ,-    onDBusServerNewConnection               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DBusServer = DBusServer (ForeignPtr DBusServer)-foreign import ccall "g_dbus_server_get_type"-    c_g_dbus_server_get_type :: IO GType--type instance ParentTypes DBusServer = DBusServerParentTypes-type DBusServerParentTypes = '[GObject.Object, Initable]--instance GObject DBusServer where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_dbus_server_get_type-    --class GObject o => DBusServerK o-instance (GObject o, IsDescendantOf DBusServer o) => DBusServerK o--toDBusServer :: DBusServerK o => o -> IO DBusServer-toDBusServer = unsafeCastTo DBusServer--noDBusServer :: Maybe DBusServer-noDBusServer = Nothing--type family ResolveDBusServerMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusServerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDBusServerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDBusServerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDBusServerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDBusServerMethod "init" o = InitableInitMethodInfo-    ResolveDBusServerMethod "isActive" o = DBusServerIsActiveMethodInfo-    ResolveDBusServerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDBusServerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDBusServerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDBusServerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDBusServerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDBusServerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDBusServerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDBusServerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDBusServerMethod "start" o = DBusServerStartMethodInfo-    ResolveDBusServerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDBusServerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDBusServerMethod "stop" o = DBusServerStopMethodInfo-    ResolveDBusServerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDBusServerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDBusServerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDBusServerMethod "getClientAddress" o = DBusServerGetClientAddressMethodInfo-    ResolveDBusServerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDBusServerMethod "getFlags" o = DBusServerGetFlagsMethodInfo-    ResolveDBusServerMethod "getGuid" o = DBusServerGetGuidMethodInfo-    ResolveDBusServerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDBusServerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDBusServerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDBusServerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDBusServerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusServerMethod t DBusServer, MethodInfo info DBusServer p) => IsLabelProxy t (DBusServer -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusServerMethod t DBusServer, MethodInfo info DBusServer p) => IsLabel t (DBusServer -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal DBusServer::new-connection-type DBusServerNewConnectionCallback =-    DBusConnection ->-    IO Bool--noDBusServerNewConnectionCallback :: Maybe DBusServerNewConnectionCallback-noDBusServerNewConnectionCallback = Nothing--type DBusServerNewConnectionCallbackC =-    Ptr () ->                               -- object-    Ptr DBusConnection ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkDBusServerNewConnectionCallback :: DBusServerNewConnectionCallbackC -> IO (FunPtr DBusServerNewConnectionCallbackC)--dBusServerNewConnectionClosure :: DBusServerNewConnectionCallback -> IO Closure-dBusServerNewConnectionClosure cb = newCClosure =<< mkDBusServerNewConnectionCallback wrapped-    where wrapped = dBusServerNewConnectionCallbackWrapper cb--dBusServerNewConnectionCallbackWrapper ::-    DBusServerNewConnectionCallback ->-    Ptr () ->-    Ptr DBusConnection ->-    Ptr () ->-    IO CInt-dBusServerNewConnectionCallbackWrapper _cb _ connection _ = do-    connection' <- (newObject DBusConnection) connection-    result <- _cb  connection'-    let result' = (fromIntegral . fromEnum) result-    return result'--onDBusServerNewConnection :: (GObject a, MonadIO m) => a -> DBusServerNewConnectionCallback -> m SignalHandlerId-onDBusServerNewConnection obj cb = liftIO $ connectDBusServerNewConnection obj cb SignalConnectBefore-afterDBusServerNewConnection :: (GObject a, MonadIO m) => a -> DBusServerNewConnectionCallback -> m SignalHandlerId-afterDBusServerNewConnection obj cb = connectDBusServerNewConnection obj cb SignalConnectAfter--connectDBusServerNewConnection :: (GObject a, MonadIO m) =>-                                  a -> DBusServerNewConnectionCallback -> SignalConnectMode -> m SignalHandlerId-connectDBusServerNewConnection obj cb after = liftIO $ do-    cb' <- mkDBusServerNewConnectionCallback (dBusServerNewConnectionCallbackWrapper cb)-    connectSignalFunPtr obj "new-connection" cb' after---- VVV Prop "active"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDBusServerActive :: (MonadIO m, DBusServerK o) => o -> m Bool-getDBusServerActive obj = liftIO $ getObjectPropertyBool obj "active"--data DBusServerActivePropertyInfo-instance AttrInfo DBusServerActivePropertyInfo where-    type AttrAllowedOps DBusServerActivePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DBusServerActivePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusServerActivePropertyInfo = DBusServerK-    type AttrGetType DBusServerActivePropertyInfo = Bool-    type AttrLabel DBusServerActivePropertyInfo = "active"-    attrGet _ = getDBusServerActive-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "address"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusServerAddress :: (MonadIO m, DBusServerK o) => o -> m (Maybe T.Text)-getDBusServerAddress obj = liftIO $ getObjectPropertyString obj "address"--constructDBusServerAddress :: T.Text -> IO ([Char], GValue)-constructDBusServerAddress val = constructObjectPropertyString "address" (Just val)--data DBusServerAddressPropertyInfo-instance AttrInfo DBusServerAddressPropertyInfo where-    type AttrAllowedOps DBusServerAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusServerAddressPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusServerAddressPropertyInfo = DBusServerK-    type AttrGetType DBusServerAddressPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusServerAddressPropertyInfo = "address"-    attrGet _ = getDBusServerAddress-    attrSet _ = undefined-    attrConstruct _ = constructDBusServerAddress-    attrClear _ = undefined---- VVV Prop "authentication-observer"-   -- Type: TInterface "Gio" "DBusAuthObserver"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDBusServerAuthenticationObserver :: (MonadIO m, DBusServerK o) => o -> m (Maybe DBusAuthObserver)-getDBusServerAuthenticationObserver obj = liftIO $ getObjectPropertyObject obj "authentication-observer" DBusAuthObserver--constructDBusServerAuthenticationObserver :: (DBusAuthObserverK a) => a -> IO ([Char], GValue)-constructDBusServerAuthenticationObserver val = constructObjectPropertyObject "authentication-observer" (Just val)--data DBusServerAuthenticationObserverPropertyInfo-instance AttrInfo DBusServerAuthenticationObserverPropertyInfo where-    type AttrAllowedOps DBusServerAuthenticationObserverPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusServerAuthenticationObserverPropertyInfo = DBusAuthObserverK-    type AttrBaseTypeConstraint DBusServerAuthenticationObserverPropertyInfo = DBusServerK-    type AttrGetType DBusServerAuthenticationObserverPropertyInfo = (Maybe DBusAuthObserver)-    type AttrLabel DBusServerAuthenticationObserverPropertyInfo = "authentication-observer"-    attrGet _ = getDBusServerAuthenticationObserver-    attrSet _ = undefined-    attrConstruct _ = constructDBusServerAuthenticationObserver-    attrClear _ = undefined---- VVV Prop "client-address"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getDBusServerClientAddress :: (MonadIO m, DBusServerK o) => o -> m T.Text-getDBusServerClientAddress obj = liftIO $ checkUnexpectedNothing "getDBusServerClientAddress" $ getObjectPropertyString obj "client-address"--data DBusServerClientAddressPropertyInfo-instance AttrInfo DBusServerClientAddressPropertyInfo where-    type AttrAllowedOps DBusServerClientAddressPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusServerClientAddressPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusServerClientAddressPropertyInfo = DBusServerK-    type AttrGetType DBusServerClientAddressPropertyInfo = T.Text-    type AttrLabel DBusServerClientAddressPropertyInfo = "client-address"-    attrGet _ = getDBusServerClientAddress-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "flags"-   -- Type: TInterface "Gio" "DBusServerFlags"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getDBusServerFlags :: (MonadIO m, DBusServerK o) => o -> m [DBusServerFlags]-getDBusServerFlags obj = liftIO $ getObjectPropertyFlags obj "flags"--constructDBusServerFlags :: [DBusServerFlags] -> IO ([Char], GValue)-constructDBusServerFlags val = constructObjectPropertyFlags "flags" val--data DBusServerFlagsPropertyInfo-instance AttrInfo DBusServerFlagsPropertyInfo where-    type AttrAllowedOps DBusServerFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusServerFlagsPropertyInfo = (~) [DBusServerFlags]-    type AttrBaseTypeConstraint DBusServerFlagsPropertyInfo = DBusServerK-    type AttrGetType DBusServerFlagsPropertyInfo = [DBusServerFlags]-    type AttrLabel DBusServerFlagsPropertyInfo = "flags"-    attrGet _ = getDBusServerFlags-    attrSet _ = undefined-    attrConstruct _ = constructDBusServerFlags-    attrClear _ = undefined---- VVV Prop "guid"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getDBusServerGuid :: (MonadIO m, DBusServerK o) => o -> m T.Text-getDBusServerGuid obj = liftIO $ checkUnexpectedNothing "getDBusServerGuid" $ getObjectPropertyString obj "guid"--constructDBusServerGuid :: T.Text -> IO ([Char], GValue)-constructDBusServerGuid val = constructObjectPropertyString "guid" (Just val)--data DBusServerGuidPropertyInfo-instance AttrInfo DBusServerGuidPropertyInfo where-    type AttrAllowedOps DBusServerGuidPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusServerGuidPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusServerGuidPropertyInfo = DBusServerK-    type AttrGetType DBusServerGuidPropertyInfo = T.Text-    type AttrLabel DBusServerGuidPropertyInfo = "guid"-    attrGet _ = getDBusServerGuid-    attrSet _ = undefined-    attrConstruct _ = constructDBusServerGuid-    attrClear _ = undefined--type instance AttributeList DBusServer = DBusServerAttributeList-type DBusServerAttributeList = ('[ '("active", DBusServerActivePropertyInfo), '("address", DBusServerAddressPropertyInfo), '("authenticationObserver", DBusServerAuthenticationObserverPropertyInfo), '("clientAddress", DBusServerClientAddressPropertyInfo), '("flags", DBusServerFlagsPropertyInfo), '("guid", DBusServerGuidPropertyInfo)] :: [(Symbol, *)])--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--data DBusServerNewConnectionSignalInfo-instance SignalInfo DBusServerNewConnectionSignalInfo where-    type HaskellCallbackType DBusServerNewConnectionSignalInfo = DBusServerNewConnectionCallback-    connectSignal _ = connectDBusServerNewConnection--type instance SignalList DBusServer = DBusServerSignalList-type DBusServerSignalList = ('[ '("newConnection", DBusServerNewConnectionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DBusServer::new_sync--- method type : Constructor--- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusServerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 "Gio" "DBusServerFlags"-    CString ->                              -- guid : TBasicType TUTF8-    Ptr DBusAuthObserver ->                 -- observer : TInterface "Gio" "DBusAuthObserver"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusServer)---dBusServerNewSync ::-    (MonadIO m, DBusAuthObserverK a, CancellableK b) =>-    T.Text                                  -- address-    -> [DBusServerFlags]                    -- flags-    -> T.Text                               -- guid-    -> Maybe (a)                            -- observer-    -> Maybe (b)                            -- cancellable-    -> m DBusServer                         -- result-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-            let jObserver' = unsafeManagedPtrCastPtr jObserver-            return jObserver'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_server_new_sync address' flags' guid' maybeObserver maybeCancellable-        checkUnexpectedReturnNULL "g_dbus_server_new_sync" result-        result' <- (wrapObject DBusServer) result-        whenJust observer touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem address'-        freeMem guid'-        return result'-     ) (do-        freeMem address'-        freeMem guid'-     )---- method DBusServer::get_client_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "DBusServer"-    IO CString---dBusServerGetClientAddress ::-    (MonadIO m, DBusServerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusServerGetClientAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_server_get_client_address _obj'-    checkUnexpectedReturnNULL "g_dbus_server_get_client_address" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusServerGetClientAddressMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusServerK a) => MethodInfo DBusServerGetClientAddressMethodInfo a signature where-    overloadedMethod _ = dBusServerGetClientAddress---- method DBusServer::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusServerFlags")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_server_get_flags" g_dbus_server_get_flags :: -    Ptr DBusServer ->                       -- _obj : TInterface "Gio" "DBusServer"-    IO CUInt---dBusServerGetFlags ::-    (MonadIO m, DBusServerK a) =>-    a                                       -- _obj-    -> m [DBusServerFlags]                  -- result-dBusServerGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_server_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data DBusServerGetFlagsMethodInfo-instance (signature ~ (m [DBusServerFlags]), MonadIO m, DBusServerK a) => MethodInfo DBusServerGetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusServerGetFlags---- method DBusServer::get_guid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "DBusServer"-    IO CString---dBusServerGetGuid ::-    (MonadIO m, DBusServerK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-dBusServerGetGuid _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_server_get_guid _obj'-    checkUnexpectedReturnNULL "g_dbus_server_get_guid" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DBusServerGetGuidMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DBusServerK a) => MethodInfo DBusServerGetGuidMethodInfo a signature where-    overloadedMethod _ = dBusServerGetGuid---- method DBusServer::is_active--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "DBusServer"-    IO CInt---dBusServerIsActive ::-    (MonadIO m, DBusServerK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-dBusServerIsActive _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_dbus_server_is_active _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DBusServerIsActiveMethodInfo-instance (signature ~ (m Bool), MonadIO m, DBusServerK a) => MethodInfo DBusServerIsActiveMethodInfo a signature where-    overloadedMethod _ = dBusServerIsActive---- method DBusServer::start--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "DBusServer"-    IO ()---dBusServerStart ::-    (MonadIO m, DBusServerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-dBusServerStart _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_server_start _obj'-    touchManagedPtr _obj-    return ()--data DBusServerStartMethodInfo-instance (signature ~ (m ()), MonadIO m, DBusServerK a) => MethodInfo DBusServerStartMethodInfo a signature where-    overloadedMethod _ = dBusServerStart---- method DBusServer::stop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "DBusServer"-    IO ()---dBusServerStop ::-    (MonadIO m, DBusServerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-dBusServerStop _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_dbus_server_stop _obj'-    touchManagedPtr _obj-    return ()--data DBusServerStopMethodInfo-instance (signature ~ (m ()), MonadIO m, DBusServerK a) => MethodInfo DBusServerStopMethodInfo a signature where-    overloadedMethod _ = dBusServerStop--
− GI/Gio/Objects/DBusServer.hs-boot 
@@ -1,26 +0,0 @@-module GI.Gio.Objects.DBusServer where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusServer = DBusServer (ForeignPtr DBusServer)-instance GObject DBusServer where-class GObject o => DBusServerK o-instance (GObject o, IsDescendantOf DBusServer o) => DBusServerK o-data DBusServerActivePropertyInfo-data DBusServerAddressPropertyInfo-data DBusServerAuthenticationObserverPropertyInfo-data DBusServerClientAddressPropertyInfo-data DBusServerFlagsPropertyInfo-data DBusServerGuidPropertyInfo-data DBusServerNewConnectionSignalInfo-data DBusServerGetClientAddressMethodInfo-data DBusServerGetFlagsMethodInfo-data DBusServerGetGuidMethodInfo-data DBusServerIsActiveMethodInfo-data DBusServerStartMethodInfo-data DBusServerStopMethodInfo
− GI/Gio/Objects/DataInputStream.hs 
@@ -1,1293 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DataInputStream-    ( ---- * Exported types-    DataInputStream(..)                     ,-    DataInputStreamK                        ,-    toDataInputStream                       ,-    noDataInputStream                       ,--- -- * Methods--- ** dataInputStreamGetByteOrder-    DataInputStreamGetByteOrderMethodInfo   ,-    dataInputStreamGetByteOrder             ,----- ** dataInputStreamGetNewlineType-    DataInputStreamGetNewlineTypeMethodInfo ,-    dataInputStreamGetNewlineType           ,----- ** dataInputStreamNew-    dataInputStreamNew                      ,----- ** dataInputStreamReadByte-    DataInputStreamReadByteMethodInfo       ,-    dataInputStreamReadByte                 ,----- ** dataInputStreamReadInt16-    DataInputStreamReadInt16MethodInfo      ,-    dataInputStreamReadInt16                ,----- ** dataInputStreamReadInt32-    DataInputStreamReadInt32MethodInfo      ,-    dataInputStreamReadInt32                ,----- ** dataInputStreamReadInt64-    DataInputStreamReadInt64MethodInfo      ,-    dataInputStreamReadInt64                ,----- ** dataInputStreamReadLine-    DataInputStreamReadLineMethodInfo       ,-    dataInputStreamReadLine                 ,----- ** dataInputStreamReadLineAsync-    DataInputStreamReadLineAsyncMethodInfo  ,-    dataInputStreamReadLineAsync            ,----- ** dataInputStreamReadLineFinish-    DataInputStreamReadLineFinishMethodInfo ,-    dataInputStreamReadLineFinish           ,----- ** dataInputStreamReadLineFinishUtf8-    DataInputStreamReadLineFinishUtf8MethodInfo,-    dataInputStreamReadLineFinishUtf8       ,----- ** dataInputStreamReadLineUtf8-    DataInputStreamReadLineUtf8MethodInfo   ,-    dataInputStreamReadLineUtf8             ,----- ** dataInputStreamReadUint16-    DataInputStreamReadUint16MethodInfo     ,-    dataInputStreamReadUint16               ,----- ** dataInputStreamReadUint32-    DataInputStreamReadUint32MethodInfo     ,-    dataInputStreamReadUint32               ,----- ** dataInputStreamReadUint64-    DataInputStreamReadUint64MethodInfo     ,-    dataInputStreamReadUint64               ,----- ** dataInputStreamReadUntil-    DataInputStreamReadUntilMethodInfo      ,-    dataInputStreamReadUntil                ,----- ** dataInputStreamReadUntilAsync-    DataInputStreamReadUntilAsyncMethodInfo ,-    dataInputStreamReadUntilAsync           ,----- ** dataInputStreamReadUntilFinish-    DataInputStreamReadUntilFinishMethodInfo,-    dataInputStreamReadUntilFinish          ,----- ** dataInputStreamReadUpto-    DataInputStreamReadUptoMethodInfo       ,-    dataInputStreamReadUpto                 ,----- ** dataInputStreamReadUptoAsync-    DataInputStreamReadUptoAsyncMethodInfo  ,-    dataInputStreamReadUptoAsync            ,----- ** dataInputStreamReadUptoFinish-    DataInputStreamReadUptoFinishMethodInfo ,-    dataInputStreamReadUptoFinish           ,----- ** dataInputStreamSetByteOrder-    DataInputStreamSetByteOrderMethodInfo   ,-    dataInputStreamSetByteOrder             ,----- ** dataInputStreamSetNewlineType-    DataInputStreamSetNewlineTypeMethodInfo ,-    dataInputStreamSetNewlineType           ,----- -- * Properties--- ** ByteOrder-    DataInputStreamByteOrderPropertyInfo    ,-    constructDataInputStreamByteOrder       ,-    dataInputStreamByteOrder                ,-    getDataInputStreamByteOrder             ,-    setDataInputStreamByteOrder             ,----- ** NewlineType-    DataInputStreamNewlineTypePropertyInfo  ,-    constructDataInputStreamNewlineType     ,-    dataInputStreamNewlineType              ,-    getDataInputStreamNewlineType           ,-    setDataInputStreamNewlineType           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DataInputStream = DataInputStream (ForeignPtr DataInputStream)-foreign import ccall "g_data_input_stream_get_type"-    c_g_data_input_stream_get_type :: IO GType--type instance ParentTypes DataInputStream = DataInputStreamParentTypes-type DataInputStreamParentTypes = '[BufferedInputStream, FilterInputStream, InputStream, GObject.Object, Seekable]--instance GObject DataInputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_data_input_stream_get_type-    --class GObject o => DataInputStreamK o-instance (GObject o, IsDescendantOf DataInputStream o) => DataInputStreamK o--toDataInputStream :: DataInputStreamK o => o -> IO DataInputStream-toDataInputStream = unsafeCastTo DataInputStream--noDataInputStream :: Maybe DataInputStream-noDataInputStream = Nothing--type family ResolveDataInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveDataInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDataInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDataInputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo-    ResolveDataInputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo-    ResolveDataInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo-    ResolveDataInputStreamMethod "close" o = InputStreamCloseMethodInfo-    ResolveDataInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo-    ResolveDataInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo-    ResolveDataInputStreamMethod "fill" o = BufferedInputStreamFillMethodInfo-    ResolveDataInputStreamMethod "fillAsync" o = BufferedInputStreamFillAsyncMethodInfo-    ResolveDataInputStreamMethod "fillFinish" o = BufferedInputStreamFillFinishMethodInfo-    ResolveDataInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDataInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDataInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo-    ResolveDataInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo-    ResolveDataInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDataInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDataInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDataInputStreamMethod "peek" o = BufferedInputStreamPeekMethodInfo-    ResolveDataInputStreamMethod "peekBuffer" o = BufferedInputStreamPeekBufferMethodInfo-    ResolveDataInputStreamMethod "read" o = InputStreamReadMethodInfo-    ResolveDataInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo-    ResolveDataInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo-    ResolveDataInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo-    ResolveDataInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo-    ResolveDataInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo-    ResolveDataInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo-    ResolveDataInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo-    ResolveDataInputStreamMethod "readFinish" o = 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.ObjectRefMethodInfo-    ResolveDataInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDataInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDataInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDataInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDataInputStreamMethod "seek" o = SeekableSeekMethodInfo-    ResolveDataInputStreamMethod "skip" o = InputStreamSkipMethodInfo-    ResolveDataInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo-    ResolveDataInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo-    ResolveDataInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDataInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDataInputStreamMethod "tell" o = SeekableTellMethodInfo-    ResolveDataInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDataInputStreamMethod "truncate" o = SeekableTruncateMethodInfo-    ResolveDataInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDataInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDataInputStreamMethod "getAvailable" o = BufferedInputStreamGetAvailableMethodInfo-    ResolveDataInputStreamMethod "getBaseStream" o = FilterInputStreamGetBaseStreamMethodInfo-    ResolveDataInputStreamMethod "getBufferSize" o = BufferedInputStreamGetBufferSizeMethodInfo-    ResolveDataInputStreamMethod "getByteOrder" o = DataInputStreamGetByteOrderMethodInfo-    ResolveDataInputStreamMethod "getCloseBaseStream" o = FilterInputStreamGetCloseBaseStreamMethodInfo-    ResolveDataInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDataInputStreamMethod "getNewlineType" o = DataInputStreamGetNewlineTypeMethodInfo-    ResolveDataInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDataInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDataInputStreamMethod "setBufferSize" o = BufferedInputStreamSetBufferSizeMethodInfo-    ResolveDataInputStreamMethod "setByteOrder" o = DataInputStreamSetByteOrderMethodInfo-    ResolveDataInputStreamMethod "setCloseBaseStream" o = FilterInputStreamSetCloseBaseStreamMethodInfo-    ResolveDataInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDataInputStreamMethod "setNewlineType" o = DataInputStreamSetNewlineTypeMethodInfo-    ResolveDataInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo-    ResolveDataInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDataInputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDataInputStreamMethod t DataInputStream, MethodInfo info DataInputStream p) => IsLabelProxy t (DataInputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDataInputStreamMethod t DataInputStream, MethodInfo info DataInputStream p) => IsLabel t (DataInputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "byte-order"-   -- Type: TInterface "Gio" "DataStreamByteOrder"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getDataInputStreamByteOrder :: (MonadIO m, DataInputStreamK o) => o -> m DataStreamByteOrder-getDataInputStreamByteOrder obj = liftIO $ getObjectPropertyEnum obj "byte-order"--setDataInputStreamByteOrder :: (MonadIO m, DataInputStreamK o) => o -> DataStreamByteOrder -> m ()-setDataInputStreamByteOrder obj val = liftIO $ setObjectPropertyEnum obj "byte-order" val--constructDataInputStreamByteOrder :: DataStreamByteOrder -> IO ([Char], GValue)-constructDataInputStreamByteOrder val = constructObjectPropertyEnum "byte-order" val--data DataInputStreamByteOrderPropertyInfo-instance AttrInfo DataInputStreamByteOrderPropertyInfo where-    type AttrAllowedOps DataInputStreamByteOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DataInputStreamByteOrderPropertyInfo = (~) DataStreamByteOrder-    type AttrBaseTypeConstraint DataInputStreamByteOrderPropertyInfo = DataInputStreamK-    type AttrGetType DataInputStreamByteOrderPropertyInfo = DataStreamByteOrder-    type AttrLabel DataInputStreamByteOrderPropertyInfo = "byte-order"-    attrGet _ = getDataInputStreamByteOrder-    attrSet _ = setDataInputStreamByteOrder-    attrConstruct _ = constructDataInputStreamByteOrder-    attrClear _ = undefined---- VVV Prop "newline-type"-   -- Type: TInterface "Gio" "DataStreamNewlineType"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getDataInputStreamNewlineType :: (MonadIO m, DataInputStreamK o) => o -> m DataStreamNewlineType-getDataInputStreamNewlineType obj = liftIO $ getObjectPropertyEnum obj "newline-type"--setDataInputStreamNewlineType :: (MonadIO m, DataInputStreamK o) => o -> DataStreamNewlineType -> m ()-setDataInputStreamNewlineType obj val = liftIO $ setObjectPropertyEnum obj "newline-type" val--constructDataInputStreamNewlineType :: DataStreamNewlineType -> IO ([Char], GValue)-constructDataInputStreamNewlineType val = constructObjectPropertyEnum "newline-type" val--data DataInputStreamNewlineTypePropertyInfo-instance AttrInfo DataInputStreamNewlineTypePropertyInfo where-    type AttrAllowedOps DataInputStreamNewlineTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DataInputStreamNewlineTypePropertyInfo = (~) DataStreamNewlineType-    type AttrBaseTypeConstraint DataInputStreamNewlineTypePropertyInfo = DataInputStreamK-    type AttrGetType DataInputStreamNewlineTypePropertyInfo = DataStreamNewlineType-    type AttrLabel DataInputStreamNewlineTypePropertyInfo = "newline-type"-    attrGet _ = getDataInputStreamNewlineType-    attrSet _ = setDataInputStreamNewlineType-    attrConstruct _ = constructDataInputStreamNewlineType-    attrClear _ = undefined--type instance AttributeList DataInputStream = DataInputStreamAttributeList-type DataInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("bufferSize", BufferedInputStreamBufferSizePropertyInfo), '("byteOrder", DataInputStreamByteOrderPropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo), '("newlineType", DataInputStreamNewlineTypePropertyInfo)] :: [(Symbol, *)])--dataInputStreamByteOrder :: AttrLabelProxy "byteOrder"-dataInputStreamByteOrder = AttrLabelProxy--dataInputStreamNewlineType :: AttrLabelProxy "newlineType"-dataInputStreamNewlineType = AttrLabelProxy--type instance SignalList DataInputStream = DataInputStreamSignalList-type DataInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DataInputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DataInputStream")--- throws : False--- Skip return : False--foreign import ccall "g_data_input_stream_new" g_data_input_stream_new :: -    Ptr InputStream ->                      -- base_stream : TInterface "Gio" "InputStream"-    IO (Ptr DataInputStream)---dataInputStreamNew ::-    (MonadIO m, InputStreamK a) =>-    a                                       -- baseStream-    -> m DataInputStream                    -- result-dataInputStreamNew baseStream = liftIO $ do-    let baseStream' = unsafeManagedPtrCastPtr baseStream-    result <- g_data_input_stream_new baseStream'-    checkUnexpectedReturnNULL "g_data_input_stream_new" result-    result' <- (wrapObject DataInputStream) result-    touchManagedPtr baseStream-    return result'---- method DataInputStream::get_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    IO CUInt---dataInputStreamGetByteOrder ::-    (MonadIO m, DataInputStreamK a) =>-    a                                       -- _obj-    -> m DataStreamByteOrder                -- result-dataInputStreamGetByteOrder _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_data_input_stream_get_byte_order _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DataInputStreamGetByteOrderMethodInfo-instance (signature ~ (m DataStreamByteOrder), MonadIO m, DataInputStreamK a) => MethodInfo DataInputStreamGetByteOrderMethodInfo a signature where-    overloadedMethod _ = dataInputStreamGetByteOrder---- method DataInputStream::get_newline_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    IO CUInt---dataInputStreamGetNewlineType ::-    (MonadIO m, DataInputStreamK a) =>-    a                                       -- _obj-    -> m DataStreamNewlineType              -- result-dataInputStreamGetNewlineType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_data_input_stream_get_newline_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DataInputStreamGetNewlineTypeMethodInfo-instance (signature ~ (m DataStreamNewlineType), MonadIO m, DataInputStreamK a) => MethodInfo DataInputStreamGetNewlineTypeMethodInfo a signature where-    overloadedMethod _ = dataInputStreamGetNewlineType---- method DataInputStream::read_byte--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Word8---dataInputStreamReadByte ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Word8                              -- result-dataInputStreamReadByte _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_byte _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data DataInputStreamReadByteMethodInfo-instance (signature ~ (Maybe (b) -> m Word8), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadByteMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadByte---- method DataInputStream::read_int16--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int16---dataInputStreamReadInt16 ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Int16                              -- result-dataInputStreamReadInt16 _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_int16 _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data DataInputStreamReadInt16MethodInfo-instance (signature ~ (Maybe (b) -> m Int16), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadInt16MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadInt16---- method DataInputStream::read_int32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int32---dataInputStreamReadInt32 ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Int32                              -- result-dataInputStreamReadInt32 _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_int32 _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data DataInputStreamReadInt32MethodInfo-instance (signature ~ (Maybe (b) -> m Int32), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadInt32MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadInt32---- method DataInputStream::read_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---dataInputStreamReadInt64 ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-dataInputStreamReadInt64 _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_int64 _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data DataInputStreamReadInt64MethodInfo-instance (signature ~ (Maybe (b) -> m Int64), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadInt64MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadInt64---- method DataInputStream::read_line--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Word8)---dataInputStreamReadLine ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ((Maybe ByteString),Word64)        -- result-dataInputStreamReadLine _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    length_ <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_line _obj' length_ maybeCancellable-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- unpackZeroTerminatedByteString result'-            freeMem result'-            return result''-        length_' <- peek length_-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem length_-        return (maybeResult, length_')-     ) (do-        freeMem length_-     )--data DataInputStreamReadLineMethodInfo-instance (signature ~ (Maybe (b) -> m ((Maybe ByteString),Word64)), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadLineMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadLine---- method DataInputStream::read_line_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dataInputStreamReadLineAsync ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dataInputStreamReadLineAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_data_input_stream_read_line_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data DataInputStreamReadLineAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadLineAsyncMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadLineAsync---- method DataInputStream::read_line_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Word8)---dataInputStreamReadLineFinish ::-    (MonadIO m, DataInputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ((Maybe ByteString),Word64)        -- result-dataInputStreamReadLineFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_data_input_stream_read_line_finish _obj' result_' length_-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- unpackZeroTerminatedByteString result'-            freeMem result'-            return result''-        length_' <- peek length_-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem length_-        return (maybeResult, length_')-     ) (do-        freeMem length_-     )--data DataInputStreamReadLineFinishMethodInfo-instance (signature ~ (b -> m ((Maybe ByteString),Word64)), MonadIO m, DataInputStreamK a, AsyncResultK b) => MethodInfo DataInputStreamReadLineFinishMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadLineFinish---- method DataInputStream::read_line_finish_utf8--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString---dataInputStreamReadLineFinishUtf8 ::-    (MonadIO m, DataInputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ((Maybe T.Text),Word64)            -- result-dataInputStreamReadLineFinishUtf8 _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_data_input_stream_read_line_finish_utf8 _obj' result_' length_-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- cstringToText result'-            freeMem result'-            return result''-        length_' <- peek length_-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem length_-        return (maybeResult, length_')-     ) (do-        freeMem length_-     )--data DataInputStreamReadLineFinishUtf8MethodInfo-instance (signature ~ (b -> m ((Maybe T.Text),Word64)), MonadIO m, DataInputStreamK a, AsyncResultK b) => MethodInfo DataInputStreamReadLineFinishUtf8MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadLineFinishUtf8---- method DataInputStream::read_line_utf8--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CString---dataInputStreamReadLineUtf8 ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ((Maybe T.Text),Word64)            -- result-dataInputStreamReadLineUtf8 _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    length_ <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_line_utf8 _obj' length_ maybeCancellable-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- cstringToText result'-            freeMem result'-            return result''-        length_' <- peek length_-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem length_-        return (maybeResult, length_')-     ) (do-        freeMem length_-     )--data DataInputStreamReadLineUtf8MethodInfo-instance (signature ~ (Maybe (b) -> m ((Maybe T.Text),Word64)), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadLineUtf8MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadLineUtf8---- method DataInputStream::read_uint16--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Word16---dataInputStreamReadUint16 ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Word16                             -- result-dataInputStreamReadUint16 _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_uint16 _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data DataInputStreamReadUint16MethodInfo-instance (signature ~ (Maybe (b) -> m Word16), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUint16MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUint16---- method DataInputStream::read_uint32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Word32---dataInputStreamReadUint32 ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Word32                             -- result-dataInputStreamReadUint32 _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_uint32 _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data DataInputStreamReadUint32MethodInfo-instance (signature ~ (Maybe (b) -> m Word32), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUint32MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUint32---- method DataInputStream::read_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Word64---dataInputStreamReadUint64 ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Word64                             -- result-dataInputStreamReadUint64 _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_uint64 _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data DataInputStreamReadUint64MethodInfo-instance (signature ~ (Maybe (b) -> m Word64), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUint64MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUint64---- method DataInputStream::read_until--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    CString ->                              -- stop_chars : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CString---dataInputStreamReadUntil ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- stopChars-    -> Maybe (b)                            -- cancellable-    -> m (T.Text,Word64)                    -- result-dataInputStreamReadUntil _obj stopChars cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    stopChars' <- textToCString stopChars-    length_ <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_until _obj' stopChars' length_ maybeCancellable-        checkUnexpectedReturnNULL "g_data_input_stream_read_until" result-        result' <- cstringToText result-        freeMem result-        length_' <- peek length_-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem stopChars'-        freeMem length_-        return (result', length_')-     ) (do-        freeMem stopChars'-        freeMem length_-     )--data DataInputStreamReadUntilMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m (T.Text,Word64)), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUntilMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUntil---- method DataInputStream::read_until_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    CString ->                              -- stop_chars : TBasicType TUTF8-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dataInputStreamReadUntilAsync ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- stopChars-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dataInputStreamReadUntilAsync _obj stopChars ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    stopChars' <- textToCString stopChars-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_data_input_stream_read_until_async _obj' stopChars' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem stopChars'-    return ()--data DataInputStreamReadUntilAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUntilAsyncMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUntilAsync---- method DataInputStream::read_until_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString---dataInputStreamReadUntilFinish ::-    (MonadIO m, DataInputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m (T.Text,Word64)                    -- result-dataInputStreamReadUntilFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_data_input_stream_read_until_finish _obj' result_' length_-        checkUnexpectedReturnNULL "g_data_input_stream_read_until_finish" result-        result' <- cstringToText result-        freeMem result-        length_' <- peek length_-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem length_-        return (result', length_')-     ) (do-        freeMem length_-     )--data DataInputStreamReadUntilFinishMethodInfo-instance (signature ~ (b -> m (T.Text,Word64)), MonadIO m, DataInputStreamK a, AsyncResultK b) => MethodInfo DataInputStreamReadUntilFinishMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUntilFinish---- method DataInputStream::read_upto--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    CString ->                              -- stop_chars : TBasicType TUTF8-    Int64 ->                                -- stop_chars_len : TBasicType TInt64-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CString---dataInputStreamReadUpto ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- stopChars-    -> Int64                                -- stopCharsLen-    -> Maybe (b)                            -- cancellable-    -> m (T.Text,Word64)                    -- result-dataInputStreamReadUpto _obj stopChars stopCharsLen cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    stopChars' <- textToCString stopChars-    length_ <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_upto _obj' stopChars' stopCharsLen length_ maybeCancellable-        checkUnexpectedReturnNULL "g_data_input_stream_read_upto" result-        result' <- cstringToText result-        freeMem result-        length_' <- peek length_-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem stopChars'-        freeMem length_-        return (result', length_')-     ) (do-        freeMem stopChars'-        freeMem length_-     )--data DataInputStreamReadUptoMethodInfo-instance (signature ~ (T.Text -> Int64 -> Maybe (b) -> m (T.Text,Word64)), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUptoMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUpto---- method DataInputStream::read_upto_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    CString ->                              -- stop_chars : TBasicType TUTF8-    Int64 ->                                -- stop_chars_len : TBasicType TInt64-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---dataInputStreamReadUptoAsync ::-    (MonadIO m, DataInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- stopChars-    -> Int64                                -- stopCharsLen-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-dataInputStreamReadUptoAsync _obj stopChars stopCharsLen ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    stopChars' <- textToCString stopChars-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_data_input_stream_read_upto_async _obj' stopChars' stopCharsLen ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem stopChars'-    return ()--data DataInputStreamReadUptoAsyncMethodInfo-instance (signature ~ (T.Text -> Int64 -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUptoAsyncMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUptoAsync---- method DataInputStream::read_upto_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString---dataInputStreamReadUptoFinish ::-    (MonadIO m, DataInputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m (T.Text,Word64)                    -- result-dataInputStreamReadUptoFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_data_input_stream_read_upto_finish _obj' result_' length_-        checkUnexpectedReturnNULL "g_data_input_stream_read_upto_finish" result-        result' <- cstringToText result-        freeMem result-        length_' <- peek length_-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem length_-        return (result', length_')-     ) (do-        freeMem length_-     )--data DataInputStreamReadUptoFinishMethodInfo-instance (signature ~ (b -> m (T.Text,Word64)), MonadIO m, DataInputStreamK a, AsyncResultK b) => MethodInfo DataInputStreamReadUptoFinishMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUptoFinish---- method DataInputStream::set_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gio" "DataStreamByteOrder", direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    CUInt ->                                -- order : TInterface "Gio" "DataStreamByteOrder"-    IO ()---dataInputStreamSetByteOrder ::-    (MonadIO m, DataInputStreamK a) =>-    a                                       -- _obj-    -> DataStreamByteOrder                  -- order-    -> m ()                                 -- result-dataInputStreamSetByteOrder _obj order = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let order' = (fromIntegral . fromEnum) order-    g_data_input_stream_set_byte_order _obj' order'-    touchManagedPtr _obj-    return ()--data DataInputStreamSetByteOrderMethodInfo-instance (signature ~ (DataStreamByteOrder -> m ()), MonadIO m, DataInputStreamK a) => MethodInfo DataInputStreamSetByteOrderMethodInfo a signature where-    overloadedMethod _ = dataInputStreamSetByteOrder---- method DataInputStream::set_newline_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "DataStreamNewlineType", direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "DataInputStream"-    CUInt ->                                -- type : TInterface "Gio" "DataStreamNewlineType"-    IO ()---dataInputStreamSetNewlineType ::-    (MonadIO m, DataInputStreamK a) =>-    a                                       -- _obj-    -> DataStreamNewlineType                -- type_-    -> m ()                                 -- result-dataInputStreamSetNewlineType _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    g_data_input_stream_set_newline_type _obj' type_'-    touchManagedPtr _obj-    return ()--data DataInputStreamSetNewlineTypeMethodInfo-instance (signature ~ (DataStreamNewlineType -> m ()), MonadIO m, DataInputStreamK a) => MethodInfo DataInputStreamSetNewlineTypeMethodInfo a signature where-    overloadedMethod _ = dataInputStreamSetNewlineType--
− GI/Gio/Objects/DataInputStream.hs-boot 
@@ -1,37 +0,0 @@-module GI.Gio.Objects.DataInputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DataInputStream = DataInputStream (ForeignPtr DataInputStream)-instance GObject DataInputStream where-class GObject o => DataInputStreamK o-instance (GObject o, IsDescendantOf DataInputStream o) => DataInputStreamK o-data DataInputStreamByteOrderPropertyInfo-data DataInputStreamNewlineTypePropertyInfo-data DataInputStreamGetByteOrderMethodInfo-data DataInputStreamGetNewlineTypeMethodInfo-data DataInputStreamReadByteMethodInfo-data DataInputStreamReadInt16MethodInfo-data DataInputStreamReadInt32MethodInfo-data DataInputStreamReadInt64MethodInfo-data DataInputStreamReadLineMethodInfo-data DataInputStreamReadLineAsyncMethodInfo-data DataInputStreamReadLineFinishMethodInfo-data DataInputStreamReadLineFinishUtf8MethodInfo-data DataInputStreamReadLineUtf8MethodInfo-data DataInputStreamReadUint16MethodInfo-data DataInputStreamReadUint32MethodInfo-data DataInputStreamReadUint64MethodInfo-data DataInputStreamReadUntilMethodInfo-data DataInputStreamReadUntilAsyncMethodInfo-data DataInputStreamReadUntilFinishMethodInfo-data DataInputStreamReadUptoMethodInfo-data DataInputStreamReadUptoAsyncMethodInfo-data DataInputStreamReadUptoFinishMethodInfo-data DataInputStreamSetByteOrderMethodInfo-data DataInputStreamSetNewlineTypeMethodInfo
− GI/Gio/Objects/DataOutputStream.hs 
@@ -1,651 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DataOutputStream-    ( ---- * Exported types-    DataOutputStream(..)                    ,-    DataOutputStreamK                       ,-    toDataOutputStream                      ,-    noDataOutputStream                      ,--- -- * Methods--- ** dataOutputStreamGetByteOrder-    DataOutputStreamGetByteOrderMethodInfo  ,-    dataOutputStreamGetByteOrder            ,----- ** dataOutputStreamNew-    dataOutputStreamNew                     ,----- ** dataOutputStreamPutByte-    DataOutputStreamPutByteMethodInfo       ,-    dataOutputStreamPutByte                 ,----- ** dataOutputStreamPutInt16-    DataOutputStreamPutInt16MethodInfo      ,-    dataOutputStreamPutInt16                ,----- ** dataOutputStreamPutInt32-    DataOutputStreamPutInt32MethodInfo      ,-    dataOutputStreamPutInt32                ,----- ** dataOutputStreamPutInt64-    DataOutputStreamPutInt64MethodInfo      ,-    dataOutputStreamPutInt64                ,----- ** dataOutputStreamPutString-    DataOutputStreamPutStringMethodInfo     ,-    dataOutputStreamPutString               ,----- ** dataOutputStreamPutUint16-    DataOutputStreamPutUint16MethodInfo     ,-    dataOutputStreamPutUint16               ,----- ** dataOutputStreamPutUint32-    DataOutputStreamPutUint32MethodInfo     ,-    dataOutputStreamPutUint32               ,----- ** dataOutputStreamPutUint64-    DataOutputStreamPutUint64MethodInfo     ,-    dataOutputStreamPutUint64               ,----- ** dataOutputStreamSetByteOrder-    DataOutputStreamSetByteOrderMethodInfo  ,-    dataOutputStreamSetByteOrder            ,----- -- * Properties--- ** ByteOrder-    DataOutputStreamByteOrderPropertyInfo   ,-    constructDataOutputStreamByteOrder      ,-    dataOutputStreamByteOrder               ,-    getDataOutputStreamByteOrder            ,-    setDataOutputStreamByteOrder            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype DataOutputStream = DataOutputStream (ForeignPtr DataOutputStream)-foreign import ccall "g_data_output_stream_get_type"-    c_g_data_output_stream_get_type :: IO GType--type instance ParentTypes DataOutputStream = DataOutputStreamParentTypes-type DataOutputStreamParentTypes = '[FilterOutputStream, OutputStream, GObject.Object, Seekable]--instance GObject DataOutputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_data_output_stream_get_type-    --class GObject o => DataOutputStreamK o-instance (GObject o, IsDescendantOf DataOutputStream o) => DataOutputStreamK o--toDataOutputStream :: DataOutputStreamK o => o -> IO DataOutputStream-toDataOutputStream = unsafeCastTo DataOutputStream--noDataOutputStream :: Maybe DataOutputStream-noDataOutputStream = Nothing--type family ResolveDataOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveDataOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDataOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDataOutputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo-    ResolveDataOutputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo-    ResolveDataOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo-    ResolveDataOutputStreamMethod "close" o = OutputStreamCloseMethodInfo-    ResolveDataOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo-    ResolveDataOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo-    ResolveDataOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo-    ResolveDataOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo-    ResolveDataOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo-    ResolveDataOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDataOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDataOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo-    ResolveDataOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo-    ResolveDataOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo-    ResolveDataOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDataOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDataOutputStreamMethod "notifyByPspec" o = GObject.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.ObjectRefMethodInfo-    ResolveDataOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDataOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDataOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDataOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDataOutputStreamMethod "seek" o = SeekableSeekMethodInfo-    ResolveDataOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo-    ResolveDataOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo-    ResolveDataOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo-    ResolveDataOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDataOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDataOutputStreamMethod "tell" o = SeekableTellMethodInfo-    ResolveDataOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDataOutputStreamMethod "truncate" o = SeekableTruncateMethodInfo-    ResolveDataOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDataOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDataOutputStreamMethod "write" o = OutputStreamWriteMethodInfo-    ResolveDataOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo-    ResolveDataOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo-    ResolveDataOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo-    ResolveDataOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo-    ResolveDataOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo-    ResolveDataOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo-    ResolveDataOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo-    ResolveDataOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo-    ResolveDataOutputStreamMethod "getBaseStream" o = FilterOutputStreamGetBaseStreamMethodInfo-    ResolveDataOutputStreamMethod "getByteOrder" o = DataOutputStreamGetByteOrderMethodInfo-    ResolveDataOutputStreamMethod "getCloseBaseStream" o = FilterOutputStreamGetCloseBaseStreamMethodInfo-    ResolveDataOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDataOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDataOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDataOutputStreamMethod "setByteOrder" o = DataOutputStreamSetByteOrderMethodInfo-    ResolveDataOutputStreamMethod "setCloseBaseStream" o = FilterOutputStreamSetCloseBaseStreamMethodInfo-    ResolveDataOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDataOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo-    ResolveDataOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDataOutputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDataOutputStreamMethod t DataOutputStream, MethodInfo info DataOutputStream p) => IsLabelProxy t (DataOutputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDataOutputStreamMethod t DataOutputStream, MethodInfo info DataOutputStream p) => IsLabel t (DataOutputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "byte-order"-   -- Type: TInterface "Gio" "DataStreamByteOrder"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getDataOutputStreamByteOrder :: (MonadIO m, DataOutputStreamK o) => o -> m DataStreamByteOrder-getDataOutputStreamByteOrder obj = liftIO $ getObjectPropertyEnum obj "byte-order"--setDataOutputStreamByteOrder :: (MonadIO m, DataOutputStreamK o) => o -> DataStreamByteOrder -> m ()-setDataOutputStreamByteOrder obj val = liftIO $ setObjectPropertyEnum obj "byte-order" val--constructDataOutputStreamByteOrder :: DataStreamByteOrder -> IO ([Char], GValue)-constructDataOutputStreamByteOrder val = constructObjectPropertyEnum "byte-order" val--data DataOutputStreamByteOrderPropertyInfo-instance AttrInfo DataOutputStreamByteOrderPropertyInfo where-    type AttrAllowedOps DataOutputStreamByteOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DataOutputStreamByteOrderPropertyInfo = (~) DataStreamByteOrder-    type AttrBaseTypeConstraint DataOutputStreamByteOrderPropertyInfo = DataOutputStreamK-    type AttrGetType DataOutputStreamByteOrderPropertyInfo = DataStreamByteOrder-    type AttrLabel DataOutputStreamByteOrderPropertyInfo = "byte-order"-    attrGet _ = getDataOutputStreamByteOrder-    attrSet _ = setDataOutputStreamByteOrder-    attrConstruct _ = constructDataOutputStreamByteOrder-    attrClear _ = undefined--type instance AttributeList DataOutputStream = DataOutputStreamAttributeList-type DataOutputStreamAttributeList = ('[ '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("byteOrder", DataOutputStreamByteOrderPropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])--dataOutputStreamByteOrder :: AttrLabelProxy "byteOrder"-dataOutputStreamByteOrder = AttrLabelProxy--type instance SignalList DataOutputStream = DataOutputStreamSignalList-type DataOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DataOutputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DataOutputStream")--- throws : False--- Skip return : False--foreign import ccall "g_data_output_stream_new" g_data_output_stream_new :: -    Ptr OutputStream ->                     -- base_stream : TInterface "Gio" "OutputStream"-    IO (Ptr DataOutputStream)---dataOutputStreamNew ::-    (MonadIO m, OutputStreamK a) =>-    a                                       -- baseStream-    -> m DataOutputStream                   -- result-dataOutputStreamNew baseStream = liftIO $ do-    let baseStream' = unsafeManagedPtrCastPtr baseStream-    result <- g_data_output_stream_new baseStream'-    checkUnexpectedReturnNULL "g_data_output_stream_new" result-    result' <- (wrapObject DataOutputStream) result-    touchManagedPtr baseStream-    return result'---- method DataOutputStream::get_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                 -- _obj : TInterface "Gio" "DataOutputStream"-    IO CUInt---dataOutputStreamGetByteOrder ::-    (MonadIO m, DataOutputStreamK a) =>-    a                                       -- _obj-    -> m DataStreamByteOrder                -- result-dataOutputStreamGetByteOrder _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_data_output_stream_get_byte_order _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DataOutputStreamGetByteOrderMethodInfo-instance (signature ~ (m DataStreamByteOrder), MonadIO m, DataOutputStreamK a) => MethodInfo DataOutputStreamGetByteOrderMethodInfo a signature where-    overloadedMethod _ = dataOutputStreamGetByteOrder---- method DataOutputStream::put_byte--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                 -- _obj : TInterface "Gio" "DataOutputStream"-    Word8 ->                                -- data : TBasicType TUInt8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dataOutputStreamPutByte ::-    (MonadIO m, DataOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Word8                                -- data_-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-dataOutputStreamPutByte _obj data_ cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_byte _obj' data_ maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data DataOutputStreamPutByteMethodInfo-instance (signature ~ (Word8 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutByteMethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutByte---- method DataOutputStream::put_int16--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                 -- _obj : TInterface "Gio" "DataOutputStream"-    Int16 ->                                -- data : TBasicType TInt16-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dataOutputStreamPutInt16 ::-    (MonadIO m, DataOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Int16                                -- data_-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-dataOutputStreamPutInt16 _obj data_ cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_int16 _obj' data_ maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data DataOutputStreamPutInt16MethodInfo-instance (signature ~ (Int16 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutInt16MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutInt16---- method DataOutputStream::put_int32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                 -- _obj : TInterface "Gio" "DataOutputStream"-    Int32 ->                                -- data : TBasicType TInt32-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dataOutputStreamPutInt32 ::-    (MonadIO m, DataOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- data_-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-dataOutputStreamPutInt32 _obj data_ cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_int32 _obj' data_ maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data DataOutputStreamPutInt32MethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutInt32MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutInt32---- method DataOutputStream::put_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                 -- _obj : TInterface "Gio" "DataOutputStream"-    Int64 ->                                -- data : TBasicType TInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dataOutputStreamPutInt64 ::-    (MonadIO m, DataOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Int64                                -- data_-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-dataOutputStreamPutInt64 _obj data_ cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_int64 _obj' data_ maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data DataOutputStreamPutInt64MethodInfo-instance (signature ~ (Int64 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutInt64MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutInt64---- method DataOutputStream::put_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                 -- _obj : TInterface "Gio" "DataOutputStream"-    CString ->                              -- str : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dataOutputStreamPutString ::-    (MonadIO m, DataOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- str-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-dataOutputStreamPutString _obj str cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    str' <- textToCString str-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_string _obj' str' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem str'-        return ()-     ) (do-        freeMem str'-     )--data DataOutputStreamPutStringMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutStringMethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutString---- method DataOutputStream::put_uint16--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                 -- _obj : TInterface "Gio" "DataOutputStream"-    Word16 ->                               -- data : TBasicType TUInt16-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dataOutputStreamPutUint16 ::-    (MonadIO m, DataOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Word16                               -- data_-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-dataOutputStreamPutUint16 _obj data_ cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_uint16 _obj' data_ maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data DataOutputStreamPutUint16MethodInfo-instance (signature ~ (Word16 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutUint16MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutUint16---- method DataOutputStream::put_uint32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                 -- _obj : TInterface "Gio" "DataOutputStream"-    Word32 ->                               -- data : TBasicType TUInt32-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dataOutputStreamPutUint32 ::-    (MonadIO m, DataOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Word32                               -- data_-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-dataOutputStreamPutUint32 _obj data_ cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_uint32 _obj' data_ maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data DataOutputStreamPutUint32MethodInfo-instance (signature ~ (Word32 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutUint32MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutUint32---- method DataOutputStream::put_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                 -- _obj : TInterface "Gio" "DataOutputStream"-    Word64 ->                               -- data : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---dataOutputStreamPutUint64 ::-    (MonadIO m, DataOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Word64                               -- data_-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-dataOutputStreamPutUint64 _obj data_ cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_uint64 _obj' data_ maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data DataOutputStreamPutUint64MethodInfo-instance (signature ~ (Word64 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutUint64MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutUint64---- method DataOutputStream::set_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gio" "DataStreamByteOrder", direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "DataOutputStream"-    CUInt ->                                -- order : TInterface "Gio" "DataStreamByteOrder"-    IO ()---dataOutputStreamSetByteOrder ::-    (MonadIO m, DataOutputStreamK a) =>-    a                                       -- _obj-    -> DataStreamByteOrder                  -- order-    -> m ()                                 -- result-dataOutputStreamSetByteOrder _obj order = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let order' = (fromIntegral . fromEnum) order-    g_data_output_stream_set_byte_order _obj' order'-    touchManagedPtr _obj-    return ()--data DataOutputStreamSetByteOrderMethodInfo-instance (signature ~ (DataStreamByteOrder -> m ()), MonadIO m, DataOutputStreamK a) => MethodInfo DataOutputStreamSetByteOrderMethodInfo a signature where-    overloadedMethod _ = dataOutputStreamSetByteOrder--
− GI/Gio/Objects/DataOutputStream.hs-boot 
@@ -1,24 +0,0 @@-module GI.Gio.Objects.DataOutputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DataOutputStream = DataOutputStream (ForeignPtr DataOutputStream)-instance GObject DataOutputStream where-class GObject o => DataOutputStreamK o-instance (GObject o, IsDescendantOf DataOutputStream o) => DataOutputStreamK o-data DataOutputStreamByteOrderPropertyInfo-data DataOutputStreamGetByteOrderMethodInfo-data DataOutputStreamPutByteMethodInfo-data DataOutputStreamPutInt16MethodInfo-data DataOutputStreamPutInt32MethodInfo-data DataOutputStreamPutInt64MethodInfo-data DataOutputStreamPutStringMethodInfo-data DataOutputStreamPutUint16MethodInfo-data DataOutputStreamPutUint32MethodInfo-data DataOutputStreamPutUint64MethodInfo-data DataOutputStreamSetByteOrderMethodInfo
− GI/Gio/Objects/DesktopAppInfo.hs 
@@ -1,865 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.DesktopAppInfo-    ( ---- * Exported types-    DesktopAppInfo(..)                      ,-    DesktopAppInfoK                         ,-    toDesktopAppInfo                        ,-    noDesktopAppInfo                        ,--- -- * Methods--- ** Unsupported methods-    DesktopAppInfoLaunchUrisAsManagerMethodInfo,----- ** desktopAppInfoGetActionName-    DesktopAppInfoGetActionNameMethodInfo   ,-    desktopAppInfoGetActionName             ,----- ** desktopAppInfoGetBoolean-    DesktopAppInfoGetBooleanMethodInfo      ,-    desktopAppInfoGetBoolean                ,----- ** desktopAppInfoGetCategories-    DesktopAppInfoGetCategoriesMethodInfo   ,-    desktopAppInfoGetCategories             ,----- ** desktopAppInfoGetFilename-    DesktopAppInfoGetFilenameMethodInfo     ,-    desktopAppInfoGetFilename               ,----- ** desktopAppInfoGetGenericName-    DesktopAppInfoGetGenericNameMethodInfo  ,-    desktopAppInfoGetGenericName            ,----- ** desktopAppInfoGetImplementations-    desktopAppInfoGetImplementations        ,----- ** desktopAppInfoGetIsHidden-    DesktopAppInfoGetIsHiddenMethodInfo     ,-    desktopAppInfoGetIsHidden               ,----- ** desktopAppInfoGetKeywords-    DesktopAppInfoGetKeywordsMethodInfo     ,-    desktopAppInfoGetKeywords               ,----- ** desktopAppInfoGetNodisplay-    DesktopAppInfoGetNodisplayMethodInfo    ,-    desktopAppInfoGetNodisplay              ,----- ** desktopAppInfoGetShowIn-    DesktopAppInfoGetShowInMethodInfo       ,-    desktopAppInfoGetShowIn                 ,----- ** desktopAppInfoGetStartupWmClass-    DesktopAppInfoGetStartupWmClassMethodInfo,-    desktopAppInfoGetStartupWmClass         ,----- ** desktopAppInfoGetString-    DesktopAppInfoGetStringMethodInfo       ,-    desktopAppInfoGetString                 ,----- ** desktopAppInfoHasKey-    DesktopAppInfoHasKeyMethodInfo          ,-    desktopAppInfoHasKey                    ,----- ** desktopAppInfoLaunchAction-    DesktopAppInfoLaunchActionMethodInfo    ,-    desktopAppInfoLaunchAction              ,----- ** desktopAppInfoListActions-    DesktopAppInfoListActionsMethodInfo     ,-    desktopAppInfoListActions               ,----- ** desktopAppInfoNew-    desktopAppInfoNew                       ,----- ** desktopAppInfoNewFromFilename-    desktopAppInfoNewFromFilename           ,----- ** desktopAppInfoNewFromKeyfile-    desktopAppInfoNewFromKeyfile            ,----- ** desktopAppInfoSearch-    desktopAppInfoSearch                    ,----- ** desktopAppInfoSetDesktopEnv-    desktopAppInfoSetDesktopEnv             ,----- -- * Properties--- ** Filename-    DesktopAppInfoFilenamePropertyInfo      ,-    constructDesktopAppInfoFilename         ,-    desktopAppInfoFilename                  ,-    getDesktopAppInfoFilename               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype DesktopAppInfo = DesktopAppInfo (ForeignPtr DesktopAppInfo)-foreign import ccall "g_desktop_app_info_get_type"-    c_g_desktop_app_info_get_type :: IO GType--type instance ParentTypes DesktopAppInfo = DesktopAppInfoParentTypes-type DesktopAppInfoParentTypes = '[GObject.Object, AppInfo]--instance GObject DesktopAppInfo where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_desktop_app_info_get_type-    --class GObject o => DesktopAppInfoK o-instance (GObject o, IsDescendantOf DesktopAppInfo o) => DesktopAppInfoK o--toDesktopAppInfo :: DesktopAppInfoK o => o -> IO DesktopAppInfo-toDesktopAppInfo = unsafeCastTo DesktopAppInfo--noDesktopAppInfo :: Maybe DesktopAppInfo-noDesktopAppInfo = Nothing--type family ResolveDesktopAppInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDesktopAppInfoMethod "addSupportsType" o = AppInfoAddSupportsTypeMethodInfo-    ResolveDesktopAppInfoMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDesktopAppInfoMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDesktopAppInfoMethod "canDelete" o = AppInfoCanDeleteMethodInfo-    ResolveDesktopAppInfoMethod "canRemoveSupportsType" o = AppInfoCanRemoveSupportsTypeMethodInfo-    ResolveDesktopAppInfoMethod "delete" o = AppInfoDeleteMethodInfo-    ResolveDesktopAppInfoMethod "dup" o = AppInfoDupMethodInfo-    ResolveDesktopAppInfoMethod "equal" o = AppInfoEqualMethodInfo-    ResolveDesktopAppInfoMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDesktopAppInfoMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDesktopAppInfoMethod "hasKey" o = DesktopAppInfoHasKeyMethodInfo-    ResolveDesktopAppInfoMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDesktopAppInfoMethod "launch" o = AppInfoLaunchMethodInfo-    ResolveDesktopAppInfoMethod "launchAction" o = DesktopAppInfoLaunchActionMethodInfo-    ResolveDesktopAppInfoMethod "launchUris" o = AppInfoLaunchUrisMethodInfo-    ResolveDesktopAppInfoMethod "launchUrisAsManager" o = DesktopAppInfoLaunchUrisAsManagerMethodInfo-    ResolveDesktopAppInfoMethod "listActions" o = DesktopAppInfoListActionsMethodInfo-    ResolveDesktopAppInfoMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDesktopAppInfoMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDesktopAppInfoMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDesktopAppInfoMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDesktopAppInfoMethod "removeSupportsType" o = AppInfoRemoveSupportsTypeMethodInfo-    ResolveDesktopAppInfoMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDesktopAppInfoMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDesktopAppInfoMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDesktopAppInfoMethod "shouldShow" o = AppInfoShouldShowMethodInfo-    ResolveDesktopAppInfoMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDesktopAppInfoMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDesktopAppInfoMethod "supportsFiles" o = AppInfoSupportsFilesMethodInfo-    ResolveDesktopAppInfoMethod "supportsUris" o = AppInfoSupportsUrisMethodInfo-    ResolveDesktopAppInfoMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDesktopAppInfoMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDesktopAppInfoMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDesktopAppInfoMethod "getActionName" o = DesktopAppInfoGetActionNameMethodInfo-    ResolveDesktopAppInfoMethod "getBoolean" o = DesktopAppInfoGetBooleanMethodInfo-    ResolveDesktopAppInfoMethod "getCategories" o = DesktopAppInfoGetCategoriesMethodInfo-    ResolveDesktopAppInfoMethod "getCommandline" o = AppInfoGetCommandlineMethodInfo-    ResolveDesktopAppInfoMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDesktopAppInfoMethod "getDescription" o = AppInfoGetDescriptionMethodInfo-    ResolveDesktopAppInfoMethod "getDisplayName" o = AppInfoGetDisplayNameMethodInfo-    ResolveDesktopAppInfoMethod "getExecutable" o = AppInfoGetExecutableMethodInfo-    ResolveDesktopAppInfoMethod "getFilename" o = DesktopAppInfoGetFilenameMethodInfo-    ResolveDesktopAppInfoMethod "getGenericName" o = DesktopAppInfoGetGenericNameMethodInfo-    ResolveDesktopAppInfoMethod "getIcon" o = AppInfoGetIconMethodInfo-    ResolveDesktopAppInfoMethod "getId" o = AppInfoGetIdMethodInfo-    ResolveDesktopAppInfoMethod "getIsHidden" o = DesktopAppInfoGetIsHiddenMethodInfo-    ResolveDesktopAppInfoMethod "getKeywords" o = DesktopAppInfoGetKeywordsMethodInfo-    ResolveDesktopAppInfoMethod "getName" o = AppInfoGetNameMethodInfo-    ResolveDesktopAppInfoMethod "getNodisplay" o = DesktopAppInfoGetNodisplayMethodInfo-    ResolveDesktopAppInfoMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDesktopAppInfoMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDesktopAppInfoMethod "getShowIn" o = DesktopAppInfoGetShowInMethodInfo-    ResolveDesktopAppInfoMethod "getStartupWmClass" o = DesktopAppInfoGetStartupWmClassMethodInfo-    ResolveDesktopAppInfoMethod "getString" o = DesktopAppInfoGetStringMethodInfo-    ResolveDesktopAppInfoMethod "getSupportedTypes" o = AppInfoGetSupportedTypesMethodInfo-    ResolveDesktopAppInfoMethod "setAsDefaultForExtension" o = AppInfoSetAsDefaultForExtensionMethodInfo-    ResolveDesktopAppInfoMethod "setAsDefaultForType" o = AppInfoSetAsDefaultForTypeMethodInfo-    ResolveDesktopAppInfoMethod "setAsLastUsedForType" o = AppInfoSetAsLastUsedForTypeMethodInfo-    ResolveDesktopAppInfoMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDesktopAppInfoMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDesktopAppInfoMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDesktopAppInfoMethod t DesktopAppInfo, MethodInfo info DesktopAppInfo p) => IsLabelProxy t (DesktopAppInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDesktopAppInfoMethod t DesktopAppInfo, MethodInfo info DesktopAppInfo p) => IsLabel t (DesktopAppInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "filename"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getDesktopAppInfoFilename :: (MonadIO m, DesktopAppInfoK o) => o -> m T.Text-getDesktopAppInfoFilename obj = liftIO $ checkUnexpectedNothing "getDesktopAppInfoFilename" $ getObjectPropertyString obj "filename"--constructDesktopAppInfoFilename :: T.Text -> IO ([Char], GValue)-constructDesktopAppInfoFilename val = constructObjectPropertyString "filename" (Just val)--data DesktopAppInfoFilenamePropertyInfo-instance AttrInfo DesktopAppInfoFilenamePropertyInfo where-    type AttrAllowedOps DesktopAppInfoFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DesktopAppInfoFilenamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DesktopAppInfoFilenamePropertyInfo = DesktopAppInfoK-    type AttrGetType DesktopAppInfoFilenamePropertyInfo = T.Text-    type AttrLabel DesktopAppInfoFilenamePropertyInfo = "filename"-    attrGet _ = getDesktopAppInfoFilename-    attrSet _ = undefined-    attrConstruct _ = constructDesktopAppInfoFilename-    attrClear _ = undefined--type instance AttributeList DesktopAppInfo = DesktopAppInfoAttributeList-type DesktopAppInfoAttributeList = ('[ '("filename", DesktopAppInfoFilenamePropertyInfo)] :: [(Symbol, *)])--desktopAppInfoFilename :: AttrLabelProxy "filename"-desktopAppInfoFilename = AttrLabelProxy--type instance SignalList DesktopAppInfo = DesktopAppInfoSignalList-type DesktopAppInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DesktopAppInfo::new--- method type : Constructor--- Args : [Arg {argCName = "desktop_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---desktopAppInfoNew ::-    (MonadIO m) =>-    T.Text                                  -- desktopId-    -> m DesktopAppInfo                     -- result-desktopAppInfoNew desktopId = liftIO $ do-    desktopId' <- textToCString desktopId-    result <- g_desktop_app_info_new desktopId'-    checkUnexpectedReturnNULL "g_desktop_app_info_new" result-    result' <- (wrapObject DesktopAppInfo) result-    freeMem desktopId'-    return result'---- method DesktopAppInfo::new_from_filename--- method type : Constructor--- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 TUTF8-    IO (Ptr DesktopAppInfo)---desktopAppInfoNewFromFilename ::-    (MonadIO m) =>-    T.Text                                  -- filename-    -> m DesktopAppInfo                     -- result-desktopAppInfoNewFromFilename filename = liftIO $ do-    filename' <- textToCString filename-    result <- g_desktop_app_info_new_from_filename filename'-    checkUnexpectedReturnNULL "g_desktop_app_info_new_from_filename" result-    result' <- (wrapObject DesktopAppInfo) result-    freeMem filename'-    return result'---- method DesktopAppInfo::new_from_keyfile--- method type : Constructor--- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                     -- key_file : TInterface "GLib" "KeyFile"-    IO (Ptr DesktopAppInfo)---desktopAppInfoNewFromKeyfile ::-    (MonadIO m) =>-    GLib.KeyFile                            -- keyFile-    -> m DesktopAppInfo                     -- result-desktopAppInfoNewFromKeyfile keyFile = liftIO $ do-    let keyFile' = unsafeManagedPtrGetPtr keyFile-    result <- g_desktop_app_info_new_from_keyfile keyFile'-    checkUnexpectedReturnNULL "g_desktop_app_info_new_from_keyfile" result-    result' <- (wrapObject DesktopAppInfo) result-    touchManagedPtr keyFile-    return result'---- method DesktopAppInfo::get_action_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    CString ->                              -- action_name : TBasicType TUTF8-    IO CString---desktopAppInfoGetActionName ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m T.Text                             -- result-desktopAppInfoGetActionName _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    result <- g_desktop_app_info_get_action_name _obj' actionName'-    checkUnexpectedReturnNULL "g_desktop_app_info_get_action_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem actionName'-    return result'--data DesktopAppInfoGetActionNameMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetActionNameMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetActionName---- method DesktopAppInfo::get_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    CString ->                              -- key : TBasicType TUTF8-    IO CInt---desktopAppInfoGetBoolean ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m Bool                               -- result-desktopAppInfoGetBoolean _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_desktop_app_info_get_boolean _obj' key'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data DesktopAppInfoGetBooleanMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetBooleanMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetBoolean---- method DesktopAppInfo::get_categories--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    IO CString---desktopAppInfoGetCategories ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-desktopAppInfoGetCategories _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_desktop_app_info_get_categories _obj'-    checkUnexpectedReturnNULL "g_desktop_app_info_get_categories" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DesktopAppInfoGetCategoriesMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetCategoriesMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetCategories---- method DesktopAppInfo::get_filename--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, 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_filename" g_desktop_app_info_get_filename :: -    Ptr DesktopAppInfo ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    IO CString---desktopAppInfoGetFilename ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-desktopAppInfoGetFilename _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_desktop_app_info_get_filename _obj'-    checkUnexpectedReturnNULL "g_desktop_app_info_get_filename" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DesktopAppInfoGetFilenameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetFilenameMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetFilename---- method DesktopAppInfo::get_generic_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    IO CString---desktopAppInfoGetGenericName ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-desktopAppInfoGetGenericName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_desktop_app_info_get_generic_name _obj'-    checkUnexpectedReturnNULL "g_desktop_app_info_get_generic_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DesktopAppInfoGetGenericNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetGenericNameMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetGenericName---- method DesktopAppInfo::get_is_hidden--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    IO CInt---desktopAppInfoGetIsHidden ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-desktopAppInfoGetIsHidden _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_desktop_app_info_get_is_hidden _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DesktopAppInfoGetIsHiddenMethodInfo-instance (signature ~ (m Bool), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetIsHiddenMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetIsHidden---- method DesktopAppInfo::get_keywords--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    IO (Ptr CString)---desktopAppInfoGetKeywords ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-desktopAppInfoGetKeywords _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_desktop_app_info_get_keywords _obj'-    checkUnexpectedReturnNULL "g_desktop_app_info_get_keywords" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'--data DesktopAppInfoGetKeywordsMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetKeywordsMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetKeywords---- method DesktopAppInfo::get_nodisplay--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    IO CInt---desktopAppInfoGetNodisplay ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-desktopAppInfoGetNodisplay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_desktop_app_info_get_nodisplay _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DesktopAppInfoGetNodisplayMethodInfo-instance (signature ~ (m Bool), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetNodisplayMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetNodisplay---- method DesktopAppInfo::get_show_in--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desktop_env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    CString ->                              -- desktop_env : TBasicType TUTF8-    IO CInt---desktopAppInfoGetShowIn ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- desktopEnv-    -> m Bool                               -- result-desktopAppInfoGetShowIn _obj desktopEnv = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeDesktopEnv <- case desktopEnv of-        Nothing -> return nullPtr-        Just jDesktopEnv -> do-            jDesktopEnv' <- textToCString jDesktopEnv-            return jDesktopEnv'-    result <- g_desktop_app_info_get_show_in _obj' maybeDesktopEnv-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem maybeDesktopEnv-    return result'--data DesktopAppInfoGetShowInMethodInfo-instance (signature ~ (Maybe (T.Text) -> m Bool), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetShowInMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetShowIn---- method DesktopAppInfo::get_startup_wm_class--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    IO CString---desktopAppInfoGetStartupWmClass ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-desktopAppInfoGetStartupWmClass _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_desktop_app_info_get_startup_wm_class _obj'-    checkUnexpectedReturnNULL "g_desktop_app_info_get_startup_wm_class" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DesktopAppInfoGetStartupWmClassMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetStartupWmClassMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetStartupWmClass---- method DesktopAppInfo::get_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    CString ->                              -- key : TBasicType TUTF8-    IO CString---desktopAppInfoGetString ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m T.Text                             -- result-desktopAppInfoGetString _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_desktop_app_info_get_string _obj' key'-    checkUnexpectedReturnNULL "g_desktop_app_info_get_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem key'-    return result'--data DesktopAppInfoGetStringMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetStringMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetString---- method DesktopAppInfo::has_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    CString ->                              -- key : TBasicType TUTF8-    IO CInt---desktopAppInfoHasKey ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m Bool                               -- result-desktopAppInfoHasKey _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_desktop_app_info_has_key _obj' key'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data DesktopAppInfoHasKeyMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoHasKeyMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoHasKey---- method DesktopAppInfo::launch_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr AppLaunchContext ->                 -- launch_context : TInterface "Gio" "AppLaunchContext"-    IO ()---desktopAppInfoLaunchAction ::-    (MonadIO m, DesktopAppInfoK a, AppLaunchContextK b) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> Maybe (b)                            -- launchContext-    -> m ()                                 -- result-desktopAppInfoLaunchAction _obj actionName launchContext = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    maybeLaunchContext <- case launchContext of-        Nothing -> return nullPtr-        Just jLaunchContext -> do-            let jLaunchContext' = unsafeManagedPtrCastPtr jLaunchContext-            return jLaunchContext'-    g_desktop_app_info_launch_action _obj' actionName' maybeLaunchContext-    touchManagedPtr _obj-    whenJust launchContext touchManagedPtr-    freeMem actionName'-    return ()--data DesktopAppInfoLaunchActionMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, DesktopAppInfoK a, AppLaunchContextK b) => MethodInfo DesktopAppInfoLaunchActionMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoLaunchAction---- 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  , args =\n      [ Arg\n          { argCName = \"_obj\"\n          , argType = TInterface \"Gio\" \"DesktopAppInfo\"\n          , direction = DirectionIn\n          , mayBeNull = False\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          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"launch_context\"\n          , argType = TInterface \"Gio\" \"AppLaunchContext\"\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"spawn_flags\"\n          , argType = TInterface \"GLib\" \"SpawnFlags\"\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"user_setup\"\n          , argType = TInterface \"GLib\" \"SpawnChildSetupFunc\"\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argScope = ScopeTypeCall\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          , argScope = ScopeTypeInvalid\n          , argClosure = 4\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"pid_callback\"\n          , argType = TInterface \"Gio\" \"DesktopAppLaunchCallback\"\n          , direction = DirectionIn\n          , mayBeNull = True\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          , argScope = ScopeTypeInvalid\n          , argClosure = 6\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      ]\n  , skipReturn = False\n  , callableDeprecated = Nothing\n  }\nfromList\n  [ ( 5\n    , Arg\n        { argCName = \"user_setup\"\n        , argType = TInterface \"GLib\" \"SpawnChildSetupFunc\"\n        , direction = DirectionIn\n        , mayBeNull = True\n        , argScope = ScopeTypeCall\n        , argClosure = 5\n        , argDestroy = -1\n        , argCallerAllocates = False\n        , transfer = TransferNothing\n        }\n    )\n  , ( 7\n    , Arg\n        { argCName = \"pid_callback\"\n        , argType = TInterface \"Gio\" \"DesktopAppLaunchCallback\"\n        , direction = DirectionIn\n        , mayBeNull = True\n        , argScope = ScopeTypeCall\n        , argClosure = 7\n        , argDestroy = -1\n        , argCallerAllocates = False\n        , transfer = TransferNothing\n        }\n    )\n  ]\n4"--- XXX: Dummy instance, since code generation failed.--- Please file a bug at http://github.com/haskell-gi/haskell-gi.-data DesktopAppInfoLaunchUrisAsManagerMethodInfo-instance (p ~ (), o ~ MethodResolutionFailed "launchUrisAsManager" DesktopAppInfo) => MethodInfo DesktopAppInfoLaunchUrisAsManagerMethodInfo o p where-    overloadedMethod _ = undefined--- method DesktopAppInfo::list_actions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DesktopAppInfo"-    IO (Ptr CString)---desktopAppInfoListActions ::-    (MonadIO m, DesktopAppInfoK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-desktopAppInfoListActions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_desktop_app_info_list_actions _obj'-    checkUnexpectedReturnNULL "g_desktop_app_info_list_actions" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'--data DesktopAppInfoListActionsMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoListActionsMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoListActions---- method DesktopAppInfo::get_implementations--- method type : MemberFunction--- Args : [Arg {argCName = "interface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "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)))---desktopAppInfoGetImplementations ::-    (MonadIO m) =>-    T.Text                                  -- interface-    -> m [DesktopAppInfo]                   -- result-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''---- method DesktopAppInfo::search--- method type : MemberFunction--- Args : [Arg {argCName = "search_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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))---desktopAppInfoSearch ::-    (MonadIO m) =>-    T.Text                                  -- searchString-    -> m [[T.Text]]                         -- result-desktopAppInfoSearch searchString = liftIO $ do-    searchString' <- textToCString searchString-    result <- g_desktop_app_info_search searchString'-    checkUnexpectedReturnNULL "g_desktop_app_info_search" 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''---- method DesktopAppInfo::set_desktop_env--- method type : MemberFunction--- Args : [Arg {argCName = "desktop_env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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."]#-}-desktopAppInfoSetDesktopEnv ::-    (MonadIO m) =>-    T.Text                                  -- desktopEnv-    -> m ()                                 -- result-desktopAppInfoSetDesktopEnv desktopEnv = liftIO $ do-    desktopEnv' <- textToCString desktopEnv-    g_desktop_app_info_set_desktop_env desktopEnv'-    freeMem desktopEnv'-    return ()--
− GI/Gio/Objects/DesktopAppInfo.hs-boot 
@@ -1,29 +0,0 @@-module GI.Gio.Objects.DesktopAppInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DesktopAppInfo = DesktopAppInfo (ForeignPtr DesktopAppInfo)-instance GObject DesktopAppInfo where-class GObject o => DesktopAppInfoK o-instance (GObject o, IsDescendantOf DesktopAppInfo o) => DesktopAppInfoK o-data DesktopAppInfoFilenamePropertyInfo-data DesktopAppInfoGetActionNameMethodInfo-data DesktopAppInfoGetBooleanMethodInfo-data DesktopAppInfoGetCategoriesMethodInfo-data DesktopAppInfoGetFilenameMethodInfo-data DesktopAppInfoGetGenericNameMethodInfo-data DesktopAppInfoGetIsHiddenMethodInfo-data DesktopAppInfoGetKeywordsMethodInfo-data DesktopAppInfoGetNodisplayMethodInfo-data DesktopAppInfoGetShowInMethodInfo-data DesktopAppInfoGetStartupWmClassMethodInfo-data DesktopAppInfoGetStringMethodInfo-data DesktopAppInfoHasKeyMethodInfo-data DesktopAppInfoLaunchActionMethodInfo-data DesktopAppInfoLaunchUrisAsManagerMethodInfo-data DesktopAppInfoListActionsMethodInfo
− GI/Gio/Objects/Emblem.hs 
@@ -1,297 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Emblem-    ( ---- * Exported types-    Emblem(..)                              ,-    EmblemK                                 ,-    toEmblem                                ,-    noEmblem                                ,--- -- * Methods--- ** emblemGetIcon-    EmblemGetIconMethodInfo                 ,-    emblemGetIcon                           ,----- ** emblemGetOrigin-    EmblemGetOriginMethodInfo               ,-    emblemGetOrigin                         ,----- ** emblemNew-    emblemNew                               ,----- ** emblemNewWithOrigin-    emblemNewWithOrigin                     ,----- -- * Properties--- ** Icon-    EmblemIconPropertyInfo                  ,-    constructEmblemIcon                     ,-    emblemIcon                              ,-    getEmblemIcon                           ,----- ** Origin-    EmblemOriginPropertyInfo                ,-    constructEmblemOrigin                   ,-    emblemOrigin                            ,-    getEmblemOrigin                         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype Emblem = Emblem (ForeignPtr Emblem)-foreign import ccall "g_emblem_get_type"-    c_g_emblem_get_type :: IO GType--type instance ParentTypes Emblem = EmblemParentTypes-type EmblemParentTypes = '[GObject.Object, Icon]--instance GObject Emblem where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_emblem_get_type-    --class GObject o => EmblemK o-instance (GObject o, IsDescendantOf Emblem o) => EmblemK o--toEmblem :: EmblemK o => o -> IO Emblem-toEmblem = unsafeCastTo Emblem--noEmblem :: Maybe Emblem-noEmblem = Nothing--type family ResolveEmblemMethod (t :: Symbol) (o :: *) :: * where-    ResolveEmblemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveEmblemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveEmblemMethod "equal" o = IconEqualMethodInfo-    ResolveEmblemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveEmblemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveEmblemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveEmblemMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveEmblemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveEmblemMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveEmblemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveEmblemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveEmblemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveEmblemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveEmblemMethod "serialize" o = IconSerializeMethodInfo-    ResolveEmblemMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveEmblemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveEmblemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveEmblemMethod "toString" o = IconToStringMethodInfo-    ResolveEmblemMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveEmblemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveEmblemMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveEmblemMethod "getIcon" o = EmblemGetIconMethodInfo-    ResolveEmblemMethod "getOrigin" o = EmblemGetOriginMethodInfo-    ResolveEmblemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveEmblemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveEmblemMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveEmblemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveEmblemMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEmblemMethod t Emblem, MethodInfo info Emblem p) => IsLabelProxy t (Emblem -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEmblemMethod t Emblem, MethodInfo info Emblem p) => IsLabel t (Emblem -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "icon"-   -- Type: TInterface "GObject" "Object"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getEmblemIcon :: (MonadIO m, EmblemK o) => o -> m (Maybe GObject.Object)-getEmblemIcon obj = liftIO $ getObjectPropertyObject obj "icon" GObject.Object--constructEmblemIcon :: (GObject.ObjectK a) => a -> IO ([Char], GValue)-constructEmblemIcon val = constructObjectPropertyObject "icon" (Just val)--data EmblemIconPropertyInfo-instance AttrInfo EmblemIconPropertyInfo where-    type AttrAllowedOps EmblemIconPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EmblemIconPropertyInfo = GObject.ObjectK-    type AttrBaseTypeConstraint EmblemIconPropertyInfo = EmblemK-    type AttrGetType EmblemIconPropertyInfo = (Maybe GObject.Object)-    type AttrLabel EmblemIconPropertyInfo = "icon"-    attrGet _ = getEmblemIcon-    attrSet _ = undefined-    attrConstruct _ = constructEmblemIcon-    attrClear _ = undefined---- VVV Prop "origin"-   -- Type: TInterface "Gio" "EmblemOrigin"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getEmblemOrigin :: (MonadIO m, EmblemK o) => o -> m EmblemOrigin-getEmblemOrigin obj = liftIO $ getObjectPropertyEnum obj "origin"--constructEmblemOrigin :: EmblemOrigin -> IO ([Char], GValue)-constructEmblemOrigin val = constructObjectPropertyEnum "origin" val--data EmblemOriginPropertyInfo-instance AttrInfo EmblemOriginPropertyInfo where-    type AttrAllowedOps EmblemOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint EmblemOriginPropertyInfo = (~) EmblemOrigin-    type AttrBaseTypeConstraint EmblemOriginPropertyInfo = EmblemK-    type AttrGetType EmblemOriginPropertyInfo = EmblemOrigin-    type AttrLabel EmblemOriginPropertyInfo = "origin"-    attrGet _ = getEmblemOrigin-    attrSet _ = undefined-    attrConstruct _ = constructEmblemOrigin-    attrClear _ = undefined--type instance AttributeList Emblem = EmblemAttributeList-type EmblemAttributeList = ('[ '("icon", EmblemIconPropertyInfo), '("origin", EmblemOriginPropertyInfo)] :: [(Symbol, *)])--emblemIcon :: AttrLabelProxy "icon"-emblemIcon = AttrLabelProxy--emblemOrigin :: AttrLabelProxy "origin"-emblemOrigin = AttrLabelProxy--type instance SignalList Emblem = EmblemSignalList-type EmblemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Emblem::new--- method type : Constructor--- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Emblem")--- throws : False--- Skip return : False--foreign import ccall "g_emblem_new" g_emblem_new :: -    Ptr Icon ->                             -- icon : TInterface "Gio" "Icon"-    IO (Ptr Emblem)---emblemNew ::-    (MonadIO m, IconK a) =>-    a                                       -- icon-    -> m Emblem                             -- result-emblemNew icon = liftIO $ do-    let icon' = unsafeManagedPtrCastPtr icon-    result <- g_emblem_new icon'-    checkUnexpectedReturnNULL "g_emblem_new" result-    result' <- (wrapObject Emblem) result-    touchManagedPtr icon-    return result'---- method Emblem::new_with_origin--- method type : Constructor--- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TInterface "Gio" "EmblemOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Emblem")--- throws : False--- Skip return : False--foreign import ccall "g_emblem_new_with_origin" g_emblem_new_with_origin :: -    Ptr Icon ->                             -- icon : TInterface "Gio" "Icon"-    CUInt ->                                -- origin : TInterface "Gio" "EmblemOrigin"-    IO (Ptr Emblem)---emblemNewWithOrigin ::-    (MonadIO m, IconK a) =>-    a                                       -- icon-    -> EmblemOrigin                         -- origin-    -> m Emblem                             -- result-emblemNewWithOrigin icon origin = liftIO $ do-    let icon' = unsafeManagedPtrCastPtr icon-    let origin' = (fromIntegral . fromEnum) origin-    result <- g_emblem_new_with_origin icon' origin'-    checkUnexpectedReturnNULL "g_emblem_new_with_origin" result-    result' <- (wrapObject Emblem) result-    touchManagedPtr icon-    return result'---- method Emblem::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_emblem_get_icon" g_emblem_get_icon :: -    Ptr Emblem ->                           -- _obj : TInterface "Gio" "Emblem"-    IO (Ptr Icon)---emblemGetIcon ::-    (MonadIO m, EmblemK a) =>-    a                                       -- _obj-    -> m Icon                               -- result-emblemGetIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_emblem_get_icon _obj'-    checkUnexpectedReturnNULL "g_emblem_get_icon" result-    result' <- (newObject Icon) result-    touchManagedPtr _obj-    return result'--data EmblemGetIconMethodInfo-instance (signature ~ (m Icon), MonadIO m, EmblemK a) => MethodInfo EmblemGetIconMethodInfo a signature where-    overloadedMethod _ = emblemGetIcon---- method Emblem::get_origin--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "EmblemOrigin")--- throws : False--- Skip return : False--foreign import ccall "g_emblem_get_origin" g_emblem_get_origin :: -    Ptr Emblem ->                           -- _obj : TInterface "Gio" "Emblem"-    IO CUInt---emblemGetOrigin ::-    (MonadIO m, EmblemK a) =>-    a                                       -- _obj-    -> m EmblemOrigin                       -- result-emblemGetOrigin _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_emblem_get_origin _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data EmblemGetOriginMethodInfo-instance (signature ~ (m EmblemOrigin), MonadIO m, EmblemK a) => MethodInfo EmblemGetOriginMethodInfo a signature where-    overloadedMethod _ = emblemGetOrigin--
− GI/Gio/Objects/Emblem.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.Emblem where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Emblem = Emblem (ForeignPtr Emblem)-instance GObject Emblem where-class GObject o => EmblemK o-instance (GObject o, IsDescendantOf Emblem o) => EmblemK o-data EmblemIconPropertyInfo-data EmblemOriginPropertyInfo-data EmblemGetIconMethodInfo-data EmblemGetOriginMethodInfo
− GI/Gio/Objects/EmblemedIcon.hs 
@@ -1,311 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.EmblemedIcon-    ( ---- * Exported types-    EmblemedIcon(..)                        ,-    EmblemedIconK                           ,-    toEmblemedIcon                          ,-    noEmblemedIcon                          ,--- -- * Methods--- ** emblemedIconAddEmblem-    EmblemedIconAddEmblemMethodInfo         ,-    emblemedIconAddEmblem                   ,----- ** emblemedIconClearEmblems-    EmblemedIconClearEmblemsMethodInfo      ,-    emblemedIconClearEmblems                ,----- ** emblemedIconGetEmblems-    EmblemedIconGetEmblemsMethodInfo        ,-    emblemedIconGetEmblems                  ,----- ** emblemedIconGetIcon-    EmblemedIconGetIconMethodInfo           ,-    emblemedIconGetIcon                     ,----- ** emblemedIconNew-    emblemedIconNew                         ,----- -- * Properties--- ** Gicon-    EmblemedIconGiconPropertyInfo           ,-    constructEmblemedIconGicon              ,-    emblemedIconGicon                       ,-    getEmblemedIconGicon                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype EmblemedIcon = EmblemedIcon (ForeignPtr EmblemedIcon)-foreign import ccall "g_emblemed_icon_get_type"-    c_g_emblemed_icon_get_type :: IO GType--type instance ParentTypes EmblemedIcon = EmblemedIconParentTypes-type EmblemedIconParentTypes = '[GObject.Object, Icon]--instance GObject EmblemedIcon where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_emblemed_icon_get_type-    --class GObject o => EmblemedIconK o-instance (GObject o, IsDescendantOf EmblemedIcon o) => EmblemedIconK o--toEmblemedIcon :: EmblemedIconK o => o -> IO EmblemedIcon-toEmblemedIcon = unsafeCastTo EmblemedIcon--noEmblemedIcon :: Maybe EmblemedIcon-noEmblemedIcon = Nothing--type family ResolveEmblemedIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveEmblemedIconMethod "addEmblem" o = EmblemedIconAddEmblemMethodInfo-    ResolveEmblemedIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveEmblemedIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveEmblemedIconMethod "clearEmblems" o = EmblemedIconClearEmblemsMethodInfo-    ResolveEmblemedIconMethod "equal" o = IconEqualMethodInfo-    ResolveEmblemedIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveEmblemedIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveEmblemedIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveEmblemedIconMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveEmblemedIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveEmblemedIconMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveEmblemedIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveEmblemedIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveEmblemedIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveEmblemedIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveEmblemedIconMethod "serialize" o = IconSerializeMethodInfo-    ResolveEmblemedIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveEmblemedIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveEmblemedIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveEmblemedIconMethod "toString" o = IconToStringMethodInfo-    ResolveEmblemedIconMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveEmblemedIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveEmblemedIconMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveEmblemedIconMethod "getEmblems" o = EmblemedIconGetEmblemsMethodInfo-    ResolveEmblemedIconMethod "getIcon" o = EmblemedIconGetIconMethodInfo-    ResolveEmblemedIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveEmblemedIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveEmblemedIconMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveEmblemedIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveEmblemedIconMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEmblemedIconMethod t EmblemedIcon, MethodInfo info EmblemedIcon p) => IsLabelProxy t (EmblemedIcon -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEmblemedIconMethod t EmblemedIcon, MethodInfo info EmblemedIcon p) => IsLabel t (EmblemedIcon -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "gicon"-   -- Type: TInterface "Gio" "Icon"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getEmblemedIconGicon :: (MonadIO m, EmblemedIconK o) => o -> m (Maybe Icon)-getEmblemedIconGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Icon--constructEmblemedIconGicon :: (IconK a) => a -> IO ([Char], GValue)-constructEmblemedIconGicon val = constructObjectPropertyObject "gicon" (Just val)--data EmblemedIconGiconPropertyInfo-instance AttrInfo EmblemedIconGiconPropertyInfo where-    type AttrAllowedOps EmblemedIconGiconPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EmblemedIconGiconPropertyInfo = IconK-    type AttrBaseTypeConstraint EmblemedIconGiconPropertyInfo = EmblemedIconK-    type AttrGetType EmblemedIconGiconPropertyInfo = (Maybe Icon)-    type AttrLabel EmblemedIconGiconPropertyInfo = "gicon"-    attrGet _ = getEmblemedIconGicon-    attrSet _ = undefined-    attrConstruct _ = constructEmblemedIconGicon-    attrClear _ = undefined--type instance AttributeList EmblemedIcon = EmblemedIconAttributeList-type EmblemedIconAttributeList = ('[ '("gicon", EmblemedIconGiconPropertyInfo)] :: [(Symbol, *)])--emblemedIconGicon :: AttrLabelProxy "gicon"-emblemedIconGicon = AttrLabelProxy--type instance SignalList EmblemedIcon = EmblemedIconSignalList-type EmblemedIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method EmblemedIcon::new--- method type : Constructor--- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "emblem", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "EmblemedIcon")--- throws : False--- Skip return : False--foreign import ccall "g_emblemed_icon_new" g_emblemed_icon_new :: -    Ptr Icon ->                             -- icon : TInterface "Gio" "Icon"-    Ptr Emblem ->                           -- emblem : TInterface "Gio" "Emblem"-    IO (Ptr EmblemedIcon)---emblemedIconNew ::-    (MonadIO m, IconK a, EmblemK b) =>-    a                                       -- icon-    -> Maybe (b)                            -- emblem-    -> m EmblemedIcon                       -- result-emblemedIconNew icon emblem = liftIO $ do-    let icon' = unsafeManagedPtrCastPtr icon-    maybeEmblem <- case emblem of-        Nothing -> return nullPtr-        Just jEmblem -> do-            let jEmblem' = unsafeManagedPtrCastPtr jEmblem-            return jEmblem'-    result <- g_emblemed_icon_new icon' maybeEmblem-    checkUnexpectedReturnNULL "g_emblemed_icon_new" result-    result' <- (wrapObject EmblemedIcon) result-    touchManagedPtr icon-    whenJust emblem touchManagedPtr-    return result'---- method EmblemedIcon::add_emblem--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "emblem", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "EmblemedIcon"-    Ptr Emblem ->                           -- emblem : TInterface "Gio" "Emblem"-    IO ()---emblemedIconAddEmblem ::-    (MonadIO m, EmblemedIconK a, EmblemK b) =>-    a                                       -- _obj-    -> b                                    -- emblem-    -> m ()                                 -- result-emblemedIconAddEmblem _obj emblem = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let emblem' = unsafeManagedPtrCastPtr emblem-    g_emblemed_icon_add_emblem _obj' emblem'-    touchManagedPtr _obj-    touchManagedPtr emblem-    return ()--data EmblemedIconAddEmblemMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, EmblemedIconK a, EmblemK b) => MethodInfo EmblemedIconAddEmblemMethodInfo a signature where-    overloadedMethod _ = emblemedIconAddEmblem---- method EmblemedIcon::clear_emblems--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "EmblemedIcon"-    IO ()---emblemedIconClearEmblems ::-    (MonadIO m, EmblemedIconK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-emblemedIconClearEmblems _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_emblemed_icon_clear_emblems _obj'-    touchManagedPtr _obj-    return ()--data EmblemedIconClearEmblemsMethodInfo-instance (signature ~ (m ()), MonadIO m, EmblemedIconK a) => MethodInfo EmblemedIconClearEmblemsMethodInfo a signature where-    overloadedMethod _ = emblemedIconClearEmblems---- method EmblemedIcon::get_emblems--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "Emblem"))--- throws : False--- Skip return : False--foreign import ccall "g_emblemed_icon_get_emblems" g_emblemed_icon_get_emblems :: -    Ptr EmblemedIcon ->                     -- _obj : TInterface "Gio" "EmblemedIcon"-    IO (Ptr (GList (Ptr Emblem)))---emblemedIconGetEmblems ::-    (MonadIO m, EmblemedIconK a) =>-    a                                       -- _obj-    -> m [Emblem]                           -- result-emblemedIconGetEmblems _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_emblemed_icon_get_emblems _obj'-    result' <- unpackGList result-    result'' <- mapM (newObject Emblem) result'-    touchManagedPtr _obj-    return result''--data EmblemedIconGetEmblemsMethodInfo-instance (signature ~ (m [Emblem]), MonadIO m, EmblemedIconK a) => MethodInfo EmblemedIconGetEmblemsMethodInfo a signature where-    overloadedMethod _ = emblemedIconGetEmblems---- method EmblemedIcon::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_emblemed_icon_get_icon" g_emblemed_icon_get_icon :: -    Ptr EmblemedIcon ->                     -- _obj : TInterface "Gio" "EmblemedIcon"-    IO (Ptr Icon)---emblemedIconGetIcon ::-    (MonadIO m, EmblemedIconK a) =>-    a                                       -- _obj-    -> m Icon                               -- result-emblemedIconGetIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_emblemed_icon_get_icon _obj'-    checkUnexpectedReturnNULL "g_emblemed_icon_get_icon" result-    result' <- (newObject Icon) result-    touchManagedPtr _obj-    return result'--data EmblemedIconGetIconMethodInfo-instance (signature ~ (m Icon), MonadIO m, EmblemedIconK a) => MethodInfo EmblemedIconGetIconMethodInfo a signature where-    overloadedMethod _ = emblemedIconGetIcon--
− GI/Gio/Objects/EmblemedIcon.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Objects.EmblemedIcon where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EmblemedIcon = EmblemedIcon (ForeignPtr EmblemedIcon)-instance GObject EmblemedIcon where-class GObject o => EmblemedIconK o-instance (GObject o, IsDescendantOf EmblemedIcon o) => EmblemedIconK o-data EmblemedIconGiconPropertyInfo-data EmblemedIconAddEmblemMethodInfo-data EmblemedIconClearEmblemsMethodInfo-data EmblemedIconGetEmblemsMethodInfo-data EmblemedIconGetIconMethodInfo
− GI/Gio/Objects/FileEnumerator.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.FileEnumerator-    ( ---- * Exported types-    FileEnumerator(..)                      ,-    FileEnumeratorK                         ,-    toFileEnumerator                        ,-    noFileEnumerator                        ,--- -- * Methods--- ** fileEnumeratorClose-    FileEnumeratorCloseMethodInfo           ,-    fileEnumeratorClose                     ,----- ** fileEnumeratorCloseAsync-    FileEnumeratorCloseAsyncMethodInfo      ,-    fileEnumeratorCloseAsync                ,----- ** fileEnumeratorCloseFinish-    FileEnumeratorCloseFinishMethodInfo     ,-    fileEnumeratorCloseFinish               ,----- ** fileEnumeratorGetChild-    FileEnumeratorGetChildMethodInfo        ,-    fileEnumeratorGetChild                  ,----- ** fileEnumeratorGetContainer-    FileEnumeratorGetContainerMethodInfo    ,-    fileEnumeratorGetContainer              ,----- ** fileEnumeratorHasPending-    FileEnumeratorHasPendingMethodInfo      ,-    fileEnumeratorHasPending                ,----- ** fileEnumeratorIsClosed-    FileEnumeratorIsClosedMethodInfo        ,-    fileEnumeratorIsClosed                  ,----- ** fileEnumeratorIterate-    FileEnumeratorIterateMethodInfo         ,-    fileEnumeratorIterate                   ,----- ** fileEnumeratorNextFile-    FileEnumeratorNextFileMethodInfo        ,-    fileEnumeratorNextFile                  ,----- ** fileEnumeratorNextFilesAsync-    FileEnumeratorNextFilesAsyncMethodInfo  ,-    fileEnumeratorNextFilesAsync            ,----- ** fileEnumeratorNextFilesFinish-    FileEnumeratorNextFilesFinishMethodInfo ,-    fileEnumeratorNextFilesFinish           ,----- ** fileEnumeratorSetPending-    FileEnumeratorSetPendingMethodInfo      ,-    fileEnumeratorSetPending                ,----- -- * Properties--- ** Container-    FileEnumeratorContainerPropertyInfo     ,-    constructFileEnumeratorContainer        ,-    fileEnumeratorContainer                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype FileEnumerator = FileEnumerator (ForeignPtr FileEnumerator)-foreign import ccall "g_file_enumerator_get_type"-    c_g_file_enumerator_get_type :: IO GType--type instance ParentTypes FileEnumerator = FileEnumeratorParentTypes-type FileEnumeratorParentTypes = '[GObject.Object]--instance GObject FileEnumerator where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_file_enumerator_get_type-    --class GObject o => FileEnumeratorK o-instance (GObject o, IsDescendantOf FileEnumerator o) => FileEnumeratorK o--toFileEnumerator :: FileEnumeratorK o => o -> IO FileEnumerator-toFileEnumerator = unsafeCastTo FileEnumerator--noFileEnumerator :: Maybe FileEnumerator-noFileEnumerator = Nothing--type family ResolveFileEnumeratorMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileEnumeratorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFileEnumeratorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFileEnumeratorMethod "close" o = FileEnumeratorCloseMethodInfo-    ResolveFileEnumeratorMethod "closeAsync" o = FileEnumeratorCloseAsyncMethodInfo-    ResolveFileEnumeratorMethod "closeFinish" o = FileEnumeratorCloseFinishMethodInfo-    ResolveFileEnumeratorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFileEnumeratorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFileEnumeratorMethod "hasPending" o = FileEnumeratorHasPendingMethodInfo-    ResolveFileEnumeratorMethod "isClosed" o = FileEnumeratorIsClosedMethodInfo-    ResolveFileEnumeratorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFileEnumeratorMethod "iterate" o = FileEnumeratorIterateMethodInfo-    ResolveFileEnumeratorMethod "nextFile" o = FileEnumeratorNextFileMethodInfo-    ResolveFileEnumeratorMethod "nextFilesAsync" o = FileEnumeratorNextFilesAsyncMethodInfo-    ResolveFileEnumeratorMethod "nextFilesFinish" o = FileEnumeratorNextFilesFinishMethodInfo-    ResolveFileEnumeratorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFileEnumeratorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFileEnumeratorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFileEnumeratorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFileEnumeratorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFileEnumeratorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFileEnumeratorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFileEnumeratorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFileEnumeratorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFileEnumeratorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFileEnumeratorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFileEnumeratorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFileEnumeratorMethod "getChild" o = FileEnumeratorGetChildMethodInfo-    ResolveFileEnumeratorMethod "getContainer" o = FileEnumeratorGetContainerMethodInfo-    ResolveFileEnumeratorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFileEnumeratorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFileEnumeratorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFileEnumeratorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFileEnumeratorMethod "setPending" o = FileEnumeratorSetPendingMethodInfo-    ResolveFileEnumeratorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFileEnumeratorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFileEnumeratorMethod t FileEnumerator, MethodInfo info FileEnumerator p) => IsLabelProxy t (FileEnumerator -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileEnumeratorMethod t FileEnumerator, MethodInfo info FileEnumerator p) => IsLabel t (FileEnumerator -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "container"-   -- Type: TInterface "Gio" "File"-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--constructFileEnumeratorContainer :: (FileK a) => a -> IO ([Char], GValue)-constructFileEnumeratorContainer val = constructObjectPropertyObject "container" (Just val)--data FileEnumeratorContainerPropertyInfo-instance AttrInfo FileEnumeratorContainerPropertyInfo where-    type AttrAllowedOps FileEnumeratorContainerPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint FileEnumeratorContainerPropertyInfo = FileK-    type AttrBaseTypeConstraint FileEnumeratorContainerPropertyInfo = FileEnumeratorK-    type AttrGetType FileEnumeratorContainerPropertyInfo = ()-    type AttrLabel FileEnumeratorContainerPropertyInfo = "container"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructFileEnumeratorContainer-    attrClear _ = undefined--type instance AttributeList FileEnumerator = FileEnumeratorAttributeList-type FileEnumeratorAttributeList = ('[ '("container", FileEnumeratorContainerPropertyInfo)] :: [(Symbol, *)])--fileEnumeratorContainer :: AttrLabelProxy "container"-fileEnumeratorContainer = AttrLabelProxy--type instance SignalList FileEnumerator = FileEnumeratorSignalList-type FileEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FileEnumerator::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileEnumeratorClose ::-    (MonadIO m, FileEnumeratorK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-fileEnumeratorClose _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_enumerator_close _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data FileEnumeratorCloseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FileEnumeratorK a, CancellableK b) => MethodInfo FileEnumeratorCloseMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorClose---- method FileEnumerator::close_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileEnumeratorCloseAsync ::-    (MonadIO m, FileEnumeratorK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileEnumeratorCloseAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_enumerator_close_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileEnumeratorCloseAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileEnumeratorK a, CancellableK b) => MethodInfo FileEnumeratorCloseAsyncMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorCloseAsync---- method FileEnumerator::close_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileEnumeratorCloseFinish ::-    (MonadIO m, FileEnumeratorK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-fileEnumeratorCloseFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_enumerator_close_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data FileEnumeratorCloseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileEnumeratorK a, AsyncResultK b) => MethodInfo FileEnumeratorCloseFinishMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorCloseFinish---- method FileEnumerator::get_child--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_file_enumerator_get_child" g_file_enumerator_get_child :: -    Ptr FileEnumerator ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    Ptr FileInfo ->                         -- info : TInterface "Gio" "FileInfo"-    IO (Ptr File)---fileEnumeratorGetChild ::-    (MonadIO m, FileEnumeratorK a, FileInfoK b) =>-    a                                       -- _obj-    -> b                                    -- info-    -> m File                               -- result-fileEnumeratorGetChild _obj info = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let info' = unsafeManagedPtrCastPtr info-    result <- g_file_enumerator_get_child _obj' info'-    checkUnexpectedReturnNULL "g_file_enumerator_get_child" result-    result' <- (wrapObject File) result-    touchManagedPtr _obj-    touchManagedPtr info-    return result'--data FileEnumeratorGetChildMethodInfo-instance (signature ~ (b -> m File), MonadIO m, FileEnumeratorK a, FileInfoK b) => MethodInfo FileEnumeratorGetChildMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorGetChild---- method FileEnumerator::get_container--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_file_enumerator_get_container" g_file_enumerator_get_container :: -    Ptr FileEnumerator ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    IO (Ptr File)---fileEnumeratorGetContainer ::-    (MonadIO m, FileEnumeratorK a) =>-    a                                       -- _obj-    -> m File                               -- result-fileEnumeratorGetContainer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_enumerator_get_container _obj'-    checkUnexpectedReturnNULL "g_file_enumerator_get_container" result-    result' <- (newObject File) result-    touchManagedPtr _obj-    return result'--data FileEnumeratorGetContainerMethodInfo-instance (signature ~ (m File), MonadIO m, FileEnumeratorK a) => MethodInfo FileEnumeratorGetContainerMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorGetContainer---- method FileEnumerator::has_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    IO CInt---fileEnumeratorHasPending ::-    (MonadIO m, FileEnumeratorK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-fileEnumeratorHasPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_enumerator_has_pending _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FileEnumeratorHasPendingMethodInfo-instance (signature ~ (m Bool), MonadIO m, FileEnumeratorK a) => MethodInfo FileEnumeratorHasPendingMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorHasPending---- method FileEnumerator::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    IO CInt---fileEnumeratorIsClosed ::-    (MonadIO m, FileEnumeratorK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-fileEnumeratorIsClosed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_enumerator_is_closed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FileEnumeratorIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, FileEnumeratorK a) => MethodInfo FileEnumeratorIsClosedMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorIsClosed---- method FileEnumerator::iterate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_info", argType = TInterface "Gio" "FileInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_child", argType = TInterface "Gio" "File", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    Ptr (Ptr FileInfo) ->                   -- out_info : TInterface "Gio" "FileInfo"-    Ptr (Ptr File) ->                       -- out_child : TInterface "Gio" "File"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileEnumeratorIterate ::-    (MonadIO m, FileEnumeratorK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m (FileInfo,File)                    -- result-fileEnumeratorIterate _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    outInfo <- allocMem :: IO (Ptr (Ptr FileInfo))-    outChild <- allocMem :: IO (Ptr (Ptr File))-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_enumerator_iterate _obj' outInfo outChild maybeCancellable-        outInfo' <- peek outInfo-        outInfo'' <- (newObject FileInfo) outInfo'-        outChild' <- peek outChild-        outChild'' <- (newObject File) outChild'-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem outInfo-        freeMem outChild-        return (outInfo'', outChild'')-     ) (do-        freeMem outInfo-        freeMem outChild-     )--data FileEnumeratorIterateMethodInfo-instance (signature ~ (Maybe (b) -> m (FileInfo,File)), MonadIO m, FileEnumeratorK a, CancellableK b) => MethodInfo FileEnumeratorIterateMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorIterate---- method FileEnumerator::next_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : True--- Skip return : False--foreign import ccall "g_file_enumerator_next_file" g_file_enumerator_next_file :: -    Ptr FileEnumerator ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInfo)---fileEnumeratorNextFile ::-    (MonadIO m, FileEnumeratorK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m (Maybe FileInfo)                   -- result-fileEnumeratorNextFile _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_enumerator_next_file _obj' maybeCancellable-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- (wrapObject FileInfo) result'-            return result''-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return maybeResult-     ) (do-        return ()-     )--data FileEnumeratorNextFileMethodInfo-instance (signature ~ (Maybe (b) -> m (Maybe FileInfo)), MonadIO m, FileEnumeratorK a, CancellableK b) => MethodInfo FileEnumeratorNextFileMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorNextFile---- method FileEnumerator::next_files_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_files", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    Int32 ->                                -- num_files : TBasicType TInt-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileEnumeratorNextFilesAsync ::-    (MonadIO m, FileEnumeratorK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- numFiles-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileEnumeratorNextFilesAsync _obj numFiles ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_enumerator_next_files_async _obj' numFiles ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data FileEnumeratorNextFilesAsyncMethodInfo-instance (signature ~ (Int32 -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileEnumeratorK a, CancellableK b) => MethodInfo FileEnumeratorNextFilesAsyncMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorNextFilesAsync---- method FileEnumerator::next_files_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "FileInfo"))--- throws : True--- Skip return : False--foreign import ccall "g_file_enumerator_next_files_finish" g_file_enumerator_next_files_finish :: -    Ptr FileEnumerator ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr FileInfo)))---fileEnumeratorNextFilesFinish ::-    (MonadIO m, FileEnumeratorK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m [FileInfo]                         -- result-fileEnumeratorNextFilesFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_file_enumerator_next_files_finish _obj' result_'-        result' <- unpackGList result-        result'' <- mapM (wrapObject FileInfo) result'-        g_list_free result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--data FileEnumeratorNextFilesFinishMethodInfo-instance (signature ~ (b -> m [FileInfo]), MonadIO m, FileEnumeratorK a, AsyncResultK b) => MethodInfo FileEnumeratorNextFilesFinishMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorNextFilesFinish---- method FileEnumerator::set_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pending", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "FileEnumerator"-    CInt ->                                 -- pending : TBasicType TBoolean-    IO ()---fileEnumeratorSetPending ::-    (MonadIO m, FileEnumeratorK a) =>-    a                                       -- _obj-    -> Bool                                 -- pending-    -> m ()                                 -- result-fileEnumeratorSetPending _obj pending = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let pending' = (fromIntegral . fromEnum) pending-    g_file_enumerator_set_pending _obj' pending'-    touchManagedPtr _obj-    return ()--data FileEnumeratorSetPendingMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, FileEnumeratorK a) => MethodInfo FileEnumeratorSetPendingMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorSetPending--
− GI/Gio/Objects/FileEnumerator.hs-boot 
@@ -1,26 +0,0 @@-module GI.Gio.Objects.FileEnumerator where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileEnumerator = FileEnumerator (ForeignPtr FileEnumerator)-instance GObject FileEnumerator where-class GObject o => FileEnumeratorK o-instance (GObject o, IsDescendantOf FileEnumerator o) => FileEnumeratorK o-data FileEnumeratorContainerPropertyInfo-data FileEnumeratorCloseMethodInfo-data FileEnumeratorCloseAsyncMethodInfo-data FileEnumeratorCloseFinishMethodInfo-data FileEnumeratorGetChildMethodInfo-data FileEnumeratorGetContainerMethodInfo-data FileEnumeratorHasPendingMethodInfo-data FileEnumeratorIsClosedMethodInfo-data FileEnumeratorIterateMethodInfo-data FileEnumeratorNextFileMethodInfo-data FileEnumeratorNextFilesAsyncMethodInfo-data FileEnumeratorNextFilesFinishMethodInfo-data FileEnumeratorSetPendingMethodInfo
− GI/Gio/Objects/FileIOStream.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.FileIOStream-    ( ---- * Exported types-    FileIOStream(..)                        ,-    FileIOStreamK                           ,-    toFileIOStream                          ,-    noFileIOStream                          ,--- -- * Methods--- ** fileIOStreamGetEtag-    FileIOStreamGetEtagMethodInfo           ,-    fileIOStreamGetEtag                     ,----- ** fileIOStreamQueryInfo-    FileIOStreamQueryInfoMethodInfo         ,-    fileIOStreamQueryInfo                   ,----- ** fileIOStreamQueryInfoAsync-    FileIOStreamQueryInfoAsyncMethodInfo    ,-    fileIOStreamQueryInfoAsync              ,----- ** fileIOStreamQueryInfoFinish-    FileIOStreamQueryInfoFinishMethodInfo   ,-    fileIOStreamQueryInfoFinish             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype FileIOStream = FileIOStream (ForeignPtr FileIOStream)-foreign import ccall "g_file_io_stream_get_type"-    c_g_file_io_stream_get_type :: IO GType--type instance ParentTypes FileIOStream = FileIOStreamParentTypes-type FileIOStreamParentTypes = '[IOStream, GObject.Object, Seekable]--instance GObject FileIOStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_file_io_stream_get_type-    --class GObject o => FileIOStreamK o-instance (GObject o, IsDescendantOf FileIOStream o) => FileIOStreamK o--toFileIOStream :: FileIOStreamK o => o -> IO FileIOStream-toFileIOStream = unsafeCastTo FileIOStream--noFileIOStream :: Maybe FileIOStream-noFileIOStream = Nothing--type family ResolveFileIOStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileIOStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFileIOStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFileIOStreamMethod "canSeek" o = SeekableCanSeekMethodInfo-    ResolveFileIOStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo-    ResolveFileIOStreamMethod "clearPending" o = IOStreamClearPendingMethodInfo-    ResolveFileIOStreamMethod "close" o = IOStreamCloseMethodInfo-    ResolveFileIOStreamMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo-    ResolveFileIOStreamMethod "closeFinish" o = IOStreamCloseFinishMethodInfo-    ResolveFileIOStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFileIOStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFileIOStreamMethod "hasPending" o = IOStreamHasPendingMethodInfo-    ResolveFileIOStreamMethod "isClosed" o = IOStreamIsClosedMethodInfo-    ResolveFileIOStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFileIOStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFileIOStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFileIOStreamMethod "queryInfo" o = FileIOStreamQueryInfoMethodInfo-    ResolveFileIOStreamMethod "queryInfoAsync" o = FileIOStreamQueryInfoAsyncMethodInfo-    ResolveFileIOStreamMethod "queryInfoFinish" o = FileIOStreamQueryInfoFinishMethodInfo-    ResolveFileIOStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFileIOStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFileIOStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFileIOStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFileIOStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFileIOStreamMethod "seek" o = SeekableSeekMethodInfo-    ResolveFileIOStreamMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo-    ResolveFileIOStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFileIOStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFileIOStreamMethod "tell" o = SeekableTellMethodInfo-    ResolveFileIOStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFileIOStreamMethod "truncate" o = SeekableTruncateMethodInfo-    ResolveFileIOStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFileIOStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFileIOStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFileIOStreamMethod "getEtag" o = FileIOStreamGetEtagMethodInfo-    ResolveFileIOStreamMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo-    ResolveFileIOStreamMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo-    ResolveFileIOStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFileIOStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFileIOStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFileIOStreamMethod "setPending" o = IOStreamSetPendingMethodInfo-    ResolveFileIOStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFileIOStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFileIOStreamMethod t FileIOStream, MethodInfo info FileIOStream p) => IsLabelProxy t (FileIOStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileIOStreamMethod t FileIOStream, MethodInfo info FileIOStream p) => IsLabel t (FileIOStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList FileIOStream = FileIOStreamAttributeList-type FileIOStreamAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo)] :: [(Symbol, *)])--type instance SignalList FileIOStream = FileIOStreamSignalList-type FileIOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FileIOStream::get_etag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "FileIOStream"-    IO CString---fileIOStreamGetEtag ::-    (MonadIO m, FileIOStreamK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-fileIOStreamGetEtag _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_io_stream_get_etag _obj'-    checkUnexpectedReturnNULL "g_file_io_stream_get_etag" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FileIOStreamGetEtagMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FileIOStreamK a) => MethodInfo FileIOStreamGetEtagMethodInfo a signature where-    overloadedMethod _ = fileIOStreamGetEtag---- method FileIOStream::query_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : True--- Skip return : False--foreign import ccall "g_file_io_stream_query_info" g_file_io_stream_query_info :: -    Ptr FileIOStream ->                     -- _obj : TInterface "Gio" "FileIOStream"-    CString ->                              -- attributes : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInfo)---fileIOStreamQueryInfo ::-    (MonadIO m, FileIOStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> Maybe (b)                            -- cancellable-    -> m FileInfo                           -- result-fileIOStreamQueryInfo _obj attributes cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_io_stream_query_info _obj' attributes' maybeCancellable-        checkUnexpectedReturnNULL "g_file_io_stream_query_info" result-        result' <- (wrapObject FileInfo) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--data FileIOStreamQueryInfoMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m FileInfo), MonadIO m, FileIOStreamK a, CancellableK b) => MethodInfo FileIOStreamQueryInfoMethodInfo a signature where-    overloadedMethod _ = fileIOStreamQueryInfo---- method FileIOStream::query_info_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "FileIOStream"-    CString ->                              -- attributes : TBasicType TUTF8-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileIOStreamQueryInfoAsync ::-    (MonadIO m, FileIOStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileIOStreamQueryInfoAsync _obj attributes ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_io_stream_query_info_async _obj' attributes' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--data FileIOStreamQueryInfoAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileIOStreamK a, CancellableK b) => MethodInfo FileIOStreamQueryInfoAsyncMethodInfo a signature where-    overloadedMethod _ = fileIOStreamQueryInfoAsync---- method FileIOStream::query_info_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                     -- _obj : TInterface "Gio" "FileIOStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInfo)---fileIOStreamQueryInfoFinish ::-    (MonadIO m, FileIOStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m FileInfo                           -- result-fileIOStreamQueryInfoFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_file_io_stream_query_info_finish _obj' result_'-        checkUnexpectedReturnNULL "g_file_io_stream_query_info_finish" result-        result' <- (wrapObject FileInfo) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data FileIOStreamQueryInfoFinishMethodInfo-instance (signature ~ (b -> m FileInfo), MonadIO m, FileIOStreamK a, AsyncResultK b) => MethodInfo FileIOStreamQueryInfoFinishMethodInfo a signature where-    overloadedMethod _ = fileIOStreamQueryInfoFinish--
− GI/Gio/Objects/FileIOStream.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.FileIOStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileIOStream = FileIOStream (ForeignPtr FileIOStream)-instance GObject FileIOStream where-class GObject o => FileIOStreamK o-instance (GObject o, IsDescendantOf FileIOStream o) => FileIOStreamK o-data FileIOStreamGetEtagMethodInfo-data FileIOStreamQueryInfoMethodInfo-data FileIOStreamQueryInfoAsyncMethodInfo-data FileIOStreamQueryInfoFinishMethodInfo
− GI/Gio/Objects/FileIcon.hs 
@@ -1,201 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.FileIcon-    ( ---- * Exported types-    FileIcon(..)                            ,-    FileIconK                               ,-    toFileIcon                              ,-    noFileIcon                              ,--- -- * Methods--- ** fileIconGetFile-    FileIconGetFileMethodInfo               ,-    fileIconGetFile                         ,----- ** fileIconNew-    fileIconNew                             ,----- -- * Properties--- ** File-    FileIconFilePropertyInfo                ,-    constructFileIconFile                   ,-    fileIconFile                            ,-    getFileIconFile                         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype FileIcon = FileIcon (ForeignPtr FileIcon)-foreign import ccall "g_file_icon_get_type"-    c_g_file_icon_get_type :: IO GType--type instance ParentTypes FileIcon = FileIconParentTypes-type FileIconParentTypes = '[GObject.Object, Icon, LoadableIcon]--instance GObject FileIcon where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_file_icon_get_type-    --class GObject o => FileIconK o-instance (GObject o, IsDescendantOf FileIcon o) => FileIconK o--toFileIcon :: FileIconK o => o -> IO FileIcon-toFileIcon = unsafeCastTo FileIcon--noFileIcon :: Maybe FileIcon-noFileIcon = Nothing--type family ResolveFileIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFileIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFileIconMethod "equal" o = IconEqualMethodInfo-    ResolveFileIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFileIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFileIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFileIconMethod "load" o = LoadableIconLoadMethodInfo-    ResolveFileIconMethod "loadAsync" o = LoadableIconLoadAsyncMethodInfo-    ResolveFileIconMethod "loadFinish" o = LoadableIconLoadFinishMethodInfo-    ResolveFileIconMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFileIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFileIconMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFileIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFileIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFileIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFileIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFileIconMethod "serialize" o = IconSerializeMethodInfo-    ResolveFileIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFileIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFileIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFileIconMethod "toString" o = IconToStringMethodInfo-    ResolveFileIconMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFileIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFileIconMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFileIconMethod "getFile" o = FileIconGetFileMethodInfo-    ResolveFileIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFileIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFileIconMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFileIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFileIconMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFileIconMethod t FileIcon, MethodInfo info FileIcon p) => IsLabelProxy t (FileIcon -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileIconMethod t FileIcon, MethodInfo info FileIcon p) => IsLabel t (FileIcon -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "file"-   -- Type: TInterface "Gio" "File"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getFileIconFile :: (MonadIO m, FileIconK o) => o -> m File-getFileIconFile obj = liftIO $ checkUnexpectedNothing "getFileIconFile" $ getObjectPropertyObject obj "file" File--constructFileIconFile :: (FileK a) => a -> IO ([Char], GValue)-constructFileIconFile val = constructObjectPropertyObject "file" (Just val)--data FileIconFilePropertyInfo-instance AttrInfo FileIconFilePropertyInfo where-    type AttrAllowedOps FileIconFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FileIconFilePropertyInfo = FileK-    type AttrBaseTypeConstraint FileIconFilePropertyInfo = FileIconK-    type AttrGetType FileIconFilePropertyInfo = File-    type AttrLabel FileIconFilePropertyInfo = "file"-    attrGet _ = getFileIconFile-    attrSet _ = undefined-    attrConstruct _ = constructFileIconFile-    attrClear _ = undefined--type instance AttributeList FileIcon = FileIconAttributeList-type FileIconAttributeList = ('[ '("file", FileIconFilePropertyInfo)] :: [(Symbol, *)])--fileIconFile :: AttrLabelProxy "file"-fileIconFile = AttrLabelProxy--type instance SignalList FileIcon = FileIconSignalList-type FileIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FileIcon::new--- method type : Constructor--- Args : [Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileIcon")--- throws : False--- Skip return : False--foreign import ccall "g_file_icon_new" g_file_icon_new :: -    Ptr File ->                             -- file : TInterface "Gio" "File"-    IO (Ptr FileIcon)---fileIconNew ::-    (MonadIO m, FileK a) =>-    a                                       -- file-    -> m FileIcon                           -- result-fileIconNew file = liftIO $ do-    let file' = unsafeManagedPtrCastPtr file-    result <- g_file_icon_new file'-    checkUnexpectedReturnNULL "g_file_icon_new" result-    result' <- (wrapObject FileIcon) result-    touchManagedPtr file-    return result'---- method FileIcon::get_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_file_icon_get_file" g_file_icon_get_file :: -    Ptr FileIcon ->                         -- _obj : TInterface "Gio" "FileIcon"-    IO (Ptr File)---fileIconGetFile ::-    (MonadIO m, FileIconK a) =>-    a                                       -- _obj-    -> m File                               -- result-fileIconGetFile _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_icon_get_file _obj'-    checkUnexpectedReturnNULL "g_file_icon_get_file" result-    result' <- (newObject File) result-    touchManagedPtr _obj-    return result'--data FileIconGetFileMethodInfo-instance (signature ~ (m File), MonadIO m, FileIconK a) => MethodInfo FileIconGetFileMethodInfo a signature where-    overloadedMethod _ = fileIconGetFile--
− GI/Gio/Objects/FileIcon.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Objects.FileIcon where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileIcon = FileIcon (ForeignPtr FileIcon)-instance GObject FileIcon where-class GObject o => FileIconK o-instance (GObject o, IsDescendantOf FileIcon o) => FileIconK o-data FileIconFilePropertyInfo-data FileIconGetFileMethodInfo
− GI/Gio/Objects/FileInfo.hs 
@@ -1,2429 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.FileInfo-    ( ---- * Exported types-    FileInfo(..)                            ,-    FileInfoK                               ,-    toFileInfo                              ,-    noFileInfo                              ,--- -- * Methods--- ** fileInfoClearStatus-    FileInfoClearStatusMethodInfo           ,-    fileInfoClearStatus                     ,----- ** fileInfoCopyInto-    FileInfoCopyIntoMethodInfo              ,-    fileInfoCopyInto                        ,----- ** fileInfoDup-    FileInfoDupMethodInfo                   ,-    fileInfoDup                             ,----- ** fileInfoGetAttributeAsString-    FileInfoGetAttributeAsStringMethodInfo  ,-    fileInfoGetAttributeAsString            ,----- ** fileInfoGetAttributeBoolean-    FileInfoGetAttributeBooleanMethodInfo   ,-    fileInfoGetAttributeBoolean             ,----- ** fileInfoGetAttributeByteString-    FileInfoGetAttributeByteStringMethodInfo,-    fileInfoGetAttributeByteString          ,----- ** fileInfoGetAttributeData-    FileInfoGetAttributeDataMethodInfo      ,-    fileInfoGetAttributeData                ,----- ** fileInfoGetAttributeInt32-    FileInfoGetAttributeInt32MethodInfo     ,-    fileInfoGetAttributeInt32               ,----- ** fileInfoGetAttributeInt64-    FileInfoGetAttributeInt64MethodInfo     ,-    fileInfoGetAttributeInt64               ,----- ** fileInfoGetAttributeObject-    FileInfoGetAttributeObjectMethodInfo    ,-    fileInfoGetAttributeObject              ,----- ** fileInfoGetAttributeStatus-    FileInfoGetAttributeStatusMethodInfo    ,-    fileInfoGetAttributeStatus              ,----- ** fileInfoGetAttributeString-    FileInfoGetAttributeStringMethodInfo    ,-    fileInfoGetAttributeString              ,----- ** fileInfoGetAttributeStringv-    FileInfoGetAttributeStringvMethodInfo   ,-    fileInfoGetAttributeStringv             ,----- ** fileInfoGetAttributeType-    FileInfoGetAttributeTypeMethodInfo      ,-    fileInfoGetAttributeType                ,----- ** fileInfoGetAttributeUint32-    FileInfoGetAttributeUint32MethodInfo    ,-    fileInfoGetAttributeUint32              ,----- ** fileInfoGetAttributeUint64-    FileInfoGetAttributeUint64MethodInfo    ,-    fileInfoGetAttributeUint64              ,----- ** fileInfoGetContentType-    FileInfoGetContentTypeMethodInfo        ,-    fileInfoGetContentType                  ,----- ** fileInfoGetDeletionDate-    FileInfoGetDeletionDateMethodInfo       ,-    fileInfoGetDeletionDate                 ,----- ** fileInfoGetDisplayName-    FileInfoGetDisplayNameMethodInfo        ,-    fileInfoGetDisplayName                  ,----- ** fileInfoGetEditName-    FileInfoGetEditNameMethodInfo           ,-    fileInfoGetEditName                     ,----- ** fileInfoGetEtag-    FileInfoGetEtagMethodInfo               ,-    fileInfoGetEtag                         ,----- ** fileInfoGetFileType-    FileInfoGetFileTypeMethodInfo           ,-    fileInfoGetFileType                     ,----- ** fileInfoGetIcon-    FileInfoGetIconMethodInfo               ,-    fileInfoGetIcon                         ,----- ** fileInfoGetIsBackup-    FileInfoGetIsBackupMethodInfo           ,-    fileInfoGetIsBackup                     ,----- ** fileInfoGetIsHidden-    FileInfoGetIsHiddenMethodInfo           ,-    fileInfoGetIsHidden                     ,----- ** fileInfoGetIsSymlink-    FileInfoGetIsSymlinkMethodInfo          ,-    fileInfoGetIsSymlink                    ,----- ** fileInfoGetModificationTime-    FileInfoGetModificationTimeMethodInfo   ,-    fileInfoGetModificationTime             ,----- ** fileInfoGetName-    FileInfoGetNameMethodInfo               ,-    fileInfoGetName                         ,----- ** fileInfoGetSize-    FileInfoGetSizeMethodInfo               ,-    fileInfoGetSize                         ,----- ** fileInfoGetSortOrder-    FileInfoGetSortOrderMethodInfo          ,-    fileInfoGetSortOrder                    ,----- ** fileInfoGetSymbolicIcon-    FileInfoGetSymbolicIconMethodInfo       ,-    fileInfoGetSymbolicIcon                 ,----- ** fileInfoGetSymlinkTarget-    FileInfoGetSymlinkTargetMethodInfo      ,-    fileInfoGetSymlinkTarget                ,----- ** fileInfoHasAttribute-    FileInfoHasAttributeMethodInfo          ,-    fileInfoHasAttribute                    ,----- ** fileInfoHasNamespace-    FileInfoHasNamespaceMethodInfo          ,-    fileInfoHasNamespace                    ,----- ** fileInfoListAttributes-    FileInfoListAttributesMethodInfo        ,-    fileInfoListAttributes                  ,----- ** fileInfoNew-    fileInfoNew                             ,----- ** fileInfoRemoveAttribute-    FileInfoRemoveAttributeMethodInfo       ,-    fileInfoRemoveAttribute                 ,----- ** fileInfoSetAttribute-    FileInfoSetAttributeMethodInfo          ,-    fileInfoSetAttribute                    ,----- ** fileInfoSetAttributeBoolean-    FileInfoSetAttributeBooleanMethodInfo   ,-    fileInfoSetAttributeBoolean             ,----- ** fileInfoSetAttributeByteString-    FileInfoSetAttributeByteStringMethodInfo,-    fileInfoSetAttributeByteString          ,----- ** fileInfoSetAttributeInt32-    FileInfoSetAttributeInt32MethodInfo     ,-    fileInfoSetAttributeInt32               ,----- ** fileInfoSetAttributeInt64-    FileInfoSetAttributeInt64MethodInfo     ,-    fileInfoSetAttributeInt64               ,----- ** fileInfoSetAttributeMask-    FileInfoSetAttributeMaskMethodInfo      ,-    fileInfoSetAttributeMask                ,----- ** fileInfoSetAttributeObject-    FileInfoSetAttributeObjectMethodInfo    ,-    fileInfoSetAttributeObject              ,----- ** fileInfoSetAttributeStatus-    FileInfoSetAttributeStatusMethodInfo    ,-    fileInfoSetAttributeStatus              ,----- ** fileInfoSetAttributeString-    FileInfoSetAttributeStringMethodInfo    ,-    fileInfoSetAttributeString              ,----- ** fileInfoSetAttributeStringv-    FileInfoSetAttributeStringvMethodInfo   ,-    fileInfoSetAttributeStringv             ,----- ** fileInfoSetAttributeUint32-    FileInfoSetAttributeUint32MethodInfo    ,-    fileInfoSetAttributeUint32              ,----- ** fileInfoSetAttributeUint64-    FileInfoSetAttributeUint64MethodInfo    ,-    fileInfoSetAttributeUint64              ,----- ** fileInfoSetContentType-    FileInfoSetContentTypeMethodInfo        ,-    fileInfoSetContentType                  ,----- ** fileInfoSetDisplayName-    FileInfoSetDisplayNameMethodInfo        ,-    fileInfoSetDisplayName                  ,----- ** fileInfoSetEditName-    FileInfoSetEditNameMethodInfo           ,-    fileInfoSetEditName                     ,----- ** fileInfoSetFileType-    FileInfoSetFileTypeMethodInfo           ,-    fileInfoSetFileType                     ,----- ** fileInfoSetIcon-    FileInfoSetIconMethodInfo               ,-    fileInfoSetIcon                         ,----- ** fileInfoSetIsHidden-    FileInfoSetIsHiddenMethodInfo           ,-    fileInfoSetIsHidden                     ,----- ** fileInfoSetIsSymlink-    FileInfoSetIsSymlinkMethodInfo          ,-    fileInfoSetIsSymlink                    ,----- ** fileInfoSetModificationTime-    FileInfoSetModificationTimeMethodInfo   ,-    fileInfoSetModificationTime             ,----- ** fileInfoSetName-    FileInfoSetNameMethodInfo               ,-    fileInfoSetName                         ,----- ** fileInfoSetSize-    FileInfoSetSizeMethodInfo               ,-    fileInfoSetSize                         ,----- ** fileInfoSetSortOrder-    FileInfoSetSortOrderMethodInfo          ,-    fileInfoSetSortOrder                    ,----- ** fileInfoSetSymbolicIcon-    FileInfoSetSymbolicIconMethodInfo       ,-    fileInfoSetSymbolicIcon                 ,----- ** fileInfoSetSymlinkTarget-    FileInfoSetSymlinkTargetMethodInfo      ,-    fileInfoSetSymlinkTarget                ,----- ** fileInfoUnsetAttributeMask-    FileInfoUnsetAttributeMaskMethodInfo    ,-    fileInfoUnsetAttributeMask              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype FileInfo = FileInfo (ForeignPtr FileInfo)-foreign import ccall "g_file_info_get_type"-    c_g_file_info_get_type :: IO GType--type instance ParentTypes FileInfo = FileInfoParentTypes-type FileInfoParentTypes = '[GObject.Object]--instance GObject FileInfo where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_file_info_get_type-    --class GObject o => FileInfoK o-instance (GObject o, IsDescendantOf FileInfo o) => FileInfoK o--toFileInfo :: FileInfoK o => o -> IO FileInfo-toFileInfo = unsafeCastTo FileInfo--noFileInfo :: Maybe FileInfo-noFileInfo = Nothing--type family ResolveFileInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileInfoMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFileInfoMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFileInfoMethod "clearStatus" o = FileInfoClearStatusMethodInfo-    ResolveFileInfoMethod "copyInto" o = FileInfoCopyIntoMethodInfo-    ResolveFileInfoMethod "dup" o = FileInfoDupMethodInfo-    ResolveFileInfoMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFileInfoMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFileInfoMethod "hasAttribute" o = FileInfoHasAttributeMethodInfo-    ResolveFileInfoMethod "hasNamespace" o = FileInfoHasNamespaceMethodInfo-    ResolveFileInfoMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFileInfoMethod "listAttributes" o = FileInfoListAttributesMethodInfo-    ResolveFileInfoMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFileInfoMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFileInfoMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFileInfoMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFileInfoMethod "removeAttribute" o = FileInfoRemoveAttributeMethodInfo-    ResolveFileInfoMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFileInfoMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFileInfoMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFileInfoMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFileInfoMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFileInfoMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFileInfoMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFileInfoMethod "unsetAttributeMask" o = FileInfoUnsetAttributeMaskMethodInfo-    ResolveFileInfoMethod "watchClosure" o = GObject.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.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.ObjectGetPropertyMethodInfo-    ResolveFileInfoMethod "getQdata" o = GObject.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.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.ObjectSetPropertyMethodInfo-    ResolveFileInfoMethod "setSize" o = FileInfoSetSizeMethodInfo-    ResolveFileInfoMethod "setSortOrder" o = FileInfoSetSortOrderMethodInfo-    ResolveFileInfoMethod "setSymbolicIcon" o = FileInfoSetSymbolicIconMethodInfo-    ResolveFileInfoMethod "setSymlinkTarget" o = FileInfoSetSymlinkTargetMethodInfo-    ResolveFileInfoMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFileInfoMethod t FileInfo, MethodInfo info FileInfo p) => IsLabelProxy t (FileInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileInfoMethod t FileInfo, MethodInfo info FileInfo p) => IsLabel t (FileInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList FileInfo = FileInfoAttributeList-type FileInfoAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FileInfo = FileInfoSignalList-type FileInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FileInfo::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : False--- Skip return : False--foreign import ccall "g_file_info_new" g_file_info_new :: -    IO (Ptr FileInfo)---fileInfoNew ::-    (MonadIO m) =>-    m FileInfo                              -- result-fileInfoNew  = liftIO $ do-    result <- g_file_info_new-    checkUnexpectedReturnNULL "g_file_info_new" result-    result' <- (wrapObject FileInfo) result-    return result'---- method FileInfo::clear_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO ()---fileInfoClearStatus ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-fileInfoClearStatus _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_file_info_clear_status _obj'-    touchManagedPtr _obj-    return ()--data FileInfoClearStatusMethodInfo-instance (signature ~ (m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoClearStatusMethodInfo a signature where-    overloadedMethod _ = fileInfoClearStatus---- method FileInfo::copy_into--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    Ptr FileInfo ->                         -- dest_info : TInterface "Gio" "FileInfo"-    IO ()---fileInfoCopyInto ::-    (MonadIO m, FileInfoK a, FileInfoK b) =>-    a                                       -- _obj-    -> b                                    -- destInfo-    -> m ()                                 -- result-fileInfoCopyInto _obj destInfo = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let destInfo' = unsafeManagedPtrCastPtr destInfo-    g_file_info_copy_into _obj' destInfo'-    touchManagedPtr _obj-    touchManagedPtr destInfo-    return ()--data FileInfoCopyIntoMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileInfoK a, FileInfoK b) => MethodInfo FileInfoCopyIntoMethodInfo a signature where-    overloadedMethod _ = fileInfoCopyInto---- method FileInfo::dup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : False--- Skip return : False--foreign import ccall "g_file_info_dup" g_file_info_dup :: -    Ptr FileInfo ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO (Ptr FileInfo)---fileInfoDup ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m FileInfo                           -- result-fileInfoDup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_dup _obj'-    checkUnexpectedReturnNULL "g_file_info_dup" result-    result' <- (wrapObject FileInfo) result-    touchManagedPtr _obj-    return result'--data FileInfoDupMethodInfo-instance (signature ~ (m FileInfo), MonadIO m, FileInfoK a) => MethodInfo FileInfoDupMethodInfo a signature where-    overloadedMethod _ = fileInfoDup---- method FileInfo::get_attribute_as_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO CString---fileInfoGetAttributeAsString ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m T.Text                             -- result-fileInfoGetAttributeAsString _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_as_string _obj' attribute'-    checkUnexpectedReturnNULL "g_file_info_get_attribute_as_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileInfoGetAttributeAsStringMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeAsStringMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeAsString---- method FileInfo::get_attribute_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO CInt---fileInfoGetAttributeBoolean ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m Bool                               -- result-fileInfoGetAttributeBoolean _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_boolean _obj' attribute'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileInfoGetAttributeBooleanMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeBooleanMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeBoolean---- method FileInfo::get_attribute_byte_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO CString---fileInfoGetAttributeByteString ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m T.Text                             -- result-fileInfoGetAttributeByteString _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_byte_string _obj' attribute'-    checkUnexpectedReturnNULL "g_file_info_get_attribute_byte_string" result-    result' <- cstringToText result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileInfoGetAttributeByteStringMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeByteStringMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeByteString---- method FileInfo::get_attribute_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "value_pp", argType = TBasicType TPtr, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status", argType = TInterface "Gio" "FileAttributeStatus", direction = DirectionOut, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr CUInt ->                            -- type : TInterface "Gio" "FileAttributeType"-    Ptr (Ptr ()) ->                         -- value_pp : TBasicType TPtr-    Ptr CUInt ->                            -- status : TInterface "Gio" "FileAttributeStatus"-    IO CInt---fileInfoGetAttributeData ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m (Bool,FileAttributeType,(Ptr ()),FileAttributeStatus)-- result-fileInfoGetAttributeData _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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 _obj' 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 _obj-    freeMem attribute'-    freeMem type_-    freeMem valuePp-    freeMem status-    return (result', type_'', valuePp', status'')--data FileInfoGetAttributeDataMethodInfo-instance (signature ~ (T.Text -> m (Bool,FileAttributeType,(Ptr ()),FileAttributeStatus)), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeDataMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeData---- method FileInfo::get_attribute_int32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO Int32---fileInfoGetAttributeInt32 ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m Int32                              -- result-fileInfoGetAttributeInt32 _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_int32 _obj' attribute'-    touchManagedPtr _obj-    freeMem attribute'-    return result--data FileInfoGetAttributeInt32MethodInfo-instance (signature ~ (T.Text -> m Int32), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeInt32MethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeInt32---- method FileInfo::get_attribute_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO Int64---fileInfoGetAttributeInt64 ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m Int64                              -- result-fileInfoGetAttributeInt64 _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_int64 _obj' attribute'-    touchManagedPtr _obj-    freeMem attribute'-    return result--data FileInfoGetAttributeInt64MethodInfo-instance (signature ~ (T.Text -> m Int64), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeInt64MethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeInt64---- method FileInfo::get_attribute_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GObject" "Object")--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_attribute_object" g_file_info_get_attribute_object :: -    Ptr FileInfo ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO (Ptr GObject.Object)---fileInfoGetAttributeObject ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m GObject.Object                     -- result-fileInfoGetAttributeObject _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_object _obj' attribute'-    checkUnexpectedReturnNULL "g_file_info_get_attribute_object" result-    result' <- (newObject GObject.Object) result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileInfoGetAttributeObjectMethodInfo-instance (signature ~ (T.Text -> m GObject.Object), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeObjectMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeObject---- method FileInfo::get_attribute_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileAttributeStatus")--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_attribute_status" g_file_info_get_attribute_status :: -    Ptr FileInfo ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO CUInt---fileInfoGetAttributeStatus ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m FileAttributeStatus                -- result-fileInfoGetAttributeStatus _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_status _obj' attribute'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileInfoGetAttributeStatusMethodInfo-instance (signature ~ (T.Text -> m FileAttributeStatus), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeStatusMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeStatus---- method FileInfo::get_attribute_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO CString---fileInfoGetAttributeString ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m T.Text                             -- result-fileInfoGetAttributeString _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_string _obj' attribute'-    checkUnexpectedReturnNULL "g_file_info_get_attribute_string" result-    result' <- cstringToText result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileInfoGetAttributeStringMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeStringMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeString---- method FileInfo::get_attribute_stringv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO (Ptr CString)---fileInfoGetAttributeStringv ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m [T.Text]                           -- result-fileInfoGetAttributeStringv _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_stringv _obj' attribute'-    checkUnexpectedReturnNULL "g_file_info_get_attribute_stringv" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileInfoGetAttributeStringvMethodInfo-instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeStringvMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeStringv---- method FileInfo::get_attribute_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileAttributeType")--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_attribute_type" g_file_info_get_attribute_type :: -    Ptr FileInfo ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO CUInt---fileInfoGetAttributeType ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m FileAttributeType                  -- result-fileInfoGetAttributeType _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_type _obj' attribute'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileInfoGetAttributeTypeMethodInfo-instance (signature ~ (T.Text -> m FileAttributeType), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeTypeMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeType---- method FileInfo::get_attribute_uint32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO Word32---fileInfoGetAttributeUint32 ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m Word32                             -- result-fileInfoGetAttributeUint32 _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_uint32 _obj' attribute'-    touchManagedPtr _obj-    freeMem attribute'-    return result--data FileInfoGetAttributeUint32MethodInfo-instance (signature ~ (T.Text -> m Word32), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeUint32MethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeUint32---- method FileInfo::get_attribute_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO Word64---fileInfoGetAttributeUint64 ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m Word64                             -- result-fileInfoGetAttributeUint64 _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_uint64 _obj' attribute'-    touchManagedPtr _obj-    freeMem attribute'-    return result--data FileInfoGetAttributeUint64MethodInfo-instance (signature ~ (T.Text -> m Word64), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeUint64MethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeUint64---- method FileInfo::get_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO CString---fileInfoGetContentType ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-fileInfoGetContentType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_content_type _obj'-    checkUnexpectedReturnNULL "g_file_info_get_content_type" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FileInfoGetContentTypeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetContentTypeMethodInfo a signature where-    overloadedMethod _ = fileInfoGetContentType---- method FileInfo::get_deletion_date--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "DateTime")--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_deletion_date" g_file_info_get_deletion_date :: -    Ptr FileInfo ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO (Ptr GLib.DateTime)---fileInfoGetDeletionDate ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m GLib.DateTime                      -- result-fileInfoGetDeletionDate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_deletion_date _obj'-    checkUnexpectedReturnNULL "g_file_info_get_deletion_date" result-    result' <- (wrapBoxed GLib.DateTime) result-    touchManagedPtr _obj-    return result'--data FileInfoGetDeletionDateMethodInfo-instance (signature ~ (m GLib.DateTime), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetDeletionDateMethodInfo a signature where-    overloadedMethod _ = fileInfoGetDeletionDate---- method FileInfo::get_display_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO CString---fileInfoGetDisplayName ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-fileInfoGetDisplayName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_display_name _obj'-    checkUnexpectedReturnNULL "g_file_info_get_display_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FileInfoGetDisplayNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetDisplayNameMethodInfo a signature where-    overloadedMethod _ = fileInfoGetDisplayName---- method FileInfo::get_edit_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO CString---fileInfoGetEditName ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-fileInfoGetEditName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_edit_name _obj'-    checkUnexpectedReturnNULL "g_file_info_get_edit_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FileInfoGetEditNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetEditNameMethodInfo a signature where-    overloadedMethod _ = fileInfoGetEditName---- method FileInfo::get_etag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO CString---fileInfoGetEtag ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-fileInfoGetEtag _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_etag _obj'-    checkUnexpectedReturnNULL "g_file_info_get_etag" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FileInfoGetEtagMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetEtagMethodInfo a signature where-    overloadedMethod _ = fileInfoGetEtag---- method FileInfo::get_file_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileType")--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_file_type" g_file_info_get_file_type :: -    Ptr FileInfo ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO CUInt---fileInfoGetFileType ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m FileType                           -- result-fileInfoGetFileType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_file_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data FileInfoGetFileTypeMethodInfo-instance (signature ~ (m FileType), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetFileTypeMethodInfo a signature where-    overloadedMethod _ = fileInfoGetFileType---- method FileInfo::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_icon" g_file_info_get_icon :: -    Ptr FileInfo ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO (Ptr Icon)---fileInfoGetIcon ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m Icon                               -- result-fileInfoGetIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_icon _obj'-    checkUnexpectedReturnNULL "g_file_info_get_icon" result-    result' <- (newObject Icon) result-    touchManagedPtr _obj-    return result'--data FileInfoGetIconMethodInfo-instance (signature ~ (m Icon), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetIconMethodInfo a signature where-    overloadedMethod _ = fileInfoGetIcon---- method FileInfo::get_is_backup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO CInt---fileInfoGetIsBackup ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-fileInfoGetIsBackup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_is_backup _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FileInfoGetIsBackupMethodInfo-instance (signature ~ (m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetIsBackupMethodInfo a signature where-    overloadedMethod _ = fileInfoGetIsBackup---- method FileInfo::get_is_hidden--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO CInt---fileInfoGetIsHidden ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-fileInfoGetIsHidden _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_is_hidden _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FileInfoGetIsHiddenMethodInfo-instance (signature ~ (m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetIsHiddenMethodInfo a signature where-    overloadedMethod _ = fileInfoGetIsHidden---- method FileInfo::get_is_symlink--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO CInt---fileInfoGetIsSymlink ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-fileInfoGetIsSymlink _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_is_symlink _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FileInfoGetIsSymlinkMethodInfo-instance (signature ~ (m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetIsSymlinkMethodInfo a signature where-    overloadedMethod _ = fileInfoGetIsSymlink---- method FileInfo::get_modification_time--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    Ptr GLib.TimeVal ->                     -- result : TInterface "GLib" "TimeVal"-    IO ()---fileInfoGetModificationTime ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m (GLib.TimeVal)                     -- result-fileInfoGetModificationTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result_ <- callocBytes 16 :: IO (Ptr GLib.TimeVal)-    g_file_info_get_modification_time _obj' result_-    result_' <- (wrapPtr GLib.TimeVal) result_-    touchManagedPtr _obj-    return result_'--data FileInfoGetModificationTimeMethodInfo-instance (signature ~ (m (GLib.TimeVal)), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetModificationTimeMethodInfo a signature where-    overloadedMethod _ = fileInfoGetModificationTime---- method FileInfo::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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_name" g_file_info_get_name :: -    Ptr FileInfo ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO CString---fileInfoGetName ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-fileInfoGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_name _obj'-    checkUnexpectedReturnNULL "g_file_info_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FileInfoGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetNameMethodInfo a signature where-    overloadedMethod _ = fileInfoGetName---- method FileInfo::get_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO Int64---fileInfoGetSize ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m Int64                              -- result-fileInfoGetSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_size _obj'-    touchManagedPtr _obj-    return result--data FileInfoGetSizeMethodInfo-instance (signature ~ (m Int64), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetSizeMethodInfo a signature where-    overloadedMethod _ = fileInfoGetSize---- method FileInfo::get_sort_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO Int32---fileInfoGetSortOrder ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-fileInfoGetSortOrder _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_sort_order _obj'-    touchManagedPtr _obj-    return result--data FileInfoGetSortOrderMethodInfo-instance (signature ~ (m Int32), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetSortOrderMethodInfo a signature where-    overloadedMethod _ = fileInfoGetSortOrder---- method FileInfo::get_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_symbolic_icon" g_file_info_get_symbolic_icon :: -    Ptr FileInfo ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO (Ptr Icon)---fileInfoGetSymbolicIcon ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m Icon                               -- result-fileInfoGetSymbolicIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_symbolic_icon _obj'-    checkUnexpectedReturnNULL "g_file_info_get_symbolic_icon" result-    result' <- (newObject Icon) result-    touchManagedPtr _obj-    return result'--data FileInfoGetSymbolicIconMethodInfo-instance (signature ~ (m Icon), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetSymbolicIconMethodInfo a signature where-    overloadedMethod _ = fileInfoGetSymbolicIcon---- method FileInfo::get_symlink_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO CString---fileInfoGetSymlinkTarget ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-fileInfoGetSymlinkTarget _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_info_get_symlink_target _obj'-    checkUnexpectedReturnNULL "g_file_info_get_symlink_target" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FileInfoGetSymlinkTargetMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetSymlinkTargetMethodInfo a signature where-    overloadedMethod _ = fileInfoGetSymlinkTarget---- method FileInfo::has_attribute--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO CInt---fileInfoHasAttribute ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m Bool                               -- result-fileInfoHasAttribute _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_info_has_attribute _obj' attribute'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileInfoHasAttributeMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoHasAttributeMethodInfo a signature where-    overloadedMethod _ = fileInfoHasAttribute---- method FileInfo::has_namespace--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- name_space : TBasicType TUTF8-    IO CInt---fileInfoHasNamespace ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- nameSpace-    -> m Bool                               -- result-fileInfoHasNamespace _obj nameSpace = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    nameSpace' <- textToCString nameSpace-    result <- g_file_info_has_namespace _obj' nameSpace'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem nameSpace'-    return result'--data FileInfoHasNamespaceMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoHasNamespaceMethodInfo a signature where-    overloadedMethod _ = fileInfoHasNamespace---- method FileInfo::list_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- name_space : TBasicType TUTF8-    IO (Ptr CString)---fileInfoListAttributes ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- nameSpace-    -> m (Maybe [T.Text])                   -- result-fileInfoListAttributes _obj nameSpace = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    nameSpace' <- textToCString nameSpace-    result <- g_file_info_list_attributes _obj' nameSpace'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- unpackZeroTerminatedUTF8CArray result'-        mapZeroTerminatedCArray freeMem result'-        freeMem result'-        return result''-    touchManagedPtr _obj-    freeMem nameSpace'-    return maybeResult--data FileInfoListAttributesMethodInfo-instance (signature ~ (T.Text -> m (Maybe [T.Text])), MonadIO m, FileInfoK a) => MethodInfo FileInfoListAttributesMethodInfo a signature where-    overloadedMethod _ = fileInfoListAttributes---- method FileInfo::remove_attribute--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    IO ()---fileInfoRemoveAttribute ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> m ()                                 -- result-fileInfoRemoveAttribute _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    g_file_info_remove_attribute _obj' attribute'-    touchManagedPtr _obj-    freeMem attribute'-    return ()--data FileInfoRemoveAttributeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoRemoveAttributeMethodInfo a signature where-    overloadedMethod _ = fileInfoRemoveAttribute---- method FileInfo::set_attribute--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value_p", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    CUInt ->                                -- type : TInterface "Gio" "FileAttributeType"-    Ptr () ->                               -- value_p : TBasicType TPtr-    IO ()---fileInfoSetAttribute ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> FileAttributeType                    -- type_-    -> Ptr ()                               -- valueP-    -> m ()                                 -- result-fileInfoSetAttribute _obj attribute type_ valueP = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    let type_' = (fromIntegral . fromEnum) type_-    g_file_info_set_attribute _obj' attribute' type_' valueP-    touchManagedPtr _obj-    freeMem attribute'-    return ()--data FileInfoSetAttributeMethodInfo-instance (signature ~ (T.Text -> FileAttributeType -> Ptr () -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttribute---- method FileInfo::set_attribute_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    CInt ->                                 -- attr_value : TBasicType TBoolean-    IO ()---fileInfoSetAttributeBoolean ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Bool                                 -- attrValue-    -> m ()                                 -- result-fileInfoSetAttributeBoolean _obj attribute attrValue = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    let attrValue' = (fromIntegral . fromEnum) attrValue-    g_file_info_set_attribute_boolean _obj' attribute' attrValue'-    touchManagedPtr _obj-    freeMem attribute'-    return ()--data FileInfoSetAttributeBooleanMethodInfo-instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeBooleanMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeBoolean---- method FileInfo::set_attribute_byte_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    CString ->                              -- attr_value : TBasicType TUTF8-    IO ()---fileInfoSetAttributeByteString ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> T.Text                               -- attrValue-    -> m ()                                 -- result-fileInfoSetAttributeByteString _obj attribute attrValue = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    attrValue' <- textToCString attrValue-    g_file_info_set_attribute_byte_string _obj' attribute' attrValue'-    touchManagedPtr _obj-    freeMem attribute'-    freeMem attrValue'-    return ()--data FileInfoSetAttributeByteStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeByteStringMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeByteString---- method FileInfo::set_attribute_int32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    Int32 ->                                -- attr_value : TBasicType TInt32-    IO ()---fileInfoSetAttributeInt32 ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Int32                                -- attrValue-    -> m ()                                 -- result-fileInfoSetAttributeInt32 _obj attribute attrValue = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    g_file_info_set_attribute_int32 _obj' attribute' attrValue-    touchManagedPtr _obj-    freeMem attribute'-    return ()--data FileInfoSetAttributeInt32MethodInfo-instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeInt32MethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeInt32---- method FileInfo::set_attribute_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    Int64 ->                                -- attr_value : TBasicType TInt64-    IO ()---fileInfoSetAttributeInt64 ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Int64                                -- attrValue-    -> m ()                                 -- result-fileInfoSetAttributeInt64 _obj attribute attrValue = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    g_file_info_set_attribute_int64 _obj' attribute' attrValue-    touchManagedPtr _obj-    freeMem attribute'-    return ()--data FileInfoSetAttributeInt64MethodInfo-instance (signature ~ (T.Text -> Int64 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeInt64MethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeInt64---- method FileInfo::set_attribute_mask--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    Ptr FileAttributeMatcher ->             -- mask : TInterface "Gio" "FileAttributeMatcher"-    IO ()---fileInfoSetAttributeMask ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> FileAttributeMatcher                 -- mask-    -> m ()                                 -- result-fileInfoSetAttributeMask _obj mask = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let mask' = unsafeManagedPtrGetPtr mask-    g_file_info_set_attribute_mask _obj' mask'-    touchManagedPtr _obj-    touchManagedPtr mask-    return ()--data FileInfoSetAttributeMaskMethodInfo-instance (signature ~ (FileAttributeMatcher -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeMaskMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeMask---- method FileInfo::set_attribute_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr GObject.Object ->                   -- attr_value : TInterface "GObject" "Object"-    IO ()---fileInfoSetAttributeObject ::-    (MonadIO m, FileInfoK a, GObject.ObjectK b) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> b                                    -- attrValue-    -> m ()                                 -- result-fileInfoSetAttributeObject _obj attribute attrValue = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    let attrValue' = unsafeManagedPtrCastPtr attrValue-    g_file_info_set_attribute_object _obj' attribute' attrValue'-    touchManagedPtr _obj-    touchManagedPtr attrValue-    freeMem attribute'-    return ()--data FileInfoSetAttributeObjectMethodInfo-instance (signature ~ (T.Text -> b -> m ()), MonadIO m, FileInfoK a, GObject.ObjectK b) => MethodInfo FileInfoSetAttributeObjectMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeObject---- method FileInfo::set_attribute_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status", argType = TInterface "Gio" "FileAttributeStatus", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    CUInt ->                                -- status : TInterface "Gio" "FileAttributeStatus"-    IO CInt---fileInfoSetAttributeStatus ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> FileAttributeStatus                  -- status-    -> m Bool                               -- result-fileInfoSetAttributeStatus _obj attribute status = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    let status' = (fromIntegral . fromEnum) status-    result <- g_file_info_set_attribute_status _obj' attribute' status'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileInfoSetAttributeStatusMethodInfo-instance (signature ~ (T.Text -> FileAttributeStatus -> m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeStatusMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeStatus---- method FileInfo::set_attribute_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    CString ->                              -- attr_value : TBasicType TUTF8-    IO ()---fileInfoSetAttributeString ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> T.Text                               -- attrValue-    -> m ()                                 -- result-fileInfoSetAttributeString _obj attribute attrValue = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    attrValue' <- textToCString attrValue-    g_file_info_set_attribute_string _obj' attribute' attrValue'-    touchManagedPtr _obj-    freeMem attribute'-    freeMem attrValue'-    return ()--data FileInfoSetAttributeStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeStringMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeString---- method FileInfo::set_attribute_stringv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr CString ->                          -- attr_value : TCArray False (-1) (-1) (TBasicType TUTF8)-    IO ()---fileInfoSetAttributeStringv ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Ptr CString                          -- attrValue-    -> m ()                                 -- result-fileInfoSetAttributeStringv _obj attribute attrValue = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    g_file_info_set_attribute_stringv _obj' attribute' attrValue-    touchManagedPtr _obj-    freeMem attribute'-    return ()--data FileInfoSetAttributeStringvMethodInfo-instance (signature ~ (T.Text -> Ptr CString -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeStringvMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeStringv---- method FileInfo::set_attribute_uint32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    Word32 ->                               -- attr_value : TBasicType TUInt32-    IO ()---fileInfoSetAttributeUint32 ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Word32                               -- attrValue-    -> m ()                                 -- result-fileInfoSetAttributeUint32 _obj attribute attrValue = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    g_file_info_set_attribute_uint32 _obj' attribute' attrValue-    touchManagedPtr _obj-    freeMem attribute'-    return ()--data FileInfoSetAttributeUint32MethodInfo-instance (signature ~ (T.Text -> Word32 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeUint32MethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeUint32---- method FileInfo::set_attribute_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- attribute : TBasicType TUTF8-    Word64 ->                               -- attr_value : TBasicType TUInt64-    IO ()---fileInfoSetAttributeUint64 ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Word64                               -- attrValue-    -> m ()                                 -- result-fileInfoSetAttributeUint64 _obj attribute attrValue = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    g_file_info_set_attribute_uint64 _obj' attribute' attrValue-    touchManagedPtr _obj-    freeMem attribute'-    return ()--data FileInfoSetAttributeUint64MethodInfo-instance (signature ~ (T.Text -> Word64 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeUint64MethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeUint64---- method FileInfo::set_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- content_type : TBasicType TUTF8-    IO ()---fileInfoSetContentType ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- contentType-    -> m ()                                 -- result-fileInfoSetContentType _obj contentType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    contentType' <- textToCString contentType-    g_file_info_set_content_type _obj' contentType'-    touchManagedPtr _obj-    freeMem contentType'-    return ()--data FileInfoSetContentTypeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetContentTypeMethodInfo a signature where-    overloadedMethod _ = fileInfoSetContentType---- method FileInfo::set_display_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- display_name : TBasicType TUTF8-    IO ()---fileInfoSetDisplayName ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- displayName-    -> m ()                                 -- result-fileInfoSetDisplayName _obj displayName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    displayName' <- textToCString displayName-    g_file_info_set_display_name _obj' displayName'-    touchManagedPtr _obj-    freeMem displayName'-    return ()--data FileInfoSetDisplayNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetDisplayNameMethodInfo a signature where-    overloadedMethod _ = fileInfoSetDisplayName---- method FileInfo::set_edit_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edit_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- edit_name : TBasicType TUTF8-    IO ()---fileInfoSetEditName ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- editName-    -> m ()                                 -- result-fileInfoSetEditName _obj editName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    editName' <- textToCString editName-    g_file_info_set_edit_name _obj' editName'-    touchManagedPtr _obj-    freeMem editName'-    return ()--data FileInfoSetEditNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetEditNameMethodInfo a signature where-    overloadedMethod _ = fileInfoSetEditName---- method FileInfo::set_file_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "FileType", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CUInt ->                                -- type : TInterface "Gio" "FileType"-    IO ()---fileInfoSetFileType ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> FileType                             -- type_-    -> m ()                                 -- result-fileInfoSetFileType _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    g_file_info_set_file_type _obj' type_'-    touchManagedPtr _obj-    return ()--data FileInfoSetFileTypeMethodInfo-instance (signature ~ (FileType -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetFileTypeMethodInfo a signature where-    overloadedMethod _ = fileInfoSetFileType---- method FileInfo::set_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    Ptr Icon ->                             -- icon : TInterface "Gio" "Icon"-    IO ()---fileInfoSetIcon ::-    (MonadIO m, FileInfoK a, IconK b) =>-    a                                       -- _obj-    -> b                                    -- icon-    -> m ()                                 -- result-fileInfoSetIcon _obj icon = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let icon' = unsafeManagedPtrCastPtr icon-    g_file_info_set_icon _obj' icon'-    touchManagedPtr _obj-    touchManagedPtr icon-    return ()--data FileInfoSetIconMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileInfoK a, IconK b) => MethodInfo FileInfoSetIconMethodInfo a signature where-    overloadedMethod _ = fileInfoSetIcon---- method FileInfo::set_is_hidden--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CInt ->                                 -- is_hidden : TBasicType TBoolean-    IO ()---fileInfoSetIsHidden ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> Bool                                 -- isHidden-    -> m ()                                 -- result-fileInfoSetIsHidden _obj isHidden = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let isHidden' = (fromIntegral . fromEnum) isHidden-    g_file_info_set_is_hidden _obj' isHidden'-    touchManagedPtr _obj-    return ()--data FileInfoSetIsHiddenMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetIsHiddenMethodInfo a signature where-    overloadedMethod _ = fileInfoSetIsHidden---- method FileInfo::set_is_symlink--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_symlink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CInt ->                                 -- is_symlink : TBasicType TBoolean-    IO ()---fileInfoSetIsSymlink ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> Bool                                 -- isSymlink-    -> m ()                                 -- result-fileInfoSetIsSymlink _obj isSymlink = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let isSymlink' = (fromIntegral . fromEnum) isSymlink-    g_file_info_set_is_symlink _obj' isSymlink'-    touchManagedPtr _obj-    return ()--data FileInfoSetIsSymlinkMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetIsSymlinkMethodInfo a signature where-    overloadedMethod _ = fileInfoSetIsSymlink---- method FileInfo::set_modification_time--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mtime", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    Ptr GLib.TimeVal ->                     -- mtime : TInterface "GLib" "TimeVal"-    IO ()---fileInfoSetModificationTime ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> GLib.TimeVal                         -- mtime-    -> m ()                                 -- result-fileInfoSetModificationTime _obj mtime = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let mtime' = unsafeManagedPtrGetPtr mtime-    g_file_info_set_modification_time _obj' mtime'-    touchManagedPtr _obj-    touchManagedPtr mtime-    return ()--data FileInfoSetModificationTimeMethodInfo-instance (signature ~ (GLib.TimeVal -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetModificationTimeMethodInfo a signature where-    overloadedMethod _ = fileInfoSetModificationTime---- method FileInfo::set_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- name : TBasicType TUTF8-    IO ()---fileInfoSetName ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- name-    -> m ()                                 -- result-fileInfoSetName _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    g_file_info_set_name _obj' name'-    touchManagedPtr _obj-    freeMem name'-    return ()--data FileInfoSetNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetNameMethodInfo a signature where-    overloadedMethod _ = fileInfoSetName---- method FileInfo::set_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    Int64 ->                                -- size : TBasicType TInt64-    IO ()---fileInfoSetSize ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> Int64                                -- size-    -> m ()                                 -- result-fileInfoSetSize _obj size = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_file_info_set_size _obj' size-    touchManagedPtr _obj-    return ()--data FileInfoSetSizeMethodInfo-instance (signature ~ (Int64 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetSizeMethodInfo a signature where-    overloadedMethod _ = fileInfoSetSize---- method FileInfo::set_sort_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_order", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    Int32 ->                                -- sort_order : TBasicType TInt32-    IO ()---fileInfoSetSortOrder ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> Int32                                -- sortOrder-    -> m ()                                 -- result-fileInfoSetSortOrder _obj sortOrder = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_file_info_set_sort_order _obj' sortOrder-    touchManagedPtr _obj-    return ()--data FileInfoSetSortOrderMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetSortOrderMethodInfo a signature where-    overloadedMethod _ = fileInfoSetSortOrder---- method FileInfo::set_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    Ptr Icon ->                             -- icon : TInterface "Gio" "Icon"-    IO ()---fileInfoSetSymbolicIcon ::-    (MonadIO m, FileInfoK a, IconK b) =>-    a                                       -- _obj-    -> b                                    -- icon-    -> m ()                                 -- result-fileInfoSetSymbolicIcon _obj icon = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let icon' = unsafeManagedPtrCastPtr icon-    g_file_info_set_symbolic_icon _obj' icon'-    touchManagedPtr _obj-    touchManagedPtr icon-    return ()--data FileInfoSetSymbolicIconMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, FileInfoK a, IconK b) => MethodInfo FileInfoSetSymbolicIconMethodInfo a signature where-    overloadedMethod _ = fileInfoSetSymbolicIcon---- method FileInfo::set_symlink_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "symlink_target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    CString ->                              -- symlink_target : TBasicType TUTF8-    IO ()---fileInfoSetSymlinkTarget ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> T.Text                               -- symlinkTarget-    -> m ()                                 -- result-fileInfoSetSymlinkTarget _obj symlinkTarget = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    symlinkTarget' <- textToCString symlinkTarget-    g_file_info_set_symlink_target _obj' symlinkTarget'-    touchManagedPtr _obj-    freeMem symlinkTarget'-    return ()--data FileInfoSetSymlinkTargetMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetSymlinkTargetMethodInfo a signature where-    overloadedMethod _ = fileInfoSetSymlinkTarget---- method FileInfo::unset_attribute_mask--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "FileInfo"-    IO ()---fileInfoUnsetAttributeMask ::-    (MonadIO m, FileInfoK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-fileInfoUnsetAttributeMask _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_file_info_unset_attribute_mask _obj'-    touchManagedPtr _obj-    return ()--data FileInfoUnsetAttributeMaskMethodInfo-instance (signature ~ (m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoUnsetAttributeMaskMethodInfo a signature where-    overloadedMethod _ = fileInfoUnsetAttributeMask--
− GI/Gio/Objects/FileInfo.hs-boot 
@@ -1,75 +0,0 @@-module GI.Gio.Objects.FileInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileInfo = FileInfo (ForeignPtr FileInfo)-instance GObject FileInfo where-class GObject o => FileInfoK o-instance (GObject o, IsDescendantOf FileInfo o) => FileInfoK o-data FileInfoClearStatusMethodInfo-data FileInfoCopyIntoMethodInfo-data FileInfoDupMethodInfo-data FileInfoGetAttributeAsStringMethodInfo-data FileInfoGetAttributeBooleanMethodInfo-data FileInfoGetAttributeByteStringMethodInfo-data FileInfoGetAttributeDataMethodInfo-data FileInfoGetAttributeInt32MethodInfo-data FileInfoGetAttributeInt64MethodInfo-data FileInfoGetAttributeObjectMethodInfo-data FileInfoGetAttributeStatusMethodInfo-data FileInfoGetAttributeStringMethodInfo-data FileInfoGetAttributeStringvMethodInfo-data FileInfoGetAttributeTypeMethodInfo-data FileInfoGetAttributeUint32MethodInfo-data FileInfoGetAttributeUint64MethodInfo-data FileInfoGetContentTypeMethodInfo-data FileInfoGetDeletionDateMethodInfo-data FileInfoGetDisplayNameMethodInfo-data FileInfoGetEditNameMethodInfo-data FileInfoGetEtagMethodInfo-data FileInfoGetFileTypeMethodInfo-data FileInfoGetIconMethodInfo-data FileInfoGetIsBackupMethodInfo-data FileInfoGetIsHiddenMethodInfo-data FileInfoGetIsSymlinkMethodInfo-data FileInfoGetModificationTimeMethodInfo-data FileInfoGetNameMethodInfo-data FileInfoGetSizeMethodInfo-data FileInfoGetSortOrderMethodInfo-data FileInfoGetSymbolicIconMethodInfo-data FileInfoGetSymlinkTargetMethodInfo-data FileInfoHasAttributeMethodInfo-data FileInfoHasNamespaceMethodInfo-data FileInfoListAttributesMethodInfo-data FileInfoRemoveAttributeMethodInfo-data FileInfoSetAttributeMethodInfo-data FileInfoSetAttributeBooleanMethodInfo-data FileInfoSetAttributeByteStringMethodInfo-data FileInfoSetAttributeInt32MethodInfo-data FileInfoSetAttributeInt64MethodInfo-data FileInfoSetAttributeMaskMethodInfo-data FileInfoSetAttributeObjectMethodInfo-data FileInfoSetAttributeStatusMethodInfo-data FileInfoSetAttributeStringMethodInfo-data FileInfoSetAttributeStringvMethodInfo-data FileInfoSetAttributeUint32MethodInfo-data FileInfoSetAttributeUint64MethodInfo-data FileInfoSetContentTypeMethodInfo-data FileInfoSetDisplayNameMethodInfo-data FileInfoSetEditNameMethodInfo-data FileInfoSetFileTypeMethodInfo-data FileInfoSetIconMethodInfo-data FileInfoSetIsHiddenMethodInfo-data FileInfoSetIsSymlinkMethodInfo-data FileInfoSetModificationTimeMethodInfo-data FileInfoSetNameMethodInfo-data FileInfoSetSizeMethodInfo-data FileInfoSetSortOrderMethodInfo-data FileInfoSetSymbolicIconMethodInfo-data FileInfoSetSymlinkTargetMethodInfo-data FileInfoUnsetAttributeMaskMethodInfo
− GI/Gio/Objects/FileInputStream.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.FileInputStream-    ( ---- * Exported types-    FileInputStream(..)                     ,-    FileInputStreamK                        ,-    toFileInputStream                       ,-    noFileInputStream                       ,--- -- * Methods--- ** fileInputStreamQueryInfo-    FileInputStreamQueryInfoMethodInfo      ,-    fileInputStreamQueryInfo                ,----- ** fileInputStreamQueryInfoAsync-    FileInputStreamQueryInfoAsyncMethodInfo ,-    fileInputStreamQueryInfoAsync           ,----- ** fileInputStreamQueryInfoFinish-    FileInputStreamQueryInfoFinishMethodInfo,-    fileInputStreamQueryInfoFinish          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype FileInputStream = FileInputStream (ForeignPtr FileInputStream)-foreign import ccall "g_file_input_stream_get_type"-    c_g_file_input_stream_get_type :: IO GType--type instance ParentTypes FileInputStream = FileInputStreamParentTypes-type FileInputStreamParentTypes = '[InputStream, GObject.Object, Seekable]--instance GObject FileInputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_file_input_stream_get_type-    --class GObject o => FileInputStreamK o-instance (GObject o, IsDescendantOf FileInputStream o) => FileInputStreamK o--toFileInputStream :: FileInputStreamK o => o -> IO FileInputStream-toFileInputStream = unsafeCastTo FileInputStream--noFileInputStream :: Maybe FileInputStream-noFileInputStream = Nothing--type family ResolveFileInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFileInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFileInputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo-    ResolveFileInputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo-    ResolveFileInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo-    ResolveFileInputStreamMethod "close" o = InputStreamCloseMethodInfo-    ResolveFileInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo-    ResolveFileInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo-    ResolveFileInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFileInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFileInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo-    ResolveFileInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo-    ResolveFileInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFileInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFileInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFileInputStreamMethod "queryInfo" o = FileInputStreamQueryInfoMethodInfo-    ResolveFileInputStreamMethod "queryInfoAsync" o = FileInputStreamQueryInfoAsyncMethodInfo-    ResolveFileInputStreamMethod "queryInfoFinish" o = FileInputStreamQueryInfoFinishMethodInfo-    ResolveFileInputStreamMethod "read" o = InputStreamReadMethodInfo-    ResolveFileInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo-    ResolveFileInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo-    ResolveFileInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo-    ResolveFileInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo-    ResolveFileInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo-    ResolveFileInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo-    ResolveFileInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo-    ResolveFileInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo-    ResolveFileInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFileInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFileInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFileInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFileInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFileInputStreamMethod "seek" o = SeekableSeekMethodInfo-    ResolveFileInputStreamMethod "skip" o = InputStreamSkipMethodInfo-    ResolveFileInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo-    ResolveFileInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo-    ResolveFileInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFileInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFileInputStreamMethod "tell" o = SeekableTellMethodInfo-    ResolveFileInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFileInputStreamMethod "truncate" o = SeekableTruncateMethodInfo-    ResolveFileInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFileInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFileInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFileInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFileInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFileInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFileInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo-    ResolveFileInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFileInputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFileInputStreamMethod t FileInputStream, MethodInfo info FileInputStream p) => IsLabelProxy t (FileInputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileInputStreamMethod t FileInputStream, MethodInfo info FileInputStream p) => IsLabel t (FileInputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList FileInputStream = FileInputStreamAttributeList-type FileInputStreamAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FileInputStream = FileInputStreamSignalList-type FileInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FileInputStream::query_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : True--- Skip return : False--foreign import ccall "g_file_input_stream_query_info" g_file_input_stream_query_info :: -    Ptr FileInputStream ->                  -- _obj : TInterface "Gio" "FileInputStream"-    CString ->                              -- attributes : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInfo)---fileInputStreamQueryInfo ::-    (MonadIO m, FileInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> Maybe (b)                            -- cancellable-    -> m FileInfo                           -- result-fileInputStreamQueryInfo _obj attributes cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_input_stream_query_info _obj' attributes' maybeCancellable-        checkUnexpectedReturnNULL "g_file_input_stream_query_info" result-        result' <- (wrapObject FileInfo) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--data FileInputStreamQueryInfoMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m FileInfo), MonadIO m, FileInputStreamK a, CancellableK b) => MethodInfo FileInputStreamQueryInfoMethodInfo a signature where-    overloadedMethod _ = fileInputStreamQueryInfo---- method FileInputStream::query_info_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "FileInputStream"-    CString ->                              -- attributes : TBasicType TUTF8-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileInputStreamQueryInfoAsync ::-    (MonadIO m, FileInputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileInputStreamQueryInfoAsync _obj attributes ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_input_stream_query_info_async _obj' attributes' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--data FileInputStreamQueryInfoAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileInputStreamK a, CancellableK b) => MethodInfo FileInputStreamQueryInfoAsyncMethodInfo a signature where-    overloadedMethod _ = fileInputStreamQueryInfoAsync---- method FileInputStream::query_info_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                  -- _obj : TInterface "Gio" "FileInputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInfo)---fileInputStreamQueryInfoFinish ::-    (MonadIO m, FileInputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m FileInfo                           -- result-fileInputStreamQueryInfoFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_file_input_stream_query_info_finish _obj' result_'-        checkUnexpectedReturnNULL "g_file_input_stream_query_info_finish" result-        result' <- (wrapObject FileInfo) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data FileInputStreamQueryInfoFinishMethodInfo-instance (signature ~ (b -> m FileInfo), MonadIO m, FileInputStreamK a, AsyncResultK b) => MethodInfo FileInputStreamQueryInfoFinishMethodInfo a signature where-    overloadedMethod _ = fileInputStreamQueryInfoFinish--
− GI/Gio/Objects/FileInputStream.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gio.Objects.FileInputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileInputStream = FileInputStream (ForeignPtr FileInputStream)-instance GObject FileInputStream where-class GObject o => FileInputStreamK o-instance (GObject o, IsDescendantOf FileInputStream o) => FileInputStreamK o-data FileInputStreamQueryInfoMethodInfo-data FileInputStreamQueryInfoAsyncMethodInfo-data FileInputStreamQueryInfoFinishMethodInfo
− GI/Gio/Objects/FileMonitor.hs 
@@ -1,386 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.FileMonitor-    ( ---- * Exported types-    FileMonitor(..)                         ,-    FileMonitorK                            ,-    toFileMonitor                           ,-    noFileMonitor                           ,--- -- * Methods--- ** fileMonitorCancel-    FileMonitorCancelMethodInfo             ,-    fileMonitorCancel                       ,----- ** fileMonitorEmitEvent-    FileMonitorEmitEventMethodInfo          ,-    fileMonitorEmitEvent                    ,----- ** fileMonitorIsCancelled-    FileMonitorIsCancelledMethodInfo        ,-    fileMonitorIsCancelled                  ,----- ** fileMonitorSetRateLimit-    FileMonitorSetRateLimitMethodInfo       ,-    fileMonitorSetRateLimit                 ,----- -- * Properties--- ** Cancelled-    FileMonitorCancelledPropertyInfo        ,-    fileMonitorCancelled                    ,-    getFileMonitorCancelled                 ,----- ** RateLimit-    FileMonitorRateLimitPropertyInfo        ,-    constructFileMonitorRateLimit           ,-    fileMonitorRateLimit                    ,-    getFileMonitorRateLimit                 ,-    setFileMonitorRateLimit                 ,----- -- * Signals--- ** Changed-    FileMonitorChangedCallback              ,-    FileMonitorChangedCallbackC             ,-    FileMonitorChangedSignalInfo            ,-    afterFileMonitorChanged                 ,-    fileMonitorChangedCallbackWrapper       ,-    fileMonitorChangedClosure               ,-    mkFileMonitorChangedCallback            ,-    noFileMonitorChangedCallback            ,-    onFileMonitorChanged                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype FileMonitor = FileMonitor (ForeignPtr FileMonitor)-foreign import ccall "g_file_monitor_get_type"-    c_g_file_monitor_get_type :: IO GType--type instance ParentTypes FileMonitor = FileMonitorParentTypes-type FileMonitorParentTypes = '[GObject.Object]--instance GObject FileMonitor where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_file_monitor_get_type-    --class GObject o => FileMonitorK o-instance (GObject o, IsDescendantOf FileMonitor o) => FileMonitorK o--toFileMonitor :: FileMonitorK o => o -> IO FileMonitor-toFileMonitor = unsafeCastTo FileMonitor--noFileMonitor :: Maybe FileMonitor-noFileMonitor = Nothing--type family ResolveFileMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFileMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFileMonitorMethod "cancel" o = FileMonitorCancelMethodInfo-    ResolveFileMonitorMethod "emitEvent" o = FileMonitorEmitEventMethodInfo-    ResolveFileMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFileMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFileMonitorMethod "isCancelled" o = FileMonitorIsCancelledMethodInfo-    ResolveFileMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFileMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFileMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFileMonitorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFileMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFileMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFileMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFileMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFileMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFileMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFileMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFileMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFileMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFileMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFileMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFileMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFileMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFileMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFileMonitorMethod "setRateLimit" o = FileMonitorSetRateLimitMethodInfo-    ResolveFileMonitorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFileMonitorMethod t FileMonitor, MethodInfo info FileMonitor p) => IsLabelProxy t (FileMonitor -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileMonitorMethod t FileMonitor, MethodInfo info FileMonitor p) => IsLabel t (FileMonitor -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal FileMonitor::changed-type FileMonitorChangedCallback =-    File ->-    Maybe File ->-    FileMonitorEvent ->-    IO ()--noFileMonitorChangedCallback :: Maybe FileMonitorChangedCallback-noFileMonitorChangedCallback = Nothing--type FileMonitorChangedCallbackC =-    Ptr () ->                               -- object-    Ptr File ->-    Ptr File ->-    CUInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFileMonitorChangedCallback :: FileMonitorChangedCallbackC -> IO (FunPtr FileMonitorChangedCallbackC)--fileMonitorChangedClosure :: FileMonitorChangedCallback -> IO Closure-fileMonitorChangedClosure cb = newCClosure =<< mkFileMonitorChangedCallback wrapped-    where wrapped = fileMonitorChangedCallbackWrapper cb--fileMonitorChangedCallbackWrapper ::-    FileMonitorChangedCallback ->-    Ptr () ->-    Ptr File ->-    Ptr File ->-    CUInt ->-    Ptr () ->-    IO ()-fileMonitorChangedCallbackWrapper _cb _ file otherFile eventType _ = do-    file' <- (newObject File) file-    maybeOtherFile <--        if otherFile == nullPtr-        then return Nothing-        else do-            otherFile' <- (newObject File) otherFile-            return $ Just otherFile'-    let eventType' = (toEnum . fromIntegral) eventType-    _cb  file' maybeOtherFile eventType'--onFileMonitorChanged :: (GObject a, MonadIO m) => a -> FileMonitorChangedCallback -> m SignalHandlerId-onFileMonitorChanged obj cb = liftIO $ connectFileMonitorChanged obj cb SignalConnectBefore-afterFileMonitorChanged :: (GObject a, MonadIO m) => a -> FileMonitorChangedCallback -> m SignalHandlerId-afterFileMonitorChanged obj cb = connectFileMonitorChanged obj cb SignalConnectAfter--connectFileMonitorChanged :: (GObject a, MonadIO m) =>-                             a -> FileMonitorChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectFileMonitorChanged obj cb after = liftIO $ do-    cb' <- mkFileMonitorChangedCallback (fileMonitorChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after---- VVV Prop "cancelled"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getFileMonitorCancelled :: (MonadIO m, FileMonitorK o) => o -> m Bool-getFileMonitorCancelled obj = liftIO $ getObjectPropertyBool obj "cancelled"--data FileMonitorCancelledPropertyInfo-instance AttrInfo FileMonitorCancelledPropertyInfo where-    type AttrAllowedOps FileMonitorCancelledPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FileMonitorCancelledPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FileMonitorCancelledPropertyInfo = FileMonitorK-    type AttrGetType FileMonitorCancelledPropertyInfo = Bool-    type AttrLabel FileMonitorCancelledPropertyInfo = "cancelled"-    attrGet _ = getFileMonitorCancelled-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "rate-limit"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Just False)--getFileMonitorRateLimit :: (MonadIO m, FileMonitorK o) => o -> m Int32-getFileMonitorRateLimit obj = liftIO $ getObjectPropertyInt32 obj "rate-limit"--setFileMonitorRateLimit :: (MonadIO m, FileMonitorK o) => o -> Int32 -> m ()-setFileMonitorRateLimit obj val = liftIO $ setObjectPropertyInt32 obj "rate-limit" val--constructFileMonitorRateLimit :: Int32 -> IO ([Char], GValue)-constructFileMonitorRateLimit val = constructObjectPropertyInt32 "rate-limit" val--data FileMonitorRateLimitPropertyInfo-instance AttrInfo FileMonitorRateLimitPropertyInfo where-    type AttrAllowedOps FileMonitorRateLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint FileMonitorRateLimitPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint FileMonitorRateLimitPropertyInfo = FileMonitorK-    type AttrGetType FileMonitorRateLimitPropertyInfo = Int32-    type AttrLabel FileMonitorRateLimitPropertyInfo = "rate-limit"-    attrGet _ = getFileMonitorRateLimit-    attrSet _ = setFileMonitorRateLimit-    attrConstruct _ = constructFileMonitorRateLimit-    attrClear _ = undefined--type instance AttributeList FileMonitor = FileMonitorAttributeList-type FileMonitorAttributeList = ('[ '("cancelled", FileMonitorCancelledPropertyInfo), '("rateLimit", FileMonitorRateLimitPropertyInfo)] :: [(Symbol, *)])--fileMonitorCancelled :: AttrLabelProxy "cancelled"-fileMonitorCancelled = AttrLabelProxy--fileMonitorRateLimit :: AttrLabelProxy "rateLimit"-fileMonitorRateLimit = AttrLabelProxy--data FileMonitorChangedSignalInfo-instance SignalInfo FileMonitorChangedSignalInfo where-    type HaskellCallbackType FileMonitorChangedSignalInfo = FileMonitorChangedCallback-    connectSignal _ = connectFileMonitorChanged--type instance SignalList FileMonitor = FileMonitorSignalList-type FileMonitorSignalList = ('[ '("changed", FileMonitorChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FileMonitor::cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "FileMonitor"-    IO CInt---fileMonitorCancel ::-    (MonadIO m, FileMonitorK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-fileMonitorCancel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_monitor_cancel _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FileMonitorCancelMethodInfo-instance (signature ~ (m Bool), MonadIO m, FileMonitorK a) => MethodInfo FileMonitorCancelMethodInfo a signature where-    overloadedMethod _ = fileMonitorCancel---- method FileMonitor::emit_event--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other_file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_type", argType = TInterface "Gio" "FileMonitorEvent", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "FileMonitor"-    Ptr File ->                             -- child : TInterface "Gio" "File"-    Ptr File ->                             -- other_file : TInterface "Gio" "File"-    CUInt ->                                -- event_type : TInterface "Gio" "FileMonitorEvent"-    IO ()---fileMonitorEmitEvent ::-    (MonadIO m, FileMonitorK a, FileK b, FileK c) =>-    a                                       -- _obj-    -> b                                    -- child-    -> c                                    -- otherFile-    -> FileMonitorEvent                     -- eventType-    -> m ()                                 -- result-fileMonitorEmitEvent _obj child otherFile eventType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let child' = unsafeManagedPtrCastPtr child-    let otherFile' = unsafeManagedPtrCastPtr otherFile-    let eventType' = (fromIntegral . fromEnum) eventType-    g_file_monitor_emit_event _obj' child' otherFile' eventType'-    touchManagedPtr _obj-    touchManagedPtr child-    touchManagedPtr otherFile-    return ()--data FileMonitorEmitEventMethodInfo-instance (signature ~ (b -> c -> FileMonitorEvent -> m ()), MonadIO m, FileMonitorK a, FileK b, FileK c) => MethodInfo FileMonitorEmitEventMethodInfo a signature where-    overloadedMethod _ = fileMonitorEmitEvent---- method FileMonitor::is_cancelled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "FileMonitor"-    IO CInt---fileMonitorIsCancelled ::-    (MonadIO m, FileMonitorK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-fileMonitorIsCancelled _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_monitor_is_cancelled _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FileMonitorIsCancelledMethodInfo-instance (signature ~ (m Bool), MonadIO m, FileMonitorK a) => MethodInfo FileMonitorIsCancelledMethodInfo a signature where-    overloadedMethod _ = fileMonitorIsCancelled---- method FileMonitor::set_rate_limit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit_msecs", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "FileMonitor"-    Int32 ->                                -- limit_msecs : TBasicType TInt-    IO ()---fileMonitorSetRateLimit ::-    (MonadIO m, FileMonitorK a) =>-    a                                       -- _obj-    -> Int32                                -- limitMsecs-    -> m ()                                 -- result-fileMonitorSetRateLimit _obj limitMsecs = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_file_monitor_set_rate_limit _obj' limitMsecs-    touchManagedPtr _obj-    return ()--data FileMonitorSetRateLimitMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, FileMonitorK a) => MethodInfo FileMonitorSetRateLimitMethodInfo a signature where-    overloadedMethod _ = fileMonitorSetRateLimit--
− GI/Gio/Objects/FileMonitor.hs-boot 
@@ -1,20 +0,0 @@-module GI.Gio.Objects.FileMonitor where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileMonitor = FileMonitor (ForeignPtr FileMonitor)-instance GObject FileMonitor where-class GObject o => FileMonitorK o-instance (GObject o, IsDescendantOf FileMonitor o) => FileMonitorK o-data FileMonitorCancelledPropertyInfo-data FileMonitorRateLimitPropertyInfo-data FileMonitorChangedSignalInfo-data FileMonitorCancelMethodInfo-data FileMonitorEmitEventMethodInfo-data FileMonitorIsCancelledMethodInfo-data FileMonitorSetRateLimitMethodInfo
− GI/Gio/Objects/FileOutputStream.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.FileOutputStream-    ( ---- * Exported types-    FileOutputStream(..)                    ,-    FileOutputStreamK                       ,-    toFileOutputStream                      ,-    noFileOutputStream                      ,--- -- * Methods--- ** fileOutputStreamGetEtag-    FileOutputStreamGetEtagMethodInfo       ,-    fileOutputStreamGetEtag                 ,----- ** fileOutputStreamQueryInfo-    FileOutputStreamQueryInfoMethodInfo     ,-    fileOutputStreamQueryInfo               ,----- ** fileOutputStreamQueryInfoAsync-    FileOutputStreamQueryInfoAsyncMethodInfo,-    fileOutputStreamQueryInfoAsync          ,----- ** fileOutputStreamQueryInfoFinish-    FileOutputStreamQueryInfoFinishMethodInfo,-    fileOutputStreamQueryInfoFinish         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype FileOutputStream = FileOutputStream (ForeignPtr FileOutputStream)-foreign import ccall "g_file_output_stream_get_type"-    c_g_file_output_stream_get_type :: IO GType--type instance ParentTypes FileOutputStream = FileOutputStreamParentTypes-type FileOutputStreamParentTypes = '[OutputStream, GObject.Object, Seekable]--instance GObject FileOutputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_file_output_stream_get_type-    --class GObject o => FileOutputStreamK o-instance (GObject o, IsDescendantOf FileOutputStream o) => FileOutputStreamK o--toFileOutputStream :: FileOutputStreamK o => o -> IO FileOutputStream-toFileOutputStream = unsafeCastTo FileOutputStream--noFileOutputStream :: Maybe FileOutputStream-noFileOutputStream = Nothing--type family ResolveFileOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFileOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFileOutputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo-    ResolveFileOutputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo-    ResolveFileOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo-    ResolveFileOutputStreamMethod "close" o = OutputStreamCloseMethodInfo-    ResolveFileOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo-    ResolveFileOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo-    ResolveFileOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo-    ResolveFileOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo-    ResolveFileOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo-    ResolveFileOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFileOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFileOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo-    ResolveFileOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo-    ResolveFileOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo-    ResolveFileOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFileOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFileOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFileOutputStreamMethod "queryInfo" o = FileOutputStreamQueryInfoMethodInfo-    ResolveFileOutputStreamMethod "queryInfoAsync" o = FileOutputStreamQueryInfoAsyncMethodInfo-    ResolveFileOutputStreamMethod "queryInfoFinish" o = FileOutputStreamQueryInfoFinishMethodInfo-    ResolveFileOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFileOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFileOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFileOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFileOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFileOutputStreamMethod "seek" o = SeekableSeekMethodInfo-    ResolveFileOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo-    ResolveFileOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo-    ResolveFileOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo-    ResolveFileOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFileOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFileOutputStreamMethod "tell" o = SeekableTellMethodInfo-    ResolveFileOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFileOutputStreamMethod "truncate" o = SeekableTruncateMethodInfo-    ResolveFileOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFileOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFileOutputStreamMethod "write" o = OutputStreamWriteMethodInfo-    ResolveFileOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo-    ResolveFileOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo-    ResolveFileOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo-    ResolveFileOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo-    ResolveFileOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo-    ResolveFileOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo-    ResolveFileOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo-    ResolveFileOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo-    ResolveFileOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFileOutputStreamMethod "getEtag" o = FileOutputStreamGetEtagMethodInfo-    ResolveFileOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFileOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFileOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFileOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo-    ResolveFileOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFileOutputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFileOutputStreamMethod t FileOutputStream, MethodInfo info FileOutputStream p) => IsLabelProxy t (FileOutputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileOutputStreamMethod t FileOutputStream, MethodInfo info FileOutputStream p) => IsLabel t (FileOutputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList FileOutputStream = FileOutputStreamAttributeList-type FileOutputStreamAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FileOutputStream = FileOutputStreamSignalList-type FileOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FileOutputStream::get_etag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "FileOutputStream"-    IO CString---fileOutputStreamGetEtag ::-    (MonadIO m, FileOutputStreamK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-fileOutputStreamGetEtag _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_file_output_stream_get_etag _obj'-    checkUnexpectedReturnNULL "g_file_output_stream_get_etag" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FileOutputStreamGetEtagMethodInfo-instance (signature ~ (m T.Text), MonadIO m, FileOutputStreamK a) => MethodInfo FileOutputStreamGetEtagMethodInfo a signature where-    overloadedMethod _ = fileOutputStreamGetEtag---- method FileOutputStream::query_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : True--- Skip return : False--foreign import ccall "g_file_output_stream_query_info" g_file_output_stream_query_info :: -    Ptr FileOutputStream ->                 -- _obj : TInterface "Gio" "FileOutputStream"-    CString ->                              -- attributes : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInfo)---fileOutputStreamQueryInfo ::-    (MonadIO m, FileOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> Maybe (b)                            -- cancellable-    -> m FileInfo                           -- result-fileOutputStreamQueryInfo _obj attributes cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_output_stream_query_info _obj' attributes' maybeCancellable-        checkUnexpectedReturnNULL "g_file_output_stream_query_info" result-        result' <- (wrapObject FileInfo) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--data FileOutputStreamQueryInfoMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m FileInfo), MonadIO m, FileOutputStreamK a, CancellableK b) => MethodInfo FileOutputStreamQueryInfoMethodInfo a signature where-    overloadedMethod _ = fileOutputStreamQueryInfo---- method FileOutputStream::query_info_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "FileOutputStream"-    CString ->                              -- attributes : TBasicType TUTF8-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---fileOutputStreamQueryInfoAsync ::-    (MonadIO m, FileOutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- attributes-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-fileOutputStreamQueryInfoAsync _obj attributes ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_file_output_stream_query_info_async _obj' attributes' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--data FileOutputStreamQueryInfoAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileOutputStreamK a, CancellableK b) => MethodInfo FileOutputStreamQueryInfoAsyncMethodInfo a signature where-    overloadedMethod _ = fileOutputStreamQueryInfoAsync---- method FileOutputStream::query_info_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                 -- _obj : TInterface "Gio" "FileOutputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr FileInfo)---fileOutputStreamQueryInfoFinish ::-    (MonadIO m, FileOutputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m FileInfo                           -- result-fileOutputStreamQueryInfoFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_file_output_stream_query_info_finish _obj' result_'-        checkUnexpectedReturnNULL "g_file_output_stream_query_info_finish" result-        result' <- (wrapObject FileInfo) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data FileOutputStreamQueryInfoFinishMethodInfo-instance (signature ~ (b -> m FileInfo), MonadIO m, FileOutputStreamK a, AsyncResultK b) => MethodInfo FileOutputStreamQueryInfoFinishMethodInfo a signature where-    overloadedMethod _ = fileOutputStreamQueryInfoFinish--
− GI/Gio/Objects/FileOutputStream.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.FileOutputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileOutputStream = FileOutputStream (ForeignPtr FileOutputStream)-instance GObject FileOutputStream where-class GObject o => FileOutputStreamK o-instance (GObject o, IsDescendantOf FileOutputStream o) => FileOutputStreamK o-data FileOutputStreamGetEtagMethodInfo-data FileOutputStreamQueryInfoMethodInfo-data FileOutputStreamQueryInfoAsyncMethodInfo-data FileOutputStreamQueryInfoFinishMethodInfo
− GI/Gio/Objects/FilenameCompleter.hs 
@@ -1,295 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.FilenameCompleter-    ( ---- * Exported types-    FilenameCompleter(..)                   ,-    FilenameCompleterK                      ,-    toFilenameCompleter                     ,-    noFilenameCompleter                     ,--- -- * Methods--- ** filenameCompleterGetCompletionSuffix-    FilenameCompleterGetCompletionSuffixMethodInfo,-    filenameCompleterGetCompletionSuffix    ,----- ** filenameCompleterGetCompletions-    FilenameCompleterGetCompletionsMethodInfo,-    filenameCompleterGetCompletions         ,----- ** filenameCompleterNew-    filenameCompleterNew                    ,----- ** filenameCompleterSetDirsOnly-    FilenameCompleterSetDirsOnlyMethodInfo  ,-    filenameCompleterSetDirsOnly            ,----- -- * Signals--- ** GotCompletionData-    FilenameCompleterGotCompletionDataCallback,-    FilenameCompleterGotCompletionDataCallbackC,-    FilenameCompleterGotCompletionDataSignalInfo,-    afterFilenameCompleterGotCompletionData ,-    filenameCompleterGotCompletionDataCallbackWrapper,-    filenameCompleterGotCompletionDataClosure,-    mkFilenameCompleterGotCompletionDataCallback,-    noFilenameCompleterGotCompletionDataCallback,-    onFilenameCompleterGotCompletionData    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype FilenameCompleter = FilenameCompleter (ForeignPtr FilenameCompleter)-foreign import ccall "g_filename_completer_get_type"-    c_g_filename_completer_get_type :: IO GType--type instance ParentTypes FilenameCompleter = FilenameCompleterParentTypes-type FilenameCompleterParentTypes = '[GObject.Object]--instance GObject FilenameCompleter where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_filename_completer_get_type-    --class GObject o => FilenameCompleterK o-instance (GObject o, IsDescendantOf FilenameCompleter o) => FilenameCompleterK o--toFilenameCompleter :: FilenameCompleterK o => o -> IO FilenameCompleter-toFilenameCompleter = unsafeCastTo FilenameCompleter--noFilenameCompleter :: Maybe FilenameCompleter-noFilenameCompleter = Nothing--type family ResolveFilenameCompleterMethod (t :: Symbol) (o :: *) :: * where-    ResolveFilenameCompleterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFilenameCompleterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFilenameCompleterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFilenameCompleterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFilenameCompleterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFilenameCompleterMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFilenameCompleterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFilenameCompleterMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFilenameCompleterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFilenameCompleterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFilenameCompleterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFilenameCompleterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFilenameCompleterMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFilenameCompleterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFilenameCompleterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFilenameCompleterMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFilenameCompleterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFilenameCompleterMethod "getCompletionSuffix" o = FilenameCompleterGetCompletionSuffixMethodInfo-    ResolveFilenameCompleterMethod "getCompletions" o = FilenameCompleterGetCompletionsMethodInfo-    ResolveFilenameCompleterMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFilenameCompleterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFilenameCompleterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFilenameCompleterMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFilenameCompleterMethod "setDirsOnly" o = FilenameCompleterSetDirsOnlyMethodInfo-    ResolveFilenameCompleterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFilenameCompleterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFilenameCompleterMethod t FilenameCompleter, MethodInfo info FilenameCompleter p) => IsLabelProxy t (FilenameCompleter -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFilenameCompleterMethod t FilenameCompleter, MethodInfo info FilenameCompleter p) => IsLabel t (FilenameCompleter -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal FilenameCompleter::got-completion-data-type FilenameCompleterGotCompletionDataCallback =-    IO ()--noFilenameCompleterGotCompletionDataCallback :: Maybe FilenameCompleterGotCompletionDataCallback-noFilenameCompleterGotCompletionDataCallback = Nothing--type FilenameCompleterGotCompletionDataCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFilenameCompleterGotCompletionDataCallback :: FilenameCompleterGotCompletionDataCallbackC -> IO (FunPtr FilenameCompleterGotCompletionDataCallbackC)--filenameCompleterGotCompletionDataClosure :: FilenameCompleterGotCompletionDataCallback -> IO Closure-filenameCompleterGotCompletionDataClosure cb = newCClosure =<< mkFilenameCompleterGotCompletionDataCallback wrapped-    where wrapped = filenameCompleterGotCompletionDataCallbackWrapper cb--filenameCompleterGotCompletionDataCallbackWrapper ::-    FilenameCompleterGotCompletionDataCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-filenameCompleterGotCompletionDataCallbackWrapper _cb _ _ = do-    _cb --onFilenameCompleterGotCompletionData :: (GObject a, MonadIO m) => a -> FilenameCompleterGotCompletionDataCallback -> m SignalHandlerId-onFilenameCompleterGotCompletionData obj cb = liftIO $ connectFilenameCompleterGotCompletionData obj cb SignalConnectBefore-afterFilenameCompleterGotCompletionData :: (GObject a, MonadIO m) => a -> FilenameCompleterGotCompletionDataCallback -> m SignalHandlerId-afterFilenameCompleterGotCompletionData obj cb = connectFilenameCompleterGotCompletionData obj cb SignalConnectAfter--connectFilenameCompleterGotCompletionData :: (GObject a, MonadIO m) =>-                                             a -> FilenameCompleterGotCompletionDataCallback -> SignalConnectMode -> m SignalHandlerId-connectFilenameCompleterGotCompletionData obj cb after = liftIO $ do-    cb' <- mkFilenameCompleterGotCompletionDataCallback (filenameCompleterGotCompletionDataCallbackWrapper cb)-    connectSignalFunPtr obj "got-completion-data" cb' after--type instance AttributeList FilenameCompleter = FilenameCompleterAttributeList-type FilenameCompleterAttributeList = ('[ ] :: [(Symbol, *)])--data FilenameCompleterGotCompletionDataSignalInfo-instance SignalInfo FilenameCompleterGotCompletionDataSignalInfo where-    type HaskellCallbackType FilenameCompleterGotCompletionDataSignalInfo = FilenameCompleterGotCompletionDataCallback-    connectSignal _ = connectFilenameCompleterGotCompletionData--type instance SignalList FilenameCompleter = FilenameCompleterSignalList-type FilenameCompleterSignalList = ('[ '("gotCompletionData", FilenameCompleterGotCompletionDataSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FilenameCompleter::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "FilenameCompleter")--- throws : False--- Skip return : False--foreign import ccall "g_filename_completer_new" g_filename_completer_new :: -    IO (Ptr FilenameCompleter)---filenameCompleterNew ::-    (MonadIO m) =>-    m FilenameCompleter                     -- result-filenameCompleterNew  = liftIO $ do-    result <- g_filename_completer_new-    checkUnexpectedReturnNULL "g_filename_completer_new" result-    result' <- (wrapObject FilenameCompleter) result-    return result'---- method FilenameCompleter::get_completion_suffix--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "initial_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "FilenameCompleter"-    CString ->                              -- initial_text : TBasicType TUTF8-    IO CString---filenameCompleterGetCompletionSuffix ::-    (MonadIO m, FilenameCompleterK a) =>-    a                                       -- _obj-    -> T.Text                               -- initialText-    -> m T.Text                             -- result-filenameCompleterGetCompletionSuffix _obj initialText = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    initialText' <- textToCString initialText-    result <- g_filename_completer_get_completion_suffix _obj' initialText'-    checkUnexpectedReturnNULL "g_filename_completer_get_completion_suffix" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem initialText'-    return result'--data FilenameCompleterGetCompletionSuffixMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, FilenameCompleterK a) => MethodInfo FilenameCompleterGetCompletionSuffixMethodInfo a signature where-    overloadedMethod _ = filenameCompleterGetCompletionSuffix---- method FilenameCompleter::get_completions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "initial_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "FilenameCompleter"-    CString ->                              -- initial_text : TBasicType TUTF8-    IO (Ptr CString)---filenameCompleterGetCompletions ::-    (MonadIO m, FilenameCompleterK a) =>-    a                                       -- _obj-    -> T.Text                               -- initialText-    -> m [T.Text]                           -- result-filenameCompleterGetCompletions _obj initialText = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    initialText' <- textToCString initialText-    result <- g_filename_completer_get_completions _obj' initialText'-    checkUnexpectedReturnNULL "g_filename_completer_get_completions" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    freeMem initialText'-    return result'--data FilenameCompleterGetCompletionsMethodInfo-instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, FilenameCompleterK a) => MethodInfo FilenameCompleterGetCompletionsMethodInfo a signature where-    overloadedMethod _ = filenameCompleterGetCompletions---- method FilenameCompleter::set_dirs_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dirs_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "FilenameCompleter"-    CInt ->                                 -- dirs_only : TBasicType TBoolean-    IO ()---filenameCompleterSetDirsOnly ::-    (MonadIO m, FilenameCompleterK a) =>-    a                                       -- _obj-    -> Bool                                 -- dirsOnly-    -> m ()                                 -- result-filenameCompleterSetDirsOnly _obj dirsOnly = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let dirsOnly' = (fromIntegral . fromEnum) dirsOnly-    g_filename_completer_set_dirs_only _obj' dirsOnly'-    touchManagedPtr _obj-    return ()--data FilenameCompleterSetDirsOnlyMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, FilenameCompleterK a) => MethodInfo FilenameCompleterSetDirsOnlyMethodInfo a signature where-    overloadedMethod _ = filenameCompleterSetDirsOnly--
− GI/Gio/Objects/FilenameCompleter.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.FilenameCompleter where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FilenameCompleter = FilenameCompleter (ForeignPtr FilenameCompleter)-instance GObject FilenameCompleter where-class GObject o => FilenameCompleterK o-instance (GObject o, IsDescendantOf FilenameCompleter o) => FilenameCompleterK o-data FilenameCompleterGotCompletionDataSignalInfo-data FilenameCompleterGetCompletionSuffixMethodInfo-data FilenameCompleterGetCompletionsMethodInfo-data FilenameCompleterSetDirsOnlyMethodInfo
− GI/Gio/Objects/FilterInputStream.hs 
@@ -1,292 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.FilterInputStream-    ( ---- * Exported types-    FilterInputStream(..)                   ,-    FilterInputStreamK                      ,-    toFilterInputStream                     ,-    noFilterInputStream                     ,--- -- * Methods--- ** filterInputStreamGetBaseStream-    FilterInputStreamGetBaseStreamMethodInfo,-    filterInputStreamGetBaseStream          ,----- ** filterInputStreamGetCloseBaseStream-    FilterInputStreamGetCloseBaseStreamMethodInfo,-    filterInputStreamGetCloseBaseStream     ,----- ** filterInputStreamSetCloseBaseStream-    FilterInputStreamSetCloseBaseStreamMethodInfo,-    filterInputStreamSetCloseBaseStream     ,----- -- * Properties--- ** BaseStream-    FilterInputStreamBaseStreamPropertyInfo ,-    constructFilterInputStreamBaseStream    ,-    filterInputStreamBaseStream             ,-    getFilterInputStreamBaseStream          ,----- ** CloseBaseStream-    FilterInputStreamCloseBaseStreamPropertyInfo,-    constructFilterInputStreamCloseBaseStream,-    filterInputStreamCloseBaseStream        ,-    getFilterInputStreamCloseBaseStream     ,-    setFilterInputStreamCloseBaseStream     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype FilterInputStream = FilterInputStream (ForeignPtr FilterInputStream)-foreign import ccall "g_filter_input_stream_get_type"-    c_g_filter_input_stream_get_type :: IO GType--type instance ParentTypes FilterInputStream = FilterInputStreamParentTypes-type FilterInputStreamParentTypes = '[InputStream, GObject.Object]--instance GObject FilterInputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_filter_input_stream_get_type-    --class GObject o => FilterInputStreamK o-instance (GObject o, IsDescendantOf FilterInputStream o) => FilterInputStreamK o--toFilterInputStream :: FilterInputStreamK o => o -> IO FilterInputStream-toFilterInputStream = unsafeCastTo FilterInputStream--noFilterInputStream :: Maybe FilterInputStream-noFilterInputStream = Nothing--type family ResolveFilterInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveFilterInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFilterInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFilterInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo-    ResolveFilterInputStreamMethod "close" o = InputStreamCloseMethodInfo-    ResolveFilterInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo-    ResolveFilterInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo-    ResolveFilterInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFilterInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFilterInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo-    ResolveFilterInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo-    ResolveFilterInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFilterInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFilterInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFilterInputStreamMethod "read" o = InputStreamReadMethodInfo-    ResolveFilterInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo-    ResolveFilterInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo-    ResolveFilterInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo-    ResolveFilterInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo-    ResolveFilterInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo-    ResolveFilterInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo-    ResolveFilterInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo-    ResolveFilterInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo-    ResolveFilterInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFilterInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFilterInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFilterInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFilterInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFilterInputStreamMethod "skip" o = InputStreamSkipMethodInfo-    ResolveFilterInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo-    ResolveFilterInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo-    ResolveFilterInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFilterInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFilterInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFilterInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFilterInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFilterInputStreamMethod "getBaseStream" o = FilterInputStreamGetBaseStreamMethodInfo-    ResolveFilterInputStreamMethod "getCloseBaseStream" o = FilterInputStreamGetCloseBaseStreamMethodInfo-    ResolveFilterInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFilterInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFilterInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFilterInputStreamMethod "setCloseBaseStream" o = FilterInputStreamSetCloseBaseStreamMethodInfo-    ResolveFilterInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFilterInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo-    ResolveFilterInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFilterInputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFilterInputStreamMethod t FilterInputStream, MethodInfo info FilterInputStream p) => IsLabelProxy t (FilterInputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFilterInputStreamMethod t FilterInputStream, MethodInfo info FilterInputStream p) => IsLabel t (FilterInputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "base-stream"-   -- Type: TInterface "Gio" "InputStream"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getFilterInputStreamBaseStream :: (MonadIO m, FilterInputStreamK o) => o -> m InputStream-getFilterInputStreamBaseStream obj = liftIO $ checkUnexpectedNothing "getFilterInputStreamBaseStream" $ getObjectPropertyObject obj "base-stream" InputStream--constructFilterInputStreamBaseStream :: (InputStreamK a) => a -> IO ([Char], GValue)-constructFilterInputStreamBaseStream val = constructObjectPropertyObject "base-stream" (Just val)--data FilterInputStreamBaseStreamPropertyInfo-instance AttrInfo FilterInputStreamBaseStreamPropertyInfo where-    type AttrAllowedOps FilterInputStreamBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FilterInputStreamBaseStreamPropertyInfo = InputStreamK-    type AttrBaseTypeConstraint FilterInputStreamBaseStreamPropertyInfo = FilterInputStreamK-    type AttrGetType FilterInputStreamBaseStreamPropertyInfo = InputStream-    type AttrLabel FilterInputStreamBaseStreamPropertyInfo = "base-stream"-    attrGet _ = getFilterInputStreamBaseStream-    attrSet _ = undefined-    attrConstruct _ = constructFilterInputStreamBaseStream-    attrClear _ = undefined---- VVV Prop "close-base-stream"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getFilterInputStreamCloseBaseStream :: (MonadIO m, FilterInputStreamK o) => o -> m Bool-getFilterInputStreamCloseBaseStream obj = liftIO $ getObjectPropertyBool obj "close-base-stream"--setFilterInputStreamCloseBaseStream :: (MonadIO m, FilterInputStreamK o) => o -> Bool -> m ()-setFilterInputStreamCloseBaseStream obj val = liftIO $ setObjectPropertyBool obj "close-base-stream" val--constructFilterInputStreamCloseBaseStream :: Bool -> IO ([Char], GValue)-constructFilterInputStreamCloseBaseStream val = constructObjectPropertyBool "close-base-stream" val--data FilterInputStreamCloseBaseStreamPropertyInfo-instance AttrInfo FilterInputStreamCloseBaseStreamPropertyInfo where-    type AttrAllowedOps FilterInputStreamCloseBaseStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint FilterInputStreamCloseBaseStreamPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint FilterInputStreamCloseBaseStreamPropertyInfo = FilterInputStreamK-    type AttrGetType FilterInputStreamCloseBaseStreamPropertyInfo = Bool-    type AttrLabel FilterInputStreamCloseBaseStreamPropertyInfo = "close-base-stream"-    attrGet _ = getFilterInputStreamCloseBaseStream-    attrSet _ = setFilterInputStreamCloseBaseStream-    attrConstruct _ = constructFilterInputStreamCloseBaseStream-    attrClear _ = undefined--type instance AttributeList FilterInputStream = FilterInputStreamAttributeList-type FilterInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])--filterInputStreamBaseStream :: AttrLabelProxy "baseStream"-filterInputStreamBaseStream = AttrLabelProxy--filterInputStreamCloseBaseStream :: AttrLabelProxy "closeBaseStream"-filterInputStreamCloseBaseStream = AttrLabelProxy--type instance SignalList FilterInputStream = FilterInputStreamSignalList-type FilterInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FilterInputStream::get_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                -- _obj : TInterface "Gio" "FilterInputStream"-    IO (Ptr InputStream)---filterInputStreamGetBaseStream ::-    (MonadIO m, FilterInputStreamK a) =>-    a                                       -- _obj-    -> m InputStream                        -- result-filterInputStreamGetBaseStream _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_filter_input_stream_get_base_stream _obj'-    checkUnexpectedReturnNULL "g_filter_input_stream_get_base_stream" result-    result' <- (newObject InputStream) result-    touchManagedPtr _obj-    return result'--data FilterInputStreamGetBaseStreamMethodInfo-instance (signature ~ (m InputStream), MonadIO m, FilterInputStreamK a) => MethodInfo FilterInputStreamGetBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterInputStreamGetBaseStream---- method FilterInputStream::get_close_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "FilterInputStream"-    IO CInt---filterInputStreamGetCloseBaseStream ::-    (MonadIO m, FilterInputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-filterInputStreamGetCloseBaseStream _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_filter_input_stream_get_close_base_stream _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FilterInputStreamGetCloseBaseStreamMethodInfo-instance (signature ~ (m Bool), MonadIO m, FilterInputStreamK a) => MethodInfo FilterInputStreamGetCloseBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterInputStreamGetCloseBaseStream---- method FilterInputStream::set_close_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_base", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "FilterInputStream"-    CInt ->                                 -- close_base : TBasicType TBoolean-    IO ()---filterInputStreamSetCloseBaseStream ::-    (MonadIO m, FilterInputStreamK a) =>-    a                                       -- _obj-    -> Bool                                 -- closeBase-    -> m ()                                 -- result-filterInputStreamSetCloseBaseStream _obj closeBase = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let closeBase' = (fromIntegral . fromEnum) closeBase-    g_filter_input_stream_set_close_base_stream _obj' closeBase'-    touchManagedPtr _obj-    return ()--data FilterInputStreamSetCloseBaseStreamMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, FilterInputStreamK a) => MethodInfo FilterInputStreamSetCloseBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterInputStreamSetCloseBaseStream--
− GI/Gio/Objects/FilterInputStream.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Objects.FilterInputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FilterInputStream = FilterInputStream (ForeignPtr FilterInputStream)-instance GObject FilterInputStream where-class GObject o => FilterInputStreamK o-instance (GObject o, IsDescendantOf FilterInputStream o) => FilterInputStreamK o-data FilterInputStreamBaseStreamPropertyInfo-data FilterInputStreamCloseBaseStreamPropertyInfo-data FilterInputStreamGetBaseStreamMethodInfo-data FilterInputStreamGetCloseBaseStreamMethodInfo-data FilterInputStreamSetCloseBaseStreamMethodInfo
− GI/Gio/Objects/FilterOutputStream.hs 
@@ -1,292 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.FilterOutputStream-    ( ---- * Exported types-    FilterOutputStream(..)                  ,-    FilterOutputStreamK                     ,-    toFilterOutputStream                    ,-    noFilterOutputStream                    ,--- -- * Methods--- ** filterOutputStreamGetBaseStream-    FilterOutputStreamGetBaseStreamMethodInfo,-    filterOutputStreamGetBaseStream         ,----- ** filterOutputStreamGetCloseBaseStream-    FilterOutputStreamGetCloseBaseStreamMethodInfo,-    filterOutputStreamGetCloseBaseStream    ,----- ** filterOutputStreamSetCloseBaseStream-    FilterOutputStreamSetCloseBaseStreamMethodInfo,-    filterOutputStreamSetCloseBaseStream    ,----- -- * Properties--- ** BaseStream-    FilterOutputStreamBaseStreamPropertyInfo,-    constructFilterOutputStreamBaseStream   ,-    filterOutputStreamBaseStream            ,-    getFilterOutputStreamBaseStream         ,----- ** CloseBaseStream-    FilterOutputStreamCloseBaseStreamPropertyInfo,-    constructFilterOutputStreamCloseBaseStream,-    filterOutputStreamCloseBaseStream       ,-    getFilterOutputStreamCloseBaseStream    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype FilterOutputStream = FilterOutputStream (ForeignPtr FilterOutputStream)-foreign import ccall "g_filter_output_stream_get_type"-    c_g_filter_output_stream_get_type :: IO GType--type instance ParentTypes FilterOutputStream = FilterOutputStreamParentTypes-type FilterOutputStreamParentTypes = '[OutputStream, GObject.Object]--instance GObject FilterOutputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_filter_output_stream_get_type-    --class GObject o => FilterOutputStreamK o-instance (GObject o, IsDescendantOf FilterOutputStream o) => FilterOutputStreamK o--toFilterOutputStream :: FilterOutputStreamK o => o -> IO FilterOutputStream-toFilterOutputStream = unsafeCastTo FilterOutputStream--noFilterOutputStream :: Maybe FilterOutputStream-noFilterOutputStream = Nothing--type family ResolveFilterOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveFilterOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFilterOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFilterOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo-    ResolveFilterOutputStreamMethod "close" o = OutputStreamCloseMethodInfo-    ResolveFilterOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo-    ResolveFilterOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo-    ResolveFilterOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo-    ResolveFilterOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo-    ResolveFilterOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo-    ResolveFilterOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFilterOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFilterOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo-    ResolveFilterOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo-    ResolveFilterOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo-    ResolveFilterOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFilterOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFilterOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFilterOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFilterOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFilterOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFilterOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFilterOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFilterOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo-    ResolveFilterOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo-    ResolveFilterOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo-    ResolveFilterOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFilterOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFilterOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFilterOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFilterOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFilterOutputStreamMethod "write" o = OutputStreamWriteMethodInfo-    ResolveFilterOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo-    ResolveFilterOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo-    ResolveFilterOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo-    ResolveFilterOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo-    ResolveFilterOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo-    ResolveFilterOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo-    ResolveFilterOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo-    ResolveFilterOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo-    ResolveFilterOutputStreamMethod "getBaseStream" o = FilterOutputStreamGetBaseStreamMethodInfo-    ResolveFilterOutputStreamMethod "getCloseBaseStream" o = FilterOutputStreamGetCloseBaseStreamMethodInfo-    ResolveFilterOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFilterOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFilterOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFilterOutputStreamMethod "setCloseBaseStream" o = FilterOutputStreamSetCloseBaseStreamMethodInfo-    ResolveFilterOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFilterOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo-    ResolveFilterOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFilterOutputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFilterOutputStreamMethod t FilterOutputStream, MethodInfo info FilterOutputStream p) => IsLabelProxy t (FilterOutputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFilterOutputStreamMethod t FilterOutputStream, MethodInfo info FilterOutputStream p) => IsLabel t (FilterOutputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "base-stream"-   -- Type: TInterface "Gio" "OutputStream"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getFilterOutputStreamBaseStream :: (MonadIO m, FilterOutputStreamK o) => o -> m OutputStream-getFilterOutputStreamBaseStream obj = liftIO $ checkUnexpectedNothing "getFilterOutputStreamBaseStream" $ getObjectPropertyObject obj "base-stream" OutputStream--constructFilterOutputStreamBaseStream :: (OutputStreamK a) => a -> IO ([Char], GValue)-constructFilterOutputStreamBaseStream val = constructObjectPropertyObject "base-stream" (Just val)--data FilterOutputStreamBaseStreamPropertyInfo-instance AttrInfo FilterOutputStreamBaseStreamPropertyInfo where-    type AttrAllowedOps FilterOutputStreamBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FilterOutputStreamBaseStreamPropertyInfo = OutputStreamK-    type AttrBaseTypeConstraint FilterOutputStreamBaseStreamPropertyInfo = FilterOutputStreamK-    type AttrGetType FilterOutputStreamBaseStreamPropertyInfo = OutputStream-    type AttrLabel FilterOutputStreamBaseStreamPropertyInfo = "base-stream"-    attrGet _ = getFilterOutputStreamBaseStream-    attrSet _ = undefined-    attrConstruct _ = constructFilterOutputStreamBaseStream-    attrClear _ = undefined---- VVV Prop "close-base-stream"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Just False)--getFilterOutputStreamCloseBaseStream :: (MonadIO m, FilterOutputStreamK o) => o -> m Bool-getFilterOutputStreamCloseBaseStream obj = liftIO $ getObjectPropertyBool obj "close-base-stream"--constructFilterOutputStreamCloseBaseStream :: Bool -> IO ([Char], GValue)-constructFilterOutputStreamCloseBaseStream val = constructObjectPropertyBool "close-base-stream" val--data FilterOutputStreamCloseBaseStreamPropertyInfo-instance AttrInfo FilterOutputStreamCloseBaseStreamPropertyInfo where-    type AttrAllowedOps FilterOutputStreamCloseBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint FilterOutputStreamCloseBaseStreamPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint FilterOutputStreamCloseBaseStreamPropertyInfo = FilterOutputStreamK-    type AttrGetType FilterOutputStreamCloseBaseStreamPropertyInfo = Bool-    type AttrLabel FilterOutputStreamCloseBaseStreamPropertyInfo = "close-base-stream"-    attrGet _ = getFilterOutputStreamCloseBaseStream-    attrSet _ = undefined-    attrConstruct _ = constructFilterOutputStreamCloseBaseStream-    attrClear _ = undefined--type instance AttributeList FilterOutputStream = FilterOutputStreamAttributeList-type FilterOutputStreamAttributeList = ('[ '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])--filterOutputStreamBaseStream :: AttrLabelProxy "baseStream"-filterOutputStreamBaseStream = AttrLabelProxy--filterOutputStreamCloseBaseStream :: AttrLabelProxy "closeBaseStream"-filterOutputStreamCloseBaseStream = AttrLabelProxy--type instance SignalList FilterOutputStream = FilterOutputStreamSignalList-type FilterOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FilterOutputStream::get_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->               -- _obj : TInterface "Gio" "FilterOutputStream"-    IO (Ptr OutputStream)---filterOutputStreamGetBaseStream ::-    (MonadIO m, FilterOutputStreamK a) =>-    a                                       -- _obj-    -> m OutputStream                       -- result-filterOutputStreamGetBaseStream _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_filter_output_stream_get_base_stream _obj'-    checkUnexpectedReturnNULL "g_filter_output_stream_get_base_stream" result-    result' <- (newObject OutputStream) result-    touchManagedPtr _obj-    return result'--data FilterOutputStreamGetBaseStreamMethodInfo-instance (signature ~ (m OutputStream), MonadIO m, FilterOutputStreamK a) => MethodInfo FilterOutputStreamGetBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterOutputStreamGetBaseStream---- method FilterOutputStream::get_close_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "FilterOutputStream"-    IO CInt---filterOutputStreamGetCloseBaseStream ::-    (MonadIO m, FilterOutputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-filterOutputStreamGetCloseBaseStream _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_filter_output_stream_get_close_base_stream _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FilterOutputStreamGetCloseBaseStreamMethodInfo-instance (signature ~ (m Bool), MonadIO m, FilterOutputStreamK a) => MethodInfo FilterOutputStreamGetCloseBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterOutputStreamGetCloseBaseStream---- method FilterOutputStream::set_close_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_base", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "FilterOutputStream"-    CInt ->                                 -- close_base : TBasicType TBoolean-    IO ()---filterOutputStreamSetCloseBaseStream ::-    (MonadIO m, FilterOutputStreamK a) =>-    a                                       -- _obj-    -> Bool                                 -- closeBase-    -> m ()                                 -- result-filterOutputStreamSetCloseBaseStream _obj closeBase = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let closeBase' = (fromIntegral . fromEnum) closeBase-    g_filter_output_stream_set_close_base_stream _obj' closeBase'-    touchManagedPtr _obj-    return ()--data FilterOutputStreamSetCloseBaseStreamMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, FilterOutputStreamK a) => MethodInfo FilterOutputStreamSetCloseBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterOutputStreamSetCloseBaseStream--
− GI/Gio/Objects/FilterOutputStream.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Objects.FilterOutputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FilterOutputStream = FilterOutputStream (ForeignPtr FilterOutputStream)-instance GObject FilterOutputStream where-class GObject o => FilterOutputStreamK o-instance (GObject o, IsDescendantOf FilterOutputStream o) => FilterOutputStreamK o-data FilterOutputStreamBaseStreamPropertyInfo-data FilterOutputStreamCloseBaseStreamPropertyInfo-data FilterOutputStreamGetBaseStreamMethodInfo-data FilterOutputStreamGetCloseBaseStreamMethodInfo-data FilterOutputStreamSetCloseBaseStreamMethodInfo
− GI/Gio/Objects/IOStream.hs 
@@ -1,629 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.IOStream-    ( ---- * Exported types-    IOStream(..)                            ,-    IOStreamK                               ,-    toIOStream                              ,-    noIOStream                              ,--- -- * Methods--- ** iOStreamClearPending-    IOStreamClearPendingMethodInfo          ,-    iOStreamClearPending                    ,----- ** iOStreamClose-    IOStreamCloseMethodInfo                 ,-    iOStreamClose                           ,----- ** iOStreamCloseAsync-    IOStreamCloseAsyncMethodInfo            ,-    iOStreamCloseAsync                      ,----- ** iOStreamCloseFinish-    IOStreamCloseFinishMethodInfo           ,-    iOStreamCloseFinish                     ,----- ** iOStreamGetInputStream-    IOStreamGetInputStreamMethodInfo        ,-    iOStreamGetInputStream                  ,----- ** iOStreamGetOutputStream-    IOStreamGetOutputStreamMethodInfo       ,-    iOStreamGetOutputStream                 ,----- ** iOStreamHasPending-    IOStreamHasPendingMethodInfo            ,-    iOStreamHasPending                      ,----- ** iOStreamIsClosed-    IOStreamIsClosedMethodInfo              ,-    iOStreamIsClosed                        ,----- ** iOStreamSetPending-    IOStreamSetPendingMethodInfo            ,-    iOStreamSetPending                      ,----- ** iOStreamSpliceAsync-    IOStreamSpliceAsyncMethodInfo           ,-    iOStreamSpliceAsync                     ,----- ** iOStreamSpliceFinish-    iOStreamSpliceFinish                    ,----- -- * Properties--- ** Closed-    IOStreamClosedPropertyInfo              ,-    getIOStreamClosed                       ,-    iOStreamClosed                          ,----- ** InputStream-    IOStreamInputStreamPropertyInfo         ,-    getIOStreamInputStream                  ,-    iOStreamInputStream                     ,----- ** OutputStream-    IOStreamOutputStreamPropertyInfo        ,-    getIOStreamOutputStream                 ,-    iOStreamOutputStream                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype IOStream = IOStream (ForeignPtr IOStream)-foreign import ccall "g_io_stream_get_type"-    c_g_io_stream_get_type :: IO GType--type instance ParentTypes IOStream = IOStreamParentTypes-type IOStreamParentTypes = '[GObject.Object]--instance GObject IOStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_io_stream_get_type-    --class GObject o => IOStreamK o-instance (GObject o, IsDescendantOf IOStream o) => IOStreamK o--toIOStream :: IOStreamK o => o -> IO IOStream-toIOStream = unsafeCastTo IOStream--noIOStream :: Maybe IOStream-noIOStream = Nothing--type family ResolveIOStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveIOStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveIOStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveIOStreamMethod "clearPending" o = IOStreamClearPendingMethodInfo-    ResolveIOStreamMethod "close" o = IOStreamCloseMethodInfo-    ResolveIOStreamMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo-    ResolveIOStreamMethod "closeFinish" o = IOStreamCloseFinishMethodInfo-    ResolveIOStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveIOStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveIOStreamMethod "hasPending" o = IOStreamHasPendingMethodInfo-    ResolveIOStreamMethod "isClosed" o = IOStreamIsClosedMethodInfo-    ResolveIOStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveIOStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveIOStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveIOStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveIOStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveIOStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveIOStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveIOStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveIOStreamMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo-    ResolveIOStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveIOStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveIOStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveIOStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveIOStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveIOStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveIOStreamMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo-    ResolveIOStreamMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo-    ResolveIOStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveIOStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveIOStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveIOStreamMethod "setPending" o = IOStreamSetPendingMethodInfo-    ResolveIOStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveIOStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveIOStreamMethod t IOStream, MethodInfo info IOStream p) => IsLabelProxy t (IOStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveIOStreamMethod t IOStream, MethodInfo info IOStream p) => IsLabel t (IOStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "closed"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getIOStreamClosed :: (MonadIO m, IOStreamK o) => o -> m Bool-getIOStreamClosed obj = liftIO $ getObjectPropertyBool obj "closed"--data IOStreamClosedPropertyInfo-instance AttrInfo IOStreamClosedPropertyInfo where-    type AttrAllowedOps IOStreamClosedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint IOStreamClosedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint IOStreamClosedPropertyInfo = IOStreamK-    type AttrGetType IOStreamClosedPropertyInfo = Bool-    type AttrLabel IOStreamClosedPropertyInfo = "closed"-    attrGet _ = getIOStreamClosed-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "input-stream"-   -- Type: TInterface "Gio" "InputStream"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getIOStreamInputStream :: (MonadIO m, IOStreamK o) => o -> m InputStream-getIOStreamInputStream obj = liftIO $ checkUnexpectedNothing "getIOStreamInputStream" $ getObjectPropertyObject obj "input-stream" InputStream--data IOStreamInputStreamPropertyInfo-instance AttrInfo IOStreamInputStreamPropertyInfo where-    type AttrAllowedOps IOStreamInputStreamPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint IOStreamInputStreamPropertyInfo = (~) ()-    type AttrBaseTypeConstraint IOStreamInputStreamPropertyInfo = IOStreamK-    type AttrGetType IOStreamInputStreamPropertyInfo = InputStream-    type AttrLabel IOStreamInputStreamPropertyInfo = "input-stream"-    attrGet _ = getIOStreamInputStream-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "output-stream"-   -- Type: TInterface "Gio" "OutputStream"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getIOStreamOutputStream :: (MonadIO m, IOStreamK o) => o -> m OutputStream-getIOStreamOutputStream obj = liftIO $ checkUnexpectedNothing "getIOStreamOutputStream" $ getObjectPropertyObject obj "output-stream" OutputStream--data IOStreamOutputStreamPropertyInfo-instance AttrInfo IOStreamOutputStreamPropertyInfo where-    type AttrAllowedOps IOStreamOutputStreamPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint IOStreamOutputStreamPropertyInfo = (~) ()-    type AttrBaseTypeConstraint IOStreamOutputStreamPropertyInfo = IOStreamK-    type AttrGetType IOStreamOutputStreamPropertyInfo = OutputStream-    type AttrLabel IOStreamOutputStreamPropertyInfo = "output-stream"-    attrGet _ = getIOStreamOutputStream-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList IOStream = IOStreamAttributeList-type IOStreamAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo)] :: [(Symbol, *)])--iOStreamClosed :: AttrLabelProxy "closed"-iOStreamClosed = AttrLabelProxy--iOStreamInputStream :: AttrLabelProxy "inputStream"-iOStreamInputStream = AttrLabelProxy--iOStreamOutputStream :: AttrLabelProxy "outputStream"-iOStreamOutputStream = AttrLabelProxy--type instance SignalList IOStream = IOStreamSignalList-type IOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method IOStream::clear_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "IOStream"-    IO ()---iOStreamClearPending ::-    (MonadIO m, IOStreamK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-iOStreamClearPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_io_stream_clear_pending _obj'-    touchManagedPtr _obj-    return ()--data IOStreamClearPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, IOStreamK a) => MethodInfo IOStreamClearPendingMethodInfo a signature where-    overloadedMethod _ = iOStreamClearPending---- method IOStream::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "IOStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---iOStreamClose ::-    (MonadIO m, IOStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-iOStreamClose _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_io_stream_close _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data IOStreamCloseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IOStreamK a, CancellableK b) => MethodInfo IOStreamCloseMethodInfo a signature where-    overloadedMethod _ = iOStreamClose---- method IOStream::close_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "IOStream"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---iOStreamCloseAsync ::-    (MonadIO m, IOStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-iOStreamCloseAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_io_stream_close_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data IOStreamCloseAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, IOStreamK a, CancellableK b) => MethodInfo IOStreamCloseAsyncMethodInfo a signature where-    overloadedMethod _ = iOStreamCloseAsync---- method IOStream::close_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "IOStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---iOStreamCloseFinish ::-    (MonadIO m, IOStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-iOStreamCloseFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_io_stream_close_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data IOStreamCloseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IOStreamK a, AsyncResultK b) => MethodInfo IOStreamCloseFinishMethodInfo a signature where-    overloadedMethod _ = iOStreamCloseFinish---- method IOStream::get_input_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : False--- Skip return : False--foreign import ccall "g_io_stream_get_input_stream" g_io_stream_get_input_stream :: -    Ptr IOStream ->                         -- _obj : TInterface "Gio" "IOStream"-    IO (Ptr InputStream)---iOStreamGetInputStream ::-    (MonadIO m, IOStreamK a) =>-    a                                       -- _obj-    -> m InputStream                        -- result-iOStreamGetInputStream _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_io_stream_get_input_stream _obj'-    checkUnexpectedReturnNULL "g_io_stream_get_input_stream" result-    result' <- (newObject InputStream) result-    touchManagedPtr _obj-    return result'--data IOStreamGetInputStreamMethodInfo-instance (signature ~ (m InputStream), MonadIO m, IOStreamK a) => MethodInfo IOStreamGetInputStreamMethodInfo a signature where-    overloadedMethod _ = iOStreamGetInputStream---- method IOStream::get_output_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "OutputStream")--- throws : False--- Skip return : False--foreign import ccall "g_io_stream_get_output_stream" g_io_stream_get_output_stream :: -    Ptr IOStream ->                         -- _obj : TInterface "Gio" "IOStream"-    IO (Ptr OutputStream)---iOStreamGetOutputStream ::-    (MonadIO m, IOStreamK a) =>-    a                                       -- _obj-    -> m OutputStream                       -- result-iOStreamGetOutputStream _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_io_stream_get_output_stream _obj'-    checkUnexpectedReturnNULL "g_io_stream_get_output_stream" result-    result' <- (newObject OutputStream) result-    touchManagedPtr _obj-    return result'--data IOStreamGetOutputStreamMethodInfo-instance (signature ~ (m OutputStream), MonadIO m, IOStreamK a) => MethodInfo IOStreamGetOutputStreamMethodInfo a signature where-    overloadedMethod _ = iOStreamGetOutputStream---- method IOStream::has_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "IOStream"-    IO CInt---iOStreamHasPending ::-    (MonadIO m, IOStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-iOStreamHasPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_io_stream_has_pending _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data IOStreamHasPendingMethodInfo-instance (signature ~ (m Bool), MonadIO m, IOStreamK a) => MethodInfo IOStreamHasPendingMethodInfo a signature where-    overloadedMethod _ = iOStreamHasPending---- method IOStream::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "IOStream"-    IO CInt---iOStreamIsClosed ::-    (MonadIO m, IOStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-iOStreamIsClosed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_io_stream_is_closed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data IOStreamIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IOStreamK a) => MethodInfo IOStreamIsClosedMethodInfo a signature where-    overloadedMethod _ = iOStreamIsClosed---- method IOStream::set_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "IOStream"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---iOStreamSetPending ::-    (MonadIO m, IOStreamK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-iOStreamSetPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_io_stream_set_pending _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data IOStreamSetPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, IOStreamK a) => MethodInfo IOStreamSetPendingMethodInfo a signature where-    overloadedMethod _ = iOStreamSetPending---- method IOStream::splice_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream2", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "IOStreamSpliceFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "IOStream"-    Ptr IOStream ->                         -- stream2 : TInterface "Gio" "IOStream"-    CUInt ->                                -- flags : TInterface "Gio" "IOStreamSpliceFlags"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---iOStreamSpliceAsync ::-    (MonadIO m, IOStreamK a, IOStreamK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- stream2-    -> [IOStreamSpliceFlags]                -- flags-    -> Int32                                -- ioPriority-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-iOStreamSpliceAsync _obj stream2 flags ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let stream2' = unsafeManagedPtrCastPtr stream2-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_io_stream_splice_async _obj' stream2' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr stream2-    whenJust cancellable touchManagedPtr-    return ()--data IOStreamSpliceAsyncMethodInfo-instance (signature ~ (b -> [IOStreamSpliceFlags] -> Int32 -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, IOStreamK a, IOStreamK b, CancellableK c) => MethodInfo IOStreamSpliceAsyncMethodInfo a signature where-    overloadedMethod _ = iOStreamSpliceAsync---- method IOStream::splice_finish--- method type : MemberFunction--- Args : [Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---iOStreamSpliceFinish ::-    (MonadIO m, AsyncResultK a) =>-    a                                       -- result_-    -> m ()                                 -- result-iOStreamSpliceFinish result_ = liftIO $ do-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_io_stream_splice_finish result_'-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--
− GI/Gio/Objects/IOStream.hs-boot 
@@ -1,26 +0,0 @@-module GI.Gio.Objects.IOStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype IOStream = IOStream (ForeignPtr IOStream)-instance GObject IOStream where-class GObject o => IOStreamK o-instance (GObject o, IsDescendantOf IOStream o) => IOStreamK o-data IOStreamClosedPropertyInfo-data IOStreamInputStreamPropertyInfo-data IOStreamOutputStreamPropertyInfo-data IOStreamClearPendingMethodInfo-data IOStreamCloseMethodInfo-data IOStreamCloseAsyncMethodInfo-data IOStreamCloseFinishMethodInfo-data IOStreamGetInputStreamMethodInfo-data IOStreamGetOutputStreamMethodInfo-data IOStreamHasPendingMethodInfo-data IOStreamIsClosedMethodInfo-data IOStreamSetPendingMethodInfo-data IOStreamSpliceAsyncMethodInfo
− GI/Gio/Objects/InetAddress.hs 
@@ -1,1050 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.InetAddress-    ( ---- * Exported types-    InetAddress(..)                         ,-    InetAddressK                            ,-    toInetAddress                           ,-    noInetAddress                           ,--- -- * Methods--- ** inetAddressEqual-    InetAddressEqualMethodInfo              ,-    inetAddressEqual                        ,----- ** inetAddressGetFamily-    InetAddressGetFamilyMethodInfo          ,-    inetAddressGetFamily                    ,----- ** inetAddressGetIsAny-    InetAddressGetIsAnyMethodInfo           ,-    inetAddressGetIsAny                     ,----- ** inetAddressGetIsLinkLocal-    InetAddressGetIsLinkLocalMethodInfo     ,-    inetAddressGetIsLinkLocal               ,----- ** inetAddressGetIsLoopback-    InetAddressGetIsLoopbackMethodInfo      ,-    inetAddressGetIsLoopback                ,----- ** inetAddressGetIsMcGlobal-    InetAddressGetIsMcGlobalMethodInfo      ,-    inetAddressGetIsMcGlobal                ,----- ** inetAddressGetIsMcLinkLocal-    InetAddressGetIsMcLinkLocalMethodInfo   ,-    inetAddressGetIsMcLinkLocal             ,----- ** inetAddressGetIsMcNodeLocal-    InetAddressGetIsMcNodeLocalMethodInfo   ,-    inetAddressGetIsMcNodeLocal             ,----- ** inetAddressGetIsMcOrgLocal-    InetAddressGetIsMcOrgLocalMethodInfo    ,-    inetAddressGetIsMcOrgLocal              ,----- ** inetAddressGetIsMcSiteLocal-    InetAddressGetIsMcSiteLocalMethodInfo   ,-    inetAddressGetIsMcSiteLocal             ,----- ** inetAddressGetIsMulticast-    InetAddressGetIsMulticastMethodInfo     ,-    inetAddressGetIsMulticast               ,----- ** inetAddressGetIsSiteLocal-    InetAddressGetIsSiteLocalMethodInfo     ,-    inetAddressGetIsSiteLocal               ,----- ** inetAddressGetNativeSize-    InetAddressGetNativeSizeMethodInfo      ,-    inetAddressGetNativeSize                ,----- ** inetAddressNewAny-    inetAddressNewAny                       ,----- ** inetAddressNewFromBytes-    inetAddressNewFromBytes                 ,----- ** inetAddressNewFromString-    inetAddressNewFromString                ,----- ** inetAddressNewLoopback-    inetAddressNewLoopback                  ,----- ** inetAddressToString-    InetAddressToStringMethodInfo           ,-    inetAddressToString                     ,----- -- * Properties--- ** Bytes-    InetAddressBytesPropertyInfo            ,-    constructInetAddressBytes               ,-    getInetAddressBytes                     ,-    inetAddressBytes                        ,----- ** Family-    InetAddressFamilyPropertyInfo           ,-    constructInetAddressFamily              ,-    getInetAddressFamily                    ,-    inetAddressFamily                       ,----- ** IsAny-    InetAddressIsAnyPropertyInfo            ,-    getInetAddressIsAny                     ,-    inetAddressIsAny                        ,----- ** IsLinkLocal-    InetAddressIsLinkLocalPropertyInfo      ,-    getInetAddressIsLinkLocal               ,-    inetAddressIsLinkLocal                  ,----- ** IsLoopback-    InetAddressIsLoopbackPropertyInfo       ,-    getInetAddressIsLoopback                ,-    inetAddressIsLoopback                   ,----- ** IsMcGlobal-    InetAddressIsMcGlobalPropertyInfo       ,-    getInetAddressIsMcGlobal                ,-    inetAddressIsMcGlobal                   ,----- ** IsMcLinkLocal-    InetAddressIsMcLinkLocalPropertyInfo    ,-    getInetAddressIsMcLinkLocal             ,-    inetAddressIsMcLinkLocal                ,----- ** IsMcNodeLocal-    InetAddressIsMcNodeLocalPropertyInfo    ,-    getInetAddressIsMcNodeLocal             ,-    inetAddressIsMcNodeLocal                ,----- ** IsMcOrgLocal-    InetAddressIsMcOrgLocalPropertyInfo     ,-    getInetAddressIsMcOrgLocal              ,-    inetAddressIsMcOrgLocal                 ,----- ** IsMcSiteLocal-    InetAddressIsMcSiteLocalPropertyInfo    ,-    getInetAddressIsMcSiteLocal             ,-    inetAddressIsMcSiteLocal                ,----- ** IsMulticast-    InetAddressIsMulticastPropertyInfo      ,-    getInetAddressIsMulticast               ,-    inetAddressIsMulticast                  ,----- ** IsSiteLocal-    InetAddressIsSiteLocalPropertyInfo      ,-    getInetAddressIsSiteLocal               ,-    inetAddressIsSiteLocal                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype InetAddress = InetAddress (ForeignPtr InetAddress)-foreign import ccall "g_inet_address_get_type"-    c_g_inet_address_get_type :: IO GType--type instance ParentTypes InetAddress = InetAddressParentTypes-type InetAddressParentTypes = '[GObject.Object]--instance GObject InetAddress where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_inet_address_get_type-    --class GObject o => InetAddressK o-instance (GObject o, IsDescendantOf InetAddress o) => InetAddressK o--toInetAddress :: InetAddressK o => o -> IO InetAddress-toInetAddress = unsafeCastTo InetAddress--noInetAddress :: Maybe InetAddress-noInetAddress = Nothing--type family ResolveInetAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveInetAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveInetAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveInetAddressMethod "equal" o = InetAddressEqualMethodInfo-    ResolveInetAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveInetAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveInetAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveInetAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveInetAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveInetAddressMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveInetAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveInetAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveInetAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveInetAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveInetAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveInetAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveInetAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveInetAddressMethod "toString" o = InetAddressToStringMethodInfo-    ResolveInetAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveInetAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveInetAddressMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo-    ResolveInetAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveInetAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveInetAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveInetAddressMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveInetAddressMethod t InetAddress, MethodInfo info InetAddress p) => IsLabelProxy t (InetAddress -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveInetAddressMethod t InetAddress, MethodInfo info InetAddress p) => IsLabel t (InetAddress -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "bytes"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getInetAddressBytes :: (MonadIO m, InetAddressK o) => o -> m (Ptr ())-getInetAddressBytes obj = liftIO $ getObjectPropertyPtr obj "bytes"--constructInetAddressBytes :: Ptr () -> IO ([Char], GValue)-constructInetAddressBytes val = constructObjectPropertyPtr "bytes" val--data InetAddressBytesPropertyInfo-instance AttrInfo InetAddressBytesPropertyInfo where-    type AttrAllowedOps InetAddressBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetAddressBytesPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint InetAddressBytesPropertyInfo = InetAddressK-    type AttrGetType InetAddressBytesPropertyInfo = (Ptr ())-    type AttrLabel InetAddressBytesPropertyInfo = "bytes"-    attrGet _ = getInetAddressBytes-    attrSet _ = undefined-    attrConstruct _ = constructInetAddressBytes-    attrClear _ = undefined---- VVV Prop "family"-   -- Type: TInterface "Gio" "SocketFamily"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getInetAddressFamily :: (MonadIO m, InetAddressK o) => o -> m SocketFamily-getInetAddressFamily obj = liftIO $ getObjectPropertyEnum obj "family"--constructInetAddressFamily :: SocketFamily -> IO ([Char], GValue)-constructInetAddressFamily val = constructObjectPropertyEnum "family" val--data InetAddressFamilyPropertyInfo-instance AttrInfo InetAddressFamilyPropertyInfo where-    type AttrAllowedOps InetAddressFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetAddressFamilyPropertyInfo = (~) SocketFamily-    type AttrBaseTypeConstraint InetAddressFamilyPropertyInfo = InetAddressK-    type AttrGetType InetAddressFamilyPropertyInfo = SocketFamily-    type AttrLabel InetAddressFamilyPropertyInfo = "family"-    attrGet _ = getInetAddressFamily-    attrSet _ = undefined-    attrConstruct _ = constructInetAddressFamily-    attrClear _ = undefined---- VVV Prop "is-any"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getInetAddressIsAny :: (MonadIO m, InetAddressK o) => o -> m Bool-getInetAddressIsAny obj = liftIO $ getObjectPropertyBool obj "is-any"--data InetAddressIsAnyPropertyInfo-instance AttrInfo InetAddressIsAnyPropertyInfo where-    type AttrAllowedOps InetAddressIsAnyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsAnyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsAnyPropertyInfo = InetAddressK-    type AttrGetType InetAddressIsAnyPropertyInfo = Bool-    type AttrLabel InetAddressIsAnyPropertyInfo = "is-any"-    attrGet _ = getInetAddressIsAny-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-link-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getInetAddressIsLinkLocal :: (MonadIO m, InetAddressK o) => o -> m Bool-getInetAddressIsLinkLocal obj = liftIO $ getObjectPropertyBool obj "is-link-local"--data InetAddressIsLinkLocalPropertyInfo-instance AttrInfo InetAddressIsLinkLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsLinkLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsLinkLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsLinkLocalPropertyInfo = InetAddressK-    type AttrGetType InetAddressIsLinkLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsLinkLocalPropertyInfo = "is-link-local"-    attrGet _ = getInetAddressIsLinkLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-loopback"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getInetAddressIsLoopback :: (MonadIO m, InetAddressK o) => o -> m Bool-getInetAddressIsLoopback obj = liftIO $ getObjectPropertyBool obj "is-loopback"--data InetAddressIsLoopbackPropertyInfo-instance AttrInfo InetAddressIsLoopbackPropertyInfo where-    type AttrAllowedOps InetAddressIsLoopbackPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsLoopbackPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsLoopbackPropertyInfo = InetAddressK-    type AttrGetType InetAddressIsLoopbackPropertyInfo = Bool-    type AttrLabel InetAddressIsLoopbackPropertyInfo = "is-loopback"-    attrGet _ = getInetAddressIsLoopback-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-mc-global"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getInetAddressIsMcGlobal :: (MonadIO m, InetAddressK o) => o -> m Bool-getInetAddressIsMcGlobal obj = liftIO $ getObjectPropertyBool obj "is-mc-global"--data InetAddressIsMcGlobalPropertyInfo-instance AttrInfo InetAddressIsMcGlobalPropertyInfo where-    type AttrAllowedOps InetAddressIsMcGlobalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMcGlobalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMcGlobalPropertyInfo = InetAddressK-    type AttrGetType InetAddressIsMcGlobalPropertyInfo = Bool-    type AttrLabel InetAddressIsMcGlobalPropertyInfo = "is-mc-global"-    attrGet _ = getInetAddressIsMcGlobal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-mc-link-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getInetAddressIsMcLinkLocal :: (MonadIO m, InetAddressK o) => o -> m Bool-getInetAddressIsMcLinkLocal obj = liftIO $ getObjectPropertyBool obj "is-mc-link-local"--data InetAddressIsMcLinkLocalPropertyInfo-instance AttrInfo InetAddressIsMcLinkLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsMcLinkLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMcLinkLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMcLinkLocalPropertyInfo = InetAddressK-    type AttrGetType InetAddressIsMcLinkLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsMcLinkLocalPropertyInfo = "is-mc-link-local"-    attrGet _ = getInetAddressIsMcLinkLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-mc-node-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getInetAddressIsMcNodeLocal :: (MonadIO m, InetAddressK o) => o -> m Bool-getInetAddressIsMcNodeLocal obj = liftIO $ getObjectPropertyBool obj "is-mc-node-local"--data InetAddressIsMcNodeLocalPropertyInfo-instance AttrInfo InetAddressIsMcNodeLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsMcNodeLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMcNodeLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMcNodeLocalPropertyInfo = InetAddressK-    type AttrGetType InetAddressIsMcNodeLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsMcNodeLocalPropertyInfo = "is-mc-node-local"-    attrGet _ = getInetAddressIsMcNodeLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-mc-org-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getInetAddressIsMcOrgLocal :: (MonadIO m, InetAddressK o) => o -> m Bool-getInetAddressIsMcOrgLocal obj = liftIO $ getObjectPropertyBool obj "is-mc-org-local"--data InetAddressIsMcOrgLocalPropertyInfo-instance AttrInfo InetAddressIsMcOrgLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsMcOrgLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMcOrgLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMcOrgLocalPropertyInfo = InetAddressK-    type AttrGetType InetAddressIsMcOrgLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsMcOrgLocalPropertyInfo = "is-mc-org-local"-    attrGet _ = getInetAddressIsMcOrgLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-mc-site-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getInetAddressIsMcSiteLocal :: (MonadIO m, InetAddressK o) => o -> m Bool-getInetAddressIsMcSiteLocal obj = liftIO $ getObjectPropertyBool obj "is-mc-site-local"--data InetAddressIsMcSiteLocalPropertyInfo-instance AttrInfo InetAddressIsMcSiteLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsMcSiteLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMcSiteLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMcSiteLocalPropertyInfo = InetAddressK-    type AttrGetType InetAddressIsMcSiteLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsMcSiteLocalPropertyInfo = "is-mc-site-local"-    attrGet _ = getInetAddressIsMcSiteLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-multicast"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getInetAddressIsMulticast :: (MonadIO m, InetAddressK o) => o -> m Bool-getInetAddressIsMulticast obj = liftIO $ getObjectPropertyBool obj "is-multicast"--data InetAddressIsMulticastPropertyInfo-instance AttrInfo InetAddressIsMulticastPropertyInfo where-    type AttrAllowedOps InetAddressIsMulticastPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMulticastPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMulticastPropertyInfo = InetAddressK-    type AttrGetType InetAddressIsMulticastPropertyInfo = Bool-    type AttrLabel InetAddressIsMulticastPropertyInfo = "is-multicast"-    attrGet _ = getInetAddressIsMulticast-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-site-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getInetAddressIsSiteLocal :: (MonadIO m, InetAddressK o) => o -> m Bool-getInetAddressIsSiteLocal obj = liftIO $ getObjectPropertyBool obj "is-site-local"--data InetAddressIsSiteLocalPropertyInfo-instance AttrInfo InetAddressIsSiteLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsSiteLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsSiteLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsSiteLocalPropertyInfo = InetAddressK-    type AttrGetType InetAddressIsSiteLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsSiteLocalPropertyInfo = "is-site-local"-    attrGet _ = getInetAddressIsSiteLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance 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, *)])--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--type instance SignalList InetAddress = InetAddressSignalList-type InetAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method InetAddress::new_any--- method type : Constructor--- Args : [Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InetAddress")--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_new_any" g_inet_address_new_any :: -    CUInt ->                                -- family : TInterface "Gio" "SocketFamily"-    IO (Ptr InetAddress)---inetAddressNewAny ::-    (MonadIO m) =>-    SocketFamily                            -- family-    -> m InetAddress                        -- result-inetAddressNewAny family = liftIO $ do-    let family' = (fromIntegral . fromEnum) family-    result <- g_inet_address_new_any family'-    checkUnexpectedReturnNULL "g_inet_address_new_any" result-    result' <- (wrapObject InetAddress) result-    return result'---- method InetAddress::new_from_bytes--- method type : Constructor--- Args : [Arg {argCName = "bytes", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 "Gio" "SocketFamily"-    IO (Ptr InetAddress)---inetAddressNewFromBytes ::-    (MonadIO m) =>-    Ptr Word8                               -- bytes-    -> SocketFamily                         -- family-    -> m InetAddress                        -- result-inetAddressNewFromBytes bytes family = liftIO $ do-    let family' = (fromIntegral . fromEnum) family-    result <- g_inet_address_new_from_bytes bytes family'-    checkUnexpectedReturnNULL "g_inet_address_new_from_bytes" result-    result' <- (wrapObject InetAddress) result-    return result'---- method InetAddress::new_from_string--- method type : Constructor--- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---inetAddressNewFromString ::-    (MonadIO m) =>-    T.Text                                  -- string-    -> m InetAddress                        -- result-inetAddressNewFromString string = liftIO $ do-    string' <- textToCString string-    result <- g_inet_address_new_from_string string'-    checkUnexpectedReturnNULL "g_inet_address_new_from_string" result-    result' <- (wrapObject InetAddress) result-    freeMem string'-    return result'---- method InetAddress::new_loopback--- method type : Constructor--- Args : [Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InetAddress")--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_new_loopback" g_inet_address_new_loopback :: -    CUInt ->                                -- family : TInterface "Gio" "SocketFamily"-    IO (Ptr InetAddress)---inetAddressNewLoopback ::-    (MonadIO m) =>-    SocketFamily                            -- family-    -> m InetAddress                        -- result-inetAddressNewLoopback family = liftIO $ do-    let family' = (fromIntegral . fromEnum) family-    result <- g_inet_address_new_loopback family'-    checkUnexpectedReturnNULL "g_inet_address_new_loopback" result-    result' <- (wrapObject InetAddress) result-    return result'---- method InetAddress::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other_address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    Ptr InetAddress ->                      -- other_address : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressEqual ::-    (MonadIO m, InetAddressK a, InetAddressK b) =>-    a                                       -- _obj-    -> b                                    -- otherAddress-    -> m Bool                               -- result-inetAddressEqual _obj otherAddress = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let otherAddress' = unsafeManagedPtrCastPtr otherAddress-    result <- g_inet_address_equal _obj' otherAddress'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr otherAddress-    return result'--data InetAddressEqualMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, InetAddressK a, InetAddressK b) => MethodInfo InetAddressEqualMethodInfo a signature where-    overloadedMethod _ = inetAddressEqual---- method InetAddress::get_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketFamily")--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_get_family" g_inet_address_get_family :: -    Ptr InetAddress ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CUInt---inetAddressGetFamily ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m SocketFamily                       -- result-inetAddressGetFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_family _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data InetAddressGetFamilyMethodInfo-instance (signature ~ (m SocketFamily), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetFamilyMethodInfo a signature where-    overloadedMethod _ = inetAddressGetFamily---- method InetAddress::get_is_any--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressGetIsAny ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inetAddressGetIsAny _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_is_any _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InetAddressGetIsAnyMethodInfo-instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsAnyMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsAny---- method InetAddress::get_is_link_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressGetIsLinkLocal ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inetAddressGetIsLinkLocal _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_is_link_local _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InetAddressGetIsLinkLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsLinkLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsLinkLocal---- method InetAddress::get_is_loopback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressGetIsLoopback ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inetAddressGetIsLoopback _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_is_loopback _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InetAddressGetIsLoopbackMethodInfo-instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsLoopbackMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsLoopback---- method InetAddress::get_is_mc_global--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressGetIsMcGlobal ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inetAddressGetIsMcGlobal _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_is_mc_global _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InetAddressGetIsMcGlobalMethodInfo-instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMcGlobalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMcGlobal---- method InetAddress::get_is_mc_link_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressGetIsMcLinkLocal ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inetAddressGetIsMcLinkLocal _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_is_mc_link_local _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InetAddressGetIsMcLinkLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMcLinkLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMcLinkLocal---- method InetAddress::get_is_mc_node_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressGetIsMcNodeLocal ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inetAddressGetIsMcNodeLocal _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_is_mc_node_local _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InetAddressGetIsMcNodeLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMcNodeLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMcNodeLocal---- method InetAddress::get_is_mc_org_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressGetIsMcOrgLocal ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inetAddressGetIsMcOrgLocal _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_is_mc_org_local _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InetAddressGetIsMcOrgLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMcOrgLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMcOrgLocal---- method InetAddress::get_is_mc_site_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressGetIsMcSiteLocal ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inetAddressGetIsMcSiteLocal _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_is_mc_site_local _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InetAddressGetIsMcSiteLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMcSiteLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMcSiteLocal---- method InetAddress::get_is_multicast--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressGetIsMulticast ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inetAddressGetIsMulticast _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_is_multicast _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InetAddressGetIsMulticastMethodInfo-instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMulticastMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMulticast---- method InetAddress::get_is_site_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressGetIsSiteLocal ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inetAddressGetIsSiteLocal _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_is_site_local _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InetAddressGetIsSiteLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsSiteLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsSiteLocal---- method InetAddress::get_native_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO Word64---inetAddressGetNativeSize ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-inetAddressGetNativeSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_get_native_size _obj'-    touchManagedPtr _obj-    return result--data InetAddressGetNativeSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetNativeSizeMethodInfo a signature where-    overloadedMethod _ = inetAddressGetNativeSize---- method InetAddress::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InetAddress"-    IO CString---inetAddressToString ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-inetAddressToString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_to_string _obj'-    checkUnexpectedReturnNULL "g_inet_address_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data InetAddressToStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m, InetAddressK a) => MethodInfo InetAddressToStringMethodInfo a signature where-    overloadedMethod _ = inetAddressToString--
− GI/Gio/Objects/InetAddress.hs-boot 
@@ -1,39 +0,0 @@-module GI.Gio.Objects.InetAddress where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype InetAddress = InetAddress (ForeignPtr InetAddress)-instance GObject InetAddress where-class GObject o => InetAddressK o-instance (GObject o, IsDescendantOf InetAddress o) => InetAddressK o-data InetAddressBytesPropertyInfo-data InetAddressFamilyPropertyInfo-data InetAddressIsAnyPropertyInfo-data InetAddressIsLinkLocalPropertyInfo-data InetAddressIsLoopbackPropertyInfo-data InetAddressIsMcGlobalPropertyInfo-data InetAddressIsMcLinkLocalPropertyInfo-data InetAddressIsMcNodeLocalPropertyInfo-data InetAddressIsMcOrgLocalPropertyInfo-data InetAddressIsMcSiteLocalPropertyInfo-data InetAddressIsMulticastPropertyInfo-data InetAddressIsSiteLocalPropertyInfo-data InetAddressEqualMethodInfo-data InetAddressGetFamilyMethodInfo-data InetAddressGetIsAnyMethodInfo-data InetAddressGetIsLinkLocalMethodInfo-data InetAddressGetIsLoopbackMethodInfo-data InetAddressGetIsMcGlobalMethodInfo-data InetAddressGetIsMcLinkLocalMethodInfo-data InetAddressGetIsMcNodeLocalMethodInfo-data InetAddressGetIsMcOrgLocalMethodInfo-data InetAddressGetIsMcSiteLocalMethodInfo-data InetAddressGetIsMulticastMethodInfo-data InetAddressGetIsSiteLocalMethodInfo-data InetAddressGetNativeSizeMethodInfo-data InetAddressToStringMethodInfo
− GI/Gio/Objects/InetAddressMask.hs 
@@ -1,490 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.InetAddressMask-    ( ---- * Exported types-    InetAddressMask(..)                     ,-    InetAddressMaskK                        ,-    toInetAddressMask                       ,-    noInetAddressMask                       ,--- -- * Methods--- ** inetAddressMaskEqual-    InetAddressMaskEqualMethodInfo          ,-    inetAddressMaskEqual                    ,----- ** inetAddressMaskGetAddress-    InetAddressMaskGetAddressMethodInfo     ,-    inetAddressMaskGetAddress               ,----- ** inetAddressMaskGetFamily-    InetAddressMaskGetFamilyMethodInfo      ,-    inetAddressMaskGetFamily                ,----- ** inetAddressMaskGetLength-    InetAddressMaskGetLengthMethodInfo      ,-    inetAddressMaskGetLength                ,----- ** inetAddressMaskMatches-    InetAddressMaskMatchesMethodInfo        ,-    inetAddressMaskMatches                  ,----- ** inetAddressMaskNew-    inetAddressMaskNew                      ,----- ** inetAddressMaskNewFromString-    inetAddressMaskNewFromString            ,----- ** inetAddressMaskToString-    InetAddressMaskToStringMethodInfo       ,-    inetAddressMaskToString                 ,----- -- * Properties--- ** Address-    InetAddressMaskAddressPropertyInfo      ,-    clearInetAddressMaskAddress             ,-    constructInetAddressMaskAddress         ,-    getInetAddressMaskAddress               ,-    inetAddressMaskAddress                  ,-    setInetAddressMaskAddress               ,----- ** Family-    InetAddressMaskFamilyPropertyInfo       ,-    getInetAddressMaskFamily                ,-    inetAddressMaskFamily                   ,----- ** Length-    InetAddressMaskLengthPropertyInfo       ,-    constructInetAddressMaskLength          ,-    getInetAddressMaskLength                ,-    inetAddressMaskLength                   ,-    setInetAddressMaskLength                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype InetAddressMask = InetAddressMask (ForeignPtr InetAddressMask)-foreign import ccall "g_inet_address_mask_get_type"-    c_g_inet_address_mask_get_type :: IO GType--type instance ParentTypes InetAddressMask = InetAddressMaskParentTypes-type InetAddressMaskParentTypes = '[GObject.Object, Initable]--instance GObject InetAddressMask where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_inet_address_mask_get_type-    --class GObject o => InetAddressMaskK o-instance (GObject o, IsDescendantOf InetAddressMask o) => InetAddressMaskK o--toInetAddressMask :: InetAddressMaskK o => o -> IO InetAddressMask-toInetAddressMask = unsafeCastTo InetAddressMask--noInetAddressMask :: Maybe InetAddressMask-noInetAddressMask = Nothing--type family ResolveInetAddressMaskMethod (t :: Symbol) (o :: *) :: * where-    ResolveInetAddressMaskMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveInetAddressMaskMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveInetAddressMaskMethod "equal" o = InetAddressMaskEqualMethodInfo-    ResolveInetAddressMaskMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveInetAddressMaskMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveInetAddressMaskMethod "init" o = InitableInitMethodInfo-    ResolveInetAddressMaskMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveInetAddressMaskMethod "matches" o = InetAddressMaskMatchesMethodInfo-    ResolveInetAddressMaskMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveInetAddressMaskMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveInetAddressMaskMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveInetAddressMaskMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveInetAddressMaskMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveInetAddressMaskMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveInetAddressMaskMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveInetAddressMaskMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveInetAddressMaskMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveInetAddressMaskMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveInetAddressMaskMethod "toString" o = InetAddressMaskToStringMethodInfo-    ResolveInetAddressMaskMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveInetAddressMaskMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveInetAddressMaskMethod "getAddress" o = InetAddressMaskGetAddressMethodInfo-    ResolveInetAddressMaskMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveInetAddressMaskMethod "getFamily" o = InetAddressMaskGetFamilyMethodInfo-    ResolveInetAddressMaskMethod "getLength" o = InetAddressMaskGetLengthMethodInfo-    ResolveInetAddressMaskMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveInetAddressMaskMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveInetAddressMaskMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveInetAddressMaskMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveInetAddressMaskMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveInetAddressMaskMethod t InetAddressMask, MethodInfo info InetAddressMask p) => IsLabelProxy t (InetAddressMask -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveInetAddressMaskMethod t InetAddressMask, MethodInfo info InetAddressMask p) => IsLabel t (InetAddressMask -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "address"-   -- Type: TInterface "Gio" "InetAddress"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Nothing)--getInetAddressMaskAddress :: (MonadIO m, InetAddressMaskK o) => o -> m InetAddress-getInetAddressMaskAddress obj = liftIO $ checkUnexpectedNothing "getInetAddressMaskAddress" $ getObjectPropertyObject obj "address" InetAddress--setInetAddressMaskAddress :: (MonadIO m, InetAddressMaskK o, InetAddressK a) => o -> a -> m ()-setInetAddressMaskAddress obj val = liftIO $ setObjectPropertyObject obj "address" (Just val)--constructInetAddressMaskAddress :: (InetAddressK a) => a -> IO ([Char], GValue)-constructInetAddressMaskAddress val = constructObjectPropertyObject "address" (Just val)--clearInetAddressMaskAddress :: (MonadIO m, InetAddressMaskK o) => o -> m ()-clearInetAddressMaskAddress obj = liftIO $ setObjectPropertyObject obj "address" (Nothing :: Maybe InetAddress)--data InetAddressMaskAddressPropertyInfo-instance AttrInfo InetAddressMaskAddressPropertyInfo where-    type AttrAllowedOps InetAddressMaskAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint InetAddressMaskAddressPropertyInfo = InetAddressK-    type AttrBaseTypeConstraint InetAddressMaskAddressPropertyInfo = InetAddressMaskK-    type AttrGetType InetAddressMaskAddressPropertyInfo = InetAddress-    type AttrLabel InetAddressMaskAddressPropertyInfo = "address"-    attrGet _ = getInetAddressMaskAddress-    attrSet _ = setInetAddressMaskAddress-    attrConstruct _ = constructInetAddressMaskAddress-    attrClear _ = clearInetAddressMaskAddress---- VVV Prop "family"-   -- Type: TInterface "Gio" "SocketFamily"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getInetAddressMaskFamily :: (MonadIO m, InetAddressMaskK o) => o -> m SocketFamily-getInetAddressMaskFamily obj = liftIO $ getObjectPropertyEnum obj "family"--data InetAddressMaskFamilyPropertyInfo-instance AttrInfo InetAddressMaskFamilyPropertyInfo where-    type AttrAllowedOps InetAddressMaskFamilyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressMaskFamilyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressMaskFamilyPropertyInfo = InetAddressMaskK-    type AttrGetType InetAddressMaskFamilyPropertyInfo = SocketFamily-    type AttrLabel InetAddressMaskFamilyPropertyInfo = "family"-    attrGet _ = getInetAddressMaskFamily-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "length"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Nothing)--getInetAddressMaskLength :: (MonadIO m, InetAddressMaskK o) => o -> m Word32-getInetAddressMaskLength obj = liftIO $ getObjectPropertyUInt32 obj "length"--setInetAddressMaskLength :: (MonadIO m, InetAddressMaskK o) => o -> Word32 -> m ()-setInetAddressMaskLength obj val = liftIO $ setObjectPropertyUInt32 obj "length" val--constructInetAddressMaskLength :: Word32 -> IO ([Char], GValue)-constructInetAddressMaskLength val = constructObjectPropertyUInt32 "length" val--data InetAddressMaskLengthPropertyInfo-instance AttrInfo InetAddressMaskLengthPropertyInfo where-    type AttrAllowedOps InetAddressMaskLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetAddressMaskLengthPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint InetAddressMaskLengthPropertyInfo = InetAddressMaskK-    type AttrGetType InetAddressMaskLengthPropertyInfo = Word32-    type AttrLabel InetAddressMaskLengthPropertyInfo = "length"-    attrGet _ = getInetAddressMaskLength-    attrSet _ = setInetAddressMaskLength-    attrConstruct _ = constructInetAddressMaskLength-    attrClear _ = undefined--type instance AttributeList InetAddressMask = InetAddressMaskAttributeList-type InetAddressMaskAttributeList = ('[ '("address", InetAddressMaskAddressPropertyInfo), '("family", InetAddressMaskFamilyPropertyInfo), '("length", InetAddressMaskLengthPropertyInfo)] :: [(Symbol, *)])--inetAddressMaskAddress :: AttrLabelProxy "address"-inetAddressMaskAddress = AttrLabelProxy--inetAddressMaskFamily :: AttrLabelProxy "family"-inetAddressMaskFamily = AttrLabelProxy--inetAddressMaskLength :: AttrLabelProxy "length"-inetAddressMaskLength = AttrLabelProxy--type instance SignalList InetAddressMask = InetAddressMaskSignalList-type InetAddressMaskSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method InetAddressMask::new--- method type : Constructor--- Args : [Arg {argCName = "addr", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InetAddressMask")--- throws : True--- Skip return : False--foreign import ccall "g_inet_address_mask_new" g_inet_address_mask_new :: -    Ptr InetAddress ->                      -- addr : TInterface "Gio" "InetAddress"-    Word32 ->                               -- length : TBasicType TUInt-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr InetAddressMask)---inetAddressMaskNew ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- addr-    -> Word32                               -- length_-    -> m InetAddressMask                    -- result-inetAddressMaskNew addr length_ = liftIO $ do-    let addr' = unsafeManagedPtrCastPtr addr-    onException (do-        result <- propagateGError $ g_inet_address_mask_new addr' length_-        checkUnexpectedReturnNULL "g_inet_address_mask_new" result-        result' <- (wrapObject InetAddressMask) result-        touchManagedPtr addr-        return result'-     ) (do-        return ()-     )---- method InetAddressMask::new_from_string--- method type : Constructor--- Args : [Arg {argCName = "mask_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---inetAddressMaskNewFromString ::-    (MonadIO m) =>-    T.Text                                  -- maskString-    -> m InetAddressMask                    -- result-inetAddressMaskNewFromString maskString = liftIO $ do-    maskString' <- textToCString maskString-    onException (do-        result <- propagateGError $ g_inet_address_mask_new_from_string maskString'-        checkUnexpectedReturnNULL "g_inet_address_mask_new_from_string" result-        result' <- (wrapObject InetAddressMask) result-        freeMem maskString'-        return result'-     ) (do-        freeMem maskString'-     )---- method InetAddressMask::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask2", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "InetAddressMask"-    Ptr InetAddressMask ->                  -- mask2 : TInterface "Gio" "InetAddressMask"-    IO CInt---inetAddressMaskEqual ::-    (MonadIO m, InetAddressMaskK a, InetAddressMaskK b) =>-    a                                       -- _obj-    -> b                                    -- mask2-    -> m Bool                               -- result-inetAddressMaskEqual _obj mask2 = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let mask2' = unsafeManagedPtrCastPtr mask2-    result <- g_inet_address_mask_equal _obj' mask2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr mask2-    return result'--data InetAddressMaskEqualMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, InetAddressMaskK a, InetAddressMaskK b) => MethodInfo InetAddressMaskEqualMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskEqual---- method InetAddressMask::get_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InetAddress")--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_mask_get_address" g_inet_address_mask_get_address :: -    Ptr InetAddressMask ->                  -- _obj : TInterface "Gio" "InetAddressMask"-    IO (Ptr InetAddress)---inetAddressMaskGetAddress ::-    (MonadIO m, InetAddressMaskK a) =>-    a                                       -- _obj-    -> m InetAddress                        -- result-inetAddressMaskGetAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_mask_get_address _obj'-    checkUnexpectedReturnNULL "g_inet_address_mask_get_address" result-    result' <- (newObject InetAddress) result-    touchManagedPtr _obj-    return result'--data InetAddressMaskGetAddressMethodInfo-instance (signature ~ (m InetAddress), MonadIO m, InetAddressMaskK a) => MethodInfo InetAddressMaskGetAddressMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskGetAddress---- method InetAddressMask::get_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketFamily")--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_mask_get_family" g_inet_address_mask_get_family :: -    Ptr InetAddressMask ->                  -- _obj : TInterface "Gio" "InetAddressMask"-    IO CUInt---inetAddressMaskGetFamily ::-    (MonadIO m, InetAddressMaskK a) =>-    a                                       -- _obj-    -> m SocketFamily                       -- result-inetAddressMaskGetFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_mask_get_family _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data InetAddressMaskGetFamilyMethodInfo-instance (signature ~ (m SocketFamily), MonadIO m, InetAddressMaskK a) => MethodInfo InetAddressMaskGetFamilyMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskGetFamily---- method InetAddressMask::get_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "InetAddressMask"-    IO Word32---inetAddressMaskGetLength ::-    (MonadIO m, InetAddressMaskK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-inetAddressMaskGetLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_mask_get_length _obj'-    touchManagedPtr _obj-    return result--data InetAddressMaskGetLengthMethodInfo-instance (signature ~ (m Word32), MonadIO m, InetAddressMaskK a) => MethodInfo InetAddressMaskGetLengthMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskGetLength---- method InetAddressMask::matches--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "InetAddressMask"-    Ptr InetAddress ->                      -- address : TInterface "Gio" "InetAddress"-    IO CInt---inetAddressMaskMatches ::-    (MonadIO m, InetAddressMaskK a, InetAddressK b) =>-    a                                       -- _obj-    -> b                                    -- address-    -> m Bool                               -- result-inetAddressMaskMatches _obj address = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let address' = unsafeManagedPtrCastPtr address-    result <- g_inet_address_mask_matches _obj' address'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr address-    return result'--data InetAddressMaskMatchesMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, InetAddressMaskK a, InetAddressK b) => MethodInfo InetAddressMaskMatchesMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskMatches---- method InetAddressMask::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "InetAddressMask"-    IO CString---inetAddressMaskToString ::-    (MonadIO m, InetAddressMaskK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-inetAddressMaskToString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_address_mask_to_string _obj'-    checkUnexpectedReturnNULL "g_inet_address_mask_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data InetAddressMaskToStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m, InetAddressMaskK a) => MethodInfo InetAddressMaskToStringMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskToString--
− GI/Gio/Objects/InetAddressMask.hs-boot 
@@ -1,22 +0,0 @@-module GI.Gio.Objects.InetAddressMask where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype InetAddressMask = InetAddressMask (ForeignPtr InetAddressMask)-instance GObject InetAddressMask where-class GObject o => InetAddressMaskK o-instance (GObject o, IsDescendantOf InetAddressMask o) => InetAddressMaskK o-data InetAddressMaskAddressPropertyInfo-data InetAddressMaskFamilyPropertyInfo-data InetAddressMaskLengthPropertyInfo-data InetAddressMaskEqualMethodInfo-data InetAddressMaskGetAddressMethodInfo-data InetAddressMaskGetFamilyMethodInfo-data InetAddressMaskGetLengthMethodInfo-data InetAddressMaskMatchesMethodInfo-data InetAddressMaskToStringMethodInfo
− GI/Gio/Objects/InetSocketAddress.hs 
@@ -1,431 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.InetSocketAddress-    ( ---- * Exported types-    InetSocketAddress(..)                   ,-    InetSocketAddressK                      ,-    toInetSocketAddress                     ,-    noInetSocketAddress                     ,--- -- * Methods--- ** inetSocketAddressGetAddress-    InetSocketAddressGetAddressMethodInfo   ,-    inetSocketAddressGetAddress             ,----- ** inetSocketAddressGetFlowinfo-    InetSocketAddressGetFlowinfoMethodInfo  ,-    inetSocketAddressGetFlowinfo            ,----- ** inetSocketAddressGetPort-    InetSocketAddressGetPortMethodInfo      ,-    inetSocketAddressGetPort                ,----- ** inetSocketAddressGetScopeId-    InetSocketAddressGetScopeIdMethodInfo   ,-    inetSocketAddressGetScopeId             ,----- ** inetSocketAddressNew-    inetSocketAddressNew                    ,----- ** inetSocketAddressNewFromString-    inetSocketAddressNewFromString          ,----- -- * Properties--- ** Address-    InetSocketAddressAddressPropertyInfo    ,-    constructInetSocketAddressAddress       ,-    getInetSocketAddressAddress             ,-    inetSocketAddressAddress                ,----- ** Flowinfo-    InetSocketAddressFlowinfoPropertyInfo   ,-    constructInetSocketAddressFlowinfo      ,-    getInetSocketAddressFlowinfo            ,-    inetSocketAddressFlowinfo               ,----- ** Port-    InetSocketAddressPortPropertyInfo       ,-    constructInetSocketAddressPort          ,-    getInetSocketAddressPort                ,-    inetSocketAddressPort                   ,----- ** ScopeId-    InetSocketAddressScopeIdPropertyInfo    ,-    constructInetSocketAddressScopeId       ,-    getInetSocketAddressScopeId             ,-    inetSocketAddressScopeId                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype InetSocketAddress = InetSocketAddress (ForeignPtr InetSocketAddress)-foreign import ccall "g_inet_socket_address_get_type"-    c_g_inet_socket_address_get_type :: IO GType--type instance ParentTypes InetSocketAddress = InetSocketAddressParentTypes-type InetSocketAddressParentTypes = '[SocketAddress, GObject.Object, SocketConnectable]--instance GObject InetSocketAddress where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_inet_socket_address_get_type-    --class GObject o => InetSocketAddressK o-instance (GObject o, IsDescendantOf InetSocketAddress o) => InetSocketAddressK o--toInetSocketAddress :: InetSocketAddressK o => o -> IO InetSocketAddress-toInetSocketAddress = unsafeCastTo InetSocketAddress--noInetSocketAddress :: Maybe InetSocketAddress-noInetSocketAddress = Nothing--type family ResolveInetSocketAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveInetSocketAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveInetSocketAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveInetSocketAddressMethod "enumerate" o = SocketConnectableEnumerateMethodInfo-    ResolveInetSocketAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveInetSocketAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveInetSocketAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveInetSocketAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveInetSocketAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveInetSocketAddressMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo-    ResolveInetSocketAddressMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveInetSocketAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveInetSocketAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveInetSocketAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveInetSocketAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveInetSocketAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveInetSocketAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveInetSocketAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveInetSocketAddressMethod "toNative" o = SocketAddressToNativeMethodInfo-    ResolveInetSocketAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveInetSocketAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveInetSocketAddressMethod "getAddress" o = InetSocketAddressGetAddressMethodInfo-    ResolveInetSocketAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveInetSocketAddressMethod "getFamily" o = SocketAddressGetFamilyMethodInfo-    ResolveInetSocketAddressMethod "getFlowinfo" o = InetSocketAddressGetFlowinfoMethodInfo-    ResolveInetSocketAddressMethod "getNativeSize" o = SocketAddressGetNativeSizeMethodInfo-    ResolveInetSocketAddressMethod "getPort" o = InetSocketAddressGetPortMethodInfo-    ResolveInetSocketAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveInetSocketAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveInetSocketAddressMethod "getScopeId" o = InetSocketAddressGetScopeIdMethodInfo-    ResolveInetSocketAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveInetSocketAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveInetSocketAddressMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveInetSocketAddressMethod t InetSocketAddress, MethodInfo info InetSocketAddress p) => IsLabelProxy t (InetSocketAddress -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveInetSocketAddressMethod t InetSocketAddress, MethodInfo info InetSocketAddress p) => IsLabel t (InetSocketAddress -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "address"-   -- Type: TInterface "Gio" "InetAddress"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getInetSocketAddressAddress :: (MonadIO m, InetSocketAddressK o) => o -> m InetAddress-getInetSocketAddressAddress obj = liftIO $ checkUnexpectedNothing "getInetSocketAddressAddress" $ getObjectPropertyObject obj "address" InetAddress--constructInetSocketAddressAddress :: (InetAddressK a) => a -> IO ([Char], GValue)-constructInetSocketAddressAddress val = constructObjectPropertyObject "address" (Just val)--data InetSocketAddressAddressPropertyInfo-instance AttrInfo InetSocketAddressAddressPropertyInfo where-    type AttrAllowedOps InetSocketAddressAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint InetSocketAddressAddressPropertyInfo = InetAddressK-    type AttrBaseTypeConstraint InetSocketAddressAddressPropertyInfo = InetSocketAddressK-    type AttrGetType InetSocketAddressAddressPropertyInfo = InetAddress-    type AttrLabel InetSocketAddressAddressPropertyInfo = "address"-    attrGet _ = getInetSocketAddressAddress-    attrSet _ = undefined-    attrConstruct _ = constructInetSocketAddressAddress-    attrClear _ = undefined---- VVV Prop "flowinfo"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getInetSocketAddressFlowinfo :: (MonadIO m, InetSocketAddressK o) => o -> m Word32-getInetSocketAddressFlowinfo obj = liftIO $ getObjectPropertyUInt32 obj "flowinfo"--constructInetSocketAddressFlowinfo :: Word32 -> IO ([Char], GValue)-constructInetSocketAddressFlowinfo val = constructObjectPropertyUInt32 "flowinfo" val--data InetSocketAddressFlowinfoPropertyInfo-instance AttrInfo InetSocketAddressFlowinfoPropertyInfo where-    type AttrAllowedOps InetSocketAddressFlowinfoPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetSocketAddressFlowinfoPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint InetSocketAddressFlowinfoPropertyInfo = InetSocketAddressK-    type AttrGetType InetSocketAddressFlowinfoPropertyInfo = Word32-    type AttrLabel InetSocketAddressFlowinfoPropertyInfo = "flowinfo"-    attrGet _ = getInetSocketAddressFlowinfo-    attrSet _ = undefined-    attrConstruct _ = constructInetSocketAddressFlowinfo-    attrClear _ = undefined---- VVV Prop "port"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getInetSocketAddressPort :: (MonadIO m, InetSocketAddressK o) => o -> m Word32-getInetSocketAddressPort obj = liftIO $ getObjectPropertyUInt32 obj "port"--constructInetSocketAddressPort :: Word32 -> IO ([Char], GValue)-constructInetSocketAddressPort val = constructObjectPropertyUInt32 "port" val--data InetSocketAddressPortPropertyInfo-instance AttrInfo InetSocketAddressPortPropertyInfo where-    type AttrAllowedOps InetSocketAddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetSocketAddressPortPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint InetSocketAddressPortPropertyInfo = InetSocketAddressK-    type AttrGetType InetSocketAddressPortPropertyInfo = Word32-    type AttrLabel InetSocketAddressPortPropertyInfo = "port"-    attrGet _ = getInetSocketAddressPort-    attrSet _ = undefined-    attrConstruct _ = constructInetSocketAddressPort-    attrClear _ = undefined---- VVV Prop "scope-id"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getInetSocketAddressScopeId :: (MonadIO m, InetSocketAddressK o) => o -> m Word32-getInetSocketAddressScopeId obj = liftIO $ getObjectPropertyUInt32 obj "scope-id"--constructInetSocketAddressScopeId :: Word32 -> IO ([Char], GValue)-constructInetSocketAddressScopeId val = constructObjectPropertyUInt32 "scope-id" val--data InetSocketAddressScopeIdPropertyInfo-instance AttrInfo InetSocketAddressScopeIdPropertyInfo where-    type AttrAllowedOps InetSocketAddressScopeIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetSocketAddressScopeIdPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint InetSocketAddressScopeIdPropertyInfo = InetSocketAddressK-    type AttrGetType InetSocketAddressScopeIdPropertyInfo = Word32-    type AttrLabel InetSocketAddressScopeIdPropertyInfo = "scope-id"-    attrGet _ = getInetSocketAddressScopeId-    attrSet _ = undefined-    attrConstruct _ = constructInetSocketAddressScopeId-    attrClear _ = undefined--type instance AttributeList InetSocketAddress = InetSocketAddressAttributeList-type InetSocketAddressAttributeList = ('[ '("address", InetSocketAddressAddressPropertyInfo), '("family", SocketAddressFamilyPropertyInfo), '("flowinfo", InetSocketAddressFlowinfoPropertyInfo), '("port", InetSocketAddressPortPropertyInfo), '("scopeId", InetSocketAddressScopeIdPropertyInfo)] :: [(Symbol, *)])--inetSocketAddressAddress :: AttrLabelProxy "address"-inetSocketAddressAddress = AttrLabelProxy--inetSocketAddressFlowinfo :: AttrLabelProxy "flowinfo"-inetSocketAddressFlowinfo = AttrLabelProxy--inetSocketAddressPort :: AttrLabelProxy "port"-inetSocketAddressPort = AttrLabelProxy--inetSocketAddressScopeId :: AttrLabelProxy "scopeId"-inetSocketAddressScopeId = AttrLabelProxy--type instance SignalList InetSocketAddress = InetSocketAddressSignalList-type InetSocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method InetSocketAddress::new--- method type : Constructor--- Args : [Arg {argCName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InetSocketAddress")--- throws : False--- Skip return : False--foreign import ccall "g_inet_socket_address_new" g_inet_socket_address_new :: -    Ptr InetAddress ->                      -- address : TInterface "Gio" "InetAddress"-    Word16 ->                               -- port : TBasicType TUInt16-    IO (Ptr InetSocketAddress)---inetSocketAddressNew ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- address-    -> Word16                               -- port-    -> m InetSocketAddress                  -- result-inetSocketAddressNew address port = liftIO $ do-    let address' = unsafeManagedPtrCastPtr address-    result <- g_inet_socket_address_new address' port-    checkUnexpectedReturnNULL "g_inet_socket_address_new" result-    result' <- (wrapObject InetSocketAddress) result-    touchManagedPtr address-    return result'---- method InetSocketAddress::new_from_string--- method type : Constructor--- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---inetSocketAddressNewFromString ::-    (MonadIO m) =>-    T.Text                                  -- address-    -> Word32                               -- port-    -> m InetSocketAddress                  -- result-inetSocketAddressNewFromString address port = liftIO $ do-    address' <- textToCString address-    result <- g_inet_socket_address_new_from_string address' port-    checkUnexpectedReturnNULL "g_inet_socket_address_new_from_string" result-    result' <- (wrapObject InetSocketAddress) result-    freeMem address'-    return result'---- method InetSocketAddress::get_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InetAddress")--- throws : False--- Skip return : False--foreign import ccall "g_inet_socket_address_get_address" g_inet_socket_address_get_address :: -    Ptr InetSocketAddress ->                -- _obj : TInterface "Gio" "InetSocketAddress"-    IO (Ptr InetAddress)---inetSocketAddressGetAddress ::-    (MonadIO m, InetSocketAddressK a) =>-    a                                       -- _obj-    -> m InetAddress                        -- result-inetSocketAddressGetAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_socket_address_get_address _obj'-    checkUnexpectedReturnNULL "g_inet_socket_address_get_address" result-    result' <- (newObject InetAddress) result-    touchManagedPtr _obj-    return result'--data InetSocketAddressGetAddressMethodInfo-instance (signature ~ (m InetAddress), MonadIO m, InetSocketAddressK a) => MethodInfo InetSocketAddressGetAddressMethodInfo a signature where-    overloadedMethod _ = inetSocketAddressGetAddress---- method InetSocketAddress::get_flowinfo--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "InetSocketAddress"-    IO Word32---inetSocketAddressGetFlowinfo ::-    (MonadIO m, InetSocketAddressK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-inetSocketAddressGetFlowinfo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_socket_address_get_flowinfo _obj'-    touchManagedPtr _obj-    return result--data InetSocketAddressGetFlowinfoMethodInfo-instance (signature ~ (m Word32), MonadIO m, InetSocketAddressK a) => MethodInfo InetSocketAddressGetFlowinfoMethodInfo a signature where-    overloadedMethod _ = inetSocketAddressGetFlowinfo---- method InetSocketAddress::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "InetSocketAddress"-    IO Word16---inetSocketAddressGetPort ::-    (MonadIO m, InetSocketAddressK a) =>-    a                                       -- _obj-    -> m Word16                             -- result-inetSocketAddressGetPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_socket_address_get_port _obj'-    touchManagedPtr _obj-    return result--data InetSocketAddressGetPortMethodInfo-instance (signature ~ (m Word16), MonadIO m, InetSocketAddressK a) => MethodInfo InetSocketAddressGetPortMethodInfo a signature where-    overloadedMethod _ = inetSocketAddressGetPort---- method InetSocketAddress::get_scope_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "InetSocketAddress"-    IO Word32---inetSocketAddressGetScopeId ::-    (MonadIO m, InetSocketAddressK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-inetSocketAddressGetScopeId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_inet_socket_address_get_scope_id _obj'-    touchManagedPtr _obj-    return result--data InetSocketAddressGetScopeIdMethodInfo-instance (signature ~ (m Word32), MonadIO m, InetSocketAddressK a) => MethodInfo InetSocketAddressGetScopeIdMethodInfo a signature where-    overloadedMethod _ = inetSocketAddressGetScopeId--
− GI/Gio/Objects/InetSocketAddress.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.InetSocketAddress where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype InetSocketAddress = InetSocketAddress (ForeignPtr InetSocketAddress)-instance GObject InetSocketAddress where-class GObject o => InetSocketAddressK o-instance (GObject o, IsDescendantOf InetSocketAddress o) => InetSocketAddressK o-data InetSocketAddressAddressPropertyInfo-data InetSocketAddressFlowinfoPropertyInfo-data InetSocketAddressPortPropertyInfo-data InetSocketAddressScopeIdPropertyInfo-data InetSocketAddressGetAddressMethodInfo-data InetSocketAddressGetFlowinfoMethodInfo-data InetSocketAddressGetPortMethodInfo-data InetSocketAddressGetScopeIdMethodInfo
− GI/Gio/Objects/InputStream.hs 
@@ -1,990 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.InputStream-    ( ---- * Exported types-    InputStream(..)                         ,-    InputStreamK                            ,-    toInputStream                           ,-    noInputStream                           ,--- -- * Methods--- ** inputStreamClearPending-    InputStreamClearPendingMethodInfo       ,-    inputStreamClearPending                 ,----- ** inputStreamClose-    InputStreamCloseMethodInfo              ,-    inputStreamClose                        ,----- ** inputStreamCloseAsync-    InputStreamCloseAsyncMethodInfo         ,-    inputStreamCloseAsync                   ,----- ** inputStreamCloseFinish-    InputStreamCloseFinishMethodInfo        ,-    inputStreamCloseFinish                  ,----- ** inputStreamHasPending-    InputStreamHasPendingMethodInfo         ,-    inputStreamHasPending                   ,----- ** inputStreamIsClosed-    InputStreamIsClosedMethodInfo           ,-    inputStreamIsClosed                     ,----- ** inputStreamRead-    InputStreamReadMethodInfo               ,-    inputStreamRead                         ,----- ** inputStreamReadAll-    InputStreamReadAllMethodInfo            ,-    inputStreamReadAll                      ,----- ** inputStreamReadAllAsync-    InputStreamReadAllAsyncMethodInfo       ,-    inputStreamReadAllAsync                 ,----- ** inputStreamReadAllFinish-    InputStreamReadAllFinishMethodInfo      ,-    inputStreamReadAllFinish                ,----- ** inputStreamReadAsync-    InputStreamReadAsyncMethodInfo          ,-    inputStreamReadAsync                    ,----- ** inputStreamReadBytes-    InputStreamReadBytesMethodInfo          ,-    inputStreamReadBytes                    ,----- ** inputStreamReadBytesAsync-    InputStreamReadBytesAsyncMethodInfo     ,-    inputStreamReadBytesAsync               ,----- ** inputStreamReadBytesFinish-    InputStreamReadBytesFinishMethodInfo    ,-    inputStreamReadBytesFinish              ,----- ** inputStreamReadFinish-    InputStreamReadFinishMethodInfo         ,-    inputStreamReadFinish                   ,----- ** inputStreamSetPending-    InputStreamSetPendingMethodInfo         ,-    inputStreamSetPending                   ,----- ** inputStreamSkip-    InputStreamSkipMethodInfo               ,-    inputStreamSkip                         ,----- ** inputStreamSkipAsync-    InputStreamSkipAsyncMethodInfo          ,-    inputStreamSkipAsync                    ,----- ** inputStreamSkipFinish-    InputStreamSkipFinishMethodInfo         ,-    inputStreamSkipFinish                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype InputStream = InputStream (ForeignPtr InputStream)-foreign import ccall "g_input_stream_get_type"-    c_g_input_stream_get_type :: IO GType--type instance ParentTypes InputStream = InputStreamParentTypes-type InputStreamParentTypes = '[GObject.Object]--instance GObject InputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_input_stream_get_type-    --class GObject o => InputStreamK o-instance (GObject o, IsDescendantOf InputStream o) => InputStreamK o--toInputStream :: InputStreamK o => o -> IO InputStream-toInputStream = unsafeCastTo InputStream--noInputStream :: Maybe InputStream-noInputStream = Nothing--type family ResolveInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo-    ResolveInputStreamMethod "close" o = InputStreamCloseMethodInfo-    ResolveInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo-    ResolveInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo-    ResolveInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo-    ResolveInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo-    ResolveInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveInputStreamMethod "notifyByPspec" o = GObject.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.ObjectRefMethodInfo-    ResolveInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveInputStreamMethod "skip" o = InputStreamSkipMethodInfo-    ResolveInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo-    ResolveInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo-    ResolveInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo-    ResolveInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveInputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveInputStreamMethod t InputStream, MethodInfo info InputStream p) => IsLabelProxy t (InputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveInputStreamMethod t InputStream, MethodInfo info InputStream p) => IsLabel t (InputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList InputStream = InputStreamAttributeList-type InputStreamAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList InputStream = InputStreamSignalList-type InputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method InputStream::clear_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    IO ()---inputStreamClearPending ::-    (MonadIO m, InputStreamK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-inputStreamClearPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_input_stream_clear_pending _obj'-    touchManagedPtr _obj-    return ()--data InputStreamClearPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, InputStreamK a) => MethodInfo InputStreamClearPendingMethodInfo a signature where-    overloadedMethod _ = inputStreamClearPending---- method InputStream::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---inputStreamClose ::-    (MonadIO m, InputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-inputStreamClose _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_input_stream_close _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data InputStreamCloseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamCloseMethodInfo a signature where-    overloadedMethod _ = inputStreamClose---- method InputStream::close_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---inputStreamCloseAsync ::-    (MonadIO m, InputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-inputStreamCloseAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_input_stream_close_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data InputStreamCloseAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamCloseAsyncMethodInfo a signature where-    overloadedMethod _ = inputStreamCloseAsync---- method InputStream::close_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---inputStreamCloseFinish ::-    (MonadIO m, InputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-inputStreamCloseFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_input_stream_close_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data InputStreamCloseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, InputStreamK a, AsyncResultK b) => MethodInfo InputStreamCloseFinishMethodInfo a signature where-    overloadedMethod _ = inputStreamCloseFinish---- method InputStream::has_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    IO CInt---inputStreamHasPending ::-    (MonadIO m, InputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inputStreamHasPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_input_stream_has_pending _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InputStreamHasPendingMethodInfo-instance (signature ~ (m Bool), MonadIO m, InputStreamK a) => MethodInfo InputStreamHasPendingMethodInfo a signature where-    overloadedMethod _ = inputStreamHasPending---- method InputStream::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    IO CInt---inputStreamIsClosed ::-    (MonadIO m, InputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-inputStreamIsClosed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_input_stream_is_closed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data InputStreamIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, InputStreamK a) => MethodInfo InputStreamIsClosedMethodInfo a signature where-    overloadedMethod _ = inputStreamIsClosed---- method InputStream::read--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---inputStreamRead ::-    (MonadIO m, InputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-inputStreamRead _obj buffer cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_input_stream_read _obj' buffer' count maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--data InputStreamReadMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadMethodInfo a signature where-    overloadedMethod _ = inputStreamRead---- method InputStream::read_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Word64 ->                           -- bytes_read : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---inputStreamReadAll ::-    (MonadIO m, InputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Maybe (b)                            -- cancellable-    -> m (Word64)                           -- result-inputStreamReadAll _obj buffer cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    bytesRead <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_input_stream_read_all _obj' buffer' count bytesRead maybeCancellable-        bytesRead' <- peek bytesRead-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem bytesRead-        return bytesRead'-     ) (do-        freeMem buffer'-        freeMem bytesRead-     )--data InputStreamReadAllMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m (Word64)), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadAllMethodInfo a signature where-    overloadedMethod _ = inputStreamReadAll---- method InputStream::read_all_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---inputStreamReadAllAsync ::-    (MonadIO m, InputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-inputStreamReadAllAsync _obj buffer ioPriority cancellable callback = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_input_stream_read_all_async _obj' buffer' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem buffer'-    return ()--data InputStreamReadAllAsyncMethodInfo-instance (signature ~ (ByteString -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadAllAsyncMethodInfo a signature where-    overloadedMethod _ = inputStreamReadAllAsync---- method InputStream::read_all_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr Word64 ->                           -- bytes_read : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt---inputStreamReadAllFinish ::-    (MonadIO m, InputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m (Word64)                           -- result-inputStreamReadAllFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    bytesRead <- allocMem :: IO (Ptr Word64)-    onException (do-        _ <- propagateGError $ g_input_stream_read_all_finish _obj' result_' bytesRead-        bytesRead' <- peek bytesRead-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem bytesRead-        return bytesRead'-     ) (do-        freeMem bytesRead-     )--data InputStreamReadAllFinishMethodInfo-instance (signature ~ (b -> m (Word64)), MonadIO m, InputStreamK a, AsyncResultK b) => MethodInfo InputStreamReadAllFinishMethodInfo a signature where-    overloadedMethod _ = inputStreamReadAllFinish---- method InputStream::read_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---inputStreamReadAsync ::-    (MonadIO m, InputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-inputStreamReadAsync _obj buffer ioPriority cancellable callback = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_input_stream_read_async _obj' buffer' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem buffer'-    return ()--data InputStreamReadAsyncMethodInfo-instance (signature ~ (ByteString -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadAsyncMethodInfo a signature where-    overloadedMethod _ = inputStreamReadAsync---- method InputStream::read_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "Bytes")--- throws : True--- Skip return : False--foreign import ccall "g_input_stream_read_bytes" g_input_stream_read_bytes :: -    Ptr InputStream ->                      -- _obj : TInterface "Gio" "InputStream"-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GLib.Bytes)---inputStreamReadBytes ::-    (MonadIO m, InputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Word64                               -- count-    -> Maybe (b)                            -- cancellable-    -> m GLib.Bytes                         -- result-inputStreamReadBytes _obj count cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_input_stream_read_bytes _obj' count maybeCancellable-        checkUnexpectedReturnNULL "g_input_stream_read_bytes" result-        result' <- (wrapBoxed GLib.Bytes) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data InputStreamReadBytesMethodInfo-instance (signature ~ (Word64 -> Maybe (b) -> m GLib.Bytes), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadBytesMethodInfo a signature where-    overloadedMethod _ = inputStreamReadBytes---- method InputStream::read_bytes_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Word64 ->                               -- count : TBasicType TUInt64-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---inputStreamReadBytesAsync ::-    (MonadIO m, InputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Word64                               -- count-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-inputStreamReadBytesAsync _obj count ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_input_stream_read_bytes_async _obj' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data InputStreamReadBytesAsyncMethodInfo-instance (signature ~ (Word64 -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadBytesAsyncMethodInfo a signature where-    overloadedMethod _ = inputStreamReadBytesAsync---- method InputStream::read_bytes_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "Bytes")--- throws : True--- Skip return : False--foreign import ccall "g_input_stream_read_bytes_finish" g_input_stream_read_bytes_finish :: -    Ptr InputStream ->                      -- _obj : TInterface "Gio" "InputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GLib.Bytes)---inputStreamReadBytesFinish ::-    (MonadIO m, InputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m GLib.Bytes                         -- result-inputStreamReadBytesFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_input_stream_read_bytes_finish _obj' result_'-        checkUnexpectedReturnNULL "g_input_stream_read_bytes_finish" result-        result' <- (wrapBoxed GLib.Bytes) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data InputStreamReadBytesFinishMethodInfo-instance (signature ~ (b -> m GLib.Bytes), MonadIO m, InputStreamK a, AsyncResultK b) => MethodInfo InputStreamReadBytesFinishMethodInfo a signature where-    overloadedMethod _ = inputStreamReadBytesFinish---- method InputStream::read_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---inputStreamReadFinish ::-    (MonadIO m, InputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Int64                              -- result-inputStreamReadFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_input_stream_read_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--data InputStreamReadFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, InputStreamK a, AsyncResultK b) => MethodInfo InputStreamReadFinishMethodInfo a signature where-    overloadedMethod _ = inputStreamReadFinish---- method InputStream::set_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---inputStreamSetPending ::-    (MonadIO m, InputStreamK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-inputStreamSetPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_input_stream_set_pending _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data InputStreamSetPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, InputStreamK a) => MethodInfo InputStreamSetPendingMethodInfo a signature where-    overloadedMethod _ = inputStreamSetPending---- method InputStream::skip--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---inputStreamSkip ::-    (MonadIO m, InputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Word64                               -- count-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-inputStreamSkip _obj count cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_input_stream_skip _obj' count maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data InputStreamSkipMethodInfo-instance (signature ~ (Word64 -> Maybe (b) -> m Int64), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamSkipMethodInfo a signature where-    overloadedMethod _ = inputStreamSkip---- method InputStream::skip_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Word64 ->                               -- count : TBasicType TUInt64-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---inputStreamSkipAsync ::-    (MonadIO m, InputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Word64                               -- count-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-inputStreamSkipAsync _obj count ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_input_stream_skip_async _obj' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data InputStreamSkipAsyncMethodInfo-instance (signature ~ (Word64 -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamSkipAsyncMethodInfo a signature where-    overloadedMethod _ = inputStreamSkipAsync---- method InputStream::skip_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "InputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---inputStreamSkipFinish ::-    (MonadIO m, InputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Int64                              -- result-inputStreamSkipFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_input_stream_skip_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--data InputStreamSkipFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, InputStreamK a, AsyncResultK b) => MethodInfo InputStreamSkipFinishMethodInfo a signature where-    overloadedMethod _ = inputStreamSkipFinish--
− GI/Gio/Objects/InputStream.hs-boot 
@@ -1,32 +0,0 @@-module GI.Gio.Objects.InputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype InputStream = InputStream (ForeignPtr InputStream)-instance GObject InputStream where-class GObject o => InputStreamK o-instance (GObject o, IsDescendantOf InputStream o) => InputStreamK o-data InputStreamClearPendingMethodInfo-data InputStreamCloseMethodInfo-data InputStreamCloseAsyncMethodInfo-data InputStreamCloseFinishMethodInfo-data InputStreamHasPendingMethodInfo-data InputStreamIsClosedMethodInfo-data InputStreamReadMethodInfo-data InputStreamReadAllMethodInfo-data InputStreamReadAllAsyncMethodInfo-data InputStreamReadAllFinishMethodInfo-data InputStreamReadAsyncMethodInfo-data InputStreamReadBytesMethodInfo-data InputStreamReadBytesAsyncMethodInfo-data InputStreamReadBytesFinishMethodInfo-data InputStreamReadFinishMethodInfo-data InputStreamSetPendingMethodInfo-data InputStreamSkipMethodInfo-data InputStreamSkipAsyncMethodInfo-data InputStreamSkipFinishMethodInfo
− GI/Gio/Objects/ListStore.hs 
@@ -1,435 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.ListStore-    ( ---- * Exported types-    ListStore(..)                           ,-    ListStoreK                              ,-    toListStore                             ,-    noListStore                             ,--- -- * Methods--- ** listStoreAppend-    ListStoreAppendMethodInfo               ,-    listStoreAppend                         ,----- ** listStoreInsert-    ListStoreInsertMethodInfo               ,-    listStoreInsert                         ,----- ** listStoreInsertSorted-    ListStoreInsertSortedMethodInfo         ,-    listStoreInsertSorted                   ,----- ** listStoreNew-    listStoreNew                            ,----- ** listStoreRemove-    ListStoreRemoveMethodInfo               ,-    listStoreRemove                         ,----- ** listStoreRemoveAll-    ListStoreRemoveAllMethodInfo            ,-    listStoreRemoveAll                      ,----- ** listStoreSort-    ListStoreSortMethodInfo                 ,-    listStoreSort                           ,----- ** listStoreSplice-    ListStoreSpliceMethodInfo               ,-    listStoreSplice                         ,----- -- * Properties--- ** ItemType-    ListStoreItemTypePropertyInfo           ,-    constructListStoreItemType              ,-    getListStoreItemType                    ,-    listStoreItemType                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype ListStore = ListStore (ForeignPtr ListStore)-foreign import ccall "g_list_store_get_type"-    c_g_list_store_get_type :: IO GType--type instance ParentTypes ListStore = ListStoreParentTypes-type ListStoreParentTypes = '[GObject.Object, ListModel]--instance GObject ListStore where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_list_store_get_type-    --class GObject o => ListStoreK o-instance (GObject o, IsDescendantOf ListStore o) => ListStoreK o--toListStore :: ListStoreK o => o -> IO ListStore-toListStore = unsafeCastTo ListStore--noListStore :: Maybe ListStore-noListStore = Nothing--type family ResolveListStoreMethod (t :: Symbol) (o :: *) :: * where-    ResolveListStoreMethod "append" o = ListStoreAppendMethodInfo-    ResolveListStoreMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveListStoreMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveListStoreMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveListStoreMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveListStoreMethod "insert" o = ListStoreInsertMethodInfo-    ResolveListStoreMethod "insertSorted" o = ListStoreInsertSortedMethodInfo-    ResolveListStoreMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveListStoreMethod "itemsChanged" o = ListModelItemsChangedMethodInfo-    ResolveListStoreMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveListStoreMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveListStoreMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveListStoreMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveListStoreMethod "remove" o = ListStoreRemoveMethodInfo-    ResolveListStoreMethod "removeAll" o = ListStoreRemoveAllMethodInfo-    ResolveListStoreMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveListStoreMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveListStoreMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveListStoreMethod "sort" o = ListStoreSortMethodInfo-    ResolveListStoreMethod "splice" o = ListStoreSpliceMethodInfo-    ResolveListStoreMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveListStoreMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveListStoreMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveListStoreMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveListStoreMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveListStoreMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveListStoreMethod "getItem" o = ListModelGetItemMethodInfo-    ResolveListStoreMethod "getItemType" o = ListModelGetItemTypeMethodInfo-    ResolveListStoreMethod "getNItems" o = ListModelGetNItemsMethodInfo-    ResolveListStoreMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveListStoreMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveListStoreMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveListStoreMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveListStoreMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveListStoreMethod t ListStore, MethodInfo info ListStore p) => IsLabelProxy t (ListStore -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveListStoreMethod t ListStore, MethodInfo info ListStore p) => IsLabel t (ListStore -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "item-type"-   -- Type: TBasicType TGType-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getListStoreItemType :: (MonadIO m, ListStoreK o) => o -> m GType-getListStoreItemType obj = liftIO $ getObjectPropertyGType obj "item-type"--constructListStoreItemType :: GType -> IO ([Char], GValue)-constructListStoreItemType val = constructObjectPropertyGType "item-type" val--data ListStoreItemTypePropertyInfo-instance AttrInfo ListStoreItemTypePropertyInfo where-    type AttrAllowedOps ListStoreItemTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ListStoreItemTypePropertyInfo = (~) GType-    type AttrBaseTypeConstraint ListStoreItemTypePropertyInfo = ListStoreK-    type AttrGetType ListStoreItemTypePropertyInfo = GType-    type AttrLabel ListStoreItemTypePropertyInfo = "item-type"-    attrGet _ = getListStoreItemType-    attrSet _ = undefined-    attrConstruct _ = constructListStoreItemType-    attrClear _ = undefined--type instance AttributeList ListStore = ListStoreAttributeList-type ListStoreAttributeList = ('[ '("itemType", ListStoreItemTypePropertyInfo)] :: [(Symbol, *)])--listStoreItemType :: AttrLabelProxy "itemType"-listStoreItemType = AttrLabelProxy--type instance SignalList ListStore = ListStoreSignalList-type ListStoreSignalList = ('[ '("itemsChanged", ListModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ListStore::new--- method type : Constructor--- Args : [Arg {argCName = "item_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---listStoreNew ::-    (MonadIO m) =>-    GType                                   -- itemType-    -> m ListStore                          -- result-listStoreNew itemType = liftIO $ do-    let itemType' = gtypeToCGType itemType-    result <- g_list_store_new itemType'-    checkUnexpectedReturnNULL "g_list_store_new" result-    result' <- (wrapObject ListStore) result-    return result'---- method ListStore::append--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ListStore"-    Ptr GObject.Object ->                   -- item : TInterface "GObject" "Object"-    IO ()---listStoreAppend ::-    (MonadIO m, ListStoreK a, GObject.ObjectK b) =>-    a                                       -- _obj-    -> b                                    -- item-    -> m ()                                 -- result-listStoreAppend _obj item = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    g_list_store_append _obj' item'-    touchManagedPtr _obj-    touchManagedPtr item-    return ()--data ListStoreAppendMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, ListStoreK a, GObject.ObjectK b) => MethodInfo ListStoreAppendMethodInfo a signature where-    overloadedMethod _ = listStoreAppend---- method ListStore::insert--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ListStore"-    Word32 ->                               -- position : TBasicType TUInt-    Ptr GObject.Object ->                   -- item : TInterface "GObject" "Object"-    IO ()---listStoreInsert ::-    (MonadIO m, ListStoreK a, GObject.ObjectK b) =>-    a                                       -- _obj-    -> Word32                               -- position-    -> b                                    -- item-    -> m ()                                 -- result-listStoreInsert _obj position item = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    g_list_store_insert _obj' position item'-    touchManagedPtr _obj-    touchManagedPtr item-    return ()--data ListStoreInsertMethodInfo-instance (signature ~ (Word32 -> b -> m ()), MonadIO m, ListStoreK a, GObject.ObjectK b) => MethodInfo ListStoreInsertMethodInfo a signature where-    overloadedMethod _ = listStoreInsert---- method ListStore::insert_sorted--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ListStore"-    Ptr GObject.Object ->                   -- item : TInterface "GObject" "Object"-    FunPtr GLib.CompareDataFuncC ->         -- compare_func : TInterface "GLib" "CompareDataFunc"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO Word32---listStoreInsertSorted ::-    (MonadIO m, ListStoreK a, GObject.ObjectK b) =>-    a                                       -- _obj-    -> b                                    -- item-    -> GLib.CompareDataFunc                 -- compareFunc-    -> m Word32                             -- result-listStoreInsertSorted _obj item compareFunc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    compareFunc' <- GLib.mkCompareDataFunc (GLib.compareDataFuncWrapper Nothing compareFunc)-    let userData = nullPtr-    result <- g_list_store_insert_sorted _obj' item' compareFunc' userData-    safeFreeFunPtr $ castFunPtrToPtr compareFunc'-    touchManagedPtr _obj-    touchManagedPtr item-    return result--data ListStoreInsertSortedMethodInfo-instance (signature ~ (b -> GLib.CompareDataFunc -> m Word32), MonadIO m, ListStoreK a, GObject.ObjectK b) => MethodInfo ListStoreInsertSortedMethodInfo a signature where-    overloadedMethod _ = listStoreInsertSorted---- method ListStore::remove--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ListStore"-    Word32 ->                               -- position : TBasicType TUInt-    IO ()---listStoreRemove ::-    (MonadIO m, ListStoreK a) =>-    a                                       -- _obj-    -> Word32                               -- position-    -> m ()                                 -- result-listStoreRemove _obj position = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_list_store_remove _obj' position-    touchManagedPtr _obj-    return ()--data ListStoreRemoveMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreRemoveMethodInfo a signature where-    overloadedMethod _ = listStoreRemove---- method ListStore::remove_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ListStore"-    IO ()---listStoreRemoveAll ::-    (MonadIO m, ListStoreK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-listStoreRemoveAll _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_list_store_remove_all _obj'-    touchManagedPtr _obj-    return ()--data ListStoreRemoveAllMethodInfo-instance (signature ~ (m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreRemoveAllMethodInfo a signature where-    overloadedMethod _ = listStoreRemoveAll---- method ListStore::sort--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ListStore"-    FunPtr GLib.CompareDataFuncC ->         -- compare_func : TInterface "GLib" "CompareDataFunc"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---listStoreSort ::-    (MonadIO m, ListStoreK a) =>-    a                                       -- _obj-    -> GLib.CompareDataFunc                 -- compareFunc-    -> m ()                                 -- result-listStoreSort _obj compareFunc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    compareFunc' <- GLib.mkCompareDataFunc (GLib.compareDataFuncWrapper Nothing compareFunc)-    let userData = nullPtr-    g_list_store_sort _obj' compareFunc' userData-    safeFreeFunPtr $ castFunPtrToPtr compareFunc'-    touchManagedPtr _obj-    return ()--data ListStoreSortMethodInfo-instance (signature ~ (GLib.CompareDataFunc -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSortMethodInfo a signature where-    overloadedMethod _ = listStoreSort---- method ListStore::splice--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_removals", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "additions", argType = TCArray False (-1) 4 (TInterface "GObject" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_additions", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_additions", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "ListStore"-    Word32 ->                               -- position : TBasicType TUInt-    Word32 ->                               -- n_removals : TBasicType TUInt-    Ptr (Ptr GObject.Object) ->             -- additions : TCArray False (-1) 4 (TInterface "GObject" "Object")-    Word32 ->                               -- n_additions : TBasicType TUInt-    IO ()---listStoreSplice ::-    (MonadIO m, ListStoreK a) =>-    a                                       -- _obj-    -> Word32                               -- position-    -> Word32                               -- nRemovals-    -> [GObject.Object]                     -- additions-    -> m ()                                 -- result-listStoreSplice _obj position nRemovals additions = liftIO $ do-    let nAdditions = fromIntegral $ length additions-    let _obj' = unsafeManagedPtrCastPtr _obj-    let additions' = map unsafeManagedPtrCastPtr additions-    additions'' <- packPtrArray additions'-    g_list_store_splice _obj' position nRemovals additions'' nAdditions-    touchManagedPtr _obj-    mapM_ touchManagedPtr additions-    freeMem additions''-    return ()--data ListStoreSpliceMethodInfo-instance (signature ~ (Word32 -> Word32 -> [GObject.Object] -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSpliceMethodInfo a signature where-    overloadedMethod _ = listStoreSplice--
− GI/Gio/Objects/ListStore.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.ListStore where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ListStore = ListStore (ForeignPtr ListStore)-instance GObject ListStore where-class GObject o => ListStoreK o-instance (GObject o, IsDescendantOf ListStore o) => ListStoreK o-data ListStoreItemTypePropertyInfo-data ListStoreAppendMethodInfo-data ListStoreInsertMethodInfo-data ListStoreInsertSortedMethodInfo-data ListStoreRemoveMethodInfo-data ListStoreRemoveAllMethodInfo-data ListStoreSortMethodInfo-data ListStoreSpliceMethodInfo
− GI/Gio/Objects/MemoryInputStream.hs 
@@ -1,301 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.MemoryInputStream-    ( ---- * Exported types-    MemoryInputStream(..)                   ,-    MemoryInputStreamK                      ,-    toMemoryInputStream                     ,-    noMemoryInputStream                     ,--- -- * Methods--- ** memoryInputStreamAddBytes-    MemoryInputStreamAddBytesMethodInfo     ,-    memoryInputStreamAddBytes               ,----- ** memoryInputStreamAddData-    MemoryInputStreamAddDataMethodInfo      ,-    memoryInputStreamAddData                ,----- ** memoryInputStreamNew-    memoryInputStreamNew                    ,----- ** memoryInputStreamNewFromBytes-    memoryInputStreamNewFromBytes           ,----- ** memoryInputStreamNewFromData-    memoryInputStreamNewFromData            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype MemoryInputStream = MemoryInputStream (ForeignPtr MemoryInputStream)-foreign import ccall "g_memory_input_stream_get_type"-    c_g_memory_input_stream_get_type :: IO GType--type instance ParentTypes MemoryInputStream = MemoryInputStreamParentTypes-type MemoryInputStreamParentTypes = '[InputStream, GObject.Object, PollableInputStream, Seekable]--instance GObject MemoryInputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_memory_input_stream_get_type-    --class GObject o => MemoryInputStreamK o-instance (GObject o, IsDescendantOf MemoryInputStream o) => MemoryInputStreamK o--toMemoryInputStream :: MemoryInputStreamK o => o -> IO MemoryInputStream-toMemoryInputStream = unsafeCastTo MemoryInputStream--noMemoryInputStream :: Maybe MemoryInputStream-noMemoryInputStream = Nothing--type family ResolveMemoryInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveMemoryInputStreamMethod "addBytes" o = MemoryInputStreamAddBytesMethodInfo-    ResolveMemoryInputStreamMethod "addData" o = MemoryInputStreamAddDataMethodInfo-    ResolveMemoryInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMemoryInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMemoryInputStreamMethod "canPoll" o = PollableInputStreamCanPollMethodInfo-    ResolveMemoryInputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo-    ResolveMemoryInputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo-    ResolveMemoryInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo-    ResolveMemoryInputStreamMethod "close" o = InputStreamCloseMethodInfo-    ResolveMemoryInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo-    ResolveMemoryInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo-    ResolveMemoryInputStreamMethod "createSource" o = PollableInputStreamCreateSourceMethodInfo-    ResolveMemoryInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMemoryInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMemoryInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo-    ResolveMemoryInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo-    ResolveMemoryInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMemoryInputStreamMethod "isReadable" o = PollableInputStreamIsReadableMethodInfo-    ResolveMemoryInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMemoryInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMemoryInputStreamMethod "read" o = InputStreamReadMethodInfo-    ResolveMemoryInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo-    ResolveMemoryInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo-    ResolveMemoryInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo-    ResolveMemoryInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo-    ResolveMemoryInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo-    ResolveMemoryInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo-    ResolveMemoryInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo-    ResolveMemoryInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo-    ResolveMemoryInputStreamMethod "readNonblocking" o = PollableInputStreamReadNonblockingMethodInfo-    ResolveMemoryInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMemoryInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMemoryInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMemoryInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMemoryInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMemoryInputStreamMethod "seek" o = SeekableSeekMethodInfo-    ResolveMemoryInputStreamMethod "skip" o = InputStreamSkipMethodInfo-    ResolveMemoryInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo-    ResolveMemoryInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo-    ResolveMemoryInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMemoryInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMemoryInputStreamMethod "tell" o = SeekableTellMethodInfo-    ResolveMemoryInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMemoryInputStreamMethod "truncate" o = SeekableTruncateMethodInfo-    ResolveMemoryInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMemoryInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMemoryInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMemoryInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMemoryInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMemoryInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMemoryInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo-    ResolveMemoryInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMemoryInputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMemoryInputStreamMethod t MemoryInputStream, MethodInfo info MemoryInputStream p) => IsLabelProxy t (MemoryInputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMemoryInputStreamMethod t MemoryInputStream, MethodInfo info MemoryInputStream p) => IsLabel t (MemoryInputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList MemoryInputStream = MemoryInputStreamAttributeList-type MemoryInputStreamAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList MemoryInputStream = MemoryInputStreamSignalList-type MemoryInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method MemoryInputStream::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "MemoryInputStream")--- throws : False--- Skip return : False--foreign import ccall "g_memory_input_stream_new" g_memory_input_stream_new :: -    IO (Ptr MemoryInputStream)---memoryInputStreamNew ::-    (MonadIO m) =>-    m MemoryInputStream                     -- result-memoryInputStreamNew  = liftIO $ do-    result <- g_memory_input_stream_new-    checkUnexpectedReturnNULL "g_memory_input_stream_new" result-    result' <- (wrapObject MemoryInputStream) result-    return result'---- method MemoryInputStream::new_from_bytes--- method type : Constructor--- Args : [Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 : TInterface "GLib" "Bytes"-    IO (Ptr MemoryInputStream)---memoryInputStreamNewFromBytes ::-    (MonadIO m) =>-    GLib.Bytes                              -- bytes-    -> m MemoryInputStream                  -- result-memoryInputStreamNewFromBytes bytes = liftIO $ do-    let bytes' = unsafeManagedPtrGetPtr bytes-    result <- g_memory_input_stream_new_from_bytes bytes'-    checkUnexpectedReturnNULL "g_memory_input_stream_new_from_bytes" result-    result' <- (wrapObject MemoryInputStream) result-    touchManagedPtr bytes-    return result'---- method MemoryInputStream::new_from_data--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Gio" "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.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO (Ptr MemoryInputStream)---memoryInputStreamNewFromData ::-    (MonadIO m) =>-    ByteString                              -- data_-    -> Maybe (GLib.DestroyNotify)           -- destroy-    -> m MemoryInputStream                  -- result-memoryInputStreamNewFromData data_ destroy = liftIO $ do-    let len = fromIntegral $ B.length data_-    data_' <- packByteString data_-    ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC))-    maybeDestroy <- case destroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jDestroy -> do-            jDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrdestroy) jDestroy)-            poke ptrdestroy jDestroy'-            return jDestroy'-    result <- g_memory_input_stream_new_from_data data_' len maybeDestroy-    checkUnexpectedReturnNULL "g_memory_input_stream_new_from_data" result-    result' <- (wrapObject MemoryInputStream) result-    return result'---- method MemoryInputStream::add_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "MemoryInputStream"-    Ptr GLib.Bytes ->                       -- bytes : TInterface "GLib" "Bytes"-    IO ()---memoryInputStreamAddBytes ::-    (MonadIO m, MemoryInputStreamK a) =>-    a                                       -- _obj-    -> GLib.Bytes                           -- bytes-    -> m ()                                 -- result-memoryInputStreamAddBytes _obj bytes = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let bytes' = unsafeManagedPtrGetPtr bytes-    g_memory_input_stream_add_bytes _obj' bytes'-    touchManagedPtr _obj-    touchManagedPtr bytes-    return ()--data MemoryInputStreamAddBytesMethodInfo-instance (signature ~ (GLib.Bytes -> m ()), MonadIO m, MemoryInputStreamK a) => MethodInfo MemoryInputStreamAddBytesMethodInfo a signature where-    overloadedMethod _ = memoryInputStreamAddBytes---- method MemoryInputStream::add_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "MemoryInputStream"-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Int64 ->                                -- len : TBasicType TInt64-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---memoryInputStreamAddData ::-    (MonadIO m, MemoryInputStreamK a) =>-    a                                       -- _obj-    -> ByteString                           -- data_-    -> Maybe (GLib.DestroyNotify)           -- destroy-    -> m ()                                 -- result-memoryInputStreamAddData _obj data_ destroy = liftIO $ do-    let len = fromIntegral $ B.length data_-    let _obj' = unsafeManagedPtrCastPtr _obj-    data_' <- packByteString data_-    ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC))-    maybeDestroy <- case destroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jDestroy -> do-            jDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrdestroy) jDestroy)-            poke ptrdestroy jDestroy'-            return jDestroy'-    g_memory_input_stream_add_data _obj' data_' len maybeDestroy-    touchManagedPtr _obj-    return ()--data MemoryInputStreamAddDataMethodInfo-instance (signature ~ (ByteString -> Maybe (GLib.DestroyNotify) -> m ()), MonadIO m, MemoryInputStreamK a) => MethodInfo MemoryInputStreamAddDataMethodInfo a signature where-    overloadedMethod _ = memoryInputStreamAddData--
− GI/Gio/Objects/MemoryInputStream.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Objects.MemoryInputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MemoryInputStream = MemoryInputStream (ForeignPtr MemoryInputStream)-instance GObject MemoryInputStream where-class GObject o => MemoryInputStreamK o-instance (GObject o, IsDescendantOf MemoryInputStream o) => MemoryInputStreamK o-data MemoryInputStreamAddBytesMethodInfo-data MemoryInputStreamAddDataMethodInfo
− GI/Gio/Objects/MemoryOutputStream.hs 
@@ -1,414 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.MemoryOutputStream-    ( ---- * Exported types-    MemoryOutputStream(..)                  ,-    MemoryOutputStreamK                     ,-    toMemoryOutputStream                    ,-    noMemoryOutputStream                    ,--- -- * Methods--- ** memoryOutputStreamGetData-    MemoryOutputStreamGetDataMethodInfo     ,-    memoryOutputStreamGetData               ,----- ** memoryOutputStreamGetDataSize-    MemoryOutputStreamGetDataSizeMethodInfo ,-    memoryOutputStreamGetDataSize           ,----- ** memoryOutputStreamGetSize-    MemoryOutputStreamGetSizeMethodInfo     ,-    memoryOutputStreamGetSize               ,----- ** memoryOutputStreamNewResizable-    memoryOutputStreamNewResizable          ,----- ** memoryOutputStreamStealAsBytes-    MemoryOutputStreamStealAsBytesMethodInfo,-    memoryOutputStreamStealAsBytes          ,----- ** memoryOutputStreamStealData-    MemoryOutputStreamStealDataMethodInfo   ,-    memoryOutputStreamStealData             ,----- -- * Properties--- ** Data-    MemoryOutputStreamDataPropertyInfo      ,-    constructMemoryOutputStreamData         ,-    getMemoryOutputStreamData               ,-    memoryOutputStreamData                  ,----- ** DataSize-    MemoryOutputStreamDataSizePropertyInfo  ,-    getMemoryOutputStreamDataSize           ,-    memoryOutputStreamDataSize              ,----- ** Size-    MemoryOutputStreamSizePropertyInfo      ,-    constructMemoryOutputStreamSize         ,-    getMemoryOutputStreamSize               ,-    memoryOutputStreamSize                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype MemoryOutputStream = MemoryOutputStream (ForeignPtr MemoryOutputStream)-foreign import ccall "g_memory_output_stream_get_type"-    c_g_memory_output_stream_get_type :: IO GType--type instance ParentTypes MemoryOutputStream = MemoryOutputStreamParentTypes-type MemoryOutputStreamParentTypes = '[OutputStream, GObject.Object, PollableOutputStream, Seekable]--instance GObject MemoryOutputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_memory_output_stream_get_type-    --class GObject o => MemoryOutputStreamK o-instance (GObject o, IsDescendantOf MemoryOutputStream o) => MemoryOutputStreamK o--toMemoryOutputStream :: MemoryOutputStreamK o => o -> IO MemoryOutputStream-toMemoryOutputStream = unsafeCastTo MemoryOutputStream--noMemoryOutputStream :: Maybe MemoryOutputStream-noMemoryOutputStream = Nothing--type family ResolveMemoryOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveMemoryOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMemoryOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMemoryOutputStreamMethod "canPoll" o = PollableOutputStreamCanPollMethodInfo-    ResolveMemoryOutputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo-    ResolveMemoryOutputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo-    ResolveMemoryOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo-    ResolveMemoryOutputStreamMethod "close" o = OutputStreamCloseMethodInfo-    ResolveMemoryOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo-    ResolveMemoryOutputStreamMethod "createSource" o = PollableOutputStreamCreateSourceMethodInfo-    ResolveMemoryOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo-    ResolveMemoryOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo-    ResolveMemoryOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMemoryOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMemoryOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo-    ResolveMemoryOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo-    ResolveMemoryOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo-    ResolveMemoryOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMemoryOutputStreamMethod "isWritable" o = PollableOutputStreamIsWritableMethodInfo-    ResolveMemoryOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMemoryOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMemoryOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMemoryOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMemoryOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMemoryOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMemoryOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMemoryOutputStreamMethod "seek" o = SeekableSeekMethodInfo-    ResolveMemoryOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo-    ResolveMemoryOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo-    ResolveMemoryOutputStreamMethod "stealAsBytes" o = MemoryOutputStreamStealAsBytesMethodInfo-    ResolveMemoryOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMemoryOutputStreamMethod "tell" o = SeekableTellMethodInfo-    ResolveMemoryOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMemoryOutputStreamMethod "truncate" o = SeekableTruncateMethodInfo-    ResolveMemoryOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMemoryOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMemoryOutputStreamMethod "write" o = OutputStreamWriteMethodInfo-    ResolveMemoryOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo-    ResolveMemoryOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo-    ResolveMemoryOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo-    ResolveMemoryOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo-    ResolveMemoryOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo-    ResolveMemoryOutputStreamMethod "writeNonblocking" o = PollableOutputStreamWriteNonblockingMethodInfo-    ResolveMemoryOutputStreamMethod "getDataSize" o = MemoryOutputStreamGetDataSizeMethodInfo-    ResolveMemoryOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMemoryOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMemoryOutputStreamMethod "getSize" o = MemoryOutputStreamGetSizeMethodInfo-    ResolveMemoryOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMemoryOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo-    ResolveMemoryOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMemoryOutputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMemoryOutputStreamMethod t MemoryOutputStream, MethodInfo info MemoryOutputStream p) => IsLabelProxy t (MemoryOutputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMemoryOutputStreamMethod t MemoryOutputStream, MethodInfo info MemoryOutputStream p) => IsLabel t (MemoryOutputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getMemoryOutputStreamData :: (MonadIO m, MemoryOutputStreamK o) => o -> m (Ptr ())-getMemoryOutputStreamData obj = liftIO $ getObjectPropertyPtr obj "data"--constructMemoryOutputStreamData :: Ptr () -> IO ([Char], GValue)-constructMemoryOutputStreamData val = constructObjectPropertyPtr "data" val--data MemoryOutputStreamDataPropertyInfo-instance AttrInfo MemoryOutputStreamDataPropertyInfo where-    type AttrAllowedOps MemoryOutputStreamDataPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MemoryOutputStreamDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint MemoryOutputStreamDataPropertyInfo = MemoryOutputStreamK-    type AttrGetType MemoryOutputStreamDataPropertyInfo = (Ptr ())-    type AttrLabel MemoryOutputStreamDataPropertyInfo = "data"-    attrGet _ = getMemoryOutputStreamData-    attrSet _ = undefined-    attrConstruct _ = constructMemoryOutputStreamData-    attrClear _ = undefined---- VVV Prop "data-size"-   -- Type: TBasicType TULong-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getMemoryOutputStreamDataSize :: (MonadIO m, MemoryOutputStreamK o) => o -> m CULong-getMemoryOutputStreamDataSize obj = liftIO $ getObjectPropertyULong obj "data-size"--data MemoryOutputStreamDataSizePropertyInfo-instance AttrInfo MemoryOutputStreamDataSizePropertyInfo where-    type AttrAllowedOps MemoryOutputStreamDataSizePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint MemoryOutputStreamDataSizePropertyInfo = (~) ()-    type AttrBaseTypeConstraint MemoryOutputStreamDataSizePropertyInfo = MemoryOutputStreamK-    type AttrGetType MemoryOutputStreamDataSizePropertyInfo = CULong-    type AttrLabel MemoryOutputStreamDataSizePropertyInfo = "data-size"-    attrGet _ = getMemoryOutputStreamDataSize-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "size"-   -- Type: TBasicType TULong-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getMemoryOutputStreamSize :: (MonadIO m, MemoryOutputStreamK o) => o -> m CULong-getMemoryOutputStreamSize obj = liftIO $ getObjectPropertyULong obj "size"--constructMemoryOutputStreamSize :: CULong -> IO ([Char], GValue)-constructMemoryOutputStreamSize val = constructObjectPropertyULong "size" val--data MemoryOutputStreamSizePropertyInfo-instance AttrInfo MemoryOutputStreamSizePropertyInfo where-    type AttrAllowedOps MemoryOutputStreamSizePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MemoryOutputStreamSizePropertyInfo = (~) CULong-    type AttrBaseTypeConstraint MemoryOutputStreamSizePropertyInfo = MemoryOutputStreamK-    type AttrGetType MemoryOutputStreamSizePropertyInfo = CULong-    type AttrLabel MemoryOutputStreamSizePropertyInfo = "size"-    attrGet _ = getMemoryOutputStreamSize-    attrSet _ = undefined-    attrConstruct _ = constructMemoryOutputStreamSize-    attrClear _ = undefined--type instance AttributeList MemoryOutputStream = MemoryOutputStreamAttributeList-type MemoryOutputStreamAttributeList = ('[ '("data", MemoryOutputStreamDataPropertyInfo), '("dataSize", MemoryOutputStreamDataSizePropertyInfo), '("size", MemoryOutputStreamSizePropertyInfo)] :: [(Symbol, *)])--memoryOutputStreamData :: AttrLabelProxy "data"-memoryOutputStreamData = AttrLabelProxy--memoryOutputStreamDataSize :: AttrLabelProxy "dataSize"-memoryOutputStreamDataSize = AttrLabelProxy--memoryOutputStreamSize :: AttrLabelProxy "size"-memoryOutputStreamSize = AttrLabelProxy--type instance SignalList MemoryOutputStream = MemoryOutputStreamSignalList-type MemoryOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method MemoryOutputStream::new_resizable--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "MemoryOutputStream")--- throws : False--- Skip return : False--foreign import ccall "g_memory_output_stream_new_resizable" g_memory_output_stream_new_resizable :: -    IO (Ptr MemoryOutputStream)---memoryOutputStreamNewResizable ::-    (MonadIO m) =>-    m MemoryOutputStream                    -- result-memoryOutputStreamNewResizable  = liftIO $ do-    result <- g_memory_output_stream_new_resizable-    checkUnexpectedReturnNULL "g_memory_output_stream_new_resizable" result-    result' <- (wrapObject MemoryOutputStream) result-    return result'---- method MemoryOutputStream::get_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "MemoryOutputStream"-    IO (Ptr ())---memoryOutputStreamGetData ::-    (MonadIO m, MemoryOutputStreamK a) =>-    a                                       -- _obj-    -> m (Ptr ())                           -- result-memoryOutputStreamGetData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_memory_output_stream_get_data _obj'-    touchManagedPtr _obj-    return result--data MemoryOutputStreamGetDataMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, MemoryOutputStreamK a) => MethodInfo MemoryOutputStreamGetDataMethodInfo a signature where-    overloadedMethod _ = memoryOutputStreamGetData---- method MemoryOutputStream::get_data_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "MemoryOutputStream"-    IO Word64---memoryOutputStreamGetDataSize ::-    (MonadIO m, MemoryOutputStreamK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-memoryOutputStreamGetDataSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_memory_output_stream_get_data_size _obj'-    touchManagedPtr _obj-    return result--data MemoryOutputStreamGetDataSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, MemoryOutputStreamK a) => MethodInfo MemoryOutputStreamGetDataSizeMethodInfo a signature where-    overloadedMethod _ = memoryOutputStreamGetDataSize---- method MemoryOutputStream::get_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "MemoryOutputStream"-    IO Word64---memoryOutputStreamGetSize ::-    (MonadIO m, MemoryOutputStreamK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-memoryOutputStreamGetSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_memory_output_stream_get_size _obj'-    touchManagedPtr _obj-    return result--data MemoryOutputStreamGetSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, MemoryOutputStreamK a) => MethodInfo MemoryOutputStreamGetSizeMethodInfo a signature where-    overloadedMethod _ = memoryOutputStreamGetSize---- method MemoryOutputStream::steal_as_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "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 ->               -- _obj : TInterface "Gio" "MemoryOutputStream"-    IO (Ptr GLib.Bytes)---memoryOutputStreamStealAsBytes ::-    (MonadIO m, MemoryOutputStreamK a) =>-    a                                       -- _obj-    -> m GLib.Bytes                         -- result-memoryOutputStreamStealAsBytes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_memory_output_stream_steal_as_bytes _obj'-    checkUnexpectedReturnNULL "g_memory_output_stream_steal_as_bytes" result-    result' <- (wrapBoxed GLib.Bytes) result-    touchManagedPtr _obj-    return result'--data MemoryOutputStreamStealAsBytesMethodInfo-instance (signature ~ (m GLib.Bytes), MonadIO m, MemoryOutputStreamK a) => MethodInfo MemoryOutputStreamStealAsBytesMethodInfo a signature where-    overloadedMethod _ = memoryOutputStreamStealAsBytes---- method MemoryOutputStream::steal_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "MemoryOutputStream"-    IO (Ptr ())---memoryOutputStreamStealData ::-    (MonadIO m, MemoryOutputStreamK a) =>-    a                                       -- _obj-    -> m (Ptr ())                           -- result-memoryOutputStreamStealData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_memory_output_stream_steal_data _obj'-    touchManagedPtr _obj-    return result--data MemoryOutputStreamStealDataMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, MemoryOutputStreamK a) => MethodInfo MemoryOutputStreamStealDataMethodInfo a signature where-    overloadedMethod _ = memoryOutputStreamStealData--
− GI/Gio/Objects/MemoryOutputStream.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.MemoryOutputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MemoryOutputStream = MemoryOutputStream (ForeignPtr MemoryOutputStream)-instance GObject MemoryOutputStream where-class GObject o => MemoryOutputStreamK o-instance (GObject o, IsDescendantOf MemoryOutputStream o) => MemoryOutputStreamK o-data MemoryOutputStreamDataPropertyInfo-data MemoryOutputStreamDataSizePropertyInfo-data MemoryOutputStreamSizePropertyInfo-data MemoryOutputStreamGetDataMethodInfo-data MemoryOutputStreamGetDataSizeMethodInfo-data MemoryOutputStreamGetSizeMethodInfo-data MemoryOutputStreamStealAsBytesMethodInfo-data MemoryOutputStreamStealDataMethodInfo
− GI/Gio/Objects/Menu.hs 
@@ -1,764 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Menu-    ( ---- * Exported types-    Menu(..)                                ,-    MenuK                                   ,-    toMenu                                  ,-    noMenu                                  ,--- -- * Methods--- ** menuAppend-    MenuAppendMethodInfo                    ,-    menuAppend                              ,----- ** menuAppendItem-    MenuAppendItemMethodInfo                ,-    menuAppendItem                          ,----- ** menuAppendSection-    MenuAppendSectionMethodInfo             ,-    menuAppendSection                       ,----- ** menuAppendSubmenu-    MenuAppendSubmenuMethodInfo             ,-    menuAppendSubmenu                       ,----- ** menuFreeze-    MenuFreezeMethodInfo                    ,-    menuFreeze                              ,----- ** menuInsert-    MenuInsertMethodInfo                    ,-    menuInsert                              ,----- ** menuInsertItem-    MenuInsertItemMethodInfo                ,-    menuInsertItem                          ,----- ** menuInsertSection-    MenuInsertSectionMethodInfo             ,-    menuInsertSection                       ,----- ** menuInsertSubmenu-    MenuInsertSubmenuMethodInfo             ,-    menuInsertSubmenu                       ,----- ** menuNew-    menuNew                                 ,----- ** menuPrepend-    MenuPrependMethodInfo                   ,-    menuPrepend                             ,----- ** menuPrependItem-    MenuPrependItemMethodInfo               ,-    menuPrependItem                         ,----- ** menuPrependSection-    MenuPrependSectionMethodInfo            ,-    menuPrependSection                      ,----- ** menuPrependSubmenu-    MenuPrependSubmenuMethodInfo            ,-    menuPrependSubmenu                      ,----- ** menuRemove-    MenuRemoveMethodInfo                    ,-    menuRemove                              ,----- ** menuRemoveAll-    MenuRemoveAllMethodInfo                 ,-    menuRemoveAll                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype Menu = Menu (ForeignPtr Menu)-foreign import ccall "g_menu_get_type"-    c_g_menu_get_type :: IO GType--type instance ParentTypes Menu = MenuParentTypes-type MenuParentTypes = '[MenuModel, GObject.Object]--instance GObject Menu where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_menu_get_type-    --class GObject o => MenuK o-instance (GObject o, IsDescendantOf Menu o) => MenuK o--toMenu :: MenuK o => o -> IO Menu-toMenu = unsafeCastTo Menu--noMenu :: Maybe Menu-noMenu = Nothing--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.ObjectBindPropertyMethodInfo-    ResolveMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMenuMethod "freeze" o = MenuFreezeMethodInfo-    ResolveMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMenuMethod "insert" o = MenuInsertMethodInfo-    ResolveMenuMethod "insertItem" o = MenuInsertItemMethodInfo-    ResolveMenuMethod "insertSection" o = MenuInsertSectionMethodInfo-    ResolveMenuMethod "insertSubmenu" o = MenuInsertSubmenuMethodInfo-    ResolveMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMenuMethod "isMutable" o = MenuModelIsMutableMethodInfo-    ResolveMenuMethod "itemsChanged" o = MenuModelItemsChangedMethodInfo-    ResolveMenuMethod "iterateItemAttributes" o = MenuModelIterateItemAttributesMethodInfo-    ResolveMenuMethod "iterateItemLinks" o = MenuModelIterateItemLinksMethodInfo-    ResolveMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMenuMethod "prepend" o = MenuPrependMethodInfo-    ResolveMenuMethod "prependItem" o = MenuPrependItemMethodInfo-    ResolveMenuMethod "prependSection" o = MenuPrependSectionMethodInfo-    ResolveMenuMethod "prependSubmenu" o = MenuPrependSubmenuMethodInfo-    ResolveMenuMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMenuMethod "remove" o = MenuRemoveMethodInfo-    ResolveMenuMethod "removeAll" o = MenuRemoveAllMethodInfo-    ResolveMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMenuMethod "getItemAttributeValue" o = MenuModelGetItemAttributeValueMethodInfo-    ResolveMenuMethod "getItemLink" o = MenuModelGetItemLinkMethodInfo-    ResolveMenuMethod "getNItems" o = MenuModelGetNItemsMethodInfo-    ResolveMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMenuMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMenuMethod t Menu, MethodInfo info Menu p) => IsLabelProxy t (Menu -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMenuMethod t Menu, MethodInfo info Menu p) => IsLabel t (Menu -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Menu = MenuAttributeList-type MenuAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Menu = MenuSignalList-type MenuSignalList = ('[ '("itemsChanged", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Menu::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "Menu")--- throws : False--- Skip return : False--foreign import ccall "g_menu_new" g_menu_new :: -    IO (Ptr Menu)---menuNew ::-    (MonadIO m) =>-    m Menu                                  -- result-menuNew  = liftIO $ do-    result <- g_menu_new-    checkUnexpectedReturnNULL "g_menu_new" result-    result' <- (wrapObject Menu) result-    return result'---- method Menu::append--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    CString ->                              -- label : TBasicType TUTF8-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()---menuAppend ::-    (MonadIO m, MenuK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- label-    -> Maybe (T.Text)                       -- detailedAction-    -> m ()                                 -- result-menuAppend _obj label detailedAction = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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 _obj' maybeLabel maybeDetailedAction-    touchManagedPtr _obj-    freeMem maybeLabel-    freeMem maybeDetailedAction-    return ()--data MenuAppendMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, MenuK a) => MethodInfo MenuAppendMethodInfo a signature where-    overloadedMethod _ = menuAppend---- method Menu::append_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    Ptr MenuItem ->                         -- item : TInterface "Gio" "MenuItem"-    IO ()---menuAppendItem ::-    (MonadIO m, MenuK a, MenuItemK b) =>-    a                                       -- _obj-    -> b                                    -- item-    -> m ()                                 -- result-menuAppendItem _obj item = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    g_menu_append_item _obj' item'-    touchManagedPtr _obj-    touchManagedPtr item-    return ()--data MenuAppendItemMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, MenuK a, MenuItemK b) => MethodInfo MenuAppendItemMethodInfo a signature where-    overloadedMethod _ = menuAppendItem---- method Menu::append_section--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    CString ->                              -- label : TBasicType TUTF8-    Ptr MenuModel ->                        -- section : TInterface "Gio" "MenuModel"-    IO ()---menuAppendSection ::-    (MonadIO m, MenuK a, MenuModelK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- label-    -> b                                    -- section-    -> m ()                                 -- result-menuAppendSection _obj label section = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    let section' = unsafeManagedPtrCastPtr section-    g_menu_append_section _obj' maybeLabel section'-    touchManagedPtr _obj-    touchManagedPtr section-    freeMem maybeLabel-    return ()--data MenuAppendSectionMethodInfo-instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuAppendSectionMethodInfo a signature where-    overloadedMethod _ = menuAppendSection---- method Menu::append_submenu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    CString ->                              -- label : TBasicType TUTF8-    Ptr MenuModel ->                        -- submenu : TInterface "Gio" "MenuModel"-    IO ()---menuAppendSubmenu ::-    (MonadIO m, MenuK a, MenuModelK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- label-    -> b                                    -- submenu-    -> m ()                                 -- result-menuAppendSubmenu _obj label submenu = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    let submenu' = unsafeManagedPtrCastPtr submenu-    g_menu_append_submenu _obj' maybeLabel submenu'-    touchManagedPtr _obj-    touchManagedPtr submenu-    freeMem maybeLabel-    return ()--data MenuAppendSubmenuMethodInfo-instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuAppendSubmenuMethodInfo a signature where-    overloadedMethod _ = menuAppendSubmenu---- method Menu::freeze--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    IO ()---menuFreeze ::-    (MonadIO m, MenuK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-menuFreeze _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_menu_freeze _obj'-    touchManagedPtr _obj-    return ()--data MenuFreezeMethodInfo-instance (signature ~ (m ()), MonadIO m, MenuK a) => MethodInfo MenuFreezeMethodInfo a signature where-    overloadedMethod _ = menuFreeze---- method Menu::insert--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    Int32 ->                                -- position : TBasicType TInt-    CString ->                              -- label : TBasicType TUTF8-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()---menuInsert ::-    (MonadIO m, MenuK a) =>-    a                                       -- _obj-    -> Int32                                -- position-    -> Maybe (T.Text)                       -- label-    -> Maybe (T.Text)                       -- detailedAction-    -> m ()                                 -- result-menuInsert _obj position label detailedAction = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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 _obj' position maybeLabel maybeDetailedAction-    touchManagedPtr _obj-    freeMem maybeLabel-    freeMem maybeDetailedAction-    return ()--data MenuInsertMethodInfo-instance (signature ~ (Int32 -> Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, MenuK a) => MethodInfo MenuInsertMethodInfo a signature where-    overloadedMethod _ = menuInsert---- method Menu::insert_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    Int32 ->                                -- position : TBasicType TInt-    Ptr MenuItem ->                         -- item : TInterface "Gio" "MenuItem"-    IO ()---menuInsertItem ::-    (MonadIO m, MenuK a, MenuItemK b) =>-    a                                       -- _obj-    -> Int32                                -- position-    -> b                                    -- item-    -> m ()                                 -- result-menuInsertItem _obj position item = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    g_menu_insert_item _obj' position item'-    touchManagedPtr _obj-    touchManagedPtr item-    return ()--data MenuInsertItemMethodInfo-instance (signature ~ (Int32 -> b -> m ()), MonadIO m, MenuK a, MenuItemK b) => MethodInfo MenuInsertItemMethodInfo a signature where-    overloadedMethod _ = menuInsertItem---- method Menu::insert_section--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    Int32 ->                                -- position : TBasicType TInt-    CString ->                              -- label : TBasicType TUTF8-    Ptr MenuModel ->                        -- section : TInterface "Gio" "MenuModel"-    IO ()---menuInsertSection ::-    (MonadIO m, MenuK a, MenuModelK b) =>-    a                                       -- _obj-    -> Int32                                -- position-    -> Maybe (T.Text)                       -- label-    -> b                                    -- section-    -> m ()                                 -- result-menuInsertSection _obj position label section = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    let section' = unsafeManagedPtrCastPtr section-    g_menu_insert_section _obj' position maybeLabel section'-    touchManagedPtr _obj-    touchManagedPtr section-    freeMem maybeLabel-    return ()--data MenuInsertSectionMethodInfo-instance (signature ~ (Int32 -> Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuInsertSectionMethodInfo a signature where-    overloadedMethod _ = menuInsertSection---- method Menu::insert_submenu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    Int32 ->                                -- position : TBasicType TInt-    CString ->                              -- label : TBasicType TUTF8-    Ptr MenuModel ->                        -- submenu : TInterface "Gio" "MenuModel"-    IO ()---menuInsertSubmenu ::-    (MonadIO m, MenuK a, MenuModelK b) =>-    a                                       -- _obj-    -> Int32                                -- position-    -> Maybe (T.Text)                       -- label-    -> b                                    -- submenu-    -> m ()                                 -- result-menuInsertSubmenu _obj position label submenu = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    let submenu' = unsafeManagedPtrCastPtr submenu-    g_menu_insert_submenu _obj' position maybeLabel submenu'-    touchManagedPtr _obj-    touchManagedPtr submenu-    freeMem maybeLabel-    return ()--data MenuInsertSubmenuMethodInfo-instance (signature ~ (Int32 -> Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuInsertSubmenuMethodInfo a signature where-    overloadedMethod _ = menuInsertSubmenu---- method Menu::prepend--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    CString ->                              -- label : TBasicType TUTF8-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()---menuPrepend ::-    (MonadIO m, MenuK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- label-    -> Maybe (T.Text)                       -- detailedAction-    -> m ()                                 -- result-menuPrepend _obj label detailedAction = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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 _obj' maybeLabel maybeDetailedAction-    touchManagedPtr _obj-    freeMem maybeLabel-    freeMem maybeDetailedAction-    return ()--data MenuPrependMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, MenuK a) => MethodInfo MenuPrependMethodInfo a signature where-    overloadedMethod _ = menuPrepend---- method Menu::prepend_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    Ptr MenuItem ->                         -- item : TInterface "Gio" "MenuItem"-    IO ()---menuPrependItem ::-    (MonadIO m, MenuK a, MenuItemK b) =>-    a                                       -- _obj-    -> b                                    -- item-    -> m ()                                 -- result-menuPrependItem _obj item = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let item' = unsafeManagedPtrCastPtr item-    g_menu_prepend_item _obj' item'-    touchManagedPtr _obj-    touchManagedPtr item-    return ()--data MenuPrependItemMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, MenuK a, MenuItemK b) => MethodInfo MenuPrependItemMethodInfo a signature where-    overloadedMethod _ = menuPrependItem---- method Menu::prepend_section--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    CString ->                              -- label : TBasicType TUTF8-    Ptr MenuModel ->                        -- section : TInterface "Gio" "MenuModel"-    IO ()---menuPrependSection ::-    (MonadIO m, MenuK a, MenuModelK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- label-    -> b                                    -- section-    -> m ()                                 -- result-menuPrependSection _obj label section = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    let section' = unsafeManagedPtrCastPtr section-    g_menu_prepend_section _obj' maybeLabel section'-    touchManagedPtr _obj-    touchManagedPtr section-    freeMem maybeLabel-    return ()--data MenuPrependSectionMethodInfo-instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuPrependSectionMethodInfo a signature where-    overloadedMethod _ = menuPrependSection---- method Menu::prepend_submenu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    CString ->                              -- label : TBasicType TUTF8-    Ptr MenuModel ->                        -- submenu : TInterface "Gio" "MenuModel"-    IO ()---menuPrependSubmenu ::-    (MonadIO m, MenuK a, MenuModelK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- label-    -> b                                    -- submenu-    -> m ()                                 -- result-menuPrependSubmenu _obj label submenu = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    let submenu' = unsafeManagedPtrCastPtr submenu-    g_menu_prepend_submenu _obj' maybeLabel submenu'-    touchManagedPtr _obj-    touchManagedPtr submenu-    freeMem maybeLabel-    return ()--data MenuPrependSubmenuMethodInfo-instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuPrependSubmenuMethodInfo a signature where-    overloadedMethod _ = menuPrependSubmenu---- method Menu::remove--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    Int32 ->                                -- position : TBasicType TInt-    IO ()---menuRemove ::-    (MonadIO m, MenuK a) =>-    a                                       -- _obj-    -> Int32                                -- position-    -> m ()                                 -- result-menuRemove _obj position = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_menu_remove _obj' position-    touchManagedPtr _obj-    return ()--data MenuRemoveMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, MenuK a) => MethodInfo MenuRemoveMethodInfo a signature where-    overloadedMethod _ = menuRemove---- method Menu::remove_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Menu"-    IO ()---menuRemoveAll ::-    (MonadIO m, MenuK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-menuRemoveAll _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_menu_remove_all _obj'-    touchManagedPtr _obj-    return ()--data MenuRemoveAllMethodInfo-instance (signature ~ (m ()), MonadIO m, MenuK a) => MethodInfo MenuRemoveAllMethodInfo a signature where-    overloadedMethod _ = menuRemoveAll--
− GI/Gio/Objects/Menu.hs-boot 
@@ -1,28 +0,0 @@-module GI.Gio.Objects.Menu where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Menu = Menu (ForeignPtr Menu)-instance GObject Menu where-class GObject o => MenuK o-instance (GObject o, IsDescendantOf Menu o) => MenuK o-data MenuAppendMethodInfo-data MenuAppendItemMethodInfo-data MenuAppendSectionMethodInfo-data MenuAppendSubmenuMethodInfo-data MenuFreezeMethodInfo-data MenuInsertMethodInfo-data MenuInsertItemMethodInfo-data MenuInsertSectionMethodInfo-data MenuInsertSubmenuMethodInfo-data MenuPrependMethodInfo-data MenuPrependItemMethodInfo-data MenuPrependSectionMethodInfo-data MenuPrependSubmenuMethodInfo-data MenuRemoveMethodInfo-data MenuRemoveAllMethodInfo
− GI/Gio/Objects/MenuAttributeIter.hs 
@@ -1,243 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.MenuAttributeIter-    ( ---- * Exported types-    MenuAttributeIter(..)                   ,-    MenuAttributeIterK                      ,-    toMenuAttributeIter                     ,-    noMenuAttributeIter                     ,--- -- * Methods--- ** menuAttributeIterGetName-    MenuAttributeIterGetNameMethodInfo      ,-    menuAttributeIterGetName                ,----- ** menuAttributeIterGetNext-    MenuAttributeIterGetNextMethodInfo      ,-    menuAttributeIterGetNext                ,----- ** menuAttributeIterGetValue-    MenuAttributeIterGetValueMethodInfo     ,-    menuAttributeIterGetValue               ,----- ** menuAttributeIterNext-    MenuAttributeIterNextMethodInfo         ,-    menuAttributeIterNext                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype MenuAttributeIter = MenuAttributeIter (ForeignPtr MenuAttributeIter)-foreign import ccall "g_menu_attribute_iter_get_type"-    c_g_menu_attribute_iter_get_type :: IO GType--type instance ParentTypes MenuAttributeIter = MenuAttributeIterParentTypes-type MenuAttributeIterParentTypes = '[GObject.Object]--instance GObject MenuAttributeIter where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_menu_attribute_iter_get_type-    --class GObject o => MenuAttributeIterK o-instance (GObject o, IsDescendantOf MenuAttributeIter o) => MenuAttributeIterK o--toMenuAttributeIter :: MenuAttributeIterK o => o -> IO MenuAttributeIter-toMenuAttributeIter = unsafeCastTo MenuAttributeIter--noMenuAttributeIter :: Maybe MenuAttributeIter-noMenuAttributeIter = Nothing--type family ResolveMenuAttributeIterMethod (t :: Symbol) (o :: *) :: * where-    ResolveMenuAttributeIterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMenuAttributeIterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMenuAttributeIterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMenuAttributeIterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMenuAttributeIterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMenuAttributeIterMethod "next" o = MenuAttributeIterNextMethodInfo-    ResolveMenuAttributeIterMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMenuAttributeIterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMenuAttributeIterMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMenuAttributeIterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMenuAttributeIterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMenuAttributeIterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMenuAttributeIterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMenuAttributeIterMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMenuAttributeIterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMenuAttributeIterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMenuAttributeIterMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMenuAttributeIterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMenuAttributeIterMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMenuAttributeIterMethod "getName" o = MenuAttributeIterGetNameMethodInfo-    ResolveMenuAttributeIterMethod "getNext" o = MenuAttributeIterGetNextMethodInfo-    ResolveMenuAttributeIterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMenuAttributeIterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMenuAttributeIterMethod "getValue" o = MenuAttributeIterGetValueMethodInfo-    ResolveMenuAttributeIterMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMenuAttributeIterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMenuAttributeIterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMenuAttributeIterMethod t MenuAttributeIter, MethodInfo info MenuAttributeIter p) => IsLabelProxy t (MenuAttributeIter -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMenuAttributeIterMethod t MenuAttributeIter, MethodInfo info MenuAttributeIter p) => IsLabel t (MenuAttributeIter -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList MenuAttributeIter = MenuAttributeIterAttributeList-type MenuAttributeIterAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList MenuAttributeIter = MenuAttributeIterSignalList-type MenuAttributeIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method MenuAttributeIter::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "MenuAttributeIter"-    IO CString---menuAttributeIterGetName ::-    (MonadIO m, MenuAttributeIterK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-menuAttributeIterGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_menu_attribute_iter_get_name _obj'-    checkUnexpectedReturnNULL "g_menu_attribute_iter_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data MenuAttributeIterGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, MenuAttributeIterK a) => MethodInfo MenuAttributeIterGetNameMethodInfo a signature where-    overloadedMethod _ = menuAttributeIterGetName---- method MenuAttributeIter::get_next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionOut, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "MenuAttributeIter"-    Ptr CString ->                          -- out_name : TBasicType TUTF8-    Ptr (Ptr GVariant) ->                   -- value : TVariant-    IO CInt---menuAttributeIterGetNext ::-    (MonadIO m, MenuAttributeIterK a) =>-    a                                       -- _obj-    -> m (Bool,T.Text,GVariant)             -- result-menuAttributeIterGetNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    outName <- allocMem :: IO (Ptr CString)-    value <- allocMem :: IO (Ptr (Ptr GVariant))-    result <- g_menu_attribute_iter_get_next _obj' outName value-    let result' = (/= 0) result-    outName' <- peek outName-    outName'' <- cstringToText outName'-    value' <- peek value-    value'' <- wrapGVariantPtr value'-    touchManagedPtr _obj-    freeMem outName-    freeMem value-    return (result', outName'', value'')--data MenuAttributeIterGetNextMethodInfo-instance (signature ~ (m (Bool,T.Text,GVariant)), MonadIO m, MenuAttributeIterK a) => MethodInfo MenuAttributeIterGetNextMethodInfo a signature where-    overloadedMethod _ = menuAttributeIterGetNext---- method MenuAttributeIter::get_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "MenuAttributeIter"-    IO (Ptr GVariant)---menuAttributeIterGetValue ::-    (MonadIO m, MenuAttributeIterK a) =>-    a                                       -- _obj-    -> m GVariant                           -- result-menuAttributeIterGetValue _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_menu_attribute_iter_get_value _obj'-    checkUnexpectedReturnNULL "g_menu_attribute_iter_get_value" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    return result'--data MenuAttributeIterGetValueMethodInfo-instance (signature ~ (m GVariant), MonadIO m, MenuAttributeIterK a) => MethodInfo MenuAttributeIterGetValueMethodInfo a signature where-    overloadedMethod _ = menuAttributeIterGetValue---- method MenuAttributeIter::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "MenuAttributeIter"-    IO CInt---menuAttributeIterNext ::-    (MonadIO m, MenuAttributeIterK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-menuAttributeIterNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_menu_attribute_iter_next _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MenuAttributeIterNextMethodInfo-instance (signature ~ (m Bool), MonadIO m, MenuAttributeIterK a) => MethodInfo MenuAttributeIterNextMethodInfo a signature where-    overloadedMethod _ = menuAttributeIterNext--
− GI/Gio/Objects/MenuAttributeIter.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.MenuAttributeIter where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MenuAttributeIter = MenuAttributeIter (ForeignPtr MenuAttributeIter)-instance GObject MenuAttributeIter where-class GObject o => MenuAttributeIterK o-instance (GObject o, IsDescendantOf MenuAttributeIter o) => MenuAttributeIterK o-data MenuAttributeIterGetNameMethodInfo-data MenuAttributeIterGetNextMethodInfo-data MenuAttributeIterGetValueMethodInfo-data MenuAttributeIterNextMethodInfo
− GI/Gio/Objects/MenuItem.hs 
@@ -1,662 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.MenuItem-    ( ---- * Exported types-    MenuItem(..)                            ,-    MenuItemK                               ,-    toMenuItem                              ,-    noMenuItem                              ,--- -- * Methods--- ** menuItemGetAttributeValue-    MenuItemGetAttributeValueMethodInfo     ,-    menuItemGetAttributeValue               ,----- ** menuItemGetLink-    MenuItemGetLinkMethodInfo               ,-    menuItemGetLink                         ,----- ** menuItemNew-    menuItemNew                             ,----- ** menuItemNewFromModel-    menuItemNewFromModel                    ,----- ** menuItemNewSection-    menuItemNewSection                      ,----- ** menuItemNewSubmenu-    menuItemNewSubmenu                      ,----- ** menuItemSetActionAndTargetValue-    MenuItemSetActionAndTargetValueMethodInfo,-    menuItemSetActionAndTargetValue         ,----- ** menuItemSetAttributeValue-    MenuItemSetAttributeValueMethodInfo     ,-    menuItemSetAttributeValue               ,----- ** menuItemSetDetailedAction-    MenuItemSetDetailedActionMethodInfo     ,-    menuItemSetDetailedAction               ,----- ** menuItemSetIcon-    MenuItemSetIconMethodInfo               ,-    menuItemSetIcon                         ,----- ** menuItemSetLabel-    MenuItemSetLabelMethodInfo              ,-    menuItemSetLabel                        ,----- ** menuItemSetLink-    MenuItemSetLinkMethodInfo               ,-    menuItemSetLink                         ,----- ** menuItemSetSection-    MenuItemSetSectionMethodInfo            ,-    menuItemSetSection                      ,----- ** menuItemSetSubmenu-    MenuItemSetSubmenuMethodInfo            ,-    menuItemSetSubmenu                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype MenuItem = MenuItem (ForeignPtr MenuItem)-foreign import ccall "g_menu_item_get_type"-    c_g_menu_item_get_type :: IO GType--type instance ParentTypes MenuItem = MenuItemParentTypes-type MenuItemParentTypes = '[GObject.Object]--instance GObject MenuItem where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_menu_item_get_type-    --class GObject o => MenuItemK o-instance (GObject o, IsDescendantOf MenuItem o) => MenuItemK o--toMenuItem :: MenuItemK o => o -> IO MenuItem-toMenuItem = unsafeCastTo MenuItem--noMenuItem :: Maybe MenuItem-noMenuItem = Nothing--type family ResolveMenuItemMethod (t :: Symbol) (o :: *) :: * where-    ResolveMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMenuItemMethod "getAttributeValue" o = MenuItemGetAttributeValueMethodInfo-    ResolveMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMenuItemMethod "getLink" o = MenuItemGetLinkMethodInfo-    ResolveMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMenuItemMethod "setActionAndTargetValue" o = MenuItemSetActionAndTargetValueMethodInfo-    ResolveMenuItemMethod "setAttributeValue" o = MenuItemSetAttributeValueMethodInfo-    ResolveMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMenuItemMethod "setDetailedAction" o = MenuItemSetDetailedActionMethodInfo-    ResolveMenuItemMethod "setIcon" o = MenuItemSetIconMethodInfo-    ResolveMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo-    ResolveMenuItemMethod "setLink" o = MenuItemSetLinkMethodInfo-    ResolveMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMenuItemMethod "setSection" o = MenuItemSetSectionMethodInfo-    ResolveMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo-    ResolveMenuItemMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMenuItemMethod t MenuItem, MethodInfo info MenuItem p) => IsLabelProxy t (MenuItem -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMenuItemMethod t MenuItem, MethodInfo info MenuItem p) => IsLabel t (MenuItem -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList MenuItem = MenuItemAttributeList-type MenuItemAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList MenuItem = MenuItemSignalList-type MenuItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method MenuItem::new--- method type : Constructor--- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---menuItemNew ::-    (MonadIO m) =>-    Maybe (T.Text)                          -- label-    -> Maybe (T.Text)                       -- detailedAction-    -> m MenuItem                           -- result-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 "g_menu_item_new" result-    result' <- (wrapObject MenuItem) result-    freeMem maybeLabel-    freeMem maybeDetailedAction-    return result'---- method MenuItem::new_from_model--- method type : Constructor--- Args : [Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "MenuItem")--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_new_from_model" g_menu_item_new_from_model :: -    Ptr MenuModel ->                        -- model : TInterface "Gio" "MenuModel"-    Int32 ->                                -- item_index : TBasicType TInt-    IO (Ptr MenuItem)---menuItemNewFromModel ::-    (MonadIO m, MenuModelK a) =>-    a                                       -- model-    -> Int32                                -- itemIndex-    -> m MenuItem                           -- result-menuItemNewFromModel model itemIndex = liftIO $ do-    let model' = unsafeManagedPtrCastPtr model-    result <- g_menu_item_new_from_model model' itemIndex-    checkUnexpectedReturnNULL "g_menu_item_new_from_model" result-    result' <- (wrapObject MenuItem) result-    touchManagedPtr model-    return result'---- method MenuItem::new_section--- method type : Constructor--- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "MenuItem")--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_new_section" g_menu_item_new_section :: -    CString ->                              -- label : TBasicType TUTF8-    Ptr MenuModel ->                        -- section : TInterface "Gio" "MenuModel"-    IO (Ptr MenuItem)---menuItemNewSection ::-    (MonadIO m, MenuModelK a) =>-    Maybe (T.Text)                          -- label-    -> a                                    -- section-    -> m MenuItem                           -- result-menuItemNewSection label section = liftIO $ do-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    let section' = unsafeManagedPtrCastPtr section-    result <- g_menu_item_new_section maybeLabel section'-    checkUnexpectedReturnNULL "g_menu_item_new_section" result-    result' <- (wrapObject MenuItem) result-    touchManagedPtr section-    freeMem maybeLabel-    return result'---- method MenuItem::new_submenu--- method type : Constructor--- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "MenuItem")--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_new_submenu" g_menu_item_new_submenu :: -    CString ->                              -- label : TBasicType TUTF8-    Ptr MenuModel ->                        -- submenu : TInterface "Gio" "MenuModel"-    IO (Ptr MenuItem)---menuItemNewSubmenu ::-    (MonadIO m, MenuModelK a) =>-    Maybe (T.Text)                          -- label-    -> a                                    -- submenu-    -> m MenuItem                           -- result-menuItemNewSubmenu label submenu = liftIO $ do-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    let submenu' = unsafeManagedPtrCastPtr submenu-    result <- g_menu_item_new_submenu maybeLabel submenu'-    checkUnexpectedReturnNULL "g_menu_item_new_submenu" result-    result' <- (wrapObject MenuItem) result-    touchManagedPtr submenu-    freeMem maybeLabel-    return result'---- method MenuItem::get_attribute_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "MenuItem"-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr GLib.VariantType ->                 -- expected_type : TInterface "GLib" "VariantType"-    IO (Ptr GVariant)---menuItemGetAttributeValue ::-    (MonadIO m, MenuItemK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Maybe (GLib.VariantType)             -- expectedType-    -> m GVariant                           -- result-menuItemGetAttributeValue _obj attribute expectedType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    maybeExpectedType <- case expectedType of-        Nothing -> return nullPtr-        Just jExpectedType -> do-            let jExpectedType' = unsafeManagedPtrGetPtr jExpectedType-            return jExpectedType'-    result <- g_menu_item_get_attribute_value _obj' attribute' maybeExpectedType-    checkUnexpectedReturnNULL "g_menu_item_get_attribute_value" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    whenJust expectedType touchManagedPtr-    freeMem attribute'-    return result'--data MenuItemGetAttributeValueMethodInfo-instance (signature ~ (T.Text -> Maybe (GLib.VariantType) -> m GVariant), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetAttributeValueMethodInfo a signature where-    overloadedMethod _ = menuItemGetAttributeValue---- method MenuItem::get_link--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "MenuModel")--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_get_link" g_menu_item_get_link :: -    Ptr MenuItem ->                         -- _obj : TInterface "Gio" "MenuItem"-    CString ->                              -- link : TBasicType TUTF8-    IO (Ptr MenuModel)---menuItemGetLink ::-    (MonadIO m, MenuItemK a) =>-    a                                       -- _obj-    -> T.Text                               -- link-    -> m MenuModel                          -- result-menuItemGetLink _obj link = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    link' <- textToCString link-    result <- g_menu_item_get_link _obj' link'-    checkUnexpectedReturnNULL "g_menu_item_get_link" result-    result' <- (wrapObject MenuModel) result-    touchManagedPtr _obj-    freeMem link'-    return result'--data MenuItemGetLinkMethodInfo-instance (signature ~ (T.Text -> m MenuModel), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetLinkMethodInfo a signature where-    overloadedMethod _ = menuItemGetLink---- method MenuItem::set_action_and_target_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "MenuItem"-    CString ->                              -- action : TBasicType TUTF8-    Ptr GVariant ->                         -- target_value : TVariant-    IO ()---menuItemSetActionAndTargetValue ::-    (MonadIO m, MenuItemK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- action-    -> Maybe (GVariant)                     -- targetValue-    -> m ()                                 -- result-menuItemSetActionAndTargetValue _obj action targetValue = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jTargetValue' = unsafeManagedPtrGetPtr jTargetValue-            return jTargetValue'-    g_menu_item_set_action_and_target_value _obj' maybeAction maybeTargetValue-    touchManagedPtr _obj-    freeMem maybeAction-    return ()--data MenuItemSetActionAndTargetValueMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (GVariant) -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetActionAndTargetValueMethodInfo a signature where-    overloadedMethod _ = menuItemSetActionAndTargetValue---- method MenuItem::set_attribute_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "MenuItem"-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    IO ()---menuItemSetAttributeValue ::-    (MonadIO m, MenuItemK a) =>-    a                                       -- _obj-    -> T.Text                               -- attribute-    -> Maybe (GVariant)                     -- value-    -> m ()                                 -- result-menuItemSetAttributeValue _obj attribute value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    maybeValue <- case value of-        Nothing -> return nullPtr-        Just jValue -> do-            let jValue' = unsafeManagedPtrGetPtr jValue-            return jValue'-    g_menu_item_set_attribute_value _obj' attribute' maybeValue-    touchManagedPtr _obj-    freeMem attribute'-    return ()--data MenuItemSetAttributeValueMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetAttributeValueMethodInfo a signature where-    overloadedMethod _ = menuItemSetAttributeValue---- method MenuItem::set_detailed_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "MenuItem"-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()---menuItemSetDetailedAction ::-    (MonadIO m, MenuItemK a) =>-    a                                       -- _obj-    -> T.Text                               -- detailedAction-    -> m ()                                 -- result-menuItemSetDetailedAction _obj detailedAction = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    detailedAction' <- textToCString detailedAction-    g_menu_item_set_detailed_action _obj' detailedAction'-    touchManagedPtr _obj-    freeMem detailedAction'-    return ()--data MenuItemSetDetailedActionMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetDetailedActionMethodInfo a signature where-    overloadedMethod _ = menuItemSetDetailedAction---- method MenuItem::set_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "MenuItem"-    Ptr Icon ->                             -- icon : TInterface "Gio" "Icon"-    IO ()---menuItemSetIcon ::-    (MonadIO m, MenuItemK a, IconK b) =>-    a                                       -- _obj-    -> b                                    -- icon-    -> m ()                                 -- result-menuItemSetIcon _obj icon = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let icon' = unsafeManagedPtrCastPtr icon-    g_menu_item_set_icon _obj' icon'-    touchManagedPtr _obj-    touchManagedPtr icon-    return ()--data MenuItemSetIconMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, MenuItemK a, IconK b) => MethodInfo MenuItemSetIconMethodInfo a signature where-    overloadedMethod _ = menuItemSetIcon---- method MenuItem::set_label--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "MenuItem"-    CString ->                              -- label : TBasicType TUTF8-    IO ()---menuItemSetLabel ::-    (MonadIO m, MenuItemK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- label-    -> m ()                                 -- result-menuItemSetLabel _obj label = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    g_menu_item_set_label _obj' maybeLabel-    touchManagedPtr _obj-    freeMem maybeLabel-    return ()--data MenuItemSetLabelMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetLabelMethodInfo a signature where-    overloadedMethod _ = menuItemSetLabel---- method MenuItem::set_link--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "MenuItem"-    CString ->                              -- link : TBasicType TUTF8-    Ptr MenuModel ->                        -- model : TInterface "Gio" "MenuModel"-    IO ()---menuItemSetLink ::-    (MonadIO m, MenuItemK a, MenuModelK b) =>-    a                                       -- _obj-    -> T.Text                               -- link-    -> Maybe (b)                            -- model-    -> m ()                                 -- result-menuItemSetLink _obj link model = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    link' <- textToCString link-    maybeModel <- case model of-        Nothing -> return nullPtr-        Just jModel -> do-            let jModel' = unsafeManagedPtrCastPtr jModel-            return jModel'-    g_menu_item_set_link _obj' link' maybeModel-    touchManagedPtr _obj-    whenJust model touchManagedPtr-    freeMem link'-    return ()--data MenuItemSetLinkMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, MenuItemK a, MenuModelK b) => MethodInfo MenuItemSetLinkMethodInfo a signature where-    overloadedMethod _ = menuItemSetLink---- method MenuItem::set_section--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "MenuItem"-    Ptr MenuModel ->                        -- section : TInterface "Gio" "MenuModel"-    IO ()---menuItemSetSection ::-    (MonadIO m, MenuItemK a, MenuModelK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- section-    -> m ()                                 -- result-menuItemSetSection _obj section = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeSection <- case section of-        Nothing -> return nullPtr-        Just jSection -> do-            let jSection' = unsafeManagedPtrCastPtr jSection-            return jSection'-    g_menu_item_set_section _obj' maybeSection-    touchManagedPtr _obj-    whenJust section touchManagedPtr-    return ()--data MenuItemSetSectionMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuItemK a, MenuModelK b) => MethodInfo MenuItemSetSectionMethodInfo a signature where-    overloadedMethod _ = menuItemSetSection---- method MenuItem::set_submenu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "MenuItem"-    Ptr MenuModel ->                        -- submenu : TInterface "Gio" "MenuModel"-    IO ()---menuItemSetSubmenu ::-    (MonadIO m, MenuItemK a, MenuModelK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- submenu-    -> m ()                                 -- result-menuItemSetSubmenu _obj submenu = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeSubmenu <- case submenu of-        Nothing -> return nullPtr-        Just jSubmenu -> do-            let jSubmenu' = unsafeManagedPtrCastPtr jSubmenu-            return jSubmenu'-    g_menu_item_set_submenu _obj' maybeSubmenu-    touchManagedPtr _obj-    whenJust submenu touchManagedPtr-    return ()--data MenuItemSetSubmenuMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuItemK a, MenuModelK b) => MethodInfo MenuItemSetSubmenuMethodInfo a signature where-    overloadedMethod _ = menuItemSetSubmenu--
− GI/Gio/Objects/MenuItem.hs-boot 
@@ -1,23 +0,0 @@-module GI.Gio.Objects.MenuItem where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MenuItem = MenuItem (ForeignPtr MenuItem)-instance GObject MenuItem where-class GObject o => MenuItemK o-instance (GObject o, IsDescendantOf MenuItem o) => MenuItemK o-data MenuItemGetAttributeValueMethodInfo-data MenuItemGetLinkMethodInfo-data MenuItemSetActionAndTargetValueMethodInfo-data MenuItemSetAttributeValueMethodInfo-data MenuItemSetDetailedActionMethodInfo-data MenuItemSetIconMethodInfo-data MenuItemSetLabelMethodInfo-data MenuItemSetLinkMethodInfo-data MenuItemSetSectionMethodInfo-data MenuItemSetSubmenuMethodInfo
− GI/Gio/Objects/MenuLinkIter.hs 
@@ -1,243 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.MenuLinkIter-    ( ---- * Exported types-    MenuLinkIter(..)                        ,-    MenuLinkIterK                           ,-    toMenuLinkIter                          ,-    noMenuLinkIter                          ,--- -- * Methods--- ** menuLinkIterGetName-    MenuLinkIterGetNameMethodInfo           ,-    menuLinkIterGetName                     ,----- ** menuLinkIterGetNext-    MenuLinkIterGetNextMethodInfo           ,-    menuLinkIterGetNext                     ,----- ** menuLinkIterGetValue-    MenuLinkIterGetValueMethodInfo          ,-    menuLinkIterGetValue                    ,----- ** menuLinkIterNext-    MenuLinkIterNextMethodInfo              ,-    menuLinkIterNext                        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype MenuLinkIter = MenuLinkIter (ForeignPtr MenuLinkIter)-foreign import ccall "g_menu_link_iter_get_type"-    c_g_menu_link_iter_get_type :: IO GType--type instance ParentTypes MenuLinkIter = MenuLinkIterParentTypes-type MenuLinkIterParentTypes = '[GObject.Object]--instance GObject MenuLinkIter where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_menu_link_iter_get_type-    --class GObject o => MenuLinkIterK o-instance (GObject o, IsDescendantOf MenuLinkIter o) => MenuLinkIterK o--toMenuLinkIter :: MenuLinkIterK o => o -> IO MenuLinkIter-toMenuLinkIter = unsafeCastTo MenuLinkIter--noMenuLinkIter :: Maybe MenuLinkIter-noMenuLinkIter = Nothing--type family ResolveMenuLinkIterMethod (t :: Symbol) (o :: *) :: * where-    ResolveMenuLinkIterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMenuLinkIterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMenuLinkIterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMenuLinkIterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMenuLinkIterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMenuLinkIterMethod "next" o = MenuLinkIterNextMethodInfo-    ResolveMenuLinkIterMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMenuLinkIterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMenuLinkIterMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMenuLinkIterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMenuLinkIterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMenuLinkIterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMenuLinkIterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMenuLinkIterMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMenuLinkIterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMenuLinkIterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMenuLinkIterMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMenuLinkIterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMenuLinkIterMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMenuLinkIterMethod "getName" o = MenuLinkIterGetNameMethodInfo-    ResolveMenuLinkIterMethod "getNext" o = MenuLinkIterGetNextMethodInfo-    ResolveMenuLinkIterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMenuLinkIterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMenuLinkIterMethod "getValue" o = MenuLinkIterGetValueMethodInfo-    ResolveMenuLinkIterMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMenuLinkIterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMenuLinkIterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMenuLinkIterMethod t MenuLinkIter, MethodInfo info MenuLinkIter p) => IsLabelProxy t (MenuLinkIter -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMenuLinkIterMethod t MenuLinkIter, MethodInfo info MenuLinkIter p) => IsLabel t (MenuLinkIter -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList MenuLinkIter = MenuLinkIterAttributeList-type MenuLinkIterAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList MenuLinkIter = MenuLinkIterSignalList-type MenuLinkIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method MenuLinkIter::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "MenuLinkIter"-    IO CString---menuLinkIterGetName ::-    (MonadIO m, MenuLinkIterK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-menuLinkIterGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_menu_link_iter_get_name _obj'-    checkUnexpectedReturnNULL "g_menu_link_iter_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data MenuLinkIterGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, MenuLinkIterK a) => MethodInfo MenuLinkIterGetNameMethodInfo a signature where-    overloadedMethod _ = menuLinkIterGetName---- method MenuLinkIter::get_next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_link", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "Gio" "MenuModel", direction = DirectionOut, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "MenuLinkIter"-    Ptr CString ->                          -- out_link : TBasicType TUTF8-    Ptr (Ptr MenuModel) ->                  -- value : TInterface "Gio" "MenuModel"-    IO CInt---menuLinkIterGetNext ::-    (MonadIO m, MenuLinkIterK a) =>-    a                                       -- _obj-    -> m (Bool,T.Text,MenuModel)            -- result-menuLinkIterGetNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    outLink <- allocMem :: IO (Ptr CString)-    value <- allocMem :: IO (Ptr (Ptr MenuModel))-    result <- g_menu_link_iter_get_next _obj' outLink value-    let result' = (/= 0) result-    outLink' <- peek outLink-    outLink'' <- cstringToText outLink'-    value' <- peek value-    value'' <- (wrapObject MenuModel) value'-    touchManagedPtr _obj-    freeMem outLink-    freeMem value-    return (result', outLink'', value'')--data MenuLinkIterGetNextMethodInfo-instance (signature ~ (m (Bool,T.Text,MenuModel)), MonadIO m, MenuLinkIterK a) => MethodInfo MenuLinkIterGetNextMethodInfo a signature where-    overloadedMethod _ = menuLinkIterGetNext---- method MenuLinkIter::get_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "MenuModel")--- throws : False--- Skip return : False--foreign import ccall "g_menu_link_iter_get_value" g_menu_link_iter_get_value :: -    Ptr MenuLinkIter ->                     -- _obj : TInterface "Gio" "MenuLinkIter"-    IO (Ptr MenuModel)---menuLinkIterGetValue ::-    (MonadIO m, MenuLinkIterK a) =>-    a                                       -- _obj-    -> m MenuModel                          -- result-menuLinkIterGetValue _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_menu_link_iter_get_value _obj'-    checkUnexpectedReturnNULL "g_menu_link_iter_get_value" result-    result' <- (wrapObject MenuModel) result-    touchManagedPtr _obj-    return result'--data MenuLinkIterGetValueMethodInfo-instance (signature ~ (m MenuModel), MonadIO m, MenuLinkIterK a) => MethodInfo MenuLinkIterGetValueMethodInfo a signature where-    overloadedMethod _ = menuLinkIterGetValue---- method MenuLinkIter::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "MenuLinkIter"-    IO CInt---menuLinkIterNext ::-    (MonadIO m, MenuLinkIterK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-menuLinkIterNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_menu_link_iter_next _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MenuLinkIterNextMethodInfo-instance (signature ~ (m Bool), MonadIO m, MenuLinkIterK a) => MethodInfo MenuLinkIterNextMethodInfo a signature where-    overloadedMethod _ = menuLinkIterNext--
− GI/Gio/Objects/MenuLinkIter.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.MenuLinkIter where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MenuLinkIter = MenuLinkIter (ForeignPtr MenuLinkIter)-instance GObject MenuLinkIter where-class GObject o => MenuLinkIterK o-instance (GObject o, IsDescendantOf MenuLinkIter o) => MenuLinkIterK o-data MenuLinkIterGetNameMethodInfo-data MenuLinkIterGetNextMethodInfo-data MenuLinkIterGetValueMethodInfo-data MenuLinkIterNextMethodInfo
− GI/Gio/Objects/MenuModel.hs 
@@ -1,433 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.MenuModel-    ( ---- * Exported types-    MenuModel(..)                           ,-    MenuModelK                              ,-    toMenuModel                             ,-    noMenuModel                             ,--- -- * Methods--- ** menuModelGetItemAttributeValue-    MenuModelGetItemAttributeValueMethodInfo,-    menuModelGetItemAttributeValue          ,----- ** menuModelGetItemLink-    MenuModelGetItemLinkMethodInfo          ,-    menuModelGetItemLink                    ,----- ** menuModelGetNItems-    MenuModelGetNItemsMethodInfo            ,-    menuModelGetNItems                      ,----- ** menuModelIsMutable-    MenuModelIsMutableMethodInfo            ,-    menuModelIsMutable                      ,----- ** menuModelItemsChanged-    MenuModelItemsChangedMethodInfo         ,-    menuModelItemsChanged                   ,----- ** menuModelIterateItemAttributes-    MenuModelIterateItemAttributesMethodInfo,-    menuModelIterateItemAttributes          ,----- ** menuModelIterateItemLinks-    MenuModelIterateItemLinksMethodInfo     ,-    menuModelIterateItemLinks               ,----- -- * Signals--- ** ItemsChanged-    MenuModelItemsChangedCallback           ,-    MenuModelItemsChangedCallbackC          ,-    MenuModelItemsChangedSignalInfo         ,-    afterMenuModelItemsChanged              ,-    menuModelItemsChangedCallbackWrapper    ,-    menuModelItemsChangedClosure            ,-    mkMenuModelItemsChangedCallback         ,-    noMenuModelItemsChangedCallback         ,-    onMenuModelItemsChanged                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype MenuModel = MenuModel (ForeignPtr MenuModel)-foreign import ccall "g_menu_model_get_type"-    c_g_menu_model_get_type :: IO GType--type instance ParentTypes MenuModel = MenuModelParentTypes-type MenuModelParentTypes = '[GObject.Object]--instance GObject MenuModel where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_menu_model_get_type-    --class GObject o => MenuModelK o-instance (GObject o, IsDescendantOf MenuModel o) => MenuModelK o--toMenuModel :: MenuModelK o => o -> IO MenuModel-toMenuModel = unsafeCastTo MenuModel--noMenuModel :: Maybe MenuModel-noMenuModel = Nothing--type family ResolveMenuModelMethod (t :: Symbol) (o :: *) :: * where-    ResolveMenuModelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMenuModelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMenuModelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMenuModelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMenuModelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMenuModelMethod "isMutable" o = MenuModelIsMutableMethodInfo-    ResolveMenuModelMethod "itemsChanged" o = MenuModelItemsChangedMethodInfo-    ResolveMenuModelMethod "iterateItemAttributes" o = MenuModelIterateItemAttributesMethodInfo-    ResolveMenuModelMethod "iterateItemLinks" o = MenuModelIterateItemLinksMethodInfo-    ResolveMenuModelMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMenuModelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMenuModelMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMenuModelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMenuModelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMenuModelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMenuModelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMenuModelMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMenuModelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMenuModelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMenuModelMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMenuModelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMenuModelMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMenuModelMethod "getItemAttributeValue" o = MenuModelGetItemAttributeValueMethodInfo-    ResolveMenuModelMethod "getItemLink" o = MenuModelGetItemLinkMethodInfo-    ResolveMenuModelMethod "getNItems" o = MenuModelGetNItemsMethodInfo-    ResolveMenuModelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMenuModelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMenuModelMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMenuModelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMenuModelMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMenuModelMethod t MenuModel, MethodInfo info MenuModel p) => IsLabelProxy t (MenuModel -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMenuModelMethod t MenuModel, MethodInfo info MenuModel p) => IsLabel t (MenuModel -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal MenuModel::items-changed-type MenuModelItemsChangedCallback =-    Int32 ->-    Int32 ->-    Int32 ->-    IO ()--noMenuModelItemsChangedCallback :: Maybe MenuModelItemsChangedCallback-noMenuModelItemsChangedCallback = Nothing--type MenuModelItemsChangedCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Int32 ->-    Int32 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMenuModelItemsChangedCallback :: MenuModelItemsChangedCallbackC -> IO (FunPtr MenuModelItemsChangedCallbackC)--menuModelItemsChangedClosure :: MenuModelItemsChangedCallback -> IO Closure-menuModelItemsChangedClosure cb = newCClosure =<< mkMenuModelItemsChangedCallback wrapped-    where wrapped = menuModelItemsChangedCallbackWrapper cb--menuModelItemsChangedCallbackWrapper ::-    MenuModelItemsChangedCallback ->-    Ptr () ->-    Int32 ->-    Int32 ->-    Int32 ->-    Ptr () ->-    IO ()-menuModelItemsChangedCallbackWrapper _cb _ position removed added _ = do-    _cb  position removed added--onMenuModelItemsChanged :: (GObject a, MonadIO m) => a -> MenuModelItemsChangedCallback -> m SignalHandlerId-onMenuModelItemsChanged obj cb = liftIO $ connectMenuModelItemsChanged obj cb SignalConnectBefore-afterMenuModelItemsChanged :: (GObject a, MonadIO m) => a -> MenuModelItemsChangedCallback -> m SignalHandlerId-afterMenuModelItemsChanged obj cb = connectMenuModelItemsChanged obj cb SignalConnectAfter--connectMenuModelItemsChanged :: (GObject a, MonadIO m) =>-                                a -> MenuModelItemsChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectMenuModelItemsChanged obj cb after = liftIO $ do-    cb' <- mkMenuModelItemsChangedCallback (menuModelItemsChangedCallbackWrapper cb)-    connectSignalFunPtr obj "items-changed" cb' after--type instance AttributeList MenuModel = MenuModelAttributeList-type MenuModelAttributeList = ('[ ] :: [(Symbol, *)])--data MenuModelItemsChangedSignalInfo-instance SignalInfo MenuModelItemsChangedSignalInfo where-    type HaskellCallbackType MenuModelItemsChangedSignalInfo = MenuModelItemsChangedCallback-    connectSignal _ = connectMenuModelItemsChanged--type instance SignalList MenuModel = MenuModelSignalList-type MenuModelSignalList = ('[ '("itemsChanged", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method MenuModel::get_item_attribute_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, 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 ->                        -- _obj : TInterface "Gio" "MenuModel"-    Int32 ->                                -- item_index : TBasicType TInt-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr GLib.VariantType ->                 -- expected_type : TInterface "GLib" "VariantType"-    IO (Ptr GVariant)---menuModelGetItemAttributeValue ::-    (MonadIO m, MenuModelK a) =>-    a                                       -- _obj-    -> Int32                                -- itemIndex-    -> T.Text                               -- attribute-    -> Maybe (GLib.VariantType)             -- expectedType-    -> m GVariant                           -- result-menuModelGetItemAttributeValue _obj itemIndex attribute expectedType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attribute' <- textToCString attribute-    maybeExpectedType <- case expectedType of-        Nothing -> return nullPtr-        Just jExpectedType -> do-            let jExpectedType' = unsafeManagedPtrGetPtr jExpectedType-            return jExpectedType'-    result <- g_menu_model_get_item_attribute_value _obj' itemIndex attribute' maybeExpectedType-    checkUnexpectedReturnNULL "g_menu_model_get_item_attribute_value" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    whenJust expectedType touchManagedPtr-    freeMem attribute'-    return result'--data MenuModelGetItemAttributeValueMethodInfo-instance (signature ~ (Int32 -> T.Text -> Maybe (GLib.VariantType) -> m GVariant), MonadIO m, MenuModelK a) => MethodInfo MenuModelGetItemAttributeValueMethodInfo a signature where-    overloadedMethod _ = menuModelGetItemAttributeValue---- method MenuModel::get_item_link--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "MenuModel")--- throws : False--- Skip return : False--foreign import ccall "g_menu_model_get_item_link" g_menu_model_get_item_link :: -    Ptr MenuModel ->                        -- _obj : TInterface "Gio" "MenuModel"-    Int32 ->                                -- item_index : TBasicType TInt-    CString ->                              -- link : TBasicType TUTF8-    IO (Ptr MenuModel)---menuModelGetItemLink ::-    (MonadIO m, MenuModelK a) =>-    a                                       -- _obj-    -> Int32                                -- itemIndex-    -> T.Text                               -- link-    -> m MenuModel                          -- result-menuModelGetItemLink _obj itemIndex link = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    link' <- textToCString link-    result <- g_menu_model_get_item_link _obj' itemIndex link'-    checkUnexpectedReturnNULL "g_menu_model_get_item_link" result-    result' <- (wrapObject MenuModel) result-    touchManagedPtr _obj-    freeMem link'-    return result'--data MenuModelGetItemLinkMethodInfo-instance (signature ~ (Int32 -> T.Text -> m MenuModel), MonadIO m, MenuModelK a) => MethodInfo MenuModelGetItemLinkMethodInfo a signature where-    overloadedMethod _ = menuModelGetItemLink---- method MenuModel::get_n_items--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "MenuModel"-    IO Int32---menuModelGetNItems ::-    (MonadIO m, MenuModelK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-menuModelGetNItems _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_menu_model_get_n_items _obj'-    touchManagedPtr _obj-    return result--data MenuModelGetNItemsMethodInfo-instance (signature ~ (m Int32), MonadIO m, MenuModelK a) => MethodInfo MenuModelGetNItemsMethodInfo a signature where-    overloadedMethod _ = menuModelGetNItems---- method MenuModel::is_mutable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "MenuModel"-    IO CInt---menuModelIsMutable ::-    (MonadIO m, MenuModelK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-menuModelIsMutable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_menu_model_is_mutable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MenuModelIsMutableMethodInfo-instance (signature ~ (m Bool), MonadIO m, MenuModelK a) => MethodInfo MenuModelIsMutableMethodInfo a signature where-    overloadedMethod _ = menuModelIsMutable---- method MenuModel::items_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "removed", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "MenuModel"-    Int32 ->                                -- position : TBasicType TInt-    Int32 ->                                -- removed : TBasicType TInt-    Int32 ->                                -- added : TBasicType TInt-    IO ()---menuModelItemsChanged ::-    (MonadIO m, MenuModelK a) =>-    a                                       -- _obj-    -> Int32                                -- position-    -> Int32                                -- removed-    -> Int32                                -- added-    -> m ()                                 -- result-menuModelItemsChanged _obj position removed added = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_menu_model_items_changed _obj' position removed added-    touchManagedPtr _obj-    return ()--data MenuModelItemsChangedMethodInfo-instance (signature ~ (Int32 -> Int32 -> Int32 -> m ()), MonadIO m, MenuModelK a) => MethodInfo MenuModelItemsChangedMethodInfo a signature where-    overloadedMethod _ = menuModelItemsChanged---- method MenuModel::iterate_item_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "MenuAttributeIter")--- throws : False--- Skip return : False--foreign import ccall "g_menu_model_iterate_item_attributes" g_menu_model_iterate_item_attributes :: -    Ptr MenuModel ->                        -- _obj : TInterface "Gio" "MenuModel"-    Int32 ->                                -- item_index : TBasicType TInt-    IO (Ptr MenuAttributeIter)---menuModelIterateItemAttributes ::-    (MonadIO m, MenuModelK a) =>-    a                                       -- _obj-    -> Int32                                -- itemIndex-    -> m MenuAttributeIter                  -- result-menuModelIterateItemAttributes _obj itemIndex = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_menu_model_iterate_item_attributes _obj' itemIndex-    checkUnexpectedReturnNULL "g_menu_model_iterate_item_attributes" result-    result' <- (wrapObject MenuAttributeIter) result-    touchManagedPtr _obj-    return result'--data MenuModelIterateItemAttributesMethodInfo-instance (signature ~ (Int32 -> m MenuAttributeIter), MonadIO m, MenuModelK a) => MethodInfo MenuModelIterateItemAttributesMethodInfo a signature where-    overloadedMethod _ = menuModelIterateItemAttributes---- method MenuModel::iterate_item_links--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "MenuLinkIter")--- throws : False--- Skip return : False--foreign import ccall "g_menu_model_iterate_item_links" g_menu_model_iterate_item_links :: -    Ptr MenuModel ->                        -- _obj : TInterface "Gio" "MenuModel"-    Int32 ->                                -- item_index : TBasicType TInt-    IO (Ptr MenuLinkIter)---menuModelIterateItemLinks ::-    (MonadIO m, MenuModelK a) =>-    a                                       -- _obj-    -> Int32                                -- itemIndex-    -> m MenuLinkIter                       -- result-menuModelIterateItemLinks _obj itemIndex = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_menu_model_iterate_item_links _obj' itemIndex-    checkUnexpectedReturnNULL "g_menu_model_iterate_item_links" result-    result' <- (wrapObject MenuLinkIter) result-    touchManagedPtr _obj-    return result'--data MenuModelIterateItemLinksMethodInfo-instance (signature ~ (Int32 -> m MenuLinkIter), MonadIO m, MenuModelK a) => MethodInfo MenuModelIterateItemLinksMethodInfo a signature where-    overloadedMethod _ = menuModelIterateItemLinks--
− GI/Gio/Objects/MenuModel.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.MenuModel where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MenuModel = MenuModel (ForeignPtr MenuModel)-instance GObject MenuModel where-class GObject o => MenuModelK o-instance (GObject o, IsDescendantOf MenuModel o) => MenuModelK o-data MenuModelItemsChangedSignalInfo-data MenuModelGetItemAttributeValueMethodInfo-data MenuModelGetItemLinkMethodInfo-data MenuModelGetNItemsMethodInfo-data MenuModelIsMutableMethodInfo-data MenuModelItemsChangedMethodInfo-data MenuModelIterateItemAttributesMethodInfo-data MenuModelIterateItemLinksMethodInfo
− GI/Gio/Objects/MountOperation.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.MountOperation-    ( ---- * Exported types-    MountOperation(..)                      ,-    MountOperationK                         ,-    toMountOperation                        ,-    noMountOperation                        ,--- -- * Methods--- ** mountOperationGetAnonymous-    MountOperationGetAnonymousMethodInfo    ,-    mountOperationGetAnonymous              ,----- ** mountOperationGetChoice-    MountOperationGetChoiceMethodInfo       ,-    mountOperationGetChoice                 ,----- ** mountOperationGetDomain-    MountOperationGetDomainMethodInfo       ,-    mountOperationGetDomain                 ,----- ** mountOperationGetPassword-    MountOperationGetPasswordMethodInfo     ,-    mountOperationGetPassword               ,----- ** mountOperationGetPasswordSave-    MountOperationGetPasswordSaveMethodInfo ,-    mountOperationGetPasswordSave           ,----- ** mountOperationGetUsername-    MountOperationGetUsernameMethodInfo     ,-    mountOperationGetUsername               ,----- ** mountOperationNew-    mountOperationNew                       ,----- ** mountOperationReply-    MountOperationReplyMethodInfo           ,-    mountOperationReply                     ,----- ** mountOperationSetAnonymous-    MountOperationSetAnonymousMethodInfo    ,-    mountOperationSetAnonymous              ,----- ** mountOperationSetChoice-    MountOperationSetChoiceMethodInfo       ,-    mountOperationSetChoice                 ,----- ** mountOperationSetDomain-    MountOperationSetDomainMethodInfo       ,-    mountOperationSetDomain                 ,----- ** mountOperationSetPassword-    MountOperationSetPasswordMethodInfo     ,-    mountOperationSetPassword               ,----- ** mountOperationSetPasswordSave-    MountOperationSetPasswordSaveMethodInfo ,-    mountOperationSetPasswordSave           ,----- ** mountOperationSetUsername-    MountOperationSetUsernameMethodInfo     ,-    mountOperationSetUsername               ,----- -- * Properties--- ** Anonymous-    MountOperationAnonymousPropertyInfo     ,-    constructMountOperationAnonymous        ,-    getMountOperationAnonymous              ,-    mountOperationAnonymous                 ,-    setMountOperationAnonymous              ,----- ** Choice-    MountOperationChoicePropertyInfo        ,-    constructMountOperationChoice           ,-    getMountOperationChoice                 ,-    mountOperationChoice                    ,-    setMountOperationChoice                 ,----- ** Domain-    MountOperationDomainPropertyInfo        ,-    constructMountOperationDomain           ,-    getMountOperationDomain                 ,-    mountOperationDomain                    ,-    setMountOperationDomain                 ,----- ** Password-    MountOperationPasswordPropertyInfo      ,-    constructMountOperationPassword         ,-    getMountOperationPassword               ,-    mountOperationPassword                  ,-    setMountOperationPassword               ,----- ** PasswordSave-    MountOperationPasswordSavePropertyInfo  ,-    constructMountOperationPasswordSave     ,-    getMountOperationPasswordSave           ,-    mountOperationPasswordSave              ,-    setMountOperationPasswordSave           ,----- ** Username-    MountOperationUsernamePropertyInfo      ,-    constructMountOperationUsername         ,-    getMountOperationUsername               ,-    mountOperationUsername                  ,-    setMountOperationUsername               ,----- -- * Signals--- ** Aborted-    MountOperationAbortedCallback           ,-    MountOperationAbortedCallbackC          ,-    MountOperationAbortedSignalInfo         ,-    afterMountOperationAborted              ,-    mkMountOperationAbortedCallback         ,-    mountOperationAbortedCallbackWrapper    ,-    mountOperationAbortedClosure            ,-    noMountOperationAbortedCallback         ,-    onMountOperationAborted                 ,----- ** AskPassword-    MountOperationAskPasswordCallback       ,-    MountOperationAskPasswordCallbackC      ,-    MountOperationAskPasswordSignalInfo     ,-    afterMountOperationAskPassword          ,-    mkMountOperationAskPasswordCallback     ,-    mountOperationAskPasswordCallbackWrapper,-    mountOperationAskPasswordClosure        ,-    noMountOperationAskPasswordCallback     ,-    onMountOperationAskPassword             ,----- ** AskQuestion-    MountOperationAskQuestionCallback       ,-    MountOperationAskQuestionCallbackC      ,-    MountOperationAskQuestionSignalInfo     ,-    afterMountOperationAskQuestion          ,-    mkMountOperationAskQuestionCallback     ,-    mountOperationAskQuestionCallbackWrapper,-    mountOperationAskQuestionClosure        ,-    noMountOperationAskQuestionCallback     ,-    onMountOperationAskQuestion             ,----- ** Reply-    MountOperationReplyCallback             ,-    MountOperationReplyCallbackC            ,-    MountOperationReplySignalInfo           ,-    afterMountOperationReply                ,-    mkMountOperationReplyCallback           ,-    mountOperationReplyCallbackWrapper      ,-    mountOperationReplyClosure              ,-    noMountOperationReplyCallback           ,-    onMountOperationReply                   ,----- ** ShowProcesses-    MountOperationShowProcessesCallback     ,-    MountOperationShowProcessesCallbackC    ,-    MountOperationShowProcessesSignalInfo   ,-    afterMountOperationShowProcesses        ,-    mkMountOperationShowProcessesCallback   ,-    mountOperationShowProcessesCallbackWrapper,-    mountOperationShowProcessesClosure      ,-    noMountOperationShowProcessesCallback   ,-    onMountOperationShowProcesses           ,----- ** ShowUnmountProgress-    MountOperationShowUnmountProgressCallback,-    MountOperationShowUnmountProgressCallbackC,-    MountOperationShowUnmountProgressSignalInfo,-    afterMountOperationShowUnmountProgress  ,-    mkMountOperationShowUnmountProgressCallback,-    mountOperationShowUnmountProgressCallbackWrapper,-    mountOperationShowUnmountProgressClosure,-    noMountOperationShowUnmountProgressCallback,-    onMountOperationShowUnmountProgress     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype MountOperation = MountOperation (ForeignPtr MountOperation)-foreign import ccall "g_mount_operation_get_type"-    c_g_mount_operation_get_type :: IO GType--type instance ParentTypes MountOperation = MountOperationParentTypes-type MountOperationParentTypes = '[GObject.Object]--instance GObject MountOperation where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_mount_operation_get_type-    --class GObject o => MountOperationK o-instance (GObject o, IsDescendantOf MountOperation o) => MountOperationK o--toMountOperation :: MountOperationK o => o -> IO MountOperation-toMountOperation = unsafeCastTo MountOperation--noMountOperation :: Maybe MountOperation-noMountOperation = Nothing--type family ResolveMountOperationMethod (t :: Symbol) (o :: *) :: * where-    ResolveMountOperationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMountOperationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMountOperationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMountOperationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMountOperationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMountOperationMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMountOperationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMountOperationMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMountOperationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMountOperationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMountOperationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMountOperationMethod "reply" o = MountOperationReplyMethodInfo-    ResolveMountOperationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMountOperationMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMountOperationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMountOperationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMountOperationMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMountOperationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMountOperationMethod "getAnonymous" o = MountOperationGetAnonymousMethodInfo-    ResolveMountOperationMethod "getChoice" o = MountOperationGetChoiceMethodInfo-    ResolveMountOperationMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMountOperationMethod "getDomain" o = MountOperationGetDomainMethodInfo-    ResolveMountOperationMethod "getPassword" o = MountOperationGetPasswordMethodInfo-    ResolveMountOperationMethod "getPasswordSave" o = MountOperationGetPasswordSaveMethodInfo-    ResolveMountOperationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMountOperationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMountOperationMethod "getUsername" o = MountOperationGetUsernameMethodInfo-    ResolveMountOperationMethod "setAnonymous" o = MountOperationSetAnonymousMethodInfo-    ResolveMountOperationMethod "setChoice" o = MountOperationSetChoiceMethodInfo-    ResolveMountOperationMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMountOperationMethod "setDomain" o = MountOperationSetDomainMethodInfo-    ResolveMountOperationMethod "setPassword" o = MountOperationSetPasswordMethodInfo-    ResolveMountOperationMethod "setPasswordSave" o = MountOperationSetPasswordSaveMethodInfo-    ResolveMountOperationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMountOperationMethod "setUsername" o = MountOperationSetUsernameMethodInfo-    ResolveMountOperationMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMountOperationMethod t MountOperation, MethodInfo info MountOperation p) => IsLabelProxy t (MountOperation -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMountOperationMethod t MountOperation, MethodInfo info MountOperation p) => IsLabel t (MountOperation -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal MountOperation::aborted-type MountOperationAbortedCallback =-    IO ()--noMountOperationAbortedCallback :: Maybe MountOperationAbortedCallback-noMountOperationAbortedCallback = Nothing--type MountOperationAbortedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMountOperationAbortedCallback :: MountOperationAbortedCallbackC -> IO (FunPtr MountOperationAbortedCallbackC)--mountOperationAbortedClosure :: MountOperationAbortedCallback -> IO Closure-mountOperationAbortedClosure cb = newCClosure =<< mkMountOperationAbortedCallback wrapped-    where wrapped = mountOperationAbortedCallbackWrapper cb--mountOperationAbortedCallbackWrapper ::-    MountOperationAbortedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-mountOperationAbortedCallbackWrapper _cb _ _ = do-    _cb --onMountOperationAborted :: (GObject a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId-onMountOperationAborted obj cb = liftIO $ connectMountOperationAborted obj cb SignalConnectBefore-afterMountOperationAborted :: (GObject a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId-afterMountOperationAborted obj cb = connectMountOperationAborted obj cb SignalConnectAfter--connectMountOperationAborted :: (GObject a, MonadIO m) =>-                                a -> MountOperationAbortedCallback -> SignalConnectMode -> m SignalHandlerId-connectMountOperationAborted obj cb after = liftIO $ do-    cb' <- mkMountOperationAbortedCallback (mountOperationAbortedCallbackWrapper cb)-    connectSignalFunPtr obj "aborted" cb' after---- signal MountOperation::ask-password-type MountOperationAskPasswordCallback =-    T.Text ->-    T.Text ->-    T.Text ->-    [AskPasswordFlags] ->-    IO ()--noMountOperationAskPasswordCallback :: Maybe MountOperationAskPasswordCallback-noMountOperationAskPasswordCallback = Nothing--type MountOperationAskPasswordCallbackC =-    Ptr () ->                               -- object-    CString ->-    CString ->-    CString ->-    CUInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMountOperationAskPasswordCallback :: MountOperationAskPasswordCallbackC -> IO (FunPtr MountOperationAskPasswordCallbackC)--mountOperationAskPasswordClosure :: MountOperationAskPasswordCallback -> IO Closure-mountOperationAskPasswordClosure cb = newCClosure =<< mkMountOperationAskPasswordCallback wrapped-    where wrapped = mountOperationAskPasswordCallbackWrapper cb--mountOperationAskPasswordCallbackWrapper ::-    MountOperationAskPasswordCallback ->-    Ptr () ->-    CString ->-    CString ->-    CString ->-    CUInt ->-    Ptr () ->-    IO ()-mountOperationAskPasswordCallbackWrapper _cb _ message defaultUser defaultDomain flags _ = do-    message' <- cstringToText message-    defaultUser' <- cstringToText defaultUser-    defaultDomain' <- cstringToText defaultDomain-    let flags' = wordToGFlags flags-    _cb  message' defaultUser' defaultDomain' flags'--onMountOperationAskPassword :: (GObject a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId-onMountOperationAskPassword obj cb = liftIO $ connectMountOperationAskPassword obj cb SignalConnectBefore-afterMountOperationAskPassword :: (GObject a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId-afterMountOperationAskPassword obj cb = connectMountOperationAskPassword obj cb SignalConnectAfter--connectMountOperationAskPassword :: (GObject a, MonadIO m) =>-                                    a -> MountOperationAskPasswordCallback -> SignalConnectMode -> m SignalHandlerId-connectMountOperationAskPassword obj cb after = liftIO $ do-    cb' <- mkMountOperationAskPasswordCallback (mountOperationAskPasswordCallbackWrapper cb)-    connectSignalFunPtr obj "ask-password" cb' after---- signal MountOperation::ask-question-type MountOperationAskQuestionCallback =-    T.Text ->-    [T.Text] ->-    IO ()--noMountOperationAskQuestionCallback :: Maybe MountOperationAskQuestionCallback-noMountOperationAskQuestionCallback = Nothing--type MountOperationAskQuestionCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMountOperationAskQuestionCallback :: MountOperationAskQuestionCallbackC -> IO (FunPtr MountOperationAskQuestionCallbackC)--mountOperationAskQuestionClosure :: MountOperationAskQuestionCallback -> IO Closure-mountOperationAskQuestionClosure cb = newCClosure =<< mkMountOperationAskQuestionCallback wrapped-    where wrapped = mountOperationAskQuestionCallbackWrapper cb--mountOperationAskQuestionCallbackWrapper ::-    MountOperationAskQuestionCallback ->-    Ptr () ->-    CString ->-    Ptr CString ->-    Ptr () ->-    IO ()-mountOperationAskQuestionCallbackWrapper _cb _ message choices _ = do-    message' <- cstringToText message-    choices' <- unpackZeroTerminatedUTF8CArray choices-    _cb  message' choices'--onMountOperationAskQuestion :: (GObject a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId-onMountOperationAskQuestion obj cb = liftIO $ connectMountOperationAskQuestion obj cb SignalConnectBefore-afterMountOperationAskQuestion :: (GObject a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId-afterMountOperationAskQuestion obj cb = connectMountOperationAskQuestion obj cb SignalConnectAfter--connectMountOperationAskQuestion :: (GObject a, MonadIO m) =>-                                    a -> MountOperationAskQuestionCallback -> SignalConnectMode -> m SignalHandlerId-connectMountOperationAskQuestion obj cb after = liftIO $ do-    cb' <- mkMountOperationAskQuestionCallback (mountOperationAskQuestionCallbackWrapper cb)-    connectSignalFunPtr obj "ask-question" cb' after---- signal MountOperation::reply-type MountOperationReplyCallback =-    MountOperationResult ->-    IO ()--noMountOperationReplyCallback :: Maybe MountOperationReplyCallback-noMountOperationReplyCallback = Nothing--type MountOperationReplyCallbackC =-    Ptr () ->                               -- object-    CUInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMountOperationReplyCallback :: MountOperationReplyCallbackC -> IO (FunPtr MountOperationReplyCallbackC)--mountOperationReplyClosure :: MountOperationReplyCallback -> IO Closure-mountOperationReplyClosure cb = newCClosure =<< mkMountOperationReplyCallback wrapped-    where wrapped = mountOperationReplyCallbackWrapper cb--mountOperationReplyCallbackWrapper ::-    MountOperationReplyCallback ->-    Ptr () ->-    CUInt ->-    Ptr () ->-    IO ()-mountOperationReplyCallbackWrapper _cb _ result_ _ = do-    let result_' = (toEnum . fromIntegral) result_-    _cb  result_'--onMountOperationReply :: (GObject a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId-onMountOperationReply obj cb = liftIO $ connectMountOperationReply obj cb SignalConnectBefore-afterMountOperationReply :: (GObject a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId-afterMountOperationReply obj cb = connectMountOperationReply obj cb SignalConnectAfter--connectMountOperationReply :: (GObject a, MonadIO m) =>-                              a -> MountOperationReplyCallback -> SignalConnectMode -> m SignalHandlerId-connectMountOperationReply obj cb after = liftIO $ do-    cb' <- mkMountOperationReplyCallback (mountOperationReplyCallbackWrapper cb)-    connectSignalFunPtr obj "reply" cb' after---- signal MountOperation::show-processes-type MountOperationShowProcessesCallback =-    T.Text ->-    [Int32] ->-    [T.Text] ->-    IO ()--noMountOperationShowProcessesCallback :: Maybe MountOperationShowProcessesCallback-noMountOperationShowProcessesCallback = Nothing--type MountOperationShowProcessesCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr (GArray Int32) ->-    Ptr CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMountOperationShowProcessesCallback :: MountOperationShowProcessesCallbackC -> IO (FunPtr MountOperationShowProcessesCallbackC)--mountOperationShowProcessesClosure :: MountOperationShowProcessesCallback -> IO Closure-mountOperationShowProcessesClosure cb = newCClosure =<< mkMountOperationShowProcessesCallback wrapped-    where wrapped = mountOperationShowProcessesCallbackWrapper cb--mountOperationShowProcessesCallbackWrapper ::-    MountOperationShowProcessesCallback ->-    Ptr () ->-    CString ->-    Ptr (GArray Int32) ->-    Ptr CString ->-    Ptr () ->-    IO ()-mountOperationShowProcessesCallbackWrapper _cb _ message processes choices _ = do-    message' <- cstringToText message-    processes' <- unpackGArray processes-    choices' <- unpackZeroTerminatedUTF8CArray choices-    _cb  message' processes' choices'--onMountOperationShowProcesses :: (GObject a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId-onMountOperationShowProcesses obj cb = liftIO $ connectMountOperationShowProcesses obj cb SignalConnectBefore-afterMountOperationShowProcesses :: (GObject a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId-afterMountOperationShowProcesses obj cb = connectMountOperationShowProcesses obj cb SignalConnectAfter--connectMountOperationShowProcesses :: (GObject a, MonadIO m) =>-                                      a -> MountOperationShowProcessesCallback -> SignalConnectMode -> m SignalHandlerId-connectMountOperationShowProcesses obj cb after = liftIO $ do-    cb' <- mkMountOperationShowProcessesCallback (mountOperationShowProcessesCallbackWrapper cb)-    connectSignalFunPtr obj "show-processes" cb' after---- signal MountOperation::show-unmount-progress-type MountOperationShowUnmountProgressCallback =-    T.Text ->-    Int64 ->-    Int64 ->-    IO ()--noMountOperationShowUnmountProgressCallback :: Maybe MountOperationShowUnmountProgressCallback-noMountOperationShowUnmountProgressCallback = Nothing--type MountOperationShowUnmountProgressCallbackC =-    Ptr () ->                               -- object-    CString ->-    Int64 ->-    Int64 ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMountOperationShowUnmountProgressCallback :: MountOperationShowUnmountProgressCallbackC -> IO (FunPtr MountOperationShowUnmountProgressCallbackC)--mountOperationShowUnmountProgressClosure :: MountOperationShowUnmountProgressCallback -> IO Closure-mountOperationShowUnmountProgressClosure cb = newCClosure =<< mkMountOperationShowUnmountProgressCallback wrapped-    where wrapped = mountOperationShowUnmountProgressCallbackWrapper cb--mountOperationShowUnmountProgressCallbackWrapper ::-    MountOperationShowUnmountProgressCallback ->-    Ptr () ->-    CString ->-    Int64 ->-    Int64 ->-    Ptr () ->-    IO ()-mountOperationShowUnmountProgressCallbackWrapper _cb _ message timeLeft bytesLeft _ = do-    message' <- cstringToText message-    _cb  message' timeLeft bytesLeft--onMountOperationShowUnmountProgress :: (GObject a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId-onMountOperationShowUnmountProgress obj cb = liftIO $ connectMountOperationShowUnmountProgress obj cb SignalConnectBefore-afterMountOperationShowUnmountProgress :: (GObject a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId-afterMountOperationShowUnmountProgress obj cb = connectMountOperationShowUnmountProgress obj cb SignalConnectAfter--connectMountOperationShowUnmountProgress :: (GObject a, MonadIO m) =>-                                            a -> MountOperationShowUnmountProgressCallback -> SignalConnectMode -> m SignalHandlerId-connectMountOperationShowUnmountProgress obj cb after = liftIO $ do-    cb' <- mkMountOperationShowUnmountProgressCallback (mountOperationShowUnmountProgressCallbackWrapper cb)-    connectSignalFunPtr obj "show-unmount-progress" cb' after---- VVV Prop "anonymous"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getMountOperationAnonymous :: (MonadIO m, MountOperationK o) => o -> m Bool-getMountOperationAnonymous obj = liftIO $ getObjectPropertyBool obj "anonymous"--setMountOperationAnonymous :: (MonadIO m, MountOperationK o) => o -> Bool -> m ()-setMountOperationAnonymous obj val = liftIO $ setObjectPropertyBool obj "anonymous" val--constructMountOperationAnonymous :: Bool -> IO ([Char], GValue)-constructMountOperationAnonymous val = constructObjectPropertyBool "anonymous" val--data MountOperationAnonymousPropertyInfo-instance AttrInfo MountOperationAnonymousPropertyInfo where-    type AttrAllowedOps MountOperationAnonymousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationAnonymousPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint MountOperationAnonymousPropertyInfo = MountOperationK-    type AttrGetType MountOperationAnonymousPropertyInfo = Bool-    type AttrLabel MountOperationAnonymousPropertyInfo = "anonymous"-    attrGet _ = getMountOperationAnonymous-    attrSet _ = setMountOperationAnonymous-    attrConstruct _ = constructMountOperationAnonymous-    attrClear _ = undefined---- VVV Prop "choice"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getMountOperationChoice :: (MonadIO m, MountOperationK o) => o -> m Int32-getMountOperationChoice obj = liftIO $ getObjectPropertyInt32 obj "choice"--setMountOperationChoice :: (MonadIO m, MountOperationK o) => o -> Int32 -> m ()-setMountOperationChoice obj val = liftIO $ setObjectPropertyInt32 obj "choice" val--constructMountOperationChoice :: Int32 -> IO ([Char], GValue)-constructMountOperationChoice val = constructObjectPropertyInt32 "choice" val--data MountOperationChoicePropertyInfo-instance AttrInfo MountOperationChoicePropertyInfo where-    type AttrAllowedOps MountOperationChoicePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationChoicePropertyInfo = (~) Int32-    type AttrBaseTypeConstraint MountOperationChoicePropertyInfo = MountOperationK-    type AttrGetType MountOperationChoicePropertyInfo = Int32-    type AttrLabel MountOperationChoicePropertyInfo = "choice"-    attrGet _ = getMountOperationChoice-    attrSet _ = setMountOperationChoice-    attrConstruct _ = constructMountOperationChoice-    attrClear _ = undefined---- VVV Prop "domain"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getMountOperationDomain :: (MonadIO m, MountOperationK o) => o -> m T.Text-getMountOperationDomain obj = liftIO $ checkUnexpectedNothing "getMountOperationDomain" $ getObjectPropertyString obj "domain"--setMountOperationDomain :: (MonadIO m, MountOperationK o) => o -> T.Text -> m ()-setMountOperationDomain obj val = liftIO $ setObjectPropertyString obj "domain" (Just val)--constructMountOperationDomain :: T.Text -> IO ([Char], GValue)-constructMountOperationDomain val = constructObjectPropertyString "domain" (Just val)--data MountOperationDomainPropertyInfo-instance AttrInfo MountOperationDomainPropertyInfo where-    type AttrAllowedOps MountOperationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationDomainPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MountOperationDomainPropertyInfo = MountOperationK-    type AttrGetType MountOperationDomainPropertyInfo = T.Text-    type AttrLabel MountOperationDomainPropertyInfo = "domain"-    attrGet _ = getMountOperationDomain-    attrSet _ = setMountOperationDomain-    attrConstruct _ = constructMountOperationDomain-    attrClear _ = undefined---- VVV Prop "password"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getMountOperationPassword :: (MonadIO m, MountOperationK o) => o -> m T.Text-getMountOperationPassword obj = liftIO $ checkUnexpectedNothing "getMountOperationPassword" $ getObjectPropertyString obj "password"--setMountOperationPassword :: (MonadIO m, MountOperationK o) => o -> T.Text -> m ()-setMountOperationPassword obj val = liftIO $ setObjectPropertyString obj "password" (Just val)--constructMountOperationPassword :: T.Text -> IO ([Char], GValue)-constructMountOperationPassword val = constructObjectPropertyString "password" (Just val)--data MountOperationPasswordPropertyInfo-instance AttrInfo MountOperationPasswordPropertyInfo where-    type AttrAllowedOps MountOperationPasswordPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationPasswordPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MountOperationPasswordPropertyInfo = MountOperationK-    type AttrGetType MountOperationPasswordPropertyInfo = T.Text-    type AttrLabel MountOperationPasswordPropertyInfo = "password"-    attrGet _ = getMountOperationPassword-    attrSet _ = setMountOperationPassword-    attrConstruct _ = constructMountOperationPassword-    attrClear _ = undefined---- VVV Prop "password-save"-   -- Type: TInterface "Gio" "PasswordSave"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getMountOperationPasswordSave :: (MonadIO m, MountOperationK o) => o -> m PasswordSave-getMountOperationPasswordSave obj = liftIO $ getObjectPropertyEnum obj "password-save"--setMountOperationPasswordSave :: (MonadIO m, MountOperationK o) => o -> PasswordSave -> m ()-setMountOperationPasswordSave obj val = liftIO $ setObjectPropertyEnum obj "password-save" val--constructMountOperationPasswordSave :: PasswordSave -> IO ([Char], GValue)-constructMountOperationPasswordSave val = constructObjectPropertyEnum "password-save" val--data MountOperationPasswordSavePropertyInfo-instance AttrInfo MountOperationPasswordSavePropertyInfo where-    type AttrAllowedOps MountOperationPasswordSavePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationPasswordSavePropertyInfo = (~) PasswordSave-    type AttrBaseTypeConstraint MountOperationPasswordSavePropertyInfo = MountOperationK-    type AttrGetType MountOperationPasswordSavePropertyInfo = PasswordSave-    type AttrLabel MountOperationPasswordSavePropertyInfo = "password-save"-    attrGet _ = getMountOperationPasswordSave-    attrSet _ = setMountOperationPasswordSave-    attrConstruct _ = constructMountOperationPasswordSave-    attrClear _ = undefined---- VVV Prop "username"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getMountOperationUsername :: (MonadIO m, MountOperationK o) => o -> m T.Text-getMountOperationUsername obj = liftIO $ checkUnexpectedNothing "getMountOperationUsername" $ getObjectPropertyString obj "username"--setMountOperationUsername :: (MonadIO m, MountOperationK o) => o -> T.Text -> m ()-setMountOperationUsername obj val = liftIO $ setObjectPropertyString obj "username" (Just val)--constructMountOperationUsername :: T.Text -> IO ([Char], GValue)-constructMountOperationUsername val = constructObjectPropertyString "username" (Just val)--data MountOperationUsernamePropertyInfo-instance AttrInfo MountOperationUsernamePropertyInfo where-    type AttrAllowedOps MountOperationUsernamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationUsernamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MountOperationUsernamePropertyInfo = MountOperationK-    type AttrGetType MountOperationUsernamePropertyInfo = T.Text-    type AttrLabel MountOperationUsernamePropertyInfo = "username"-    attrGet _ = getMountOperationUsername-    attrSet _ = setMountOperationUsername-    attrConstruct _ = constructMountOperationUsername-    attrClear _ = undefined--type instance AttributeList MountOperation = MountOperationAttributeList-type MountOperationAttributeList = ('[ '("anonymous", MountOperationAnonymousPropertyInfo), '("choice", MountOperationChoicePropertyInfo), '("domain", MountOperationDomainPropertyInfo), '("password", MountOperationPasswordPropertyInfo), '("passwordSave", MountOperationPasswordSavePropertyInfo), '("username", MountOperationUsernamePropertyInfo)] :: [(Symbol, *)])--mountOperationAnonymous :: AttrLabelProxy "anonymous"-mountOperationAnonymous = AttrLabelProxy--mountOperationChoice :: AttrLabelProxy "choice"-mountOperationChoice = AttrLabelProxy--mountOperationDomain :: AttrLabelProxy "domain"-mountOperationDomain = AttrLabelProxy--mountOperationPassword :: AttrLabelProxy "password"-mountOperationPassword = AttrLabelProxy--mountOperationPasswordSave :: AttrLabelProxy "passwordSave"-mountOperationPasswordSave = AttrLabelProxy--mountOperationUsername :: AttrLabelProxy "username"-mountOperationUsername = AttrLabelProxy--data MountOperationAbortedSignalInfo-instance SignalInfo MountOperationAbortedSignalInfo where-    type HaskellCallbackType MountOperationAbortedSignalInfo = MountOperationAbortedCallback-    connectSignal _ = connectMountOperationAborted--data MountOperationAskPasswordSignalInfo-instance SignalInfo MountOperationAskPasswordSignalInfo where-    type HaskellCallbackType MountOperationAskPasswordSignalInfo = MountOperationAskPasswordCallback-    connectSignal _ = connectMountOperationAskPassword--data MountOperationAskQuestionSignalInfo-instance SignalInfo MountOperationAskQuestionSignalInfo where-    type HaskellCallbackType MountOperationAskQuestionSignalInfo = MountOperationAskQuestionCallback-    connectSignal _ = connectMountOperationAskQuestion--data MountOperationReplySignalInfo-instance SignalInfo MountOperationReplySignalInfo where-    type HaskellCallbackType MountOperationReplySignalInfo = MountOperationReplyCallback-    connectSignal _ = connectMountOperationReply--data MountOperationShowProcessesSignalInfo-instance SignalInfo MountOperationShowProcessesSignalInfo where-    type HaskellCallbackType MountOperationShowProcessesSignalInfo = MountOperationShowProcessesCallback-    connectSignal _ = connectMountOperationShowProcesses--data MountOperationShowUnmountProgressSignalInfo-instance SignalInfo MountOperationShowUnmountProgressSignalInfo where-    type HaskellCallbackType MountOperationShowUnmountProgressSignalInfo = MountOperationShowUnmountProgressCallback-    connectSignal _ = connectMountOperationShowUnmountProgress--type instance SignalList MountOperation = MountOperationSignalList-type MountOperationSignalList = ('[ '("aborted", MountOperationAbortedSignalInfo), '("askPassword", MountOperationAskPasswordSignalInfo), '("askQuestion", MountOperationAskQuestionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("reply", MountOperationReplySignalInfo), '("showProcesses", MountOperationShowProcessesSignalInfo), '("showUnmountProgress", MountOperationShowUnmountProgressSignalInfo)] :: [(Symbol, *)])---- method MountOperation::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "MountOperation")--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_new" g_mount_operation_new :: -    IO (Ptr MountOperation)---mountOperationNew ::-    (MonadIO m) =>-    m MountOperation                        -- result-mountOperationNew  = liftIO $ do-    result <- g_mount_operation_new-    checkUnexpectedReturnNULL "g_mount_operation_new" result-    result' <- (wrapObject MountOperation) result-    return result'---- method MountOperation::get_anonymous--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    IO CInt---mountOperationGetAnonymous ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-mountOperationGetAnonymous _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_operation_get_anonymous _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MountOperationGetAnonymousMethodInfo-instance (signature ~ (m Bool), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetAnonymousMethodInfo a signature where-    overloadedMethod _ = mountOperationGetAnonymous---- method MountOperation::get_choice--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    IO Int32---mountOperationGetChoice ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-mountOperationGetChoice _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_operation_get_choice _obj'-    touchManagedPtr _obj-    return result--data MountOperationGetChoiceMethodInfo-instance (signature ~ (m Int32), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetChoiceMethodInfo a signature where-    overloadedMethod _ = mountOperationGetChoice---- method MountOperation::get_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    IO CString---mountOperationGetDomain ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-mountOperationGetDomain _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_operation_get_domain _obj'-    checkUnexpectedReturnNULL "g_mount_operation_get_domain" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data MountOperationGetDomainMethodInfo-instance (signature ~ (m T.Text), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetDomainMethodInfo a signature where-    overloadedMethod _ = mountOperationGetDomain---- method MountOperation::get_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    IO CString---mountOperationGetPassword ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-mountOperationGetPassword _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_operation_get_password _obj'-    checkUnexpectedReturnNULL "g_mount_operation_get_password" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data MountOperationGetPasswordMethodInfo-instance (signature ~ (m T.Text), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetPasswordMethodInfo a signature where-    overloadedMethod _ = mountOperationGetPassword---- method MountOperation::get_password_save--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "PasswordSave")--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_get_password_save" g_mount_operation_get_password_save :: -    Ptr MountOperation ->                   -- _obj : TInterface "Gio" "MountOperation"-    IO CUInt---mountOperationGetPasswordSave ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> m PasswordSave                       -- result-mountOperationGetPasswordSave _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_operation_get_password_save _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data MountOperationGetPasswordSaveMethodInfo-instance (signature ~ (m PasswordSave), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetPasswordSaveMethodInfo a signature where-    overloadedMethod _ = mountOperationGetPasswordSave---- method MountOperation::get_username--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    IO CString---mountOperationGetUsername ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-mountOperationGetUsername _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_mount_operation_get_username _obj'-    checkUnexpectedReturnNULL "g_mount_operation_get_username" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data MountOperationGetUsernameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetUsernameMethodInfo a signature where-    overloadedMethod _ = mountOperationGetUsername---- method MountOperation::reply--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "MountOperationResult", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    CUInt ->                                -- result : TInterface "Gio" "MountOperationResult"-    IO ()---mountOperationReply ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> MountOperationResult                 -- result_-    -> m ()                                 -- result-mountOperationReply _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = (fromIntegral . fromEnum) result_-    g_mount_operation_reply _obj' result_'-    touchManagedPtr _obj-    return ()--data MountOperationReplyMethodInfo-instance (signature ~ (MountOperationResult -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationReplyMethodInfo a signature where-    overloadedMethod _ = mountOperationReply---- method MountOperation::set_anonymous--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "anonymous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    CInt ->                                 -- anonymous : TBasicType TBoolean-    IO ()---mountOperationSetAnonymous ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> Bool                                 -- anonymous-    -> m ()                                 -- result-mountOperationSetAnonymous _obj anonymous = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let anonymous' = (fromIntegral . fromEnum) anonymous-    g_mount_operation_set_anonymous _obj' anonymous'-    touchManagedPtr _obj-    return ()--data MountOperationSetAnonymousMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetAnonymousMethodInfo a signature where-    overloadedMethod _ = mountOperationSetAnonymous---- method MountOperation::set_choice--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "choice", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    Int32 ->                                -- choice : TBasicType TInt-    IO ()---mountOperationSetChoice ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> Int32                                -- choice-    -> m ()                                 -- result-mountOperationSetChoice _obj choice = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_mount_operation_set_choice _obj' choice-    touchManagedPtr _obj-    return ()--data MountOperationSetChoiceMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetChoiceMethodInfo a signature where-    overloadedMethod _ = mountOperationSetChoice---- method MountOperation::set_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    CString ->                              -- domain : TBasicType TUTF8-    IO ()---mountOperationSetDomain ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> T.Text                               -- domain-    -> m ()                                 -- result-mountOperationSetDomain _obj domain = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    domain' <- textToCString domain-    g_mount_operation_set_domain _obj' domain'-    touchManagedPtr _obj-    freeMem domain'-    return ()--data MountOperationSetDomainMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetDomainMethodInfo a signature where-    overloadedMethod _ = mountOperationSetDomain---- method MountOperation::set_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    CString ->                              -- password : TBasicType TUTF8-    IO ()---mountOperationSetPassword ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> T.Text                               -- password-    -> m ()                                 -- result-mountOperationSetPassword _obj password = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    password' <- textToCString password-    g_mount_operation_set_password _obj' password'-    touchManagedPtr _obj-    freeMem password'-    return ()--data MountOperationSetPasswordMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetPasswordMethodInfo a signature where-    overloadedMethod _ = mountOperationSetPassword---- method MountOperation::set_password_save--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save", argType = TInterface "Gio" "PasswordSave", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    CUInt ->                                -- save : TInterface "Gio" "PasswordSave"-    IO ()---mountOperationSetPasswordSave ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> PasswordSave                         -- save-    -> m ()                                 -- result-mountOperationSetPasswordSave _obj save = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let save' = (fromIntegral . fromEnum) save-    g_mount_operation_set_password_save _obj' save'-    touchManagedPtr _obj-    return ()--data MountOperationSetPasswordSaveMethodInfo-instance (signature ~ (PasswordSave -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetPasswordSaveMethodInfo a signature where-    overloadedMethod _ = mountOperationSetPasswordSave---- method MountOperation::set_username--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "MountOperation"-    CString ->                              -- username : TBasicType TUTF8-    IO ()---mountOperationSetUsername ::-    (MonadIO m, MountOperationK a) =>-    a                                       -- _obj-    -> T.Text                               -- username-    -> m ()                                 -- result-mountOperationSetUsername _obj username = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    username' <- textToCString username-    g_mount_operation_set_username _obj' username'-    touchManagedPtr _obj-    freeMem username'-    return ()--data MountOperationSetUsernameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetUsernameMethodInfo a signature where-    overloadedMethod _ = mountOperationSetUsername--
− GI/Gio/Objects/MountOperation.hs-boot 
@@ -1,38 +0,0 @@-module GI.Gio.Objects.MountOperation where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MountOperation = MountOperation (ForeignPtr MountOperation)-instance GObject MountOperation where-class GObject o => MountOperationK o-instance (GObject o, IsDescendantOf MountOperation o) => MountOperationK o-data MountOperationAnonymousPropertyInfo-data MountOperationChoicePropertyInfo-data MountOperationDomainPropertyInfo-data MountOperationPasswordPropertyInfo-data MountOperationPasswordSavePropertyInfo-data MountOperationUsernamePropertyInfo-data MountOperationAbortedSignalInfo-data MountOperationAskPasswordSignalInfo-data MountOperationAskQuestionSignalInfo-data MountOperationReplySignalInfo-data MountOperationShowProcessesSignalInfo-data MountOperationShowUnmountProgressSignalInfo-data MountOperationGetAnonymousMethodInfo-data MountOperationGetChoiceMethodInfo-data MountOperationGetDomainMethodInfo-data MountOperationGetPasswordMethodInfo-data MountOperationGetPasswordSaveMethodInfo-data MountOperationGetUsernameMethodInfo-data MountOperationReplyMethodInfo-data MountOperationSetAnonymousMethodInfo-data MountOperationSetChoiceMethodInfo-data MountOperationSetDomainMethodInfo-data MountOperationSetPasswordMethodInfo-data MountOperationSetPasswordSaveMethodInfo-data MountOperationSetUsernameMethodInfo
− GI/Gio/Objects/NativeVolumeMonitor.hs 
@@ -1,97 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.NativeVolumeMonitor-    ( ---- * Exported types-    NativeVolumeMonitor(..)                 ,-    NativeVolumeMonitorK                    ,-    toNativeVolumeMonitor                   ,-    noNativeVolumeMonitor                   ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype NativeVolumeMonitor = NativeVolumeMonitor (ForeignPtr NativeVolumeMonitor)-foreign import ccall "g_native_volume_monitor_get_type"-    c_g_native_volume_monitor_get_type :: IO GType--type instance ParentTypes NativeVolumeMonitor = NativeVolumeMonitorParentTypes-type NativeVolumeMonitorParentTypes = '[VolumeMonitor, GObject.Object]--instance GObject NativeVolumeMonitor where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_native_volume_monitor_get_type-    --class GObject o => NativeVolumeMonitorK o-instance (GObject o, IsDescendantOf NativeVolumeMonitor o) => NativeVolumeMonitorK o--toNativeVolumeMonitor :: NativeVolumeMonitorK o => o -> IO NativeVolumeMonitor-toNativeVolumeMonitor = unsafeCastTo NativeVolumeMonitor--noNativeVolumeMonitor :: Maybe NativeVolumeMonitor-noNativeVolumeMonitor = Nothing--type family ResolveNativeVolumeMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveNativeVolumeMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveNativeVolumeMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveNativeVolumeMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveNativeVolumeMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveNativeVolumeMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveNativeVolumeMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveNativeVolumeMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveNativeVolumeMonitorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveNativeVolumeMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveNativeVolumeMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveNativeVolumeMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveNativeVolumeMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveNativeVolumeMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveNativeVolumeMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveNativeVolumeMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveNativeVolumeMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveNativeVolumeMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveNativeVolumeMonitorMethod "getConnectedDrives" o = VolumeMonitorGetConnectedDrivesMethodInfo-    ResolveNativeVolumeMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveNativeVolumeMonitorMethod "getMountForUuid" o = VolumeMonitorGetMountForUuidMethodInfo-    ResolveNativeVolumeMonitorMethod "getMounts" o = VolumeMonitorGetMountsMethodInfo-    ResolveNativeVolumeMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveNativeVolumeMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveNativeVolumeMonitorMethod "getVolumeForUuid" o = VolumeMonitorGetVolumeForUuidMethodInfo-    ResolveNativeVolumeMonitorMethod "getVolumes" o = VolumeMonitorGetVolumesMethodInfo-    ResolveNativeVolumeMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveNativeVolumeMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveNativeVolumeMonitorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNativeVolumeMonitorMethod t NativeVolumeMonitor, MethodInfo info NativeVolumeMonitor p) => IsLabelProxy t (NativeVolumeMonitor -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNativeVolumeMonitorMethod t NativeVolumeMonitor, MethodInfo info NativeVolumeMonitor p) => IsLabel t (NativeVolumeMonitor -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList NativeVolumeMonitor = NativeVolumeMonitorAttributeList-type NativeVolumeMonitorAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList NativeVolumeMonitor = NativeVolumeMonitorSignalList-type NativeVolumeMonitorSignalList = ('[ '("driveChanged", VolumeMonitorDriveChangedSignalInfo), '("driveConnected", VolumeMonitorDriveConnectedSignalInfo), '("driveDisconnected", VolumeMonitorDriveDisconnectedSignalInfo), '("driveEjectButton", VolumeMonitorDriveEjectButtonSignalInfo), '("driveStopButton", VolumeMonitorDriveStopButtonSignalInfo), '("mountAdded", VolumeMonitorMountAddedSignalInfo), '("mountChanged", VolumeMonitorMountChangedSignalInfo), '("mountPreUnmount", VolumeMonitorMountPreUnmountSignalInfo), '("mountRemoved", VolumeMonitorMountRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("volumeAdded", VolumeMonitorVolumeAddedSignalInfo), '("volumeChanged", VolumeMonitorVolumeChangedSignalInfo), '("volumeRemoved", VolumeMonitorVolumeRemovedSignalInfo)] :: [(Symbol, *)])--
− GI/Gio/Objects/NativeVolumeMonitor.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gio.Objects.NativeVolumeMonitor where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype NativeVolumeMonitor = NativeVolumeMonitor (ForeignPtr NativeVolumeMonitor)-instance GObject NativeVolumeMonitor where-class GObject o => NativeVolumeMonitorK o-instance (GObject o, IsDescendantOf NativeVolumeMonitor o) => NativeVolumeMonitorK o
− GI/Gio/Objects/NetworkAddress.hs 
@@ -1,432 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.NetworkAddress-    ( ---- * Exported types-    NetworkAddress(..)                      ,-    NetworkAddressK                         ,-    toNetworkAddress                        ,-    noNetworkAddress                        ,--- -- * Methods--- ** networkAddressGetHostname-    NetworkAddressGetHostnameMethodInfo     ,-    networkAddressGetHostname               ,----- ** networkAddressGetPort-    NetworkAddressGetPortMethodInfo         ,-    networkAddressGetPort                   ,----- ** networkAddressGetScheme-    NetworkAddressGetSchemeMethodInfo       ,-    networkAddressGetScheme                 ,----- ** networkAddressNew-    networkAddressNew                       ,----- ** networkAddressNewLoopback-    networkAddressNewLoopback               ,----- ** networkAddressParse-    networkAddressParse                     ,----- ** networkAddressParseUri-    networkAddressParseUri                  ,----- -- * Properties--- ** Hostname-    NetworkAddressHostnamePropertyInfo      ,-    constructNetworkAddressHostname         ,-    getNetworkAddressHostname               ,-    networkAddressHostname                  ,----- ** Port-    NetworkAddressPortPropertyInfo          ,-    constructNetworkAddressPort             ,-    getNetworkAddressPort                   ,-    networkAddressPort                      ,----- ** Scheme-    NetworkAddressSchemePropertyInfo        ,-    constructNetworkAddressScheme           ,-    getNetworkAddressScheme                 ,-    networkAddressScheme                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype NetworkAddress = NetworkAddress (ForeignPtr NetworkAddress)-foreign import ccall "g_network_address_get_type"-    c_g_network_address_get_type :: IO GType--type instance ParentTypes NetworkAddress = NetworkAddressParentTypes-type NetworkAddressParentTypes = '[GObject.Object, SocketConnectable]--instance GObject NetworkAddress where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_network_address_get_type-    --class GObject o => NetworkAddressK o-instance (GObject o, IsDescendantOf NetworkAddress o) => NetworkAddressK o--toNetworkAddress :: NetworkAddressK o => o -> IO NetworkAddress-toNetworkAddress = unsafeCastTo NetworkAddress--noNetworkAddress :: Maybe NetworkAddress-noNetworkAddress = Nothing--type family ResolveNetworkAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveNetworkAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveNetworkAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveNetworkAddressMethod "enumerate" o = SocketConnectableEnumerateMethodInfo-    ResolveNetworkAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveNetworkAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveNetworkAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveNetworkAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveNetworkAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveNetworkAddressMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo-    ResolveNetworkAddressMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveNetworkAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveNetworkAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveNetworkAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveNetworkAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveNetworkAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveNetworkAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveNetworkAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveNetworkAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveNetworkAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveNetworkAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveNetworkAddressMethod "getHostname" o = NetworkAddressGetHostnameMethodInfo-    ResolveNetworkAddressMethod "getPort" o = NetworkAddressGetPortMethodInfo-    ResolveNetworkAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveNetworkAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveNetworkAddressMethod "getScheme" o = NetworkAddressGetSchemeMethodInfo-    ResolveNetworkAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveNetworkAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveNetworkAddressMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNetworkAddressMethod t NetworkAddress, MethodInfo info NetworkAddress p) => IsLabelProxy t (NetworkAddress -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNetworkAddressMethod t NetworkAddress, MethodInfo info NetworkAddress p) => IsLabel t (NetworkAddress -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "hostname"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getNetworkAddressHostname :: (MonadIO m, NetworkAddressK o) => o -> m T.Text-getNetworkAddressHostname obj = liftIO $ checkUnexpectedNothing "getNetworkAddressHostname" $ getObjectPropertyString obj "hostname"--constructNetworkAddressHostname :: T.Text -> IO ([Char], GValue)-constructNetworkAddressHostname val = constructObjectPropertyString "hostname" (Just val)--data NetworkAddressHostnamePropertyInfo-instance AttrInfo NetworkAddressHostnamePropertyInfo where-    type AttrAllowedOps NetworkAddressHostnamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NetworkAddressHostnamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkAddressHostnamePropertyInfo = NetworkAddressK-    type AttrGetType NetworkAddressHostnamePropertyInfo = T.Text-    type AttrLabel NetworkAddressHostnamePropertyInfo = "hostname"-    attrGet _ = getNetworkAddressHostname-    attrSet _ = undefined-    attrConstruct _ = constructNetworkAddressHostname-    attrClear _ = undefined---- VVV Prop "port"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getNetworkAddressPort :: (MonadIO m, NetworkAddressK o) => o -> m Word32-getNetworkAddressPort obj = liftIO $ getObjectPropertyUInt32 obj "port"--constructNetworkAddressPort :: Word32 -> IO ([Char], GValue)-constructNetworkAddressPort val = constructObjectPropertyUInt32 "port" val--data NetworkAddressPortPropertyInfo-instance AttrInfo NetworkAddressPortPropertyInfo where-    type AttrAllowedOps NetworkAddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint NetworkAddressPortPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint NetworkAddressPortPropertyInfo = NetworkAddressK-    type AttrGetType NetworkAddressPortPropertyInfo = Word32-    type AttrLabel NetworkAddressPortPropertyInfo = "port"-    attrGet _ = getNetworkAddressPort-    attrSet _ = undefined-    attrConstruct _ = constructNetworkAddressPort-    attrClear _ = undefined---- VVV Prop "scheme"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getNetworkAddressScheme :: (MonadIO m, NetworkAddressK o) => o -> m T.Text-getNetworkAddressScheme obj = liftIO $ checkUnexpectedNothing "getNetworkAddressScheme" $ getObjectPropertyString obj "scheme"--constructNetworkAddressScheme :: T.Text -> IO ([Char], GValue)-constructNetworkAddressScheme val = constructObjectPropertyString "scheme" (Just val)--data NetworkAddressSchemePropertyInfo-instance AttrInfo NetworkAddressSchemePropertyInfo where-    type AttrAllowedOps NetworkAddressSchemePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NetworkAddressSchemePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkAddressSchemePropertyInfo = NetworkAddressK-    type AttrGetType NetworkAddressSchemePropertyInfo = T.Text-    type AttrLabel NetworkAddressSchemePropertyInfo = "scheme"-    attrGet _ = getNetworkAddressScheme-    attrSet _ = undefined-    attrConstruct _ = constructNetworkAddressScheme-    attrClear _ = undefined--type instance AttributeList NetworkAddress = NetworkAddressAttributeList-type NetworkAddressAttributeList = ('[ '("hostname", NetworkAddressHostnamePropertyInfo), '("port", NetworkAddressPortPropertyInfo), '("scheme", NetworkAddressSchemePropertyInfo)] :: [(Symbol, *)])--networkAddressHostname :: AttrLabelProxy "hostname"-networkAddressHostname = AttrLabelProxy--networkAddressPort :: AttrLabelProxy "port"-networkAddressPort = AttrLabelProxy--networkAddressScheme :: AttrLabelProxy "scheme"-networkAddressScheme = AttrLabelProxy--type instance SignalList NetworkAddress = NetworkAddressSignalList-type NetworkAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method NetworkAddress::new--- method type : Constructor--- Args : [Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---networkAddressNew ::-    (MonadIO m) =>-    T.Text                                  -- hostname-    -> Word16                               -- port-    -> m NetworkAddress                     -- result-networkAddressNew hostname port = liftIO $ do-    hostname' <- textToCString hostname-    result <- g_network_address_new hostname' port-    checkUnexpectedReturnNULL "g_network_address_new" result-    result' <- (wrapObject NetworkAddress) result-    freeMem hostname'-    return result'---- method NetworkAddress::new_loopback--- method type : Constructor--- Args : [Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---networkAddressNewLoopback ::-    (MonadIO m) =>-    Word16                                  -- port-    -> m NetworkAddress                     -- result-networkAddressNewLoopback port = liftIO $ do-    result <- g_network_address_new_loopback port-    checkUnexpectedReturnNULL "g_network_address_new_loopback" result-    result' <- (wrapObject NetworkAddress) result-    return result'---- method NetworkAddress::get_hostname--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkAddress"-    IO CString---networkAddressGetHostname ::-    (MonadIO m, NetworkAddressK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-networkAddressGetHostname _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_network_address_get_hostname _obj'-    checkUnexpectedReturnNULL "g_network_address_get_hostname" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data NetworkAddressGetHostnameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, NetworkAddressK a) => MethodInfo NetworkAddressGetHostnameMethodInfo a signature where-    overloadedMethod _ = networkAddressGetHostname---- method NetworkAddress::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkAddress"-    IO Word16---networkAddressGetPort ::-    (MonadIO m, NetworkAddressK a) =>-    a                                       -- _obj-    -> m Word16                             -- result-networkAddressGetPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_network_address_get_port _obj'-    touchManagedPtr _obj-    return result--data NetworkAddressGetPortMethodInfo-instance (signature ~ (m Word16), MonadIO m, NetworkAddressK a) => MethodInfo NetworkAddressGetPortMethodInfo a signature where-    overloadedMethod _ = networkAddressGetPort---- method NetworkAddress::get_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkAddress"-    IO CString---networkAddressGetScheme ::-    (MonadIO m, NetworkAddressK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-networkAddressGetScheme _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_network_address_get_scheme _obj'-    checkUnexpectedReturnNULL "g_network_address_get_scheme" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data NetworkAddressGetSchemeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, NetworkAddressK a) => MethodInfo NetworkAddressGetSchemeMethodInfo a signature where-    overloadedMethod _ = networkAddressGetScheme---- method NetworkAddress::parse--- method type : MemberFunction--- Args : [Arg {argCName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---networkAddressParse ::-    (MonadIO m) =>-    T.Text                                  -- hostAndPort-    -> Word16                               -- defaultPort-    -> m NetworkAddress                     -- result-networkAddressParse hostAndPort defaultPort = liftIO $ do-    hostAndPort' <- textToCString hostAndPort-    onException (do-        result <- propagateGError $ g_network_address_parse hostAndPort' defaultPort-        checkUnexpectedReturnNULL "g_network_address_parse" result-        result' <- (wrapObject NetworkAddress) result-        freeMem hostAndPort'-        return result'-     ) (do-        freeMem hostAndPort'-     )---- method NetworkAddress::parse_uri--- method type : MemberFunction--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---networkAddressParseUri ::-    (MonadIO m) =>-    T.Text                                  -- uri-    -> Word16                               -- defaultPort-    -> m NetworkAddress                     -- result-networkAddressParseUri uri defaultPort = liftIO $ do-    uri' <- textToCString uri-    onException (do-        result <- propagateGError $ g_network_address_parse_uri uri' defaultPort-        checkUnexpectedReturnNULL "g_network_address_parse_uri" result-        result' <- (wrapObject NetworkAddress) result-        freeMem uri'-        return result'-     ) (do-        freeMem uri'-     )--
− GI/Gio/Objects/NetworkAddress.hs-boot 
@@ -1,19 +0,0 @@-module GI.Gio.Objects.NetworkAddress where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype NetworkAddress = NetworkAddress (ForeignPtr NetworkAddress)-instance GObject NetworkAddress where-class GObject o => NetworkAddressK o-instance (GObject o, IsDescendantOf NetworkAddress o) => NetworkAddressK o-data NetworkAddressHostnamePropertyInfo-data NetworkAddressPortPropertyInfo-data NetworkAddressSchemePropertyInfo-data NetworkAddressGetHostnameMethodInfo-data NetworkAddressGetPortMethodInfo-data NetworkAddressGetSchemeMethodInfo
− GI/Gio/Objects/NetworkService.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.NetworkService-    ( ---- * Exported types-    NetworkService(..)                      ,-    NetworkServiceK                         ,-    toNetworkService                        ,-    noNetworkService                        ,--- -- * Methods--- ** networkServiceGetDomain-    NetworkServiceGetDomainMethodInfo       ,-    networkServiceGetDomain                 ,----- ** networkServiceGetProtocol-    NetworkServiceGetProtocolMethodInfo     ,-    networkServiceGetProtocol               ,----- ** networkServiceGetScheme-    NetworkServiceGetSchemeMethodInfo       ,-    networkServiceGetScheme                 ,----- ** networkServiceGetService-    NetworkServiceGetServiceMethodInfo      ,-    networkServiceGetService                ,----- ** networkServiceNew-    networkServiceNew                       ,----- ** networkServiceSetScheme-    NetworkServiceSetSchemeMethodInfo       ,-    networkServiceSetScheme                 ,----- -- * Properties--- ** Domain-    NetworkServiceDomainPropertyInfo        ,-    constructNetworkServiceDomain           ,-    getNetworkServiceDomain                 ,-    networkServiceDomain                    ,----- ** Protocol-    NetworkServiceProtocolPropertyInfo      ,-    constructNetworkServiceProtocol         ,-    getNetworkServiceProtocol               ,-    networkServiceProtocol                  ,----- ** Scheme-    NetworkServiceSchemePropertyInfo        ,-    constructNetworkServiceScheme           ,-    getNetworkServiceScheme                 ,-    networkServiceScheme                    ,-    setNetworkServiceScheme                 ,----- ** Service-    NetworkServiceServicePropertyInfo       ,-    constructNetworkServiceService          ,-    getNetworkServiceService                ,-    networkServiceService                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype NetworkService = NetworkService (ForeignPtr NetworkService)-foreign import ccall "g_network_service_get_type"-    c_g_network_service_get_type :: IO GType--type instance ParentTypes NetworkService = NetworkServiceParentTypes-type NetworkServiceParentTypes = '[GObject.Object, SocketConnectable]--instance GObject NetworkService where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_network_service_get_type-    --class GObject o => NetworkServiceK o-instance (GObject o, IsDescendantOf NetworkService o) => NetworkServiceK o--toNetworkService :: NetworkServiceK o => o -> IO NetworkService-toNetworkService = unsafeCastTo NetworkService--noNetworkService :: Maybe NetworkService-noNetworkService = Nothing--type family ResolveNetworkServiceMethod (t :: Symbol) (o :: *) :: * where-    ResolveNetworkServiceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveNetworkServiceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveNetworkServiceMethod "enumerate" o = SocketConnectableEnumerateMethodInfo-    ResolveNetworkServiceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveNetworkServiceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveNetworkServiceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveNetworkServiceMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveNetworkServiceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveNetworkServiceMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo-    ResolveNetworkServiceMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveNetworkServiceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveNetworkServiceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveNetworkServiceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveNetworkServiceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveNetworkServiceMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveNetworkServiceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveNetworkServiceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveNetworkServiceMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveNetworkServiceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveNetworkServiceMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveNetworkServiceMethod "getDomain" o = NetworkServiceGetDomainMethodInfo-    ResolveNetworkServiceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveNetworkServiceMethod "getProtocol" o = NetworkServiceGetProtocolMethodInfo-    ResolveNetworkServiceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveNetworkServiceMethod "getScheme" o = NetworkServiceGetSchemeMethodInfo-    ResolveNetworkServiceMethod "getService" o = NetworkServiceGetServiceMethodInfo-    ResolveNetworkServiceMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveNetworkServiceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveNetworkServiceMethod "setScheme" o = NetworkServiceSetSchemeMethodInfo-    ResolveNetworkServiceMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNetworkServiceMethod t NetworkService, MethodInfo info NetworkService p) => IsLabelProxy t (NetworkService -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNetworkServiceMethod t NetworkService, MethodInfo info NetworkService p) => IsLabel t (NetworkService -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "domain"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getNetworkServiceDomain :: (MonadIO m, NetworkServiceK o) => o -> m T.Text-getNetworkServiceDomain obj = liftIO $ checkUnexpectedNothing "getNetworkServiceDomain" $ getObjectPropertyString obj "domain"--constructNetworkServiceDomain :: T.Text -> IO ([Char], GValue)-constructNetworkServiceDomain val = constructObjectPropertyString "domain" (Just val)--data NetworkServiceDomainPropertyInfo-instance AttrInfo NetworkServiceDomainPropertyInfo where-    type AttrAllowedOps NetworkServiceDomainPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NetworkServiceDomainPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkServiceDomainPropertyInfo = NetworkServiceK-    type AttrGetType NetworkServiceDomainPropertyInfo = T.Text-    type AttrLabel NetworkServiceDomainPropertyInfo = "domain"-    attrGet _ = getNetworkServiceDomain-    attrSet _ = undefined-    attrConstruct _ = constructNetworkServiceDomain-    attrClear _ = undefined---- VVV Prop "protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getNetworkServiceProtocol :: (MonadIO m, NetworkServiceK o) => o -> m T.Text-getNetworkServiceProtocol obj = liftIO $ checkUnexpectedNothing "getNetworkServiceProtocol" $ getObjectPropertyString obj "protocol"--constructNetworkServiceProtocol :: T.Text -> IO ([Char], GValue)-constructNetworkServiceProtocol val = constructObjectPropertyString "protocol" (Just val)--data NetworkServiceProtocolPropertyInfo-instance AttrInfo NetworkServiceProtocolPropertyInfo where-    type AttrAllowedOps NetworkServiceProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NetworkServiceProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkServiceProtocolPropertyInfo = NetworkServiceK-    type AttrGetType NetworkServiceProtocolPropertyInfo = T.Text-    type AttrLabel NetworkServiceProtocolPropertyInfo = "protocol"-    attrGet _ = getNetworkServiceProtocol-    attrSet _ = undefined-    attrConstruct _ = constructNetworkServiceProtocol-    attrClear _ = undefined---- VVV Prop "scheme"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getNetworkServiceScheme :: (MonadIO m, NetworkServiceK o) => o -> m T.Text-getNetworkServiceScheme obj = liftIO $ checkUnexpectedNothing "getNetworkServiceScheme" $ getObjectPropertyString obj "scheme"--setNetworkServiceScheme :: (MonadIO m, NetworkServiceK o) => o -> T.Text -> m ()-setNetworkServiceScheme obj val = liftIO $ setObjectPropertyString obj "scheme" (Just val)--constructNetworkServiceScheme :: T.Text -> IO ([Char], GValue)-constructNetworkServiceScheme val = constructObjectPropertyString "scheme" (Just val)--data NetworkServiceSchemePropertyInfo-instance AttrInfo NetworkServiceSchemePropertyInfo where-    type AttrAllowedOps NetworkServiceSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint NetworkServiceSchemePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkServiceSchemePropertyInfo = NetworkServiceK-    type AttrGetType NetworkServiceSchemePropertyInfo = T.Text-    type AttrLabel NetworkServiceSchemePropertyInfo = "scheme"-    attrGet _ = getNetworkServiceScheme-    attrSet _ = setNetworkServiceScheme-    attrConstruct _ = constructNetworkServiceScheme-    attrClear _ = undefined---- VVV Prop "service"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getNetworkServiceService :: (MonadIO m, NetworkServiceK o) => o -> m T.Text-getNetworkServiceService obj = liftIO $ checkUnexpectedNothing "getNetworkServiceService" $ getObjectPropertyString obj "service"--constructNetworkServiceService :: T.Text -> IO ([Char], GValue)-constructNetworkServiceService val = constructObjectPropertyString "service" (Just val)--data NetworkServiceServicePropertyInfo-instance AttrInfo NetworkServiceServicePropertyInfo where-    type AttrAllowedOps NetworkServiceServicePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NetworkServiceServicePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkServiceServicePropertyInfo = NetworkServiceK-    type AttrGetType NetworkServiceServicePropertyInfo = T.Text-    type AttrLabel NetworkServiceServicePropertyInfo = "service"-    attrGet _ = getNetworkServiceService-    attrSet _ = undefined-    attrConstruct _ = constructNetworkServiceService-    attrClear _ = undefined--type instance AttributeList NetworkService = NetworkServiceAttributeList-type NetworkServiceAttributeList = ('[ '("domain", NetworkServiceDomainPropertyInfo), '("protocol", NetworkServiceProtocolPropertyInfo), '("scheme", NetworkServiceSchemePropertyInfo), '("service", NetworkServiceServicePropertyInfo)] :: [(Symbol, *)])--networkServiceDomain :: AttrLabelProxy "domain"-networkServiceDomain = AttrLabelProxy--networkServiceProtocol :: AttrLabelProxy "protocol"-networkServiceProtocol = AttrLabelProxy--networkServiceScheme :: AttrLabelProxy "scheme"-networkServiceScheme = AttrLabelProxy--networkServiceService :: AttrLabelProxy "service"-networkServiceService = AttrLabelProxy--type instance SignalList NetworkService = NetworkServiceSignalList-type NetworkServiceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method NetworkService::new--- method type : Constructor--- Args : [Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---networkServiceNew ::-    (MonadIO m) =>-    T.Text                                  -- service-    -> T.Text                               -- protocol-    -> T.Text                               -- domain-    -> m NetworkService                     -- result-networkServiceNew service protocol domain = liftIO $ do-    service' <- textToCString service-    protocol' <- textToCString protocol-    domain' <- textToCString domain-    result <- g_network_service_new service' protocol' domain'-    checkUnexpectedReturnNULL "g_network_service_new" result-    result' <- (wrapObject NetworkService) result-    freeMem service'-    freeMem protocol'-    freeMem domain'-    return result'---- method NetworkService::get_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkService"-    IO CString---networkServiceGetDomain ::-    (MonadIO m, NetworkServiceK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-networkServiceGetDomain _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_network_service_get_domain _obj'-    checkUnexpectedReturnNULL "g_network_service_get_domain" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data NetworkServiceGetDomainMethodInfo-instance (signature ~ (m T.Text), MonadIO m, NetworkServiceK a) => MethodInfo NetworkServiceGetDomainMethodInfo a signature where-    overloadedMethod _ = networkServiceGetDomain---- method NetworkService::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkService"-    IO CString---networkServiceGetProtocol ::-    (MonadIO m, NetworkServiceK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-networkServiceGetProtocol _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_network_service_get_protocol _obj'-    checkUnexpectedReturnNULL "g_network_service_get_protocol" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data NetworkServiceGetProtocolMethodInfo-instance (signature ~ (m T.Text), MonadIO m, NetworkServiceK a) => MethodInfo NetworkServiceGetProtocolMethodInfo a signature where-    overloadedMethod _ = networkServiceGetProtocol---- method NetworkService::get_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkService"-    IO CString---networkServiceGetScheme ::-    (MonadIO m, NetworkServiceK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-networkServiceGetScheme _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_network_service_get_scheme _obj'-    checkUnexpectedReturnNULL "g_network_service_get_scheme" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data NetworkServiceGetSchemeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, NetworkServiceK a) => MethodInfo NetworkServiceGetSchemeMethodInfo a signature where-    overloadedMethod _ = networkServiceGetScheme---- method NetworkService::get_service--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkService"-    IO CString---networkServiceGetService ::-    (MonadIO m, NetworkServiceK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-networkServiceGetService _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_network_service_get_service _obj'-    checkUnexpectedReturnNULL "g_network_service_get_service" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data NetworkServiceGetServiceMethodInfo-instance (signature ~ (m T.Text), MonadIO m, NetworkServiceK a) => MethodInfo NetworkServiceGetServiceMethodInfo a signature where-    overloadedMethod _ = networkServiceGetService---- method NetworkService::set_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "NetworkService"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---networkServiceSetScheme ::-    (MonadIO m, NetworkServiceK a) =>-    a                                       -- _obj-    -> T.Text                               -- scheme-    -> m ()                                 -- result-networkServiceSetScheme _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    scheme' <- textToCString scheme-    g_network_service_set_scheme _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()--data NetworkServiceSetSchemeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, NetworkServiceK a) => MethodInfo NetworkServiceSetSchemeMethodInfo a signature where-    overloadedMethod _ = networkServiceSetScheme--
− GI/Gio/Objects/NetworkService.hs-boot 
@@ -1,22 +0,0 @@-module GI.Gio.Objects.NetworkService where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype NetworkService = NetworkService (ForeignPtr NetworkService)-instance GObject NetworkService where-class GObject o => NetworkServiceK o-instance (GObject o, IsDescendantOf NetworkService o) => NetworkServiceK o-data NetworkServiceDomainPropertyInfo-data NetworkServiceProtocolPropertyInfo-data NetworkServiceSchemePropertyInfo-data NetworkServiceServicePropertyInfo-data NetworkServiceGetDomainMethodInfo-data NetworkServiceGetProtocolMethodInfo-data NetworkServiceGetSchemeMethodInfo-data NetworkServiceGetServiceMethodInfo-data NetworkServiceSetSchemeMethodInfo
− GI/Gio/Objects/Notification.hs 
@@ -1,481 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Notification-    ( ---- * Exported types-    Notification(..)                        ,-    NotificationK                           ,-    toNotification                          ,-    noNotification                          ,--- -- * Methods--- ** notificationAddButton-    NotificationAddButtonMethodInfo         ,-    notificationAddButton                   ,----- ** notificationAddButtonWithTarget-    NotificationAddButtonWithTargetMethodInfo,-    notificationAddButtonWithTarget         ,----- ** notificationNew-    notificationNew                         ,----- ** notificationSetBody-    NotificationSetBodyMethodInfo           ,-    notificationSetBody                     ,----- ** notificationSetDefaultAction-    NotificationSetDefaultActionMethodInfo  ,-    notificationSetDefaultAction            ,----- ** notificationSetDefaultActionAndTarget-    NotificationSetDefaultActionAndTargetMethodInfo,-    notificationSetDefaultActionAndTarget   ,----- ** notificationSetIcon-    NotificationSetIconMethodInfo           ,-    notificationSetIcon                     ,----- ** notificationSetPriority-    NotificationSetPriorityMethodInfo       ,-    notificationSetPriority                 ,----- ** notificationSetTitle-    NotificationSetTitleMethodInfo          ,-    notificationSetTitle                    ,----- ** notificationSetUrgent-    NotificationSetUrgentMethodInfo         ,-    notificationSetUrgent                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype Notification = Notification (ForeignPtr Notification)-foreign import ccall "g_notification_get_type"-    c_g_notification_get_type :: IO GType--type instance ParentTypes Notification = NotificationParentTypes-type NotificationParentTypes = '[GObject.Object]--instance GObject Notification where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_notification_get_type-    --class GObject o => NotificationK o-instance (GObject o, IsDescendantOf Notification o) => NotificationK o--toNotification :: NotificationK o => o -> IO Notification-toNotification = unsafeCastTo Notification--noNotification :: Maybe Notification-noNotification = Nothing--type family ResolveNotificationMethod (t :: Symbol) (o :: *) :: * where-    ResolveNotificationMethod "addButton" o = NotificationAddButtonMethodInfo-    ResolveNotificationMethod "addButtonWithTarget" o = NotificationAddButtonWithTargetMethodInfo-    ResolveNotificationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveNotificationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveNotificationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveNotificationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveNotificationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveNotificationMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveNotificationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveNotificationMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveNotificationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveNotificationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveNotificationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveNotificationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveNotificationMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveNotificationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveNotificationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveNotificationMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveNotificationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveNotificationMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveNotificationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveNotificationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveNotificationMethod "setBody" o = NotificationSetBodyMethodInfo-    ResolveNotificationMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveNotificationMethod "setDefaultAction" o = NotificationSetDefaultActionMethodInfo-    ResolveNotificationMethod "setDefaultActionAndTarget" o = NotificationSetDefaultActionAndTargetMethodInfo-    ResolveNotificationMethod "setIcon" o = NotificationSetIconMethodInfo-    ResolveNotificationMethod "setPriority" o = NotificationSetPriorityMethodInfo-    ResolveNotificationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveNotificationMethod "setTitle" o = NotificationSetTitleMethodInfo-    ResolveNotificationMethod "setUrgent" o = NotificationSetUrgentMethodInfo-    ResolveNotificationMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabelProxy t (Notification -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabel t (Notification -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Notification = NotificationAttributeList-type NotificationAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Notification = NotificationSignalList-type NotificationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Notification::new--- method type : Constructor--- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Notification")--- throws : False--- Skip return : False--foreign import ccall "g_notification_new" g_notification_new :: -    CString ->                              -- title : TBasicType TUTF8-    IO (Ptr Notification)---notificationNew ::-    (MonadIO m) =>-    T.Text                                  -- title-    -> m Notification                       -- result-notificationNew title = liftIO $ do-    title' <- textToCString title-    result <- g_notification_new title'-    checkUnexpectedReturnNULL "g_notification_new" result-    result' <- (wrapObject Notification) result-    freeMem title'-    return result'---- method Notification::add_button--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "Notification"-    CString ->                              -- label : TBasicType TUTF8-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()---notificationAddButton ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> T.Text                               -- label-    -> T.Text                               -- detailedAction-    -> m ()                                 -- result-notificationAddButton _obj label detailedAction = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    label' <- textToCString label-    detailedAction' <- textToCString detailedAction-    g_notification_add_button _obj' label' detailedAction'-    touchManagedPtr _obj-    freeMem label'-    freeMem detailedAction'-    return ()--data NotificationAddButtonMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationAddButtonMethodInfo a signature where-    overloadedMethod _ = notificationAddButton---- method Notification::add_button_with_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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 ->                     -- _obj : TInterface "Gio" "Notification"-    CString ->                              -- label : TBasicType TUTF8-    CString ->                              -- action : TBasicType TUTF8-    Ptr GVariant ->                         -- target : TVariant-    IO ()---notificationAddButtonWithTarget ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> T.Text                               -- label-    -> T.Text                               -- action-    -> Maybe (GVariant)                     -- target-    -> m ()                                 -- result-notificationAddButtonWithTarget _obj label action target = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    label' <- textToCString label-    action' <- textToCString action-    maybeTarget <- case target of-        Nothing -> return nullPtr-        Just jTarget -> do-            let jTarget' = unsafeManagedPtrGetPtr jTarget-            return jTarget'-    g_notification_add_button_with_target_value _obj' label' action' maybeTarget-    touchManagedPtr _obj-    freeMem label'-    freeMem action'-    return ()--data NotificationAddButtonWithTargetMethodInfo-instance (signature ~ (T.Text -> T.Text -> Maybe (GVariant) -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationAddButtonWithTargetMethodInfo a signature where-    overloadedMethod _ = notificationAddButtonWithTarget---- method Notification::set_body--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                     -- _obj : TInterface "Gio" "Notification"-    CString ->                              -- body : TBasicType TUTF8-    IO ()---notificationSetBody ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- body-    -> m ()                                 -- result-notificationSetBody _obj body = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeBody <- case body of-        Nothing -> return nullPtr-        Just jBody -> do-            jBody' <- textToCString jBody-            return jBody'-    g_notification_set_body _obj' maybeBody-    touchManagedPtr _obj-    freeMem maybeBody-    return ()--data NotificationSetBodyMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetBodyMethodInfo a signature where-    overloadedMethod _ = notificationSetBody---- method Notification::set_default_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "Notification"-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()---notificationSetDefaultAction ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> T.Text                               -- detailedAction-    -> m ()                                 -- result-notificationSetDefaultAction _obj detailedAction = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    detailedAction' <- textToCString detailedAction-    g_notification_set_default_action _obj' detailedAction'-    touchManagedPtr _obj-    freeMem detailedAction'-    return ()--data NotificationSetDefaultActionMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetDefaultActionMethodInfo a signature where-    overloadedMethod _ = notificationSetDefaultAction---- method Notification::set_default_action_and_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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 ->                     -- _obj : TInterface "Gio" "Notification"-    CString ->                              -- action : TBasicType TUTF8-    Ptr GVariant ->                         -- target : TVariant-    IO ()---notificationSetDefaultActionAndTarget ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> T.Text                               -- action-    -> Maybe (GVariant)                     -- target-    -> m ()                                 -- result-notificationSetDefaultActionAndTarget _obj action target = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    action' <- textToCString action-    maybeTarget <- case target of-        Nothing -> return nullPtr-        Just jTarget -> do-            let jTarget' = unsafeManagedPtrGetPtr jTarget-            return jTarget'-    g_notification_set_default_action_and_target_value _obj' action' maybeTarget-    touchManagedPtr _obj-    freeMem action'-    return ()--data NotificationSetDefaultActionAndTargetMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetDefaultActionAndTargetMethodInfo a signature where-    overloadedMethod _ = notificationSetDefaultActionAndTarget---- method Notification::set_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "Notification"-    Ptr Icon ->                             -- icon : TInterface "Gio" "Icon"-    IO ()---notificationSetIcon ::-    (MonadIO m, NotificationK a, IconK b) =>-    a                                       -- _obj-    -> b                                    -- icon-    -> m ()                                 -- result-notificationSetIcon _obj icon = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let icon' = unsafeManagedPtrCastPtr icon-    g_notification_set_icon _obj' icon'-    touchManagedPtr _obj-    touchManagedPtr icon-    return ()--data NotificationSetIconMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, NotificationK a, IconK b) => MethodInfo NotificationSetIconMethodInfo a signature where-    overloadedMethod _ = notificationSetIcon---- method Notification::set_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Gio" "NotificationPriority", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "Notification"-    CUInt ->                                -- priority : TInterface "Gio" "NotificationPriority"-    IO ()---notificationSetPriority ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> NotificationPriority                 -- priority-    -> m ()                                 -- result-notificationSetPriority _obj priority = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let priority' = (fromIntegral . fromEnum) priority-    g_notification_set_priority _obj' priority'-    touchManagedPtr _obj-    return ()--data NotificationSetPriorityMethodInfo-instance (signature ~ (NotificationPriority -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetPriorityMethodInfo a signature where-    overloadedMethod _ = notificationSetPriority---- method Notification::set_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "Notification"-    CString ->                              -- title : TBasicType TUTF8-    IO ()---notificationSetTitle ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> T.Text                               -- title-    -> m ()                                 -- result-notificationSetTitle _obj title = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    title' <- textToCString title-    g_notification_set_title _obj' title'-    touchManagedPtr _obj-    freeMem title'-    return ()--data NotificationSetTitleMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetTitleMethodInfo a signature where-    overloadedMethod _ = notificationSetTitle---- method Notification::set_urgent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "Notification"-    CInt ->                                 -- urgent : TBasicType TBoolean-    IO ()---notificationSetUrgent ::-    (MonadIO m, NotificationK a) =>-    a                                       -- _obj-    -> Bool                                 -- urgent-    -> m ()                                 -- result-notificationSetUrgent _obj urgent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let urgent' = (fromIntegral . fromEnum) urgent-    g_notification_set_urgent _obj' urgent'-    touchManagedPtr _obj-    return ()--data NotificationSetUrgentMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetUrgentMethodInfo a signature where-    overloadedMethod _ = notificationSetUrgent--
− GI/Gio/Objects/Notification.hs-boot 
@@ -1,22 +0,0 @@-module GI.Gio.Objects.Notification where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Notification = Notification (ForeignPtr Notification)-instance GObject Notification where-class GObject o => NotificationK o-instance (GObject o, IsDescendantOf Notification o) => NotificationK o-data NotificationAddButtonMethodInfo-data NotificationAddButtonWithTargetMethodInfo-data NotificationSetBodyMethodInfo-data NotificationSetDefaultActionMethodInfo-data NotificationSetDefaultActionAndTargetMethodInfo-data NotificationSetIconMethodInfo-data NotificationSetPriorityMethodInfo-data NotificationSetTitleMethodInfo-data NotificationSetUrgentMethodInfo
− GI/Gio/Objects/OutputStream.hs 
@@ -1,1176 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.OutputStream-    ( ---- * Exported types-    OutputStream(..)                        ,-    OutputStreamK                           ,-    toOutputStream                          ,-    noOutputStream                          ,--- -- * Methods--- ** outputStreamClearPending-    OutputStreamClearPendingMethodInfo      ,-    outputStreamClearPending                ,----- ** outputStreamClose-    OutputStreamCloseMethodInfo             ,-    outputStreamClose                       ,----- ** outputStreamCloseAsync-    OutputStreamCloseAsyncMethodInfo        ,-    outputStreamCloseAsync                  ,----- ** outputStreamCloseFinish-    OutputStreamCloseFinishMethodInfo       ,-    outputStreamCloseFinish                 ,----- ** outputStreamFlush-    OutputStreamFlushMethodInfo             ,-    outputStreamFlush                       ,----- ** outputStreamFlushAsync-    OutputStreamFlushAsyncMethodInfo        ,-    outputStreamFlushAsync                  ,----- ** outputStreamFlushFinish-    OutputStreamFlushFinishMethodInfo       ,-    outputStreamFlushFinish                 ,----- ** outputStreamHasPending-    OutputStreamHasPendingMethodInfo        ,-    outputStreamHasPending                  ,----- ** outputStreamIsClosed-    OutputStreamIsClosedMethodInfo          ,-    outputStreamIsClosed                    ,----- ** outputStreamIsClosing-    OutputStreamIsClosingMethodInfo         ,-    outputStreamIsClosing                   ,----- ** outputStreamSetPending-    OutputStreamSetPendingMethodInfo        ,-    outputStreamSetPending                  ,----- ** outputStreamSplice-    OutputStreamSpliceMethodInfo            ,-    outputStreamSplice                      ,----- ** outputStreamSpliceAsync-    OutputStreamSpliceAsyncMethodInfo       ,-    outputStreamSpliceAsync                 ,----- ** outputStreamSpliceFinish-    OutputStreamSpliceFinishMethodInfo      ,-    outputStreamSpliceFinish                ,----- ** outputStreamWrite-    OutputStreamWriteMethodInfo             ,-    outputStreamWrite                       ,----- ** outputStreamWriteAll-    OutputStreamWriteAllMethodInfo          ,-    outputStreamWriteAll                    ,----- ** outputStreamWriteAllAsync-    OutputStreamWriteAllAsyncMethodInfo     ,-    outputStreamWriteAllAsync               ,----- ** outputStreamWriteAllFinish-    OutputStreamWriteAllFinishMethodInfo    ,-    outputStreamWriteAllFinish              ,----- ** outputStreamWriteAsync-    OutputStreamWriteAsyncMethodInfo        ,-    outputStreamWriteAsync                  ,----- ** outputStreamWriteBytes-    OutputStreamWriteBytesMethodInfo        ,-    outputStreamWriteBytes                  ,----- ** outputStreamWriteBytesAsync-    OutputStreamWriteBytesAsyncMethodInfo   ,-    outputStreamWriteBytesAsync             ,----- ** outputStreamWriteBytesFinish-    OutputStreamWriteBytesFinishMethodInfo  ,-    outputStreamWriteBytesFinish            ,----- ** outputStreamWriteFinish-    OutputStreamWriteFinishMethodInfo       ,-    outputStreamWriteFinish                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype OutputStream = OutputStream (ForeignPtr OutputStream)-foreign import ccall "g_output_stream_get_type"-    c_g_output_stream_get_type :: IO GType--type instance ParentTypes OutputStream = OutputStreamParentTypes-type OutputStreamParentTypes = '[GObject.Object]--instance GObject OutputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_output_stream_get_type-    --class GObject o => OutputStreamK o-instance (GObject o, IsDescendantOf OutputStream o) => OutputStreamK o--toOutputStream :: OutputStreamK o => o -> IO OutputStream-toOutputStream = unsafeCastTo OutputStream--noOutputStream :: Maybe OutputStream-noOutputStream = Nothing--type family ResolveOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveOutputStreamMethod "bindPropertyFull" o = GObject.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.ObjectForceFloatingMethodInfo-    ResolveOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo-    ResolveOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo-    ResolveOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo-    ResolveOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo-    ResolveOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo-    ResolveOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo-    ResolveOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveOutputStreamMethod "watchClosure" o = GObject.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 "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo-    ResolveOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveOutputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveOutputStreamMethod t OutputStream, MethodInfo info OutputStream p) => IsLabelProxy t (OutputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveOutputStreamMethod t OutputStream, MethodInfo info OutputStream p) => IsLabel t (OutputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList OutputStream = OutputStreamAttributeList-type OutputStreamAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList OutputStream = OutputStreamSignalList-type OutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method OutputStream::clear_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    IO ()---outputStreamClearPending ::-    (MonadIO m, OutputStreamK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-outputStreamClearPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_output_stream_clear_pending _obj'-    touchManagedPtr _obj-    return ()--data OutputStreamClearPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, OutputStreamK a) => MethodInfo OutputStreamClearPendingMethodInfo a signature where-    overloadedMethod _ = outputStreamClearPending---- method OutputStream::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---outputStreamClose ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-outputStreamClose _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_output_stream_close _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data OutputStreamCloseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamCloseMethodInfo a signature where-    overloadedMethod _ = outputStreamClose---- method OutputStream::close_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---outputStreamCloseAsync ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-outputStreamCloseAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_output_stream_close_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data OutputStreamCloseAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamCloseAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamCloseAsync---- method OutputStream::close_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---outputStreamCloseFinish ::-    (MonadIO m, OutputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-outputStreamCloseFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_output_stream_close_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data OutputStreamCloseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamCloseFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamCloseFinish---- method OutputStream::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---outputStreamFlush ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-outputStreamFlush _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_output_stream_flush _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data OutputStreamFlushMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamFlushMethodInfo a signature where-    overloadedMethod _ = outputStreamFlush---- method OutputStream::flush_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---outputStreamFlushAsync ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-outputStreamFlushAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_output_stream_flush_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data OutputStreamFlushAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamFlushAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamFlushAsync---- method OutputStream::flush_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---outputStreamFlushFinish ::-    (MonadIO m, OutputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-outputStreamFlushFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_output_stream_flush_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data OutputStreamFlushFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamFlushFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamFlushFinish---- method OutputStream::has_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    IO CInt---outputStreamHasPending ::-    (MonadIO m, OutputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-outputStreamHasPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_output_stream_has_pending _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data OutputStreamHasPendingMethodInfo-instance (signature ~ (m Bool), MonadIO m, OutputStreamK a) => MethodInfo OutputStreamHasPendingMethodInfo a signature where-    overloadedMethod _ = outputStreamHasPending---- method OutputStream::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    IO CInt---outputStreamIsClosed ::-    (MonadIO m, OutputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-outputStreamIsClosed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_output_stream_is_closed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data OutputStreamIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, OutputStreamK a) => MethodInfo OutputStreamIsClosedMethodInfo a signature where-    overloadedMethod _ = outputStreamIsClosed---- method OutputStream::is_closing--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    IO CInt---outputStreamIsClosing ::-    (MonadIO m, OutputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-outputStreamIsClosing _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_output_stream_is_closing _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data OutputStreamIsClosingMethodInfo-instance (signature ~ (m Bool), MonadIO m, OutputStreamK a) => MethodInfo OutputStreamIsClosingMethodInfo a signature where-    overloadedMethod _ = outputStreamIsClosing---- method OutputStream::set_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---outputStreamSetPending ::-    (MonadIO m, OutputStreamK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-outputStreamSetPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_output_stream_set_pending _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data OutputStreamSetPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, OutputStreamK a) => MethodInfo OutputStreamSetPendingMethodInfo a signature where-    overloadedMethod _ = outputStreamSetPending---- method OutputStream::splice--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "OutputStreamSpliceFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr InputStream ->                      -- source : TInterface "Gio" "InputStream"-    CUInt ->                                -- flags : TInterface "Gio" "OutputStreamSpliceFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---outputStreamSplice ::-    (MonadIO m, OutputStreamK a, InputStreamK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- source-    -> [OutputStreamSpliceFlags]            -- flags-    -> Maybe (c)                            -- cancellable-    -> m Int64                              -- result-outputStreamSplice _obj source flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let source' = unsafeManagedPtrCastPtr source-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_output_stream_splice _obj' source' flags' maybeCancellable-        touchManagedPtr _obj-        touchManagedPtr source-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data OutputStreamSpliceMethodInfo-instance (signature ~ (b -> [OutputStreamSpliceFlags] -> Maybe (c) -> m Int64), MonadIO m, OutputStreamK a, InputStreamK b, CancellableK c) => MethodInfo OutputStreamSpliceMethodInfo a signature where-    overloadedMethod _ = outputStreamSplice---- method OutputStream::splice_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "OutputStreamSpliceFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr InputStream ->                      -- source : TInterface "Gio" "InputStream"-    CUInt ->                                -- flags : TInterface "Gio" "OutputStreamSpliceFlags"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---outputStreamSpliceAsync ::-    (MonadIO m, OutputStreamK a, InputStreamK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- source-    -> [OutputStreamSpliceFlags]            -- flags-    -> Int32                                -- ioPriority-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-outputStreamSpliceAsync _obj source flags ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let source' = unsafeManagedPtrCastPtr source-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_output_stream_splice_async _obj' source' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr source-    whenJust cancellable touchManagedPtr-    return ()--data OutputStreamSpliceAsyncMethodInfo-instance (signature ~ (b -> [OutputStreamSpliceFlags] -> Int32 -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, InputStreamK b, CancellableK c) => MethodInfo OutputStreamSpliceAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamSpliceAsync---- method OutputStream::splice_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---outputStreamSpliceFinish ::-    (MonadIO m, OutputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Int64                              -- result-outputStreamSpliceFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_output_stream_splice_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--data OutputStreamSpliceFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamSpliceFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamSpliceFinish---- method OutputStream::write--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---outputStreamWrite ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-outputStreamWrite _obj buffer cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_output_stream_write _obj' buffer' count maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--data OutputStreamWriteMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteMethodInfo a signature where-    overloadedMethod _ = outputStreamWrite---- method OutputStream::write_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---outputStreamWriteAll ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Maybe (b)                            -- cancellable-    -> m (Word64)                           -- result-outputStreamWriteAll _obj buffer cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    bytesWritten <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_output_stream_write_all _obj' buffer' count bytesWritten maybeCancellable-        bytesWritten' <- peek bytesWritten-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem bytesWritten-        return bytesWritten'-     ) (do-        freeMem buffer'-        freeMem bytesWritten-     )--data OutputStreamWriteAllMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m (Word64)), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteAllMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteAll---- method OutputStream::write_all_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---outputStreamWriteAllAsync ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-outputStreamWriteAllAsync _obj buffer ioPriority cancellable callback = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_output_stream_write_all_async _obj' buffer' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem buffer'-    return ()--data OutputStreamWriteAllAsyncMethodInfo-instance (signature ~ (ByteString -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteAllAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteAllAsync---- method OutputStream::write_all_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt---outputStreamWriteAllFinish ::-    (MonadIO m, OutputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m (Word64)                           -- result-outputStreamWriteAllFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    bytesWritten <- allocMem :: IO (Ptr Word64)-    onException (do-        _ <- propagateGError $ g_output_stream_write_all_finish _obj' result_' bytesWritten-        bytesWritten' <- peek bytesWritten-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem bytesWritten-        return bytesWritten'-     ) (do-        freeMem bytesWritten-     )--data OutputStreamWriteAllFinishMethodInfo-instance (signature ~ (b -> m (Word64)), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamWriteAllFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteAllFinish---- method OutputStream::write_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---outputStreamWriteAsync ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-outputStreamWriteAsync _obj buffer ioPriority cancellable callback = liftIO $ do-    let count = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_output_stream_write_async _obj' buffer' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem buffer'-    return ()--data OutputStreamWriteAsyncMethodInfo-instance (signature ~ (ByteString -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteAsync---- method OutputStream::write_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr GLib.Bytes ->                       -- bytes : TInterface "GLib" "Bytes"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---outputStreamWriteBytes ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> GLib.Bytes                           -- bytes-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-outputStreamWriteBytes _obj bytes cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let bytes' = unsafeManagedPtrGetPtr bytes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_output_stream_write_bytes _obj' bytes' maybeCancellable-        touchManagedPtr _obj-        touchManagedPtr bytes-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data OutputStreamWriteBytesMethodInfo-instance (signature ~ (GLib.Bytes -> Maybe (b) -> m Int64), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteBytesMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteBytes---- method OutputStream::write_bytes_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr GLib.Bytes ->                       -- bytes : TInterface "GLib" "Bytes"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---outputStreamWriteBytesAsync ::-    (MonadIO m, OutputStreamK a, CancellableK b) =>-    a                                       -- _obj-    -> GLib.Bytes                           -- bytes-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-outputStreamWriteBytesAsync _obj bytes ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let bytes' = unsafeManagedPtrGetPtr bytes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_output_stream_write_bytes_async _obj' bytes' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr bytes-    whenJust cancellable touchManagedPtr-    return ()--data OutputStreamWriteBytesAsyncMethodInfo-instance (signature ~ (GLib.Bytes -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteBytesAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteBytesAsync---- method OutputStream::write_bytes_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---outputStreamWriteBytesFinish ::-    (MonadIO m, OutputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Int64                              -- result-outputStreamWriteBytesFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_output_stream_write_bytes_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--data OutputStreamWriteBytesFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamWriteBytesFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteBytesFinish---- method OutputStream::write_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "OutputStream"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---outputStreamWriteFinish ::-    (MonadIO m, OutputStreamK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Int64                              -- result-outputStreamWriteFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_output_stream_write_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--data OutputStreamWriteFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamWriteFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteFinish--
− GI/Gio/Objects/OutputStream.hs-boot 
@@ -1,36 +0,0 @@-module GI.Gio.Objects.OutputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype OutputStream = OutputStream (ForeignPtr OutputStream)-instance GObject OutputStream where-class GObject o => OutputStreamK o-instance (GObject o, IsDescendantOf OutputStream o) => OutputStreamK o-data OutputStreamClearPendingMethodInfo-data OutputStreamCloseMethodInfo-data OutputStreamCloseAsyncMethodInfo-data OutputStreamCloseFinishMethodInfo-data OutputStreamFlushMethodInfo-data OutputStreamFlushAsyncMethodInfo-data OutputStreamFlushFinishMethodInfo-data OutputStreamHasPendingMethodInfo-data OutputStreamIsClosedMethodInfo-data OutputStreamIsClosingMethodInfo-data OutputStreamSetPendingMethodInfo-data OutputStreamSpliceMethodInfo-data OutputStreamSpliceAsyncMethodInfo-data OutputStreamSpliceFinishMethodInfo-data OutputStreamWriteMethodInfo-data OutputStreamWriteAllMethodInfo-data OutputStreamWriteAllAsyncMethodInfo-data OutputStreamWriteAllFinishMethodInfo-data OutputStreamWriteAsyncMethodInfo-data OutputStreamWriteBytesMethodInfo-data OutputStreamWriteBytesAsyncMethodInfo-data OutputStreamWriteBytesFinishMethodInfo-data OutputStreamWriteFinishMethodInfo
− GI/Gio/Objects/Permission.hs 
@@ -1,609 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Permission-    ( ---- * Exported types-    Permission(..)                          ,-    PermissionK                             ,-    toPermission                            ,-    noPermission                            ,--- -- * Methods--- ** permissionAcquire-    PermissionAcquireMethodInfo             ,-    permissionAcquire                       ,----- ** permissionAcquireAsync-    PermissionAcquireAsyncMethodInfo        ,-    permissionAcquireAsync                  ,----- ** permissionAcquireFinish-    PermissionAcquireFinishMethodInfo       ,-    permissionAcquireFinish                 ,----- ** permissionGetAllowed-    PermissionGetAllowedMethodInfo          ,-    permissionGetAllowed                    ,----- ** permissionGetCanAcquire-    PermissionGetCanAcquireMethodInfo       ,-    permissionGetCanAcquire                 ,----- ** permissionGetCanRelease-    PermissionGetCanReleaseMethodInfo       ,-    permissionGetCanRelease                 ,----- ** permissionImplUpdate-    PermissionImplUpdateMethodInfo          ,-    permissionImplUpdate                    ,----- ** permissionRelease-    PermissionReleaseMethodInfo             ,-    permissionRelease                       ,----- ** permissionReleaseAsync-    PermissionReleaseAsyncMethodInfo        ,-    permissionReleaseAsync                  ,----- ** permissionReleaseFinish-    PermissionReleaseFinishMethodInfo       ,-    permissionReleaseFinish                 ,----- -- * Properties--- ** Allowed-    PermissionAllowedPropertyInfo           ,-    getPermissionAllowed                    ,-    permissionAllowed                       ,----- ** CanAcquire-    PermissionCanAcquirePropertyInfo        ,-    getPermissionCanAcquire                 ,-    permissionCanAcquire                    ,----- ** CanRelease-    PermissionCanReleasePropertyInfo        ,-    getPermissionCanRelease                 ,-    permissionCanRelease                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype Permission = Permission (ForeignPtr Permission)-foreign import ccall "g_permission_get_type"-    c_g_permission_get_type :: IO GType--type instance ParentTypes Permission = PermissionParentTypes-type PermissionParentTypes = '[GObject.Object]--instance GObject Permission where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_permission_get_type-    --class GObject o => PermissionK o-instance (GObject o, IsDescendantOf Permission o) => PermissionK o--toPermission :: PermissionK o => o -> IO Permission-toPermission = unsafeCastTo Permission--noPermission :: Maybe Permission-noPermission = Nothing--type family ResolvePermissionMethod (t :: Symbol) (o :: *) :: * where-    ResolvePermissionMethod "acquire" o = PermissionAcquireMethodInfo-    ResolvePermissionMethod "acquireAsync" o = PermissionAcquireAsyncMethodInfo-    ResolvePermissionMethod "acquireFinish" o = PermissionAcquireFinishMethodInfo-    ResolvePermissionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolvePermissionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolvePermissionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolvePermissionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolvePermissionMethod "implUpdate" o = PermissionImplUpdateMethodInfo-    ResolvePermissionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolvePermissionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolvePermissionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolvePermissionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolvePermissionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolvePermissionMethod "release" o = PermissionReleaseMethodInfo-    ResolvePermissionMethod "releaseAsync" o = PermissionReleaseAsyncMethodInfo-    ResolvePermissionMethod "releaseFinish" o = PermissionReleaseFinishMethodInfo-    ResolvePermissionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolvePermissionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolvePermissionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolvePermissionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolvePermissionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolvePermissionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolvePermissionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolvePermissionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolvePermissionMethod "getAllowed" o = PermissionGetAllowedMethodInfo-    ResolvePermissionMethod "getCanAcquire" o = PermissionGetCanAcquireMethodInfo-    ResolvePermissionMethod "getCanRelease" o = PermissionGetCanReleaseMethodInfo-    ResolvePermissionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolvePermissionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolvePermissionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolvePermissionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolvePermissionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolvePermissionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePermissionMethod t Permission, MethodInfo info Permission p) => IsLabelProxy t (Permission -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePermissionMethod t Permission, MethodInfo info Permission p) => IsLabel t (Permission -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "allowed"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getPermissionAllowed :: (MonadIO m, PermissionK o) => o -> m Bool-getPermissionAllowed obj = liftIO $ getObjectPropertyBool obj "allowed"--data PermissionAllowedPropertyInfo-instance AttrInfo PermissionAllowedPropertyInfo where-    type AttrAllowedOps PermissionAllowedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint PermissionAllowedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint PermissionAllowedPropertyInfo = PermissionK-    type AttrGetType PermissionAllowedPropertyInfo = Bool-    type AttrLabel PermissionAllowedPropertyInfo = "allowed"-    attrGet _ = getPermissionAllowed-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "can-acquire"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getPermissionCanAcquire :: (MonadIO m, PermissionK o) => o -> m Bool-getPermissionCanAcquire obj = liftIO $ getObjectPropertyBool obj "can-acquire"--data PermissionCanAcquirePropertyInfo-instance AttrInfo PermissionCanAcquirePropertyInfo where-    type AttrAllowedOps PermissionCanAcquirePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint PermissionCanAcquirePropertyInfo = (~) ()-    type AttrBaseTypeConstraint PermissionCanAcquirePropertyInfo = PermissionK-    type AttrGetType PermissionCanAcquirePropertyInfo = Bool-    type AttrLabel PermissionCanAcquirePropertyInfo = "can-acquire"-    attrGet _ = getPermissionCanAcquire-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "can-release"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getPermissionCanRelease :: (MonadIO m, PermissionK o) => o -> m Bool-getPermissionCanRelease obj = liftIO $ getObjectPropertyBool obj "can-release"--data PermissionCanReleasePropertyInfo-instance AttrInfo PermissionCanReleasePropertyInfo where-    type AttrAllowedOps PermissionCanReleasePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint PermissionCanReleasePropertyInfo = (~) ()-    type AttrBaseTypeConstraint PermissionCanReleasePropertyInfo = PermissionK-    type AttrGetType PermissionCanReleasePropertyInfo = Bool-    type AttrLabel PermissionCanReleasePropertyInfo = "can-release"-    attrGet _ = getPermissionCanRelease-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList Permission = PermissionAttributeList-type PermissionAttributeList = ('[ '("allowed", PermissionAllowedPropertyInfo), '("canAcquire", PermissionCanAcquirePropertyInfo), '("canRelease", PermissionCanReleasePropertyInfo)] :: [(Symbol, *)])--permissionAllowed :: AttrLabelProxy "allowed"-permissionAllowed = AttrLabelProxy--permissionCanAcquire :: AttrLabelProxy "canAcquire"-permissionCanAcquire = AttrLabelProxy--permissionCanRelease :: AttrLabelProxy "canRelease"-permissionCanRelease = AttrLabelProxy--type instance SignalList Permission = PermissionSignalList-type PermissionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Permission::acquire--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                       -- _obj : TInterface "Gio" "Permission"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---permissionAcquire ::-    (MonadIO m, PermissionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-permissionAcquire _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_permission_acquire _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data PermissionAcquireMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PermissionK a, CancellableK b) => MethodInfo PermissionAcquireMethodInfo a signature where-    overloadedMethod _ = permissionAcquire---- method Permission::acquire_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Permission"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---permissionAcquireAsync ::-    (MonadIO m, PermissionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-permissionAcquireAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_permission_acquire_async _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data PermissionAcquireAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, PermissionK a, CancellableK b) => MethodInfo PermissionAcquireAsyncMethodInfo a signature where-    overloadedMethod _ = permissionAcquireAsync---- method Permission::acquire_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Permission"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---permissionAcquireFinish ::-    (MonadIO m, PermissionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-permissionAcquireFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_permission_acquire_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data PermissionAcquireFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, PermissionK a, AsyncResultK b) => MethodInfo PermissionAcquireFinishMethodInfo a signature where-    overloadedMethod _ = permissionAcquireFinish---- method Permission::get_allowed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Permission"-    IO CInt---permissionGetAllowed ::-    (MonadIO m, PermissionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-permissionGetAllowed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_permission_get_allowed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data PermissionGetAllowedMethodInfo-instance (signature ~ (m Bool), MonadIO m, PermissionK a) => MethodInfo PermissionGetAllowedMethodInfo a signature where-    overloadedMethod _ = permissionGetAllowed---- method Permission::get_can_acquire--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Permission"-    IO CInt---permissionGetCanAcquire ::-    (MonadIO m, PermissionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-permissionGetCanAcquire _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_permission_get_can_acquire _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data PermissionGetCanAcquireMethodInfo-instance (signature ~ (m Bool), MonadIO m, PermissionK a) => MethodInfo PermissionGetCanAcquireMethodInfo a signature where-    overloadedMethod _ = permissionGetCanAcquire---- method Permission::get_can_release--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Permission"-    IO CInt---permissionGetCanRelease ::-    (MonadIO m, PermissionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-permissionGetCanRelease _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_permission_get_can_release _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data PermissionGetCanReleaseMethodInfo-instance (signature ~ (m Bool), MonadIO m, PermissionK a) => MethodInfo PermissionGetCanReleaseMethodInfo a signature where-    overloadedMethod _ = permissionGetCanRelease---- method Permission::impl_update--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_acquire", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_release", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Permission"-    CInt ->                                 -- allowed : TBasicType TBoolean-    CInt ->                                 -- can_acquire : TBasicType TBoolean-    CInt ->                                 -- can_release : TBasicType TBoolean-    IO ()---permissionImplUpdate ::-    (MonadIO m, PermissionK a) =>-    a                                       -- _obj-    -> Bool                                 -- allowed-    -> Bool                                 -- canAcquire-    -> Bool                                 -- canRelease-    -> m ()                                 -- result-permissionImplUpdate _obj allowed canAcquire canRelease = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let allowed' = (fromIntegral . fromEnum) allowed-    let canAcquire' = (fromIntegral . fromEnum) canAcquire-    let canRelease' = (fromIntegral . fromEnum) canRelease-    g_permission_impl_update _obj' allowed' canAcquire' canRelease'-    touchManagedPtr _obj-    return ()--data PermissionImplUpdateMethodInfo-instance (signature ~ (Bool -> Bool -> Bool -> m ()), MonadIO m, PermissionK a) => MethodInfo PermissionImplUpdateMethodInfo a signature where-    overloadedMethod _ = permissionImplUpdate---- method Permission::release--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                       -- _obj : TInterface "Gio" "Permission"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---permissionRelease ::-    (MonadIO m, PermissionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-permissionRelease _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_permission_release _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data PermissionReleaseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PermissionK a, CancellableK b) => MethodInfo PermissionReleaseMethodInfo a signature where-    overloadedMethod _ = permissionRelease---- method Permission::release_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Permission"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---permissionReleaseAsync ::-    (MonadIO m, PermissionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-permissionReleaseAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_permission_release_async _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data PermissionReleaseAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, PermissionK a, CancellableK b) => MethodInfo PermissionReleaseAsyncMethodInfo a signature where-    overloadedMethod _ = permissionReleaseAsync---- method Permission::release_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Permission"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---permissionReleaseFinish ::-    (MonadIO m, PermissionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-permissionReleaseFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_permission_release_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data PermissionReleaseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, PermissionK a, AsyncResultK b) => MethodInfo PermissionReleaseFinishMethodInfo a signature where-    overloadedMethod _ = permissionReleaseFinish--
− GI/Gio/Objects/Permission.hs-boot 
@@ -1,26 +0,0 @@-module GI.Gio.Objects.Permission where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Permission = Permission (ForeignPtr Permission)-instance GObject Permission where-class GObject o => PermissionK o-instance (GObject o, IsDescendantOf Permission o) => PermissionK o-data PermissionAllowedPropertyInfo-data PermissionCanAcquirePropertyInfo-data PermissionCanReleasePropertyInfo-data PermissionAcquireMethodInfo-data PermissionAcquireAsyncMethodInfo-data PermissionAcquireFinishMethodInfo-data PermissionGetAllowedMethodInfo-data PermissionGetCanAcquireMethodInfo-data PermissionGetCanReleaseMethodInfo-data PermissionImplUpdateMethodInfo-data PermissionReleaseMethodInfo-data PermissionReleaseAsyncMethodInfo-data PermissionReleaseFinishMethodInfo
− GI/Gio/Objects/PropertyAction.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.PropertyAction-    ( ---- * Exported types-    PropertyAction(..)                      ,-    PropertyActionK                         ,-    toPropertyAction                        ,-    noPropertyAction                        ,--- -- * Methods--- ** propertyActionNew-    propertyActionNew                       ,----- -- * Properties--- ** Enabled-    PropertyActionEnabledPropertyInfo       ,-    getPropertyActionEnabled                ,-    propertyActionEnabled                   ,----- ** InvertBoolean-    PropertyActionInvertBooleanPropertyInfo ,-    constructPropertyActionInvertBoolean    ,-    getPropertyActionInvertBoolean          ,-    propertyActionInvertBoolean             ,----- ** Name-    PropertyActionNamePropertyInfo          ,-    constructPropertyActionName             ,-    getPropertyActionName                   ,-    propertyActionName                      ,----- ** Object-    PropertyActionObjectPropertyInfo        ,-    constructPropertyActionObject           ,-    propertyActionObject                    ,----- ** ParameterType-    PropertyActionParameterTypePropertyInfo ,-    getPropertyActionParameterType          ,-    propertyActionParameterType             ,----- ** PropertyName-    PropertyActionPropertyNamePropertyInfo  ,-    constructPropertyActionPropertyName     ,-    propertyActionPropertyName              ,----- ** State-    PropertyActionStatePropertyInfo         ,-    getPropertyActionState                  ,-    propertyActionState                     ,----- ** StateType-    PropertyActionStateTypePropertyInfo     ,-    getPropertyActionStateType              ,-    propertyActionStateType                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype PropertyAction = PropertyAction (ForeignPtr PropertyAction)-foreign import ccall "g_property_action_get_type"-    c_g_property_action_get_type :: IO GType--type instance ParentTypes PropertyAction = PropertyActionParentTypes-type PropertyActionParentTypes = '[GObject.Object, Action]--instance GObject PropertyAction where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_property_action_get_type-    --class GObject o => PropertyActionK o-instance (GObject o, IsDescendantOf PropertyAction o) => PropertyActionK o--toPropertyAction :: PropertyActionK o => o -> IO PropertyAction-toPropertyAction = unsafeCastTo PropertyAction--noPropertyAction :: Maybe PropertyAction-noPropertyAction = Nothing--type family ResolvePropertyActionMethod (t :: Symbol) (o :: *) :: * where-    ResolvePropertyActionMethod "activate" o = ActionActivateMethodInfo-    ResolvePropertyActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolvePropertyActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolvePropertyActionMethod "changeState" o = ActionChangeStateMethodInfo-    ResolvePropertyActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolvePropertyActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolvePropertyActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolvePropertyActionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolvePropertyActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolvePropertyActionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolvePropertyActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolvePropertyActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolvePropertyActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolvePropertyActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolvePropertyActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolvePropertyActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolvePropertyActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolvePropertyActionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolvePropertyActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolvePropertyActionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolvePropertyActionMethod "getEnabled" o = ActionGetEnabledMethodInfo-    ResolvePropertyActionMethod "getName" o = ActionGetNameMethodInfo-    ResolvePropertyActionMethod "getParameterType" o = ActionGetParameterTypeMethodInfo-    ResolvePropertyActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolvePropertyActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolvePropertyActionMethod "getState" o = ActionGetStateMethodInfo-    ResolvePropertyActionMethod "getStateHint" o = ActionGetStateHintMethodInfo-    ResolvePropertyActionMethod "getStateType" o = ActionGetStateTypeMethodInfo-    ResolvePropertyActionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolvePropertyActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolvePropertyActionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePropertyActionMethod t PropertyAction, MethodInfo info PropertyAction p) => IsLabelProxy t (PropertyAction -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePropertyActionMethod t PropertyAction, MethodInfo info PropertyAction p) => IsLabel t (PropertyAction -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif----- 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, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "name", propType = TBasicType TUTF8, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}--- VVV Prop "enabled"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getPropertyActionEnabled :: (MonadIO m, PropertyActionK o) => o -> m Bool-getPropertyActionEnabled obj = liftIO $ getObjectPropertyBool obj "enabled"--data PropertyActionEnabledPropertyInfo-instance AttrInfo PropertyActionEnabledPropertyInfo where-    type AttrAllowedOps PropertyActionEnabledPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint PropertyActionEnabledPropertyInfo = (~) ()-    type AttrBaseTypeConstraint PropertyActionEnabledPropertyInfo = PropertyActionK-    type AttrGetType PropertyActionEnabledPropertyInfo = Bool-    type AttrLabel PropertyActionEnabledPropertyInfo = "enabled"-    attrGet _ = getPropertyActionEnabled-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "invert-boolean"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getPropertyActionInvertBoolean :: (MonadIO m, PropertyActionK o) => o -> m Bool-getPropertyActionInvertBoolean obj = liftIO $ getObjectPropertyBool obj "invert-boolean"--constructPropertyActionInvertBoolean :: Bool -> IO ([Char], GValue)-constructPropertyActionInvertBoolean val = constructObjectPropertyBool "invert-boolean" val--data PropertyActionInvertBooleanPropertyInfo-instance AttrInfo PropertyActionInvertBooleanPropertyInfo where-    type AttrAllowedOps PropertyActionInvertBooleanPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint PropertyActionInvertBooleanPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint PropertyActionInvertBooleanPropertyInfo = PropertyActionK-    type AttrGetType PropertyActionInvertBooleanPropertyInfo = Bool-    type AttrLabel PropertyActionInvertBooleanPropertyInfo = "invert-boolean"-    attrGet _ = getPropertyActionInvertBoolean-    attrSet _ = undefined-    attrConstruct _ = constructPropertyActionInvertBoolean-    attrClear _ = undefined---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getPropertyActionName :: (MonadIO m, PropertyActionK o) => o -> m (Maybe T.Text)-getPropertyActionName obj = liftIO $ getObjectPropertyString obj "name"--constructPropertyActionName :: T.Text -> IO ([Char], GValue)-constructPropertyActionName val = constructObjectPropertyString "name" (Just val)--data PropertyActionNamePropertyInfo-instance AttrInfo PropertyActionNamePropertyInfo where-    type AttrAllowedOps PropertyActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint PropertyActionNamePropertyInfo = PropertyActionK-    type AttrGetType PropertyActionNamePropertyInfo = (Maybe T.Text)-    type AttrLabel PropertyActionNamePropertyInfo = "name"-    attrGet _ = getPropertyActionName-    attrSet _ = undefined-    attrConstruct _ = constructPropertyActionName-    attrClear _ = undefined---- VVV Prop "object"-   -- Type: TInterface "GObject" "Object"-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructPropertyActionObject :: (GObject.ObjectK a) => a -> IO ([Char], GValue)-constructPropertyActionObject val = constructObjectPropertyObject "object" (Just val)--data PropertyActionObjectPropertyInfo-instance AttrInfo PropertyActionObjectPropertyInfo where-    type AttrAllowedOps PropertyActionObjectPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionObjectPropertyInfo = GObject.ObjectK-    type AttrBaseTypeConstraint PropertyActionObjectPropertyInfo = PropertyActionK-    type AttrGetType PropertyActionObjectPropertyInfo = ()-    type AttrLabel PropertyActionObjectPropertyInfo = "object"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructPropertyActionObject-    attrClear _ = undefined---- VVV Prop "parameter-type"-   -- Type: TInterface "GLib" "VariantType"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getPropertyActionParameterType :: (MonadIO m, PropertyActionK o) => o -> m (Maybe GLib.VariantType)-getPropertyActionParameterType obj = liftIO $ getObjectPropertyBoxed obj "parameter-type" GLib.VariantType--data PropertyActionParameterTypePropertyInfo-instance AttrInfo PropertyActionParameterTypePropertyInfo where-    type AttrAllowedOps PropertyActionParameterTypePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionParameterTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint PropertyActionParameterTypePropertyInfo = PropertyActionK-    type AttrGetType PropertyActionParameterTypePropertyInfo = (Maybe GLib.VariantType)-    type AttrLabel PropertyActionParameterTypePropertyInfo = "parameter-type"-    attrGet _ = getPropertyActionParameterType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "property-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructPropertyActionPropertyName :: T.Text -> IO ([Char], GValue)-constructPropertyActionPropertyName val = constructObjectPropertyString "property-name" (Just val)--data PropertyActionPropertyNamePropertyInfo-instance AttrInfo PropertyActionPropertyNamePropertyInfo where-    type AttrAllowedOps PropertyActionPropertyNamePropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionPropertyNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint PropertyActionPropertyNamePropertyInfo = PropertyActionK-    type AttrGetType PropertyActionPropertyNamePropertyInfo = ()-    type AttrLabel PropertyActionPropertyNamePropertyInfo = "property-name"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructPropertyActionPropertyName-    attrClear _ = undefined---- VVV Prop "state"-   -- Type: TVariant-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getPropertyActionState :: (MonadIO m, PropertyActionK o) => o -> m (Maybe GVariant)-getPropertyActionState obj = liftIO $ getObjectPropertyVariant obj "state"--data PropertyActionStatePropertyInfo-instance AttrInfo PropertyActionStatePropertyInfo where-    type AttrAllowedOps PropertyActionStatePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionStatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint PropertyActionStatePropertyInfo = PropertyActionK-    type AttrGetType PropertyActionStatePropertyInfo = (Maybe GVariant)-    type AttrLabel PropertyActionStatePropertyInfo = "state"-    attrGet _ = getPropertyActionState-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "state-type"-   -- Type: TInterface "GLib" "VariantType"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getPropertyActionStateType :: (MonadIO m, PropertyActionK o) => o -> m (Maybe GLib.VariantType)-getPropertyActionStateType obj = liftIO $ getObjectPropertyBoxed obj "state-type" GLib.VariantType--data PropertyActionStateTypePropertyInfo-instance AttrInfo PropertyActionStateTypePropertyInfo where-    type AttrAllowedOps PropertyActionStateTypePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionStateTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint PropertyActionStateTypePropertyInfo = PropertyActionK-    type AttrGetType PropertyActionStateTypePropertyInfo = (Maybe GLib.VariantType)-    type AttrLabel PropertyActionStateTypePropertyInfo = "state-type"-    attrGet _ = getPropertyActionStateType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList PropertyAction = PropertyActionAttributeList-type PropertyActionAttributeList = ('[ '("enabled", PropertyActionEnabledPropertyInfo), '("invertBoolean", PropertyActionInvertBooleanPropertyInfo), '("object", PropertyActionObjectPropertyInfo), '("parameterType", PropertyActionParameterTypePropertyInfo), '("propertyName", PropertyActionPropertyNamePropertyInfo), '("state", PropertyActionStatePropertyInfo), '("stateType", PropertyActionStateTypePropertyInfo)] :: [(Symbol, *)])--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--type instance SignalList PropertyAction = PropertyActionSignalList-type PropertyActionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method PropertyAction::new--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 : TInterface "GObject" "Object"-    CString ->                              -- property_name : TBasicType TUTF8-    IO (Ptr PropertyAction)---propertyActionNew ::-    (MonadIO m, GObject.ObjectK a) =>-    T.Text                                  -- name-    -> a                                    -- object-    -> T.Text                               -- propertyName-    -> m PropertyAction                     -- result-propertyActionNew name object propertyName = liftIO $ do-    name' <- textToCString name-    let object' = unsafeManagedPtrCastPtr object-    propertyName' <- textToCString propertyName-    result <- g_property_action_new name' object' propertyName'-    checkUnexpectedReturnNULL "g_property_action_new" result-    result' <- (wrapObject PropertyAction) result-    touchManagedPtr object-    freeMem name'-    freeMem propertyName'-    return result'--
− GI/Gio/Objects/PropertyAction.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.PropertyAction where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PropertyAction = PropertyAction (ForeignPtr PropertyAction)-instance GObject PropertyAction where-class GObject o => PropertyActionK o-instance (GObject o, IsDescendantOf PropertyAction o) => PropertyActionK o-data PropertyActionEnabledPropertyInfo-data PropertyActionInvertBooleanPropertyInfo-data PropertyActionNamePropertyInfo-data PropertyActionObjectPropertyInfo-data PropertyActionParameterTypePropertyInfo-data PropertyActionPropertyNamePropertyInfo-data PropertyActionStatePropertyInfo-data PropertyActionStateTypePropertyInfo
− GI/Gio/Objects/ProxyAddress.hs 
@@ -1,638 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.ProxyAddress-    ( ---- * Exported types-    ProxyAddress(..)                        ,-    ProxyAddressK                           ,-    toProxyAddress                          ,-    noProxyAddress                          ,--- -- * Methods--- ** proxyAddressGetDestinationHostname-    ProxyAddressGetDestinationHostnameMethodInfo,-    proxyAddressGetDestinationHostname      ,----- ** proxyAddressGetDestinationPort-    ProxyAddressGetDestinationPortMethodInfo,-    proxyAddressGetDestinationPort          ,----- ** proxyAddressGetDestinationProtocol-    ProxyAddressGetDestinationProtocolMethodInfo,-    proxyAddressGetDestinationProtocol      ,----- ** proxyAddressGetPassword-    ProxyAddressGetPasswordMethodInfo       ,-    proxyAddressGetPassword                 ,----- ** proxyAddressGetProtocol-    ProxyAddressGetProtocolMethodInfo       ,-    proxyAddressGetProtocol                 ,----- ** proxyAddressGetUri-    ProxyAddressGetUriMethodInfo            ,-    proxyAddressGetUri                      ,----- ** proxyAddressGetUsername-    ProxyAddressGetUsernameMethodInfo       ,-    proxyAddressGetUsername                 ,----- ** proxyAddressNew-    proxyAddressNew                         ,----- -- * Properties--- ** DestinationHostname-    ProxyAddressDestinationHostnamePropertyInfo,-    constructProxyAddressDestinationHostname,-    getProxyAddressDestinationHostname      ,-    proxyAddressDestinationHostname         ,----- ** DestinationPort-    ProxyAddressDestinationPortPropertyInfo ,-    constructProxyAddressDestinationPort    ,-    getProxyAddressDestinationPort          ,-    proxyAddressDestinationPort             ,----- ** DestinationProtocol-    ProxyAddressDestinationProtocolPropertyInfo,-    constructProxyAddressDestinationProtocol,-    getProxyAddressDestinationProtocol      ,-    proxyAddressDestinationProtocol         ,----- ** Password-    ProxyAddressPasswordPropertyInfo        ,-    constructProxyAddressPassword           ,-    getProxyAddressPassword                 ,-    proxyAddressPassword                    ,----- ** Protocol-    ProxyAddressProtocolPropertyInfo        ,-    constructProxyAddressProtocol           ,-    getProxyAddressProtocol                 ,-    proxyAddressProtocol                    ,----- ** Uri-    ProxyAddressUriPropertyInfo             ,-    constructProxyAddressUri                ,-    getProxyAddressUri                      ,-    proxyAddressUri                         ,----- ** Username-    ProxyAddressUsernamePropertyInfo        ,-    constructProxyAddressUsername           ,-    getProxyAddressUsername                 ,-    proxyAddressUsername                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype ProxyAddress = ProxyAddress (ForeignPtr ProxyAddress)-foreign import ccall "g_proxy_address_get_type"-    c_g_proxy_address_get_type :: IO GType--type instance ParentTypes ProxyAddress = ProxyAddressParentTypes-type ProxyAddressParentTypes = '[InetSocketAddress, SocketAddress, GObject.Object, SocketConnectable]--instance GObject ProxyAddress where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_proxy_address_get_type-    --class GObject o => ProxyAddressK o-instance (GObject o, IsDescendantOf ProxyAddress o) => ProxyAddressK o--toProxyAddress :: ProxyAddressK o => o -> IO ProxyAddress-toProxyAddress = unsafeCastTo ProxyAddress--noProxyAddress :: Maybe ProxyAddress-noProxyAddress = Nothing--type family ResolveProxyAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveProxyAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveProxyAddressMethod "enumerate" o = SocketConnectableEnumerateMethodInfo-    ResolveProxyAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveProxyAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveProxyAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveProxyAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveProxyAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveProxyAddressMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo-    ResolveProxyAddressMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveProxyAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveProxyAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveProxyAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveProxyAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveProxyAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveProxyAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveProxyAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveProxyAddressMethod "toNative" o = SocketAddressToNativeMethodInfo-    ResolveProxyAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveProxyAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveProxyAddressMethod "getAddress" o = InetSocketAddressGetAddressMethodInfo-    ResolveProxyAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveProxyAddressMethod "getDestinationHostname" o = ProxyAddressGetDestinationHostnameMethodInfo-    ResolveProxyAddressMethod "getDestinationPort" o = ProxyAddressGetDestinationPortMethodInfo-    ResolveProxyAddressMethod "getDestinationProtocol" o = ProxyAddressGetDestinationProtocolMethodInfo-    ResolveProxyAddressMethod "getFamily" o = SocketAddressGetFamilyMethodInfo-    ResolveProxyAddressMethod "getFlowinfo" o = InetSocketAddressGetFlowinfoMethodInfo-    ResolveProxyAddressMethod "getNativeSize" o = SocketAddressGetNativeSizeMethodInfo-    ResolveProxyAddressMethod "getPassword" o = ProxyAddressGetPasswordMethodInfo-    ResolveProxyAddressMethod "getPort" o = InetSocketAddressGetPortMethodInfo-    ResolveProxyAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveProxyAddressMethod "getProtocol" o = ProxyAddressGetProtocolMethodInfo-    ResolveProxyAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveProxyAddressMethod "getScopeId" o = InetSocketAddressGetScopeIdMethodInfo-    ResolveProxyAddressMethod "getUri" o = ProxyAddressGetUriMethodInfo-    ResolveProxyAddressMethod "getUsername" o = ProxyAddressGetUsernameMethodInfo-    ResolveProxyAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveProxyAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveProxyAddressMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveProxyAddressMethod t ProxyAddress, MethodInfo info ProxyAddress p) => IsLabelProxy t (ProxyAddress -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveProxyAddressMethod t ProxyAddress, MethodInfo info ProxyAddress p) => IsLabel t (ProxyAddress -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "destination-hostname"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getProxyAddressDestinationHostname :: (MonadIO m, ProxyAddressK o) => o -> m T.Text-getProxyAddressDestinationHostname obj = liftIO $ checkUnexpectedNothing "getProxyAddressDestinationHostname" $ getObjectPropertyString obj "destination-hostname"--constructProxyAddressDestinationHostname :: T.Text -> IO ([Char], GValue)-constructProxyAddressDestinationHostname val = constructObjectPropertyString "destination-hostname" (Just val)--data ProxyAddressDestinationHostnamePropertyInfo-instance AttrInfo ProxyAddressDestinationHostnamePropertyInfo where-    type AttrAllowedOps ProxyAddressDestinationHostnamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressDestinationHostnamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressDestinationHostnamePropertyInfo = ProxyAddressK-    type AttrGetType ProxyAddressDestinationHostnamePropertyInfo = T.Text-    type AttrLabel ProxyAddressDestinationHostnamePropertyInfo = "destination-hostname"-    attrGet _ = getProxyAddressDestinationHostname-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressDestinationHostname-    attrClear _ = undefined---- VVV Prop "destination-port"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getProxyAddressDestinationPort :: (MonadIO m, ProxyAddressK o) => o -> m Word32-getProxyAddressDestinationPort obj = liftIO $ getObjectPropertyUInt32 obj "destination-port"--constructProxyAddressDestinationPort :: Word32 -> IO ([Char], GValue)-constructProxyAddressDestinationPort val = constructObjectPropertyUInt32 "destination-port" val--data ProxyAddressDestinationPortPropertyInfo-instance AttrInfo ProxyAddressDestinationPortPropertyInfo where-    type AttrAllowedOps ProxyAddressDestinationPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ProxyAddressDestinationPortPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint ProxyAddressDestinationPortPropertyInfo = ProxyAddressK-    type AttrGetType ProxyAddressDestinationPortPropertyInfo = Word32-    type AttrLabel ProxyAddressDestinationPortPropertyInfo = "destination-port"-    attrGet _ = getProxyAddressDestinationPort-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressDestinationPort-    attrClear _ = undefined---- VVV Prop "destination-protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getProxyAddressDestinationProtocol :: (MonadIO m, ProxyAddressK o) => o -> m T.Text-getProxyAddressDestinationProtocol obj = liftIO $ checkUnexpectedNothing "getProxyAddressDestinationProtocol" $ getObjectPropertyString obj "destination-protocol"--constructProxyAddressDestinationProtocol :: T.Text -> IO ([Char], GValue)-constructProxyAddressDestinationProtocol val = constructObjectPropertyString "destination-protocol" (Just val)--data ProxyAddressDestinationProtocolPropertyInfo-instance AttrInfo ProxyAddressDestinationProtocolPropertyInfo where-    type AttrAllowedOps ProxyAddressDestinationProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressDestinationProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressDestinationProtocolPropertyInfo = ProxyAddressK-    type AttrGetType ProxyAddressDestinationProtocolPropertyInfo = T.Text-    type AttrLabel ProxyAddressDestinationProtocolPropertyInfo = "destination-protocol"-    attrGet _ = getProxyAddressDestinationProtocol-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressDestinationProtocol-    attrClear _ = undefined---- VVV Prop "password"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getProxyAddressPassword :: (MonadIO m, ProxyAddressK o) => o -> m T.Text-getProxyAddressPassword obj = liftIO $ checkUnexpectedNothing "getProxyAddressPassword" $ getObjectPropertyString obj "password"--constructProxyAddressPassword :: T.Text -> IO ([Char], GValue)-constructProxyAddressPassword val = constructObjectPropertyString "password" (Just val)--data ProxyAddressPasswordPropertyInfo-instance AttrInfo ProxyAddressPasswordPropertyInfo where-    type AttrAllowedOps ProxyAddressPasswordPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressPasswordPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressPasswordPropertyInfo = ProxyAddressK-    type AttrGetType ProxyAddressPasswordPropertyInfo = T.Text-    type AttrLabel ProxyAddressPasswordPropertyInfo = "password"-    attrGet _ = getProxyAddressPassword-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressPassword-    attrClear _ = undefined---- VVV Prop "protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getProxyAddressProtocol :: (MonadIO m, ProxyAddressK o) => o -> m T.Text-getProxyAddressProtocol obj = liftIO $ checkUnexpectedNothing "getProxyAddressProtocol" $ getObjectPropertyString obj "protocol"--constructProxyAddressProtocol :: T.Text -> IO ([Char], GValue)-constructProxyAddressProtocol val = constructObjectPropertyString "protocol" (Just val)--data ProxyAddressProtocolPropertyInfo-instance AttrInfo ProxyAddressProtocolPropertyInfo where-    type AttrAllowedOps ProxyAddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressProtocolPropertyInfo = ProxyAddressK-    type AttrGetType ProxyAddressProtocolPropertyInfo = T.Text-    type AttrLabel ProxyAddressProtocolPropertyInfo = "protocol"-    attrGet _ = getProxyAddressProtocol-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressProtocol-    attrClear _ = undefined---- VVV Prop "uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getProxyAddressUri :: (MonadIO m, ProxyAddressK o) => o -> m T.Text-getProxyAddressUri obj = liftIO $ checkUnexpectedNothing "getProxyAddressUri" $ getObjectPropertyString obj "uri"--constructProxyAddressUri :: T.Text -> IO ([Char], GValue)-constructProxyAddressUri val = constructObjectPropertyString "uri" (Just val)--data ProxyAddressUriPropertyInfo-instance AttrInfo ProxyAddressUriPropertyInfo where-    type AttrAllowedOps ProxyAddressUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressUriPropertyInfo = ProxyAddressK-    type AttrGetType ProxyAddressUriPropertyInfo = T.Text-    type AttrLabel ProxyAddressUriPropertyInfo = "uri"-    attrGet _ = getProxyAddressUri-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressUri-    attrClear _ = undefined---- VVV Prop "username"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getProxyAddressUsername :: (MonadIO m, ProxyAddressK o) => o -> m T.Text-getProxyAddressUsername obj = liftIO $ checkUnexpectedNothing "getProxyAddressUsername" $ getObjectPropertyString obj "username"--constructProxyAddressUsername :: T.Text -> IO ([Char], GValue)-constructProxyAddressUsername val = constructObjectPropertyString "username" (Just val)--data ProxyAddressUsernamePropertyInfo-instance AttrInfo ProxyAddressUsernamePropertyInfo where-    type AttrAllowedOps ProxyAddressUsernamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressUsernamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressUsernamePropertyInfo = ProxyAddressK-    type AttrGetType ProxyAddressUsernamePropertyInfo = T.Text-    type AttrLabel ProxyAddressUsernamePropertyInfo = "username"-    attrGet _ = getProxyAddressUsername-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressUsername-    attrClear _ = undefined--type instance AttributeList ProxyAddress = ProxyAddressAttributeList-type ProxyAddressAttributeList = ('[ '("address", InetSocketAddressAddressPropertyInfo), '("destinationHostname", ProxyAddressDestinationHostnamePropertyInfo), '("destinationPort", ProxyAddressDestinationPortPropertyInfo), '("destinationProtocol", ProxyAddressDestinationProtocolPropertyInfo), '("family", SocketAddressFamilyPropertyInfo), '("flowinfo", InetSocketAddressFlowinfoPropertyInfo), '("password", ProxyAddressPasswordPropertyInfo), '("port", InetSocketAddressPortPropertyInfo), '("protocol", ProxyAddressProtocolPropertyInfo), '("scopeId", InetSocketAddressScopeIdPropertyInfo), '("uri", ProxyAddressUriPropertyInfo), '("username", ProxyAddressUsernamePropertyInfo)] :: [(Symbol, *)])--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--type instance SignalList ProxyAddress = ProxyAddressSignalList-type ProxyAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ProxyAddress::new--- method type : Constructor--- Args : [Arg {argCName = "inetaddr", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "ProxyAddress")--- throws : False--- Skip return : False--foreign import ccall "g_proxy_address_new" g_proxy_address_new :: -    Ptr InetAddress ->                      -- inetaddr : TInterface "Gio" "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)---proxyAddressNew ::-    (MonadIO m, InetAddressK a) =>-    a                                       -- inetaddr-    -> Word16                               -- port-    -> T.Text                               -- protocol-    -> T.Text                               -- destHostname-    -> Word16                               -- destPort-    -> Maybe (T.Text)                       -- username-    -> Maybe (T.Text)                       -- password-    -> m ProxyAddress                       -- result-proxyAddressNew inetaddr port protocol destHostname destPort username password = liftIO $ do-    let 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 "g_proxy_address_new" result-    result' <- (wrapObject ProxyAddress) result-    touchManagedPtr inetaddr-    freeMem protocol'-    freeMem destHostname'-    freeMem maybeUsername-    freeMem maybePassword-    return result'---- method ProxyAddress::get_destination_hostname--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "ProxyAddress"-    IO CString---proxyAddressGetDestinationHostname ::-    (MonadIO m, ProxyAddressK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-proxyAddressGetDestinationHostname _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_proxy_address_get_destination_hostname _obj'-    checkUnexpectedReturnNULL "g_proxy_address_get_destination_hostname" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ProxyAddressGetDestinationHostnameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetDestinationHostnameMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetDestinationHostname---- method ProxyAddress::get_destination_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "ProxyAddress"-    IO Word16---proxyAddressGetDestinationPort ::-    (MonadIO m, ProxyAddressK a) =>-    a                                       -- _obj-    -> m Word16                             -- result-proxyAddressGetDestinationPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_proxy_address_get_destination_port _obj'-    touchManagedPtr _obj-    return result--data ProxyAddressGetDestinationPortMethodInfo-instance (signature ~ (m Word16), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetDestinationPortMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetDestinationPort---- method ProxyAddress::get_destination_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "ProxyAddress"-    IO CString---proxyAddressGetDestinationProtocol ::-    (MonadIO m, ProxyAddressK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-proxyAddressGetDestinationProtocol _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_proxy_address_get_destination_protocol _obj'-    checkUnexpectedReturnNULL "g_proxy_address_get_destination_protocol" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ProxyAddressGetDestinationProtocolMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetDestinationProtocolMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetDestinationProtocol---- method ProxyAddress::get_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "ProxyAddress"-    IO CString---proxyAddressGetPassword ::-    (MonadIO m, ProxyAddressK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-proxyAddressGetPassword _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_proxy_address_get_password _obj'-    checkUnexpectedReturnNULL "g_proxy_address_get_password" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ProxyAddressGetPasswordMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetPasswordMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetPassword---- method ProxyAddress::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "ProxyAddress"-    IO CString---proxyAddressGetProtocol ::-    (MonadIO m, ProxyAddressK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-proxyAddressGetProtocol _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_proxy_address_get_protocol _obj'-    checkUnexpectedReturnNULL "g_proxy_address_get_protocol" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ProxyAddressGetProtocolMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetProtocolMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetProtocol---- method ProxyAddress::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "ProxyAddress"-    IO CString---proxyAddressGetUri ::-    (MonadIO m, ProxyAddressK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-proxyAddressGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_proxy_address_get_uri _obj'-    checkUnexpectedReturnNULL "g_proxy_address_get_uri" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ProxyAddressGetUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetUriMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetUri---- method ProxyAddress::get_username--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "ProxyAddress"-    IO CString---proxyAddressGetUsername ::-    (MonadIO m, ProxyAddressK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-proxyAddressGetUsername _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_proxy_address_get_username _obj'-    checkUnexpectedReturnNULL "g_proxy_address_get_username" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data ProxyAddressGetUsernameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetUsernameMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetUsername--
− GI/Gio/Objects/ProxyAddress.hs-boot 
@@ -1,27 +0,0 @@-module GI.Gio.Objects.ProxyAddress where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ProxyAddress = ProxyAddress (ForeignPtr ProxyAddress)-instance GObject ProxyAddress where-class GObject o => ProxyAddressK o-instance (GObject o, IsDescendantOf ProxyAddress o) => ProxyAddressK o-data ProxyAddressDestinationHostnamePropertyInfo-data ProxyAddressDestinationPortPropertyInfo-data ProxyAddressDestinationProtocolPropertyInfo-data ProxyAddressPasswordPropertyInfo-data ProxyAddressProtocolPropertyInfo-data ProxyAddressUriPropertyInfo-data ProxyAddressUsernamePropertyInfo-data ProxyAddressGetDestinationHostnameMethodInfo-data ProxyAddressGetDestinationPortMethodInfo-data ProxyAddressGetDestinationProtocolMethodInfo-data ProxyAddressGetPasswordMethodInfo-data ProxyAddressGetProtocolMethodInfo-data ProxyAddressGetUriMethodInfo-data ProxyAddressGetUsernameMethodInfo
− GI/Gio/Objects/ProxyAddressEnumerator.hs 
@@ -1,238 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.ProxyAddressEnumerator-    ( ---- * Exported types-    ProxyAddressEnumerator(..)              ,-    ProxyAddressEnumeratorK                 ,-    toProxyAddressEnumerator                ,-    noProxyAddressEnumerator                ,--- -- * Properties--- ** Connectable-    ProxyAddressEnumeratorConnectablePropertyInfo,-    constructProxyAddressEnumeratorConnectable,-    getProxyAddressEnumeratorConnectable    ,-    proxyAddressEnumeratorConnectable       ,----- ** DefaultPort-    ProxyAddressEnumeratorDefaultPortPropertyInfo,-    constructProxyAddressEnumeratorDefaultPort,-    getProxyAddressEnumeratorDefaultPort    ,-    proxyAddressEnumeratorDefaultPort       ,----- ** ProxyResolver-    ProxyAddressEnumeratorProxyResolverPropertyInfo,-    clearProxyAddressEnumeratorProxyResolver,-    constructProxyAddressEnumeratorProxyResolver,-    getProxyAddressEnumeratorProxyResolver  ,-    proxyAddressEnumeratorProxyResolver     ,-    setProxyAddressEnumeratorProxyResolver  ,----- ** Uri-    ProxyAddressEnumeratorUriPropertyInfo   ,-    constructProxyAddressEnumeratorUri      ,-    getProxyAddressEnumeratorUri            ,-    proxyAddressEnumeratorUri               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype ProxyAddressEnumerator = ProxyAddressEnumerator (ForeignPtr ProxyAddressEnumerator)-foreign import ccall "g_proxy_address_enumerator_get_type"-    c_g_proxy_address_enumerator_get_type :: IO GType--type instance ParentTypes ProxyAddressEnumerator = ProxyAddressEnumeratorParentTypes-type ProxyAddressEnumeratorParentTypes = '[SocketAddressEnumerator, GObject.Object]--instance GObject ProxyAddressEnumerator where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_proxy_address_enumerator_get_type-    --class GObject o => ProxyAddressEnumeratorK o-instance (GObject o, IsDescendantOf ProxyAddressEnumerator o) => ProxyAddressEnumeratorK o--toProxyAddressEnumerator :: ProxyAddressEnumeratorK o => o -> IO ProxyAddressEnumerator-toProxyAddressEnumerator = unsafeCastTo ProxyAddressEnumerator--noProxyAddressEnumerator :: Maybe ProxyAddressEnumerator-noProxyAddressEnumerator = Nothing--type family ResolveProxyAddressEnumeratorMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyAddressEnumeratorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveProxyAddressEnumeratorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveProxyAddressEnumeratorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveProxyAddressEnumeratorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveProxyAddressEnumeratorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveProxyAddressEnumeratorMethod "next" o = SocketAddressEnumeratorNextMethodInfo-    ResolveProxyAddressEnumeratorMethod "nextAsync" o = SocketAddressEnumeratorNextAsyncMethodInfo-    ResolveProxyAddressEnumeratorMethod "nextFinish" o = SocketAddressEnumeratorNextFinishMethodInfo-    ResolveProxyAddressEnumeratorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveProxyAddressEnumeratorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveProxyAddressEnumeratorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveProxyAddressEnumeratorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveProxyAddressEnumeratorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveProxyAddressEnumeratorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveProxyAddressEnumeratorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveProxyAddressEnumeratorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveProxyAddressEnumeratorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveProxyAddressEnumeratorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveProxyAddressEnumeratorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveProxyAddressEnumeratorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveProxyAddressEnumeratorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveProxyAddressEnumeratorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveProxyAddressEnumeratorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveProxyAddressEnumeratorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveProxyAddressEnumeratorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveProxyAddressEnumeratorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveProxyAddressEnumeratorMethod t ProxyAddressEnumerator, MethodInfo info ProxyAddressEnumerator p) => IsLabelProxy t (ProxyAddressEnumerator -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveProxyAddressEnumeratorMethod t ProxyAddressEnumerator, MethodInfo info ProxyAddressEnumerator p) => IsLabel t (ProxyAddressEnumerator -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "connectable"-   -- Type: TInterface "Gio" "SocketConnectable"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getProxyAddressEnumeratorConnectable :: (MonadIO m, ProxyAddressEnumeratorK o) => o -> m (Maybe SocketConnectable)-getProxyAddressEnumeratorConnectable obj = liftIO $ getObjectPropertyObject obj "connectable" SocketConnectable--constructProxyAddressEnumeratorConnectable :: (SocketConnectableK a) => a -> IO ([Char], GValue)-constructProxyAddressEnumeratorConnectable val = constructObjectPropertyObject "connectable" (Just val)--data ProxyAddressEnumeratorConnectablePropertyInfo-instance AttrInfo ProxyAddressEnumeratorConnectablePropertyInfo where-    type AttrAllowedOps ProxyAddressEnumeratorConnectablePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressEnumeratorConnectablePropertyInfo = SocketConnectableK-    type AttrBaseTypeConstraint ProxyAddressEnumeratorConnectablePropertyInfo = ProxyAddressEnumeratorK-    type AttrGetType ProxyAddressEnumeratorConnectablePropertyInfo = (Maybe SocketConnectable)-    type AttrLabel ProxyAddressEnumeratorConnectablePropertyInfo = "connectable"-    attrGet _ = getProxyAddressEnumeratorConnectable-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressEnumeratorConnectable-    attrClear _ = undefined---- VVV Prop "default-port"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getProxyAddressEnumeratorDefaultPort :: (MonadIO m, ProxyAddressEnumeratorK o) => o -> m Word32-getProxyAddressEnumeratorDefaultPort obj = liftIO $ getObjectPropertyUInt32 obj "default-port"--constructProxyAddressEnumeratorDefaultPort :: Word32 -> IO ([Char], GValue)-constructProxyAddressEnumeratorDefaultPort val = constructObjectPropertyUInt32 "default-port" val--data ProxyAddressEnumeratorDefaultPortPropertyInfo-instance AttrInfo ProxyAddressEnumeratorDefaultPortPropertyInfo where-    type AttrAllowedOps ProxyAddressEnumeratorDefaultPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ProxyAddressEnumeratorDefaultPortPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint ProxyAddressEnumeratorDefaultPortPropertyInfo = ProxyAddressEnumeratorK-    type AttrGetType ProxyAddressEnumeratorDefaultPortPropertyInfo = Word32-    type AttrLabel ProxyAddressEnumeratorDefaultPortPropertyInfo = "default-port"-    attrGet _ = getProxyAddressEnumeratorDefaultPort-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressEnumeratorDefaultPort-    attrClear _ = undefined---- VVV Prop "proxy-resolver"-   -- Type: TInterface "Gio" "ProxyResolver"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getProxyAddressEnumeratorProxyResolver :: (MonadIO m, ProxyAddressEnumeratorK o) => o -> m (Maybe ProxyResolver)-getProxyAddressEnumeratorProxyResolver obj = liftIO $ getObjectPropertyObject obj "proxy-resolver" ProxyResolver--setProxyAddressEnumeratorProxyResolver :: (MonadIO m, ProxyAddressEnumeratorK o, ProxyResolverK a) => o -> a -> m ()-setProxyAddressEnumeratorProxyResolver obj val = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Just val)--constructProxyAddressEnumeratorProxyResolver :: (ProxyResolverK a) => a -> IO ([Char], GValue)-constructProxyAddressEnumeratorProxyResolver val = constructObjectPropertyObject "proxy-resolver" (Just val)--clearProxyAddressEnumeratorProxyResolver :: (MonadIO m, ProxyAddressEnumeratorK o) => o -> m ()-clearProxyAddressEnumeratorProxyResolver obj = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Nothing :: Maybe ProxyResolver)--data ProxyAddressEnumeratorProxyResolverPropertyInfo-instance AttrInfo ProxyAddressEnumeratorProxyResolverPropertyInfo where-    type AttrAllowedOps ProxyAddressEnumeratorProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressEnumeratorProxyResolverPropertyInfo = ProxyResolverK-    type AttrBaseTypeConstraint ProxyAddressEnumeratorProxyResolverPropertyInfo = ProxyAddressEnumeratorK-    type AttrGetType ProxyAddressEnumeratorProxyResolverPropertyInfo = (Maybe ProxyResolver)-    type AttrLabel ProxyAddressEnumeratorProxyResolverPropertyInfo = "proxy-resolver"-    attrGet _ = getProxyAddressEnumeratorProxyResolver-    attrSet _ = setProxyAddressEnumeratorProxyResolver-    attrConstruct _ = constructProxyAddressEnumeratorProxyResolver-    attrClear _ = clearProxyAddressEnumeratorProxyResolver---- VVV Prop "uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getProxyAddressEnumeratorUri :: (MonadIO m, ProxyAddressEnumeratorK o) => o -> m (Maybe T.Text)-getProxyAddressEnumeratorUri obj = liftIO $ getObjectPropertyString obj "uri"--constructProxyAddressEnumeratorUri :: T.Text -> IO ([Char], GValue)-constructProxyAddressEnumeratorUri val = constructObjectPropertyString "uri" (Just val)--data ProxyAddressEnumeratorUriPropertyInfo-instance AttrInfo ProxyAddressEnumeratorUriPropertyInfo where-    type AttrAllowedOps ProxyAddressEnumeratorUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressEnumeratorUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressEnumeratorUriPropertyInfo = ProxyAddressEnumeratorK-    type AttrGetType ProxyAddressEnumeratorUriPropertyInfo = (Maybe T.Text)-    type AttrLabel ProxyAddressEnumeratorUriPropertyInfo = "uri"-    attrGet _ = getProxyAddressEnumeratorUri-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressEnumeratorUri-    attrClear _ = undefined--type instance AttributeList ProxyAddressEnumerator = ProxyAddressEnumeratorAttributeList-type ProxyAddressEnumeratorAttributeList = ('[ '("connectable", ProxyAddressEnumeratorConnectablePropertyInfo), '("defaultPort", ProxyAddressEnumeratorDefaultPortPropertyInfo), '("proxyResolver", ProxyAddressEnumeratorProxyResolverPropertyInfo), '("uri", ProxyAddressEnumeratorUriPropertyInfo)] :: [(Symbol, *)])--proxyAddressEnumeratorConnectable :: AttrLabelProxy "connectable"-proxyAddressEnumeratorConnectable = AttrLabelProxy--proxyAddressEnumeratorDefaultPort :: AttrLabelProxy "defaultPort"-proxyAddressEnumeratorDefaultPort = AttrLabelProxy--proxyAddressEnumeratorProxyResolver :: AttrLabelProxy "proxyResolver"-proxyAddressEnumeratorProxyResolver = AttrLabelProxy--proxyAddressEnumeratorUri :: AttrLabelProxy "uri"-proxyAddressEnumeratorUri = AttrLabelProxy--type instance SignalList ProxyAddressEnumerator = ProxyAddressEnumeratorSignalList-type ProxyAddressEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Gio/Objects/ProxyAddressEnumerator.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.ProxyAddressEnumerator where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ProxyAddressEnumerator = ProxyAddressEnumerator (ForeignPtr ProxyAddressEnumerator)-instance GObject ProxyAddressEnumerator where-class GObject o => ProxyAddressEnumeratorK o-instance (GObject o, IsDescendantOf ProxyAddressEnumerator o) => ProxyAddressEnumeratorK o-data ProxyAddressEnumeratorConnectablePropertyInfo-data ProxyAddressEnumeratorDefaultPortPropertyInfo-data ProxyAddressEnumeratorProxyResolverPropertyInfo-data ProxyAddressEnumeratorUriPropertyInfo
− GI/Gio/Objects/Resolver.hs 
@@ -1,851 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Resolver-    ( ---- * Exported types-    Resolver(..)                            ,-    ResolverK                               ,-    toResolver                              ,-    noResolver                              ,--- -- * Methods--- ** resolverGetDefault-    resolverGetDefault                      ,----- ** resolverLookupByAddress-    ResolverLookupByAddressMethodInfo       ,-    resolverLookupByAddress                 ,----- ** resolverLookupByAddressAsync-    ResolverLookupByAddressAsyncMethodInfo  ,-    resolverLookupByAddressAsync            ,----- ** resolverLookupByAddressFinish-    ResolverLookupByAddressFinishMethodInfo ,-    resolverLookupByAddressFinish           ,----- ** resolverLookupByName-    ResolverLookupByNameMethodInfo          ,-    resolverLookupByName                    ,----- ** resolverLookupByNameAsync-    ResolverLookupByNameAsyncMethodInfo     ,-    resolverLookupByNameAsync               ,----- ** resolverLookupByNameFinish-    ResolverLookupByNameFinishMethodInfo    ,-    resolverLookupByNameFinish              ,----- ** resolverLookupRecords-    ResolverLookupRecordsMethodInfo         ,-    resolverLookupRecords                   ,----- ** resolverLookupRecordsAsync-    ResolverLookupRecordsAsyncMethodInfo    ,-    resolverLookupRecordsAsync              ,----- ** resolverLookupRecordsFinish-    ResolverLookupRecordsFinishMethodInfo   ,-    resolverLookupRecordsFinish             ,----- ** resolverLookupService-    ResolverLookupServiceMethodInfo         ,-    resolverLookupService                   ,----- ** resolverLookupServiceAsync-    ResolverLookupServiceAsyncMethodInfo    ,-    resolverLookupServiceAsync              ,----- ** resolverLookupServiceFinish-    ResolverLookupServiceFinishMethodInfo   ,-    resolverLookupServiceFinish             ,----- ** resolverSetDefault-    ResolverSetDefaultMethodInfo            ,-    resolverSetDefault                      ,----- -- * Signals--- ** Reload-    ResolverReloadCallback                  ,-    ResolverReloadCallbackC                 ,-    ResolverReloadSignalInfo                ,-    afterResolverReload                     ,-    mkResolverReloadCallback                ,-    noResolverReloadCallback                ,-    onResolverReload                        ,-    resolverReloadCallbackWrapper           ,-    resolverReloadClosure                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype Resolver = Resolver (ForeignPtr Resolver)-foreign import ccall "g_resolver_get_type"-    c_g_resolver_get_type :: IO GType--type instance ParentTypes Resolver = ResolverParentTypes-type ResolverParentTypes = '[GObject.Object]--instance GObject Resolver where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_resolver_get_type-    --class GObject o => ResolverK o-instance (GObject o, IsDescendantOf Resolver o) => ResolverK o--toResolver :: ResolverK o => o -> IO Resolver-toResolver = unsafeCastTo Resolver--noResolver :: Maybe Resolver-noResolver = Nothing--type family ResolveResolverMethod (t :: Symbol) (o :: *) :: * where-    ResolveResolverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveResolverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveResolverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveResolverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveResolverMethod "isFloating" o = GObject.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 "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.ObjectNotifyMethodInfo-    ResolveResolverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveResolverMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveResolverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveResolverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveResolverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveResolverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveResolverMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveResolverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveResolverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveResolverMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveResolverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveResolverMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveResolverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveResolverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveResolverMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveResolverMethod "setDefault" o = ResolverSetDefaultMethodInfo-    ResolveResolverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveResolverMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveResolverMethod t Resolver, MethodInfo info Resolver p) => IsLabelProxy t (Resolver -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveResolverMethod t Resolver, MethodInfo info Resolver p) => IsLabel t (Resolver -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Resolver::reload-type ResolverReloadCallback =-    IO ()--noResolverReloadCallback :: Maybe ResolverReloadCallback-noResolverReloadCallback = Nothing--type ResolverReloadCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkResolverReloadCallback :: ResolverReloadCallbackC -> IO (FunPtr ResolverReloadCallbackC)--resolverReloadClosure :: ResolverReloadCallback -> IO Closure-resolverReloadClosure cb = newCClosure =<< mkResolverReloadCallback wrapped-    where wrapped = resolverReloadCallbackWrapper cb--resolverReloadCallbackWrapper ::-    ResolverReloadCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-resolverReloadCallbackWrapper _cb _ _ = do-    _cb --onResolverReload :: (GObject a, MonadIO m) => a -> ResolverReloadCallback -> m SignalHandlerId-onResolverReload obj cb = liftIO $ connectResolverReload obj cb SignalConnectBefore-afterResolverReload :: (GObject a, MonadIO m) => a -> ResolverReloadCallback -> m SignalHandlerId-afterResolverReload obj cb = connectResolverReload obj cb SignalConnectAfter--connectResolverReload :: (GObject a, MonadIO m) =>-                         a -> ResolverReloadCallback -> SignalConnectMode -> m SignalHandlerId-connectResolverReload obj cb after = liftIO $ do-    cb' <- mkResolverReloadCallback (resolverReloadCallbackWrapper cb)-    connectSignalFunPtr obj "reload" cb' after--type instance AttributeList Resolver = ResolverAttributeList-type ResolverAttributeList = ('[ ] :: [(Symbol, *)])--data ResolverReloadSignalInfo-instance SignalInfo ResolverReloadSignalInfo where-    type HaskellCallbackType ResolverReloadSignalInfo = ResolverReloadCallback-    connectSignal _ = connectResolverReload--type instance SignalList Resolver = ResolverSignalList-type ResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("reload", ResolverReloadSignalInfo)] :: [(Symbol, *)])---- method Resolver::lookup_by_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "Resolver"-    Ptr InetAddress ->                      -- address : TInterface "Gio" "InetAddress"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CString---resolverLookupByAddress ::-    (MonadIO m, ResolverK a, InetAddressK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- address-    -> Maybe (c)                            -- cancellable-    -> m T.Text                             -- result-resolverLookupByAddress _obj address cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let address' = unsafeManagedPtrCastPtr address-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_resolver_lookup_by_address _obj' address' maybeCancellable-        checkUnexpectedReturnNULL "g_resolver_lookup_by_address" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        touchManagedPtr address-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data ResolverLookupByAddressMethodInfo-instance (signature ~ (b -> Maybe (c) -> m T.Text), MonadIO m, ResolverK a, InetAddressK b, CancellableK c) => MethodInfo ResolverLookupByAddressMethodInfo a signature where-    overloadedMethod _ = resolverLookupByAddress---- method Resolver::lookup_by_address_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Resolver"-    Ptr InetAddress ->                      -- address : TInterface "Gio" "InetAddress"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---resolverLookupByAddressAsync ::-    (MonadIO m, ResolverK a, InetAddressK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- address-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-resolverLookupByAddressAsync _obj address cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let address' = unsafeManagedPtrCastPtr address-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_resolver_lookup_by_address_async _obj' address' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr address-    whenJust cancellable touchManagedPtr-    return ()--data ResolverLookupByAddressAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ResolverK a, InetAddressK b, CancellableK c) => MethodInfo ResolverLookupByAddressAsyncMethodInfo a signature where-    overloadedMethod _ = resolverLookupByAddressAsync---- method Resolver::lookup_by_address_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Resolver"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CString---resolverLookupByAddressFinish ::-    (MonadIO m, ResolverK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m T.Text                             -- result-resolverLookupByAddressFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_resolver_lookup_by_address_finish _obj' result_'-        checkUnexpectedReturnNULL "g_resolver_lookup_by_address_finish" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data ResolverLookupByAddressFinishMethodInfo-instance (signature ~ (b -> m T.Text), MonadIO m, ResolverK a, AsyncResultK b) => MethodInfo ResolverLookupByAddressFinishMethodInfo a signature where-    overloadedMethod _ = resolverLookupByAddressFinish---- method Resolver::lookup_by_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "InetAddress"))--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_by_name" g_resolver_lookup_by_name :: -    Ptr Resolver ->                         -- _obj : TInterface "Gio" "Resolver"-    CString ->                              -- hostname : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr InetAddress)))---resolverLookupByName ::-    (MonadIO m, ResolverK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- hostname-    -> Maybe (b)                            -- cancellable-    -> m [InetAddress]                      -- result-resolverLookupByName _obj hostname cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    hostname' <- textToCString hostname-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_resolver_lookup_by_name _obj' hostname' maybeCancellable-        result' <- unpackGList result-        result'' <- mapM (wrapObject InetAddress) result'-        g_list_free result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem hostname'-        return result''-     ) (do-        freeMem hostname'-     )--data ResolverLookupByNameMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m [InetAddress]), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupByNameMethodInfo a signature where-    overloadedMethod _ = resolverLookupByName---- method Resolver::lookup_by_name_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Resolver"-    CString ->                              -- hostname : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---resolverLookupByNameAsync ::-    (MonadIO m, ResolverK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- hostname-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-resolverLookupByNameAsync _obj hostname cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    hostname' <- textToCString hostname-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_resolver_lookup_by_name_async _obj' hostname' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem hostname'-    return ()--data ResolverLookupByNameAsyncMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupByNameAsyncMethodInfo a signature where-    overloadedMethod _ = resolverLookupByNameAsync---- method Resolver::lookup_by_name_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "InetAddress"))--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_by_name_finish" g_resolver_lookup_by_name_finish :: -    Ptr Resolver ->                         -- _obj : TInterface "Gio" "Resolver"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr InetAddress)))---resolverLookupByNameFinish ::-    (MonadIO m, ResolverK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m [InetAddress]                      -- result-resolverLookupByNameFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_resolver_lookup_by_name_finish _obj' result_'-        result' <- unpackGList result-        result'' <- mapM (wrapObject InetAddress) result'-        g_list_free result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--data ResolverLookupByNameFinishMethodInfo-instance (signature ~ (b -> m [InetAddress]), MonadIO m, ResolverK a, AsyncResultK b) => MethodInfo ResolverLookupByNameFinishMethodInfo a signature where-    overloadedMethod _ = resolverLookupByNameFinish---- method Resolver::lookup_records--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rrname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "record_type", argType = TInterface "Gio" "ResolverRecordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "Resolver"-    CString ->                              -- rrname : TBasicType TUTF8-    CUInt ->                                -- record_type : TInterface "Gio" "ResolverRecordType"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr GVariant)))---resolverLookupRecords ::-    (MonadIO m, ResolverK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- rrname-    -> ResolverRecordType                   -- recordType-    -> Maybe (b)                            -- cancellable-    -> m [GVariant]                         -- result-resolverLookupRecords _obj rrname recordType cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rrname' <- textToCString rrname-    let recordType' = (fromIntegral . fromEnum) recordType-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_resolver_lookup_records _obj' rrname' recordType' maybeCancellable-        result' <- unpackGList result-        result'' <- mapM wrapGVariantPtr result'-        g_list_free result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem rrname'-        return result''-     ) (do-        freeMem rrname'-     )--data ResolverLookupRecordsMethodInfo-instance (signature ~ (T.Text -> ResolverRecordType -> Maybe (b) -> m [GVariant]), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupRecordsMethodInfo a signature where-    overloadedMethod _ = resolverLookupRecords---- method Resolver::lookup_records_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rrname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "record_type", argType = TInterface "Gio" "ResolverRecordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Resolver"-    CString ->                              -- rrname : TBasicType TUTF8-    CUInt ->                                -- record_type : TInterface "Gio" "ResolverRecordType"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---resolverLookupRecordsAsync ::-    (MonadIO m, ResolverK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- rrname-    -> ResolverRecordType                   -- recordType-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-resolverLookupRecordsAsync _obj rrname recordType cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rrname' <- textToCString rrname-    let recordType' = (fromIntegral . fromEnum) recordType-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_resolver_lookup_records_async _obj' rrname' recordType' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem rrname'-    return ()--data ResolverLookupRecordsAsyncMethodInfo-instance (signature ~ (T.Text -> ResolverRecordType -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupRecordsAsyncMethodInfo a signature where-    overloadedMethod _ = resolverLookupRecordsAsync---- method Resolver::lookup_records_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Resolver"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr GVariant)))---resolverLookupRecordsFinish ::-    (MonadIO m, ResolverK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m [GVariant]                         -- result-resolverLookupRecordsFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_resolver_lookup_records_finish _obj' result_'-        result' <- unpackGList result-        result'' <- mapM wrapGVariantPtr result'-        g_list_free result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--data ResolverLookupRecordsFinishMethodInfo-instance (signature ~ (b -> m [GVariant]), MonadIO m, ResolverK a, AsyncResultK b) => MethodInfo ResolverLookupRecordsFinishMethodInfo a signature where-    overloadedMethod _ = resolverLookupRecordsFinish---- method Resolver::lookup_service--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "SrvTarget"))--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_service" g_resolver_lookup_service :: -    Ptr Resolver ->                         -- _obj : TInterface "Gio" "Resolver"-    CString ->                              -- service : TBasicType TUTF8-    CString ->                              -- protocol : TBasicType TUTF8-    CString ->                              -- domain : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr SrvTarget)))---resolverLookupService ::-    (MonadIO m, ResolverK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- service-    -> T.Text                               -- protocol-    -> T.Text                               -- domain-    -> Maybe (b)                            -- cancellable-    -> m [SrvTarget]                        -- result-resolverLookupService _obj service protocol domain cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    service' <- textToCString service-    protocol' <- textToCString protocol-    domain' <- textToCString domain-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_resolver_lookup_service _obj' service' protocol' domain' maybeCancellable-        result' <- unpackGList result-        result'' <- mapM (wrapBoxed SrvTarget) result'-        g_list_free result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem service'-        freeMem protocol'-        freeMem domain'-        return result''-     ) (do-        freeMem service'-        freeMem protocol'-        freeMem domain'-     )--data ResolverLookupServiceMethodInfo-instance (signature ~ (T.Text -> T.Text -> T.Text -> Maybe (b) -> m [SrvTarget]), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupServiceMethodInfo a signature where-    overloadedMethod _ = resolverLookupService---- method Resolver::lookup_service_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Resolver"-    CString ->                              -- service : TBasicType TUTF8-    CString ->                              -- protocol : TBasicType TUTF8-    CString ->                              -- domain : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---resolverLookupServiceAsync ::-    (MonadIO m, ResolverK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- service-    -> T.Text                               -- protocol-    -> T.Text                               -- domain-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-resolverLookupServiceAsync _obj service protocol domain cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    service' <- textToCString service-    protocol' <- textToCString protocol-    domain' <- textToCString domain-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_resolver_lookup_service_async _obj' service' protocol' domain' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem service'-    freeMem protocol'-    freeMem domain'-    return ()--data ResolverLookupServiceAsyncMethodInfo-instance (signature ~ (T.Text -> T.Text -> T.Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupServiceAsyncMethodInfo a signature where-    overloadedMethod _ = resolverLookupServiceAsync---- method Resolver::lookup_service_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "SrvTarget"))--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_service_finish" g_resolver_lookup_service_finish :: -    Ptr Resolver ->                         -- _obj : TInterface "Gio" "Resolver"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr SrvTarget)))---resolverLookupServiceFinish ::-    (MonadIO m, ResolverK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m [SrvTarget]                        -- result-resolverLookupServiceFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_resolver_lookup_service_finish _obj' result_'-        result' <- unpackGList result-        result'' <- mapM (wrapBoxed SrvTarget) result'-        g_list_free result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--data ResolverLookupServiceFinishMethodInfo-instance (signature ~ (b -> m [SrvTarget]), MonadIO m, ResolverK a, AsyncResultK b) => MethodInfo ResolverLookupServiceFinishMethodInfo a signature where-    overloadedMethod _ = resolverLookupServiceFinish---- method Resolver::set_default--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Resolver"-    IO ()---resolverSetDefault ::-    (MonadIO m, ResolverK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-resolverSetDefault _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_resolver_set_default _obj'-    touchManagedPtr _obj-    return ()--data ResolverSetDefaultMethodInfo-instance (signature ~ (m ()), MonadIO m, ResolverK a) => MethodInfo ResolverSetDefaultMethodInfo a signature where-    overloadedMethod _ = resolverSetDefault---- method Resolver::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "Resolver")--- throws : False--- Skip return : False--foreign import ccall "g_resolver_get_default" g_resolver_get_default :: -    IO (Ptr Resolver)---resolverGetDefault ::-    (MonadIO m) =>-    m Resolver                              -- result-resolverGetDefault  = liftIO $ do-    result <- g_resolver_get_default-    checkUnexpectedReturnNULL "g_resolver_get_default" result-    result' <- (wrapObject Resolver) result-    return result'--
− GI/Gio/Objects/Resolver.hs-boot 
@@ -1,27 +0,0 @@-module GI.Gio.Objects.Resolver where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Resolver = Resolver (ForeignPtr Resolver)-instance GObject Resolver where-class GObject o => ResolverK o-instance (GObject o, IsDescendantOf Resolver o) => ResolverK o-data ResolverReloadSignalInfo-data ResolverLookupByAddressMethodInfo-data ResolverLookupByAddressAsyncMethodInfo-data ResolverLookupByAddressFinishMethodInfo-data ResolverLookupByNameMethodInfo-data ResolverLookupByNameAsyncMethodInfo-data ResolverLookupByNameFinishMethodInfo-data ResolverLookupRecordsMethodInfo-data ResolverLookupRecordsAsyncMethodInfo-data ResolverLookupRecordsFinishMethodInfo-data ResolverLookupServiceMethodInfo-data ResolverLookupServiceAsyncMethodInfo-data ResolverLookupServiceFinishMethodInfo-data ResolverSetDefaultMethodInfo
− GI/Gio/Objects/Settings.hs 
@@ -1,2191 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Settings-    ( ---- * Exported types-    Settings(..)                            ,-    SettingsK                               ,-    toSettings                              ,-    noSettings                              ,--- -- * Methods--- ** settingsApply-    SettingsApplyMethodInfo                 ,-    settingsApply                           ,----- ** settingsBind-    SettingsBindMethodInfo                  ,-    settingsBind                            ,----- ** settingsBindWritable-    SettingsBindWritableMethodInfo          ,-    settingsBindWritable                    ,----- ** settingsCreateAction-    SettingsCreateActionMethodInfo          ,-    settingsCreateAction                    ,----- ** settingsDelay-    SettingsDelayMethodInfo                 ,-    settingsDelay                           ,----- ** settingsGetBoolean-    SettingsGetBooleanMethodInfo            ,-    settingsGetBoolean                      ,----- ** settingsGetChild-    SettingsGetChildMethodInfo              ,-    settingsGetChild                        ,----- ** settingsGetDefaultValue-    SettingsGetDefaultValueMethodInfo       ,-    settingsGetDefaultValue                 ,----- ** settingsGetDouble-    SettingsGetDoubleMethodInfo             ,-    settingsGetDouble                       ,----- ** settingsGetEnum-    SettingsGetEnumMethodInfo               ,-    settingsGetEnum                         ,----- ** settingsGetFlags-    SettingsGetFlagsMethodInfo              ,-    settingsGetFlags                        ,----- ** settingsGetHasUnapplied-    SettingsGetHasUnappliedMethodInfo       ,-    settingsGetHasUnapplied                 ,----- ** settingsGetInt-    SettingsGetIntMethodInfo                ,-    settingsGetInt                          ,----- ** settingsGetMapped-    SettingsGetMappedMethodInfo             ,-    settingsGetMapped                       ,----- ** settingsGetRange-    SettingsGetRangeMethodInfo              ,-    settingsGetRange                        ,----- ** settingsGetString-    SettingsGetStringMethodInfo             ,-    settingsGetString                       ,----- ** settingsGetStrv-    SettingsGetStrvMethodInfo               ,-    settingsGetStrv                         ,----- ** settingsGetUint-    SettingsGetUintMethodInfo               ,-    settingsGetUint                         ,----- ** settingsGetUserValue-    SettingsGetUserValueMethodInfo          ,-    settingsGetUserValue                    ,----- ** settingsGetValue-    SettingsGetValueMethodInfo              ,-    settingsGetValue                        ,----- ** settingsIsWritable-    SettingsIsWritableMethodInfo            ,-    settingsIsWritable                      ,----- ** settingsListChildren-    SettingsListChildrenMethodInfo          ,-    settingsListChildren                    ,----- ** settingsListKeys-    SettingsListKeysMethodInfo              ,-    settingsListKeys                        ,----- ** settingsListRelocatableSchemas-    settingsListRelocatableSchemas          ,----- ** settingsListSchemas-    settingsListSchemas                     ,----- ** settingsNew-    settingsNew                             ,----- ** settingsNewFull-    settingsNewFull                         ,----- ** settingsNewWithBackend-    settingsNewWithBackend                  ,----- ** settingsNewWithBackendAndPath-    settingsNewWithBackendAndPath           ,----- ** settingsNewWithPath-    settingsNewWithPath                     ,----- ** settingsRangeCheck-    SettingsRangeCheckMethodInfo            ,-    settingsRangeCheck                      ,----- ** settingsReset-    SettingsResetMethodInfo                 ,-    settingsReset                           ,----- ** settingsRevert-    SettingsRevertMethodInfo                ,-    settingsRevert                          ,----- ** settingsSetBoolean-    SettingsSetBooleanMethodInfo            ,-    settingsSetBoolean                      ,----- ** settingsSetDouble-    SettingsSetDoubleMethodInfo             ,-    settingsSetDouble                       ,----- ** settingsSetEnum-    SettingsSetEnumMethodInfo               ,-    settingsSetEnum                         ,----- ** settingsSetFlags-    SettingsSetFlagsMethodInfo              ,-    settingsSetFlags                        ,----- ** settingsSetInt-    SettingsSetIntMethodInfo                ,-    settingsSetInt                          ,----- ** settingsSetString-    SettingsSetStringMethodInfo             ,-    settingsSetString                       ,----- ** settingsSetStrv-    SettingsSetStrvMethodInfo               ,-    settingsSetStrv                         ,----- ** settingsSetUint-    SettingsSetUintMethodInfo               ,-    settingsSetUint                         ,----- ** settingsSetValue-    SettingsSetValueMethodInfo              ,-    settingsSetValue                        ,----- ** settingsSync-    settingsSync                            ,----- ** settingsUnbind-    settingsUnbind                          ,----- -- * Properties--- ** DelayApply-    SettingsDelayApplyPropertyInfo          ,-    getSettingsDelayApply                   ,-    settingsDelayApply                      ,----- ** HasUnapplied-    SettingsHasUnappliedPropertyInfo        ,-    getSettingsHasUnapplied                 ,-    settingsHasUnapplied                    ,----- ** Path-    SettingsPathPropertyInfo                ,-    constructSettingsPath                   ,-    getSettingsPath                         ,-    settingsPath                            ,----- ** Schema-    SettingsSchemaPropertyInfo              ,-    constructSettingsSchema                 ,-    getSettingsSchema                       ,-    settingsSchema                          ,----- ** SchemaId-    SettingsSchemaIdPropertyInfo            ,-    constructSettingsSchemaId               ,-    getSettingsSchemaId                     ,-    settingsSchemaId                        ,----- ** SettingsSchema-    SettingsSettingsSchemaPropertyInfo      ,-    constructSettingsSettingsSchema         ,-    getSettingsSettingsSchema               ,-    settingsSettingsSchema                  ,----- -- * Signals--- ** ChangeEvent-    SettingsChangeEventCallback             ,-    SettingsChangeEventCallbackC            ,-    SettingsChangeEventSignalInfo           ,-    afterSettingsChangeEvent                ,-    mkSettingsChangeEventCallback           ,-    noSettingsChangeEventCallback           ,-    onSettingsChangeEvent                   ,-    settingsChangeEventCallbackWrapper      ,-    settingsChangeEventClosure              ,----- ** Changed-    SettingsChangedCallback                 ,-    SettingsChangedCallbackC                ,-    SettingsChangedSignalInfo               ,-    afterSettingsChanged                    ,-    mkSettingsChangedCallback               ,-    noSettingsChangedCallback               ,-    onSettingsChanged                       ,-    settingsChangedCallbackWrapper          ,-    settingsChangedClosure                  ,----- ** WritableChangeEvent-    SettingsWritableChangeEventCallback     ,-    SettingsWritableChangeEventCallbackC    ,-    SettingsWritableChangeEventSignalInfo   ,-    afterSettingsWritableChangeEvent        ,-    mkSettingsWritableChangeEventCallback   ,-    noSettingsWritableChangeEventCallback   ,-    onSettingsWritableChangeEvent           ,-    settingsWritableChangeEventCallbackWrapper,-    settingsWritableChangeEventClosure      ,----- ** WritableChanged-    SettingsWritableChangedCallback         ,-    SettingsWritableChangedCallbackC        ,-    SettingsWritableChangedSignalInfo       ,-    afterSettingsWritableChanged            ,-    mkSettingsWritableChangedCallback       ,-    noSettingsWritableChangedCallback       ,-    onSettingsWritableChanged               ,-    settingsWritableChangedCallbackWrapper  ,-    settingsWritableChangedClosure          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype Settings = Settings (ForeignPtr Settings)-foreign import ccall "g_settings_get_type"-    c_g_settings_get_type :: IO GType--type instance ParentTypes Settings = SettingsParentTypes-type SettingsParentTypes = '[GObject.Object]--instance GObject Settings where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_settings_get_type-    --class GObject o => SettingsK o-instance (GObject o, IsDescendantOf Settings o) => SettingsK o--toSettings :: SettingsK o => o -> IO Settings-toSettings = unsafeCastTo Settings--noSettings :: Maybe Settings-noSettings = Nothing--type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where-    ResolveSettingsMethod "apply" o = SettingsApplyMethodInfo-    ResolveSettingsMethod "bind" o = SettingsBindMethodInfo-    ResolveSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSettingsMethod "bindWritable" o = SettingsBindWritableMethodInfo-    ResolveSettingsMethod "createAction" o = SettingsCreateActionMethodInfo-    ResolveSettingsMethod "delay" o = SettingsDelayMethodInfo-    ResolveSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSettingsMethod "isWritable" o = SettingsIsWritableMethodInfo-    ResolveSettingsMethod "listChildren" o = SettingsListChildrenMethodInfo-    ResolveSettingsMethod "listKeys" o = SettingsListKeysMethodInfo-    ResolveSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSettingsMethod "rangeCheck" o = SettingsRangeCheckMethodInfo-    ResolveSettingsMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSettingsMethod "reset" o = SettingsResetMethodInfo-    ResolveSettingsMethod "revert" o = SettingsRevertMethodInfo-    ResolveSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSettingsMethod "getBoolean" o = SettingsGetBooleanMethodInfo-    ResolveSettingsMethod "getChild" o = SettingsGetChildMethodInfo-    ResolveSettingsMethod "getData" o = GObject.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 "getMapped" o = SettingsGetMappedMethodInfo-    ResolveSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSettingsMethod "getRange" o = SettingsGetRangeMethodInfo-    ResolveSettingsMethod "getString" o = SettingsGetStringMethodInfo-    ResolveSettingsMethod "getStrv" o = SettingsGetStrvMethodInfo-    ResolveSettingsMethod "getUint" o = SettingsGetUintMethodInfo-    ResolveSettingsMethod "getUserValue" o = SettingsGetUserValueMethodInfo-    ResolveSettingsMethod "getValue" o = SettingsGetValueMethodInfo-    ResolveSettingsMethod "setBoolean" o = SettingsSetBooleanMethodInfo-    ResolveSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSettingsMethod "setDouble" o = SettingsSetDoubleMethodInfo-    ResolveSettingsMethod "setEnum" o = SettingsSetEnumMethodInfo-    ResolveSettingsMethod "setFlags" o = SettingsSetFlagsMethodInfo-    ResolveSettingsMethod "setInt" o = SettingsSetIntMethodInfo-    ResolveSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSettingsMethod "setString" o = SettingsSetStringMethodInfo-    ResolveSettingsMethod "setStrv" o = SettingsSetStrvMethodInfo-    ResolveSettingsMethod "setUint" o = SettingsSetUintMethodInfo-    ResolveSettingsMethod "setValue" o = SettingsSetValueMethodInfo-    ResolveSettingsMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabelProxy t (Settings -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabel t (Settings -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Settings::change-event-type SettingsChangeEventCallback =-    Maybe [Word32] ->-    IO Bool--noSettingsChangeEventCallback :: Maybe SettingsChangeEventCallback-noSettingsChangeEventCallback = Nothing--type SettingsChangeEventCallbackC =-    Ptr () ->                               -- object-    Ptr Word32 ->-    Int32 ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkSettingsChangeEventCallback :: SettingsChangeEventCallbackC -> IO (FunPtr SettingsChangeEventCallbackC)--settingsChangeEventClosure :: SettingsChangeEventCallback -> IO Closure-settingsChangeEventClosure cb = newCClosure =<< mkSettingsChangeEventCallback wrapped-    where wrapped = settingsChangeEventCallbackWrapper cb--settingsChangeEventCallbackWrapper ::-    SettingsChangeEventCallback ->-    Ptr () ->-    Ptr Word32 ->-    Int32 ->-    Ptr () ->-    IO CInt-settingsChangeEventCallbackWrapper _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'--onSettingsChangeEvent :: (GObject a, MonadIO m) => a -> SettingsChangeEventCallback -> m SignalHandlerId-onSettingsChangeEvent obj cb = liftIO $ connectSettingsChangeEvent obj cb SignalConnectBefore-afterSettingsChangeEvent :: (GObject a, MonadIO m) => a -> SettingsChangeEventCallback -> m SignalHandlerId-afterSettingsChangeEvent obj cb = connectSettingsChangeEvent obj cb SignalConnectAfter--connectSettingsChangeEvent :: (GObject a, MonadIO m) =>-                              a -> SettingsChangeEventCallback -> SignalConnectMode -> m SignalHandlerId-connectSettingsChangeEvent obj cb after = liftIO $ do-    cb' <- mkSettingsChangeEventCallback (settingsChangeEventCallbackWrapper cb)-    connectSignalFunPtr obj "change-event" cb' after---- signal Settings::changed-type SettingsChangedCallback =-    T.Text ->-    IO ()--noSettingsChangedCallback :: Maybe SettingsChangedCallback-noSettingsChangedCallback = Nothing--type SettingsChangedCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSettingsChangedCallback :: SettingsChangedCallbackC -> IO (FunPtr SettingsChangedCallbackC)--settingsChangedClosure :: SettingsChangedCallback -> IO Closure-settingsChangedClosure cb = newCClosure =<< mkSettingsChangedCallback wrapped-    where wrapped = settingsChangedCallbackWrapper cb--settingsChangedCallbackWrapper ::-    SettingsChangedCallback ->-    Ptr () ->-    CString ->-    Ptr () ->-    IO ()-settingsChangedCallbackWrapper _cb _ key _ = do-    key' <- cstringToText key-    _cb  key'--onSettingsChanged :: (GObject a, MonadIO m) => a -> SettingsChangedCallback -> m SignalHandlerId-onSettingsChanged obj cb = liftIO $ connectSettingsChanged obj cb SignalConnectBefore-afterSettingsChanged :: (GObject a, MonadIO m) => a -> SettingsChangedCallback -> m SignalHandlerId-afterSettingsChanged obj cb = connectSettingsChanged obj cb SignalConnectAfter--connectSettingsChanged :: (GObject a, MonadIO m) =>-                          a -> SettingsChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectSettingsChanged obj cb after = liftIO $ do-    cb' <- mkSettingsChangedCallback (settingsChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after---- signal Settings::writable-change-event-type SettingsWritableChangeEventCallback =-    Word32 ->-    IO Bool--noSettingsWritableChangeEventCallback :: Maybe SettingsWritableChangeEventCallback-noSettingsWritableChangeEventCallback = Nothing--type SettingsWritableChangeEventCallbackC =-    Ptr () ->                               -- object-    Word32 ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkSettingsWritableChangeEventCallback :: SettingsWritableChangeEventCallbackC -> IO (FunPtr SettingsWritableChangeEventCallbackC)--settingsWritableChangeEventClosure :: SettingsWritableChangeEventCallback -> IO Closure-settingsWritableChangeEventClosure cb = newCClosure =<< mkSettingsWritableChangeEventCallback wrapped-    where wrapped = settingsWritableChangeEventCallbackWrapper cb--settingsWritableChangeEventCallbackWrapper ::-    SettingsWritableChangeEventCallback ->-    Ptr () ->-    Word32 ->-    Ptr () ->-    IO CInt-settingsWritableChangeEventCallbackWrapper _cb _ key _ = do-    result <- _cb  key-    let result' = (fromIntegral . fromEnum) result-    return result'--onSettingsWritableChangeEvent :: (GObject a, MonadIO m) => a -> SettingsWritableChangeEventCallback -> m SignalHandlerId-onSettingsWritableChangeEvent obj cb = liftIO $ connectSettingsWritableChangeEvent obj cb SignalConnectBefore-afterSettingsWritableChangeEvent :: (GObject a, MonadIO m) => a -> SettingsWritableChangeEventCallback -> m SignalHandlerId-afterSettingsWritableChangeEvent obj cb = connectSettingsWritableChangeEvent obj cb SignalConnectAfter--connectSettingsWritableChangeEvent :: (GObject a, MonadIO m) =>-                                      a -> SettingsWritableChangeEventCallback -> SignalConnectMode -> m SignalHandlerId-connectSettingsWritableChangeEvent obj cb after = liftIO $ do-    cb' <- mkSettingsWritableChangeEventCallback (settingsWritableChangeEventCallbackWrapper cb)-    connectSignalFunPtr obj "writable-change-event" cb' after---- signal Settings::writable-changed-type SettingsWritableChangedCallback =-    T.Text ->-    IO ()--noSettingsWritableChangedCallback :: Maybe SettingsWritableChangedCallback-noSettingsWritableChangedCallback = Nothing--type SettingsWritableChangedCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSettingsWritableChangedCallback :: SettingsWritableChangedCallbackC -> IO (FunPtr SettingsWritableChangedCallbackC)--settingsWritableChangedClosure :: SettingsWritableChangedCallback -> IO Closure-settingsWritableChangedClosure cb = newCClosure =<< mkSettingsWritableChangedCallback wrapped-    where wrapped = settingsWritableChangedCallbackWrapper cb--settingsWritableChangedCallbackWrapper ::-    SettingsWritableChangedCallback ->-    Ptr () ->-    CString ->-    Ptr () ->-    IO ()-settingsWritableChangedCallbackWrapper _cb _ key _ = do-    key' <- cstringToText key-    _cb  key'--onSettingsWritableChanged :: (GObject a, MonadIO m) => a -> SettingsWritableChangedCallback -> m SignalHandlerId-onSettingsWritableChanged obj cb = liftIO $ connectSettingsWritableChanged obj cb SignalConnectBefore-afterSettingsWritableChanged :: (GObject a, MonadIO m) => a -> SettingsWritableChangedCallback -> m SignalHandlerId-afterSettingsWritableChanged obj cb = connectSettingsWritableChanged obj cb SignalConnectAfter--connectSettingsWritableChanged :: (GObject a, MonadIO m) =>-                                  a -> SettingsWritableChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectSettingsWritableChanged obj cb after = liftIO $ do-    cb' <- mkSettingsWritableChangedCallback (settingsWritableChangedCallbackWrapper cb)-    connectSignalFunPtr obj "writable-changed" cb' after---- VVV Prop "delay-apply"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getSettingsDelayApply :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsDelayApply obj = liftIO $ getObjectPropertyBool obj "delay-apply"--data SettingsDelayApplyPropertyInfo-instance AttrInfo SettingsDelayApplyPropertyInfo where-    type AttrAllowedOps SettingsDelayApplyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SettingsDelayApplyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SettingsDelayApplyPropertyInfo = SettingsK-    type AttrGetType SettingsDelayApplyPropertyInfo = Bool-    type AttrLabel SettingsDelayApplyPropertyInfo = "delay-apply"-    attrGet _ = getSettingsDelayApply-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "has-unapplied"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getSettingsHasUnapplied :: (MonadIO m, SettingsK o) => o -> m Bool-getSettingsHasUnapplied obj = liftIO $ getObjectPropertyBool obj "has-unapplied"--data SettingsHasUnappliedPropertyInfo-instance AttrInfo SettingsHasUnappliedPropertyInfo where-    type AttrAllowedOps SettingsHasUnappliedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SettingsHasUnappliedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SettingsHasUnappliedPropertyInfo = SettingsK-    type AttrGetType SettingsHasUnappliedPropertyInfo = Bool-    type AttrLabel SettingsHasUnappliedPropertyInfo = "has-unapplied"-    attrGet _ = getSettingsHasUnapplied-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSettingsPath :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text)-getSettingsPath obj = liftIO $ getObjectPropertyString obj "path"--constructSettingsPath :: T.Text -> IO ([Char], GValue)-constructSettingsPath val = constructObjectPropertyString "path" (Just val)--data SettingsPathPropertyInfo-instance AttrInfo SettingsPathPropertyInfo where-    type AttrAllowedOps SettingsPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SettingsPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsPathPropertyInfo = SettingsK-    type AttrGetType SettingsPathPropertyInfo = (Maybe T.Text)-    type AttrLabel SettingsPathPropertyInfo = "path"-    attrGet _ = getSettingsPath-    attrSet _ = undefined-    attrConstruct _ = constructSettingsPath-    attrClear _ = undefined---- VVV Prop "schema"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSettingsSchema :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text)-getSettingsSchema obj = liftIO $ getObjectPropertyString obj "schema"--constructSettingsSchema :: T.Text -> IO ([Char], GValue)-constructSettingsSchema val = constructObjectPropertyString "schema" (Just val)--data SettingsSchemaPropertyInfo-instance AttrInfo SettingsSchemaPropertyInfo where-    type AttrAllowedOps SettingsSchemaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SettingsSchemaPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsSchemaPropertyInfo = SettingsK-    type AttrGetType SettingsSchemaPropertyInfo = (Maybe T.Text)-    type AttrLabel SettingsSchemaPropertyInfo = "schema"-    attrGet _ = getSettingsSchema-    attrSet _ = undefined-    attrConstruct _ = constructSettingsSchema-    attrClear _ = undefined---- VVV Prop "schema-id"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSettingsSchemaId :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text)-getSettingsSchemaId obj = liftIO $ getObjectPropertyString obj "schema-id"--constructSettingsSchemaId :: T.Text -> IO ([Char], GValue)-constructSettingsSchemaId val = constructObjectPropertyString "schema-id" (Just val)--data SettingsSchemaIdPropertyInfo-instance AttrInfo SettingsSchemaIdPropertyInfo where-    type AttrAllowedOps SettingsSchemaIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SettingsSchemaIdPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsSchemaIdPropertyInfo = SettingsK-    type AttrGetType SettingsSchemaIdPropertyInfo = (Maybe T.Text)-    type AttrLabel SettingsSchemaIdPropertyInfo = "schema-id"-    attrGet _ = getSettingsSchemaId-    attrSet _ = undefined-    attrConstruct _ = constructSettingsSchemaId-    attrClear _ = undefined---- VVV Prop "settings-schema"-   -- Type: TInterface "Gio" "SettingsSchema"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSettingsSettingsSchema :: (MonadIO m, SettingsK o) => o -> m (Maybe SettingsSchema)-getSettingsSettingsSchema obj = liftIO $ getObjectPropertyBoxed obj "settings-schema" SettingsSchema--constructSettingsSettingsSchema :: SettingsSchema -> IO ([Char], GValue)-constructSettingsSettingsSchema val = constructObjectPropertyBoxed "settings-schema" (Just val)--data SettingsSettingsSchemaPropertyInfo-instance AttrInfo SettingsSettingsSchemaPropertyInfo where-    type AttrAllowedOps SettingsSettingsSchemaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SettingsSettingsSchemaPropertyInfo = (~) SettingsSchema-    type AttrBaseTypeConstraint SettingsSettingsSchemaPropertyInfo = SettingsK-    type AttrGetType SettingsSettingsSchemaPropertyInfo = (Maybe SettingsSchema)-    type AttrLabel SettingsSettingsSchemaPropertyInfo = "settings-schema"-    attrGet _ = getSettingsSettingsSchema-    attrSet _ = undefined-    attrConstruct _ = constructSettingsSettingsSchema-    attrClear _ = undefined--type instance AttributeList Settings = SettingsAttributeList-type SettingsAttributeList = ('[ '("delayApply", SettingsDelayApplyPropertyInfo), '("hasUnapplied", SettingsHasUnappliedPropertyInfo), '("path", SettingsPathPropertyInfo), '("schema", SettingsSchemaPropertyInfo), '("schemaId", SettingsSchemaIdPropertyInfo), '("settingsSchema", SettingsSettingsSchemaPropertyInfo)] :: [(Symbol, *)])--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--data SettingsChangeEventSignalInfo-instance SignalInfo SettingsChangeEventSignalInfo where-    type HaskellCallbackType SettingsChangeEventSignalInfo = SettingsChangeEventCallback-    connectSignal _ = connectSettingsChangeEvent--data SettingsChangedSignalInfo-instance SignalInfo SettingsChangedSignalInfo where-    type HaskellCallbackType SettingsChangedSignalInfo = SettingsChangedCallback-    connectSignal _ = connectSettingsChanged--data SettingsWritableChangeEventSignalInfo-instance SignalInfo SettingsWritableChangeEventSignalInfo where-    type HaskellCallbackType SettingsWritableChangeEventSignalInfo = SettingsWritableChangeEventCallback-    connectSignal _ = connectSettingsWritableChangeEvent--data SettingsWritableChangedSignalInfo-instance SignalInfo SettingsWritableChangedSignalInfo where-    type HaskellCallbackType SettingsWritableChangedSignalInfo = SettingsWritableChangedCallback-    connectSignal _ = connectSettingsWritableChanged--type instance SignalList Settings = SettingsSignalList-type SettingsSignalList = ('[ '("changeEvent", SettingsChangeEventSignalInfo), '("changed", SettingsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("writableChangeEvent", SettingsWritableChangeEventSignalInfo), '("writableChanged", SettingsWritableChangedSignalInfo)] :: [(Symbol, *)])---- method Settings::new--- method type : Constructor--- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Settings")--- throws : False--- Skip return : False--foreign import ccall "g_settings_new" g_settings_new :: -    CString ->                              -- schema_id : TBasicType TUTF8-    IO (Ptr Settings)---settingsNew ::-    (MonadIO m) =>-    T.Text                                  -- schemaId-    -> m Settings                           -- result-settingsNew schemaId = liftIO $ do-    schemaId' <- textToCString schemaId-    result <- g_settings_new schemaId'-    checkUnexpectedReturnNULL "g_settings_new" result-    result' <- (wrapObject Settings) result-    freeMem schemaId'-    return result'---- method Settings::new_full--- method type : Constructor--- Args : [Arg {argCName = "schema", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Settings")--- throws : False--- Skip return : False--foreign import ccall "g_settings_new_full" g_settings_new_full :: -    Ptr SettingsSchema ->                   -- schema : TInterface "Gio" "SettingsSchema"-    Ptr SettingsBackend ->                  -- backend : TInterface "Gio" "SettingsBackend"-    CString ->                              -- path : TBasicType TUTF8-    IO (Ptr Settings)---settingsNewFull ::-    (MonadIO m) =>-    SettingsSchema                          -- schema-    -> Maybe (SettingsBackend)              -- backend-    -> Maybe (T.Text)                       -- path-    -> m Settings                           -- result-settingsNewFull schema backend path = liftIO $ do-    let schema' = unsafeManagedPtrGetPtr schema-    maybeBackend <- case backend of-        Nothing -> return nullPtr-        Just jBackend -> do-            let jBackend' = unsafeManagedPtrGetPtr 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 "g_settings_new_full" result-    result' <- (wrapObject Settings) result-    touchManagedPtr schema-    whenJust backend touchManagedPtr-    freeMem maybePath-    return result'---- method Settings::new_with_backend--- method type : Constructor--- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 SettingsBackend ->                  -- backend : TInterface "Gio" "SettingsBackend"-    IO (Ptr Settings)---settingsNewWithBackend ::-    (MonadIO m) =>-    T.Text                                  -- schemaId-    -> SettingsBackend                      -- backend-    -> m Settings                           -- result-settingsNewWithBackend schemaId backend = liftIO $ do-    schemaId' <- textToCString schemaId-    let backend' = unsafeManagedPtrGetPtr backend-    result <- g_settings_new_with_backend schemaId' backend'-    checkUnexpectedReturnNULL "g_settings_new_with_backend" result-    result' <- (wrapObject Settings) result-    touchManagedPtr backend-    freeMem schemaId'-    return result'---- method Settings::new_with_backend_and_path--- method type : Constructor--- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 SettingsBackend ->                  -- backend : TInterface "Gio" "SettingsBackend"-    CString ->                              -- path : TBasicType TUTF8-    IO (Ptr Settings)---settingsNewWithBackendAndPath ::-    (MonadIO m) =>-    T.Text                                  -- schemaId-    -> SettingsBackend                      -- backend-    -> T.Text                               -- path-    -> m Settings                           -- result-settingsNewWithBackendAndPath schemaId backend path = liftIO $ do-    schemaId' <- textToCString schemaId-    let backend' = unsafeManagedPtrGetPtr backend-    path' <- textToCString path-    result <- g_settings_new_with_backend_and_path schemaId' backend' path'-    checkUnexpectedReturnNULL "g_settings_new_with_backend_and_path" result-    result' <- (wrapObject Settings) result-    touchManagedPtr backend-    freeMem schemaId'-    freeMem path'-    return result'---- method Settings::new_with_path--- method type : Constructor--- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---settingsNewWithPath ::-    (MonadIO m) =>-    T.Text                                  -- schemaId-    -> T.Text                               -- path-    -> m Settings                           -- result-settingsNewWithPath schemaId path = liftIO $ do-    schemaId' <- textToCString schemaId-    path' <- textToCString path-    result <- g_settings_new_with_path schemaId' path'-    checkUnexpectedReturnNULL "g_settings_new_with_path" result-    result' <- (wrapObject Settings) result-    freeMem schemaId'-    freeMem path'-    return result'---- method Settings::apply--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    IO ()---settingsApply ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-settingsApply _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_settings_apply _obj'-    touchManagedPtr _obj-    return ()--data SettingsApplyMethodInfo-instance (signature ~ (m ()), MonadIO m, SettingsK a) => MethodInfo SettingsApplyMethodInfo a signature where-    overloadedMethod _ = settingsApply---- method Settings::bind--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "SettingsBindFlags", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    Ptr GObject.Object ->                   -- object : TInterface "GObject" "Object"-    CString ->                              -- property : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface "Gio" "SettingsBindFlags"-    IO ()---settingsBind ::-    (MonadIO m, SettingsK a, GObject.ObjectK b) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> b                                    -- object-    -> T.Text                               -- property-    -> [SettingsBindFlags]                  -- flags-    -> m ()                                 -- result-settingsBind _obj key object property flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    let object' = unsafeManagedPtrCastPtr object-    property' <- textToCString property-    let flags' = gflagsToWord flags-    g_settings_bind _obj' key' object' property' flags'-    touchManagedPtr _obj-    touchManagedPtr object-    freeMem key'-    freeMem property'-    return ()--data SettingsBindMethodInfo-instance (signature ~ (T.Text -> b -> T.Text -> [SettingsBindFlags] -> m ()), MonadIO m, SettingsK a, GObject.ObjectK b) => MethodInfo SettingsBindMethodInfo a signature where-    overloadedMethod _ = settingsBind---- method Settings::bind_writable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    Ptr GObject.Object ->                   -- object : TInterface "GObject" "Object"-    CString ->                              -- property : TBasicType TUTF8-    CInt ->                                 -- inverted : TBasicType TBoolean-    IO ()---settingsBindWritable ::-    (MonadIO m, SettingsK a, GObject.ObjectK b) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> b                                    -- object-    -> T.Text                               -- property-    -> Bool                                 -- inverted-    -> m ()                                 -- result-settingsBindWritable _obj key object property inverted = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    let object' = unsafeManagedPtrCastPtr object-    property' <- textToCString property-    let inverted' = (fromIntegral . fromEnum) inverted-    g_settings_bind_writable _obj' key' object' property' inverted'-    touchManagedPtr _obj-    touchManagedPtr object-    freeMem key'-    freeMem property'-    return ()--data SettingsBindWritableMethodInfo-instance (signature ~ (T.Text -> b -> T.Text -> Bool -> m ()), MonadIO m, SettingsK a, GObject.ObjectK b) => MethodInfo SettingsBindWritableMethodInfo a signature where-    overloadedMethod _ = settingsBindWritable---- method Settings::create_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Action")--- throws : False--- Skip return : False--foreign import ccall "g_settings_create_action" g_settings_create_action :: -    Ptr Settings ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr Action)---settingsCreateAction ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m Action                             -- result-settingsCreateAction _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_create_action _obj' key'-    checkUnexpectedReturnNULL "g_settings_create_action" result-    result' <- (wrapObject Action) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsCreateActionMethodInfo-instance (signature ~ (T.Text -> m Action), MonadIO m, SettingsK a) => MethodInfo SettingsCreateActionMethodInfo a signature where-    overloadedMethod _ = settingsCreateAction---- method Settings::delay--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    IO ()---settingsDelay ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-settingsDelay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_settings_delay _obj'-    touchManagedPtr _obj-    return ()--data SettingsDelayMethodInfo-instance (signature ~ (m ()), MonadIO m, SettingsK a) => MethodInfo SettingsDelayMethodInfo a signature where-    overloadedMethod _ = settingsDelay---- method Settings::get_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO CInt---settingsGetBoolean ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m Bool                               -- result-settingsGetBoolean _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_boolean _obj' key'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsGetBooleanMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetBooleanMethodInfo a signature where-    overloadedMethod _ = settingsGetBoolean---- method Settings::get_child--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Settings")--- throws : False--- Skip return : False--foreign import ccall "g_settings_get_child" g_settings_get_child :: -    Ptr Settings ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr Settings)---settingsGetChild ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- name-    -> m Settings                           -- result-settingsGetChild _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    result <- g_settings_get_child _obj' name'-    checkUnexpectedReturnNULL "g_settings_get_child" result-    result' <- (wrapObject Settings) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data SettingsGetChildMethodInfo-instance (signature ~ (T.Text -> m Settings), MonadIO m, SettingsK a) => MethodInfo SettingsGetChildMethodInfo a signature where-    overloadedMethod _ = settingsGetChild---- method Settings::get_default_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr GVariant)---settingsGetDefaultValue ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m GVariant                           -- result-settingsGetDefaultValue _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_default_value _obj' key'-    checkUnexpectedReturnNULL "g_settings_get_default_value" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsGetDefaultValueMethodInfo-instance (signature ~ (T.Text -> m GVariant), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultValueMethodInfo a signature where-    overloadedMethod _ = settingsGetDefaultValue---- method Settings::get_double--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO CDouble---settingsGetDouble ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m Double                             -- result-settingsGetDouble _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_double _obj' key'-    let result' = realToFrac result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsGetDoubleMethodInfo-instance (signature ~ (T.Text -> m Double), MonadIO m, SettingsK a) => MethodInfo SettingsGetDoubleMethodInfo a signature where-    overloadedMethod _ = settingsGetDouble---- method Settings::get_enum--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO Int32---settingsGetEnum ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m Int32                              -- result-settingsGetEnum _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_enum _obj' key'-    touchManagedPtr _obj-    freeMem key'-    return result--data SettingsGetEnumMethodInfo-instance (signature ~ (T.Text -> m Int32), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnumMethodInfo a signature where-    overloadedMethod _ = settingsGetEnum---- method Settings::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO Word32---settingsGetFlags ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m Word32                             -- result-settingsGetFlags _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_flags _obj' key'-    touchManagedPtr _obj-    freeMem key'-    return result--data SettingsGetFlagsMethodInfo-instance (signature ~ (T.Text -> m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetFlagsMethodInfo a signature where-    overloadedMethod _ = settingsGetFlags---- method Settings::get_has_unapplied--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    IO CInt---settingsGetHasUnapplied ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-settingsGetHasUnapplied _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_settings_get_has_unapplied _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsGetHasUnappliedMethodInfo-instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetHasUnappliedMethodInfo a signature where-    overloadedMethod _ = settingsGetHasUnapplied---- method Settings::get_int--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO Int32---settingsGetInt ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m Int32                              -- result-settingsGetInt _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_int _obj' key'-    touchManagedPtr _obj-    freeMem key'-    return result--data SettingsGetIntMethodInfo-instance (signature ~ (T.Text -> m Int32), MonadIO m, SettingsK a) => MethodInfo SettingsGetIntMethodInfo a signature where-    overloadedMethod _ = settingsGetInt---- method Settings::get_mapped--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mapping", argType = TInterface "Gio" "SettingsGetMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    FunPtr SettingsGetMappingC ->           -- mapping : TInterface "Gio" "SettingsGetMapping"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO (Ptr ())---settingsGetMapped ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> SettingsGetMapping                   -- mapping-    -> m (Ptr ())                           -- result-settingsGetMapped _obj key mapping = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    mapping' <- mkSettingsGetMapping (settingsGetMappingWrapper Nothing mapping)-    let userData = nullPtr-    result <- g_settings_get_mapped _obj' key' mapping' userData-    safeFreeFunPtr $ castFunPtrToPtr mapping'-    touchManagedPtr _obj-    freeMem key'-    return result--data SettingsGetMappedMethodInfo-instance (signature ~ (T.Text -> SettingsGetMapping -> m (Ptr ())), MonadIO m, SettingsK a) => MethodInfo SettingsGetMappedMethodInfo a signature where-    overloadedMethod _ = settingsGetMapped---- method Settings::get_range--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr GVariant)--{-# DEPRECATED settingsGetRange ["(Since version 2.40)","Use g_settings_schema_key_get_range() instead."]#-}-settingsGetRange ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m GVariant                           -- result-settingsGetRange _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_range _obj' key'-    checkUnexpectedReturnNULL "g_settings_get_range" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsGetRangeMethodInfo-instance (signature ~ (T.Text -> m GVariant), MonadIO m, SettingsK a) => MethodInfo SettingsGetRangeMethodInfo a signature where-    overloadedMethod _ = settingsGetRange---- method Settings::get_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO CString---settingsGetString ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m T.Text                             -- result-settingsGetString _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_string _obj' key'-    checkUnexpectedReturnNULL "g_settings_get_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsGetStringMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetStringMethodInfo a signature where-    overloadedMethod _ = settingsGetString---- method Settings::get_strv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr CString)---settingsGetStrv ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m [T.Text]                           -- result-settingsGetStrv _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_strv _obj' key'-    checkUnexpectedReturnNULL "g_settings_get_strv" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsGetStrvMethodInfo-instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, SettingsK a) => MethodInfo SettingsGetStrvMethodInfo a signature where-    overloadedMethod _ = settingsGetStrv---- method Settings::get_uint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO Word32---settingsGetUint ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m Word32                             -- result-settingsGetUint _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_uint _obj' key'-    touchManagedPtr _obj-    freeMem key'-    return result--data SettingsGetUintMethodInfo-instance (signature ~ (T.Text -> m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetUintMethodInfo a signature where-    overloadedMethod _ = settingsGetUint---- method Settings::get_user_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr GVariant)---settingsGetUserValue ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m GVariant                           -- result-settingsGetUserValue _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_user_value _obj' key'-    checkUnexpectedReturnNULL "g_settings_get_user_value" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsGetUserValueMethodInfo-instance (signature ~ (T.Text -> m GVariant), MonadIO m, SettingsK a) => MethodInfo SettingsGetUserValueMethodInfo a signature where-    overloadedMethod _ = settingsGetUserValue---- method Settings::get_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr GVariant)---settingsGetValue ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m GVariant                           -- result-settingsGetValue _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_get_value _obj' key'-    checkUnexpectedReturnNULL "g_settings_get_value" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsGetValueMethodInfo-instance (signature ~ (T.Text -> m GVariant), MonadIO m, SettingsK a) => MethodInfo SettingsGetValueMethodInfo a signature where-    overloadedMethod _ = settingsGetValue---- method Settings::is_writable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- name : TBasicType TUTF8-    IO CInt---settingsIsWritable ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- name-    -> m Bool                               -- result-settingsIsWritable _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    result <- g_settings_is_writable _obj' name'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data SettingsIsWritableMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsIsWritableMethodInfo a signature where-    overloadedMethod _ = settingsIsWritable---- method Settings::list_children--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    IO (Ptr CString)---settingsListChildren ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-settingsListChildren _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_settings_list_children _obj'-    checkUnexpectedReturnNULL "g_settings_list_children" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    return result'--data SettingsListChildrenMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, SettingsK a) => MethodInfo SettingsListChildrenMethodInfo a signature where-    overloadedMethod _ = settingsListChildren---- method Settings::list_keys--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    IO (Ptr CString)---settingsListKeys ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-settingsListKeys _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_settings_list_keys _obj'-    checkUnexpectedReturnNULL "g_settings_list_keys" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    return result'--data SettingsListKeysMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, SettingsK a) => MethodInfo SettingsListKeysMethodInfo a signature where-    overloadedMethod _ = settingsListKeys---- method Settings::range_check--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    IO CInt--{-# DEPRECATED settingsRangeCheck ["(Since version 2.40)","Use g_settings_schema_key_range_check() instead."]#-}-settingsRangeCheck ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> GVariant                             -- value-    -> m Bool                               -- result-settingsRangeCheck _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    let value' = unsafeManagedPtrGetPtr value-    result <- g_settings_range_check _obj' key' value'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsRangeCheckMethodInfo-instance (signature ~ (T.Text -> GVariant -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsRangeCheckMethodInfo a signature where-    overloadedMethod _ = settingsRangeCheck---- method Settings::reset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    IO ()---settingsReset ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> m ()                                 -- result-settingsReset _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    g_settings_reset _obj' key'-    touchManagedPtr _obj-    freeMem key'-    return ()--data SettingsResetMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsResetMethodInfo a signature where-    overloadedMethod _ = settingsReset---- method Settings::revert--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    IO ()---settingsRevert ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-settingsRevert _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_settings_revert _obj'-    touchManagedPtr _obj-    return ()--data SettingsRevertMethodInfo-instance (signature ~ (m ()), MonadIO m, SettingsK a) => MethodInfo SettingsRevertMethodInfo a signature where-    overloadedMethod _ = settingsRevert---- method Settings::set_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    CInt ->                                 -- value : TBasicType TBoolean-    IO CInt---settingsSetBoolean ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> Bool                                 -- value-    -> m Bool                               -- result-settingsSetBoolean _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    let value' = (fromIntegral . fromEnum) value-    result <- g_settings_set_boolean _obj' key' value'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsSetBooleanMethodInfo-instance (signature ~ (T.Text -> Bool -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetBooleanMethodInfo a signature where-    overloadedMethod _ = settingsSetBoolean---- method Settings::set_double--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    CDouble ->                              -- value : TBasicType TDouble-    IO CInt---settingsSetDouble ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> Double                               -- value-    -> m Bool                               -- result-settingsSetDouble _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    let value' = realToFrac value-    result <- g_settings_set_double _obj' key' value'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsSetDoubleMethodInfo-instance (signature ~ (T.Text -> Double -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetDoubleMethodInfo a signature where-    overloadedMethod _ = settingsSetDouble---- method Settings::set_enum--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    Int32 ->                                -- value : TBasicType TInt-    IO CInt---settingsSetEnum ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> Int32                                -- value-    -> m Bool                               -- result-settingsSetEnum _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_set_enum _obj' key' value-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsSetEnumMethodInfo-instance (signature ~ (T.Text -> Int32 -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnumMethodInfo a signature where-    overloadedMethod _ = settingsSetEnum---- method Settings::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    Word32 ->                               -- value : TBasicType TUInt-    IO CInt---settingsSetFlags ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> Word32                               -- value-    -> m Bool                               -- result-settingsSetFlags _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_set_flags _obj' key' value-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsSetFlagsMethodInfo-instance (signature ~ (T.Text -> Word32 -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetFlagsMethodInfo a signature where-    overloadedMethod _ = settingsSetFlags---- method Settings::set_int--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    Int32 ->                                -- value : TBasicType TInt-    IO CInt---settingsSetInt ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> Int32                                -- value-    -> m Bool                               -- result-settingsSetInt _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_set_int _obj' key' value-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsSetIntMethodInfo-instance (signature ~ (T.Text -> Int32 -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetIntMethodInfo a signature where-    overloadedMethod _ = settingsSetInt---- method Settings::set_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO CInt---settingsSetString ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> T.Text                               -- value-    -> m Bool                               -- result-settingsSetString _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    value' <- textToCString value-    result <- g_settings_set_string _obj' key' value'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    freeMem value'-    return result'--data SettingsSetStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetStringMethodInfo a signature where-    overloadedMethod _ = settingsSetString---- method Settings::set_strv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    Ptr CString ->                          -- value : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO CInt---settingsSetStrv ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> Maybe ([T.Text])                     -- value-    -> m Bool                               -- result-settingsSetStrv _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    maybeValue <- case value of-        Nothing -> return nullPtr-        Just jValue -> do-            jValue' <- packZeroTerminatedUTF8CArray jValue-            return jValue'-    result <- g_settings_set_strv _obj' key' maybeValue-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    mapZeroTerminatedCArray freeMem maybeValue-    freeMem maybeValue-    return result'--data SettingsSetStrvMethodInfo-instance (signature ~ (T.Text -> Maybe ([T.Text]) -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetStrvMethodInfo a signature where-    overloadedMethod _ = settingsSetStrv---- method Settings::set_uint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    Word32 ->                               -- value : TBasicType TUInt-    IO CInt---settingsSetUint ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> Word32                               -- value-    -> m Bool                               -- result-settingsSetUint _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    result <- g_settings_set_uint _obj' key' value-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsSetUintMethodInfo-instance (signature ~ (T.Text -> Word32 -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetUintMethodInfo a signature where-    overloadedMethod _ = settingsSetUint---- method Settings::set_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Settings"-    CString ->                              -- key : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    IO CInt---settingsSetValue ::-    (MonadIO m, SettingsK a) =>-    a                                       -- _obj-    -> T.Text                               -- key-    -> GVariant                             -- value-    -> m Bool                               -- result-settingsSetValue _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    key' <- textToCString key-    let value' = unsafeManagedPtrGetPtr value-    result <- g_settings_set_value _obj' key' value'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'--data SettingsSetValueMethodInfo-instance (signature ~ (T.Text -> GVariant -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetValueMethodInfo a signature where-    overloadedMethod _ = settingsSetValue---- 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 g_settings_schema_source_list_schemas() instead"]#-}-settingsListRelocatableSchemas ::-    (MonadIO m) =>-    m [T.Text]                              -- result-settingsListRelocatableSchemas  = liftIO $ do-    result <- g_settings_list_relocatable_schemas-    checkUnexpectedReturnNULL "g_settings_list_relocatable_schemas" result-    result' <- unpackZeroTerminatedUTF8CArray result-    return result'---- 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 g_settings_schema_source_list_schemas() instead.","If you used g_settings_list_schemas() to check for the presence of","a particular schema, use g_settings_schema_source_lookup() instead","of your whole loop."]#-}-settingsListSchemas ::-    (MonadIO m) =>-    m [T.Text]                              -- result-settingsListSchemas  = liftIO $ do-    result <- g_settings_list_schemas-    checkUnexpectedReturnNULL "g_settings_list_schemas" result-    result' <- unpackZeroTerminatedUTF8CArray result-    return result'---- 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 ()---settingsSync ::-    (MonadIO m) =>-    m ()                                    -- result-settingsSync  = liftIO $ do-    g_settings_sync-    return ()---- method Settings::unbind--- method type : MemberFunction--- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 : TInterface "GObject" "Object"-    CString ->                              -- property : TBasicType TUTF8-    IO ()---settingsUnbind ::-    (MonadIO m, GObject.ObjectK a) =>-    a                                       -- object-    -> T.Text                               -- property-    -> m ()                                 -- result-settingsUnbind object property = liftIO $ do-    let object' = unsafeManagedPtrCastPtr object-    property' <- textToCString property-    g_settings_unbind object' property'-    touchManagedPtr object-    freeMem property'-    return ()--
− GI/Gio/Objects/Settings.hs-boot 
@@ -1,58 +0,0 @@-module GI.Gio.Objects.Settings where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Settings = Settings (ForeignPtr Settings)-instance GObject Settings where-class GObject o => SettingsK o-instance (GObject o, IsDescendantOf Settings o) => SettingsK o-data SettingsDelayApplyPropertyInfo-data SettingsHasUnappliedPropertyInfo-data SettingsPathPropertyInfo-data SettingsSchemaPropertyInfo-data SettingsSchemaIdPropertyInfo-data SettingsSettingsSchemaPropertyInfo-data SettingsChangeEventSignalInfo-data SettingsChangedSignalInfo-data SettingsWritableChangeEventSignalInfo-data SettingsWritableChangedSignalInfo-data SettingsApplyMethodInfo-data SettingsBindMethodInfo-data SettingsBindWritableMethodInfo-data SettingsCreateActionMethodInfo-data SettingsDelayMethodInfo-data SettingsGetBooleanMethodInfo-data SettingsGetChildMethodInfo-data SettingsGetDefaultValueMethodInfo-data SettingsGetDoubleMethodInfo-data SettingsGetEnumMethodInfo-data SettingsGetFlagsMethodInfo-data SettingsGetHasUnappliedMethodInfo-data SettingsGetIntMethodInfo-data SettingsGetMappedMethodInfo-data SettingsGetRangeMethodInfo-data SettingsGetStringMethodInfo-data SettingsGetStrvMethodInfo-data SettingsGetUintMethodInfo-data SettingsGetUserValueMethodInfo-data SettingsGetValueMethodInfo-data SettingsIsWritableMethodInfo-data SettingsListChildrenMethodInfo-data SettingsListKeysMethodInfo-data SettingsRangeCheckMethodInfo-data SettingsResetMethodInfo-data SettingsRevertMethodInfo-data SettingsSetBooleanMethodInfo-data SettingsSetDoubleMethodInfo-data SettingsSetEnumMethodInfo-data SettingsSetFlagsMethodInfo-data SettingsSetIntMethodInfo-data SettingsSetStringMethodInfo-data SettingsSetStrvMethodInfo-data SettingsSetUintMethodInfo-data SettingsSetValueMethodInfo
− GI/Gio/Objects/SimpleAction.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.SimpleAction-    ( ---- * Exported types-    SimpleAction(..)                        ,-    SimpleActionK                           ,-    toSimpleAction                          ,-    noSimpleAction                          ,--- -- * Methods--- ** simpleActionNew-    simpleActionNew                         ,----- ** simpleActionNewStateful-    simpleActionNewStateful                 ,----- ** simpleActionSetEnabled-    SimpleActionSetEnabledMethodInfo        ,-    simpleActionSetEnabled                  ,----- ** simpleActionSetState-    SimpleActionSetStateMethodInfo          ,-    simpleActionSetState                    ,----- ** simpleActionSetStateHint-    SimpleActionSetStateHintMethodInfo      ,-    simpleActionSetStateHint                ,----- -- * Properties--- ** Enabled-    SimpleActionEnabledPropertyInfo         ,-    constructSimpleActionEnabled            ,-    getSimpleActionEnabled                  ,-    setSimpleActionEnabled                  ,-    simpleActionEnabled                     ,----- ** Name-    SimpleActionNamePropertyInfo            ,-    constructSimpleActionName               ,-    getSimpleActionName                     ,-    simpleActionName                        ,----- ** ParameterType-    SimpleActionParameterTypePropertyInfo   ,-    constructSimpleActionParameterType      ,-    getSimpleActionParameterType            ,-    simpleActionParameterType               ,----- ** State-    SimpleActionStatePropertyInfo           ,-    constructSimpleActionState              ,-    getSimpleActionState                    ,-    setSimpleActionState                    ,-    simpleActionState                       ,----- ** StateType-    SimpleActionStateTypePropertyInfo       ,-    getSimpleActionStateType                ,-    simpleActionStateType                   ,----- -- * Signals--- ** Activate-    SimpleActionActivateCallback            ,-    SimpleActionActivateCallbackC           ,-    SimpleActionActivateSignalInfo          ,-    afterSimpleActionActivate               ,-    mkSimpleActionActivateCallback          ,-    noSimpleActionActivateCallback          ,-    onSimpleActionActivate                  ,-    simpleActionActivateCallbackWrapper     ,-    simpleActionActivateClosure             ,----- ** ChangeState-    SimpleActionChangeStateCallback         ,-    SimpleActionChangeStateCallbackC        ,-    SimpleActionChangeStateSignalInfo       ,-    afterSimpleActionChangeState            ,-    mkSimpleActionChangeStateCallback       ,-    noSimpleActionChangeStateCallback       ,-    onSimpleActionChangeState               ,-    simpleActionChangeStateCallbackWrapper  ,-    simpleActionChangeStateClosure          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype SimpleAction = SimpleAction (ForeignPtr SimpleAction)-foreign import ccall "g_simple_action_get_type"-    c_g_simple_action_get_type :: IO GType--type instance ParentTypes SimpleAction = SimpleActionParentTypes-type SimpleActionParentTypes = '[GObject.Object, Action]--instance GObject SimpleAction where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_simple_action_get_type-    --class GObject o => SimpleActionK o-instance (GObject o, IsDescendantOf SimpleAction o) => SimpleActionK o--toSimpleAction :: SimpleActionK o => o -> IO SimpleAction-toSimpleAction = unsafeCastTo SimpleAction--noSimpleAction :: Maybe SimpleAction-noSimpleAction = Nothing--type family ResolveSimpleActionMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimpleActionMethod "activate" o = ActionActivateMethodInfo-    ResolveSimpleActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSimpleActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSimpleActionMethod "changeState" o = ActionChangeStateMethodInfo-    ResolveSimpleActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSimpleActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSimpleActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSimpleActionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSimpleActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSimpleActionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSimpleActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSimpleActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSimpleActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSimpleActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSimpleActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSimpleActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSimpleActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSimpleActionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSimpleActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSimpleActionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSimpleActionMethod "getEnabled" o = ActionGetEnabledMethodInfo-    ResolveSimpleActionMethod "getName" o = ActionGetNameMethodInfo-    ResolveSimpleActionMethod "getParameterType" o = ActionGetParameterTypeMethodInfo-    ResolveSimpleActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSimpleActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSimpleActionMethod "getState" o = ActionGetStateMethodInfo-    ResolveSimpleActionMethod "getStateHint" o = ActionGetStateHintMethodInfo-    ResolveSimpleActionMethod "getStateType" o = ActionGetStateTypeMethodInfo-    ResolveSimpleActionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSimpleActionMethod "setEnabled" o = SimpleActionSetEnabledMethodInfo-    ResolveSimpleActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSimpleActionMethod "setState" o = SimpleActionSetStateMethodInfo-    ResolveSimpleActionMethod "setStateHint" o = SimpleActionSetStateHintMethodInfo-    ResolveSimpleActionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSimpleActionMethod t SimpleAction, MethodInfo info SimpleAction p) => IsLabelProxy t (SimpleAction -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSimpleActionMethod t SimpleAction, MethodInfo info SimpleAction p) => IsLabel t (SimpleAction -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal SimpleAction::activate-type SimpleActionActivateCallback =-    Maybe GVariant ->-    IO ()--noSimpleActionActivateCallback :: Maybe SimpleActionActivateCallback-noSimpleActionActivateCallback = Nothing--type SimpleActionActivateCallbackC =-    Ptr () ->                               -- object-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSimpleActionActivateCallback :: SimpleActionActivateCallbackC -> IO (FunPtr SimpleActionActivateCallbackC)--simpleActionActivateClosure :: SimpleActionActivateCallback -> IO Closure-simpleActionActivateClosure cb = newCClosure =<< mkSimpleActionActivateCallback wrapped-    where wrapped = simpleActionActivateCallbackWrapper cb--simpleActionActivateCallbackWrapper ::-    SimpleActionActivateCallback ->-    Ptr () ->-    Ptr GVariant ->-    Ptr () ->-    IO ()-simpleActionActivateCallbackWrapper _cb _ parameter _ = do-    maybeParameter <--        if parameter == nullPtr-        then return Nothing-        else do-            parameter' <- newGVariantFromPtr parameter-            return $ Just parameter'-    _cb  maybeParameter--onSimpleActionActivate :: (GObject a, MonadIO m) => a -> SimpleActionActivateCallback -> m SignalHandlerId-onSimpleActionActivate obj cb = liftIO $ connectSimpleActionActivate obj cb SignalConnectBefore-afterSimpleActionActivate :: (GObject a, MonadIO m) => a -> SimpleActionActivateCallback -> m SignalHandlerId-afterSimpleActionActivate obj cb = connectSimpleActionActivate obj cb SignalConnectAfter--connectSimpleActionActivate :: (GObject a, MonadIO m) =>-                               a -> SimpleActionActivateCallback -> SignalConnectMode -> m SignalHandlerId-connectSimpleActionActivate obj cb after = liftIO $ do-    cb' <- mkSimpleActionActivateCallback (simpleActionActivateCallbackWrapper cb)-    connectSignalFunPtr obj "activate" cb' after---- signal SimpleAction::change-state-type SimpleActionChangeStateCallback =-    Maybe GVariant ->-    IO ()--noSimpleActionChangeStateCallback :: Maybe SimpleActionChangeStateCallback-noSimpleActionChangeStateCallback = Nothing--type SimpleActionChangeStateCallbackC =-    Ptr () ->                               -- object-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSimpleActionChangeStateCallback :: SimpleActionChangeStateCallbackC -> IO (FunPtr SimpleActionChangeStateCallbackC)--simpleActionChangeStateClosure :: SimpleActionChangeStateCallback -> IO Closure-simpleActionChangeStateClosure cb = newCClosure =<< mkSimpleActionChangeStateCallback wrapped-    where wrapped = simpleActionChangeStateCallbackWrapper cb--simpleActionChangeStateCallbackWrapper ::-    SimpleActionChangeStateCallback ->-    Ptr () ->-    Ptr GVariant ->-    Ptr () ->-    IO ()-simpleActionChangeStateCallbackWrapper _cb _ value _ = do-    maybeValue <--        if value == nullPtr-        then return Nothing-        else do-            value' <- newGVariantFromPtr value-            return $ Just value'-    _cb  maybeValue--onSimpleActionChangeState :: (GObject a, MonadIO m) => a -> SimpleActionChangeStateCallback -> m SignalHandlerId-onSimpleActionChangeState obj cb = liftIO $ connectSimpleActionChangeState obj cb SignalConnectBefore-afterSimpleActionChangeState :: (GObject a, MonadIO m) => a -> SimpleActionChangeStateCallback -> m SignalHandlerId-afterSimpleActionChangeState obj cb = connectSimpleActionChangeState obj cb SignalConnectAfter--connectSimpleActionChangeState :: (GObject a, MonadIO m) =>-                                  a -> SimpleActionChangeStateCallback -> SignalConnectMode -> m SignalHandlerId-connectSimpleActionChangeState obj cb after = liftIO $ do-    cb' <- mkSimpleActionChangeStateCallback (simpleActionChangeStateCallbackWrapper cb)-    connectSignalFunPtr obj "change-state" cb' after----- 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, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "enabled", propType = TBasicType TBoolean, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, 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, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "name", propType = TBasicType TUTF8, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}---- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "SimpleAction"} -> Property {propName = "parameter-type", propType = TInterface "GLib" "VariantType", propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "parameter-type", propType = TInterface "GLib" "VariantType", propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, 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, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "state", propType = TVariant, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}--- VVV Prop "enabled"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Just False)--getSimpleActionEnabled :: (MonadIO m, SimpleActionK o) => o -> m Bool-getSimpleActionEnabled obj = liftIO $ getObjectPropertyBool obj "enabled"--setSimpleActionEnabled :: (MonadIO m, SimpleActionK o) => o -> Bool -> m ()-setSimpleActionEnabled obj val = liftIO $ setObjectPropertyBool obj "enabled" val--constructSimpleActionEnabled :: Bool -> IO ([Char], GValue)-constructSimpleActionEnabled val = constructObjectPropertyBool "enabled" val--data SimpleActionEnabledPropertyInfo-instance AttrInfo SimpleActionEnabledPropertyInfo where-    type AttrAllowedOps SimpleActionEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SimpleActionEnabledPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SimpleActionEnabledPropertyInfo = SimpleActionK-    type AttrGetType SimpleActionEnabledPropertyInfo = Bool-    type AttrLabel SimpleActionEnabledPropertyInfo = "enabled"-    attrGet _ = getSimpleActionEnabled-    attrSet _ = setSimpleActionEnabled-    attrConstruct _ = constructSimpleActionEnabled-    attrClear _ = undefined---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSimpleActionName :: (MonadIO m, SimpleActionK o) => o -> m (Maybe T.Text)-getSimpleActionName obj = liftIO $ getObjectPropertyString obj "name"--constructSimpleActionName :: T.Text -> IO ([Char], GValue)-constructSimpleActionName val = constructObjectPropertyString "name" (Just val)--data SimpleActionNamePropertyInfo-instance AttrInfo SimpleActionNamePropertyInfo where-    type AttrAllowedOps SimpleActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleActionNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SimpleActionNamePropertyInfo = SimpleActionK-    type AttrGetType SimpleActionNamePropertyInfo = (Maybe T.Text)-    type AttrLabel SimpleActionNamePropertyInfo = "name"-    attrGet _ = getSimpleActionName-    attrSet _ = undefined-    attrConstruct _ = constructSimpleActionName-    attrClear _ = undefined---- VVV Prop "parameter-type"-   -- Type: TInterface "GLib" "VariantType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSimpleActionParameterType :: (MonadIO m, SimpleActionK o) => o -> m (Maybe GLib.VariantType)-getSimpleActionParameterType obj = liftIO $ getObjectPropertyBoxed obj "parameter-type" GLib.VariantType--constructSimpleActionParameterType :: GLib.VariantType -> IO ([Char], GValue)-constructSimpleActionParameterType val = constructObjectPropertyBoxed "parameter-type" (Just val)--data SimpleActionParameterTypePropertyInfo-instance AttrInfo SimpleActionParameterTypePropertyInfo where-    type AttrAllowedOps SimpleActionParameterTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleActionParameterTypePropertyInfo = (~) GLib.VariantType-    type AttrBaseTypeConstraint SimpleActionParameterTypePropertyInfo = SimpleActionK-    type AttrGetType SimpleActionParameterTypePropertyInfo = (Maybe GLib.VariantType)-    type AttrLabel SimpleActionParameterTypePropertyInfo = "parameter-type"-    attrGet _ = getSimpleActionParameterType-    attrSet _ = undefined-    attrConstruct _ = constructSimpleActionParameterType-    attrClear _ = undefined---- VVV Prop "state"-   -- Type: TVariant-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Just False)--getSimpleActionState :: (MonadIO m, SimpleActionK o) => o -> m (Maybe GVariant)-getSimpleActionState obj = liftIO $ getObjectPropertyVariant obj "state"--setSimpleActionState :: (MonadIO m, SimpleActionK o) => o -> GVariant -> m ()-setSimpleActionState obj val = liftIO $ setObjectPropertyVariant obj "state" (Just val)--constructSimpleActionState :: GVariant -> IO ([Char], GValue)-constructSimpleActionState val = constructObjectPropertyVariant "state" (Just val)--data SimpleActionStatePropertyInfo-instance AttrInfo SimpleActionStatePropertyInfo where-    type AttrAllowedOps SimpleActionStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SimpleActionStatePropertyInfo = (~) GVariant-    type AttrBaseTypeConstraint SimpleActionStatePropertyInfo = SimpleActionK-    type AttrGetType SimpleActionStatePropertyInfo = (Maybe GVariant)-    type AttrLabel SimpleActionStatePropertyInfo = "state"-    attrGet _ = getSimpleActionState-    attrSet _ = setSimpleActionState-    attrConstruct _ = constructSimpleActionState-    attrClear _ = undefined---- VVV Prop "state-type"-   -- Type: TInterface "GLib" "VariantType"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getSimpleActionStateType :: (MonadIO m, SimpleActionK o) => o -> m (Maybe GLib.VariantType)-getSimpleActionStateType obj = liftIO $ getObjectPropertyBoxed obj "state-type" GLib.VariantType--data SimpleActionStateTypePropertyInfo-instance AttrInfo SimpleActionStateTypePropertyInfo where-    type AttrAllowedOps SimpleActionStateTypePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleActionStateTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint SimpleActionStateTypePropertyInfo = SimpleActionK-    type AttrGetType SimpleActionStateTypePropertyInfo = (Maybe GLib.VariantType)-    type AttrLabel SimpleActionStateTypePropertyInfo = "state-type"-    attrGet _ = getSimpleActionStateType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList SimpleAction = SimpleActionAttributeList-type SimpleActionAttributeList = ('[ '("stateType", SimpleActionStateTypePropertyInfo)] :: [(Symbol, *)])--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--data SimpleActionActivateSignalInfo-instance SignalInfo SimpleActionActivateSignalInfo where-    type HaskellCallbackType SimpleActionActivateSignalInfo = SimpleActionActivateCallback-    connectSignal _ = connectSimpleActionActivate--data SimpleActionChangeStateSignalInfo-instance SignalInfo SimpleActionChangeStateSignalInfo where-    type HaskellCallbackType SimpleActionChangeStateSignalInfo = SimpleActionChangeStateCallback-    connectSignal _ = connectSimpleActionChangeState--type instance SignalList SimpleAction = SimpleActionSignalList-type SimpleActionSignalList = ('[ '("activate", SimpleActionActivateSignalInfo), '("changeState", SimpleActionChangeStateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SimpleAction::new--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SimpleAction")--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_new" g_simple_action_new :: -    CString ->                              -- name : TBasicType TUTF8-    Ptr GLib.VariantType ->                 -- parameter_type : TInterface "GLib" "VariantType"-    IO (Ptr SimpleAction)---simpleActionNew ::-    (MonadIO m) =>-    T.Text                                  -- name-    -> Maybe (GLib.VariantType)             -- parameterType-    -> m SimpleAction                       -- result-simpleActionNew name parameterType = liftIO $ do-    name' <- textToCString name-    maybeParameterType <- case parameterType of-        Nothing -> return nullPtr-        Just jParameterType -> do-            let jParameterType' = unsafeManagedPtrGetPtr jParameterType-            return jParameterType'-    result <- g_simple_action_new name' maybeParameterType-    checkUnexpectedReturnNULL "g_simple_action_new" result-    result' <- (wrapObject SimpleAction) result-    whenJust parameterType touchManagedPtr-    freeMem name'-    return result'---- method SimpleAction::new_stateful--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                 -- parameter_type : TInterface "GLib" "VariantType"-    Ptr GVariant ->                         -- state : TVariant-    IO (Ptr SimpleAction)---simpleActionNewStateful ::-    (MonadIO m) =>-    T.Text                                  -- name-    -> Maybe (GLib.VariantType)             -- parameterType-    -> GVariant                             -- state-    -> m SimpleAction                       -- result-simpleActionNewStateful name parameterType state = liftIO $ do-    name' <- textToCString name-    maybeParameterType <- case parameterType of-        Nothing -> return nullPtr-        Just jParameterType -> do-            let jParameterType' = unsafeManagedPtrGetPtr jParameterType-            return jParameterType'-    let state' = unsafeManagedPtrGetPtr state-    result <- g_simple_action_new_stateful name' maybeParameterType state'-    checkUnexpectedReturnNULL "g_simple_action_new_stateful" result-    result' <- (wrapObject SimpleAction) result-    whenJust parameterType touchManagedPtr-    freeMem name'-    return result'---- method SimpleAction::set_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SimpleAction"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---simpleActionSetEnabled ::-    (MonadIO m, SimpleActionK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-simpleActionSetEnabled _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    g_simple_action_set_enabled _obj' enabled'-    touchManagedPtr _obj-    return ()--data SimpleActionSetEnabledMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SimpleActionK a) => MethodInfo SimpleActionSetEnabledMethodInfo a signature where-    overloadedMethod _ = simpleActionSetEnabled---- method SimpleAction::set_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SimpleAction"-    Ptr GVariant ->                         -- value : TVariant-    IO ()---simpleActionSetState ::-    (MonadIO m, SimpleActionK a) =>-    a                                       -- _obj-    -> GVariant                             -- value-    -> m ()                                 -- result-simpleActionSetState _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let value' = unsafeManagedPtrGetPtr value-    g_simple_action_set_state _obj' value'-    touchManagedPtr _obj-    return ()--data SimpleActionSetStateMethodInfo-instance (signature ~ (GVariant -> m ()), MonadIO m, SimpleActionK a) => MethodInfo SimpleActionSetStateMethodInfo a signature where-    overloadedMethod _ = simpleActionSetState---- method SimpleAction::set_state_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_hint", argType = TVariant, direction = DirectionIn, mayBeNull = True, 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 ->                     -- _obj : TInterface "Gio" "SimpleAction"-    Ptr GVariant ->                         -- state_hint : TVariant-    IO ()---simpleActionSetStateHint ::-    (MonadIO m, SimpleActionK a) =>-    a                                       -- _obj-    -> Maybe (GVariant)                     -- stateHint-    -> m ()                                 -- result-simpleActionSetStateHint _obj stateHint = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeStateHint <- case stateHint of-        Nothing -> return nullPtr-        Just jStateHint -> do-            let jStateHint' = unsafeManagedPtrGetPtr jStateHint-            return jStateHint'-    g_simple_action_set_state_hint _obj' maybeStateHint-    touchManagedPtr _obj-    return ()--data SimpleActionSetStateHintMethodInfo-instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, SimpleActionK a) => MethodInfo SimpleActionSetStateHintMethodInfo a signature where-    overloadedMethod _ = simpleActionSetStateHint--
− GI/Gio/Objects/SimpleAction.hs-boot 
@@ -1,23 +0,0 @@-module GI.Gio.Objects.SimpleAction where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SimpleAction = SimpleAction (ForeignPtr SimpleAction)-instance GObject SimpleAction where-class GObject o => SimpleActionK o-instance (GObject o, IsDescendantOf SimpleAction o) => SimpleActionK o-data SimpleActionEnabledPropertyInfo-data SimpleActionNamePropertyInfo-data SimpleActionParameterTypePropertyInfo-data SimpleActionStatePropertyInfo-data SimpleActionStateTypePropertyInfo-data SimpleActionActivateSignalInfo-data SimpleActionChangeStateSignalInfo-data SimpleActionSetEnabledMethodInfo-data SimpleActionSetStateMethodInfo-data SimpleActionSetStateHintMethodInfo
− GI/Gio/Objects/SimpleActionGroup.hs 
@@ -1,294 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SimpleActionGroup-    ( ---- * Exported types-    SimpleActionGroup(..)                   ,-    SimpleActionGroupK                      ,-    toSimpleActionGroup                     ,-    noSimpleActionGroup                     ,--- -- * Methods--- ** simpleActionGroupAddEntries-    SimpleActionGroupAddEntriesMethodInfo   ,-    simpleActionGroupAddEntries             ,----- ** simpleActionGroupInsert-    SimpleActionGroupInsertMethodInfo       ,-    simpleActionGroupInsert                 ,----- ** simpleActionGroupLookup-    SimpleActionGroupLookupMethodInfo       ,-    simpleActionGroupLookup                 ,----- ** simpleActionGroupNew-    simpleActionGroupNew                    ,----- ** simpleActionGroupRemove-    SimpleActionGroupRemoveMethodInfo       ,-    simpleActionGroupRemove                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SimpleActionGroup = SimpleActionGroup (ForeignPtr SimpleActionGroup)-foreign import ccall "g_simple_action_group_get_type"-    c_g_simple_action_group_get_type :: IO GType--type instance ParentTypes SimpleActionGroup = SimpleActionGroupParentTypes-type SimpleActionGroupParentTypes = '[GObject.Object, ActionGroup, ActionMap]--instance GObject SimpleActionGroup where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_simple_action_group_get_type-    --class GObject o => SimpleActionGroupK o-instance (GObject o, IsDescendantOf SimpleActionGroup o) => SimpleActionGroupK o--toSimpleActionGroup :: SimpleActionGroupK o => o -> IO SimpleActionGroup-toSimpleActionGroup = unsafeCastTo SimpleActionGroup--noSimpleActionGroup :: Maybe SimpleActionGroup-noSimpleActionGroup = Nothing--type family ResolveSimpleActionGroupMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimpleActionGroupMethod "actionAdded" o = ActionGroupActionAddedMethodInfo-    ResolveSimpleActionGroupMethod "actionEnabledChanged" o = ActionGroupActionEnabledChangedMethodInfo-    ResolveSimpleActionGroupMethod "actionRemoved" o = ActionGroupActionRemovedMethodInfo-    ResolveSimpleActionGroupMethod "actionStateChanged" o = ActionGroupActionStateChangedMethodInfo-    ResolveSimpleActionGroupMethod "activateAction" o = ActionGroupActivateActionMethodInfo-    ResolveSimpleActionGroupMethod "addAction" o = ActionMapAddActionMethodInfo-    ResolveSimpleActionGroupMethod "addActionEntries" o = ActionMapAddActionEntriesMethodInfo-    ResolveSimpleActionGroupMethod "addEntries" o = SimpleActionGroupAddEntriesMethodInfo-    ResolveSimpleActionGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSimpleActionGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSimpleActionGroupMethod "changeActionState" o = ActionGroupChangeActionStateMethodInfo-    ResolveSimpleActionGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSimpleActionGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSimpleActionGroupMethod "hasAction" o = ActionGroupHasActionMethodInfo-    ResolveSimpleActionGroupMethod "insert" o = SimpleActionGroupInsertMethodInfo-    ResolveSimpleActionGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSimpleActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo-    ResolveSimpleActionGroupMethod "lookup" o = SimpleActionGroupLookupMethodInfo-    ResolveSimpleActionGroupMethod "lookupAction" o = ActionMapLookupActionMethodInfo-    ResolveSimpleActionGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSimpleActionGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSimpleActionGroupMethod "queryAction" o = ActionGroupQueryActionMethodInfo-    ResolveSimpleActionGroupMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSimpleActionGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSimpleActionGroupMethod "remove" o = SimpleActionGroupRemoveMethodInfo-    ResolveSimpleActionGroupMethod "removeAction" o = ActionMapRemoveActionMethodInfo-    ResolveSimpleActionGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSimpleActionGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSimpleActionGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSimpleActionGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSimpleActionGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSimpleActionGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSimpleActionGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSimpleActionGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSimpleActionGroupMethod "getActionEnabled" o = ActionGroupGetActionEnabledMethodInfo-    ResolveSimpleActionGroupMethod "getActionParameterType" o = ActionGroupGetActionParameterTypeMethodInfo-    ResolveSimpleActionGroupMethod "getActionState" o = ActionGroupGetActionStateMethodInfo-    ResolveSimpleActionGroupMethod "getActionStateHint" o = ActionGroupGetActionStateHintMethodInfo-    ResolveSimpleActionGroupMethod "getActionStateType" o = ActionGroupGetActionStateTypeMethodInfo-    ResolveSimpleActionGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSimpleActionGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSimpleActionGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSimpleActionGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSimpleActionGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSimpleActionGroupMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSimpleActionGroupMethod t SimpleActionGroup, MethodInfo info SimpleActionGroup p) => IsLabelProxy t (SimpleActionGroup -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSimpleActionGroupMethod t SimpleActionGroup, MethodInfo info SimpleActionGroup p) => IsLabel t (SimpleActionGroup -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList SimpleActionGroup = SimpleActionGroupAttributeList-type SimpleActionGroupAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList SimpleActionGroup = SimpleActionGroupSignalList-type SimpleActionGroupSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SimpleActionGroup::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "SimpleActionGroup")--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_group_new" g_simple_action_group_new :: -    IO (Ptr SimpleActionGroup)---simpleActionGroupNew ::-    (MonadIO m) =>-    m SimpleActionGroup                     -- result-simpleActionGroupNew  = liftIO $ do-    result <- g_simple_action_group_new-    checkUnexpectedReturnNULL "g_simple_action_group_new" result-    result' <- (wrapObject SimpleActionGroup) result-    return result'---- method SimpleActionGroup::add_entries--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray False (-1) 2 (TInterface "Gio" "ActionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleActionGroup"-    Ptr ActionEntry ->                      -- entries : TCArray False (-1) 2 (TInterface "Gio" "ActionEntry")-    Int32 ->                                -- n_entries : TBasicType TInt-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{-# DEPRECATED simpleActionGroupAddEntries ["(Since version 2.38)","Use g_action_map_add_action_entries()"]#-}-simpleActionGroupAddEntries ::-    (MonadIO m, SimpleActionGroupK a) =>-    a                                       -- _obj-    -> [ActionEntry]                        -- entries-    -> Ptr ()                               -- userData-    -> m ()                                 -- result-simpleActionGroupAddEntries _obj entries userData = liftIO $ do-    let nEntries = fromIntegral $ length entries-    let _obj' = unsafeManagedPtrCastPtr _obj-    let entries' = map unsafeManagedPtrGetPtr entries-    entries'' <- packBlockArray 64 entries'-    g_simple_action_group_add_entries _obj' entries'' nEntries userData-    touchManagedPtr _obj-    mapM_ touchManagedPtr entries-    freeMem entries''-    return ()--data SimpleActionGroupAddEntriesMethodInfo-instance (signature ~ ([ActionEntry] -> Ptr () -> m ()), MonadIO m, SimpleActionGroupK a) => MethodInfo SimpleActionGroupAddEntriesMethodInfo a signature where-    overloadedMethod _ = simpleActionGroupAddEntries---- method SimpleActionGroup::insert--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleActionGroup"-    Ptr Action ->                           -- action : TInterface "Gio" "Action"-    IO ()--{-# DEPRECATED simpleActionGroupInsert ["(Since version 2.38)","Use g_action_map_add_action()"]#-}-simpleActionGroupInsert ::-    (MonadIO m, SimpleActionGroupK a, ActionK b) =>-    a                                       -- _obj-    -> b                                    -- action-    -> m ()                                 -- result-simpleActionGroupInsert _obj action = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let action' = unsafeManagedPtrCastPtr action-    g_simple_action_group_insert _obj' action'-    touchManagedPtr _obj-    touchManagedPtr action-    return ()--data SimpleActionGroupInsertMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, SimpleActionGroupK a, ActionK b) => MethodInfo SimpleActionGroupInsertMethodInfo a signature where-    overloadedMethod _ = simpleActionGroupInsert---- method SimpleActionGroup::lookup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Action")--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_group_lookup" g_simple_action_group_lookup :: -    Ptr SimpleActionGroup ->                -- _obj : TInterface "Gio" "SimpleActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr Action)--{-# DEPRECATED simpleActionGroupLookup ["(Since version 2.38)","Use g_action_map_lookup_action()"]#-}-simpleActionGroupLookup ::-    (MonadIO m, SimpleActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m Action                             -- result-simpleActionGroupLookup _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    result <- g_simple_action_group_lookup _obj' actionName'-    checkUnexpectedReturnNULL "g_simple_action_group_lookup" result-    result' <- (newObject Action) result-    touchManagedPtr _obj-    freeMem actionName'-    return result'--data SimpleActionGroupLookupMethodInfo-instance (signature ~ (T.Text -> m Action), MonadIO m, SimpleActionGroupK a) => MethodInfo SimpleActionGroupLookupMethodInfo a signature where-    overloadedMethod _ = simpleActionGroupLookup---- method SimpleActionGroup::remove--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleActionGroup"-    CString ->                              -- action_name : TBasicType TUTF8-    IO ()--{-# DEPRECATED simpleActionGroupRemove ["(Since version 2.38)","Use g_action_map_remove_action()"]#-}-simpleActionGroupRemove ::-    (MonadIO m, SimpleActionGroupK a) =>-    a                                       -- _obj-    -> T.Text                               -- actionName-    -> m ()                                 -- result-simpleActionGroupRemove _obj actionName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    actionName' <- textToCString actionName-    g_simple_action_group_remove _obj' actionName'-    touchManagedPtr _obj-    freeMem actionName'-    return ()--data SimpleActionGroupRemoveMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SimpleActionGroupK a) => MethodInfo SimpleActionGroupRemoveMethodInfo a signature where-    overloadedMethod _ = simpleActionGroupRemove--
− GI/Gio/Objects/SimpleActionGroup.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.SimpleActionGroup where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SimpleActionGroup = SimpleActionGroup (ForeignPtr SimpleActionGroup)-instance GObject SimpleActionGroup where-class GObject o => SimpleActionGroupK o-instance (GObject o, IsDescendantOf SimpleActionGroup o) => SimpleActionGroupK o-data SimpleActionGroupAddEntriesMethodInfo-data SimpleActionGroupInsertMethodInfo-data SimpleActionGroupLookupMethodInfo-data SimpleActionGroupRemoveMethodInfo
− GI/Gio/Objects/SimpleAsyncResult.hs 
@@ -1,587 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SimpleAsyncResult-    ( ---- * Exported types-    SimpleAsyncResult(..)                   ,-    SimpleAsyncResultK                      ,-    toSimpleAsyncResult                     ,-    noSimpleAsyncResult                     ,--- -- * Methods--- ** simpleAsyncResultComplete-    SimpleAsyncResultCompleteMethodInfo     ,-    simpleAsyncResultComplete               ,----- ** simpleAsyncResultCompleteInIdle-    SimpleAsyncResultCompleteInIdleMethodInfo,-    simpleAsyncResultCompleteInIdle         ,----- ** simpleAsyncResultGetOpResGboolean-    SimpleAsyncResultGetOpResGbooleanMethodInfo,-    simpleAsyncResultGetOpResGboolean       ,----- ** simpleAsyncResultGetOpResGssize-    SimpleAsyncResultGetOpResGssizeMethodInfo,-    simpleAsyncResultGetOpResGssize         ,----- ** simpleAsyncResultIsValid-    simpleAsyncResultIsValid                ,----- ** simpleAsyncResultNew-    simpleAsyncResultNew                    ,----- ** simpleAsyncResultNewFromError-    simpleAsyncResultNewFromError           ,----- ** simpleAsyncResultPropagateError-    SimpleAsyncResultPropagateErrorMethodInfo,-    simpleAsyncResultPropagateError         ,----- ** simpleAsyncResultSetCheckCancellable-    SimpleAsyncResultSetCheckCancellableMethodInfo,-    simpleAsyncResultSetCheckCancellable    ,----- ** simpleAsyncResultSetFromError-    SimpleAsyncResultSetFromErrorMethodInfo ,-    simpleAsyncResultSetFromError           ,----- ** simpleAsyncResultSetHandleCancellation-    SimpleAsyncResultSetHandleCancellationMethodInfo,-    simpleAsyncResultSetHandleCancellation  ,----- ** simpleAsyncResultSetOpResGboolean-    SimpleAsyncResultSetOpResGbooleanMethodInfo,-    simpleAsyncResultSetOpResGboolean       ,----- ** simpleAsyncResultSetOpResGssize-    SimpleAsyncResultSetOpResGssizeMethodInfo,-    simpleAsyncResultSetOpResGssize         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SimpleAsyncResult = SimpleAsyncResult (ForeignPtr SimpleAsyncResult)-foreign import ccall "g_simple_async_result_get_type"-    c_g_simple_async_result_get_type :: IO GType--type instance ParentTypes SimpleAsyncResult = SimpleAsyncResultParentTypes-type SimpleAsyncResultParentTypes = '[GObject.Object, AsyncResult]--instance GObject SimpleAsyncResult where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_simple_async_result_get_type-    --class GObject o => SimpleAsyncResultK o-instance (GObject o, IsDescendantOf SimpleAsyncResult o) => SimpleAsyncResultK o--toSimpleAsyncResult :: SimpleAsyncResultK o => o -> IO SimpleAsyncResult-toSimpleAsyncResult = unsafeCastTo SimpleAsyncResult--noSimpleAsyncResult :: Maybe SimpleAsyncResult-noSimpleAsyncResult = Nothing--type family ResolveSimpleAsyncResultMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimpleAsyncResultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSimpleAsyncResultMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSimpleAsyncResultMethod "complete" o = SimpleAsyncResultCompleteMethodInfo-    ResolveSimpleAsyncResultMethod "completeInIdle" o = SimpleAsyncResultCompleteInIdleMethodInfo-    ResolveSimpleAsyncResultMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSimpleAsyncResultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSimpleAsyncResultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSimpleAsyncResultMethod "isTagged" o = AsyncResultIsTaggedMethodInfo-    ResolveSimpleAsyncResultMethod "legacyPropagateError" o = AsyncResultLegacyPropagateErrorMethodInfo-    ResolveSimpleAsyncResultMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSimpleAsyncResultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSimpleAsyncResultMethod "propagateError" o = SimpleAsyncResultPropagateErrorMethodInfo-    ResolveSimpleAsyncResultMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSimpleAsyncResultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSimpleAsyncResultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSimpleAsyncResultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSimpleAsyncResultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSimpleAsyncResultMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSimpleAsyncResultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSimpleAsyncResultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSimpleAsyncResultMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSimpleAsyncResultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSimpleAsyncResultMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSimpleAsyncResultMethod "getOpResGboolean" o = SimpleAsyncResultGetOpResGbooleanMethodInfo-    ResolveSimpleAsyncResultMethod "getOpResGssize" o = SimpleAsyncResultGetOpResGssizeMethodInfo-    ResolveSimpleAsyncResultMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSimpleAsyncResultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSimpleAsyncResultMethod "getSourceObject" o = AsyncResultGetSourceObjectMethodInfo-    ResolveSimpleAsyncResultMethod "getUserData" o = AsyncResultGetUserDataMethodInfo-    ResolveSimpleAsyncResultMethod "setCheckCancellable" o = SimpleAsyncResultSetCheckCancellableMethodInfo-    ResolveSimpleAsyncResultMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSimpleAsyncResultMethod "setFromError" o = SimpleAsyncResultSetFromErrorMethodInfo-    ResolveSimpleAsyncResultMethod "setHandleCancellation" o = SimpleAsyncResultSetHandleCancellationMethodInfo-    ResolveSimpleAsyncResultMethod "setOpResGboolean" o = SimpleAsyncResultSetOpResGbooleanMethodInfo-    ResolveSimpleAsyncResultMethod "setOpResGssize" o = SimpleAsyncResultSetOpResGssizeMethodInfo-    ResolveSimpleAsyncResultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSimpleAsyncResultMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSimpleAsyncResultMethod t SimpleAsyncResult, MethodInfo info SimpleAsyncResult p) => IsLabelProxy t (SimpleAsyncResult -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSimpleAsyncResultMethod t SimpleAsyncResult, MethodInfo info SimpleAsyncResult p) => IsLabel t (SimpleAsyncResult -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList SimpleAsyncResult = SimpleAsyncResultAttributeList-type SimpleAsyncResultAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList SimpleAsyncResult = SimpleAsyncResultSignalList-type SimpleAsyncResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SimpleAsyncResult::new--- method type : Constructor--- Args : [Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SimpleAsyncResult")--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_result_new" g_simple_async_result_new :: -    Ptr GObject.Object ->                   -- source_object : TInterface "GObject" "Object"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    Ptr () ->                               -- source_tag : TBasicType TPtr-    IO (Ptr SimpleAsyncResult)--{-# DEPRECATED simpleAsyncResultNew ["(Since version 2.46)","Use g_task_new() instead."]#-}-simpleAsyncResultNew ::-    (MonadIO m, GObject.ObjectK a) =>-    Maybe (a)                               -- sourceObject-    -> Maybe (AsyncReadyCallback)           -- callback-    -> Ptr ()                               -- sourceTag-    -> m SimpleAsyncResult                  -- result-simpleAsyncResultNew sourceObject callback sourceTag = liftIO $ do-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    result <- g_simple_async_result_new maybeSourceObject maybeCallback userData sourceTag-    checkUnexpectedReturnNULL "g_simple_async_result_new" result-    result' <- (wrapObject SimpleAsyncResult) result-    whenJust sourceObject touchManagedPtr-    return result'---- method SimpleAsyncResult::new_from_error--- method type : Constructor--- Args : [Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                   -- source_object : TInterface "GObject" "Object"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    Ptr GError ->                           -- error : TError-    IO (Ptr SimpleAsyncResult)--{-# DEPRECATED simpleAsyncResultNewFromError ["(Since version 2.46)","Use g_task_new() and g_task_return_error() instead."]#-}-simpleAsyncResultNewFromError ::-    (MonadIO m, GObject.ObjectK a) =>-    Maybe (a)                               -- sourceObject-    -> Maybe (AsyncReadyCallback)           -- callback-    -> GError                               -- error_-    -> m SimpleAsyncResult                  -- result-simpleAsyncResultNewFromError sourceObject callback error_ = liftIO $ do-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let error_' = unsafeManagedPtrGetPtr error_-    let userData = nullPtr-    result <- g_simple_async_result_new_from_error maybeSourceObject maybeCallback userData error_'-    checkUnexpectedReturnNULL "g_simple_async_result_new_from_error" result-    result' <- (wrapObject SimpleAsyncResult) result-    whenJust sourceObject touchManagedPtr-    touchManagedPtr error_-    return result'---- method SimpleAsyncResult::complete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleAsyncResult"-    IO ()--{-# DEPRECATED simpleAsyncResultComplete ["(Since version 2.46)","Use #GTask instead."]#-}-simpleAsyncResultComplete ::-    (MonadIO m, SimpleAsyncResultK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-simpleAsyncResultComplete _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_simple_async_result_complete _obj'-    touchManagedPtr _obj-    return ()--data SimpleAsyncResultCompleteMethodInfo-instance (signature ~ (m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultCompleteMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultComplete---- method SimpleAsyncResult::complete_in_idle--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleAsyncResult"-    IO ()--{-# DEPRECATED simpleAsyncResultCompleteInIdle ["(Since version 2.46)","Use #GTask instead."]#-}-simpleAsyncResultCompleteInIdle ::-    (MonadIO m, SimpleAsyncResultK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-simpleAsyncResultCompleteInIdle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_simple_async_result_complete_in_idle _obj'-    touchManagedPtr _obj-    return ()--data SimpleAsyncResultCompleteInIdleMethodInfo-instance (signature ~ (m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultCompleteInIdleMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultCompleteInIdle---- method SimpleAsyncResult::get_op_res_gboolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleAsyncResult"-    IO CInt--{-# DEPRECATED simpleAsyncResultGetOpResGboolean ["(Since version 2.46)","Use #GTask and g_task_propagate_boolean() instead."]#-}-simpleAsyncResultGetOpResGboolean ::-    (MonadIO m, SimpleAsyncResultK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-simpleAsyncResultGetOpResGboolean _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_simple_async_result_get_op_res_gboolean _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SimpleAsyncResultGetOpResGbooleanMethodInfo-instance (signature ~ (m Bool), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultGetOpResGbooleanMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultGetOpResGboolean---- method SimpleAsyncResult::get_op_res_gssize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleAsyncResult"-    IO Int64--{-# DEPRECATED simpleAsyncResultGetOpResGssize ["(Since version 2.46)","Use #GTask and g_task_propagate_int() instead."]#-}-simpleAsyncResultGetOpResGssize ::-    (MonadIO m, SimpleAsyncResultK a) =>-    a                                       -- _obj-    -> m Int64                              -- result-simpleAsyncResultGetOpResGssize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_simple_async_result_get_op_res_gssize _obj'-    touchManagedPtr _obj-    return result--data SimpleAsyncResultGetOpResGssizeMethodInfo-instance (signature ~ (m Int64), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultGetOpResGssizeMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultGetOpResGssize---- method SimpleAsyncResult::propagate_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleAsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED simpleAsyncResultPropagateError ["(Since version 2.46)","Use #GTask instead."]#-}-simpleAsyncResultPropagateError ::-    (MonadIO m, SimpleAsyncResultK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-simpleAsyncResultPropagateError _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_simple_async_result_propagate_error _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data SimpleAsyncResultPropagateErrorMethodInfo-instance (signature ~ (m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultPropagateErrorMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultPropagateError---- method SimpleAsyncResult::set_check_cancellable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                -- _obj : TInterface "Gio" "SimpleAsyncResult"-    Ptr Cancellable ->                      -- check_cancellable : TInterface "Gio" "Cancellable"-    IO ()--{-# DEPRECATED simpleAsyncResultSetCheckCancellable ["(Since version 2.46)","Use #GTask instead."]#-}-simpleAsyncResultSetCheckCancellable ::-    (MonadIO m, SimpleAsyncResultK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- checkCancellable-    -> m ()                                 -- result-simpleAsyncResultSetCheckCancellable _obj checkCancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCheckCancellable <- case checkCancellable of-        Nothing -> return nullPtr-        Just jCheckCancellable -> do-            let jCheckCancellable' = unsafeManagedPtrCastPtr jCheckCancellable-            return jCheckCancellable'-    g_simple_async_result_set_check_cancellable _obj' maybeCheckCancellable-    touchManagedPtr _obj-    whenJust checkCancellable touchManagedPtr-    return ()--data SimpleAsyncResultSetCheckCancellableMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SimpleAsyncResultK a, CancellableK b) => MethodInfo SimpleAsyncResultSetCheckCancellableMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultSetCheckCancellable---- method SimpleAsyncResult::set_from_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleAsyncResult"-    Ptr GError ->                           -- error : TError-    IO ()--{-# DEPRECATED simpleAsyncResultSetFromError ["(Since version 2.46)","Use #GTask and g_task_return_error() instead."]#-}-simpleAsyncResultSetFromError ::-    (MonadIO m, SimpleAsyncResultK a) =>-    a                                       -- _obj-    -> GError                               -- error_-    -> m ()                                 -- result-simpleAsyncResultSetFromError _obj error_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let error_' = unsafeManagedPtrGetPtr error_-    g_simple_async_result_set_from_error _obj' error_'-    touchManagedPtr _obj-    touchManagedPtr error_-    return ()--data SimpleAsyncResultSetFromErrorMethodInfo-instance (signature ~ (GError -> m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultSetFromErrorMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultSetFromError---- method SimpleAsyncResult::set_handle_cancellation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle_cancellation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleAsyncResult"-    CInt ->                                 -- handle_cancellation : TBasicType TBoolean-    IO ()--{-# DEPRECATED simpleAsyncResultSetHandleCancellation ["(Since version 2.46)"]#-}-simpleAsyncResultSetHandleCancellation ::-    (MonadIO m, SimpleAsyncResultK a) =>-    a                                       -- _obj-    -> Bool                                 -- handleCancellation-    -> m ()                                 -- result-simpleAsyncResultSetHandleCancellation _obj handleCancellation = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let handleCancellation' = (fromIntegral . fromEnum) handleCancellation-    g_simple_async_result_set_handle_cancellation _obj' handleCancellation'-    touchManagedPtr _obj-    return ()--data SimpleAsyncResultSetHandleCancellationMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultSetHandleCancellationMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultSetHandleCancellation---- method SimpleAsyncResult::set_op_res_gboolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "op_res", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleAsyncResult"-    CInt ->                                 -- op_res : TBasicType TBoolean-    IO ()--{-# DEPRECATED simpleAsyncResultSetOpResGboolean ["(Since version 2.46)","Use #GTask and g_task_return_boolean() instead."]#-}-simpleAsyncResultSetOpResGboolean ::-    (MonadIO m, SimpleAsyncResultK a) =>-    a                                       -- _obj-    -> Bool                                 -- opRes-    -> m ()                                 -- result-simpleAsyncResultSetOpResGboolean _obj opRes = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let opRes' = (fromIntegral . fromEnum) opRes-    g_simple_async_result_set_op_res_gboolean _obj' opRes'-    touchManagedPtr _obj-    return ()--data SimpleAsyncResultSetOpResGbooleanMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultSetOpResGbooleanMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultSetOpResGboolean---- method SimpleAsyncResult::set_op_res_gssize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "op_res", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SimpleAsyncResult"-    Int64 ->                                -- op_res : TBasicType TInt64-    IO ()--{-# DEPRECATED simpleAsyncResultSetOpResGssize ["(Since version 2.46)","Use #GTask and g_task_return_int() instead."]#-}-simpleAsyncResultSetOpResGssize ::-    (MonadIO m, SimpleAsyncResultK a) =>-    a                                       -- _obj-    -> Int64                                -- opRes-    -> m ()                                 -- result-simpleAsyncResultSetOpResGssize _obj opRes = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_simple_async_result_set_op_res_gssize _obj' opRes-    touchManagedPtr _obj-    return ()--data SimpleAsyncResultSetOpResGssizeMethodInfo-instance (signature ~ (Int64 -> m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultSetOpResGssizeMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultSetOpResGssize---- method SimpleAsyncResult::is_valid--- method type : MemberFunction--- Args : [Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, 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 AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr GObject.Object ->                   -- source : TInterface "GObject" "Object"-    Ptr () ->                               -- source_tag : TBasicType TPtr-    IO CInt--{-# DEPRECATED simpleAsyncResultIsValid ["(Since version 2.46)","Use #GTask and g_task_is_valid() instead."]#-}-simpleAsyncResultIsValid ::-    (MonadIO m, AsyncResultK a, GObject.ObjectK b) =>-    a                                       -- result_-    -> Maybe (b)                            -- source-    -> Ptr ()                               -- sourceTag-    -> m Bool                               -- result-simpleAsyncResultIsValid result_ source sourceTag = liftIO $ do-    let result_' = unsafeManagedPtrCastPtr result_-    maybeSource <- case source of-        Nothing -> return nullPtr-        Just jSource -> do-            let 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'--
− GI/Gio/Objects/SimpleAsyncResult.hs-boot 
@@ -1,23 +0,0 @@-module GI.Gio.Objects.SimpleAsyncResult where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SimpleAsyncResult = SimpleAsyncResult (ForeignPtr SimpleAsyncResult)-instance GObject SimpleAsyncResult where-class GObject o => SimpleAsyncResultK o-instance (GObject o, IsDescendantOf SimpleAsyncResult o) => SimpleAsyncResultK o-data SimpleAsyncResultCompleteMethodInfo-data SimpleAsyncResultCompleteInIdleMethodInfo-data SimpleAsyncResultGetOpResGbooleanMethodInfo-data SimpleAsyncResultGetOpResGssizeMethodInfo-data SimpleAsyncResultPropagateErrorMethodInfo-data SimpleAsyncResultSetCheckCancellableMethodInfo-data SimpleAsyncResultSetFromErrorMethodInfo-data SimpleAsyncResultSetHandleCancellationMethodInfo-data SimpleAsyncResultSetOpResGbooleanMethodInfo-data SimpleAsyncResultSetOpResGssizeMethodInfo
− GI/Gio/Objects/SimpleIOStream.hs 
@@ -1,213 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SimpleIOStream-    ( ---- * Exported types-    SimpleIOStream(..)                      ,-    SimpleIOStreamK                         ,-    toSimpleIOStream                        ,-    noSimpleIOStream                        ,--- -- * Methods--- ** simpleIOStreamNew-    simpleIOStreamNew                       ,----- -- * Properties--- ** InputStream-    SimpleIOStreamInputStreamPropertyInfo   ,-    constructSimpleIOStreamInputStream      ,-    getSimpleIOStreamInputStream            ,-    simpleIOStreamInputStream               ,----- ** OutputStream-    SimpleIOStreamOutputStreamPropertyInfo  ,-    constructSimpleIOStreamOutputStream     ,-    getSimpleIOStreamOutputStream           ,-    simpleIOStreamOutputStream              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SimpleIOStream = SimpleIOStream (ForeignPtr SimpleIOStream)-foreign import ccall "g_simple_io_stream_get_type"-    c_g_simple_io_stream_get_type :: IO GType--type instance ParentTypes SimpleIOStream = SimpleIOStreamParentTypes-type SimpleIOStreamParentTypes = '[IOStream, GObject.Object]--instance GObject SimpleIOStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_simple_io_stream_get_type-    --class GObject o => SimpleIOStreamK o-instance (GObject o, IsDescendantOf SimpleIOStream o) => SimpleIOStreamK o--toSimpleIOStream :: SimpleIOStreamK o => o -> IO SimpleIOStream-toSimpleIOStream = unsafeCastTo SimpleIOStream--noSimpleIOStream :: Maybe SimpleIOStream-noSimpleIOStream = Nothing--type family ResolveSimpleIOStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimpleIOStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSimpleIOStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSimpleIOStreamMethod "clearPending" o = IOStreamClearPendingMethodInfo-    ResolveSimpleIOStreamMethod "close" o = IOStreamCloseMethodInfo-    ResolveSimpleIOStreamMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo-    ResolveSimpleIOStreamMethod "closeFinish" o = IOStreamCloseFinishMethodInfo-    ResolveSimpleIOStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSimpleIOStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSimpleIOStreamMethod "hasPending" o = IOStreamHasPendingMethodInfo-    ResolveSimpleIOStreamMethod "isClosed" o = IOStreamIsClosedMethodInfo-    ResolveSimpleIOStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSimpleIOStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSimpleIOStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSimpleIOStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSimpleIOStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSimpleIOStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSimpleIOStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSimpleIOStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSimpleIOStreamMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo-    ResolveSimpleIOStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSimpleIOStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSimpleIOStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSimpleIOStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSimpleIOStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSimpleIOStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSimpleIOStreamMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo-    ResolveSimpleIOStreamMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo-    ResolveSimpleIOStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSimpleIOStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSimpleIOStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSimpleIOStreamMethod "setPending" o = IOStreamSetPendingMethodInfo-    ResolveSimpleIOStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSimpleIOStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSimpleIOStreamMethod t SimpleIOStream, MethodInfo info SimpleIOStream p) => IsLabelProxy t (SimpleIOStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSimpleIOStreamMethod t SimpleIOStream, MethodInfo info SimpleIOStream p) => IsLabel t (SimpleIOStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif----- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "SimpleIOStream"} -> Property {propName = "input-stream", propType = TInterface "Gio" "InputStream", propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "IOStream"} -> Property {propName = "input-stream", propType = TInterface "Gio" "InputStream", propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}---- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "SimpleIOStream"} -> Property {propName = "output-stream", propType = TInterface "Gio" "OutputStream", propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "IOStream"} -> Property {propName = "output-stream", propType = TInterface "Gio" "OutputStream", propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing}--- VVV Prop "input-stream"-   -- Type: TInterface "Gio" "InputStream"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSimpleIOStreamInputStream :: (MonadIO m, SimpleIOStreamK o) => o -> m (Maybe InputStream)-getSimpleIOStreamInputStream obj = liftIO $ getObjectPropertyObject obj "input-stream" InputStream--constructSimpleIOStreamInputStream :: (InputStreamK a) => a -> IO ([Char], GValue)-constructSimpleIOStreamInputStream val = constructObjectPropertyObject "input-stream" (Just val)--data SimpleIOStreamInputStreamPropertyInfo-instance AttrInfo SimpleIOStreamInputStreamPropertyInfo where-    type AttrAllowedOps SimpleIOStreamInputStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleIOStreamInputStreamPropertyInfo = InputStreamK-    type AttrBaseTypeConstraint SimpleIOStreamInputStreamPropertyInfo = SimpleIOStreamK-    type AttrGetType SimpleIOStreamInputStreamPropertyInfo = (Maybe InputStream)-    type AttrLabel SimpleIOStreamInputStreamPropertyInfo = "input-stream"-    attrGet _ = getSimpleIOStreamInputStream-    attrSet _ = undefined-    attrConstruct _ = constructSimpleIOStreamInputStream-    attrClear _ = undefined---- VVV Prop "output-stream"-   -- Type: TInterface "Gio" "OutputStream"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSimpleIOStreamOutputStream :: (MonadIO m, SimpleIOStreamK o) => o -> m (Maybe OutputStream)-getSimpleIOStreamOutputStream obj = liftIO $ getObjectPropertyObject obj "output-stream" OutputStream--constructSimpleIOStreamOutputStream :: (OutputStreamK a) => a -> IO ([Char], GValue)-constructSimpleIOStreamOutputStream val = constructObjectPropertyObject "output-stream" (Just val)--data SimpleIOStreamOutputStreamPropertyInfo-instance AttrInfo SimpleIOStreamOutputStreamPropertyInfo where-    type AttrAllowedOps SimpleIOStreamOutputStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleIOStreamOutputStreamPropertyInfo = OutputStreamK-    type AttrBaseTypeConstraint SimpleIOStreamOutputStreamPropertyInfo = SimpleIOStreamK-    type AttrGetType SimpleIOStreamOutputStreamPropertyInfo = (Maybe OutputStream)-    type AttrLabel SimpleIOStreamOutputStreamPropertyInfo = "output-stream"-    attrGet _ = getSimpleIOStreamOutputStream-    attrSet _ = undefined-    attrConstruct _ = constructSimpleIOStreamOutputStream-    attrClear _ = undefined--type instance AttributeList SimpleIOStream = SimpleIOStreamAttributeList-type SimpleIOStreamAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo)] :: [(Symbol, *)])--simpleIOStreamInputStream :: AttrLabelProxy "inputStream"-simpleIOStreamInputStream = AttrLabelProxy--simpleIOStreamOutputStream :: AttrLabelProxy "outputStream"-simpleIOStreamOutputStream = AttrLabelProxy--type instance SignalList SimpleIOStream = SimpleIOStreamSignalList-type SimpleIOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SimpleIOStream::new--- method type : Constructor--- Args : [Arg {argCName = "input_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "output_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SimpleIOStream")--- throws : False--- Skip return : False--foreign import ccall "g_simple_io_stream_new" g_simple_io_stream_new :: -    Ptr InputStream ->                      -- input_stream : TInterface "Gio" "InputStream"-    Ptr OutputStream ->                     -- output_stream : TInterface "Gio" "OutputStream"-    IO (Ptr SimpleIOStream)---simpleIOStreamNew ::-    (MonadIO m, InputStreamK a, OutputStreamK b) =>-    a                                       -- inputStream-    -> b                                    -- outputStream-    -> m SimpleIOStream                     -- result-simpleIOStreamNew inputStream outputStream = liftIO $ do-    let inputStream' = unsafeManagedPtrCastPtr inputStream-    let outputStream' = unsafeManagedPtrCastPtr outputStream-    result <- g_simple_io_stream_new inputStream' outputStream'-    checkUnexpectedReturnNULL "g_simple_io_stream_new" result-    result' <- (wrapObject SimpleIOStream) result-    touchManagedPtr inputStream-    touchManagedPtr outputStream-    return result'--
− GI/Gio/Objects/SimpleIOStream.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Objects.SimpleIOStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SimpleIOStream = SimpleIOStream (ForeignPtr SimpleIOStream)-instance GObject SimpleIOStream where-class GObject o => SimpleIOStreamK o-instance (GObject o, IsDescendantOf SimpleIOStream o) => SimpleIOStreamK o-data SimpleIOStreamInputStreamPropertyInfo-data SimpleIOStreamOutputStreamPropertyInfo
− GI/Gio/Objects/SimplePermission.hs 
@@ -1,133 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SimplePermission-    ( ---- * Exported types-    SimplePermission(..)                    ,-    SimplePermissionK                       ,-    toSimplePermission                      ,-    noSimplePermission                      ,--- -- * Methods--- ** simplePermissionNew-    simplePermissionNew                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SimplePermission = SimplePermission (ForeignPtr SimplePermission)-foreign import ccall "g_simple_permission_get_type"-    c_g_simple_permission_get_type :: IO GType--type instance ParentTypes SimplePermission = SimplePermissionParentTypes-type SimplePermissionParentTypes = '[Permission, GObject.Object]--instance GObject SimplePermission where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_simple_permission_get_type-    --class GObject o => SimplePermissionK o-instance (GObject o, IsDescendantOf SimplePermission o) => SimplePermissionK o--toSimplePermission :: SimplePermissionK o => o -> IO SimplePermission-toSimplePermission = unsafeCastTo SimplePermission--noSimplePermission :: Maybe SimplePermission-noSimplePermission = Nothing--type family ResolveSimplePermissionMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimplePermissionMethod "acquire" o = PermissionAcquireMethodInfo-    ResolveSimplePermissionMethod "acquireAsync" o = PermissionAcquireAsyncMethodInfo-    ResolveSimplePermissionMethod "acquireFinish" o = PermissionAcquireFinishMethodInfo-    ResolveSimplePermissionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSimplePermissionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSimplePermissionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSimplePermissionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSimplePermissionMethod "implUpdate" o = PermissionImplUpdateMethodInfo-    ResolveSimplePermissionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSimplePermissionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSimplePermissionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSimplePermissionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSimplePermissionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSimplePermissionMethod "release" o = PermissionReleaseMethodInfo-    ResolveSimplePermissionMethod "releaseAsync" o = PermissionReleaseAsyncMethodInfo-    ResolveSimplePermissionMethod "releaseFinish" o = PermissionReleaseFinishMethodInfo-    ResolveSimplePermissionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSimplePermissionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSimplePermissionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSimplePermissionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSimplePermissionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSimplePermissionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSimplePermissionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSimplePermissionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSimplePermissionMethod "getAllowed" o = PermissionGetAllowedMethodInfo-    ResolveSimplePermissionMethod "getCanAcquire" o = PermissionGetCanAcquireMethodInfo-    ResolveSimplePermissionMethod "getCanRelease" o = PermissionGetCanReleaseMethodInfo-    ResolveSimplePermissionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSimplePermissionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSimplePermissionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSimplePermissionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSimplePermissionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSimplePermissionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSimplePermissionMethod t SimplePermission, MethodInfo info SimplePermission p) => IsLabelProxy t (SimplePermission -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSimplePermissionMethod t SimplePermission, MethodInfo info SimplePermission p) => IsLabel t (SimplePermission -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList SimplePermission = SimplePermissionAttributeList-type SimplePermissionAttributeList = ('[ '("allowed", PermissionAllowedPropertyInfo), '("canAcquire", PermissionCanAcquirePropertyInfo), '("canRelease", PermissionCanReleasePropertyInfo)] :: [(Symbol, *)])--type instance SignalList SimplePermission = SimplePermissionSignalList-type SimplePermissionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SimplePermission::new--- method type : Constructor--- Args : [Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SimplePermission")--- throws : False--- Skip return : False--foreign import ccall "g_simple_permission_new" g_simple_permission_new :: -    CInt ->                                 -- allowed : TBasicType TBoolean-    IO (Ptr SimplePermission)---simplePermissionNew ::-    (MonadIO m) =>-    Bool                                    -- allowed-    -> m SimplePermission                   -- result-simplePermissionNew allowed = liftIO $ do-    let allowed' = (fromIntegral . fromEnum) allowed-    result <- g_simple_permission_new allowed'-    checkUnexpectedReturnNULL "g_simple_permission_new" result-    result' <- (wrapObject SimplePermission) result-    return result'--
− GI/Gio/Objects/SimplePermission.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gio.Objects.SimplePermission where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SimplePermission = SimplePermission (ForeignPtr SimplePermission)-instance GObject SimplePermission where-class GObject o => SimplePermissionK o-instance (GObject o, IsDescendantOf SimplePermission o) => SimplePermissionK o
− GI/Gio/Objects/SimpleProxyResolver.hs 
@@ -1,336 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SimpleProxyResolver-    ( ---- * Exported types-    SimpleProxyResolver(..)                 ,-    SimpleProxyResolverK                    ,-    toSimpleProxyResolver                   ,-    noSimpleProxyResolver                   ,--- -- * Methods--- ** simpleProxyResolverNew-    simpleProxyResolverNew                  ,----- ** simpleProxyResolverSetDefaultProxy-    SimpleProxyResolverSetDefaultProxyMethodInfo,-    simpleProxyResolverSetDefaultProxy      ,----- ** simpleProxyResolverSetIgnoreHosts-    SimpleProxyResolverSetIgnoreHostsMethodInfo,-    simpleProxyResolverSetIgnoreHosts       ,----- ** simpleProxyResolverSetUriProxy-    SimpleProxyResolverSetUriProxyMethodInfo,-    simpleProxyResolverSetUriProxy          ,----- -- * Properties--- ** DefaultProxy-    SimpleProxyResolverDefaultProxyPropertyInfo,-    constructSimpleProxyResolverDefaultProxy,-    getSimpleProxyResolverDefaultProxy      ,-    setSimpleProxyResolverDefaultProxy      ,-    simpleProxyResolverDefaultProxy         ,----- ** IgnoreHosts-    SimpleProxyResolverIgnoreHostsPropertyInfo,-    clearSimpleProxyResolverIgnoreHosts     ,-    constructSimpleProxyResolverIgnoreHosts ,-    getSimpleProxyResolverIgnoreHosts       ,-    setSimpleProxyResolverIgnoreHosts       ,-    simpleProxyResolverIgnoreHosts          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SimpleProxyResolver = SimpleProxyResolver (ForeignPtr SimpleProxyResolver)-foreign import ccall "g_simple_proxy_resolver_get_type"-    c_g_simple_proxy_resolver_get_type :: IO GType--type instance ParentTypes SimpleProxyResolver = SimpleProxyResolverParentTypes-type SimpleProxyResolverParentTypes = '[GObject.Object, ProxyResolver]--instance GObject SimpleProxyResolver where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_simple_proxy_resolver_get_type-    --class GObject o => SimpleProxyResolverK o-instance (GObject o, IsDescendantOf SimpleProxyResolver o) => SimpleProxyResolverK o--toSimpleProxyResolver :: SimpleProxyResolverK o => o -> IO SimpleProxyResolver-toSimpleProxyResolver = unsafeCastTo SimpleProxyResolver--noSimpleProxyResolver :: Maybe SimpleProxyResolver-noSimpleProxyResolver = Nothing--type family ResolveSimpleProxyResolverMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimpleProxyResolverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSimpleProxyResolverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSimpleProxyResolverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSimpleProxyResolverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSimpleProxyResolverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSimpleProxyResolverMethod "isSupported" o = ProxyResolverIsSupportedMethodInfo-    ResolveSimpleProxyResolverMethod "lookup" o = ProxyResolverLookupMethodInfo-    ResolveSimpleProxyResolverMethod "lookupAsync" o = ProxyResolverLookupAsyncMethodInfo-    ResolveSimpleProxyResolverMethod "lookupFinish" o = ProxyResolverLookupFinishMethodInfo-    ResolveSimpleProxyResolverMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSimpleProxyResolverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSimpleProxyResolverMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSimpleProxyResolverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSimpleProxyResolverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSimpleProxyResolverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSimpleProxyResolverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSimpleProxyResolverMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSimpleProxyResolverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSimpleProxyResolverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSimpleProxyResolverMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSimpleProxyResolverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSimpleProxyResolverMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSimpleProxyResolverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSimpleProxyResolverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSimpleProxyResolverMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSimpleProxyResolverMethod "setDefaultProxy" o = SimpleProxyResolverSetDefaultProxyMethodInfo-    ResolveSimpleProxyResolverMethod "setIgnoreHosts" o = SimpleProxyResolverSetIgnoreHostsMethodInfo-    ResolveSimpleProxyResolverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSimpleProxyResolverMethod "setUriProxy" o = SimpleProxyResolverSetUriProxyMethodInfo-    ResolveSimpleProxyResolverMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSimpleProxyResolverMethod t SimpleProxyResolver, MethodInfo info SimpleProxyResolver p) => IsLabelProxy t (SimpleProxyResolver -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSimpleProxyResolverMethod t SimpleProxyResolver, MethodInfo info SimpleProxyResolver p) => IsLabel t (SimpleProxyResolver -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "default-proxy"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Just False)--getSimpleProxyResolverDefaultProxy :: (MonadIO m, SimpleProxyResolverK o) => o -> m (Maybe T.Text)-getSimpleProxyResolverDefaultProxy obj = liftIO $ getObjectPropertyString obj "default-proxy"--setSimpleProxyResolverDefaultProxy :: (MonadIO m, SimpleProxyResolverK o) => o -> T.Text -> m ()-setSimpleProxyResolverDefaultProxy obj val = liftIO $ setObjectPropertyString obj "default-proxy" (Just val)--constructSimpleProxyResolverDefaultProxy :: T.Text -> IO ([Char], GValue)-constructSimpleProxyResolverDefaultProxy val = constructObjectPropertyString "default-proxy" (Just val)--data SimpleProxyResolverDefaultProxyPropertyInfo-instance AttrInfo SimpleProxyResolverDefaultProxyPropertyInfo where-    type AttrAllowedOps SimpleProxyResolverDefaultProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SimpleProxyResolverDefaultProxyPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SimpleProxyResolverDefaultProxyPropertyInfo = SimpleProxyResolverK-    type AttrGetType SimpleProxyResolverDefaultProxyPropertyInfo = (Maybe T.Text)-    type AttrLabel SimpleProxyResolverDefaultProxyPropertyInfo = "default-proxy"-    attrGet _ = getSimpleProxyResolverDefaultProxy-    attrSet _ = setSimpleProxyResolverDefaultProxy-    attrConstruct _ = constructSimpleProxyResolverDefaultProxy-    attrClear _ = undefined---- VVV Prop "ignore-hosts"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSimpleProxyResolverIgnoreHosts :: (MonadIO m, SimpleProxyResolverK o) => o -> m (Maybe [T.Text])-getSimpleProxyResolverIgnoreHosts obj = liftIO $ getObjectPropertyStringArray obj "ignore-hosts"--setSimpleProxyResolverIgnoreHosts :: (MonadIO m, SimpleProxyResolverK o) => o -> [T.Text] -> m ()-setSimpleProxyResolverIgnoreHosts obj val = liftIO $ setObjectPropertyStringArray obj "ignore-hosts" (Just val)--constructSimpleProxyResolverIgnoreHosts :: [T.Text] -> IO ([Char], GValue)-constructSimpleProxyResolverIgnoreHosts val = constructObjectPropertyStringArray "ignore-hosts" (Just val)--clearSimpleProxyResolverIgnoreHosts :: (MonadIO m, SimpleProxyResolverK o) => o -> m ()-clearSimpleProxyResolverIgnoreHosts obj = liftIO $ setObjectPropertyStringArray obj "ignore-hosts" (Nothing :: Maybe [T.Text])--data SimpleProxyResolverIgnoreHostsPropertyInfo-instance AttrInfo SimpleProxyResolverIgnoreHostsPropertyInfo where-    type AttrAllowedOps SimpleProxyResolverIgnoreHostsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleProxyResolverIgnoreHostsPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint SimpleProxyResolverIgnoreHostsPropertyInfo = SimpleProxyResolverK-    type AttrGetType SimpleProxyResolverIgnoreHostsPropertyInfo = (Maybe [T.Text])-    type AttrLabel SimpleProxyResolverIgnoreHostsPropertyInfo = "ignore-hosts"-    attrGet _ = getSimpleProxyResolverIgnoreHosts-    attrSet _ = setSimpleProxyResolverIgnoreHosts-    attrConstruct _ = constructSimpleProxyResolverIgnoreHosts-    attrClear _ = clearSimpleProxyResolverIgnoreHosts--type instance AttributeList SimpleProxyResolver = SimpleProxyResolverAttributeList-type SimpleProxyResolverAttributeList = ('[ '("defaultProxy", SimpleProxyResolverDefaultProxyPropertyInfo), '("ignoreHosts", SimpleProxyResolverIgnoreHostsPropertyInfo)] :: [(Symbol, *)])--simpleProxyResolverDefaultProxy :: AttrLabelProxy "defaultProxy"-simpleProxyResolverDefaultProxy = AttrLabelProxy--simpleProxyResolverIgnoreHosts :: AttrLabelProxy "ignoreHosts"-simpleProxyResolverIgnoreHosts = AttrLabelProxy--type instance SignalList SimpleProxyResolver = SimpleProxyResolverSignalList-type SimpleProxyResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SimpleProxyResolver::set_default_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "SimpleProxyResolver"-    CString ->                              -- default_proxy : TBasicType TUTF8-    IO ()---simpleProxyResolverSetDefaultProxy ::-    (MonadIO m, SimpleProxyResolverK a) =>-    a                                       -- _obj-    -> T.Text                               -- defaultProxy-    -> m ()                                 -- result-simpleProxyResolverSetDefaultProxy _obj defaultProxy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    defaultProxy' <- textToCString defaultProxy-    g_simple_proxy_resolver_set_default_proxy _obj' defaultProxy'-    touchManagedPtr _obj-    freeMem defaultProxy'-    return ()--data SimpleProxyResolverSetDefaultProxyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SimpleProxyResolverK a) => MethodInfo SimpleProxyResolverSetDefaultProxyMethodInfo a signature where-    overloadedMethod _ = simpleProxyResolverSetDefaultProxy---- method SimpleProxyResolver::set_ignore_hosts--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_hosts", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "SimpleProxyResolver"-    CString ->                              -- ignore_hosts : TBasicType TUTF8-    IO ()---simpleProxyResolverSetIgnoreHosts ::-    (MonadIO m, SimpleProxyResolverK a) =>-    a                                       -- _obj-    -> T.Text                               -- ignoreHosts-    -> m ()                                 -- result-simpleProxyResolverSetIgnoreHosts _obj ignoreHosts = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    ignoreHosts' <- textToCString ignoreHosts-    g_simple_proxy_resolver_set_ignore_hosts _obj' ignoreHosts'-    touchManagedPtr _obj-    freeMem ignoreHosts'-    return ()--data SimpleProxyResolverSetIgnoreHostsMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SimpleProxyResolverK a) => MethodInfo SimpleProxyResolverSetIgnoreHostsMethodInfo a signature where-    overloadedMethod _ = simpleProxyResolverSetIgnoreHosts---- method SimpleProxyResolver::set_uri_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->              -- _obj : TInterface "Gio" "SimpleProxyResolver"-    CString ->                              -- uri_scheme : TBasicType TUTF8-    CString ->                              -- proxy : TBasicType TUTF8-    IO ()---simpleProxyResolverSetUriProxy ::-    (MonadIO m, SimpleProxyResolverK a) =>-    a                                       -- _obj-    -> T.Text                               -- uriScheme-    -> T.Text                               -- proxy-    -> m ()                                 -- result-simpleProxyResolverSetUriProxy _obj uriScheme proxy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uriScheme' <- textToCString uriScheme-    proxy' <- textToCString proxy-    g_simple_proxy_resolver_set_uri_proxy _obj' uriScheme' proxy'-    touchManagedPtr _obj-    freeMem uriScheme'-    freeMem proxy'-    return ()--data SimpleProxyResolverSetUriProxyMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, SimpleProxyResolverK a) => MethodInfo SimpleProxyResolverSetUriProxyMethodInfo a signature where-    overloadedMethod _ = simpleProxyResolverSetUriProxy---- method SimpleProxyResolver::new--- method type : MemberFunction--- Args : [Arg {argCName = "default_proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_hosts", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ProxyResolver)---simpleProxyResolverNew ::-    (MonadIO m) =>-    Maybe (T.Text)                          -- defaultProxy-    -> Maybe (T.Text)                       -- ignoreHosts-    -> m ProxyResolver                      -- result-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 "g_simple_proxy_resolver_new" result-    result' <- (wrapObject ProxyResolver) result-    freeMem maybeDefaultProxy-    freeMem maybeIgnoreHosts-    return result'--
− GI/Gio/Objects/SimpleProxyResolver.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Objects.SimpleProxyResolver where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SimpleProxyResolver = SimpleProxyResolver (ForeignPtr SimpleProxyResolver)-instance GObject SimpleProxyResolver where-class GObject o => SimpleProxyResolverK o-instance (GObject o, IsDescendantOf SimpleProxyResolver o) => SimpleProxyResolverK o-data SimpleProxyResolverDefaultProxyPropertyInfo-data SimpleProxyResolverIgnoreHostsPropertyInfo-data SimpleProxyResolverSetDefaultProxyMethodInfo-data SimpleProxyResolverSetIgnoreHostsMethodInfo-data SimpleProxyResolverSetUriProxyMethodInfo
− GI/Gio/Objects/Socket.hs 
@@ -1,2812 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Socket-    ( ---- * Exported types-    Socket(..)                              ,-    SocketK                                 ,-    toSocket                                ,-    noSocket                                ,--- -- * Methods--- ** socketAccept-    SocketAcceptMethodInfo                  ,-    socketAccept                            ,----- ** socketBind-    SocketBindMethodInfo                    ,-    socketBind                              ,----- ** socketCheckConnectResult-    SocketCheckConnectResultMethodInfo      ,-    socketCheckConnectResult                ,----- ** socketClose-    SocketCloseMethodInfo                   ,-    socketClose                             ,----- ** socketConditionCheck-    SocketConditionCheckMethodInfo          ,-    socketConditionCheck                    ,----- ** socketConditionTimedWait-    SocketConditionTimedWaitMethodInfo      ,-    socketConditionTimedWait                ,----- ** socketConditionWait-    SocketConditionWaitMethodInfo           ,-    socketConditionWait                     ,----- ** socketConnect-    SocketConnectMethodInfo                 ,-    socketConnect                           ,----- ** socketConnectionFactoryCreateConnection-    SocketConnectionFactoryCreateConnectionMethodInfo,-    socketConnectionFactoryCreateConnection ,----- ** socketGetAvailableBytes-    SocketGetAvailableBytesMethodInfo       ,-    socketGetAvailableBytes                 ,----- ** socketGetBlocking-    SocketGetBlockingMethodInfo             ,-    socketGetBlocking                       ,----- ** socketGetBroadcast-    SocketGetBroadcastMethodInfo            ,-    socketGetBroadcast                      ,----- ** socketGetCredentials-    SocketGetCredentialsMethodInfo          ,-    socketGetCredentials                    ,----- ** socketGetFamily-    SocketGetFamilyMethodInfo               ,-    socketGetFamily                         ,----- ** socketGetFd-    SocketGetFdMethodInfo                   ,-    socketGetFd                             ,----- ** socketGetKeepalive-    SocketGetKeepaliveMethodInfo            ,-    socketGetKeepalive                      ,----- ** socketGetListenBacklog-    SocketGetListenBacklogMethodInfo        ,-    socketGetListenBacklog                  ,----- ** socketGetLocalAddress-    SocketGetLocalAddressMethodInfo         ,-    socketGetLocalAddress                   ,----- ** socketGetMulticastLoopback-    SocketGetMulticastLoopbackMethodInfo    ,-    socketGetMulticastLoopback              ,----- ** socketGetMulticastTtl-    SocketGetMulticastTtlMethodInfo         ,-    socketGetMulticastTtl                   ,----- ** socketGetOption-    SocketGetOptionMethodInfo               ,-    socketGetOption                         ,----- ** socketGetProtocol-    SocketGetProtocolMethodInfo             ,-    socketGetProtocol                       ,----- ** socketGetRemoteAddress-    SocketGetRemoteAddressMethodInfo        ,-    socketGetRemoteAddress                  ,----- ** socketGetSocketType-    SocketGetSocketTypeMethodInfo           ,-    socketGetSocketType                     ,----- ** socketGetTimeout-    SocketGetTimeoutMethodInfo              ,-    socketGetTimeout                        ,----- ** socketGetTtl-    SocketGetTtlMethodInfo                  ,-    socketGetTtl                            ,----- ** socketIsClosed-    SocketIsClosedMethodInfo                ,-    socketIsClosed                          ,----- ** socketIsConnected-    SocketIsConnectedMethodInfo             ,-    socketIsConnected                       ,----- ** socketJoinMulticastGroup-    SocketJoinMulticastGroupMethodInfo      ,-    socketJoinMulticastGroup                ,----- ** socketLeaveMulticastGroup-    SocketLeaveMulticastGroupMethodInfo     ,-    socketLeaveMulticastGroup               ,----- ** socketListen-    SocketListenMethodInfo                  ,-    socketListen                            ,----- ** socketNew-    socketNew                               ,----- ** socketNewFromFd-    socketNewFromFd                         ,----- ** socketReceive-    SocketReceiveMethodInfo                 ,-    socketReceive                           ,----- ** socketReceiveFrom-    SocketReceiveFromMethodInfo             ,-    socketReceiveFrom                       ,----- ** socketReceiveMessage-    SocketReceiveMessageMethodInfo          ,-    socketReceiveMessage                    ,----- ** socketReceiveWithBlocking-    SocketReceiveWithBlockingMethodInfo     ,-    socketReceiveWithBlocking               ,----- ** socketSend-    SocketSendMethodInfo                    ,-    socketSend                              ,----- ** socketSendMessage-    SocketSendMessageMethodInfo             ,-    socketSendMessage                       ,----- ** socketSendMessages-    SocketSendMessagesMethodInfo            ,-    socketSendMessages                      ,----- ** socketSendTo-    SocketSendToMethodInfo                  ,-    socketSendTo                            ,----- ** socketSendWithBlocking-    SocketSendWithBlockingMethodInfo        ,-    socketSendWithBlocking                  ,----- ** socketSetBlocking-    SocketSetBlockingMethodInfo             ,-    socketSetBlocking                       ,----- ** socketSetBroadcast-    SocketSetBroadcastMethodInfo            ,-    socketSetBroadcast                      ,----- ** socketSetKeepalive-    SocketSetKeepaliveMethodInfo            ,-    socketSetKeepalive                      ,----- ** socketSetListenBacklog-    SocketSetListenBacklogMethodInfo        ,-    socketSetListenBacklog                  ,----- ** socketSetMulticastLoopback-    SocketSetMulticastLoopbackMethodInfo    ,-    socketSetMulticastLoopback              ,----- ** socketSetMulticastTtl-    SocketSetMulticastTtlMethodInfo         ,-    socketSetMulticastTtl                   ,----- ** socketSetOption-    SocketSetOptionMethodInfo               ,-    socketSetOption                         ,----- ** socketSetTimeout-    SocketSetTimeoutMethodInfo              ,-    socketSetTimeout                        ,----- ** socketSetTtl-    SocketSetTtlMethodInfo                  ,-    socketSetTtl                            ,----- ** socketShutdown-    SocketShutdownMethodInfo                ,-    socketShutdown                          ,----- ** socketSpeaksIpv4-    SocketSpeaksIpv4MethodInfo              ,-    socketSpeaksIpv4                        ,----- -- * Properties--- ** Blocking-    SocketBlockingPropertyInfo              ,-    constructSocketBlocking                 ,-    getSocketBlocking                       ,-    setSocketBlocking                       ,-    socketBlocking                          ,----- ** Broadcast-    SocketBroadcastPropertyInfo             ,-    constructSocketBroadcast                ,-    getSocketBroadcast                      ,-    setSocketBroadcast                      ,-    socketBroadcast                         ,----- ** Family-    SocketFamilyPropertyInfo                ,-    constructSocketFamily                   ,-    getSocketFamily                         ,-    socketFamily                            ,----- ** Fd-    SocketFdPropertyInfo                    ,-    constructSocketFd                       ,-    getSocketFd                             ,-    socketFd                                ,----- ** Keepalive-    SocketKeepalivePropertyInfo             ,-    constructSocketKeepalive                ,-    getSocketKeepalive                      ,-    setSocketKeepalive                      ,-    socketKeepalive                         ,----- ** ListenBacklog-    SocketListenBacklogPropertyInfo         ,-    constructSocketListenBacklog            ,-    getSocketListenBacklog                  ,-    setSocketListenBacklog                  ,-    socketListenBacklog                     ,----- ** LocalAddress-    SocketLocalAddressPropertyInfo          ,-    getSocketLocalAddress                   ,-    socketLocalAddress                      ,----- ** MulticastLoopback-    SocketMulticastLoopbackPropertyInfo     ,-    constructSocketMulticastLoopback        ,-    getSocketMulticastLoopback              ,-    setSocketMulticastLoopback              ,-    socketMulticastLoopback                 ,----- ** MulticastTtl-    SocketMulticastTtlPropertyInfo          ,-    constructSocketMulticastTtl             ,-    getSocketMulticastTtl                   ,-    setSocketMulticastTtl                   ,-    socketMulticastTtl                      ,----- ** Protocol-    SocketProtocolPropertyInfo              ,-    constructSocketProtocol                 ,-    getSocketProtocol                       ,-    socketProtocol                          ,----- ** RemoteAddress-    SocketRemoteAddressPropertyInfo         ,-    getSocketRemoteAddress                  ,-    socketRemoteAddress                     ,----- ** Timeout-    SocketTimeoutPropertyInfo               ,-    constructSocketTimeout                  ,-    getSocketTimeout                        ,-    setSocketTimeout                        ,-    socketTimeout                           ,----- ** Ttl-    SocketTtlPropertyInfo                   ,-    constructSocketTtl                      ,-    getSocketTtl                            ,-    setSocketTtl                            ,-    socketTtl                               ,----- ** Type-    SocketTypePropertyInfo                  ,-    constructSocketType                     ,-    getSocketType                           ,-    socketType                              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype Socket = Socket (ForeignPtr Socket)-foreign import ccall "g_socket_get_type"-    c_g_socket_get_type :: IO GType--type instance ParentTypes Socket = SocketParentTypes-type SocketParentTypes = '[GObject.Object, Initable]--instance GObject Socket where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_socket_get_type-    --class GObject o => SocketK o-instance (GObject o, IsDescendantOf Socket o) => SocketK o--toSocket :: SocketK o => o -> IO Socket-toSocket = unsafeCastTo Socket--noSocket :: Maybe Socket-noSocket = Nothing--type family ResolveSocketMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketMethod "accept" o = SocketAcceptMethodInfo-    ResolveSocketMethod "bind" o = SocketBindMethodInfo-    ResolveSocketMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSocketMethod "bindPropertyFull" o = GObject.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 "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSocketMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSocketMethod "init" o = InitableInitMethodInfo-    ResolveSocketMethod "isClosed" o = SocketIsClosedMethodInfo-    ResolveSocketMethod "isConnected" o = SocketIsConnectedMethodInfo-    ResolveSocketMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSocketMethod "joinMulticastGroup" o = SocketJoinMulticastGroupMethodInfo-    ResolveSocketMethod "leaveMulticastGroup" o = SocketLeaveMulticastGroupMethodInfo-    ResolveSocketMethod "listen" o = SocketListenMethodInfo-    ResolveSocketMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSocketMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSocketMethod "receive" o = SocketReceiveMethodInfo-    ResolveSocketMethod "receiveFrom" o = SocketReceiveFromMethodInfo-    ResolveSocketMethod "receiveMessage" o = SocketReceiveMessageMethodInfo-    ResolveSocketMethod "receiveWithBlocking" o = SocketReceiveWithBlockingMethodInfo-    ResolveSocketMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSocketMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSocketMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSocketMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSocketMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSocketMethod "send" o = SocketSendMethodInfo-    ResolveSocketMethod "sendMessage" o = SocketSendMessageMethodInfo-    ResolveSocketMethod "sendMessages" o = SocketSendMessagesMethodInfo-    ResolveSocketMethod "sendTo" o = SocketSendToMethodInfo-    ResolveSocketMethod "sendWithBlocking" o = SocketSendWithBlockingMethodInfo-    ResolveSocketMethod "shutdown" o = SocketShutdownMethodInfo-    ResolveSocketMethod "speaksIpv4" o = SocketSpeaksIpv4MethodInfo-    ResolveSocketMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSocketMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSocketMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSocketMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSocketMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSocketMethod "getAvailableBytes" o = SocketGetAvailableBytesMethodInfo-    ResolveSocketMethod "getBlocking" o = SocketGetBlockingMethodInfo-    ResolveSocketMethod "getBroadcast" o = SocketGetBroadcastMethodInfo-    ResolveSocketMethod "getCredentials" o = SocketGetCredentialsMethodInfo-    ResolveSocketMethod "getData" o = GObject.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.ObjectGetPropertyMethodInfo-    ResolveSocketMethod "getProtocol" o = SocketGetProtocolMethodInfo-    ResolveSocketMethod "getQdata" o = GObject.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.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.ObjectSetPropertyMethodInfo-    ResolveSocketMethod "setTimeout" o = SocketSetTimeoutMethodInfo-    ResolveSocketMethod "setTtl" o = SocketSetTtlMethodInfo-    ResolveSocketMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabelProxy t (Socket -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabel t (Socket -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "blocking"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getSocketBlocking :: (MonadIO m, SocketK o) => o -> m Bool-getSocketBlocking obj = liftIO $ getObjectPropertyBool obj "blocking"--setSocketBlocking :: (MonadIO m, SocketK o) => o -> Bool -> m ()-setSocketBlocking obj val = liftIO $ setObjectPropertyBool obj "blocking" val--constructSocketBlocking :: Bool -> IO ([Char], GValue)-constructSocketBlocking val = constructObjectPropertyBool "blocking" val--data SocketBlockingPropertyInfo-instance AttrInfo SocketBlockingPropertyInfo where-    type AttrAllowedOps SocketBlockingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketBlockingPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketBlockingPropertyInfo = SocketK-    type AttrGetType SocketBlockingPropertyInfo = Bool-    type AttrLabel SocketBlockingPropertyInfo = "blocking"-    attrGet _ = getSocketBlocking-    attrSet _ = setSocketBlocking-    attrConstruct _ = constructSocketBlocking-    attrClear _ = undefined---- VVV Prop "broadcast"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getSocketBroadcast :: (MonadIO m, SocketK o) => o -> m Bool-getSocketBroadcast obj = liftIO $ getObjectPropertyBool obj "broadcast"--setSocketBroadcast :: (MonadIO m, SocketK o) => o -> Bool -> m ()-setSocketBroadcast obj val = liftIO $ setObjectPropertyBool obj "broadcast" val--constructSocketBroadcast :: Bool -> IO ([Char], GValue)-constructSocketBroadcast val = constructObjectPropertyBool "broadcast" val--data SocketBroadcastPropertyInfo-instance AttrInfo SocketBroadcastPropertyInfo where-    type AttrAllowedOps SocketBroadcastPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketBroadcastPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketBroadcastPropertyInfo = SocketK-    type AttrGetType SocketBroadcastPropertyInfo = Bool-    type AttrLabel SocketBroadcastPropertyInfo = "broadcast"-    attrGet _ = getSocketBroadcast-    attrSet _ = setSocketBroadcast-    attrConstruct _ = constructSocketBroadcast-    attrClear _ = undefined---- VVV Prop "family"-   -- Type: TInterface "Gio" "SocketFamily"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getSocketFamily :: (MonadIO m, SocketK o) => o -> m SocketFamily-getSocketFamily obj = liftIO $ getObjectPropertyEnum obj "family"--constructSocketFamily :: SocketFamily -> IO ([Char], GValue)-constructSocketFamily val = constructObjectPropertyEnum "family" val--data SocketFamilyPropertyInfo-instance AttrInfo SocketFamilyPropertyInfo where-    type AttrAllowedOps SocketFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketFamilyPropertyInfo = (~) SocketFamily-    type AttrBaseTypeConstraint SocketFamilyPropertyInfo = SocketK-    type AttrGetType SocketFamilyPropertyInfo = SocketFamily-    type AttrLabel SocketFamilyPropertyInfo = "family"-    attrGet _ = getSocketFamily-    attrSet _ = undefined-    attrConstruct _ = constructSocketFamily-    attrClear _ = undefined---- VVV Prop "fd"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getSocketFd :: (MonadIO m, SocketK o) => o -> m Int32-getSocketFd obj = liftIO $ getObjectPropertyInt32 obj "fd"--constructSocketFd :: Int32 -> IO ([Char], GValue)-constructSocketFd val = constructObjectPropertyInt32 "fd" val--data SocketFdPropertyInfo-instance AttrInfo SocketFdPropertyInfo where-    type AttrAllowedOps SocketFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketFdPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SocketFdPropertyInfo = SocketK-    type AttrGetType SocketFdPropertyInfo = Int32-    type AttrLabel SocketFdPropertyInfo = "fd"-    attrGet _ = getSocketFd-    attrSet _ = undefined-    attrConstruct _ = constructSocketFd-    attrClear _ = undefined---- VVV Prop "keepalive"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getSocketKeepalive :: (MonadIO m, SocketK o) => o -> m Bool-getSocketKeepalive obj = liftIO $ getObjectPropertyBool obj "keepalive"--setSocketKeepalive :: (MonadIO m, SocketK o) => o -> Bool -> m ()-setSocketKeepalive obj val = liftIO $ setObjectPropertyBool obj "keepalive" val--constructSocketKeepalive :: Bool -> IO ([Char], GValue)-constructSocketKeepalive val = constructObjectPropertyBool "keepalive" val--data SocketKeepalivePropertyInfo-instance AttrInfo SocketKeepalivePropertyInfo where-    type AttrAllowedOps SocketKeepalivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketKeepalivePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketKeepalivePropertyInfo = SocketK-    type AttrGetType SocketKeepalivePropertyInfo = Bool-    type AttrLabel SocketKeepalivePropertyInfo = "keepalive"-    attrGet _ = getSocketKeepalive-    attrSet _ = setSocketKeepalive-    attrConstruct _ = constructSocketKeepalive-    attrClear _ = undefined---- VVV Prop "listen-backlog"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getSocketListenBacklog :: (MonadIO m, SocketK o) => o -> m Int32-getSocketListenBacklog obj = liftIO $ getObjectPropertyInt32 obj "listen-backlog"--setSocketListenBacklog :: (MonadIO m, SocketK o) => o -> Int32 -> m ()-setSocketListenBacklog obj val = liftIO $ setObjectPropertyInt32 obj "listen-backlog" val--constructSocketListenBacklog :: Int32 -> IO ([Char], GValue)-constructSocketListenBacklog val = constructObjectPropertyInt32 "listen-backlog" val--data SocketListenBacklogPropertyInfo-instance AttrInfo SocketListenBacklogPropertyInfo where-    type AttrAllowedOps SocketListenBacklogPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketListenBacklogPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SocketListenBacklogPropertyInfo = SocketK-    type AttrGetType SocketListenBacklogPropertyInfo = Int32-    type AttrLabel SocketListenBacklogPropertyInfo = "listen-backlog"-    attrGet _ = getSocketListenBacklog-    attrSet _ = setSocketListenBacklog-    attrConstruct _ = constructSocketListenBacklog-    attrClear _ = undefined---- VVV Prop "local-address"-   -- Type: TInterface "Gio" "SocketAddress"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getSocketLocalAddress :: (MonadIO m, SocketK o) => o -> m (Maybe SocketAddress)-getSocketLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" SocketAddress--data SocketLocalAddressPropertyInfo-instance AttrInfo SocketLocalAddressPropertyInfo where-    type AttrAllowedOps SocketLocalAddressPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketLocalAddressPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketLocalAddressPropertyInfo = SocketK-    type AttrGetType SocketLocalAddressPropertyInfo = (Maybe SocketAddress)-    type AttrLabel SocketLocalAddressPropertyInfo = "local-address"-    attrGet _ = getSocketLocalAddress-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "multicast-loopback"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getSocketMulticastLoopback :: (MonadIO m, SocketK o) => o -> m Bool-getSocketMulticastLoopback obj = liftIO $ getObjectPropertyBool obj "multicast-loopback"--setSocketMulticastLoopback :: (MonadIO m, SocketK o) => o -> Bool -> m ()-setSocketMulticastLoopback obj val = liftIO $ setObjectPropertyBool obj "multicast-loopback" val--constructSocketMulticastLoopback :: Bool -> IO ([Char], GValue)-constructSocketMulticastLoopback val = constructObjectPropertyBool "multicast-loopback" val--data SocketMulticastLoopbackPropertyInfo-instance AttrInfo SocketMulticastLoopbackPropertyInfo where-    type AttrAllowedOps SocketMulticastLoopbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketMulticastLoopbackPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketMulticastLoopbackPropertyInfo = SocketK-    type AttrGetType SocketMulticastLoopbackPropertyInfo = Bool-    type AttrLabel SocketMulticastLoopbackPropertyInfo = "multicast-loopback"-    attrGet _ = getSocketMulticastLoopback-    attrSet _ = setSocketMulticastLoopback-    attrConstruct _ = constructSocketMulticastLoopback-    attrClear _ = undefined---- VVV Prop "multicast-ttl"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getSocketMulticastTtl :: (MonadIO m, SocketK o) => o -> m Word32-getSocketMulticastTtl obj = liftIO $ getObjectPropertyUInt32 obj "multicast-ttl"--setSocketMulticastTtl :: (MonadIO m, SocketK o) => o -> Word32 -> m ()-setSocketMulticastTtl obj val = liftIO $ setObjectPropertyUInt32 obj "multicast-ttl" val--constructSocketMulticastTtl :: Word32 -> IO ([Char], GValue)-constructSocketMulticastTtl val = constructObjectPropertyUInt32 "multicast-ttl" val--data SocketMulticastTtlPropertyInfo-instance AttrInfo SocketMulticastTtlPropertyInfo where-    type AttrAllowedOps SocketMulticastTtlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketMulticastTtlPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SocketMulticastTtlPropertyInfo = SocketK-    type AttrGetType SocketMulticastTtlPropertyInfo = Word32-    type AttrLabel SocketMulticastTtlPropertyInfo = "multicast-ttl"-    attrGet _ = getSocketMulticastTtl-    attrSet _ = setSocketMulticastTtl-    attrConstruct _ = constructSocketMulticastTtl-    attrClear _ = undefined---- VVV Prop "protocol"-   -- Type: TInterface "Gio" "SocketProtocol"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getSocketProtocol :: (MonadIO m, SocketK o) => o -> m SocketProtocol-getSocketProtocol obj = liftIO $ getObjectPropertyEnum obj "protocol"--constructSocketProtocol :: SocketProtocol -> IO ([Char], GValue)-constructSocketProtocol val = constructObjectPropertyEnum "protocol" val--data SocketProtocolPropertyInfo-instance AttrInfo SocketProtocolPropertyInfo where-    type AttrAllowedOps SocketProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketProtocolPropertyInfo = (~) SocketProtocol-    type AttrBaseTypeConstraint SocketProtocolPropertyInfo = SocketK-    type AttrGetType SocketProtocolPropertyInfo = SocketProtocol-    type AttrLabel SocketProtocolPropertyInfo = "protocol"-    attrGet _ = getSocketProtocol-    attrSet _ = undefined-    attrConstruct _ = constructSocketProtocol-    attrClear _ = undefined---- VVV Prop "remote-address"-   -- Type: TInterface "Gio" "SocketAddress"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getSocketRemoteAddress :: (MonadIO m, SocketK o) => o -> m (Maybe SocketAddress)-getSocketRemoteAddress obj = liftIO $ getObjectPropertyObject obj "remote-address" SocketAddress--data SocketRemoteAddressPropertyInfo-instance AttrInfo SocketRemoteAddressPropertyInfo where-    type AttrAllowedOps SocketRemoteAddressPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketRemoteAddressPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketRemoteAddressPropertyInfo = SocketK-    type AttrGetType SocketRemoteAddressPropertyInfo = (Maybe SocketAddress)-    type AttrLabel SocketRemoteAddressPropertyInfo = "remote-address"-    attrGet _ = getSocketRemoteAddress-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getSocketTimeout :: (MonadIO m, SocketK o) => o -> m Word32-getSocketTimeout obj = liftIO $ getObjectPropertyUInt32 obj "timeout"--setSocketTimeout :: (MonadIO m, SocketK o) => o -> Word32 -> m ()-setSocketTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "timeout" val--constructSocketTimeout :: Word32 -> IO ([Char], GValue)-constructSocketTimeout val = constructObjectPropertyUInt32 "timeout" val--data SocketTimeoutPropertyInfo-instance AttrInfo SocketTimeoutPropertyInfo where-    type AttrAllowedOps SocketTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SocketTimeoutPropertyInfo = SocketK-    type AttrGetType SocketTimeoutPropertyInfo = Word32-    type AttrLabel SocketTimeoutPropertyInfo = "timeout"-    attrGet _ = getSocketTimeout-    attrSet _ = setSocketTimeout-    attrConstruct _ = constructSocketTimeout-    attrClear _ = undefined---- VVV Prop "ttl"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getSocketTtl :: (MonadIO m, SocketK o) => o -> m Word32-getSocketTtl obj = liftIO $ getObjectPropertyUInt32 obj "ttl"--setSocketTtl :: (MonadIO m, SocketK o) => o -> Word32 -> m ()-setSocketTtl obj val = liftIO $ setObjectPropertyUInt32 obj "ttl" val--constructSocketTtl :: Word32 -> IO ([Char], GValue)-constructSocketTtl val = constructObjectPropertyUInt32 "ttl" val--data SocketTtlPropertyInfo-instance AttrInfo SocketTtlPropertyInfo where-    type AttrAllowedOps SocketTtlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketTtlPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SocketTtlPropertyInfo = SocketK-    type AttrGetType SocketTtlPropertyInfo = Word32-    type AttrLabel SocketTtlPropertyInfo = "ttl"-    attrGet _ = getSocketTtl-    attrSet _ = setSocketTtl-    attrConstruct _ = constructSocketTtl-    attrClear _ = undefined---- VVV Prop "type"-   -- Type: TInterface "Gio" "SocketType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSocketType :: (MonadIO m, SocketK o) => o -> m SocketType-getSocketType obj = liftIO $ getObjectPropertyEnum obj "type"--constructSocketType :: SocketType -> IO ([Char], GValue)-constructSocketType val = constructObjectPropertyEnum "type" val--data SocketTypePropertyInfo-instance AttrInfo SocketTypePropertyInfo where-    type AttrAllowedOps SocketTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketTypePropertyInfo = (~) SocketType-    type AttrBaseTypeConstraint SocketTypePropertyInfo = SocketK-    type AttrGetType SocketTypePropertyInfo = SocketType-    type AttrLabel SocketTypePropertyInfo = "type"-    attrGet _ = getSocketType-    attrSet _ = undefined-    attrConstruct _ = constructSocketType-    attrClear _ = undefined--type instance 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, *)])--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--type instance SignalList Socket = SocketSignalList-type SocketSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Socket::new--- method type : Constructor--- Args : [Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Socket")--- throws : True--- Skip return : False--foreign import ccall "g_socket_new" g_socket_new :: -    CUInt ->                                -- family : TInterface "Gio" "SocketFamily"-    CUInt ->                                -- type : TInterface "Gio" "SocketType"-    CUInt ->                                -- protocol : TInterface "Gio" "SocketProtocol"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Socket)---socketNew ::-    (MonadIO m) =>-    SocketFamily                            -- family-    -> SocketType                           -- type_-    -> SocketProtocol                       -- protocol-    -> m Socket                             -- result-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 "g_socket_new" result-        result' <- (wrapObject Socket) result-        return result'-     ) (do-        return ()-     )---- method Socket::new_from_fd--- method type : Constructor--- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---socketNewFromFd ::-    (MonadIO m) =>-    Int32                                   -- fd-    -> m Socket                             -- result-socketNewFromFd fd = liftIO $ do-    onException (do-        result <- propagateGError $ g_socket_new_from_fd fd-        checkUnexpectedReturnNULL "g_socket_new_from_fd" result-        result' <- (wrapObject Socket) result-        return result'-     ) (do-        return ()-     )---- method Socket::accept--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Socket")--- throws : True--- Skip return : False--foreign import ccall "g_socket_accept" g_socket_accept :: -    Ptr Socket ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Socket)---socketAccept ::-    (MonadIO m, SocketK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Socket                             -- result-socketAccept _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_accept _obj' maybeCancellable-        checkUnexpectedReturnNULL "g_socket_accept" result-        result' <- (wrapObject Socket) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data SocketAcceptMethodInfo-instance (signature ~ (Maybe (b) -> m Socket), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketAcceptMethodInfo a signature where-    overloadedMethod _ = socketAccept---- method Socket::bind--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allow_reuse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr SocketAddress ->                    -- address : TInterface "Gio" "SocketAddress"-    CInt ->                                 -- allow_reuse : TBasicType TBoolean-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketBind ::-    (MonadIO m, SocketK a, SocketAddressK b) =>-    a                                       -- _obj-    -> b                                    -- address-    -> Bool                                 -- allowReuse-    -> m ()                                 -- result-socketBind _obj address allowReuse = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let address' = unsafeManagedPtrCastPtr address-    let allowReuse' = (fromIntegral . fromEnum) allowReuse-    onException (do-        _ <- propagateGError $ g_socket_bind _obj' address' allowReuse'-        touchManagedPtr _obj-        touchManagedPtr address-        return ()-     ) (do-        return ()-     )--data SocketBindMethodInfo-instance (signature ~ (b -> Bool -> m ()), MonadIO m, SocketK a, SocketAddressK b) => MethodInfo SocketBindMethodInfo a signature where-    overloadedMethod _ = socketBind---- method Socket::check_connect_result--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketCheckConnectResult ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-socketCheckConnectResult _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_socket_check_connect_result _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data SocketCheckConnectResultMethodInfo-instance (signature ~ (m ()), MonadIO m, SocketK a) => MethodInfo SocketCheckConnectResultMethodInfo a signature where-    overloadedMethod _ = socketCheckConnectResult---- method Socket::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketClose ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-socketClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_socket_close _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data SocketCloseMethodInfo-instance (signature ~ (m ()), MonadIO m, SocketK a) => MethodInfo SocketCloseMethodInfo a signature where-    overloadedMethod _ = socketClose---- method Socket::condition_check--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "IOCondition")--- throws : False--- Skip return : False--foreign import ccall "g_socket_condition_check" g_socket_condition_check :: -    Ptr Socket ->                           -- _obj : TInterface "Gio" "Socket"-    CUInt ->                                -- condition : TInterface "GLib" "IOCondition"-    IO CUInt---socketConditionCheck ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> [GLib.IOCondition]                   -- condition-    -> m [GLib.IOCondition]                 -- result-socketConditionCheck _obj condition = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let condition' = gflagsToWord condition-    result <- g_socket_condition_check _obj' condition'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data SocketConditionCheckMethodInfo-instance (signature ~ ([GLib.IOCondition] -> m [GLib.IOCondition]), MonadIO m, SocketK a) => MethodInfo SocketConditionCheckMethodInfo a signature where-    overloadedMethod _ = socketConditionCheck---- method Socket::condition_timed_wait--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    CUInt ->                                -- condition : TInterface "GLib" "IOCondition"-    Int64 ->                                -- timeout : TBasicType TInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketConditionTimedWait ::-    (MonadIO m, SocketK a, CancellableK b) =>-    a                                       -- _obj-    -> [GLib.IOCondition]                   -- condition-    -> Int64                                -- timeout-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-socketConditionTimedWait _obj condition timeout cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let condition' = gflagsToWord condition-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_socket_condition_timed_wait _obj' condition' timeout maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data SocketConditionTimedWaitMethodInfo-instance (signature ~ ([GLib.IOCondition] -> Int64 -> Maybe (b) -> m ()), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketConditionTimedWaitMethodInfo a signature where-    overloadedMethod _ = socketConditionTimedWait---- method Socket::condition_wait--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    CUInt ->                                -- condition : TInterface "GLib" "IOCondition"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketConditionWait ::-    (MonadIO m, SocketK a, CancellableK b) =>-    a                                       -- _obj-    -> [GLib.IOCondition]                   -- condition-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-socketConditionWait _obj condition cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let condition' = gflagsToWord condition-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_socket_condition_wait _obj' condition' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data SocketConditionWaitMethodInfo-instance (signature ~ ([GLib.IOCondition] -> Maybe (b) -> m ()), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketConditionWaitMethodInfo a signature where-    overloadedMethod _ = socketConditionWait---- method Socket::connect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr SocketAddress ->                    -- address : TInterface "Gio" "SocketAddress"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketConnect ::-    (MonadIO m, SocketK a, SocketAddressK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- address-    -> Maybe (c)                            -- cancellable-    -> m ()                                 -- result-socketConnect _obj address cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let address' = unsafeManagedPtrCastPtr address-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_socket_connect _obj' address' maybeCancellable-        touchManagedPtr _obj-        touchManagedPtr address-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data SocketConnectMethodInfo-instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, SocketK a, SocketAddressK b, CancellableK c) => MethodInfo SocketConnectMethodInfo a signature where-    overloadedMethod _ = socketConnect---- method Socket::connection_factory_create_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketConnection")--- throws : False--- Skip return : False--foreign import ccall "g_socket_connection_factory_create_connection" g_socket_connection_factory_create_connection :: -    Ptr Socket ->                           -- _obj : TInterface "Gio" "Socket"-    IO (Ptr SocketConnection)---socketConnectionFactoryCreateConnection ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m SocketConnection                   -- result-socketConnectionFactoryCreateConnection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_connection_factory_create_connection _obj'-    checkUnexpectedReturnNULL "g_socket_connection_factory_create_connection" result-    result' <- (wrapObject SocketConnection) result-    touchManagedPtr _obj-    return result'--data SocketConnectionFactoryCreateConnectionMethodInfo-instance (signature ~ (m SocketConnection), MonadIO m, SocketK a) => MethodInfo SocketConnectionFactoryCreateConnectionMethodInfo a signature where-    overloadedMethod _ = socketConnectionFactoryCreateConnection---- method Socket::get_available_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO Int64---socketGetAvailableBytes ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Int64                              -- result-socketGetAvailableBytes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_available_bytes _obj'-    touchManagedPtr _obj-    return result--data SocketGetAvailableBytesMethodInfo-instance (signature ~ (m Int64), MonadIO m, SocketK a) => MethodInfo SocketGetAvailableBytesMethodInfo a signature where-    overloadedMethod _ = socketGetAvailableBytes---- method Socket::get_blocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO CInt---socketGetBlocking ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketGetBlocking _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_blocking _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketGetBlockingMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketGetBlockingMethodInfo a signature where-    overloadedMethod _ = socketGetBlocking---- method Socket::get_broadcast--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO CInt---socketGetBroadcast ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketGetBroadcast _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_broadcast _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketGetBroadcastMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketGetBroadcastMethodInfo a signature where-    overloadedMethod _ = socketGetBroadcast---- method Socket::get_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Credentials")--- throws : True--- Skip return : False--foreign import ccall "g_socket_get_credentials" g_socket_get_credentials :: -    Ptr Socket ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Credentials)---socketGetCredentials ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Credentials                        -- result-socketGetCredentials _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_socket_get_credentials _obj'-        checkUnexpectedReturnNULL "g_socket_get_credentials" result-        result' <- (wrapObject Credentials) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )--data SocketGetCredentialsMethodInfo-instance (signature ~ (m Credentials), MonadIO m, SocketK a) => MethodInfo SocketGetCredentialsMethodInfo a signature where-    overloadedMethod _ = socketGetCredentials---- method Socket::get_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketFamily")--- throws : False--- Skip return : False--foreign import ccall "g_socket_get_family" g_socket_get_family :: -    Ptr Socket ->                           -- _obj : TInterface "Gio" "Socket"-    IO CUInt---socketGetFamily ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m SocketFamily                       -- result-socketGetFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_family _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data SocketGetFamilyMethodInfo-instance (signature ~ (m SocketFamily), MonadIO m, SocketK a) => MethodInfo SocketGetFamilyMethodInfo a signature where-    overloadedMethod _ = socketGetFamily---- method Socket::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO Int32---socketGetFd ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-socketGetFd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_fd _obj'-    touchManagedPtr _obj-    return result--data SocketGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, SocketK a) => MethodInfo SocketGetFdMethodInfo a signature where-    overloadedMethod _ = socketGetFd---- method Socket::get_keepalive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO CInt---socketGetKeepalive ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketGetKeepalive _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_keepalive _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketGetKeepaliveMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketGetKeepaliveMethodInfo a signature where-    overloadedMethod _ = socketGetKeepalive---- method Socket::get_listen_backlog--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO Int32---socketGetListenBacklog ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-socketGetListenBacklog _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_listen_backlog _obj'-    touchManagedPtr _obj-    return result--data SocketGetListenBacklogMethodInfo-instance (signature ~ (m Int32), MonadIO m, SocketK a) => MethodInfo SocketGetListenBacklogMethodInfo a signature where-    overloadedMethod _ = socketGetListenBacklog---- method Socket::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddress")--- throws : True--- Skip return : False--foreign import ccall "g_socket_get_local_address" g_socket_get_local_address :: -    Ptr Socket ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketAddress)---socketGetLocalAddress ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m SocketAddress                      -- result-socketGetLocalAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_socket_get_local_address _obj'-        checkUnexpectedReturnNULL "g_socket_get_local_address" result-        result' <- (wrapObject SocketAddress) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )--data SocketGetLocalAddressMethodInfo-instance (signature ~ (m SocketAddress), MonadIO m, SocketK a) => MethodInfo SocketGetLocalAddressMethodInfo a signature where-    overloadedMethod _ = socketGetLocalAddress---- method Socket::get_multicast_loopback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO CInt---socketGetMulticastLoopback ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketGetMulticastLoopback _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_multicast_loopback _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketGetMulticastLoopbackMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketGetMulticastLoopbackMethodInfo a signature where-    overloadedMethod _ = socketGetMulticastLoopback---- method Socket::get_multicast_ttl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO Word32---socketGetMulticastTtl ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-socketGetMulticastTtl _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_multicast_ttl _obj'-    touchManagedPtr _obj-    return result--data SocketGetMulticastTtlMethodInfo-instance (signature ~ (m Word32), MonadIO m, SocketK a) => MethodInfo SocketGetMulticastTtlMethodInfo a signature where-    overloadedMethod _ = socketGetMulticastTtl---- method Socket::get_option--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "optname", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Int32 ->                                -- level : TBasicType TInt-    Int32 ->                                -- optname : TBasicType TInt-    Ptr Int32 ->                            -- value : TBasicType TInt-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketGetOption ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> Int32                                -- level-    -> Int32                                -- optname-    -> m (Int32)                            -- result-socketGetOption _obj level optname = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    value <- allocMem :: IO (Ptr Int32)-    onException (do-        _ <- propagateGError $ g_socket_get_option _obj' level optname value-        value' <- peek value-        touchManagedPtr _obj-        freeMem value-        return value'-     ) (do-        freeMem value-     )--data SocketGetOptionMethodInfo-instance (signature ~ (Int32 -> Int32 -> m (Int32)), MonadIO m, SocketK a) => MethodInfo SocketGetOptionMethodInfo a signature where-    overloadedMethod _ = socketGetOption---- method Socket::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketProtocol")--- throws : False--- Skip return : False--foreign import ccall "g_socket_get_protocol" g_socket_get_protocol :: -    Ptr Socket ->                           -- _obj : TInterface "Gio" "Socket"-    IO CUInt---socketGetProtocol ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m SocketProtocol                     -- result-socketGetProtocol _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_protocol _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data SocketGetProtocolMethodInfo-instance (signature ~ (m SocketProtocol), MonadIO m, SocketK a) => MethodInfo SocketGetProtocolMethodInfo a signature where-    overloadedMethod _ = socketGetProtocol---- method Socket::get_remote_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddress")--- throws : True--- Skip return : False--foreign import ccall "g_socket_get_remote_address" g_socket_get_remote_address :: -    Ptr Socket ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketAddress)---socketGetRemoteAddress ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m SocketAddress                      -- result-socketGetRemoteAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_socket_get_remote_address _obj'-        checkUnexpectedReturnNULL "g_socket_get_remote_address" result-        result' <- (wrapObject SocketAddress) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )--data SocketGetRemoteAddressMethodInfo-instance (signature ~ (m SocketAddress), MonadIO m, SocketK a) => MethodInfo SocketGetRemoteAddressMethodInfo a signature where-    overloadedMethod _ = socketGetRemoteAddress---- method Socket::get_socket_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketType")--- throws : False--- Skip return : False--foreign import ccall "g_socket_get_socket_type" g_socket_get_socket_type :: -    Ptr Socket ->                           -- _obj : TInterface "Gio" "Socket"-    IO CUInt---socketGetSocketType ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m SocketType                         -- result-socketGetSocketType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_socket_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data SocketGetSocketTypeMethodInfo-instance (signature ~ (m SocketType), MonadIO m, SocketK a) => MethodInfo SocketGetSocketTypeMethodInfo a signature where-    overloadedMethod _ = socketGetSocketType---- method Socket::get_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO Word32---socketGetTimeout ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-socketGetTimeout _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_timeout _obj'-    touchManagedPtr _obj-    return result--data SocketGetTimeoutMethodInfo-instance (signature ~ (m Word32), MonadIO m, SocketK a) => MethodInfo SocketGetTimeoutMethodInfo a signature where-    overloadedMethod _ = socketGetTimeout---- method Socket::get_ttl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO Word32---socketGetTtl ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-socketGetTtl _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_get_ttl _obj'-    touchManagedPtr _obj-    return result--data SocketGetTtlMethodInfo-instance (signature ~ (m Word32), MonadIO m, SocketK a) => MethodInfo SocketGetTtlMethodInfo a signature where-    overloadedMethod _ = socketGetTtl---- method Socket::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO CInt---socketIsClosed ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketIsClosed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_is_closed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketIsClosedMethodInfo a signature where-    overloadedMethod _ = socketIsClosed---- method Socket::is_connected--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO CInt---socketIsConnected ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketIsConnected _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_is_connected _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketIsConnectedMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketIsConnectedMethodInfo a signature where-    overloadedMethod _ = socketIsConnected---- method Socket::join_multicast_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_specific", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr InetAddress ->                      -- group : TInterface "Gio" "InetAddress"-    CInt ->                                 -- source_specific : TBasicType TBoolean-    CString ->                              -- iface : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketJoinMulticastGroup ::-    (MonadIO m, SocketK a, InetAddressK b) =>-    a                                       -- _obj-    -> b                                    -- group-    -> Bool                                 -- sourceSpecific-    -> Maybe (T.Text)                       -- iface-    -> m ()                                 -- result-socketJoinMulticastGroup _obj group sourceSpecific iface = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let 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 _obj' group' sourceSpecific' maybeIface-        touchManagedPtr _obj-        touchManagedPtr group-        freeMem maybeIface-        return ()-     ) (do-        freeMem maybeIface-     )--data SocketJoinMulticastGroupMethodInfo-instance (signature ~ (b -> Bool -> Maybe (T.Text) -> m ()), MonadIO m, SocketK a, InetAddressK b) => MethodInfo SocketJoinMulticastGroupMethodInfo a signature where-    overloadedMethod _ = socketJoinMulticastGroup---- method Socket::leave_multicast_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_specific", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr InetAddress ->                      -- group : TInterface "Gio" "InetAddress"-    CInt ->                                 -- source_specific : TBasicType TBoolean-    CString ->                              -- iface : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketLeaveMulticastGroup ::-    (MonadIO m, SocketK a, InetAddressK b) =>-    a                                       -- _obj-    -> b                                    -- group-    -> Bool                                 -- sourceSpecific-    -> Maybe (T.Text)                       -- iface-    -> m ()                                 -- result-socketLeaveMulticastGroup _obj group sourceSpecific iface = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let 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 _obj' group' sourceSpecific' maybeIface-        touchManagedPtr _obj-        touchManagedPtr group-        freeMem maybeIface-        return ()-     ) (do-        freeMem maybeIface-     )--data SocketLeaveMulticastGroupMethodInfo-instance (signature ~ (b -> Bool -> Maybe (T.Text) -> m ()), MonadIO m, SocketK a, InetAddressK b) => MethodInfo SocketLeaveMulticastGroupMethodInfo a signature where-    overloadedMethod _ = socketLeaveMulticastGroup---- method Socket::listen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketListen ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-socketListen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_socket_listen _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data SocketListenMethodInfo-instance (signature ~ (m ()), MonadIO m, SocketK a) => MethodInfo SocketListenMethodInfo a signature where-    overloadedMethod _ = socketListen---- method Socket::receive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---socketReceive ::-    (MonadIO m, SocketK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-socketReceive _obj buffer cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_receive _obj' buffer' size maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--data SocketReceiveMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketReceiveMethodInfo a signature where-    overloadedMethod _ = socketReceive---- method Socket::receive_from--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr (Ptr SocketAddress) ->              -- address : TInterface "Gio" "SocketAddress"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 3 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---socketReceiveFrom ::-    (MonadIO m, SocketK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Maybe (b)                            -- cancellable-    -> m (Int64,SocketAddress)              -- result-socketReceiveFrom _obj buffer cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    address <- allocMem :: IO (Ptr (Ptr SocketAddress))-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_receive_from _obj' address buffer' size maybeCancellable-        address' <- peek address-        address'' <- (wrapObject SocketAddress) address'-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem address-        freeMem buffer'-        return (result, address'')-     ) (do-        freeMem address-        freeMem buffer'-     )--data SocketReceiveFromMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m (Int64,SocketAddress)), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketReceiveFromMethodInfo a signature where-    overloadedMethod _ = socketReceiveFrom---- method Socket::receive_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "vectors", argType = TCArray False (-1) 3 (TInterface "Gio" "InputVector"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr (Ptr SocketAddress) ->              -- address : TInterface "Gio" "SocketAddress"-    Ptr InputVector ->                      -- vectors : TCArray False (-1) 3 (TInterface "Gio" "InputVector")-    Int32 ->                                -- num_vectors : TBasicType TInt-    Ptr (Ptr SocketControlMessage) ->       -- messages : TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage")-    Int32 ->                                -- num_messages : TBasicType TInt-    Int32 ->                                -- flags : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---socketReceiveMessage ::-    (MonadIO m, SocketK a, CancellableK b) =>-    a                                       -- _obj-    -> [InputVector]                        -- vectors-    -> Maybe ([SocketControlMessage])       -- messages-    -> Int32                                -- flags-    -> Maybe (b)                            -- cancellable-    -> m (Int64,SocketAddress)              -- result-socketReceiveMessage _obj vectors messages flags cancellable = liftIO $ do-    let numMessages = case messages of-            Nothing -> 0-            Just jMessages -> fromIntegral $ length jMessages-    let numVectors = fromIntegral $ length vectors-    let _obj' = unsafeManagedPtrCastPtr _obj-    address <- allocMem :: IO (Ptr (Ptr SocketAddress))-    let vectors' = map unsafeManagedPtrGetPtr vectors-    vectors'' <- packBlockArray 16 vectors'-    maybeMessages <- case messages of-        Nothing -> return nullPtr-        Just jMessages -> do-            let jMessages' = map unsafeManagedPtrCastPtr jMessages-            jMessages'' <- packPtrArray jMessages'-            return jMessages''-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_receive_message _obj' address vectors'' numVectors maybeMessages numMessages flags maybeCancellable-        address' <- peek address-        address'' <- (wrapObject SocketAddress) address'-        touchManagedPtr _obj-        mapM_ touchManagedPtr vectors-        whenJust messages (mapM_ touchManagedPtr)-        whenJust cancellable touchManagedPtr-        freeMem address-        freeMem vectors''-        freeMem maybeMessages-        return (result, address'')-     ) (do-        freeMem address-        freeMem vectors''-        freeMem maybeMessages-     )--data SocketReceiveMessageMethodInfo-instance (signature ~ ([InputVector] -> Maybe ([SocketControlMessage]) -> Int32 -> Maybe (b) -> m (Int64,SocketAddress)), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketReceiveMessageMethodInfo a signature where-    overloadedMethod _ = socketReceiveMessage---- method Socket::receive_with_blocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    CInt ->                                 -- blocking : TBasicType TBoolean-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---socketReceiveWithBlocking ::-    (MonadIO m, SocketK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Bool                                 -- blocking-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-socketReceiveWithBlocking _obj buffer blocking cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    let blocking' = (fromIntegral . fromEnum) blocking-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_receive_with_blocking _obj' buffer' size blocking' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--data SocketReceiveWithBlockingMethodInfo-instance (signature ~ (ByteString -> Bool -> Maybe (b) -> m Int64), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketReceiveWithBlockingMethodInfo a signature where-    overloadedMethod _ = socketReceiveWithBlocking---- method Socket::send--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---socketSend ::-    (MonadIO m, SocketK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-socketSend _obj buffer cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_send _obj' buffer' size maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--data SocketSendMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketSendMethodInfo a signature where-    overloadedMethod _ = socketSend---- method Socket::send_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vectors", argType = TCArray False (-1) 3 (TInterface "Gio" "OutputVector"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr SocketAddress ->                    -- address : TInterface "Gio" "SocketAddress"-    Ptr OutputVector ->                     -- vectors : TCArray False (-1) 3 (TInterface "Gio" "OutputVector")-    Int32 ->                                -- num_vectors : TBasicType TInt-    Ptr (Ptr SocketControlMessage) ->       -- messages : TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage")-    Int32 ->                                -- num_messages : TBasicType TInt-    Int32 ->                                -- flags : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---socketSendMessage ::-    (MonadIO m, SocketK a, SocketAddressK b, CancellableK c) =>-    a                                       -- _obj-    -> Maybe (b)                            -- address-    -> [OutputVector]                       -- vectors-    -> Maybe ([SocketControlMessage])       -- messages-    -> Int32                                -- flags-    -> Maybe (c)                            -- cancellable-    -> m Int64                              -- result-socketSendMessage _obj address vectors messages flags cancellable = liftIO $ do-    let numMessages = case messages of-            Nothing -> 0-            Just jMessages -> fromIntegral $ length jMessages-    let numVectors = fromIntegral $ length vectors-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeAddress <- case address of-        Nothing -> return nullPtr-        Just jAddress -> do-            let jAddress' = unsafeManagedPtrCastPtr jAddress-            return jAddress'-    let vectors' = map unsafeManagedPtrGetPtr vectors-    vectors'' <- packBlockArray 16 vectors'-    maybeMessages <- case messages of-        Nothing -> return nullPtr-        Just jMessages -> do-            let jMessages' = map unsafeManagedPtrCastPtr jMessages-            jMessages'' <- packPtrArray jMessages'-            return jMessages''-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_send_message _obj' maybeAddress vectors'' numVectors maybeMessages numMessages flags maybeCancellable-        touchManagedPtr _obj-        whenJust address touchManagedPtr-        mapM_ touchManagedPtr vectors-        whenJust messages (mapM_ touchManagedPtr)-        whenJust cancellable touchManagedPtr-        freeMem vectors''-        freeMem maybeMessages-        return result-     ) (do-        freeMem vectors''-        freeMem maybeMessages-     )--data SocketSendMessageMethodInfo-instance (signature ~ (Maybe (b) -> [OutputVector] -> Maybe ([SocketControlMessage]) -> Int32 -> Maybe (c) -> m Int64), MonadIO m, SocketK a, SocketAddressK b, CancellableK c) => MethodInfo SocketSendMessageMethodInfo a signature where-    overloadedMethod _ = socketSendMessage---- method Socket::send_messages--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 2 (TInterface "Gio" "OutputMessage"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr OutputMessage ->                    -- messages : TCArray False (-1) 2 (TInterface "Gio" "OutputMessage")-    Word32 ->                               -- num_messages : TBasicType TUInt-    Int32 ->                                -- flags : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int32---socketSendMessages ::-    (MonadIO m, SocketK a, CancellableK b) =>-    a                                       -- _obj-    -> [OutputMessage]                      -- messages-    -> Int32                                -- flags-    -> Maybe (b)                            -- cancellable-    -> m Int32                              -- result-socketSendMessages _obj messages flags cancellable = liftIO $ do-    let numMessages = fromIntegral $ length messages-    let _obj' = unsafeManagedPtrCastPtr _obj-    let messages' = map unsafeManagedPtrGetPtr messages-    messages'' <- packBlockArray 40 messages'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_send_messages _obj' messages'' numMessages flags maybeCancellable-        touchManagedPtr _obj-        mapM_ touchManagedPtr messages-        whenJust cancellable touchManagedPtr-        freeMem messages''-        return result-     ) (do-        freeMem messages''-     )--data SocketSendMessagesMethodInfo-instance (signature ~ ([OutputMessage] -> Int32 -> Maybe (b) -> m Int32), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketSendMessagesMethodInfo a signature where-    overloadedMethod _ = socketSendMessages---- method Socket::send_to--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr SocketAddress ->                    -- address : TInterface "Gio" "SocketAddress"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 3 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---socketSendTo ::-    (MonadIO m, SocketK a, SocketAddressK b, CancellableK c) =>-    a                                       -- _obj-    -> Maybe (b)                            -- address-    -> ByteString                           -- buffer-    -> Maybe (c)                            -- cancellable-    -> m Int64                              -- result-socketSendTo _obj address buffer cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeAddress <- case address of-        Nothing -> return nullPtr-        Just jAddress -> do-            let jAddress' = unsafeManagedPtrCastPtr jAddress-            return jAddress'-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_send_to _obj' maybeAddress buffer' size maybeCancellable-        touchManagedPtr _obj-        whenJust address touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--data SocketSendToMethodInfo-instance (signature ~ (Maybe (b) -> ByteString -> Maybe (c) -> m Int64), MonadIO m, SocketK a, SocketAddressK b, CancellableK c) => MethodInfo SocketSendToMethodInfo a signature where-    overloadedMethod _ = socketSendTo---- method Socket::send_with_blocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    CInt ->                                 -- blocking : TBasicType TBoolean-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---socketSendWithBlocking ::-    (MonadIO m, SocketK a, CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Bool                                 -- blocking-    -> Maybe (b)                            -- cancellable-    -> m Int64                              -- result-socketSendWithBlocking _obj buffer blocking cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    let blocking' = (fromIntegral . fromEnum) blocking-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_send_with_blocking _obj' buffer' size blocking' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--data SocketSendWithBlockingMethodInfo-instance (signature ~ (ByteString -> Bool -> Maybe (b) -> m Int64), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketSendWithBlockingMethodInfo a signature where-    overloadedMethod _ = socketSendWithBlocking---- method Socket::set_blocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    CInt ->                                 -- blocking : TBasicType TBoolean-    IO ()---socketSetBlocking ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> Bool                                 -- blocking-    -> m ()                                 -- result-socketSetBlocking _obj blocking = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let blocking' = (fromIntegral . fromEnum) blocking-    g_socket_set_blocking _obj' blocking'-    touchManagedPtr _obj-    return ()--data SocketSetBlockingMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetBlockingMethodInfo a signature where-    overloadedMethod _ = socketSetBlocking---- method Socket::set_broadcast--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "broadcast", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    CInt ->                                 -- broadcast : TBasicType TBoolean-    IO ()---socketSetBroadcast ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> Bool                                 -- broadcast-    -> m ()                                 -- result-socketSetBroadcast _obj broadcast = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let broadcast' = (fromIntegral . fromEnum) broadcast-    g_socket_set_broadcast _obj' broadcast'-    touchManagedPtr _obj-    return ()--data SocketSetBroadcastMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetBroadcastMethodInfo a signature where-    overloadedMethod _ = socketSetBroadcast---- method Socket::set_keepalive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keepalive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    CInt ->                                 -- keepalive : TBasicType TBoolean-    IO ()---socketSetKeepalive ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> Bool                                 -- keepalive-    -> m ()                                 -- result-socketSetKeepalive _obj keepalive = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let keepalive' = (fromIntegral . fromEnum) keepalive-    g_socket_set_keepalive _obj' keepalive'-    touchManagedPtr _obj-    return ()--data SocketSetKeepaliveMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetKeepaliveMethodInfo a signature where-    overloadedMethod _ = socketSetKeepalive---- method Socket::set_listen_backlog--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backlog", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Int32 ->                                -- backlog : TBasicType TInt-    IO ()---socketSetListenBacklog ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> Int32                                -- backlog-    -> m ()                                 -- result-socketSetListenBacklog _obj backlog = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_socket_set_listen_backlog _obj' backlog-    touchManagedPtr _obj-    return ()--data SocketSetListenBacklogMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetListenBacklogMethodInfo a signature where-    overloadedMethod _ = socketSetListenBacklog---- method Socket::set_multicast_loopback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "loopback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    CInt ->                                 -- loopback : TBasicType TBoolean-    IO ()---socketSetMulticastLoopback ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> Bool                                 -- loopback-    -> m ()                                 -- result-socketSetMulticastLoopback _obj loopback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let loopback' = (fromIntegral . fromEnum) loopback-    g_socket_set_multicast_loopback _obj' loopback'-    touchManagedPtr _obj-    return ()--data SocketSetMulticastLoopbackMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetMulticastLoopbackMethodInfo a signature where-    overloadedMethod _ = socketSetMulticastLoopback---- method Socket::set_multicast_ttl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ttl", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Word32 ->                               -- ttl : TBasicType TUInt-    IO ()---socketSetMulticastTtl ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> Word32                               -- ttl-    -> m ()                                 -- result-socketSetMulticastTtl _obj ttl = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_socket_set_multicast_ttl _obj' ttl-    touchManagedPtr _obj-    return ()--data SocketSetMulticastTtlMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetMulticastTtlMethodInfo a signature where-    overloadedMethod _ = socketSetMulticastTtl---- method Socket::set_option--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "optname", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Int32 ->                                -- level : TBasicType TInt-    Int32 ->                                -- optname : TBasicType TInt-    Int32 ->                                -- value : TBasicType TInt-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketSetOption ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> Int32                                -- level-    -> Int32                                -- optname-    -> Int32                                -- value-    -> m ()                                 -- result-socketSetOption _obj level optname value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_socket_set_option _obj' level optname value-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data SocketSetOptionMethodInfo-instance (signature ~ (Int32 -> Int32 -> Int32 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetOptionMethodInfo a signature where-    overloadedMethod _ = socketSetOption---- method Socket::set_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Word32 ->                               -- timeout : TBasicType TUInt-    IO ()---socketSetTimeout ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> Word32                               -- timeout-    -> m ()                                 -- result-socketSetTimeout _obj timeout = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_socket_set_timeout _obj' timeout-    touchManagedPtr _obj-    return ()--data SocketSetTimeoutMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetTimeoutMethodInfo a signature where-    overloadedMethod _ = socketSetTimeout---- method Socket::set_ttl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ttl", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    Word32 ->                               -- ttl : TBasicType TUInt-    IO ()---socketSetTtl ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> Word32                               -- ttl-    -> m ()                                 -- result-socketSetTtl _obj ttl = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_socket_set_ttl _obj' ttl-    touchManagedPtr _obj-    return ()--data SocketSetTtlMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetTtlMethodInfo a signature where-    overloadedMethod _ = socketSetTtl---- method Socket::shutdown--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shutdown_read", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shutdown_write", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    CInt ->                                 -- shutdown_read : TBasicType TBoolean-    CInt ->                                 -- shutdown_write : TBasicType TBoolean-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketShutdown ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> Bool                                 -- shutdownRead-    -> Bool                                 -- shutdownWrite-    -> m ()                                 -- result-socketShutdown _obj shutdownRead shutdownWrite = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let shutdownRead' = (fromIntegral . fromEnum) shutdownRead-    let shutdownWrite' = (fromIntegral . fromEnum) shutdownWrite-    onException (do-        _ <- propagateGError $ g_socket_shutdown _obj' shutdownRead' shutdownWrite'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data SocketShutdownMethodInfo-instance (signature ~ (Bool -> Bool -> m ()), MonadIO m, SocketK a) => MethodInfo SocketShutdownMethodInfo a signature where-    overloadedMethod _ = socketShutdown---- method Socket::speaks_ipv4--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, 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 ->                           -- _obj : TInterface "Gio" "Socket"-    IO CInt---socketSpeaksIpv4 ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketSpeaksIpv4 _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_speaks_ipv4 _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketSpeaksIpv4MethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketSpeaksIpv4MethodInfo a signature where-    overloadedMethod _ = socketSpeaksIpv4--
− GI/Gio/Objects/Socket.hs-boot 
@@ -1,78 +0,0 @@-module GI.Gio.Objects.Socket where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Socket = Socket (ForeignPtr Socket)-instance GObject Socket where-class GObject o => SocketK o-instance (GObject o, IsDescendantOf Socket o) => SocketK o-data SocketBlockingPropertyInfo-data SocketBroadcastPropertyInfo-data SocketFamilyPropertyInfo-data SocketFdPropertyInfo-data SocketKeepalivePropertyInfo-data SocketListenBacklogPropertyInfo-data SocketLocalAddressPropertyInfo-data SocketMulticastLoopbackPropertyInfo-data SocketMulticastTtlPropertyInfo-data SocketProtocolPropertyInfo-data SocketRemoteAddressPropertyInfo-data SocketTimeoutPropertyInfo-data SocketTtlPropertyInfo-data SocketTypePropertyInfo-data SocketAcceptMethodInfo-data SocketBindMethodInfo-data SocketCheckConnectResultMethodInfo-data SocketCloseMethodInfo-data SocketConditionCheckMethodInfo-data SocketConditionTimedWaitMethodInfo-data SocketConditionWaitMethodInfo-data SocketConnectMethodInfo-data SocketConnectionFactoryCreateConnectionMethodInfo-data SocketGetAvailableBytesMethodInfo-data SocketGetBlockingMethodInfo-data SocketGetBroadcastMethodInfo-data SocketGetCredentialsMethodInfo-data SocketGetFamilyMethodInfo-data SocketGetFdMethodInfo-data SocketGetKeepaliveMethodInfo-data SocketGetListenBacklogMethodInfo-data SocketGetLocalAddressMethodInfo-data SocketGetMulticastLoopbackMethodInfo-data SocketGetMulticastTtlMethodInfo-data SocketGetOptionMethodInfo-data SocketGetProtocolMethodInfo-data SocketGetRemoteAddressMethodInfo-data SocketGetSocketTypeMethodInfo-data SocketGetTimeoutMethodInfo-data SocketGetTtlMethodInfo-data SocketIsClosedMethodInfo-data SocketIsConnectedMethodInfo-data SocketJoinMulticastGroupMethodInfo-data SocketLeaveMulticastGroupMethodInfo-data SocketListenMethodInfo-data SocketReceiveMethodInfo-data SocketReceiveFromMethodInfo-data SocketReceiveMessageMethodInfo-data SocketReceiveWithBlockingMethodInfo-data SocketSendMethodInfo-data SocketSendMessageMethodInfo-data SocketSendMessagesMethodInfo-data SocketSendToMethodInfo-data SocketSendWithBlockingMethodInfo-data SocketSetBlockingMethodInfo-data SocketSetBroadcastMethodInfo-data SocketSetKeepaliveMethodInfo-data SocketSetListenBacklogMethodInfo-data SocketSetMulticastLoopbackMethodInfo-data SocketSetMulticastTtlMethodInfo-data SocketSetOptionMethodInfo-data SocketSetTimeoutMethodInfo-data SocketSetTtlMethodInfo-data SocketShutdownMethodInfo-data SocketSpeaksIpv4MethodInfo
− GI/Gio/Objects/SocketAddress.hs 
@@ -1,267 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SocketAddress-    ( ---- * Exported types-    SocketAddress(..)                       ,-    SocketAddressK                          ,-    toSocketAddress                         ,-    noSocketAddress                         ,--- -- * Methods--- ** socketAddressGetFamily-    SocketAddressGetFamilyMethodInfo        ,-    socketAddressGetFamily                  ,----- ** socketAddressGetNativeSize-    SocketAddressGetNativeSizeMethodInfo    ,-    socketAddressGetNativeSize              ,----- ** socketAddressNewFromNative-    socketAddressNewFromNative              ,----- ** socketAddressToNative-    SocketAddressToNativeMethodInfo         ,-    socketAddressToNative                   ,----- -- * Properties--- ** Family-    SocketAddressFamilyPropertyInfo         ,-    getSocketAddressFamily                  ,-    socketAddressFamily                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SocketAddress = SocketAddress (ForeignPtr SocketAddress)-foreign import ccall "g_socket_address_get_type"-    c_g_socket_address_get_type :: IO GType--type instance ParentTypes SocketAddress = SocketAddressParentTypes-type SocketAddressParentTypes = '[GObject.Object, SocketConnectable]--instance GObject SocketAddress where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_socket_address_get_type-    --class GObject o => SocketAddressK o-instance (GObject o, IsDescendantOf SocketAddress o) => SocketAddressK o--toSocketAddress :: SocketAddressK o => o -> IO SocketAddress-toSocketAddress = unsafeCastTo SocketAddress--noSocketAddress :: Maybe SocketAddress-noSocketAddress = Nothing--type family ResolveSocketAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSocketAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSocketAddressMethod "enumerate" o = SocketConnectableEnumerateMethodInfo-    ResolveSocketAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSocketAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSocketAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSocketAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSocketAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSocketAddressMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo-    ResolveSocketAddressMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSocketAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSocketAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSocketAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSocketAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSocketAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSocketAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSocketAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSocketAddressMethod "toNative" o = SocketAddressToNativeMethodInfo-    ResolveSocketAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSocketAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSocketAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSocketAddressMethod "getFamily" o = SocketAddressGetFamilyMethodInfo-    ResolveSocketAddressMethod "getNativeSize" o = SocketAddressGetNativeSizeMethodInfo-    ResolveSocketAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSocketAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSocketAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSocketAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSocketAddressMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSocketAddressMethod t SocketAddress, MethodInfo info SocketAddress p) => IsLabelProxy t (SocketAddress -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSocketAddressMethod t SocketAddress, MethodInfo info SocketAddress p) => IsLabel t (SocketAddress -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "family"-   -- Type: TInterface "Gio" "SocketFamily"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getSocketAddressFamily :: (MonadIO m, SocketAddressK o) => o -> m SocketFamily-getSocketAddressFamily obj = liftIO $ getObjectPropertyEnum obj "family"--data SocketAddressFamilyPropertyInfo-instance AttrInfo SocketAddressFamilyPropertyInfo where-    type AttrAllowedOps SocketAddressFamilyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketAddressFamilyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketAddressFamilyPropertyInfo = SocketAddressK-    type AttrGetType SocketAddressFamilyPropertyInfo = SocketFamily-    type AttrLabel SocketAddressFamilyPropertyInfo = "family"-    attrGet _ = getSocketAddressFamily-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList SocketAddress = SocketAddressAttributeList-type SocketAddressAttributeList = ('[ '("family", SocketAddressFamilyPropertyInfo)] :: [(Symbol, *)])--socketAddressFamily :: AttrLabelProxy "family"-socketAddressFamily = AttrLabelProxy--type instance SignalList SocketAddress = SocketAddressSignalList-type SocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SocketAddress::new_from_native--- method type : Constructor--- Args : [Arg {argCName = "native", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---socketAddressNewFromNative ::-    (MonadIO m) =>-    Ptr ()                                  -- native-    -> Word64                               -- len-    -> m SocketAddress                      -- result-socketAddressNewFromNative native len = liftIO $ do-    result <- g_socket_address_new_from_native native len-    checkUnexpectedReturnNULL "g_socket_address_new_from_native" result-    result' <- (wrapObject SocketAddress) result-    return result'---- method SocketAddress::get_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketFamily")--- throws : False--- Skip return : False--foreign import ccall "g_socket_address_get_family" g_socket_address_get_family :: -    Ptr SocketAddress ->                    -- _obj : TInterface "Gio" "SocketAddress"-    IO CUInt---socketAddressGetFamily ::-    (MonadIO m, SocketAddressK a) =>-    a                                       -- _obj-    -> m SocketFamily                       -- result-socketAddressGetFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_address_get_family _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data SocketAddressGetFamilyMethodInfo-instance (signature ~ (m SocketFamily), MonadIO m, SocketAddressK a) => MethodInfo SocketAddressGetFamilyMethodInfo a signature where-    overloadedMethod _ = socketAddressGetFamily---- method SocketAddress::get_native_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "SocketAddress"-    IO Int64---socketAddressGetNativeSize ::-    (MonadIO m, SocketAddressK a) =>-    a                                       -- _obj-    -> m Int64                              -- result-socketAddressGetNativeSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_address_get_native_size _obj'-    touchManagedPtr _obj-    return result--data SocketAddressGetNativeSizeMethodInfo-instance (signature ~ (m Int64), MonadIO m, SocketAddressK a) => MethodInfo SocketAddressGetNativeSizeMethodInfo a signature where-    overloadedMethod _ = socketAddressGetNativeSize---- method SocketAddress::to_native--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destlen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "SocketAddress"-    Ptr () ->                               -- dest : TBasicType TPtr-    Word64 ->                               -- destlen : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketAddressToNative ::-    (MonadIO m, SocketAddressK a) =>-    a                                       -- _obj-    -> Ptr ()                               -- dest-    -> Word64                               -- destlen-    -> m ()                                 -- result-socketAddressToNative _obj dest destlen = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_socket_address_to_native _obj' dest destlen-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data SocketAddressToNativeMethodInfo-instance (signature ~ (Ptr () -> Word64 -> m ()), MonadIO m, SocketAddressK a) => MethodInfo SocketAddressToNativeMethodInfo a signature where-    overloadedMethod _ = socketAddressToNative--
− GI/Gio/Objects/SocketAddress.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.SocketAddress where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SocketAddress = SocketAddress (ForeignPtr SocketAddress)-instance GObject SocketAddress where-class GObject o => SocketAddressK o-instance (GObject o, IsDescendantOf SocketAddress o) => SocketAddressK o-data SocketAddressFamilyPropertyInfo-data SocketAddressGetFamilyMethodInfo-data SocketAddressGetNativeSizeMethodInfo-data SocketAddressToNativeMethodInfo
− GI/Gio/Objects/SocketAddressEnumerator.hs 
@@ -1,239 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SocketAddressEnumerator-    ( ---- * Exported types-    SocketAddressEnumerator(..)             ,-    SocketAddressEnumeratorK                ,-    toSocketAddressEnumerator               ,-    noSocketAddressEnumerator               ,--- -- * Methods--- ** socketAddressEnumeratorNext-    SocketAddressEnumeratorNextMethodInfo   ,-    socketAddressEnumeratorNext             ,----- ** socketAddressEnumeratorNextAsync-    SocketAddressEnumeratorNextAsyncMethodInfo,-    socketAddressEnumeratorNextAsync        ,----- ** socketAddressEnumeratorNextFinish-    SocketAddressEnumeratorNextFinishMethodInfo,-    socketAddressEnumeratorNextFinish       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SocketAddressEnumerator = SocketAddressEnumerator (ForeignPtr SocketAddressEnumerator)-foreign import ccall "g_socket_address_enumerator_get_type"-    c_g_socket_address_enumerator_get_type :: IO GType--type instance ParentTypes SocketAddressEnumerator = SocketAddressEnumeratorParentTypes-type SocketAddressEnumeratorParentTypes = '[GObject.Object]--instance GObject SocketAddressEnumerator where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_socket_address_enumerator_get_type-    --class GObject o => SocketAddressEnumeratorK o-instance (GObject o, IsDescendantOf SocketAddressEnumerator o) => SocketAddressEnumeratorK o--toSocketAddressEnumerator :: SocketAddressEnumeratorK o => o -> IO SocketAddressEnumerator-toSocketAddressEnumerator = unsafeCastTo SocketAddressEnumerator--noSocketAddressEnumerator :: Maybe SocketAddressEnumerator-noSocketAddressEnumerator = Nothing--type family ResolveSocketAddressEnumeratorMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketAddressEnumeratorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSocketAddressEnumeratorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSocketAddressEnumeratorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSocketAddressEnumeratorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSocketAddressEnumeratorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSocketAddressEnumeratorMethod "next" o = SocketAddressEnumeratorNextMethodInfo-    ResolveSocketAddressEnumeratorMethod "nextAsync" o = SocketAddressEnumeratorNextAsyncMethodInfo-    ResolveSocketAddressEnumeratorMethod "nextFinish" o = SocketAddressEnumeratorNextFinishMethodInfo-    ResolveSocketAddressEnumeratorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSocketAddressEnumeratorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSocketAddressEnumeratorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSocketAddressEnumeratorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSocketAddressEnumeratorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSocketAddressEnumeratorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSocketAddressEnumeratorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSocketAddressEnumeratorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSocketAddressEnumeratorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSocketAddressEnumeratorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSocketAddressEnumeratorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSocketAddressEnumeratorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSocketAddressEnumeratorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSocketAddressEnumeratorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSocketAddressEnumeratorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSocketAddressEnumeratorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSocketAddressEnumeratorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSocketAddressEnumeratorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSocketAddressEnumeratorMethod t SocketAddressEnumerator, MethodInfo info SocketAddressEnumerator p) => IsLabelProxy t (SocketAddressEnumerator -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSocketAddressEnumeratorMethod t SocketAddressEnumerator, MethodInfo info SocketAddressEnumerator p) => IsLabel t (SocketAddressEnumerator -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList SocketAddressEnumerator = SocketAddressEnumeratorAttributeList-type SocketAddressEnumeratorAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList SocketAddressEnumerator = SocketAddressEnumeratorSignalList-type SocketAddressEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SocketAddressEnumerator::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddress")--- throws : True--- Skip return : False--foreign import ccall "g_socket_address_enumerator_next" g_socket_address_enumerator_next :: -    Ptr SocketAddressEnumerator ->          -- _obj : TInterface "Gio" "SocketAddressEnumerator"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketAddress)---socketAddressEnumeratorNext ::-    (MonadIO m, SocketAddressEnumeratorK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m SocketAddress                      -- result-socketAddressEnumeratorNext _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_address_enumerator_next _obj' maybeCancellable-        checkUnexpectedReturnNULL "g_socket_address_enumerator_next" result-        result' <- (wrapObject SocketAddress) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data SocketAddressEnumeratorNextMethodInfo-instance (signature ~ (Maybe (b) -> m SocketAddress), MonadIO m, SocketAddressEnumeratorK a, CancellableK b) => MethodInfo SocketAddressEnumeratorNextMethodInfo a signature where-    overloadedMethod _ = socketAddressEnumeratorNext---- method SocketAddressEnumerator::next_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->          -- _obj : TInterface "Gio" "SocketAddressEnumerator"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---socketAddressEnumeratorNextAsync ::-    (MonadIO m, SocketAddressEnumeratorK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-socketAddressEnumeratorNextAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_socket_address_enumerator_next_async _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data SocketAddressEnumeratorNextAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketAddressEnumeratorK a, CancellableK b) => MethodInfo SocketAddressEnumeratorNextAsyncMethodInfo a signature where-    overloadedMethod _ = socketAddressEnumeratorNextAsync---- method SocketAddressEnumerator::next_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddress")--- throws : True--- Skip return : False--foreign import ccall "g_socket_address_enumerator_next_finish" g_socket_address_enumerator_next_finish :: -    Ptr SocketAddressEnumerator ->          -- _obj : TInterface "Gio" "SocketAddressEnumerator"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketAddress)---socketAddressEnumeratorNextFinish ::-    (MonadIO m, SocketAddressEnumeratorK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m SocketAddress                      -- result-socketAddressEnumeratorNextFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_socket_address_enumerator_next_finish _obj' result_'-        checkUnexpectedReturnNULL "g_socket_address_enumerator_next_finish" result-        result' <- (wrapObject SocketAddress) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data SocketAddressEnumeratorNextFinishMethodInfo-instance (signature ~ (b -> m SocketAddress), MonadIO m, SocketAddressEnumeratorK a, AsyncResultK b) => MethodInfo SocketAddressEnumeratorNextFinishMethodInfo a signature where-    overloadedMethod _ = socketAddressEnumeratorNextFinish--
− GI/Gio/Objects/SocketAddressEnumerator.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gio.Objects.SocketAddressEnumerator where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SocketAddressEnumerator = SocketAddressEnumerator (ForeignPtr SocketAddressEnumerator)-instance GObject SocketAddressEnumerator where-class GObject o => SocketAddressEnumeratorK o-instance (GObject o, IsDescendantOf SocketAddressEnumerator o) => SocketAddressEnumeratorK o-data SocketAddressEnumeratorNextMethodInfo-data SocketAddressEnumeratorNextAsyncMethodInfo-data SocketAddressEnumeratorNextFinishMethodInfo
− GI/Gio/Objects/SocketClient.hs 
@@ -1,1841 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SocketClient-    ( ---- * Exported types-    SocketClient(..)                        ,-    SocketClientK                           ,-    toSocketClient                          ,-    noSocketClient                          ,--- -- * Methods--- ** socketClientAddApplicationProxy-    SocketClientAddApplicationProxyMethodInfo,-    socketClientAddApplicationProxy         ,----- ** socketClientConnect-    SocketClientConnectMethodInfo           ,-    socketClientConnect                     ,----- ** socketClientConnectAsync-    SocketClientConnectAsyncMethodInfo      ,-    socketClientConnectAsync                ,----- ** socketClientConnectFinish-    SocketClientConnectFinishMethodInfo     ,-    socketClientConnectFinish               ,----- ** socketClientConnectToHost-    SocketClientConnectToHostMethodInfo     ,-    socketClientConnectToHost               ,----- ** socketClientConnectToHostAsync-    SocketClientConnectToHostAsyncMethodInfo,-    socketClientConnectToHostAsync          ,----- ** socketClientConnectToHostFinish-    SocketClientConnectToHostFinishMethodInfo,-    socketClientConnectToHostFinish         ,----- ** socketClientConnectToService-    SocketClientConnectToServiceMethodInfo  ,-    socketClientConnectToService            ,----- ** socketClientConnectToServiceAsync-    SocketClientConnectToServiceAsyncMethodInfo,-    socketClientConnectToServiceAsync       ,----- ** socketClientConnectToServiceFinish-    SocketClientConnectToServiceFinishMethodInfo,-    socketClientConnectToServiceFinish      ,----- ** socketClientConnectToUri-    SocketClientConnectToUriMethodInfo      ,-    socketClientConnectToUri                ,----- ** socketClientConnectToUriAsync-    SocketClientConnectToUriAsyncMethodInfo ,-    socketClientConnectToUriAsync           ,----- ** socketClientConnectToUriFinish-    SocketClientConnectToUriFinishMethodInfo,-    socketClientConnectToUriFinish          ,----- ** socketClientGetEnableProxy-    SocketClientGetEnableProxyMethodInfo    ,-    socketClientGetEnableProxy              ,----- ** socketClientGetFamily-    SocketClientGetFamilyMethodInfo         ,-    socketClientGetFamily                   ,----- ** socketClientGetLocalAddress-    SocketClientGetLocalAddressMethodInfo   ,-    socketClientGetLocalAddress             ,----- ** socketClientGetProtocol-    SocketClientGetProtocolMethodInfo       ,-    socketClientGetProtocol                 ,----- ** socketClientGetProxyResolver-    SocketClientGetProxyResolverMethodInfo  ,-    socketClientGetProxyResolver            ,----- ** socketClientGetSocketType-    SocketClientGetSocketTypeMethodInfo     ,-    socketClientGetSocketType               ,----- ** socketClientGetTimeout-    SocketClientGetTimeoutMethodInfo        ,-    socketClientGetTimeout                  ,----- ** socketClientGetTls-    SocketClientGetTlsMethodInfo            ,-    socketClientGetTls                      ,----- ** socketClientGetTlsValidationFlags-    SocketClientGetTlsValidationFlagsMethodInfo,-    socketClientGetTlsValidationFlags       ,----- ** socketClientNew-    socketClientNew                         ,----- ** socketClientSetEnableProxy-    SocketClientSetEnableProxyMethodInfo    ,-    socketClientSetEnableProxy              ,----- ** socketClientSetFamily-    SocketClientSetFamilyMethodInfo         ,-    socketClientSetFamily                   ,----- ** socketClientSetLocalAddress-    SocketClientSetLocalAddressMethodInfo   ,-    socketClientSetLocalAddress             ,----- ** socketClientSetProtocol-    SocketClientSetProtocolMethodInfo       ,-    socketClientSetProtocol                 ,----- ** socketClientSetProxyResolver-    SocketClientSetProxyResolverMethodInfo  ,-    socketClientSetProxyResolver            ,----- ** socketClientSetSocketType-    SocketClientSetSocketTypeMethodInfo     ,-    socketClientSetSocketType               ,----- ** socketClientSetTimeout-    SocketClientSetTimeoutMethodInfo        ,-    socketClientSetTimeout                  ,----- ** socketClientSetTls-    SocketClientSetTlsMethodInfo            ,-    socketClientSetTls                      ,----- ** socketClientSetTlsValidationFlags-    SocketClientSetTlsValidationFlagsMethodInfo,-    socketClientSetTlsValidationFlags       ,----- -- * Properties--- ** EnableProxy-    SocketClientEnableProxyPropertyInfo     ,-    constructSocketClientEnableProxy        ,-    getSocketClientEnableProxy              ,-    setSocketClientEnableProxy              ,-    socketClientEnableProxy                 ,----- ** Family-    SocketClientFamilyPropertyInfo          ,-    constructSocketClientFamily             ,-    getSocketClientFamily                   ,-    setSocketClientFamily                   ,-    socketClientFamily                      ,----- ** LocalAddress-    SocketClientLocalAddressPropertyInfo    ,-    clearSocketClientLocalAddress           ,-    constructSocketClientLocalAddress       ,-    getSocketClientLocalAddress             ,-    setSocketClientLocalAddress             ,-    socketClientLocalAddress                ,----- ** Protocol-    SocketClientProtocolPropertyInfo        ,-    constructSocketClientProtocol           ,-    getSocketClientProtocol                 ,-    setSocketClientProtocol                 ,-    socketClientProtocol                    ,----- ** ProxyResolver-    SocketClientProxyResolverPropertyInfo   ,-    clearSocketClientProxyResolver          ,-    constructSocketClientProxyResolver      ,-    getSocketClientProxyResolver            ,-    setSocketClientProxyResolver            ,-    socketClientProxyResolver               ,----- ** Timeout-    SocketClientTimeoutPropertyInfo         ,-    constructSocketClientTimeout            ,-    getSocketClientTimeout                  ,-    setSocketClientTimeout                  ,-    socketClientTimeout                     ,----- ** Tls-    SocketClientTlsPropertyInfo             ,-    constructSocketClientTls                ,-    getSocketClientTls                      ,-    setSocketClientTls                      ,-    socketClientTls                         ,----- ** TlsValidationFlags-    SocketClientTlsValidationFlagsPropertyInfo,-    constructSocketClientTlsValidationFlags ,-    getSocketClientTlsValidationFlags       ,-    setSocketClientTlsValidationFlags       ,-    socketClientTlsValidationFlags          ,----- ** Type-    SocketClientTypePropertyInfo            ,-    constructSocketClientType               ,-    getSocketClientType                     ,-    setSocketClientType                     ,-    socketClientType                        ,----- -- * Signals--- ** Event-    SocketClientEventCallback               ,-    SocketClientEventCallbackC              ,-    SocketClientEventSignalInfo             ,-    afterSocketClientEvent                  ,-    mkSocketClientEventCallback             ,-    noSocketClientEventCallback             ,-    onSocketClientEvent                     ,-    socketClientEventCallbackWrapper        ,-    socketClientEventClosure                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SocketClient = SocketClient (ForeignPtr SocketClient)-foreign import ccall "g_socket_client_get_type"-    c_g_socket_client_get_type :: IO GType--type instance ParentTypes SocketClient = SocketClientParentTypes-type SocketClientParentTypes = '[GObject.Object]--instance GObject SocketClient where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_socket_client_get_type-    --class GObject o => SocketClientK o-instance (GObject o, IsDescendantOf SocketClient o) => SocketClientK o--toSocketClient :: SocketClientK o => o -> IO SocketClient-toSocketClient = unsafeCastTo SocketClient--noSocketClient :: Maybe SocketClient-noSocketClient = Nothing--type family ResolveSocketClientMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketClientMethod "addApplicationProxy" o = SocketClientAddApplicationProxyMethodInfo-    ResolveSocketClientMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSocketClientMethod "bindPropertyFull" o = GObject.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.ObjectForceFloatingMethodInfo-    ResolveSocketClientMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSocketClientMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSocketClientMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSocketClientMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSocketClientMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSocketClientMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSocketClientMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSocketClientMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSocketClientMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSocketClientMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSocketClientMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSocketClientMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSocketClientMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSocketClientMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSocketClientMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSocketClientMethod "getEnableProxy" o = SocketClientGetEnableProxyMethodInfo-    ResolveSocketClientMethod "getFamily" o = SocketClientGetFamilyMethodInfo-    ResolveSocketClientMethod "getLocalAddress" o = SocketClientGetLocalAddressMethodInfo-    ResolveSocketClientMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSocketClientMethod "getProtocol" o = SocketClientGetProtocolMethodInfo-    ResolveSocketClientMethod "getProxyResolver" o = SocketClientGetProxyResolverMethodInfo-    ResolveSocketClientMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSocketClientMethod "getSocketType" o = SocketClientGetSocketTypeMethodInfo-    ResolveSocketClientMethod "getTimeout" o = SocketClientGetTimeoutMethodInfo-    ResolveSocketClientMethod "getTls" o = SocketClientGetTlsMethodInfo-    ResolveSocketClientMethod "getTlsValidationFlags" o = SocketClientGetTlsValidationFlagsMethodInfo-    ResolveSocketClientMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSocketClientMethod "setEnableProxy" o = SocketClientSetEnableProxyMethodInfo-    ResolveSocketClientMethod "setFamily" o = SocketClientSetFamilyMethodInfo-    ResolveSocketClientMethod "setLocalAddress" o = SocketClientSetLocalAddressMethodInfo-    ResolveSocketClientMethod "setProperty" o = GObject.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 = MethodResolutionFailed l o--instance (info ~ ResolveSocketClientMethod t SocketClient, MethodInfo info SocketClient p) => IsLabelProxy t (SocketClient -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSocketClientMethod t SocketClient, MethodInfo info SocketClient p) => IsLabel t (SocketClient -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal SocketClient::event-type SocketClientEventCallback =-    SocketClientEvent ->-    SocketConnectable ->-    Maybe IOStream ->-    IO ()--noSocketClientEventCallback :: Maybe SocketClientEventCallback-noSocketClientEventCallback = Nothing--type SocketClientEventCallbackC =-    Ptr () ->                               -- object-    CUInt ->-    Ptr SocketConnectable ->-    Ptr IOStream ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketClientEventCallback :: SocketClientEventCallbackC -> IO (FunPtr SocketClientEventCallbackC)--socketClientEventClosure :: SocketClientEventCallback -> IO Closure-socketClientEventClosure cb = newCClosure =<< mkSocketClientEventCallback wrapped-    where wrapped = socketClientEventCallbackWrapper cb--socketClientEventCallbackWrapper ::-    SocketClientEventCallback ->-    Ptr () ->-    CUInt ->-    Ptr SocketConnectable ->-    Ptr IOStream ->-    Ptr () ->-    IO ()-socketClientEventCallbackWrapper _cb _ event connectable connection _ = do-    let event' = (toEnum . fromIntegral) event-    connectable' <- (newObject SocketConnectable) connectable-    maybeConnection <--        if connection == nullPtr-        then return Nothing-        else do-            connection' <- (newObject IOStream) connection-            return $ Just connection'-    _cb  event' connectable' maybeConnection--onSocketClientEvent :: (GObject a, MonadIO m) => a -> SocketClientEventCallback -> m SignalHandlerId-onSocketClientEvent obj cb = liftIO $ connectSocketClientEvent obj cb SignalConnectBefore-afterSocketClientEvent :: (GObject a, MonadIO m) => a -> SocketClientEventCallback -> m SignalHandlerId-afterSocketClientEvent obj cb = connectSocketClientEvent obj cb SignalConnectAfter--connectSocketClientEvent :: (GObject a, MonadIO m) =>-                            a -> SocketClientEventCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketClientEvent obj cb after = liftIO $ do-    cb' <- mkSocketClientEventCallback (socketClientEventCallbackWrapper cb)-    connectSignalFunPtr obj "event" cb' after---- VVV Prop "enable-proxy"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSocketClientEnableProxy :: (MonadIO m, SocketClientK o) => o -> m Bool-getSocketClientEnableProxy obj = liftIO $ getObjectPropertyBool obj "enable-proxy"--setSocketClientEnableProxy :: (MonadIO m, SocketClientK o) => o -> Bool -> m ()-setSocketClientEnableProxy obj val = liftIO $ setObjectPropertyBool obj "enable-proxy" val--constructSocketClientEnableProxy :: Bool -> IO ([Char], GValue)-constructSocketClientEnableProxy val = constructObjectPropertyBool "enable-proxy" val--data SocketClientEnableProxyPropertyInfo-instance AttrInfo SocketClientEnableProxyPropertyInfo where-    type AttrAllowedOps SocketClientEnableProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientEnableProxyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketClientEnableProxyPropertyInfo = SocketClientK-    type AttrGetType SocketClientEnableProxyPropertyInfo = Bool-    type AttrLabel SocketClientEnableProxyPropertyInfo = "enable-proxy"-    attrGet _ = getSocketClientEnableProxy-    attrSet _ = setSocketClientEnableProxy-    attrConstruct _ = constructSocketClientEnableProxy-    attrClear _ = undefined---- VVV Prop "family"-   -- Type: TInterface "Gio" "SocketFamily"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSocketClientFamily :: (MonadIO m, SocketClientK o) => o -> m SocketFamily-getSocketClientFamily obj = liftIO $ getObjectPropertyEnum obj "family"--setSocketClientFamily :: (MonadIO m, SocketClientK o) => o -> SocketFamily -> m ()-setSocketClientFamily obj val = liftIO $ setObjectPropertyEnum obj "family" val--constructSocketClientFamily :: SocketFamily -> IO ([Char], GValue)-constructSocketClientFamily val = constructObjectPropertyEnum "family" val--data SocketClientFamilyPropertyInfo-instance AttrInfo SocketClientFamilyPropertyInfo where-    type AttrAllowedOps SocketClientFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientFamilyPropertyInfo = (~) SocketFamily-    type AttrBaseTypeConstraint SocketClientFamilyPropertyInfo = SocketClientK-    type AttrGetType SocketClientFamilyPropertyInfo = SocketFamily-    type AttrLabel SocketClientFamilyPropertyInfo = "family"-    attrGet _ = getSocketClientFamily-    attrSet _ = setSocketClientFamily-    attrConstruct _ = constructSocketClientFamily-    attrClear _ = undefined---- VVV Prop "local-address"-   -- Type: TInterface "Gio" "SocketAddress"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just True)--getSocketClientLocalAddress :: (MonadIO m, SocketClientK o) => o -> m SocketAddress-getSocketClientLocalAddress obj = liftIO $ checkUnexpectedNothing "getSocketClientLocalAddress" $ getObjectPropertyObject obj "local-address" SocketAddress--setSocketClientLocalAddress :: (MonadIO m, SocketClientK o, SocketAddressK a) => o -> a -> m ()-setSocketClientLocalAddress obj val = liftIO $ setObjectPropertyObject obj "local-address" (Just val)--constructSocketClientLocalAddress :: (SocketAddressK a) => a -> IO ([Char], GValue)-constructSocketClientLocalAddress val = constructObjectPropertyObject "local-address" (Just val)--clearSocketClientLocalAddress :: (MonadIO m, SocketClientK o) => o -> m ()-clearSocketClientLocalAddress obj = liftIO $ setObjectPropertyObject obj "local-address" (Nothing :: Maybe SocketAddress)--data SocketClientLocalAddressPropertyInfo-instance AttrInfo SocketClientLocalAddressPropertyInfo where-    type AttrAllowedOps SocketClientLocalAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketClientLocalAddressPropertyInfo = SocketAddressK-    type AttrBaseTypeConstraint SocketClientLocalAddressPropertyInfo = SocketClientK-    type AttrGetType SocketClientLocalAddressPropertyInfo = SocketAddress-    type AttrLabel SocketClientLocalAddressPropertyInfo = "local-address"-    attrGet _ = getSocketClientLocalAddress-    attrSet _ = setSocketClientLocalAddress-    attrConstruct _ = constructSocketClientLocalAddress-    attrClear _ = clearSocketClientLocalAddress---- VVV Prop "protocol"-   -- Type: TInterface "Gio" "SocketProtocol"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSocketClientProtocol :: (MonadIO m, SocketClientK o) => o -> m SocketProtocol-getSocketClientProtocol obj = liftIO $ getObjectPropertyEnum obj "protocol"--setSocketClientProtocol :: (MonadIO m, SocketClientK o) => o -> SocketProtocol -> m ()-setSocketClientProtocol obj val = liftIO $ setObjectPropertyEnum obj "protocol" val--constructSocketClientProtocol :: SocketProtocol -> IO ([Char], GValue)-constructSocketClientProtocol val = constructObjectPropertyEnum "protocol" val--data SocketClientProtocolPropertyInfo-instance AttrInfo SocketClientProtocolPropertyInfo where-    type AttrAllowedOps SocketClientProtocolPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientProtocolPropertyInfo = (~) SocketProtocol-    type AttrBaseTypeConstraint SocketClientProtocolPropertyInfo = SocketClientK-    type AttrGetType SocketClientProtocolPropertyInfo = SocketProtocol-    type AttrLabel SocketClientProtocolPropertyInfo = "protocol"-    attrGet _ = getSocketClientProtocol-    attrSet _ = setSocketClientProtocol-    attrConstruct _ = constructSocketClientProtocol-    attrClear _ = undefined---- VVV Prop "proxy-resolver"-   -- Type: TInterface "Gio" "ProxyResolver"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just True)--getSocketClientProxyResolver :: (MonadIO m, SocketClientK o) => o -> m ProxyResolver-getSocketClientProxyResolver obj = liftIO $ checkUnexpectedNothing "getSocketClientProxyResolver" $ getObjectPropertyObject obj "proxy-resolver" ProxyResolver--setSocketClientProxyResolver :: (MonadIO m, SocketClientK o, ProxyResolverK a) => o -> a -> m ()-setSocketClientProxyResolver obj val = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Just val)--constructSocketClientProxyResolver :: (ProxyResolverK a) => a -> IO ([Char], GValue)-constructSocketClientProxyResolver val = constructObjectPropertyObject "proxy-resolver" (Just val)--clearSocketClientProxyResolver :: (MonadIO m, SocketClientK o) => o -> m ()-clearSocketClientProxyResolver obj = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Nothing :: Maybe ProxyResolver)--data SocketClientProxyResolverPropertyInfo-instance AttrInfo SocketClientProxyResolverPropertyInfo where-    type AttrAllowedOps SocketClientProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketClientProxyResolverPropertyInfo = ProxyResolverK-    type AttrBaseTypeConstraint SocketClientProxyResolverPropertyInfo = SocketClientK-    type AttrGetType SocketClientProxyResolverPropertyInfo = ProxyResolver-    type AttrLabel SocketClientProxyResolverPropertyInfo = "proxy-resolver"-    attrGet _ = getSocketClientProxyResolver-    attrSet _ = setSocketClientProxyResolver-    attrConstruct _ = constructSocketClientProxyResolver-    attrClear _ = clearSocketClientProxyResolver---- VVV Prop "timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSocketClientTimeout :: (MonadIO m, SocketClientK o) => o -> m Word32-getSocketClientTimeout obj = liftIO $ getObjectPropertyUInt32 obj "timeout"--setSocketClientTimeout :: (MonadIO m, SocketClientK o) => o -> Word32 -> m ()-setSocketClientTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "timeout" val--constructSocketClientTimeout :: Word32 -> IO ([Char], GValue)-constructSocketClientTimeout val = constructObjectPropertyUInt32 "timeout" val--data SocketClientTimeoutPropertyInfo-instance AttrInfo SocketClientTimeoutPropertyInfo where-    type AttrAllowedOps SocketClientTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SocketClientTimeoutPropertyInfo = SocketClientK-    type AttrGetType SocketClientTimeoutPropertyInfo = Word32-    type AttrLabel SocketClientTimeoutPropertyInfo = "timeout"-    attrGet _ = getSocketClientTimeout-    attrSet _ = setSocketClientTimeout-    attrConstruct _ = constructSocketClientTimeout-    attrClear _ = undefined---- VVV Prop "tls"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSocketClientTls :: (MonadIO m, SocketClientK o) => o -> m Bool-getSocketClientTls obj = liftIO $ getObjectPropertyBool obj "tls"--setSocketClientTls :: (MonadIO m, SocketClientK o) => o -> Bool -> m ()-setSocketClientTls obj val = liftIO $ setObjectPropertyBool obj "tls" val--constructSocketClientTls :: Bool -> IO ([Char], GValue)-constructSocketClientTls val = constructObjectPropertyBool "tls" val--data SocketClientTlsPropertyInfo-instance AttrInfo SocketClientTlsPropertyInfo where-    type AttrAllowedOps SocketClientTlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientTlsPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketClientTlsPropertyInfo = SocketClientK-    type AttrGetType SocketClientTlsPropertyInfo = Bool-    type AttrLabel SocketClientTlsPropertyInfo = "tls"-    attrGet _ = getSocketClientTls-    attrSet _ = setSocketClientTls-    attrConstruct _ = constructSocketClientTls-    attrClear _ = undefined---- VVV Prop "tls-validation-flags"-   -- Type: TInterface "Gio" "TlsCertificateFlags"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getSocketClientTlsValidationFlags :: (MonadIO m, SocketClientK o) => o -> m [TlsCertificateFlags]-getSocketClientTlsValidationFlags obj = liftIO $ getObjectPropertyFlags obj "tls-validation-flags"--setSocketClientTlsValidationFlags :: (MonadIO m, SocketClientK o) => o -> [TlsCertificateFlags] -> m ()-setSocketClientTlsValidationFlags obj val = liftIO $ setObjectPropertyFlags obj "tls-validation-flags" val--constructSocketClientTlsValidationFlags :: [TlsCertificateFlags] -> IO ([Char], GValue)-constructSocketClientTlsValidationFlags val = constructObjectPropertyFlags "tls-validation-flags" val--data SocketClientTlsValidationFlagsPropertyInfo-instance AttrInfo SocketClientTlsValidationFlagsPropertyInfo where-    type AttrAllowedOps SocketClientTlsValidationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientTlsValidationFlagsPropertyInfo = (~) [TlsCertificateFlags]-    type AttrBaseTypeConstraint SocketClientTlsValidationFlagsPropertyInfo = SocketClientK-    type AttrGetType SocketClientTlsValidationFlagsPropertyInfo = [TlsCertificateFlags]-    type AttrLabel SocketClientTlsValidationFlagsPropertyInfo = "tls-validation-flags"-    attrGet _ = getSocketClientTlsValidationFlags-    attrSet _ = setSocketClientTlsValidationFlags-    attrConstruct _ = constructSocketClientTlsValidationFlags-    attrClear _ = undefined---- VVV Prop "type"-   -- Type: TInterface "Gio" "SocketType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getSocketClientType :: (MonadIO m, SocketClientK o) => o -> m SocketType-getSocketClientType obj = liftIO $ getObjectPropertyEnum obj "type"--setSocketClientType :: (MonadIO m, SocketClientK o) => o -> SocketType -> m ()-setSocketClientType obj val = liftIO $ setObjectPropertyEnum obj "type" val--constructSocketClientType :: SocketType -> IO ([Char], GValue)-constructSocketClientType val = constructObjectPropertyEnum "type" val--data SocketClientTypePropertyInfo-instance AttrInfo SocketClientTypePropertyInfo where-    type AttrAllowedOps SocketClientTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientTypePropertyInfo = (~) SocketType-    type AttrBaseTypeConstraint SocketClientTypePropertyInfo = SocketClientK-    type AttrGetType SocketClientTypePropertyInfo = SocketType-    type AttrLabel SocketClientTypePropertyInfo = "type"-    attrGet _ = getSocketClientType-    attrSet _ = setSocketClientType-    attrConstruct _ = constructSocketClientType-    attrClear _ = undefined--type instance AttributeList SocketClient = SocketClientAttributeList-type SocketClientAttributeList = ('[ '("enableProxy", SocketClientEnableProxyPropertyInfo), '("family", SocketClientFamilyPropertyInfo), '("localAddress", SocketClientLocalAddressPropertyInfo), '("protocol", SocketClientProtocolPropertyInfo), '("proxyResolver", SocketClientProxyResolverPropertyInfo), '("timeout", SocketClientTimeoutPropertyInfo), '("tls", SocketClientTlsPropertyInfo), '("tlsValidationFlags", SocketClientTlsValidationFlagsPropertyInfo), '("type", SocketClientTypePropertyInfo)] :: [(Symbol, *)])--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--data SocketClientEventSignalInfo-instance SignalInfo SocketClientEventSignalInfo where-    type HaskellCallbackType SocketClientEventSignalInfo = SocketClientEventCallback-    connectSignal _ = connectSocketClientEvent--type instance SignalList SocketClient = SocketClientSignalList-type SocketClientSignalList = ('[ '("event", SocketClientEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SocketClient::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketClient")--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_new" g_socket_client_new :: -    IO (Ptr SocketClient)---socketClientNew ::-    (MonadIO m) =>-    m SocketClient                          -- result-socketClientNew  = liftIO $ do-    result <- g_socket_client_new-    checkUnexpectedReturnNULL "g_socket_client_new" result-    result' <- (wrapObject SocketClient) result-    return result'---- method SocketClient::add_application_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    CString ->                              -- protocol : TBasicType TUTF8-    IO ()---socketClientAddApplicationProxy ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> T.Text                               -- protocol-    -> m ()                                 -- result-socketClientAddApplicationProxy _obj protocol = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    protocol' <- textToCString protocol-    g_socket_client_add_application_proxy _obj' protocol'-    touchManagedPtr _obj-    freeMem protocol'-    return ()--data SocketClientAddApplicationProxyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientAddApplicationProxyMethodInfo a signature where-    overloadedMethod _ = socketClientAddApplicationProxy---- method SocketClient::connect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketConnection")--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect" g_socket_client_connect :: -    Ptr SocketClient ->                     -- _obj : TInterface "Gio" "SocketClient"-    Ptr SocketConnectable ->                -- connectable : TInterface "Gio" "SocketConnectable"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketConnection)---socketClientConnect ::-    (MonadIO m, SocketClientK a, SocketConnectableK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- connectable-    -> Maybe (c)                            -- cancellable-    -> m SocketConnection                   -- result-socketClientConnect _obj connectable cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connectable' = unsafeManagedPtrCastPtr connectable-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_client_connect _obj' connectable' maybeCancellable-        checkUnexpectedReturnNULL "g_socket_client_connect" result-        result' <- (wrapObject SocketConnection) result-        touchManagedPtr _obj-        touchManagedPtr connectable-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data SocketClientConnectMethodInfo-instance (signature ~ (b -> Maybe (c) -> m SocketConnection), MonadIO m, SocketClientK a, SocketConnectableK b, CancellableK c) => MethodInfo SocketClientConnectMethodInfo a signature where-    overloadedMethod _ = socketClientConnect---- method SocketClient::connect_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    Ptr SocketConnectable ->                -- connectable : TInterface "Gio" "SocketConnectable"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---socketClientConnectAsync ::-    (MonadIO m, SocketClientK a, SocketConnectableK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- connectable-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-socketClientConnectAsync _obj connectable cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connectable' = unsafeManagedPtrCastPtr connectable-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_socket_client_connect_async _obj' connectable' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr connectable-    whenJust cancellable touchManagedPtr-    return ()--data SocketClientConnectAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketClientK a, SocketConnectableK b, CancellableK c) => MethodInfo SocketClientConnectAsyncMethodInfo a signature where-    overloadedMethod _ = socketClientConnectAsync---- method SocketClient::connect_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketConnection")--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect_finish" g_socket_client_connect_finish :: -    Ptr SocketClient ->                     -- _obj : TInterface "Gio" "SocketClient"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketConnection)---socketClientConnectFinish ::-    (MonadIO m, SocketClientK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m SocketConnection                   -- result-socketClientConnectFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_socket_client_connect_finish _obj' result_'-        checkUnexpectedReturnNULL "g_socket_client_connect_finish" result-        result' <- (wrapObject SocketConnection) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data SocketClientConnectFinishMethodInfo-instance (signature ~ (b -> m SocketConnection), MonadIO m, SocketClientK a, AsyncResultK b) => MethodInfo SocketClientConnectFinishMethodInfo a signature where-    overloadedMethod _ = socketClientConnectFinish---- method SocketClient::connect_to_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketConnection")--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect_to_host" g_socket_client_connect_to_host :: -    Ptr SocketClient ->                     -- _obj : TInterface "Gio" "SocketClient"-    CString ->                              -- host_and_port : TBasicType TUTF8-    Word16 ->                               -- default_port : TBasicType TUInt16-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketConnection)---socketClientConnectToHost ::-    (MonadIO m, SocketClientK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- hostAndPort-    -> Word16                               -- defaultPort-    -> Maybe (b)                            -- cancellable-    -> m SocketConnection                   -- result-socketClientConnectToHost _obj hostAndPort defaultPort cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    hostAndPort' <- textToCString hostAndPort-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_host _obj' hostAndPort' defaultPort maybeCancellable-        checkUnexpectedReturnNULL "g_socket_client_connect_to_host" result-        result' <- (wrapObject SocketConnection) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem hostAndPort'-        return result'-     ) (do-        freeMem hostAndPort'-     )--data SocketClientConnectToHostMethodInfo-instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> m SocketConnection), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToHostMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToHost---- method SocketClient::connect_to_host_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    CString ->                              -- host_and_port : TBasicType TUTF8-    Word16 ->                               -- default_port : TBasicType TUInt16-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---socketClientConnectToHostAsync ::-    (MonadIO m, SocketClientK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- hostAndPort-    -> Word16                               -- defaultPort-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-socketClientConnectToHostAsync _obj hostAndPort defaultPort cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    hostAndPort' <- textToCString hostAndPort-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_socket_client_connect_to_host_async _obj' hostAndPort' defaultPort maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem hostAndPort'-    return ()--data SocketClientConnectToHostAsyncMethodInfo-instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToHostAsyncMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToHostAsync---- method SocketClient::connect_to_host_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketConnection)---socketClientConnectToHostFinish ::-    (MonadIO m, SocketClientK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m SocketConnection                   -- result-socketClientConnectToHostFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_host_finish _obj' result_'-        checkUnexpectedReturnNULL "g_socket_client_connect_to_host_finish" result-        result' <- (wrapObject SocketConnection) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data SocketClientConnectToHostFinishMethodInfo-instance (signature ~ (b -> m SocketConnection), MonadIO m, SocketClientK a, AsyncResultK b) => MethodInfo SocketClientConnectToHostFinishMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToHostFinish---- method SocketClient::connect_to_service--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketConnection")--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect_to_service" g_socket_client_connect_to_service :: -    Ptr SocketClient ->                     -- _obj : TInterface "Gio" "SocketClient"-    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- service : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketConnection)---socketClientConnectToService ::-    (MonadIO m, SocketClientK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- domain-    -> T.Text                               -- service-    -> Maybe (b)                            -- cancellable-    -> m SocketConnection                   -- result-socketClientConnectToService _obj domain service cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    domain' <- textToCString domain-    service' <- textToCString service-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_service _obj' domain' service' maybeCancellable-        checkUnexpectedReturnNULL "g_socket_client_connect_to_service" result-        result' <- (wrapObject SocketConnection) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem domain'-        freeMem service'-        return result'-     ) (do-        freeMem domain'-        freeMem service'-     )--data SocketClientConnectToServiceMethodInfo-instance (signature ~ (T.Text -> T.Text -> Maybe (b) -> m SocketConnection), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToServiceMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToService---- method SocketClient::connect_to_service_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- service : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---socketClientConnectToServiceAsync ::-    (MonadIO m, SocketClientK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- domain-    -> T.Text                               -- service-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-socketClientConnectToServiceAsync _obj domain service cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    domain' <- textToCString domain-    service' <- textToCString service-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_socket_client_connect_to_service_async _obj' domain' service' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem domain'-    freeMem service'-    return ()--data SocketClientConnectToServiceAsyncMethodInfo-instance (signature ~ (T.Text -> T.Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToServiceAsyncMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToServiceAsync---- method SocketClient::connect_to_service_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketConnection)---socketClientConnectToServiceFinish ::-    (MonadIO m, SocketClientK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m SocketConnection                   -- result-socketClientConnectToServiceFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_service_finish _obj' result_'-        checkUnexpectedReturnNULL "g_socket_client_connect_to_service_finish" result-        result' <- (wrapObject SocketConnection) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data SocketClientConnectToServiceFinishMethodInfo-instance (signature ~ (b -> m SocketConnection), MonadIO m, SocketClientK a, AsyncResultK b) => MethodInfo SocketClientConnectToServiceFinishMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToServiceFinish---- method SocketClient::connect_to_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketConnection")--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect_to_uri" g_socket_client_connect_to_uri :: -    Ptr SocketClient ->                     -- _obj : TInterface "Gio" "SocketClient"-    CString ->                              -- uri : TBasicType TUTF8-    Word16 ->                               -- default_port : TBasicType TUInt16-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketConnection)---socketClientConnectToUri ::-    (MonadIO m, SocketClientK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> Word16                               -- defaultPort-    -> Maybe (b)                            -- cancellable-    -> m SocketConnection                   -- result-socketClientConnectToUri _obj uri defaultPort cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_uri _obj' uri' defaultPort maybeCancellable-        checkUnexpectedReturnNULL "g_socket_client_connect_to_uri" result-        result' <- (wrapObject SocketConnection) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem uri'-        return result'-     ) (do-        freeMem uri'-     )--data SocketClientConnectToUriMethodInfo-instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> m SocketConnection), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToUriMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToUri---- method SocketClient::connect_to_uri_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    CString ->                              -- uri : TBasicType TUTF8-    Word16 ->                               -- default_port : TBasicType TUInt16-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---socketClientConnectToUriAsync ::-    (MonadIO m, SocketClientK a, CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> Word16                               -- defaultPort-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-socketClientConnectToUriAsync _obj uri defaultPort cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_socket_client_connect_to_uri_async _obj' uri' defaultPort maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem uri'-    return ()--data SocketClientConnectToUriAsyncMethodInfo-instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToUriAsyncMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToUriAsync---- method SocketClient::connect_to_uri_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketConnection)---socketClientConnectToUriFinish ::-    (MonadIO m, SocketClientK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m SocketConnection                   -- result-socketClientConnectToUriFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_uri_finish _obj' result_'-        checkUnexpectedReturnNULL "g_socket_client_connect_to_uri_finish" result-        result' <- (wrapObject SocketConnection) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data SocketClientConnectToUriFinishMethodInfo-instance (signature ~ (b -> m SocketConnection), MonadIO m, SocketClientK a, AsyncResultK b) => MethodInfo SocketClientConnectToUriFinishMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToUriFinish---- method SocketClient::get_enable_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    IO CInt---socketClientGetEnableProxy ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketClientGetEnableProxy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_client_get_enable_proxy _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketClientGetEnableProxyMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetEnableProxyMethodInfo a signature where-    overloadedMethod _ = socketClientGetEnableProxy---- method SocketClient::get_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketFamily")--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_get_family" g_socket_client_get_family :: -    Ptr SocketClient ->                     -- _obj : TInterface "Gio" "SocketClient"-    IO CUInt---socketClientGetFamily ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> m SocketFamily                       -- result-socketClientGetFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_client_get_family _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data SocketClientGetFamilyMethodInfo-instance (signature ~ (m SocketFamily), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetFamilyMethodInfo a signature where-    overloadedMethod _ = socketClientGetFamily---- method SocketClient::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddress")--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_get_local_address" g_socket_client_get_local_address :: -    Ptr SocketClient ->                     -- _obj : TInterface "Gio" "SocketClient"-    IO (Ptr SocketAddress)---socketClientGetLocalAddress ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> m SocketAddress                      -- result-socketClientGetLocalAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_client_get_local_address _obj'-    checkUnexpectedReturnNULL "g_socket_client_get_local_address" result-    result' <- (newObject SocketAddress) result-    touchManagedPtr _obj-    return result'--data SocketClientGetLocalAddressMethodInfo-instance (signature ~ (m SocketAddress), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetLocalAddressMethodInfo a signature where-    overloadedMethod _ = socketClientGetLocalAddress---- method SocketClient::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketProtocol")--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_get_protocol" g_socket_client_get_protocol :: -    Ptr SocketClient ->                     -- _obj : TInterface "Gio" "SocketClient"-    IO CUInt---socketClientGetProtocol ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> m SocketProtocol                     -- result-socketClientGetProtocol _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_client_get_protocol _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data SocketClientGetProtocolMethodInfo-instance (signature ~ (m SocketProtocol), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetProtocolMethodInfo a signature where-    overloadedMethod _ = socketClientGetProtocol---- method SocketClient::get_proxy_resolver--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "ProxyResolver")--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_get_proxy_resolver" g_socket_client_get_proxy_resolver :: -    Ptr SocketClient ->                     -- _obj : TInterface "Gio" "SocketClient"-    IO (Ptr ProxyResolver)---socketClientGetProxyResolver ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> m ProxyResolver                      -- result-socketClientGetProxyResolver _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_client_get_proxy_resolver _obj'-    checkUnexpectedReturnNULL "g_socket_client_get_proxy_resolver" result-    result' <- (newObject ProxyResolver) result-    touchManagedPtr _obj-    return result'--data SocketClientGetProxyResolverMethodInfo-instance (signature ~ (m ProxyResolver), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetProxyResolverMethodInfo a signature where-    overloadedMethod _ = socketClientGetProxyResolver---- method SocketClient::get_socket_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketType")--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_get_socket_type" g_socket_client_get_socket_type :: -    Ptr SocketClient ->                     -- _obj : TInterface "Gio" "SocketClient"-    IO CUInt---socketClientGetSocketType ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> m SocketType                         -- result-socketClientGetSocketType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_client_get_socket_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data SocketClientGetSocketTypeMethodInfo-instance (signature ~ (m SocketType), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetSocketTypeMethodInfo a signature where-    overloadedMethod _ = socketClientGetSocketType---- method SocketClient::get_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    IO Word32---socketClientGetTimeout ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-socketClientGetTimeout _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_client_get_timeout _obj'-    touchManagedPtr _obj-    return result--data SocketClientGetTimeoutMethodInfo-instance (signature ~ (m Word32), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetTimeoutMethodInfo a signature where-    overloadedMethod _ = socketClientGetTimeout---- method SocketClient::get_tls--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    IO CInt---socketClientGetTls ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketClientGetTls _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_client_get_tls _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketClientGetTlsMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetTlsMethodInfo a signature where-    overloadedMethod _ = socketClientGetTls---- method SocketClient::get_tls_validation_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    IO CUInt---socketClientGetTlsValidationFlags ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> m [TlsCertificateFlags]              -- result-socketClientGetTlsValidationFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_client_get_tls_validation_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data SocketClientGetTlsValidationFlagsMethodInfo-instance (signature ~ (m [TlsCertificateFlags]), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetTlsValidationFlagsMethodInfo a signature where-    overloadedMethod _ = socketClientGetTlsValidationFlags---- method SocketClient::set_enable_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    CInt ->                                 -- enable : TBasicType TBoolean-    IO ()---socketClientSetEnableProxy ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> Bool                                 -- enable-    -> m ()                                 -- result-socketClientSetEnableProxy _obj enable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enable' = (fromIntegral . fromEnum) enable-    g_socket_client_set_enable_proxy _obj' enable'-    touchManagedPtr _obj-    return ()--data SocketClientSetEnableProxyMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetEnableProxyMethodInfo a signature where-    overloadedMethod _ = socketClientSetEnableProxy---- method SocketClient::set_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    CUInt ->                                -- family : TInterface "Gio" "SocketFamily"-    IO ()---socketClientSetFamily ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> SocketFamily                         -- family-    -> m ()                                 -- result-socketClientSetFamily _obj family = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let family' = (fromIntegral . fromEnum) family-    g_socket_client_set_family _obj' family'-    touchManagedPtr _obj-    return ()--data SocketClientSetFamilyMethodInfo-instance (signature ~ (SocketFamily -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetFamilyMethodInfo a signature where-    overloadedMethod _ = socketClientSetFamily---- method SocketClient::set_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    Ptr SocketAddress ->                    -- address : TInterface "Gio" "SocketAddress"-    IO ()---socketClientSetLocalAddress ::-    (MonadIO m, SocketClientK a, SocketAddressK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- address-    -> m ()                                 -- result-socketClientSetLocalAddress _obj address = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeAddress <- case address of-        Nothing -> return nullPtr-        Just jAddress -> do-            let jAddress' = unsafeManagedPtrCastPtr jAddress-            return jAddress'-    g_socket_client_set_local_address _obj' maybeAddress-    touchManagedPtr _obj-    whenJust address touchManagedPtr-    return ()--data SocketClientSetLocalAddressMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SocketClientK a, SocketAddressK b) => MethodInfo SocketClientSetLocalAddressMethodInfo a signature where-    overloadedMethod _ = socketClientSetLocalAddress---- method SocketClient::set_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    CUInt ->                                -- protocol : TInterface "Gio" "SocketProtocol"-    IO ()---socketClientSetProtocol ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> SocketProtocol                       -- protocol-    -> m ()                                 -- result-socketClientSetProtocol _obj protocol = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let protocol' = (fromIntegral . fromEnum) protocol-    g_socket_client_set_protocol _obj' protocol'-    touchManagedPtr _obj-    return ()--data SocketClientSetProtocolMethodInfo-instance (signature ~ (SocketProtocol -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetProtocolMethodInfo a signature where-    overloadedMethod _ = socketClientSetProtocol---- method SocketClient::set_proxy_resolver--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_resolver", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = True, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    Ptr ProxyResolver ->                    -- proxy_resolver : TInterface "Gio" "ProxyResolver"-    IO ()---socketClientSetProxyResolver ::-    (MonadIO m, SocketClientK a, ProxyResolverK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- proxyResolver-    -> m ()                                 -- result-socketClientSetProxyResolver _obj proxyResolver = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeProxyResolver <- case proxyResolver of-        Nothing -> return nullPtr-        Just jProxyResolver -> do-            let jProxyResolver' = unsafeManagedPtrCastPtr jProxyResolver-            return jProxyResolver'-    g_socket_client_set_proxy_resolver _obj' maybeProxyResolver-    touchManagedPtr _obj-    whenJust proxyResolver touchManagedPtr-    return ()--data SocketClientSetProxyResolverMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SocketClientK a, ProxyResolverK b) => MethodInfo SocketClientSetProxyResolverMethodInfo a signature where-    overloadedMethod _ = socketClientSetProxyResolver---- method SocketClient::set_socket_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    CUInt ->                                -- type : TInterface "Gio" "SocketType"-    IO ()---socketClientSetSocketType ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> SocketType                           -- type_-    -> m ()                                 -- result-socketClientSetSocketType _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    g_socket_client_set_socket_type _obj' type_'-    touchManagedPtr _obj-    return ()--data SocketClientSetSocketTypeMethodInfo-instance (signature ~ (SocketType -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetSocketTypeMethodInfo a signature where-    overloadedMethod _ = socketClientSetSocketType---- method SocketClient::set_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    Word32 ->                               -- timeout : TBasicType TUInt-    IO ()---socketClientSetTimeout ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> Word32                               -- timeout-    -> m ()                                 -- result-socketClientSetTimeout _obj timeout = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_socket_client_set_timeout _obj' timeout-    touchManagedPtr _obj-    return ()--data SocketClientSetTimeoutMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetTimeoutMethodInfo a signature where-    overloadedMethod _ = socketClientSetTimeout---- method SocketClient::set_tls--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tls", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    CInt ->                                 -- tls : TBasicType TBoolean-    IO ()---socketClientSetTls ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> Bool                                 -- tls-    -> m ()                                 -- result-socketClientSetTls _obj tls = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let tls' = (fromIntegral . fromEnum) tls-    g_socket_client_set_tls _obj' tls'-    touchManagedPtr _obj-    return ()--data SocketClientSetTlsMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetTlsMethodInfo a signature where-    overloadedMethod _ = socketClientSetTls---- method SocketClient::set_tls_validation_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "SocketClient"-    CUInt ->                                -- flags : TInterface "Gio" "TlsCertificateFlags"-    IO ()---socketClientSetTlsValidationFlags ::-    (MonadIO m, SocketClientK a) =>-    a                                       -- _obj-    -> [TlsCertificateFlags]                -- flags-    -> m ()                                 -- result-socketClientSetTlsValidationFlags _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    g_socket_client_set_tls_validation_flags _obj' flags'-    touchManagedPtr _obj-    return ()--data SocketClientSetTlsValidationFlagsMethodInfo-instance (signature ~ ([TlsCertificateFlags] -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetTlsValidationFlagsMethodInfo a signature where-    overloadedMethod _ = socketClientSetTlsValidationFlags--
− GI/Gio/Objects/SocketClient.hs-boot 
@@ -1,54 +0,0 @@-module GI.Gio.Objects.SocketClient where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SocketClient = SocketClient (ForeignPtr SocketClient)-instance GObject SocketClient where-class GObject o => SocketClientK o-instance (GObject o, IsDescendantOf SocketClient o) => SocketClientK o-data SocketClientEnableProxyPropertyInfo-data SocketClientFamilyPropertyInfo-data SocketClientLocalAddressPropertyInfo-data SocketClientProtocolPropertyInfo-data SocketClientProxyResolverPropertyInfo-data SocketClientTimeoutPropertyInfo-data SocketClientTlsPropertyInfo-data SocketClientTlsValidationFlagsPropertyInfo-data SocketClientTypePropertyInfo-data SocketClientEventSignalInfo-data SocketClientAddApplicationProxyMethodInfo-data SocketClientConnectMethodInfo-data SocketClientConnectAsyncMethodInfo-data SocketClientConnectFinishMethodInfo-data SocketClientConnectToHostMethodInfo-data SocketClientConnectToHostAsyncMethodInfo-data SocketClientConnectToHostFinishMethodInfo-data SocketClientConnectToServiceMethodInfo-data SocketClientConnectToServiceAsyncMethodInfo-data SocketClientConnectToServiceFinishMethodInfo-data SocketClientConnectToUriMethodInfo-data SocketClientConnectToUriAsyncMethodInfo-data SocketClientConnectToUriFinishMethodInfo-data SocketClientGetEnableProxyMethodInfo-data SocketClientGetFamilyMethodInfo-data SocketClientGetLocalAddressMethodInfo-data SocketClientGetProtocolMethodInfo-data SocketClientGetProxyResolverMethodInfo-data SocketClientGetSocketTypeMethodInfo-data SocketClientGetTimeoutMethodInfo-data SocketClientGetTlsMethodInfo-data SocketClientGetTlsValidationFlagsMethodInfo-data SocketClientSetEnableProxyMethodInfo-data SocketClientSetFamilyMethodInfo-data SocketClientSetLocalAddressMethodInfo-data SocketClientSetProtocolMethodInfo-data SocketClientSetProxyResolverMethodInfo-data SocketClientSetSocketTypeMethodInfo-data SocketClientSetTimeoutMethodInfo-data SocketClientSetTlsMethodInfo-data SocketClientSetTlsValidationFlagsMethodInfo
− GI/Gio/Objects/SocketConnection.hs 
@@ -1,504 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SocketConnection-    ( ---- * Exported types-    SocketConnection(..)                    ,-    SocketConnectionK                       ,-    toSocketConnection                      ,-    noSocketConnection                      ,--- -- * Methods--- ** socketConnectionConnect-    SocketConnectionConnectMethodInfo       ,-    socketConnectionConnect                 ,----- ** socketConnectionConnectAsync-    SocketConnectionConnectAsyncMethodInfo  ,-    socketConnectionConnectAsync            ,----- ** socketConnectionConnectFinish-    SocketConnectionConnectFinishMethodInfo ,-    socketConnectionConnectFinish           ,----- ** socketConnectionFactoryLookupType-    socketConnectionFactoryLookupType       ,----- ** socketConnectionFactoryRegisterType-    socketConnectionFactoryRegisterType     ,----- ** socketConnectionGetLocalAddress-    SocketConnectionGetLocalAddressMethodInfo,-    socketConnectionGetLocalAddress         ,----- ** socketConnectionGetRemoteAddress-    SocketConnectionGetRemoteAddressMethodInfo,-    socketConnectionGetRemoteAddress        ,----- ** socketConnectionGetSocket-    SocketConnectionGetSocketMethodInfo     ,-    socketConnectionGetSocket               ,----- ** socketConnectionIsConnected-    SocketConnectionIsConnectedMethodInfo   ,-    socketConnectionIsConnected             ,----- -- * Properties--- ** Socket-    SocketConnectionSocketPropertyInfo      ,-    constructSocketConnectionSocket         ,-    getSocketConnectionSocket               ,-    socketConnectionSocket                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SocketConnection = SocketConnection (ForeignPtr SocketConnection)-foreign import ccall "g_socket_connection_get_type"-    c_g_socket_connection_get_type :: IO GType--type instance ParentTypes SocketConnection = SocketConnectionParentTypes-type SocketConnectionParentTypes = '[IOStream, GObject.Object]--instance GObject SocketConnection where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_socket_connection_get_type-    --class GObject o => SocketConnectionK o-instance (GObject o, IsDescendantOf SocketConnection o) => SocketConnectionK o--toSocketConnection :: SocketConnectionK o => o -> IO SocketConnection-toSocketConnection = unsafeCastTo SocketConnection--noSocketConnection :: Maybe SocketConnection-noSocketConnection = Nothing--type family ResolveSocketConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSocketConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSocketConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo-    ResolveSocketConnectionMethod "close" o = IOStreamCloseMethodInfo-    ResolveSocketConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo-    ResolveSocketConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo-    ResolveSocketConnectionMethod "connect" o = SocketConnectionConnectMethodInfo-    ResolveSocketConnectionMethod "connectAsync" o = SocketConnectionConnectAsyncMethodInfo-    ResolveSocketConnectionMethod "connectFinish" o = SocketConnectionConnectFinishMethodInfo-    ResolveSocketConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSocketConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSocketConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo-    ResolveSocketConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo-    ResolveSocketConnectionMethod "isConnected" o = SocketConnectionIsConnectedMethodInfo-    ResolveSocketConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSocketConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSocketConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSocketConnectionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSocketConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSocketConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSocketConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSocketConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSocketConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo-    ResolveSocketConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSocketConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSocketConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSocketConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSocketConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSocketConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSocketConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo-    ResolveSocketConnectionMethod "getLocalAddress" o = SocketConnectionGetLocalAddressMethodInfo-    ResolveSocketConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo-    ResolveSocketConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSocketConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSocketConnectionMethod "getRemoteAddress" o = SocketConnectionGetRemoteAddressMethodInfo-    ResolveSocketConnectionMethod "getSocket" o = SocketConnectionGetSocketMethodInfo-    ResolveSocketConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSocketConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo-    ResolveSocketConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSocketConnectionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSocketConnectionMethod t SocketConnection, MethodInfo info SocketConnection p) => IsLabelProxy t (SocketConnection -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSocketConnectionMethod t SocketConnection, MethodInfo info SocketConnection p) => IsLabel t (SocketConnection -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "socket"-   -- Type: TInterface "Gio" "Socket"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getSocketConnectionSocket :: (MonadIO m, SocketConnectionK o) => o -> m Socket-getSocketConnectionSocket obj = liftIO $ checkUnexpectedNothing "getSocketConnectionSocket" $ getObjectPropertyObject obj "socket" Socket--constructSocketConnectionSocket :: (SocketK a) => a -> IO ([Char], GValue)-constructSocketConnectionSocket val = constructObjectPropertyObject "socket" (Just val)--data SocketConnectionSocketPropertyInfo-instance AttrInfo SocketConnectionSocketPropertyInfo where-    type AttrAllowedOps SocketConnectionSocketPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketConnectionSocketPropertyInfo = SocketK-    type AttrBaseTypeConstraint SocketConnectionSocketPropertyInfo = SocketConnectionK-    type AttrGetType SocketConnectionSocketPropertyInfo = Socket-    type AttrLabel SocketConnectionSocketPropertyInfo = "socket"-    attrGet _ = getSocketConnectionSocket-    attrSet _ = undefined-    attrConstruct _ = constructSocketConnectionSocket-    attrClear _ = undefined--type instance AttributeList SocketConnection = SocketConnectionAttributeList-type SocketConnectionAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)])--socketConnectionSocket :: AttrLabelProxy "socket"-socketConnectionSocket = AttrLabelProxy--type instance SignalList SocketConnection = SocketConnectionSignalList-type SocketConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SocketConnection::connect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                 -- _obj : TInterface "Gio" "SocketConnection"-    Ptr SocketAddress ->                    -- address : TInterface "Gio" "SocketAddress"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketConnectionConnect ::-    (MonadIO m, SocketConnectionK a, SocketAddressK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- address-    -> Maybe (c)                            -- cancellable-    -> m ()                                 -- result-socketConnectionConnect _obj address cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let address' = unsafeManagedPtrCastPtr address-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_socket_connection_connect _obj' address' maybeCancellable-        touchManagedPtr _obj-        touchManagedPtr address-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data SocketConnectionConnectMethodInfo-instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, SocketConnectionK a, SocketAddressK b, CancellableK c) => MethodInfo SocketConnectionConnectMethodInfo a signature where-    overloadedMethod _ = socketConnectionConnect---- method SocketConnection::connect_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "SocketConnection"-    Ptr SocketAddress ->                    -- address : TInterface "Gio" "SocketAddress"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---socketConnectionConnectAsync ::-    (MonadIO m, SocketConnectionK a, SocketAddressK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- address-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-socketConnectionConnectAsync _obj address cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let address' = unsafeManagedPtrCastPtr address-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_socket_connection_connect_async _obj' address' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr address-    whenJust cancellable touchManagedPtr-    return ()--data SocketConnectionConnectAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketConnectionK a, SocketAddressK b, CancellableK c) => MethodInfo SocketConnectionConnectAsyncMethodInfo a signature where-    overloadedMethod _ = socketConnectionConnectAsync---- method SocketConnection::connect_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "SocketConnection"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketConnectionConnectFinish ::-    (MonadIO m, SocketConnectionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-socketConnectionConnectFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_socket_connection_connect_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data SocketConnectionConnectFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, SocketConnectionK a, AsyncResultK b) => MethodInfo SocketConnectionConnectFinishMethodInfo a signature where-    overloadedMethod _ = socketConnectionConnectFinish---- method SocketConnection::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddress")--- throws : True--- Skip return : False--foreign import ccall "g_socket_connection_get_local_address" g_socket_connection_get_local_address :: -    Ptr SocketConnection ->                 -- _obj : TInterface "Gio" "SocketConnection"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketAddress)---socketConnectionGetLocalAddress ::-    (MonadIO m, SocketConnectionK a) =>-    a                                       -- _obj-    -> m SocketAddress                      -- result-socketConnectionGetLocalAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_socket_connection_get_local_address _obj'-        checkUnexpectedReturnNULL "g_socket_connection_get_local_address" result-        result' <- (wrapObject SocketAddress) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )--data SocketConnectionGetLocalAddressMethodInfo-instance (signature ~ (m SocketAddress), MonadIO m, SocketConnectionK a) => MethodInfo SocketConnectionGetLocalAddressMethodInfo a signature where-    overloadedMethod _ = socketConnectionGetLocalAddress---- method SocketConnection::get_remote_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddress")--- throws : True--- Skip return : False--foreign import ccall "g_socket_connection_get_remote_address" g_socket_connection_get_remote_address :: -    Ptr SocketConnection ->                 -- _obj : TInterface "Gio" "SocketConnection"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketAddress)---socketConnectionGetRemoteAddress ::-    (MonadIO m, SocketConnectionK a) =>-    a                                       -- _obj-    -> m SocketAddress                      -- result-socketConnectionGetRemoteAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_socket_connection_get_remote_address _obj'-        checkUnexpectedReturnNULL "g_socket_connection_get_remote_address" result-        result' <- (wrapObject SocketAddress) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )--data SocketConnectionGetRemoteAddressMethodInfo-instance (signature ~ (m SocketAddress), MonadIO m, SocketConnectionK a) => MethodInfo SocketConnectionGetRemoteAddressMethodInfo a signature where-    overloadedMethod _ = socketConnectionGetRemoteAddress---- method SocketConnection::get_socket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Socket")--- throws : False--- Skip return : False--foreign import ccall "g_socket_connection_get_socket" g_socket_connection_get_socket :: -    Ptr SocketConnection ->                 -- _obj : TInterface "Gio" "SocketConnection"-    IO (Ptr Socket)---socketConnectionGetSocket ::-    (MonadIO m, SocketConnectionK a) =>-    a                                       -- _obj-    -> m Socket                             -- result-socketConnectionGetSocket _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_connection_get_socket _obj'-    checkUnexpectedReturnNULL "g_socket_connection_get_socket" result-    result' <- (newObject Socket) result-    touchManagedPtr _obj-    return result'--data SocketConnectionGetSocketMethodInfo-instance (signature ~ (m Socket), MonadIO m, SocketConnectionK a) => MethodInfo SocketConnectionGetSocketMethodInfo a signature where-    overloadedMethod _ = socketConnectionGetSocket---- method SocketConnection::is_connected--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "SocketConnection"-    IO CInt---socketConnectionIsConnected ::-    (MonadIO m, SocketConnectionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketConnectionIsConnected _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_connection_is_connected _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketConnectionIsConnectedMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketConnectionK a) => MethodInfo SocketConnectionIsConnectedMethodInfo a signature where-    overloadedMethod _ = socketConnectionIsConnected---- method SocketConnection::factory_lookup_type--- method type : MemberFunction--- Args : [Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 "Gio" "SocketFamily"-    CUInt ->                                -- type : TInterface "Gio" "SocketType"-    Int32 ->                                -- protocol_id : TBasicType TInt-    IO CGType---socketConnectionFactoryLookupType ::-    (MonadIO m) =>-    SocketFamily                            -- family-    -> SocketType                           -- type_-    -> Int32                                -- protocolId-    -> m GType                              -- result-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'---- method SocketConnection::factory_register_type--- method type : MemberFunction--- Args : [Arg {argCName = "g_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 "Gio" "SocketFamily"-    CUInt ->                                -- type : TInterface "Gio" "SocketType"-    Int32 ->                                -- protocol : TBasicType TInt-    IO ()---socketConnectionFactoryRegisterType ::-    (MonadIO m) =>-    GType                                   -- gType-    -> SocketFamily                         -- family-    -> SocketType                           -- type_-    -> Int32                                -- protocol-    -> m ()                                 -- result-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 ()--
− GI/Gio/Objects/SocketConnection.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.SocketConnection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SocketConnection = SocketConnection (ForeignPtr SocketConnection)-instance GObject SocketConnection where-class GObject o => SocketConnectionK o-instance (GObject o, IsDescendantOf SocketConnection o) => SocketConnectionK o-data SocketConnectionSocketPropertyInfo-data SocketConnectionConnectMethodInfo-data SocketConnectionConnectAsyncMethodInfo-data SocketConnectionConnectFinishMethodInfo-data SocketConnectionGetLocalAddressMethodInfo-data SocketConnectionGetRemoteAddressMethodInfo-data SocketConnectionGetSocketMethodInfo-data SocketConnectionIsConnectedMethodInfo
− GI/Gio/Objects/SocketControlMessage.hs 
@@ -1,264 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SocketControlMessage-    ( ---- * Exported types-    SocketControlMessage(..)                ,-    SocketControlMessageK                   ,-    toSocketControlMessage                  ,-    noSocketControlMessage                  ,--- -- * Methods--- ** socketControlMessageDeserialize-    socketControlMessageDeserialize         ,----- ** socketControlMessageGetLevel-    SocketControlMessageGetLevelMethodInfo  ,-    socketControlMessageGetLevel            ,----- ** socketControlMessageGetMsgType-    SocketControlMessageGetMsgTypeMethodInfo,-    socketControlMessageGetMsgType          ,----- ** socketControlMessageGetSize-    SocketControlMessageGetSizeMethodInfo   ,-    socketControlMessageGetSize             ,----- ** socketControlMessageSerialize-    SocketControlMessageSerializeMethodInfo ,-    socketControlMessageSerialize           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SocketControlMessage = SocketControlMessage (ForeignPtr SocketControlMessage)-foreign import ccall "g_socket_control_message_get_type"-    c_g_socket_control_message_get_type :: IO GType--type instance ParentTypes SocketControlMessage = SocketControlMessageParentTypes-type SocketControlMessageParentTypes = '[GObject.Object]--instance GObject SocketControlMessage where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_socket_control_message_get_type-    --class GObject o => SocketControlMessageK o-instance (GObject o, IsDescendantOf SocketControlMessage o) => SocketControlMessageK o--toSocketControlMessage :: SocketControlMessageK o => o -> IO SocketControlMessage-toSocketControlMessage = unsafeCastTo SocketControlMessage--noSocketControlMessage :: Maybe SocketControlMessage-noSocketControlMessage = Nothing--type family ResolveSocketControlMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketControlMessageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSocketControlMessageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSocketControlMessageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSocketControlMessageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSocketControlMessageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSocketControlMessageMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSocketControlMessageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSocketControlMessageMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSocketControlMessageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSocketControlMessageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSocketControlMessageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSocketControlMessageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSocketControlMessageMethod "serialize" o = SocketControlMessageSerializeMethodInfo-    ResolveSocketControlMessageMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSocketControlMessageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSocketControlMessageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSocketControlMessageMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSocketControlMessageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSocketControlMessageMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSocketControlMessageMethod "getLevel" o = SocketControlMessageGetLevelMethodInfo-    ResolveSocketControlMessageMethod "getMsgType" o = SocketControlMessageGetMsgTypeMethodInfo-    ResolveSocketControlMessageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSocketControlMessageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSocketControlMessageMethod "getSize" o = SocketControlMessageGetSizeMethodInfo-    ResolveSocketControlMessageMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSocketControlMessageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSocketControlMessageMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSocketControlMessageMethod t SocketControlMessage, MethodInfo info SocketControlMessage p) => IsLabelProxy t (SocketControlMessage -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSocketControlMessageMethod t SocketControlMessage, MethodInfo info SocketControlMessage p) => IsLabel t (SocketControlMessage -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList SocketControlMessage = SocketControlMessageAttributeList-type SocketControlMessageAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList SocketControlMessage = SocketControlMessageSignalList-type SocketControlMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SocketControlMessage::get_level--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "SocketControlMessage"-    IO Int32---socketControlMessageGetLevel ::-    (MonadIO m, SocketControlMessageK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-socketControlMessageGetLevel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_control_message_get_level _obj'-    touchManagedPtr _obj-    return result--data SocketControlMessageGetLevelMethodInfo-instance (signature ~ (m Int32), MonadIO m, SocketControlMessageK a) => MethodInfo SocketControlMessageGetLevelMethodInfo a signature where-    overloadedMethod _ = socketControlMessageGetLevel---- method SocketControlMessage::get_msg_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "SocketControlMessage"-    IO Int32---socketControlMessageGetMsgType ::-    (MonadIO m, SocketControlMessageK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-socketControlMessageGetMsgType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_control_message_get_msg_type _obj'-    touchManagedPtr _obj-    return result--data SocketControlMessageGetMsgTypeMethodInfo-instance (signature ~ (m Int32), MonadIO m, SocketControlMessageK a) => MethodInfo SocketControlMessageGetMsgTypeMethodInfo a signature where-    overloadedMethod _ = socketControlMessageGetMsgType---- method SocketControlMessage::get_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "SocketControlMessage"-    IO Word64---socketControlMessageGetSize ::-    (MonadIO m, SocketControlMessageK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-socketControlMessageGetSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_control_message_get_size _obj'-    touchManagedPtr _obj-    return result--data SocketControlMessageGetSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, SocketControlMessageK a) => MethodInfo SocketControlMessageGetSizeMethodInfo a signature where-    overloadedMethod _ = socketControlMessageGetSize---- method SocketControlMessage::serialize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "SocketControlMessage"-    Ptr () ->                               -- data : TBasicType TPtr-    IO ()---socketControlMessageSerialize ::-    (MonadIO m, SocketControlMessageK a) =>-    a                                       -- _obj-    -> Ptr ()                               -- data_-    -> m ()                                 -- result-socketControlMessageSerialize _obj data_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_socket_control_message_serialize _obj' data_-    touchManagedPtr _obj-    return ()--data SocketControlMessageSerializeMethodInfo-instance (signature ~ (Ptr () -> m ()), MonadIO m, SocketControlMessageK a) => MethodInfo SocketControlMessageSerializeMethodInfo a signature where-    overloadedMethod _ = socketControlMessageSerialize---- method SocketControlMessage::deserialize--- method type : MemberFunction--- Args : [Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Gio" "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)---socketControlMessageDeserialize ::-    (MonadIO m) =>-    Int32                                   -- level-    -> Int32                                -- type_-    -> ByteString                           -- data_-    -> m SocketControlMessage               -- result-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 "g_socket_control_message_deserialize" result-    result' <- (wrapObject SocketControlMessage) result-    freeMem data_'-    return result'--
− GI/Gio/Objects/SocketControlMessage.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.SocketControlMessage where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SocketControlMessage = SocketControlMessage (ForeignPtr SocketControlMessage)-instance GObject SocketControlMessage where-class GObject o => SocketControlMessageK o-instance (GObject o, IsDescendantOf SocketControlMessage o) => SocketControlMessageK o-data SocketControlMessageGetLevelMethodInfo-data SocketControlMessageGetMsgTypeMethodInfo-data SocketControlMessageGetSizeMethodInfo-data SocketControlMessageSerializeMethodInfo
− GI/Gio/Objects/SocketListener.hs 
@@ -1,807 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SocketListener-    ( ---- * Exported types-    SocketListener(..)                      ,-    SocketListenerK                         ,-    toSocketListener                        ,-    noSocketListener                        ,--- -- * Methods--- ** socketListenerAccept-    SocketListenerAcceptMethodInfo          ,-    socketListenerAccept                    ,----- ** socketListenerAcceptAsync-    SocketListenerAcceptAsyncMethodInfo     ,-    socketListenerAcceptAsync               ,----- ** socketListenerAcceptFinish-    SocketListenerAcceptFinishMethodInfo    ,-    socketListenerAcceptFinish              ,----- ** socketListenerAcceptSocket-    SocketListenerAcceptSocketMethodInfo    ,-    socketListenerAcceptSocket              ,----- ** socketListenerAcceptSocketAsync-    SocketListenerAcceptSocketAsyncMethodInfo,-    socketListenerAcceptSocketAsync         ,----- ** socketListenerAcceptSocketFinish-    SocketListenerAcceptSocketFinishMethodInfo,-    socketListenerAcceptSocketFinish        ,----- ** socketListenerAddAddress-    SocketListenerAddAddressMethodInfo      ,-    socketListenerAddAddress                ,----- ** socketListenerAddAnyInetPort-    SocketListenerAddAnyInetPortMethodInfo  ,-    socketListenerAddAnyInetPort            ,----- ** socketListenerAddInetPort-    SocketListenerAddInetPortMethodInfo     ,-    socketListenerAddInetPort               ,----- ** socketListenerAddSocket-    SocketListenerAddSocketMethodInfo       ,-    socketListenerAddSocket                 ,----- ** socketListenerClose-    SocketListenerCloseMethodInfo           ,-    socketListenerClose                     ,----- ** socketListenerNew-    socketListenerNew                       ,----- ** socketListenerSetBacklog-    SocketListenerSetBacklogMethodInfo      ,-    socketListenerSetBacklog                ,----- -- * Properties--- ** ListenBacklog-    SocketListenerListenBacklogPropertyInfo ,-    constructSocketListenerListenBacklog    ,-    getSocketListenerListenBacklog          ,-    setSocketListenerListenBacklog          ,-    socketListenerListenBacklog             ,----- -- * Signals--- ** Event-    SocketListenerEventCallback             ,-    SocketListenerEventCallbackC            ,-    SocketListenerEventSignalInfo           ,-    afterSocketListenerEvent                ,-    mkSocketListenerEventCallback           ,-    noSocketListenerEventCallback           ,-    onSocketListenerEvent                   ,-    socketListenerEventCallbackWrapper      ,-    socketListenerEventClosure              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SocketListener = SocketListener (ForeignPtr SocketListener)-foreign import ccall "g_socket_listener_get_type"-    c_g_socket_listener_get_type :: IO GType--type instance ParentTypes SocketListener = SocketListenerParentTypes-type SocketListenerParentTypes = '[GObject.Object]--instance GObject SocketListener where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_socket_listener_get_type-    --class GObject o => SocketListenerK o-instance (GObject o, IsDescendantOf SocketListener o) => SocketListenerK o--toSocketListener :: SocketListenerK o => o -> IO SocketListener-toSocketListener = unsafeCastTo SocketListener--noSocketListener :: Maybe SocketListener-noSocketListener = Nothing--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.ObjectBindPropertyMethodInfo-    ResolveSocketListenerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSocketListenerMethod "close" o = SocketListenerCloseMethodInfo-    ResolveSocketListenerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSocketListenerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSocketListenerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSocketListenerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSocketListenerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSocketListenerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSocketListenerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSocketListenerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSocketListenerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSocketListenerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSocketListenerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSocketListenerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSocketListenerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSocketListenerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSocketListenerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSocketListenerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSocketListenerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSocketListenerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSocketListenerMethod "setBacklog" o = SocketListenerSetBacklogMethodInfo-    ResolveSocketListenerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSocketListenerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSocketListenerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSocketListenerMethod t SocketListener, MethodInfo info SocketListener p) => IsLabelProxy t (SocketListener -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSocketListenerMethod t SocketListener, MethodInfo info SocketListener p) => IsLabel t (SocketListener -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal SocketListener::event-type SocketListenerEventCallback =-    SocketListenerEvent ->-    Socket ->-    IO ()--noSocketListenerEventCallback :: Maybe SocketListenerEventCallback-noSocketListenerEventCallback = Nothing--type SocketListenerEventCallbackC =-    Ptr () ->                               -- object-    CUInt ->-    Ptr Socket ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketListenerEventCallback :: SocketListenerEventCallbackC -> IO (FunPtr SocketListenerEventCallbackC)--socketListenerEventClosure :: SocketListenerEventCallback -> IO Closure-socketListenerEventClosure cb = newCClosure =<< mkSocketListenerEventCallback wrapped-    where wrapped = socketListenerEventCallbackWrapper cb--socketListenerEventCallbackWrapper ::-    SocketListenerEventCallback ->-    Ptr () ->-    CUInt ->-    Ptr Socket ->-    Ptr () ->-    IO ()-socketListenerEventCallbackWrapper _cb _ event socket _ = do-    let event' = (toEnum . fromIntegral) event-    socket' <- (newObject Socket) socket-    _cb  event' socket'--onSocketListenerEvent :: (GObject a, MonadIO m) => a -> SocketListenerEventCallback -> m SignalHandlerId-onSocketListenerEvent obj cb = liftIO $ connectSocketListenerEvent obj cb SignalConnectBefore-afterSocketListenerEvent :: (GObject a, MonadIO m) => a -> SocketListenerEventCallback -> m SignalHandlerId-afterSocketListenerEvent obj cb = connectSocketListenerEvent obj cb SignalConnectAfter--connectSocketListenerEvent :: (GObject a, MonadIO m) =>-                              a -> SocketListenerEventCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketListenerEvent obj cb after = liftIO $ do-    cb' <- mkSocketListenerEventCallback (socketListenerEventCallbackWrapper cb)-    connectSignalFunPtr obj "event" cb' after---- VVV Prop "listen-backlog"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getSocketListenerListenBacklog :: (MonadIO m, SocketListenerK o) => o -> m Int32-getSocketListenerListenBacklog obj = liftIO $ getObjectPropertyInt32 obj "listen-backlog"--setSocketListenerListenBacklog :: (MonadIO m, SocketListenerK o) => o -> Int32 -> m ()-setSocketListenerListenBacklog obj val = liftIO $ setObjectPropertyInt32 obj "listen-backlog" val--constructSocketListenerListenBacklog :: Int32 -> IO ([Char], GValue)-constructSocketListenerListenBacklog val = constructObjectPropertyInt32 "listen-backlog" val--data SocketListenerListenBacklogPropertyInfo-instance AttrInfo SocketListenerListenBacklogPropertyInfo where-    type AttrAllowedOps SocketListenerListenBacklogPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketListenerListenBacklogPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SocketListenerListenBacklogPropertyInfo = SocketListenerK-    type AttrGetType SocketListenerListenBacklogPropertyInfo = Int32-    type AttrLabel SocketListenerListenBacklogPropertyInfo = "listen-backlog"-    attrGet _ = getSocketListenerListenBacklog-    attrSet _ = setSocketListenerListenBacklog-    attrConstruct _ = constructSocketListenerListenBacklog-    attrClear _ = undefined--type instance AttributeList SocketListener = SocketListenerAttributeList-type SocketListenerAttributeList = ('[ '("listenBacklog", SocketListenerListenBacklogPropertyInfo)] :: [(Symbol, *)])--socketListenerListenBacklog :: AttrLabelProxy "listenBacklog"-socketListenerListenBacklog = AttrLabelProxy--data SocketListenerEventSignalInfo-instance SignalInfo SocketListenerEventSignalInfo where-    type HaskellCallbackType SocketListenerEventSignalInfo = SocketListenerEventCallback-    connectSignal _ = connectSocketListenerEvent--type instance SignalList SocketListener = SocketListenerSignalList-type SocketListenerSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SocketListener::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketListener")--- throws : False--- Skip return : False--foreign import ccall "g_socket_listener_new" g_socket_listener_new :: -    IO (Ptr SocketListener)---socketListenerNew ::-    (MonadIO m) =>-    m SocketListener                        -- result-socketListenerNew  = liftIO $ do-    result <- g_socket_listener_new-    checkUnexpectedReturnNULL "g_socket_listener_new" result-    result' <- (wrapObject SocketListener) result-    return result'---- method SocketListener::accept--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketConnection")--- throws : True--- Skip return : False--foreign import ccall "g_socket_listener_accept" g_socket_listener_accept :: -    Ptr SocketListener ->                   -- _obj : TInterface "Gio" "SocketListener"-    Ptr (Ptr GObject.Object) ->             -- source_object : TInterface "GObject" "Object"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketConnection)---socketListenerAccept ::-    (MonadIO m, SocketListenerK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m (SocketConnection,GObject.Object)  -- result-socketListenerAccept _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object))-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_listener_accept _obj' sourceObject maybeCancellable-        checkUnexpectedReturnNULL "g_socket_listener_accept" result-        result' <- (wrapObject SocketConnection) result-        sourceObject' <- peek sourceObject-        sourceObject'' <- (newObject GObject.Object) sourceObject'-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem sourceObject-        return (result', sourceObject'')-     ) (do-        freeMem sourceObject-     )--data SocketListenerAcceptMethodInfo-instance (signature ~ (Maybe (b) -> m (SocketConnection,GObject.Object)), MonadIO m, SocketListenerK a, CancellableK b) => MethodInfo SocketListenerAcceptMethodInfo a signature where-    overloadedMethod _ = socketListenerAccept---- method SocketListener::accept_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "SocketListener"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---socketListenerAcceptAsync ::-    (MonadIO m, SocketListenerK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-socketListenerAcceptAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_socket_listener_accept_async _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data SocketListenerAcceptAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketListenerK a, CancellableK b) => MethodInfo SocketListenerAcceptAsyncMethodInfo a signature where-    overloadedMethod _ = socketListenerAcceptAsync---- method SocketListener::accept_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketConnection")--- throws : True--- Skip return : False--foreign import ccall "g_socket_listener_accept_finish" g_socket_listener_accept_finish :: -    Ptr SocketListener ->                   -- _obj : TInterface "Gio" "SocketListener"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GObject.Object) ->             -- source_object : TInterface "GObject" "Object"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SocketConnection)---socketListenerAcceptFinish ::-    (MonadIO m, SocketListenerK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m (SocketConnection,GObject.Object)  -- result-socketListenerAcceptFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object))-    onException (do-        result <- propagateGError $ g_socket_listener_accept_finish _obj' result_' sourceObject-        checkUnexpectedReturnNULL "g_socket_listener_accept_finish" result-        result' <- (wrapObject SocketConnection) result-        sourceObject' <- peek sourceObject-        sourceObject'' <- (newObject GObject.Object) sourceObject'-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem sourceObject-        return (result', sourceObject'')-     ) (do-        freeMem sourceObject-     )--data SocketListenerAcceptFinishMethodInfo-instance (signature ~ (b -> m (SocketConnection,GObject.Object)), MonadIO m, SocketListenerK a, AsyncResultK b) => MethodInfo SocketListenerAcceptFinishMethodInfo a signature where-    overloadedMethod _ = socketListenerAcceptFinish---- method SocketListener::accept_socket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Socket")--- throws : True--- Skip return : False--foreign import ccall "g_socket_listener_accept_socket" g_socket_listener_accept_socket :: -    Ptr SocketListener ->                   -- _obj : TInterface "Gio" "SocketListener"-    Ptr (Ptr GObject.Object) ->             -- source_object : TInterface "GObject" "Object"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Socket)---socketListenerAcceptSocket ::-    (MonadIO m, SocketListenerK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m (Socket,GObject.Object)            -- result-socketListenerAcceptSocket _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object))-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_listener_accept_socket _obj' sourceObject maybeCancellable-        checkUnexpectedReturnNULL "g_socket_listener_accept_socket" result-        result' <- (wrapObject Socket) result-        sourceObject' <- peek sourceObject-        sourceObject'' <- (newObject GObject.Object) sourceObject'-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem sourceObject-        return (result', sourceObject'')-     ) (do-        freeMem sourceObject-     )--data SocketListenerAcceptSocketMethodInfo-instance (signature ~ (Maybe (b) -> m (Socket,GObject.Object)), MonadIO m, SocketListenerK a, CancellableK b) => MethodInfo SocketListenerAcceptSocketMethodInfo a signature where-    overloadedMethod _ = socketListenerAcceptSocket---- method SocketListener::accept_socket_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "SocketListener"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---socketListenerAcceptSocketAsync ::-    (MonadIO m, SocketListenerK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-socketListenerAcceptSocketAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_socket_listener_accept_socket_async _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data SocketListenerAcceptSocketAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketListenerK a, CancellableK b) => MethodInfo SocketListenerAcceptSocketAsyncMethodInfo a signature where-    overloadedMethod _ = socketListenerAcceptSocketAsync---- method SocketListener::accept_socket_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Socket")--- throws : True--- Skip return : False--foreign import ccall "g_socket_listener_accept_socket_finish" g_socket_listener_accept_socket_finish :: -    Ptr SocketListener ->                   -- _obj : TInterface "Gio" "SocketListener"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GObject.Object) ->             -- source_object : TInterface "GObject" "Object"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Socket)---socketListenerAcceptSocketFinish ::-    (MonadIO m, SocketListenerK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m (Socket,GObject.Object)            -- result-socketListenerAcceptSocketFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object))-    onException (do-        result <- propagateGError $ g_socket_listener_accept_socket_finish _obj' result_' sourceObject-        checkUnexpectedReturnNULL "g_socket_listener_accept_socket_finish" result-        result' <- (wrapObject Socket) result-        sourceObject' <- peek sourceObject-        sourceObject'' <- (newObject GObject.Object) sourceObject'-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem sourceObject-        return (result', sourceObject'')-     ) (do-        freeMem sourceObject-     )--data SocketListenerAcceptSocketFinishMethodInfo-instance (signature ~ (b -> m (Socket,GObject.Object)), MonadIO m, SocketListenerK a, AsyncResultK b) => MethodInfo SocketListenerAcceptSocketFinishMethodInfo a signature where-    overloadedMethod _ = socketListenerAcceptSocketFinish---- method SocketListener::add_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "effective_address", argType = TInterface "Gio" "SocketAddress", direction = DirectionOut, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "SocketListener"-    Ptr SocketAddress ->                    -- address : TInterface "Gio" "SocketAddress"-    CUInt ->                                -- type : TInterface "Gio" "SocketType"-    CUInt ->                                -- protocol : TInterface "Gio" "SocketProtocol"-    Ptr GObject.Object ->                   -- source_object : TInterface "GObject" "Object"-    Ptr (Ptr SocketAddress) ->              -- effective_address : TInterface "Gio" "SocketAddress"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketListenerAddAddress ::-    (MonadIO m, SocketListenerK a, SocketAddressK b, GObject.ObjectK c) =>-    a                                       -- _obj-    -> b                                    -- address-    -> SocketType                           -- type_-    -> SocketProtocol                       -- protocol-    -> Maybe (c)                            -- sourceObject-    -> m (SocketAddress)                    -- result-socketListenerAddAddress _obj address type_ protocol sourceObject = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let address' = unsafeManagedPtrCastPtr address-    let type_' = (fromIntegral . fromEnum) type_-    let protocol' = (fromIntegral . fromEnum) protocol-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    effectiveAddress <- allocMem :: IO (Ptr (Ptr SocketAddress))-    onException (do-        _ <- propagateGError $ g_socket_listener_add_address _obj' address' type_' protocol' maybeSourceObject effectiveAddress-        effectiveAddress' <- peek effectiveAddress-        effectiveAddress'' <- (wrapObject SocketAddress) effectiveAddress'-        touchManagedPtr _obj-        touchManagedPtr address-        whenJust sourceObject touchManagedPtr-        freeMem effectiveAddress-        return effectiveAddress''-     ) (do-        freeMem effectiveAddress-     )--data SocketListenerAddAddressMethodInfo-instance (signature ~ (b -> SocketType -> SocketProtocol -> Maybe (c) -> m (SocketAddress)), MonadIO m, SocketListenerK a, SocketAddressK b, GObject.ObjectK c) => MethodInfo SocketListenerAddAddressMethodInfo a signature where-    overloadedMethod _ = socketListenerAddAddress---- method SocketListener::add_any_inet_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "SocketListener"-    Ptr GObject.Object ->                   -- source_object : TInterface "GObject" "Object"-    Ptr (Ptr GError) ->                     -- error-    IO Word16---socketListenerAddAnyInetPort ::-    (MonadIO m, SocketListenerK a, GObject.ObjectK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- sourceObject-    -> m Word16                             -- result-socketListenerAddAnyInetPort _obj sourceObject = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    onException (do-        result <- propagateGError $ g_socket_listener_add_any_inet_port _obj' maybeSourceObject-        touchManagedPtr _obj-        whenJust sourceObject touchManagedPtr-        return result-     ) (do-        return ()-     )--data SocketListenerAddAnyInetPortMethodInfo-instance (signature ~ (Maybe (b) -> m Word16), MonadIO m, SocketListenerK a, GObject.ObjectK b) => MethodInfo SocketListenerAddAnyInetPortMethodInfo a signature where-    overloadedMethod _ = socketListenerAddAnyInetPort---- method SocketListener::add_inet_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "SocketListener"-    Word16 ->                               -- port : TBasicType TUInt16-    Ptr GObject.Object ->                   -- source_object : TInterface "GObject" "Object"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketListenerAddInetPort ::-    (MonadIO m, SocketListenerK a, GObject.ObjectK b) =>-    a                                       -- _obj-    -> Word16                               -- port-    -> Maybe (b)                            -- sourceObject-    -> m ()                                 -- result-socketListenerAddInetPort _obj port sourceObject = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    onException (do-        _ <- propagateGError $ g_socket_listener_add_inet_port _obj' port maybeSourceObject-        touchManagedPtr _obj-        whenJust sourceObject touchManagedPtr-        return ()-     ) (do-        return ()-     )--data SocketListenerAddInetPortMethodInfo-instance (signature ~ (Word16 -> Maybe (b) -> m ()), MonadIO m, SocketListenerK a, GObject.ObjectK b) => MethodInfo SocketListenerAddInetPortMethodInfo a signature where-    overloadedMethod _ = socketListenerAddInetPort---- method SocketListener::add_socket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "SocketListener"-    Ptr Socket ->                           -- socket : TInterface "Gio" "Socket"-    Ptr GObject.Object ->                   -- source_object : TInterface "GObject" "Object"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---socketListenerAddSocket ::-    (MonadIO m, SocketListenerK a, SocketK b, GObject.ObjectK c) =>-    a                                       -- _obj-    -> b                                    -- socket-    -> Maybe (c)                            -- sourceObject-    -> m ()                                 -- result-socketListenerAddSocket _obj socket sourceObject = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let socket' = unsafeManagedPtrCastPtr socket-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    onException (do-        _ <- propagateGError $ g_socket_listener_add_socket _obj' socket' maybeSourceObject-        touchManagedPtr _obj-        touchManagedPtr socket-        whenJust sourceObject touchManagedPtr-        return ()-     ) (do-        return ()-     )--data SocketListenerAddSocketMethodInfo-instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, SocketListenerK a, SocketK b, GObject.ObjectK c) => MethodInfo SocketListenerAddSocketMethodInfo a signature where-    overloadedMethod _ = socketListenerAddSocket---- method SocketListener::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "SocketListener"-    IO ()---socketListenerClose ::-    (MonadIO m, SocketListenerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-socketListenerClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_socket_listener_close _obj'-    touchManagedPtr _obj-    return ()--data SocketListenerCloseMethodInfo-instance (signature ~ (m ()), MonadIO m, SocketListenerK a) => MethodInfo SocketListenerCloseMethodInfo a signature where-    overloadedMethod _ = socketListenerClose---- method SocketListener::set_backlog--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "listen_backlog", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "SocketListener"-    Int32 ->                                -- listen_backlog : TBasicType TInt-    IO ()---socketListenerSetBacklog ::-    (MonadIO m, SocketListenerK a) =>-    a                                       -- _obj-    -> Int32                                -- listenBacklog-    -> m ()                                 -- result-socketListenerSetBacklog _obj listenBacklog = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_socket_listener_set_backlog _obj' listenBacklog-    touchManagedPtr _obj-    return ()--data SocketListenerSetBacklogMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, SocketListenerK a) => MethodInfo SocketListenerSetBacklogMethodInfo a signature where-    overloadedMethod _ = socketListenerSetBacklog--
− GI/Gio/Objects/SocketListener.hs-boot 
@@ -1,27 +0,0 @@-module GI.Gio.Objects.SocketListener where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SocketListener = SocketListener (ForeignPtr SocketListener)-instance GObject SocketListener where-class GObject o => SocketListenerK o-instance (GObject o, IsDescendantOf SocketListener o) => SocketListenerK o-data SocketListenerListenBacklogPropertyInfo-data SocketListenerEventSignalInfo-data SocketListenerAcceptMethodInfo-data SocketListenerAcceptAsyncMethodInfo-data SocketListenerAcceptFinishMethodInfo-data SocketListenerAcceptSocketMethodInfo-data SocketListenerAcceptSocketAsyncMethodInfo-data SocketListenerAcceptSocketFinishMethodInfo-data SocketListenerAddAddressMethodInfo-data SocketListenerAddAnyInetPortMethodInfo-data SocketListenerAddInetPortMethodInfo-data SocketListenerAddSocketMethodInfo-data SocketListenerCloseMethodInfo-data SocketListenerSetBacklogMethodInfo
− GI/Gio/Objects/SocketService.hs 
@@ -1,345 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SocketService-    ( ---- * Exported types-    SocketService(..)                       ,-    SocketServiceK                          ,-    toSocketService                         ,-    noSocketService                         ,--- -- * Methods--- ** socketServiceIsActive-    SocketServiceIsActiveMethodInfo         ,-    socketServiceIsActive                   ,----- ** socketServiceNew-    socketServiceNew                        ,----- ** socketServiceStart-    SocketServiceStartMethodInfo            ,-    socketServiceStart                      ,----- ** socketServiceStop-    SocketServiceStopMethodInfo             ,-    socketServiceStop                       ,----- -- * Properties--- ** Active-    SocketServiceActivePropertyInfo         ,-    constructSocketServiceActive            ,-    getSocketServiceActive                  ,-    setSocketServiceActive                  ,-    socketServiceActive                     ,----- -- * Signals--- ** Incoming-    SocketServiceIncomingCallback           ,-    SocketServiceIncomingCallbackC          ,-    SocketServiceIncomingSignalInfo         ,-    afterSocketServiceIncoming              ,-    mkSocketServiceIncomingCallback         ,-    noSocketServiceIncomingCallback         ,-    onSocketServiceIncoming                 ,-    socketServiceIncomingCallbackWrapper    ,-    socketServiceIncomingClosure            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype SocketService = SocketService (ForeignPtr SocketService)-foreign import ccall "g_socket_service_get_type"-    c_g_socket_service_get_type :: IO GType--type instance ParentTypes SocketService = SocketServiceParentTypes-type SocketServiceParentTypes = '[SocketListener, GObject.Object]--instance GObject SocketService where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_socket_service_get_type-    --class GObject o => SocketServiceK o-instance (GObject o, IsDescendantOf SocketService o) => SocketServiceK o--toSocketService :: SocketServiceK o => o -> IO SocketService-toSocketService = unsafeCastTo SocketService--noSocketService :: Maybe SocketService-noSocketService = Nothing--type family ResolveSocketServiceMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketServiceMethod "accept" o = SocketListenerAcceptMethodInfo-    ResolveSocketServiceMethod "acceptAsync" o = SocketListenerAcceptAsyncMethodInfo-    ResolveSocketServiceMethod "acceptFinish" o = SocketListenerAcceptFinishMethodInfo-    ResolveSocketServiceMethod "acceptSocket" o = SocketListenerAcceptSocketMethodInfo-    ResolveSocketServiceMethod "acceptSocketAsync" o = SocketListenerAcceptSocketAsyncMethodInfo-    ResolveSocketServiceMethod "acceptSocketFinish" o = SocketListenerAcceptSocketFinishMethodInfo-    ResolveSocketServiceMethod "addAddress" o = SocketListenerAddAddressMethodInfo-    ResolveSocketServiceMethod "addAnyInetPort" o = SocketListenerAddAnyInetPortMethodInfo-    ResolveSocketServiceMethod "addInetPort" o = SocketListenerAddInetPortMethodInfo-    ResolveSocketServiceMethod "addSocket" o = SocketListenerAddSocketMethodInfo-    ResolveSocketServiceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSocketServiceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSocketServiceMethod "close" o = SocketListenerCloseMethodInfo-    ResolveSocketServiceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSocketServiceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSocketServiceMethod "isActive" o = SocketServiceIsActiveMethodInfo-    ResolveSocketServiceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSocketServiceMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSocketServiceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSocketServiceMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSocketServiceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSocketServiceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSocketServiceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSocketServiceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSocketServiceMethod "start" o = SocketServiceStartMethodInfo-    ResolveSocketServiceMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSocketServiceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSocketServiceMethod "stop" o = SocketServiceStopMethodInfo-    ResolveSocketServiceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSocketServiceMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSocketServiceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSocketServiceMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSocketServiceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSocketServiceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSocketServiceMethod "setBacklog" o = SocketListenerSetBacklogMethodInfo-    ResolveSocketServiceMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSocketServiceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSocketServiceMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSocketServiceMethod t SocketService, MethodInfo info SocketService p) => IsLabelProxy t (SocketService -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSocketServiceMethod t SocketService, MethodInfo info SocketService p) => IsLabel t (SocketService -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal SocketService::incoming-type SocketServiceIncomingCallback =-    SocketConnection ->-    Maybe GObject.Object ->-    IO Bool--noSocketServiceIncomingCallback :: Maybe SocketServiceIncomingCallback-noSocketServiceIncomingCallback = Nothing--type SocketServiceIncomingCallbackC =-    Ptr () ->                               -- object-    Ptr SocketConnection ->-    Ptr GObject.Object ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkSocketServiceIncomingCallback :: SocketServiceIncomingCallbackC -> IO (FunPtr SocketServiceIncomingCallbackC)--socketServiceIncomingClosure :: SocketServiceIncomingCallback -> IO Closure-socketServiceIncomingClosure cb = newCClosure =<< mkSocketServiceIncomingCallback wrapped-    where wrapped = socketServiceIncomingCallbackWrapper cb--socketServiceIncomingCallbackWrapper ::-    SocketServiceIncomingCallback ->-    Ptr () ->-    Ptr SocketConnection ->-    Ptr GObject.Object ->-    Ptr () ->-    IO CInt-socketServiceIncomingCallbackWrapper _cb _ connection sourceObject _ = do-    connection' <- (newObject SocketConnection) connection-    maybeSourceObject <--        if sourceObject == nullPtr-        then return Nothing-        else do-            sourceObject' <- (newObject GObject.Object) sourceObject-            return $ Just sourceObject'-    result <- _cb  connection' maybeSourceObject-    let result' = (fromIntegral . fromEnum) result-    return result'--onSocketServiceIncoming :: (GObject a, MonadIO m) => a -> SocketServiceIncomingCallback -> m SignalHandlerId-onSocketServiceIncoming obj cb = liftIO $ connectSocketServiceIncoming obj cb SignalConnectBefore-afterSocketServiceIncoming :: (GObject a, MonadIO m) => a -> SocketServiceIncomingCallback -> m SignalHandlerId-afterSocketServiceIncoming obj cb = connectSocketServiceIncoming obj cb SignalConnectAfter--connectSocketServiceIncoming :: (GObject a, MonadIO m) =>-                                a -> SocketServiceIncomingCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketServiceIncoming obj cb after = liftIO $ do-    cb' <- mkSocketServiceIncomingCallback (socketServiceIncomingCallbackWrapper cb)-    connectSignalFunPtr obj "incoming" cb' after---- VVV Prop "active"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getSocketServiceActive :: (MonadIO m, SocketServiceK o) => o -> m Bool-getSocketServiceActive obj = liftIO $ getObjectPropertyBool obj "active"--setSocketServiceActive :: (MonadIO m, SocketServiceK o) => o -> Bool -> m ()-setSocketServiceActive obj val = liftIO $ setObjectPropertyBool obj "active" val--constructSocketServiceActive :: Bool -> IO ([Char], GValue)-constructSocketServiceActive val = constructObjectPropertyBool "active" val--data SocketServiceActivePropertyInfo-instance AttrInfo SocketServiceActivePropertyInfo where-    type AttrAllowedOps SocketServiceActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketServiceActivePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketServiceActivePropertyInfo = SocketServiceK-    type AttrGetType SocketServiceActivePropertyInfo = Bool-    type AttrLabel SocketServiceActivePropertyInfo = "active"-    attrGet _ = getSocketServiceActive-    attrSet _ = setSocketServiceActive-    attrConstruct _ = constructSocketServiceActive-    attrClear _ = undefined--type instance AttributeList SocketService = SocketServiceAttributeList-type SocketServiceAttributeList = ('[ '("active", SocketServiceActivePropertyInfo), '("listenBacklog", SocketListenerListenBacklogPropertyInfo)] :: [(Symbol, *)])--socketServiceActive :: AttrLabelProxy "active"-socketServiceActive = AttrLabelProxy--data SocketServiceIncomingSignalInfo-instance SignalInfo SocketServiceIncomingSignalInfo where-    type HaskellCallbackType SocketServiceIncomingSignalInfo = SocketServiceIncomingCallback-    connectSignal _ = connectSocketServiceIncoming--type instance SignalList SocketService = SocketServiceSignalList-type SocketServiceSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("incoming", SocketServiceIncomingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SocketService::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketService")--- throws : False--- Skip return : False--foreign import ccall "g_socket_service_new" g_socket_service_new :: -    IO (Ptr SocketService)---socketServiceNew ::-    (MonadIO m) =>-    m SocketService                         -- result-socketServiceNew  = liftIO $ do-    result <- g_socket_service_new-    checkUnexpectedReturnNULL "g_socket_service_new" result-    result' <- (wrapObject SocketService) result-    return result'---- method SocketService::is_active--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "SocketService"-    IO CInt---socketServiceIsActive ::-    (MonadIO m, SocketServiceK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketServiceIsActive _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_socket_service_is_active _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketServiceIsActiveMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketServiceK a) => MethodInfo SocketServiceIsActiveMethodInfo a signature where-    overloadedMethod _ = socketServiceIsActive---- method SocketService::start--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "SocketService"-    IO ()---socketServiceStart ::-    (MonadIO m, SocketServiceK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-socketServiceStart _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_socket_service_start _obj'-    touchManagedPtr _obj-    return ()--data SocketServiceStartMethodInfo-instance (signature ~ (m ()), MonadIO m, SocketServiceK a) => MethodInfo SocketServiceStartMethodInfo a signature where-    overloadedMethod _ = socketServiceStart---- method SocketService::stop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "SocketService"-    IO ()---socketServiceStop ::-    (MonadIO m, SocketServiceK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-socketServiceStop _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_socket_service_stop _obj'-    touchManagedPtr _obj-    return ()--data SocketServiceStopMethodInfo-instance (signature ~ (m ()), MonadIO m, SocketServiceK a) => MethodInfo SocketServiceStopMethodInfo a signature where-    overloadedMethod _ = socketServiceStop--
− GI/Gio/Objects/SocketService.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Objects.SocketService where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SocketService = SocketService (ForeignPtr SocketService)-instance GObject SocketService where-class GObject o => SocketServiceK o-instance (GObject o, IsDescendantOf SocketService o) => SocketServiceK o-data SocketServiceActivePropertyInfo-data SocketServiceIncomingSignalInfo-data SocketServiceIsActiveMethodInfo-data SocketServiceStartMethodInfo-data SocketServiceStopMethodInfo
− GI/Gio/Objects/Subprocess.hs 
@@ -1,1247 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Subprocess-    ( ---- * Exported types-    Subprocess(..)                          ,-    SubprocessK                             ,-    toSubprocess                            ,-    noSubprocess                            ,--- -- * Methods--- ** subprocessCommunicate-    SubprocessCommunicateMethodInfo         ,-    subprocessCommunicate                   ,----- ** subprocessCommunicateAsync-    SubprocessCommunicateAsyncMethodInfo    ,-    subprocessCommunicateAsync              ,----- ** subprocessCommunicateFinish-    SubprocessCommunicateFinishMethodInfo   ,-    subprocessCommunicateFinish             ,----- ** subprocessCommunicateUtf8-    SubprocessCommunicateUtf8MethodInfo     ,-    subprocessCommunicateUtf8               ,----- ** subprocessCommunicateUtf8Async-    SubprocessCommunicateUtf8AsyncMethodInfo,-    subprocessCommunicateUtf8Async          ,----- ** subprocessCommunicateUtf8Finish-    SubprocessCommunicateUtf8FinishMethodInfo,-    subprocessCommunicateUtf8Finish         ,----- ** subprocessForceExit-    SubprocessForceExitMethodInfo           ,-    subprocessForceExit                     ,----- ** subprocessGetExitStatus-    SubprocessGetExitStatusMethodInfo       ,-    subprocessGetExitStatus                 ,----- ** subprocessGetIdentifier-    SubprocessGetIdentifierMethodInfo       ,-    subprocessGetIdentifier                 ,----- ** subprocessGetIfExited-    SubprocessGetIfExitedMethodInfo         ,-    subprocessGetIfExited                   ,----- ** subprocessGetIfSignaled-    SubprocessGetIfSignaledMethodInfo       ,-    subprocessGetIfSignaled                 ,----- ** subprocessGetStatus-    SubprocessGetStatusMethodInfo           ,-    subprocessGetStatus                     ,----- ** subprocessGetStderrPipe-    SubprocessGetStderrPipeMethodInfo       ,-    subprocessGetStderrPipe                 ,----- ** subprocessGetStdinPipe-    SubprocessGetStdinPipeMethodInfo        ,-    subprocessGetStdinPipe                  ,----- ** subprocessGetStdoutPipe-    SubprocessGetStdoutPipeMethodInfo       ,-    subprocessGetStdoutPipe                 ,----- ** subprocessGetSuccessful-    SubprocessGetSuccessfulMethodInfo       ,-    subprocessGetSuccessful                 ,----- ** subprocessGetTermSig-    SubprocessGetTermSigMethodInfo          ,-    subprocessGetTermSig                    ,----- ** subprocessNew-    subprocessNew                           ,----- ** subprocessSendSignal-    SubprocessSendSignalMethodInfo          ,-    subprocessSendSignal                    ,----- ** subprocessWait-    SubprocessWaitMethodInfo                ,-    subprocessWait                          ,----- ** subprocessWaitAsync-    SubprocessWaitAsyncMethodInfo           ,-    subprocessWaitAsync                     ,----- ** subprocessWaitCheck-    SubprocessWaitCheckMethodInfo           ,-    subprocessWaitCheck                     ,----- ** subprocessWaitCheckAsync-    SubprocessWaitCheckAsyncMethodInfo      ,-    subprocessWaitCheckAsync                ,----- ** subprocessWaitCheckFinish-    SubprocessWaitCheckFinishMethodInfo     ,-    subprocessWaitCheckFinish               ,----- ** subprocessWaitFinish-    SubprocessWaitFinishMethodInfo          ,-    subprocessWaitFinish                    ,----- -- * Properties--- ** Argv-    SubprocessArgvPropertyInfo              ,-    constructSubprocessArgv                 ,-    subprocessArgv                          ,----- ** Flags-    SubprocessFlagsPropertyInfo             ,-    constructSubprocessFlags                ,-    subprocessFlags                         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype Subprocess = Subprocess (ForeignPtr Subprocess)-foreign import ccall "g_subprocess_get_type"-    c_g_subprocess_get_type :: IO GType--type instance ParentTypes Subprocess = SubprocessParentTypes-type SubprocessParentTypes = '[GObject.Object, Initable]--instance GObject Subprocess where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_subprocess_get_type-    --class GObject o => SubprocessK o-instance (GObject o, IsDescendantOf Subprocess o) => SubprocessK o--toSubprocess :: SubprocessK o => o -> IO Subprocess-toSubprocess = unsafeCastTo Subprocess--noSubprocess :: Maybe Subprocess-noSubprocess = Nothing--type family ResolveSubprocessMethod (t :: Symbol) (o :: *) :: * where-    ResolveSubprocessMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSubprocessMethod "bindPropertyFull" o = GObject.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.ObjectForceFloatingMethodInfo-    ResolveSubprocessMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSubprocessMethod "init" o = InitableInitMethodInfo-    ResolveSubprocessMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSubprocessMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSubprocessMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSubprocessMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSubprocessMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSubprocessMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSubprocessMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSubprocessMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSubprocessMethod "sendSignal" o = SubprocessSendSignalMethodInfo-    ResolveSubprocessMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSubprocessMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSubprocessMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSubprocessMethod "unref" o = GObject.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.ObjectWatchClosureMethodInfo-    ResolveSubprocessMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSubprocessMethod "getExitStatus" o = SubprocessGetExitStatusMethodInfo-    ResolveSubprocessMethod "getIdentifier" o = SubprocessGetIdentifierMethodInfo-    ResolveSubprocessMethod "getIfExited" o = SubprocessGetIfExitedMethodInfo-    ResolveSubprocessMethod "getIfSignaled" o = SubprocessGetIfSignaledMethodInfo-    ResolveSubprocessMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSubprocessMethod "getQdata" o = GObject.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.ObjectSetDataMethodInfo-    ResolveSubprocessMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSubprocessMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSubprocessMethod t Subprocess, MethodInfo info Subprocess p) => IsLabelProxy t (Subprocess -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSubprocessMethod t Subprocess, MethodInfo info Subprocess p) => IsLabel t (Subprocess -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "argv"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructSubprocessArgv :: [T.Text] -> IO ([Char], GValue)-constructSubprocessArgv val = constructObjectPropertyStringArray "argv" (Just val)--data SubprocessArgvPropertyInfo-instance AttrInfo SubprocessArgvPropertyInfo where-    type AttrAllowedOps SubprocessArgvPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint SubprocessArgvPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint SubprocessArgvPropertyInfo = SubprocessK-    type AttrGetType SubprocessArgvPropertyInfo = ()-    type AttrLabel SubprocessArgvPropertyInfo = "argv"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSubprocessArgv-    attrClear _ = undefined---- VVV Prop "flags"-   -- Type: TInterface "Gio" "SubprocessFlags"-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructSubprocessFlags :: [SubprocessFlags] -> IO ([Char], GValue)-constructSubprocessFlags val = constructObjectPropertyFlags "flags" val--data SubprocessFlagsPropertyInfo-instance AttrInfo SubprocessFlagsPropertyInfo where-    type AttrAllowedOps SubprocessFlagsPropertyInfo = '[ 'AttrConstruct]-    type AttrSetTypeConstraint SubprocessFlagsPropertyInfo = (~) [SubprocessFlags]-    type AttrBaseTypeConstraint SubprocessFlagsPropertyInfo = SubprocessK-    type AttrGetType SubprocessFlagsPropertyInfo = ()-    type AttrLabel SubprocessFlagsPropertyInfo = "flags"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSubprocessFlags-    attrClear _ = undefined--type instance AttributeList Subprocess = SubprocessAttributeList-type SubprocessAttributeList = ('[ '("argv", SubprocessArgvPropertyInfo), '("flags", SubprocessFlagsPropertyInfo)] :: [(Symbol, *)])--subprocessArgv :: AttrLabelProxy "argv"-subprocessArgv = AttrLabelProxy--subprocessFlags :: AttrLabelProxy "flags"-subprocessFlags = AttrLabelProxy--type instance SignalList Subprocess = SubprocessSignalList-type SubprocessSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Subprocess::new--- method type : Constructor--- Args : [Arg {argCName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Subprocess")--- throws : True--- Skip return : False--foreign import ccall "g_subprocess_newv" g_subprocess_newv :: -    Ptr CString ->                          -- argv : TCArray True (-1) (-1) (TBasicType TUTF8)-    CUInt ->                                -- flags : TInterface "Gio" "SubprocessFlags"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Subprocess)---subprocessNew ::-    (MonadIO m) =>-    [T.Text]                                -- argv-    -> [SubprocessFlags]                    -- flags-    -> m Subprocess                         -- result-subprocessNew argv flags = liftIO $ do-    argv' <- packZeroTerminatedUTF8CArray argv-    let flags' = gflagsToWord flags-    onException (do-        result <- propagateGError $ g_subprocess_newv argv' flags'-        checkUnexpectedReturnNULL "g_subprocess_newv" result-        result' <- (wrapObject Subprocess) result-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-        return result'-     ) (do-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-     )---- method Subprocess::communicate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdout_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    Ptr GLib.Bytes ->                       -- stdin_buf : TInterface "GLib" "Bytes"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GLib.Bytes) ->                 -- stdout_buf : TInterface "GLib" "Bytes"-    Ptr (Ptr GLib.Bytes) ->                 -- stderr_buf : TInterface "GLib" "Bytes"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---subprocessCommunicate ::-    (MonadIO m, SubprocessK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (GLib.Bytes)                   -- stdinBuf-    -> Maybe (b)                            -- cancellable-    -> m (GLib.Bytes,GLib.Bytes)            -- result-subprocessCommunicate _obj stdinBuf cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeStdinBuf <- case stdinBuf of-        Nothing -> return nullPtr-        Just jStdinBuf -> do-            let jStdinBuf' = unsafeManagedPtrGetPtr jStdinBuf-            return jStdinBuf'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    stdoutBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes))-    stderrBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes))-    onException (do-        _ <- propagateGError $ g_subprocess_communicate _obj' maybeStdinBuf maybeCancellable stdoutBuf stderrBuf-        stdoutBuf' <- peek stdoutBuf-        stdoutBuf'' <- (wrapBoxed GLib.Bytes) stdoutBuf'-        stderrBuf' <- peek stderrBuf-        stderrBuf'' <- (wrapBoxed GLib.Bytes) stderrBuf'-        touchManagedPtr _obj-        whenJust stdinBuf touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem stdoutBuf-        freeMem stderrBuf-        return (stdoutBuf'', stderrBuf'')-     ) (do-        freeMem stdoutBuf-        freeMem stderrBuf-     )--data SubprocessCommunicateMethodInfo-instance (signature ~ (Maybe (GLib.Bytes) -> Maybe (b) -> m (GLib.Bytes,GLib.Bytes)), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessCommunicateMethodInfo a signature where-    overloadedMethod _ = subprocessCommunicate---- method Subprocess::communicate_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    Ptr GLib.Bytes ->                       -- stdin_buf : TInterface "GLib" "Bytes"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---subprocessCommunicateAsync ::-    (MonadIO m, SubprocessK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (GLib.Bytes)                   -- stdinBuf-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-subprocessCommunicateAsync _obj stdinBuf cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeStdinBuf <- case stdinBuf of-        Nothing -> return nullPtr-        Just jStdinBuf -> do-            let jStdinBuf' = unsafeManagedPtrGetPtr jStdinBuf-            return jStdinBuf'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_subprocess_communicate_async _obj' maybeStdinBuf maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust stdinBuf touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data SubprocessCommunicateAsyncMethodInfo-instance (signature ~ (Maybe (GLib.Bytes) -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessCommunicateAsyncMethodInfo a signature where-    overloadedMethod _ = subprocessCommunicateAsync---- method Subprocess::communicate_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdout_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GLib.Bytes) ->                 -- stdout_buf : TInterface "GLib" "Bytes"-    Ptr (Ptr GLib.Bytes) ->                 -- stderr_buf : TInterface "GLib" "Bytes"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---subprocessCommunicateFinish ::-    (MonadIO m, SubprocessK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m (GLib.Bytes,GLib.Bytes)            -- result-subprocessCommunicateFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    stdoutBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes))-    stderrBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes))-    onException (do-        _ <- propagateGError $ g_subprocess_communicate_finish _obj' result_' stdoutBuf stderrBuf-        stdoutBuf' <- peek stdoutBuf-        stdoutBuf'' <- (wrapBoxed GLib.Bytes) stdoutBuf'-        stderrBuf' <- peek stderrBuf-        stderrBuf'' <- (wrapBoxed GLib.Bytes) stderrBuf'-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem stdoutBuf-        freeMem stderrBuf-        return (stdoutBuf'', stderrBuf'')-     ) (do-        freeMem stdoutBuf-        freeMem stderrBuf-     )--data SubprocessCommunicateFinishMethodInfo-instance (signature ~ (b -> m (GLib.Bytes,GLib.Bytes)), MonadIO m, SubprocessK a, AsyncResultK b) => MethodInfo SubprocessCommunicateFinishMethodInfo a signature where-    overloadedMethod _ = subprocessCommunicateFinish---- method Subprocess::communicate_utf8--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdout_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    CString ->                              -- stdin_buf : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr CString ->                          -- stdout_buf : TBasicType TUTF8-    Ptr CString ->                          -- stderr_buf : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---subprocessCommunicateUtf8 ::-    (MonadIO m, SubprocessK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- stdinBuf-    -> Maybe (b)                            -- cancellable-    -> m (T.Text,T.Text)                    -- result-subprocessCommunicateUtf8 _obj stdinBuf cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    stdoutBuf <- allocMem :: IO (Ptr CString)-    stderrBuf <- allocMem :: IO (Ptr CString)-    onException (do-        _ <- propagateGError $ g_subprocess_communicate_utf8 _obj' maybeStdinBuf maybeCancellable stdoutBuf stderrBuf-        stdoutBuf' <- peek stdoutBuf-        stdoutBuf'' <- cstringToText stdoutBuf'-        freeMem stdoutBuf'-        stderrBuf' <- peek stderrBuf-        stderrBuf'' <- cstringToText stderrBuf'-        freeMem stderrBuf'-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem maybeStdinBuf-        freeMem stdoutBuf-        freeMem stderrBuf-        return (stdoutBuf'', stderrBuf'')-     ) (do-        freeMem maybeStdinBuf-        freeMem stdoutBuf-        freeMem stderrBuf-     )--data SubprocessCommunicateUtf8MethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> m (T.Text,T.Text)), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessCommunicateUtf8MethodInfo a signature where-    overloadedMethod _ = subprocessCommunicateUtf8---- method Subprocess::communicate_utf8_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    CString ->                              -- stdin_buf : TBasicType TUTF8-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---subprocessCommunicateUtf8Async ::-    (MonadIO m, SubprocessK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- stdinBuf-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-subprocessCommunicateUtf8Async _obj stdinBuf cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_subprocess_communicate_utf8_async _obj' maybeStdinBuf maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem maybeStdinBuf-    return ()--data SubprocessCommunicateUtf8AsyncMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessCommunicateUtf8AsyncMethodInfo a signature where-    overloadedMethod _ = subprocessCommunicateUtf8Async---- method Subprocess::communicate_utf8_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdout_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr CString ->                          -- stdout_buf : TBasicType TUTF8-    Ptr CString ->                          -- stderr_buf : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---subprocessCommunicateUtf8Finish ::-    (MonadIO m, SubprocessK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m (T.Text,T.Text)                    -- result-subprocessCommunicateUtf8Finish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    stdoutBuf <- allocMem :: IO (Ptr CString)-    stderrBuf <- allocMem :: IO (Ptr CString)-    onException (do-        _ <- propagateGError $ g_subprocess_communicate_utf8_finish _obj' result_' stdoutBuf stderrBuf-        stdoutBuf' <- peek stdoutBuf-        stdoutBuf'' <- cstringToText stdoutBuf'-        freeMem stdoutBuf'-        stderrBuf' <- peek stderrBuf-        stderrBuf'' <- cstringToText stderrBuf'-        freeMem stderrBuf'-        touchManagedPtr _obj-        touchManagedPtr result_-        freeMem stdoutBuf-        freeMem stderrBuf-        return (stdoutBuf'', stderrBuf'')-     ) (do-        freeMem stdoutBuf-        freeMem stderrBuf-     )--data SubprocessCommunicateUtf8FinishMethodInfo-instance (signature ~ (b -> m (T.Text,T.Text)), MonadIO m, SubprocessK a, AsyncResultK b) => MethodInfo SubprocessCommunicateUtf8FinishMethodInfo a signature where-    overloadedMethod _ = subprocessCommunicateUtf8Finish---- method Subprocess::force_exit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    IO ()---subprocessForceExit ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-subprocessForceExit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_subprocess_force_exit _obj'-    touchManagedPtr _obj-    return ()--data SubprocessForceExitMethodInfo-instance (signature ~ (m ()), MonadIO m, SubprocessK a) => MethodInfo SubprocessForceExitMethodInfo a signature where-    overloadedMethod _ = subprocessForceExit---- method Subprocess::get_exit_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    IO Int32---subprocessGetExitStatus ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-subprocessGetExitStatus _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_subprocess_get_exit_status _obj'-    touchManagedPtr _obj-    return result--data SubprocessGetExitStatusMethodInfo-instance (signature ~ (m Int32), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetExitStatusMethodInfo a signature where-    overloadedMethod _ = subprocessGetExitStatus---- method Subprocess::get_identifier--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    IO CString---subprocessGetIdentifier ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-subprocessGetIdentifier _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_subprocess_get_identifier _obj'-    checkUnexpectedReturnNULL "g_subprocess_get_identifier" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SubprocessGetIdentifierMethodInfo-instance (signature ~ (m T.Text), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetIdentifierMethodInfo a signature where-    overloadedMethod _ = subprocessGetIdentifier---- method Subprocess::get_if_exited--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    IO CInt---subprocessGetIfExited ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-subprocessGetIfExited _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_subprocess_get_if_exited _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SubprocessGetIfExitedMethodInfo-instance (signature ~ (m Bool), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetIfExitedMethodInfo a signature where-    overloadedMethod _ = subprocessGetIfExited---- method Subprocess::get_if_signaled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    IO CInt---subprocessGetIfSignaled ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-subprocessGetIfSignaled _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_subprocess_get_if_signaled _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SubprocessGetIfSignaledMethodInfo-instance (signature ~ (m Bool), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetIfSignaledMethodInfo a signature where-    overloadedMethod _ = subprocessGetIfSignaled---- method Subprocess::get_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    IO Int32---subprocessGetStatus ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-subprocessGetStatus _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_subprocess_get_status _obj'-    touchManagedPtr _obj-    return result--data SubprocessGetStatusMethodInfo-instance (signature ~ (m Int32), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetStatusMethodInfo a signature where-    overloadedMethod _ = subprocessGetStatus---- method Subprocess::get_stderr_pipe--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_get_stderr_pipe" g_subprocess_get_stderr_pipe :: -    Ptr Subprocess ->                       -- _obj : TInterface "Gio" "Subprocess"-    IO (Ptr InputStream)---subprocessGetStderrPipe ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> m InputStream                        -- result-subprocessGetStderrPipe _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_subprocess_get_stderr_pipe _obj'-    checkUnexpectedReturnNULL "g_subprocess_get_stderr_pipe" result-    result' <- (newObject InputStream) result-    touchManagedPtr _obj-    return result'--data SubprocessGetStderrPipeMethodInfo-instance (signature ~ (m InputStream), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetStderrPipeMethodInfo a signature where-    overloadedMethod _ = subprocessGetStderrPipe---- method Subprocess::get_stdin_pipe--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "OutputStream")--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_get_stdin_pipe" g_subprocess_get_stdin_pipe :: -    Ptr Subprocess ->                       -- _obj : TInterface "Gio" "Subprocess"-    IO (Ptr OutputStream)---subprocessGetStdinPipe ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> m OutputStream                       -- result-subprocessGetStdinPipe _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_subprocess_get_stdin_pipe _obj'-    checkUnexpectedReturnNULL "g_subprocess_get_stdin_pipe" result-    result' <- (newObject OutputStream) result-    touchManagedPtr _obj-    return result'--data SubprocessGetStdinPipeMethodInfo-instance (signature ~ (m OutputStream), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetStdinPipeMethodInfo a signature where-    overloadedMethod _ = subprocessGetStdinPipe---- method Subprocess::get_stdout_pipe--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_get_stdout_pipe" g_subprocess_get_stdout_pipe :: -    Ptr Subprocess ->                       -- _obj : TInterface "Gio" "Subprocess"-    IO (Ptr InputStream)---subprocessGetStdoutPipe ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> m InputStream                        -- result-subprocessGetStdoutPipe _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_subprocess_get_stdout_pipe _obj'-    checkUnexpectedReturnNULL "g_subprocess_get_stdout_pipe" result-    result' <- (newObject InputStream) result-    touchManagedPtr _obj-    return result'--data SubprocessGetStdoutPipeMethodInfo-instance (signature ~ (m InputStream), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetStdoutPipeMethodInfo a signature where-    overloadedMethod _ = subprocessGetStdoutPipe---- method Subprocess::get_successful--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    IO CInt---subprocessGetSuccessful ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-subprocessGetSuccessful _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_subprocess_get_successful _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SubprocessGetSuccessfulMethodInfo-instance (signature ~ (m Bool), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetSuccessfulMethodInfo a signature where-    overloadedMethod _ = subprocessGetSuccessful---- method Subprocess::get_term_sig--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    IO Int32---subprocessGetTermSig ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-subprocessGetTermSig _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_subprocess_get_term_sig _obj'-    touchManagedPtr _obj-    return result--data SubprocessGetTermSigMethodInfo-instance (signature ~ (m Int32), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetTermSigMethodInfo a signature where-    overloadedMethod _ = subprocessGetTermSig---- method Subprocess::send_signal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    Int32 ->                                -- signal_num : TBasicType TInt-    IO ()---subprocessSendSignal ::-    (MonadIO m, SubprocessK a) =>-    a                                       -- _obj-    -> Int32                                -- signalNum-    -> m ()                                 -- result-subprocessSendSignal _obj signalNum = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_subprocess_send_signal _obj' signalNum-    touchManagedPtr _obj-    return ()--data SubprocessSendSignalMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, SubprocessK a) => MethodInfo SubprocessSendSignalMethodInfo a signature where-    overloadedMethod _ = subprocessSendSignal---- method Subprocess::wait--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---subprocessWait ::-    (MonadIO m, SubprocessK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-subprocessWait _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_subprocess_wait _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data SubprocessWaitMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessWaitMethodInfo a signature where-    overloadedMethod _ = subprocessWait---- method Subprocess::wait_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---subprocessWaitAsync ::-    (MonadIO m, SubprocessK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-subprocessWaitAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_subprocess_wait_async _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data SubprocessWaitAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessWaitAsyncMethodInfo a signature where-    overloadedMethod _ = subprocessWaitAsync---- method Subprocess::wait_check--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---subprocessWaitCheck ::-    (MonadIO m, SubprocessK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-subprocessWaitCheck _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_subprocess_wait_check _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data SubprocessWaitCheckMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessWaitCheckMethodInfo a signature where-    overloadedMethod _ = subprocessWaitCheck---- method Subprocess::wait_check_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---subprocessWaitCheckAsync ::-    (MonadIO m, SubprocessK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-subprocessWaitCheckAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_subprocess_wait_check_async _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data SubprocessWaitCheckAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessWaitCheckAsyncMethodInfo a signature where-    overloadedMethod _ = subprocessWaitCheckAsync---- method Subprocess::wait_check_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---subprocessWaitCheckFinish ::-    (MonadIO m, SubprocessK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-subprocessWaitCheckFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_subprocess_wait_check_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data SubprocessWaitCheckFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, SubprocessK a, AsyncResultK b) => MethodInfo SubprocessWaitCheckFinishMethodInfo a signature where-    overloadedMethod _ = subprocessWaitCheckFinish---- method Subprocess::wait_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "Subprocess"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---subprocessWaitFinish ::-    (MonadIO m, SubprocessK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-subprocessWaitFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_subprocess_wait_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data SubprocessWaitFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, SubprocessK a, AsyncResultK b) => MethodInfo SubprocessWaitFinishMethodInfo a signature where-    overloadedMethod _ = subprocessWaitFinish--
− GI/Gio/Objects/Subprocess.hs-boot 
@@ -1,39 +0,0 @@-module GI.Gio.Objects.Subprocess where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Subprocess = Subprocess (ForeignPtr Subprocess)-instance GObject Subprocess where-class GObject o => SubprocessK o-instance (GObject o, IsDescendantOf Subprocess o) => SubprocessK o-data SubprocessArgvPropertyInfo-data SubprocessFlagsPropertyInfo-data SubprocessCommunicateMethodInfo-data SubprocessCommunicateAsyncMethodInfo-data SubprocessCommunicateFinishMethodInfo-data SubprocessCommunicateUtf8MethodInfo-data SubprocessCommunicateUtf8AsyncMethodInfo-data SubprocessCommunicateUtf8FinishMethodInfo-data SubprocessForceExitMethodInfo-data SubprocessGetExitStatusMethodInfo-data SubprocessGetIdentifierMethodInfo-data SubprocessGetIfExitedMethodInfo-data SubprocessGetIfSignaledMethodInfo-data SubprocessGetStatusMethodInfo-data SubprocessGetStderrPipeMethodInfo-data SubprocessGetStdinPipeMethodInfo-data SubprocessGetStdoutPipeMethodInfo-data SubprocessGetSuccessfulMethodInfo-data SubprocessGetTermSigMethodInfo-data SubprocessSendSignalMethodInfo-data SubprocessWaitMethodInfo-data SubprocessWaitAsyncMethodInfo-data SubprocessWaitCheckMethodInfo-data SubprocessWaitCheckAsyncMethodInfo-data SubprocessWaitCheckFinishMethodInfo-data SubprocessWaitFinishMethodInfo
− GI/Gio/Objects/SubprocessLauncher.hs 
@@ -1,725 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.SubprocessLauncher-    ( ---- * Exported types-    SubprocessLauncher(..)                  ,-    SubprocessLauncherK                     ,-    toSubprocessLauncher                    ,-    noSubprocessLauncher                    ,--- -- * Methods--- ** subprocessLauncherGetenv-    SubprocessLauncherGetenvMethodInfo      ,-    subprocessLauncherGetenv                ,----- ** subprocessLauncherNew-    subprocessLauncherNew                   ,----- ** subprocessLauncherSetChildSetup-    SubprocessLauncherSetChildSetupMethodInfo,-    subprocessLauncherSetChildSetup         ,----- ** subprocessLauncherSetCwd-    SubprocessLauncherSetCwdMethodInfo      ,-    subprocessLauncherSetCwd                ,----- ** subprocessLauncherSetEnviron-    SubprocessLauncherSetEnvironMethodInfo  ,-    subprocessLauncherSetEnviron            ,----- ** subprocessLauncherSetFlags-    SubprocessLauncherSetFlagsMethodInfo    ,-    subprocessLauncherSetFlags              ,----- ** subprocessLauncherSetStderrFilePath-    SubprocessLauncherSetStderrFilePathMethodInfo,-    subprocessLauncherSetStderrFilePath     ,----- ** subprocessLauncherSetStdinFilePath-    SubprocessLauncherSetStdinFilePathMethodInfo,-    subprocessLauncherSetStdinFilePath      ,----- ** subprocessLauncherSetStdoutFilePath-    SubprocessLauncherSetStdoutFilePathMethodInfo,-    subprocessLauncherSetStdoutFilePath     ,----- ** subprocessLauncherSetenv-    SubprocessLauncherSetenvMethodInfo      ,-    subprocessLauncherSetenv                ,----- ** subprocessLauncherSpawnv-    SubprocessLauncherSpawnvMethodInfo      ,-    subprocessLauncherSpawnv                ,----- ** subprocessLauncherTakeFd-    SubprocessLauncherTakeFdMethodInfo      ,-    subprocessLauncherTakeFd                ,----- ** subprocessLauncherTakeStderrFd-    SubprocessLauncherTakeStderrFdMethodInfo,-    subprocessLauncherTakeStderrFd          ,----- ** subprocessLauncherTakeStdinFd-    SubprocessLauncherTakeStdinFdMethodInfo ,-    subprocessLauncherTakeStdinFd           ,----- ** subprocessLauncherTakeStdoutFd-    SubprocessLauncherTakeStdoutFdMethodInfo,-    subprocessLauncherTakeStdoutFd          ,----- ** subprocessLauncherUnsetenv-    SubprocessLauncherUnsetenvMethodInfo    ,-    subprocessLauncherUnsetenv              ,----- -- * Properties--- ** Flags-    SubprocessLauncherFlagsPropertyInfo     ,-    constructSubprocessLauncherFlags        ,-    subprocessLauncherFlags                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype SubprocessLauncher = SubprocessLauncher (ForeignPtr SubprocessLauncher)-foreign import ccall "g_subprocess_launcher_get_type"-    c_g_subprocess_launcher_get_type :: IO GType--type instance ParentTypes SubprocessLauncher = SubprocessLauncherParentTypes-type SubprocessLauncherParentTypes = '[GObject.Object]--instance GObject SubprocessLauncher where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_subprocess_launcher_get_type-    --class GObject o => SubprocessLauncherK o-instance (GObject o, IsDescendantOf SubprocessLauncher o) => SubprocessLauncherK o--toSubprocessLauncher :: SubprocessLauncherK o => o -> IO SubprocessLauncher-toSubprocessLauncher = unsafeCastTo SubprocessLauncher--noSubprocessLauncher :: Maybe SubprocessLauncher-noSubprocessLauncher = Nothing--type family ResolveSubprocessLauncherMethod (t :: Symbol) (o :: *) :: * where-    ResolveSubprocessLauncherMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSubprocessLauncherMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSubprocessLauncherMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSubprocessLauncherMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSubprocessLauncherMethod "getenv" o = SubprocessLauncherGetenvMethodInfo-    ResolveSubprocessLauncherMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSubprocessLauncherMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSubprocessLauncherMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSubprocessLauncherMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSubprocessLauncherMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSubprocessLauncherMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSubprocessLauncherMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSubprocessLauncherMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSubprocessLauncherMethod "setenv" o = SubprocessLauncherSetenvMethodInfo-    ResolveSubprocessLauncherMethod "spawnv" o = SubprocessLauncherSpawnvMethodInfo-    ResolveSubprocessLauncherMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSubprocessLauncherMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSubprocessLauncherMethod "takeFd" o = SubprocessLauncherTakeFdMethodInfo-    ResolveSubprocessLauncherMethod "takeStderrFd" o = SubprocessLauncherTakeStderrFdMethodInfo-    ResolveSubprocessLauncherMethod "takeStdinFd" o = SubprocessLauncherTakeStdinFdMethodInfo-    ResolveSubprocessLauncherMethod "takeStdoutFd" o = SubprocessLauncherTakeStdoutFdMethodInfo-    ResolveSubprocessLauncherMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSubprocessLauncherMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSubprocessLauncherMethod "unsetenv" o = SubprocessLauncherUnsetenvMethodInfo-    ResolveSubprocessLauncherMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSubprocessLauncherMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSubprocessLauncherMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSubprocessLauncherMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSubprocessLauncherMethod "setChildSetup" o = SubprocessLauncherSetChildSetupMethodInfo-    ResolveSubprocessLauncherMethod "setCwd" o = SubprocessLauncherSetCwdMethodInfo-    ResolveSubprocessLauncherMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSubprocessLauncherMethod "setEnviron" o = SubprocessLauncherSetEnvironMethodInfo-    ResolveSubprocessLauncherMethod "setFlags" o = SubprocessLauncherSetFlagsMethodInfo-    ResolveSubprocessLauncherMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSubprocessLauncherMethod "setStderrFilePath" o = SubprocessLauncherSetStderrFilePathMethodInfo-    ResolveSubprocessLauncherMethod "setStdinFilePath" o = SubprocessLauncherSetStdinFilePathMethodInfo-    ResolveSubprocessLauncherMethod "setStdoutFilePath" o = SubprocessLauncherSetStdoutFilePathMethodInfo-    ResolveSubprocessLauncherMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSubprocessLauncherMethod t SubprocessLauncher, MethodInfo info SubprocessLauncher p) => IsLabelProxy t (SubprocessLauncher -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSubprocessLauncherMethod t SubprocessLauncher, MethodInfo info SubprocessLauncher p) => IsLabel t (SubprocessLauncher -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "flags"-   -- Type: TInterface "Gio" "SubprocessFlags"-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Just False)--constructSubprocessLauncherFlags :: [SubprocessFlags] -> IO ([Char], GValue)-constructSubprocessLauncherFlags val = constructObjectPropertyFlags "flags" val--data SubprocessLauncherFlagsPropertyInfo-instance AttrInfo SubprocessLauncherFlagsPropertyInfo where-    type AttrAllowedOps SubprocessLauncherFlagsPropertyInfo = '[ 'AttrConstruct]-    type AttrSetTypeConstraint SubprocessLauncherFlagsPropertyInfo = (~) [SubprocessFlags]-    type AttrBaseTypeConstraint SubprocessLauncherFlagsPropertyInfo = SubprocessLauncherK-    type AttrGetType SubprocessLauncherFlagsPropertyInfo = ()-    type AttrLabel SubprocessLauncherFlagsPropertyInfo = "flags"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSubprocessLauncherFlags-    attrClear _ = undefined--type instance AttributeList SubprocessLauncher = SubprocessLauncherAttributeList-type SubprocessLauncherAttributeList = ('[ '("flags", SubprocessLauncherFlagsPropertyInfo)] :: [(Symbol, *)])--subprocessLauncherFlags :: AttrLabelProxy "flags"-subprocessLauncherFlags = AttrLabelProxy--type instance SignalList SubprocessLauncher = SubprocessLauncherSignalList-type SubprocessLauncherSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method SubprocessLauncher::new--- method type : Constructor--- Args : [Arg {argCName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SubprocessLauncher")--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_new" g_subprocess_launcher_new :: -    CUInt ->                                -- flags : TInterface "Gio" "SubprocessFlags"-    IO (Ptr SubprocessLauncher)---subprocessLauncherNew ::-    (MonadIO m) =>-    [SubprocessFlags]                       -- flags-    -> m SubprocessLauncher                 -- result-subprocessLauncherNew flags = liftIO $ do-    let flags' = gflagsToWord flags-    result <- g_subprocess_launcher_new flags'-    checkUnexpectedReturnNULL "g_subprocess_launcher_new" result-    result' <- (wrapObject SubprocessLauncher) result-    return result'---- method SubprocessLauncher::getenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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_launcher_getenv" g_subprocess_launcher_getenv :: -    Ptr SubprocessLauncher ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    CString ->                              -- variable : TBasicType TUTF8-    IO CString---subprocessLauncherGetenv ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> T.Text                               -- variable-    -> m T.Text                             -- result-subprocessLauncherGetenv _obj variable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    variable' <- textToCString variable-    result <- g_subprocess_launcher_getenv _obj' variable'-    checkUnexpectedReturnNULL "g_subprocess_launcher_getenv" result-    result' <- cstringToText result-    touchManagedPtr _obj-    freeMem variable'-    return result'--data SubprocessLauncherGetenvMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherGetenvMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherGetenv---- method SubprocessLauncher::set_child_setup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_set_child_setup" g_subprocess_launcher_set_child_setup :: -    Ptr SubprocessLauncher ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    FunPtr GLib.SpawnChildSetupFuncC ->     -- child_setup : TInterface "GLib" "SpawnChildSetupFunc"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- destroy_notify : TInterface "GLib" "DestroyNotify"-    IO ()---subprocessLauncherSetChildSetup ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> GLib.SpawnChildSetupFunc             -- childSetup-    -> m ()                                 -- result-subprocessLauncherSetChildSetup _obj childSetup = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    childSetup' <- GLib.mkSpawnChildSetupFunc (GLib.spawnChildSetupFuncWrapper Nothing childSetup)-    let userData = castFunPtrToPtr childSetup'-    let destroyNotify = safeFreeFunPtrPtr-    g_subprocess_launcher_set_child_setup _obj' childSetup' userData destroyNotify-    touchManagedPtr _obj-    return ()--data SubprocessLauncherSetChildSetupMethodInfo-instance (signature ~ (GLib.SpawnChildSetupFunc -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetChildSetupMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetChildSetup---- method SubprocessLauncher::set_cwd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cwd", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    CString ->                              -- cwd : TBasicType TUTF8-    IO ()---subprocessLauncherSetCwd ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> T.Text                               -- cwd-    -> m ()                                 -- result-subprocessLauncherSetCwd _obj cwd = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    cwd' <- textToCString cwd-    g_subprocess_launcher_set_cwd _obj' cwd'-    touchManagedPtr _obj-    freeMem cwd'-    return ()--data SubprocessLauncherSetCwdMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetCwdMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetCwd---- method SubprocessLauncher::set_environ--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    CString ->                              -- env : TBasicType TUTF8-    IO ()---subprocessLauncherSetEnviron ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> T.Text                               -- env-    -> m ()                                 -- result-subprocessLauncherSetEnviron _obj env = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    env' <- textToCString env-    g_subprocess_launcher_set_environ _obj' env'-    touchManagedPtr _obj-    freeMem env'-    return ()--data SubprocessLauncherSetEnvironMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetEnvironMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetEnviron---- method SubprocessLauncher::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    CUInt ->                                -- flags : TInterface "Gio" "SubprocessFlags"-    IO ()---subprocessLauncherSetFlags ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> [SubprocessFlags]                    -- flags-    -> m ()                                 -- result-subprocessLauncherSetFlags _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    g_subprocess_launcher_set_flags _obj' flags'-    touchManagedPtr _obj-    return ()--data SubprocessLauncherSetFlagsMethodInfo-instance (signature ~ ([SubprocessFlags] -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetFlagsMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetFlags---- method SubprocessLauncher::set_stderr_file_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---subprocessLauncherSetStderrFilePath ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> T.Text                               -- path-    -> m ()                                 -- result-subprocessLauncherSetStderrFilePath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    path' <- textToCString path-    g_subprocess_launcher_set_stderr_file_path _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()--data SubprocessLauncherSetStderrFilePathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetStderrFilePathMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetStderrFilePath---- method SubprocessLauncher::set_stdin_file_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---subprocessLauncherSetStdinFilePath ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> T.Text                               -- path-    -> m ()                                 -- result-subprocessLauncherSetStdinFilePath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    path' <- textToCString path-    g_subprocess_launcher_set_stdin_file_path _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()--data SubprocessLauncherSetStdinFilePathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetStdinFilePathMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetStdinFilePath---- method SubprocessLauncher::set_stdout_file_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---subprocessLauncherSetStdoutFilePath ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> T.Text                               -- path-    -> m ()                                 -- result-subprocessLauncherSetStdoutFilePath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    path' <- textToCString path-    g_subprocess_launcher_set_stdout_file_path _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()--data SubprocessLauncherSetStdoutFilePathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetStdoutFilePathMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetStdoutFilePath---- method SubprocessLauncher::setenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    CString ->                              -- variable : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    CInt ->                                 -- overwrite : TBasicType TBoolean-    IO ()---subprocessLauncherSetenv ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> T.Text                               -- variable-    -> T.Text                               -- value-    -> Bool                                 -- overwrite-    -> m ()                                 -- result-subprocessLauncherSetenv _obj variable value overwrite = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    variable' <- textToCString variable-    value' <- textToCString value-    let overwrite' = (fromIntegral . fromEnum) overwrite-    g_subprocess_launcher_setenv _obj' variable' value' overwrite'-    touchManagedPtr _obj-    freeMem variable'-    freeMem value'-    return ()--data SubprocessLauncherSetenvMethodInfo-instance (signature ~ (T.Text -> T.Text -> Bool -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetenvMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetenv---- method SubprocessLauncher::spawnv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Subprocess")--- throws : True--- Skip return : False--foreign import ccall "g_subprocess_launcher_spawnv" g_subprocess_launcher_spawnv :: -    Ptr SubprocessLauncher ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    Ptr CString ->                          -- argv : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Subprocess)---subprocessLauncherSpawnv ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> [T.Text]                             -- argv-    -> m Subprocess                         -- result-subprocessLauncherSpawnv _obj argv = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    argv' <- packZeroTerminatedUTF8CArray argv-    onException (do-        result <- propagateGError $ g_subprocess_launcher_spawnv _obj' argv'-        checkUnexpectedReturnNULL "g_subprocess_launcher_spawnv" result-        result' <- (wrapObject Subprocess) result-        touchManagedPtr _obj-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-        return result'-     ) (do-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-     )--data SubprocessLauncherSpawnvMethodInfo-instance (signature ~ ([T.Text] -> m Subprocess), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSpawnvMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSpawnv---- method SubprocessLauncher::take_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    Int32 ->                                -- source_fd : TBasicType TInt-    Int32 ->                                -- target_fd : TBasicType TInt-    IO ()---subprocessLauncherTakeFd ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> Int32                                -- sourceFd-    -> Int32                                -- targetFd-    -> m ()                                 -- result-subprocessLauncherTakeFd _obj sourceFd targetFd = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_subprocess_launcher_take_fd _obj' sourceFd targetFd-    touchManagedPtr _obj-    return ()--data SubprocessLauncherTakeFdMethodInfo-instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherTakeFdMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherTakeFd---- method SubprocessLauncher::take_stderr_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    Int32 ->                                -- fd : TBasicType TInt-    IO ()---subprocessLauncherTakeStderrFd ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> Int32                                -- fd-    -> m ()                                 -- result-subprocessLauncherTakeStderrFd _obj fd = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_subprocess_launcher_take_stderr_fd _obj' fd-    touchManagedPtr _obj-    return ()--data SubprocessLauncherTakeStderrFdMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherTakeStderrFdMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherTakeStderrFd---- method SubprocessLauncher::take_stdin_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    Int32 ->                                -- fd : TBasicType TInt-    IO ()---subprocessLauncherTakeStdinFd ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> Int32                                -- fd-    -> m ()                                 -- result-subprocessLauncherTakeStdinFd _obj fd = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_subprocess_launcher_take_stdin_fd _obj' fd-    touchManagedPtr _obj-    return ()--data SubprocessLauncherTakeStdinFdMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherTakeStdinFdMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherTakeStdinFd---- method SubprocessLauncher::take_stdout_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    Int32 ->                                -- fd : TBasicType TInt-    IO ()---subprocessLauncherTakeStdoutFd ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> Int32                                -- fd-    -> m ()                                 -- result-subprocessLauncherTakeStdoutFd _obj fd = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_subprocess_launcher_take_stdout_fd _obj' fd-    touchManagedPtr _obj-    return ()--data SubprocessLauncherTakeStdoutFdMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherTakeStdoutFdMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherTakeStdoutFd---- method SubprocessLauncher::unsetenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "SubprocessLauncher"-    CString ->                              -- variable : TBasicType TUTF8-    IO ()---subprocessLauncherUnsetenv ::-    (MonadIO m, SubprocessLauncherK a) =>-    a                                       -- _obj-    -> T.Text                               -- variable-    -> m ()                                 -- result-subprocessLauncherUnsetenv _obj variable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    variable' <- textToCString variable-    g_subprocess_launcher_unsetenv _obj' variable'-    touchManagedPtr _obj-    freeMem variable'-    return ()--data SubprocessLauncherUnsetenvMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherUnsetenvMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherUnsetenv--
− GI/Gio/Objects/SubprocessLauncher.hs-boot 
@@ -1,29 +0,0 @@-module GI.Gio.Objects.SubprocessLauncher where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SubprocessLauncher = SubprocessLauncher (ForeignPtr SubprocessLauncher)-instance GObject SubprocessLauncher where-class GObject o => SubprocessLauncherK o-instance (GObject o, IsDescendantOf SubprocessLauncher o) => SubprocessLauncherK o-data SubprocessLauncherFlagsPropertyInfo-data SubprocessLauncherGetenvMethodInfo-data SubprocessLauncherSetChildSetupMethodInfo-data SubprocessLauncherSetCwdMethodInfo-data SubprocessLauncherSetEnvironMethodInfo-data SubprocessLauncherSetFlagsMethodInfo-data SubprocessLauncherSetStderrFilePathMethodInfo-data SubprocessLauncherSetStdinFilePathMethodInfo-data SubprocessLauncherSetStdoutFilePathMethodInfo-data SubprocessLauncherSetenvMethodInfo-data SubprocessLauncherSpawnvMethodInfo-data SubprocessLauncherTakeFdMethodInfo-data SubprocessLauncherTakeStderrFdMethodInfo-data SubprocessLauncherTakeStdinFdMethodInfo-data SubprocessLauncherTakeStdoutFdMethodInfo-data SubprocessLauncherUnsetenvMethodInfo
− GI/Gio/Objects/Task.hs 
@@ -1,1093 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Task-    ( ---- * Exported types-    Task(..)                                ,-    TaskK                                   ,-    toTask                                  ,-    noTask                                  ,--- -- * Methods--- ** taskGetCancellable-    TaskGetCancellableMethodInfo            ,-    taskGetCancellable                      ,----- ** taskGetCheckCancellable-    TaskGetCheckCancellableMethodInfo       ,-    taskGetCheckCancellable                 ,----- ** taskGetCompleted-    TaskGetCompletedMethodInfo              ,-    taskGetCompleted                        ,----- ** taskGetContext-    TaskGetContextMethodInfo                ,-    taskGetContext                          ,----- ** taskGetPriority-    TaskGetPriorityMethodInfo               ,-    taskGetPriority                         ,----- ** taskGetReturnOnCancel-    TaskGetReturnOnCancelMethodInfo         ,-    taskGetReturnOnCancel                   ,----- ** taskGetSourceObject-    TaskGetSourceObjectMethodInfo           ,-    taskGetSourceObject                     ,----- ** taskGetSourceTag-    TaskGetSourceTagMethodInfo              ,-    taskGetSourceTag                        ,----- ** taskGetTaskData-    TaskGetTaskDataMethodInfo               ,-    taskGetTaskData                         ,----- ** taskHadError-    TaskHadErrorMethodInfo                  ,-    taskHadError                            ,----- ** taskIsValid-    taskIsValid                             ,----- ** taskNew-    taskNew                                 ,----- ** taskPropagateBoolean-    TaskPropagateBooleanMethodInfo          ,-    taskPropagateBoolean                    ,----- ** taskPropagateInt-    TaskPropagateIntMethodInfo              ,-    taskPropagateInt                        ,----- ** taskPropagatePointer-    TaskPropagatePointerMethodInfo          ,-    taskPropagatePointer                    ,----- ** taskReportError-    taskReportError                         ,----- ** taskReturnBoolean-    TaskReturnBooleanMethodInfo             ,-    taskReturnBoolean                       ,----- ** taskReturnError-    TaskReturnErrorMethodInfo               ,-    taskReturnError                         ,----- ** taskReturnErrorIfCancelled-    TaskReturnErrorIfCancelledMethodInfo    ,-    taskReturnErrorIfCancelled              ,----- ** taskReturnInt-    TaskReturnIntMethodInfo                 ,-    taskReturnInt                           ,----- ** taskReturnPointer-    TaskReturnPointerMethodInfo             ,-    taskReturnPointer                       ,----- ** taskSetCheckCancellable-    TaskSetCheckCancellableMethodInfo       ,-    taskSetCheckCancellable                 ,----- ** taskSetPriority-    TaskSetPriorityMethodInfo               ,-    taskSetPriority                         ,----- ** taskSetReturnOnCancel-    TaskSetReturnOnCancelMethodInfo         ,-    taskSetReturnOnCancel                   ,----- ** taskSetSourceTag-    TaskSetSourceTagMethodInfo              ,-    taskSetSourceTag                        ,----- ** taskSetTaskData-    TaskSetTaskDataMethodInfo               ,-    taskSetTaskData                         ,----- -- * Properties--- ** Completed-    TaskCompletedPropertyInfo               ,-    getTaskCompleted                        ,-    taskCompleted                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype Task = Task (ForeignPtr Task)-foreign import ccall "g_task_get_type"-    c_g_task_get_type :: IO GType--type instance ParentTypes Task = TaskParentTypes-type TaskParentTypes = '[GObject.Object, AsyncResult]--instance GObject Task where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_task_get_type-    --class GObject o => TaskK o-instance (GObject o, IsDescendantOf Task o) => TaskK o--toTask :: TaskK o => o -> IO Task-toTask = unsafeCastTo Task--noTask :: Maybe Task-noTask = Nothing--type family ResolveTaskMethod (t :: Symbol) (o :: *) :: * where-    ResolveTaskMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTaskMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTaskMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTaskMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTaskMethod "hadError" o = TaskHadErrorMethodInfo-    ResolveTaskMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTaskMethod "isTagged" o = AsyncResultIsTaggedMethodInfo-    ResolveTaskMethod "legacyPropagateError" o = AsyncResultLegacyPropagateErrorMethodInfo-    ResolveTaskMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTaskMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTaskMethod "propagateBoolean" o = TaskPropagateBooleanMethodInfo-    ResolveTaskMethod "propagateInt" o = TaskPropagateIntMethodInfo-    ResolveTaskMethod "propagatePointer" o = TaskPropagatePointerMethodInfo-    ResolveTaskMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTaskMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTaskMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTaskMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTaskMethod "returnBoolean" o = TaskReturnBooleanMethodInfo-    ResolveTaskMethod "returnError" o = TaskReturnErrorMethodInfo-    ResolveTaskMethod "returnErrorIfCancelled" o = TaskReturnErrorIfCancelledMethodInfo-    ResolveTaskMethod "returnInt" o = TaskReturnIntMethodInfo-    ResolveTaskMethod "returnPointer" o = TaskReturnPointerMethodInfo-    ResolveTaskMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTaskMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTaskMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTaskMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTaskMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTaskMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTaskMethod "getCancellable" o = TaskGetCancellableMethodInfo-    ResolveTaskMethod "getCheckCancellable" o = TaskGetCheckCancellableMethodInfo-    ResolveTaskMethod "getCompleted" o = TaskGetCompletedMethodInfo-    ResolveTaskMethod "getContext" o = TaskGetContextMethodInfo-    ResolveTaskMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTaskMethod "getPriority" o = TaskGetPriorityMethodInfo-    ResolveTaskMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTaskMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTaskMethod "getReturnOnCancel" o = TaskGetReturnOnCancelMethodInfo-    ResolveTaskMethod "getSourceTag" o = TaskGetSourceTagMethodInfo-    ResolveTaskMethod "getTaskData" o = TaskGetTaskDataMethodInfo-    ResolveTaskMethod "getUserData" o = AsyncResultGetUserDataMethodInfo-    ResolveTaskMethod "setCheckCancellable" o = TaskSetCheckCancellableMethodInfo-    ResolveTaskMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTaskMethod "setPriority" o = TaskSetPriorityMethodInfo-    ResolveTaskMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTaskMethod "setReturnOnCancel" o = TaskSetReturnOnCancelMethodInfo-    ResolveTaskMethod "setSourceTag" o = TaskSetSourceTagMethodInfo-    ResolveTaskMethod "setTaskData" o = TaskSetTaskDataMethodInfo-    ResolveTaskMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTaskMethod t Task, MethodInfo info Task p) => IsLabelProxy t (Task -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTaskMethod t Task, MethodInfo info Task p) => IsLabel t (Task -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "completed"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getTaskCompleted :: (MonadIO m, TaskK o) => o -> m Bool-getTaskCompleted obj = liftIO $ getObjectPropertyBool obj "completed"--data TaskCompletedPropertyInfo-instance AttrInfo TaskCompletedPropertyInfo where-    type AttrAllowedOps TaskCompletedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint TaskCompletedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint TaskCompletedPropertyInfo = TaskK-    type AttrGetType TaskCompletedPropertyInfo = Bool-    type AttrLabel TaskCompletedPropertyInfo = "completed"-    attrGet _ = getTaskCompleted-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList Task = TaskAttributeList-type TaskAttributeList = ('[ '("completed", TaskCompletedPropertyInfo)] :: [(Symbol, *)])--taskCompleted :: AttrLabelProxy "completed"-taskCompleted = AttrLabelProxy--type instance SignalList Task = TaskSignalList-type TaskSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Task::new--- method type : Constructor--- Args : [Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Task")--- throws : False--- Skip return : False--foreign import ccall "g_task_new" g_task_new :: -    Ptr GObject.Object ->                   -- source_object : TInterface "GObject" "Object"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- callback_data : TBasicType TPtr-    IO (Ptr Task)---taskNew ::-    (MonadIO m, GObject.ObjectK a, CancellableK b) =>-    Maybe (a)                               -- sourceObject-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m Task                               -- result-taskNew sourceObject cancellable callback = liftIO $ do-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let callbackData = nullPtr-    result <- g_task_new maybeSourceObject maybeCancellable maybeCallback callbackData-    checkUnexpectedReturnNULL "g_task_new" result-    result' <- (wrapObject Task) result-    whenJust sourceObject touchManagedPtr-    whenJust cancellable touchManagedPtr-    return result'---- method Task::get_cancellable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Cancellable")--- throws : False--- Skip return : False--foreign import ccall "g_task_get_cancellable" g_task_get_cancellable :: -    Ptr Task ->                             -- _obj : TInterface "Gio" "Task"-    IO (Ptr Cancellable)---taskGetCancellable ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m Cancellable                        -- result-taskGetCancellable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_task_get_cancellable _obj'-    checkUnexpectedReturnNULL "g_task_get_cancellable" result-    result' <- (newObject Cancellable) result-    touchManagedPtr _obj-    return result'--data TaskGetCancellableMethodInfo-instance (signature ~ (m Cancellable), MonadIO m, TaskK a) => MethodInfo TaskGetCancellableMethodInfo a signature where-    overloadedMethod _ = taskGetCancellable---- method Task::get_check_cancellable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    IO CInt---taskGetCheckCancellable ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-taskGetCheckCancellable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_task_get_check_cancellable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TaskGetCheckCancellableMethodInfo-instance (signature ~ (m Bool), MonadIO m, TaskK a) => MethodInfo TaskGetCheckCancellableMethodInfo a signature where-    overloadedMethod _ = taskGetCheckCancellable---- method Task::get_completed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    IO CInt---taskGetCompleted ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-taskGetCompleted _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_task_get_completed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TaskGetCompletedMethodInfo-instance (signature ~ (m Bool), MonadIO m, TaskK a) => MethodInfo TaskGetCompletedMethodInfo a signature where-    overloadedMethod _ = taskGetCompleted---- method Task::get_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "MainContext")--- throws : False--- Skip return : False--foreign import ccall "g_task_get_context" g_task_get_context :: -    Ptr Task ->                             -- _obj : TInterface "Gio" "Task"-    IO (Ptr GLib.MainContext)---taskGetContext ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m GLib.MainContext                   -- result-taskGetContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_task_get_context _obj'-    checkUnexpectedReturnNULL "g_task_get_context" result-    result' <- (newBoxed GLib.MainContext) result-    touchManagedPtr _obj-    return result'--data TaskGetContextMethodInfo-instance (signature ~ (m GLib.MainContext), MonadIO m, TaskK a) => MethodInfo TaskGetContextMethodInfo a signature where-    overloadedMethod _ = taskGetContext---- method Task::get_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    IO Int32---taskGetPriority ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-taskGetPriority _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_task_get_priority _obj'-    touchManagedPtr _obj-    return result--data TaskGetPriorityMethodInfo-instance (signature ~ (m Int32), MonadIO m, TaskK a) => MethodInfo TaskGetPriorityMethodInfo a signature where-    overloadedMethod _ = taskGetPriority---- method Task::get_return_on_cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    IO CInt---taskGetReturnOnCancel ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-taskGetReturnOnCancel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_task_get_return_on_cancel _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TaskGetReturnOnCancelMethodInfo-instance (signature ~ (m Bool), MonadIO m, TaskK a) => MethodInfo TaskGetReturnOnCancelMethodInfo a signature where-    overloadedMethod _ = taskGetReturnOnCancel---- method Task::get_source_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GObject" "Object")--- throws : False--- Skip return : False--foreign import ccall "g_task_get_source_object" g_task_get_source_object :: -    Ptr Task ->                             -- _obj : TInterface "Gio" "Task"-    IO (Ptr GObject.Object)---taskGetSourceObject ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m GObject.Object                     -- result-taskGetSourceObject _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_task_get_source_object _obj'-    checkUnexpectedReturnNULL "g_task_get_source_object" result-    result' <- (newObject GObject.Object) result-    touchManagedPtr _obj-    return result'--data TaskGetSourceObjectMethodInfo-instance (signature ~ (m GObject.Object), MonadIO m, TaskK a) => MethodInfo TaskGetSourceObjectMethodInfo a signature where-    overloadedMethod _ = taskGetSourceObject---- method Task::get_source_tag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    IO (Ptr ())---taskGetSourceTag ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m (Ptr ())                           -- result-taskGetSourceTag _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_task_get_source_tag _obj'-    touchManagedPtr _obj-    return result--data TaskGetSourceTagMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, TaskK a) => MethodInfo TaskGetSourceTagMethodInfo a signature where-    overloadedMethod _ = taskGetSourceTag---- method Task::get_task_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    IO (Ptr ())---taskGetTaskData ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m (Ptr ())                           -- result-taskGetTaskData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_task_get_task_data _obj'-    touchManagedPtr _obj-    return result--data TaskGetTaskDataMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, TaskK a) => MethodInfo TaskGetTaskDataMethodInfo a signature where-    overloadedMethod _ = taskGetTaskData---- method Task::had_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    IO CInt---taskHadError ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-taskHadError _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_task_had_error _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TaskHadErrorMethodInfo-instance (signature ~ (m Bool), MonadIO m, TaskK a) => MethodInfo TaskHadErrorMethodInfo a signature where-    overloadedMethod _ = taskHadError---- method Task::propagate_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---taskPropagateBoolean ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-taskPropagateBoolean _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_task_propagate_boolean _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data TaskPropagateBooleanMethodInfo-instance (signature ~ (m ()), MonadIO m, TaskK a) => MethodInfo TaskPropagateBooleanMethodInfo a signature where-    overloadedMethod _ = taskPropagateBoolean---- method Task::propagate_int--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    Ptr (Ptr GError) ->                     -- error-    IO Int64---taskPropagateInt ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m Int64                              -- result-taskPropagateInt _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_task_propagate_int _obj'-        touchManagedPtr _obj-        return result-     ) (do-        return ()-     )--data TaskPropagateIntMethodInfo-instance (signature ~ (m Int64), MonadIO m, TaskK a) => MethodInfo TaskPropagateIntMethodInfo a signature where-    overloadedMethod _ = taskPropagateInt---- method Task::propagate_pointer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr ())---taskPropagatePointer ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m (Ptr ())                           -- result-taskPropagatePointer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_task_propagate_pointer _obj'-        touchManagedPtr _obj-        return result-     ) (do-        return ()-     )--data TaskPropagatePointerMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, TaskK a) => MethodInfo TaskPropagatePointerMethodInfo a signature where-    overloadedMethod _ = taskPropagatePointer---- method Task::return_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    CInt ->                                 -- result : TBasicType TBoolean-    IO ()---taskReturnBoolean ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> Bool                                 -- result_-    -> m ()                                 -- result-taskReturnBoolean _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = (fromIntegral . fromEnum) result_-    g_task_return_boolean _obj' result_'-    touchManagedPtr _obj-    return ()--data TaskReturnBooleanMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, TaskK a) => MethodInfo TaskReturnBooleanMethodInfo a signature where-    overloadedMethod _ = taskReturnBoolean---- method Task::return_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    Ptr GError ->                           -- error : TError-    IO ()---taskReturnError ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> GError                               -- error_-    -> m ()                                 -- result-taskReturnError _obj error_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    error_' <- copyBoxed error_-    g_task_return_error _obj' error_'-    touchManagedPtr _obj-    touchManagedPtr error_-    return ()--data TaskReturnErrorMethodInfo-instance (signature ~ (GError -> m ()), MonadIO m, TaskK a) => MethodInfo TaskReturnErrorMethodInfo a signature where-    overloadedMethod _ = taskReturnError---- method Task::return_error_if_cancelled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    IO CInt---taskReturnErrorIfCancelled ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-taskReturnErrorIfCancelled _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_task_return_error_if_cancelled _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TaskReturnErrorIfCancelledMethodInfo-instance (signature ~ (m Bool), MonadIO m, TaskK a) => MethodInfo TaskReturnErrorIfCancelledMethodInfo a signature where-    overloadedMethod _ = taskReturnErrorIfCancelled---- method Task::return_int--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    Int64 ->                                -- result : TBasicType TInt64-    IO ()---taskReturnInt ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> Int64                                -- result_-    -> m ()                                 -- result-taskReturnInt _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_task_return_int _obj' result_-    touchManagedPtr _obj-    return ()--data TaskReturnIntMethodInfo-instance (signature ~ (Int64 -> m ()), MonadIO m, TaskK a) => MethodInfo TaskReturnIntMethodInfo a signature where-    overloadedMethod _ = taskReturnInt---- method Task::return_pointer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "result_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "Task"-    Ptr () ->                               -- result : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- result_destroy : TInterface "GLib" "DestroyNotify"-    IO ()---taskReturnPointer ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> Ptr ()                               -- result_-    -> Maybe (GLib.DestroyNotify)           -- resultDestroy-    -> m ()                                 -- result-taskReturnPointer _obj result_ resultDestroy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    ptrresultDestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC))-    maybeResultDestroy <- case resultDestroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jResultDestroy -> do-            jResultDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrresultDestroy) jResultDestroy)-            poke ptrresultDestroy jResultDestroy'-            return jResultDestroy'-    g_task_return_pointer _obj' result_ maybeResultDestroy-    touchManagedPtr _obj-    return ()--data TaskReturnPointerMethodInfo-instance (signature ~ (Ptr () -> Maybe (GLib.DestroyNotify) -> m ()), MonadIO m, TaskK a) => MethodInfo TaskReturnPointerMethodInfo a signature where-    overloadedMethod _ = taskReturnPointer---- method Task::set_check_cancellable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_cancellable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    CInt ->                                 -- check_cancellable : TBasicType TBoolean-    IO ()---taskSetCheckCancellable ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> Bool                                 -- checkCancellable-    -> m ()                                 -- result-taskSetCheckCancellable _obj checkCancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let checkCancellable' = (fromIntegral . fromEnum) checkCancellable-    g_task_set_check_cancellable _obj' checkCancellable'-    touchManagedPtr _obj-    return ()--data TaskSetCheckCancellableMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, TaskK a) => MethodInfo TaskSetCheckCancellableMethodInfo a signature where-    overloadedMethod _ = taskSetCheckCancellable---- method Task::set_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    Int32 ->                                -- priority : TBasicType TInt-    IO ()---taskSetPriority ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> Int32                                -- priority-    -> m ()                                 -- result-taskSetPriority _obj priority = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_task_set_priority _obj' priority-    touchManagedPtr _obj-    return ()--data TaskSetPriorityMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, TaskK a) => MethodInfo TaskSetPriorityMethodInfo a signature where-    overloadedMethod _ = taskSetPriority---- method Task::set_return_on_cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "return_on_cancel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    CInt ->                                 -- return_on_cancel : TBasicType TBoolean-    IO CInt---taskSetReturnOnCancel ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> Bool                                 -- returnOnCancel-    -> m Bool                               -- result-taskSetReturnOnCancel _obj returnOnCancel = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let returnOnCancel' = (fromIntegral . fromEnum) returnOnCancel-    result <- g_task_set_return_on_cancel _obj' returnOnCancel'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TaskSetReturnOnCancelMethodInfo-instance (signature ~ (Bool -> m Bool), MonadIO m, TaskK a) => MethodInfo TaskSetReturnOnCancelMethodInfo a signature where-    overloadedMethod _ = taskSetReturnOnCancel---- method Task::set_source_tag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                             -- _obj : TInterface "Gio" "Task"-    Ptr () ->                               -- source_tag : TBasicType TPtr-    IO ()---taskSetSourceTag ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> Ptr ()                               -- sourceTag-    -> m ()                                 -- result-taskSetSourceTag _obj sourceTag = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_task_set_source_tag _obj' sourceTag-    touchManagedPtr _obj-    return ()--data TaskSetSourceTagMethodInfo-instance (signature ~ (Ptr () -> m ()), MonadIO m, TaskK a) => MethodInfo TaskSetSourceTagMethodInfo a signature where-    overloadedMethod _ = taskSetSourceTag---- method Task::set_task_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "task_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "task_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, 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 ->                             -- _obj : TInterface "Gio" "Task"-    Ptr () ->                               -- task_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- task_data_destroy : TInterface "GLib" "DestroyNotify"-    IO ()---taskSetTaskData ::-    (MonadIO m, TaskK a) =>-    a                                       -- _obj-    -> Ptr ()                               -- taskData-    -> Maybe (GLib.DestroyNotify)           -- taskDataDestroy-    -> m ()                                 -- result-taskSetTaskData _obj taskData taskDataDestroy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    ptrtaskDataDestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC))-    maybeTaskDataDestroy <- case taskDataDestroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jTaskDataDestroy -> do-            jTaskDataDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrtaskDataDestroy) jTaskDataDestroy)-            poke ptrtaskDataDestroy jTaskDataDestroy'-            return jTaskDataDestroy'-    g_task_set_task_data _obj' taskData maybeTaskDataDestroy-    touchManagedPtr _obj-    return ()--data TaskSetTaskDataMethodInfo-instance (signature ~ (Ptr () -> Maybe (GLib.DestroyNotify) -> m ()), MonadIO m, TaskK a) => MethodInfo TaskSetTaskDataMethodInfo a signature where-    overloadedMethod _ = taskSetTaskData---- method Task::is_valid--- method type : MemberFunction--- Args : [Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, 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 AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr GObject.Object ->                   -- source_object : TInterface "GObject" "Object"-    IO CInt---taskIsValid ::-    (MonadIO m, AsyncResultK a, GObject.ObjectK b) =>-    a                                       -- result_-    -> Maybe (b)                            -- sourceObject-    -> m Bool                               -- result-taskIsValid result_ sourceObject = liftIO $ do-    let result_' = unsafeManagedPtrCastPtr result_-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    result <- g_task_is_valid result_' maybeSourceObject-    let result' = (/= 0) result-    touchManagedPtr result_-    whenJust sourceObject touchManagedPtr-    return result'---- method Task::report_error--- method type : MemberFunction--- Args : [Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, 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 ->                   -- source_object : TInterface "GObject" "Object"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- callback_data : TBasicType TPtr-    Ptr () ->                               -- source_tag : TBasicType TPtr-    Ptr GError ->                           -- error : TError-    IO ()---taskReportError ::-    (MonadIO m, GObject.ObjectK a) =>-    Maybe (a)                               -- sourceObject-    -> Maybe (AsyncReadyCallback)           -- callback-    -> Ptr ()                               -- sourceTag-    -> GError                               -- error_-    -> m ()                                 -- result-taskReportError sourceObject callback sourceTag error_ = liftIO $ do-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    error_' <- copyBoxed error_-    let callbackData = nullPtr-    g_task_report_error maybeSourceObject maybeCallback callbackData sourceTag error_'-    whenJust sourceObject touchManagedPtr-    touchManagedPtr error_-    return ()--
− GI/Gio/Objects/Task.hs-boot 
@@ -1,37 +0,0 @@-module GI.Gio.Objects.Task where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Task = Task (ForeignPtr Task)-instance GObject Task where-class GObject o => TaskK o-instance (GObject o, IsDescendantOf Task o) => TaskK o-data TaskCompletedPropertyInfo-data TaskGetCancellableMethodInfo-data TaskGetCheckCancellableMethodInfo-data TaskGetCompletedMethodInfo-data TaskGetContextMethodInfo-data TaskGetPriorityMethodInfo-data TaskGetReturnOnCancelMethodInfo-data TaskGetSourceObjectMethodInfo-data TaskGetSourceTagMethodInfo-data TaskGetTaskDataMethodInfo-data TaskHadErrorMethodInfo-data TaskPropagateBooleanMethodInfo-data TaskPropagateIntMethodInfo-data TaskPropagatePointerMethodInfo-data TaskReturnBooleanMethodInfo-data TaskReturnErrorMethodInfo-data TaskReturnErrorIfCancelledMethodInfo-data TaskReturnIntMethodInfo-data TaskReturnPointerMethodInfo-data TaskSetCheckCancellableMethodInfo-data TaskSetPriorityMethodInfo-data TaskSetReturnOnCancelMethodInfo-data TaskSetSourceTagMethodInfo-data TaskSetTaskDataMethodInfo
− GI/Gio/Objects/TcpConnection.hs 
@@ -1,222 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.TcpConnection-    ( ---- * Exported types-    TcpConnection(..)                       ,-    TcpConnectionK                          ,-    toTcpConnection                         ,-    noTcpConnection                         ,--- -- * Methods--- ** tcpConnectionGetGracefulDisconnect-    TcpConnectionGetGracefulDisconnectMethodInfo,-    tcpConnectionGetGracefulDisconnect      ,----- ** tcpConnectionSetGracefulDisconnect-    TcpConnectionSetGracefulDisconnectMethodInfo,-    tcpConnectionSetGracefulDisconnect      ,----- -- * Properties--- ** GracefulDisconnect-    TcpConnectionGracefulDisconnectPropertyInfo,-    constructTcpConnectionGracefulDisconnect,-    getTcpConnectionGracefulDisconnect      ,-    setTcpConnectionGracefulDisconnect      ,-    tcpConnectionGracefulDisconnect         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype TcpConnection = TcpConnection (ForeignPtr TcpConnection)-foreign import ccall "g_tcp_connection_get_type"-    c_g_tcp_connection_get_type :: IO GType--type instance ParentTypes TcpConnection = TcpConnectionParentTypes-type TcpConnectionParentTypes = '[SocketConnection, IOStream, GObject.Object]--instance GObject TcpConnection where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_tcp_connection_get_type-    --class GObject o => TcpConnectionK o-instance (GObject o, IsDescendantOf TcpConnection o) => TcpConnectionK o--toTcpConnection :: TcpConnectionK o => o -> IO TcpConnection-toTcpConnection = unsafeCastTo TcpConnection--noTcpConnection :: Maybe TcpConnection-noTcpConnection = Nothing--type family ResolveTcpConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTcpConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTcpConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTcpConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo-    ResolveTcpConnectionMethod "close" o = IOStreamCloseMethodInfo-    ResolveTcpConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo-    ResolveTcpConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo-    ResolveTcpConnectionMethod "connect" o = SocketConnectionConnectMethodInfo-    ResolveTcpConnectionMethod "connectAsync" o = SocketConnectionConnectAsyncMethodInfo-    ResolveTcpConnectionMethod "connectFinish" o = SocketConnectionConnectFinishMethodInfo-    ResolveTcpConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTcpConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTcpConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo-    ResolveTcpConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo-    ResolveTcpConnectionMethod "isConnected" o = SocketConnectionIsConnectedMethodInfo-    ResolveTcpConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTcpConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTcpConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTcpConnectionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTcpConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTcpConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTcpConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTcpConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTcpConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo-    ResolveTcpConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTcpConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTcpConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTcpConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTcpConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTcpConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTcpConnectionMethod "getGracefulDisconnect" o = TcpConnectionGetGracefulDisconnectMethodInfo-    ResolveTcpConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo-    ResolveTcpConnectionMethod "getLocalAddress" o = SocketConnectionGetLocalAddressMethodInfo-    ResolveTcpConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo-    ResolveTcpConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTcpConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTcpConnectionMethod "getRemoteAddress" o = SocketConnectionGetRemoteAddressMethodInfo-    ResolveTcpConnectionMethod "getSocket" o = SocketConnectionGetSocketMethodInfo-    ResolveTcpConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTcpConnectionMethod "setGracefulDisconnect" o = TcpConnectionSetGracefulDisconnectMethodInfo-    ResolveTcpConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo-    ResolveTcpConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTcpConnectionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTcpConnectionMethod t TcpConnection, MethodInfo info TcpConnection p) => IsLabelProxy t (TcpConnection -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTcpConnectionMethod t TcpConnection, MethodInfo info TcpConnection p) => IsLabel t (TcpConnection -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "graceful-disconnect"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getTcpConnectionGracefulDisconnect :: (MonadIO m, TcpConnectionK o) => o -> m Bool-getTcpConnectionGracefulDisconnect obj = liftIO $ getObjectPropertyBool obj "graceful-disconnect"--setTcpConnectionGracefulDisconnect :: (MonadIO m, TcpConnectionK o) => o -> Bool -> m ()-setTcpConnectionGracefulDisconnect obj val = liftIO $ setObjectPropertyBool obj "graceful-disconnect" val--constructTcpConnectionGracefulDisconnect :: Bool -> IO ([Char], GValue)-constructTcpConnectionGracefulDisconnect val = constructObjectPropertyBool "graceful-disconnect" val--data TcpConnectionGracefulDisconnectPropertyInfo-instance AttrInfo TcpConnectionGracefulDisconnectPropertyInfo where-    type AttrAllowedOps TcpConnectionGracefulDisconnectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TcpConnectionGracefulDisconnectPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint TcpConnectionGracefulDisconnectPropertyInfo = TcpConnectionK-    type AttrGetType TcpConnectionGracefulDisconnectPropertyInfo = Bool-    type AttrLabel TcpConnectionGracefulDisconnectPropertyInfo = "graceful-disconnect"-    attrGet _ = getTcpConnectionGracefulDisconnect-    attrSet _ = setTcpConnectionGracefulDisconnect-    attrConstruct _ = constructTcpConnectionGracefulDisconnect-    attrClear _ = undefined--type instance AttributeList TcpConnection = TcpConnectionAttributeList-type TcpConnectionAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("gracefulDisconnect", TcpConnectionGracefulDisconnectPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)])--tcpConnectionGracefulDisconnect :: AttrLabelProxy "gracefulDisconnect"-tcpConnectionGracefulDisconnect = AttrLabelProxy--type instance SignalList TcpConnection = TcpConnectionSignalList-type TcpConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method TcpConnection::get_graceful_disconnect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TcpConnection", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TcpConnection"-    IO CInt---tcpConnectionGetGracefulDisconnect ::-    (MonadIO m, TcpConnectionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-tcpConnectionGetGracefulDisconnect _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tcp_connection_get_graceful_disconnect _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TcpConnectionGetGracefulDisconnectMethodInfo-instance (signature ~ (m Bool), MonadIO m, TcpConnectionK a) => MethodInfo TcpConnectionGetGracefulDisconnectMethodInfo a signature where-    overloadedMethod _ = tcpConnectionGetGracefulDisconnect---- method TcpConnection::set_graceful_disconnect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TcpConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "graceful_disconnect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TcpConnection"-    CInt ->                                 -- graceful_disconnect : TBasicType TBoolean-    IO ()---tcpConnectionSetGracefulDisconnect ::-    (MonadIO m, TcpConnectionK a) =>-    a                                       -- _obj-    -> Bool                                 -- gracefulDisconnect-    -> m ()                                 -- result-tcpConnectionSetGracefulDisconnect _obj gracefulDisconnect = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let gracefulDisconnect' = (fromIntegral . fromEnum) gracefulDisconnect-    g_tcp_connection_set_graceful_disconnect _obj' gracefulDisconnect'-    touchManagedPtr _obj-    return ()--data TcpConnectionSetGracefulDisconnectMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, TcpConnectionK a) => MethodInfo TcpConnectionSetGracefulDisconnectMethodInfo a signature where-    overloadedMethod _ = tcpConnectionSetGracefulDisconnect--
− GI/Gio/Objects/TcpConnection.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gio.Objects.TcpConnection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TcpConnection = TcpConnection (ForeignPtr TcpConnection)-instance GObject TcpConnection where-class GObject o => TcpConnectionK o-instance (GObject o, IsDescendantOf TcpConnection o) => TcpConnectionK o-data TcpConnectionGracefulDisconnectPropertyInfo-data TcpConnectionGetGracefulDisconnectMethodInfo-data TcpConnectionSetGracefulDisconnectMethodInfo
− GI/Gio/Objects/TcpWrapperConnection.hs 
@@ -1,218 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.TcpWrapperConnection-    ( ---- * Exported types-    TcpWrapperConnection(..)                ,-    TcpWrapperConnectionK                   ,-    toTcpWrapperConnection                  ,-    noTcpWrapperConnection                  ,--- -- * Methods--- ** tcpWrapperConnectionGetBaseIoStream-    TcpWrapperConnectionGetBaseIoStreamMethodInfo,-    tcpWrapperConnectionGetBaseIoStream     ,----- ** tcpWrapperConnectionNew-    tcpWrapperConnectionNew                 ,----- -- * Properties--- ** BaseIoStream-    TcpWrapperConnectionBaseIoStreamPropertyInfo,-    constructTcpWrapperConnectionBaseIoStream,-    getTcpWrapperConnectionBaseIoStream     ,-    tcpWrapperConnectionBaseIoStream        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype TcpWrapperConnection = TcpWrapperConnection (ForeignPtr TcpWrapperConnection)-foreign import ccall "g_tcp_wrapper_connection_get_type"-    c_g_tcp_wrapper_connection_get_type :: IO GType--type instance ParentTypes TcpWrapperConnection = TcpWrapperConnectionParentTypes-type TcpWrapperConnectionParentTypes = '[TcpConnection, SocketConnection, IOStream, GObject.Object]--instance GObject TcpWrapperConnection where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_tcp_wrapper_connection_get_type-    --class GObject o => TcpWrapperConnectionK o-instance (GObject o, IsDescendantOf TcpWrapperConnection o) => TcpWrapperConnectionK o--toTcpWrapperConnection :: TcpWrapperConnectionK o => o -> IO TcpWrapperConnection-toTcpWrapperConnection = unsafeCastTo TcpWrapperConnection--noTcpWrapperConnection :: Maybe TcpWrapperConnection-noTcpWrapperConnection = Nothing--type family ResolveTcpWrapperConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTcpWrapperConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTcpWrapperConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTcpWrapperConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo-    ResolveTcpWrapperConnectionMethod "close" o = IOStreamCloseMethodInfo-    ResolveTcpWrapperConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo-    ResolveTcpWrapperConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo-    ResolveTcpWrapperConnectionMethod "connect" o = SocketConnectionConnectMethodInfo-    ResolveTcpWrapperConnectionMethod "connectAsync" o = SocketConnectionConnectAsyncMethodInfo-    ResolveTcpWrapperConnectionMethod "connectFinish" o = SocketConnectionConnectFinishMethodInfo-    ResolveTcpWrapperConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTcpWrapperConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTcpWrapperConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo-    ResolveTcpWrapperConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo-    ResolveTcpWrapperConnectionMethod "isConnected" o = SocketConnectionIsConnectedMethodInfo-    ResolveTcpWrapperConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTcpWrapperConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTcpWrapperConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTcpWrapperConnectionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTcpWrapperConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTcpWrapperConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTcpWrapperConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTcpWrapperConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTcpWrapperConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo-    ResolveTcpWrapperConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTcpWrapperConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTcpWrapperConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTcpWrapperConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTcpWrapperConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTcpWrapperConnectionMethod "getBaseIoStream" o = TcpWrapperConnectionGetBaseIoStreamMethodInfo-    ResolveTcpWrapperConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTcpWrapperConnectionMethod "getGracefulDisconnect" o = TcpConnectionGetGracefulDisconnectMethodInfo-    ResolveTcpWrapperConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo-    ResolveTcpWrapperConnectionMethod "getLocalAddress" o = SocketConnectionGetLocalAddressMethodInfo-    ResolveTcpWrapperConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo-    ResolveTcpWrapperConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTcpWrapperConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTcpWrapperConnectionMethod "getRemoteAddress" o = SocketConnectionGetRemoteAddressMethodInfo-    ResolveTcpWrapperConnectionMethod "getSocket" o = SocketConnectionGetSocketMethodInfo-    ResolveTcpWrapperConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTcpWrapperConnectionMethod "setGracefulDisconnect" o = TcpConnectionSetGracefulDisconnectMethodInfo-    ResolveTcpWrapperConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo-    ResolveTcpWrapperConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTcpWrapperConnectionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTcpWrapperConnectionMethod t TcpWrapperConnection, MethodInfo info TcpWrapperConnection p) => IsLabelProxy t (TcpWrapperConnection -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTcpWrapperConnectionMethod t TcpWrapperConnection, MethodInfo info TcpWrapperConnection p) => IsLabel t (TcpWrapperConnection -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "base-io-stream"-   -- Type: TInterface "Gio" "IOStream"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getTcpWrapperConnectionBaseIoStream :: (MonadIO m, TcpWrapperConnectionK o) => o -> m IOStream-getTcpWrapperConnectionBaseIoStream obj = liftIO $ checkUnexpectedNothing "getTcpWrapperConnectionBaseIoStream" $ getObjectPropertyObject obj "base-io-stream" IOStream--constructTcpWrapperConnectionBaseIoStream :: (IOStreamK a) => a -> IO ([Char], GValue)-constructTcpWrapperConnectionBaseIoStream val = constructObjectPropertyObject "base-io-stream" (Just val)--data TcpWrapperConnectionBaseIoStreamPropertyInfo-instance AttrInfo TcpWrapperConnectionBaseIoStreamPropertyInfo where-    type AttrAllowedOps TcpWrapperConnectionBaseIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TcpWrapperConnectionBaseIoStreamPropertyInfo = IOStreamK-    type AttrBaseTypeConstraint TcpWrapperConnectionBaseIoStreamPropertyInfo = TcpWrapperConnectionK-    type AttrGetType TcpWrapperConnectionBaseIoStreamPropertyInfo = IOStream-    type AttrLabel TcpWrapperConnectionBaseIoStreamPropertyInfo = "base-io-stream"-    attrGet _ = getTcpWrapperConnectionBaseIoStream-    attrSet _ = undefined-    attrConstruct _ = constructTcpWrapperConnectionBaseIoStream-    attrClear _ = undefined--type instance AttributeList TcpWrapperConnection = TcpWrapperConnectionAttributeList-type TcpWrapperConnectionAttributeList = ('[ '("baseIoStream", TcpWrapperConnectionBaseIoStreamPropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("gracefulDisconnect", TcpConnectionGracefulDisconnectPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)])--tcpWrapperConnectionBaseIoStream :: AttrLabelProxy "baseIoStream"-tcpWrapperConnectionBaseIoStream = AttrLabelProxy--type instance SignalList TcpWrapperConnection = TcpWrapperConnectionSignalList-type TcpWrapperConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method TcpWrapperConnection::new--- method type : Constructor--- Args : [Arg {argCName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TcpWrapperConnection")--- throws : False--- Skip return : False--foreign import ccall "g_tcp_wrapper_connection_new" g_tcp_wrapper_connection_new :: -    Ptr IOStream ->                         -- base_io_stream : TInterface "Gio" "IOStream"-    Ptr Socket ->                           -- socket : TInterface "Gio" "Socket"-    IO (Ptr TcpWrapperConnection)---tcpWrapperConnectionNew ::-    (MonadIO m, IOStreamK a, SocketK b) =>-    a                                       -- baseIoStream-    -> b                                    -- socket-    -> m TcpWrapperConnection               -- result-tcpWrapperConnectionNew baseIoStream socket = liftIO $ do-    let baseIoStream' = unsafeManagedPtrCastPtr baseIoStream-    let socket' = unsafeManagedPtrCastPtr socket-    result <- g_tcp_wrapper_connection_new baseIoStream' socket'-    checkUnexpectedReturnNULL "g_tcp_wrapper_connection_new" result-    result' <- (wrapObject TcpWrapperConnection) result-    touchManagedPtr baseIoStream-    touchManagedPtr socket-    return result'---- method TcpWrapperConnection::get_base_io_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TcpWrapperConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->             -- _obj : TInterface "Gio" "TcpWrapperConnection"-    IO (Ptr IOStream)---tcpWrapperConnectionGetBaseIoStream ::-    (MonadIO m, TcpWrapperConnectionK a) =>-    a                                       -- _obj-    -> m IOStream                           -- result-tcpWrapperConnectionGetBaseIoStream _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tcp_wrapper_connection_get_base_io_stream _obj'-    checkUnexpectedReturnNULL "g_tcp_wrapper_connection_get_base_io_stream" result-    result' <- (newObject IOStream) result-    touchManagedPtr _obj-    return result'--data TcpWrapperConnectionGetBaseIoStreamMethodInfo-instance (signature ~ (m IOStream), MonadIO m, TcpWrapperConnectionK a) => MethodInfo TcpWrapperConnectionGetBaseIoStreamMethodInfo a signature where-    overloadedMethod _ = tcpWrapperConnectionGetBaseIoStream--
− GI/Gio/Objects/TcpWrapperConnection.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Objects.TcpWrapperConnection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TcpWrapperConnection = TcpWrapperConnection (ForeignPtr TcpWrapperConnection)-instance GObject TcpWrapperConnection where-class GObject o => TcpWrapperConnectionK o-instance (GObject o, IsDescendantOf TcpWrapperConnection o) => TcpWrapperConnectionK o-data TcpWrapperConnectionBaseIoStreamPropertyInfo-data TcpWrapperConnectionGetBaseIoStreamMethodInfo
− GI/Gio/Objects/TestDBus.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.TestDBus-    ( ---- * Exported types-    TestDBus(..)                            ,-    TestDBusK                               ,-    toTestDBus                              ,-    noTestDBus                              ,--- -- * Methods--- ** testDBusAddServiceDir-    TestDBusAddServiceDirMethodInfo         ,-    testDBusAddServiceDir                   ,----- ** testDBusDown-    TestDBusDownMethodInfo                  ,-    testDBusDown                            ,----- ** testDBusGetBusAddress-    TestDBusGetBusAddressMethodInfo         ,-    testDBusGetBusAddress                   ,----- ** testDBusGetFlags-    TestDBusGetFlagsMethodInfo              ,-    testDBusGetFlags                        ,----- ** testDBusNew-    testDBusNew                             ,----- ** testDBusStop-    TestDBusStopMethodInfo                  ,-    testDBusStop                            ,----- ** testDBusUnset-    testDBusUnset                           ,----- ** testDBusUp-    TestDBusUpMethodInfo                    ,-    testDBusUp                              ,----- -- * Properties--- ** Flags-    TestDBusFlagsPropertyInfo               ,-    constructTestDBusFlags                  ,-    getTestDBusFlags                        ,-    testDBusFlags                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype TestDBus = TestDBus (ForeignPtr TestDBus)-foreign import ccall "g_test_dbus_get_type"-    c_g_test_dbus_get_type :: IO GType--type instance ParentTypes TestDBus = TestDBusParentTypes-type TestDBusParentTypes = '[GObject.Object]--instance GObject TestDBus where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_test_dbus_get_type-    --class GObject o => TestDBusK o-instance (GObject o, IsDescendantOf TestDBus o) => TestDBusK o--toTestDBus :: TestDBusK o => o -> IO TestDBus-toTestDBus = unsafeCastTo TestDBus--noTestDBus :: Maybe TestDBus-noTestDBus = Nothing--type family ResolveTestDBusMethod (t :: Symbol) (o :: *) :: * where-    ResolveTestDBusMethod "addServiceDir" o = TestDBusAddServiceDirMethodInfo-    ResolveTestDBusMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTestDBusMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTestDBusMethod "down" o = TestDBusDownMethodInfo-    ResolveTestDBusMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTestDBusMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTestDBusMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTestDBusMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTestDBusMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTestDBusMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTestDBusMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTestDBusMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTestDBusMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTestDBusMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTestDBusMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTestDBusMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTestDBusMethod "stop" o = TestDBusStopMethodInfo-    ResolveTestDBusMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTestDBusMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTestDBusMethod "up" o = TestDBusUpMethodInfo-    ResolveTestDBusMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTestDBusMethod "getBusAddress" o = TestDBusGetBusAddressMethodInfo-    ResolveTestDBusMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTestDBusMethod "getFlags" o = TestDBusGetFlagsMethodInfo-    ResolveTestDBusMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTestDBusMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTestDBusMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTestDBusMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTestDBusMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTestDBusMethod t TestDBus, MethodInfo info TestDBus p) => IsLabelProxy t (TestDBus -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTestDBusMethod t TestDBus, MethodInfo info TestDBus p) => IsLabel t (TestDBus -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "flags"-   -- Type: TInterface "Gio" "TestDBusFlags"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getTestDBusFlags :: (MonadIO m, TestDBusK o) => o -> m [TestDBusFlags]-getTestDBusFlags obj = liftIO $ getObjectPropertyFlags obj "flags"--constructTestDBusFlags :: [TestDBusFlags] -> IO ([Char], GValue)-constructTestDBusFlags val = constructObjectPropertyFlags "flags" val--data TestDBusFlagsPropertyInfo-instance AttrInfo TestDBusFlagsPropertyInfo where-    type AttrAllowedOps TestDBusFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TestDBusFlagsPropertyInfo = (~) [TestDBusFlags]-    type AttrBaseTypeConstraint TestDBusFlagsPropertyInfo = TestDBusK-    type AttrGetType TestDBusFlagsPropertyInfo = [TestDBusFlags]-    type AttrLabel TestDBusFlagsPropertyInfo = "flags"-    attrGet _ = getTestDBusFlags-    attrSet _ = undefined-    attrConstruct _ = constructTestDBusFlags-    attrClear _ = undefined--type instance AttributeList TestDBus = TestDBusAttributeList-type TestDBusAttributeList = ('[ '("flags", TestDBusFlagsPropertyInfo)] :: [(Symbol, *)])--testDBusFlags :: AttrLabelProxy "flags"-testDBusFlags = AttrLabelProxy--type instance SignalList TestDBus = TestDBusSignalList-type TestDBusSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method TestDBus::new--- method type : Constructor--- Args : [Arg {argCName = "flags", argType = TInterface "Gio" "TestDBusFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TestDBus")--- throws : False--- Skip return : False--foreign import ccall "g_test_dbus_new" g_test_dbus_new :: -    CUInt ->                                -- flags : TInterface "Gio" "TestDBusFlags"-    IO (Ptr TestDBus)---testDBusNew ::-    (MonadIO m) =>-    [TestDBusFlags]                         -- flags-    -> m TestDBus                           -- result-testDBusNew flags = liftIO $ do-    let flags' = gflagsToWord flags-    result <- g_test_dbus_new flags'-    checkUnexpectedReturnNULL "g_test_dbus_new" result-    result' <- (wrapObject TestDBus) result-    return result'---- method TestDBus::add_service_dir--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "TestDBus"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---testDBusAddServiceDir ::-    (MonadIO m, TestDBusK a) =>-    a                                       -- _obj-    -> T.Text                               -- path-    -> m ()                                 -- result-testDBusAddServiceDir _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    path' <- textToCString path-    g_test_dbus_add_service_dir _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()--data TestDBusAddServiceDirMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, TestDBusK a) => MethodInfo TestDBusAddServiceDirMethodInfo a signature where-    overloadedMethod _ = testDBusAddServiceDir---- method TestDBus::down--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "TestDBus"-    IO ()---testDBusDown ::-    (MonadIO m, TestDBusK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-testDBusDown _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_test_dbus_down _obj'-    touchManagedPtr _obj-    return ()--data TestDBusDownMethodInfo-instance (signature ~ (m ()), MonadIO m, TestDBusK a) => MethodInfo TestDBusDownMethodInfo a signature where-    overloadedMethod _ = testDBusDown---- method TestDBus::get_bus_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "TestDBus"-    IO CString---testDBusGetBusAddress ::-    (MonadIO m, TestDBusK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-testDBusGetBusAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_test_dbus_get_bus_address _obj'-    checkUnexpectedReturnNULL "g_test_dbus_get_bus_address" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data TestDBusGetBusAddressMethodInfo-instance (signature ~ (m T.Text), MonadIO m, TestDBusK a) => MethodInfo TestDBusGetBusAddressMethodInfo a signature where-    overloadedMethod _ = testDBusGetBusAddress---- method TestDBus::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TestDBusFlags")--- throws : False--- Skip return : False--foreign import ccall "g_test_dbus_get_flags" g_test_dbus_get_flags :: -    Ptr TestDBus ->                         -- _obj : TInterface "Gio" "TestDBus"-    IO CUInt---testDBusGetFlags ::-    (MonadIO m, TestDBusK a) =>-    a                                       -- _obj-    -> m [TestDBusFlags]                    -- result-testDBusGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_test_dbus_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data TestDBusGetFlagsMethodInfo-instance (signature ~ (m [TestDBusFlags]), MonadIO m, TestDBusK a) => MethodInfo TestDBusGetFlagsMethodInfo a signature where-    overloadedMethod _ = testDBusGetFlags---- method TestDBus::stop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "TestDBus"-    IO ()---testDBusStop ::-    (MonadIO m, TestDBusK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-testDBusStop _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_test_dbus_stop _obj'-    touchManagedPtr _obj-    return ()--data TestDBusStopMethodInfo-instance (signature ~ (m ()), MonadIO m, TestDBusK a) => MethodInfo TestDBusStopMethodInfo a signature where-    overloadedMethod _ = testDBusStop---- method TestDBus::up--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "TestDBus"-    IO ()---testDBusUp ::-    (MonadIO m, TestDBusK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-testDBusUp _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_test_dbus_up _obj'-    touchManagedPtr _obj-    return ()--data TestDBusUpMethodInfo-instance (signature ~ (m ()), MonadIO m, TestDBusK a) => MethodInfo TestDBusUpMethodInfo a signature where-    overloadedMethod _ = testDBusUp---- 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 ()---testDBusUnset ::-    (MonadIO m) =>-    m ()                                    -- result-testDBusUnset  = liftIO $ do-    g_test_dbus_unset-    return ()--
− GI/Gio/Objects/TestDBus.hs-boot 
@@ -1,20 +0,0 @@-module GI.Gio.Objects.TestDBus where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TestDBus = TestDBus (ForeignPtr TestDBus)-instance GObject TestDBus where-class GObject o => TestDBusK o-instance (GObject o, IsDescendantOf TestDBus o) => TestDBusK o-data TestDBusFlagsPropertyInfo-data TestDBusAddServiceDirMethodInfo-data TestDBusDownMethodInfo-data TestDBusGetBusAddressMethodInfo-data TestDBusGetFlagsMethodInfo-data TestDBusStopMethodInfo-data TestDBusUpMethodInfo
− GI/Gio/Objects/ThemedIcon.hs 
@@ -1,395 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.ThemedIcon-    ( ---- * Exported types-    ThemedIcon(..)                          ,-    ThemedIconK                             ,-    toThemedIcon                            ,-    noThemedIcon                            ,--- -- * Methods--- ** themedIconAppendName-    ThemedIconAppendNameMethodInfo          ,-    themedIconAppendName                    ,----- ** themedIconGetNames-    ThemedIconGetNamesMethodInfo            ,-    themedIconGetNames                      ,----- ** themedIconNew-    themedIconNew                           ,----- ** themedIconNewFromNames-    themedIconNewFromNames                  ,----- ** themedIconNewWithDefaultFallbacks-    themedIconNewWithDefaultFallbacks       ,----- ** themedIconPrependName-    ThemedIconPrependNameMethodInfo         ,-    themedIconPrependName                   ,----- -- * Properties--- ** Name-    ThemedIconNamePropertyInfo              ,-    constructThemedIconName                 ,-    themedIconName                          ,----- ** Names-    ThemedIconNamesPropertyInfo             ,-    constructThemedIconNames                ,-    getThemedIconNames                      ,-    themedIconNames                         ,----- ** UseDefaultFallbacks-    ThemedIconUseDefaultFallbacksPropertyInfo,-    constructThemedIconUseDefaultFallbacks  ,-    getThemedIconUseDefaultFallbacks        ,-    themedIconUseDefaultFallbacks           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype ThemedIcon = ThemedIcon (ForeignPtr ThemedIcon)-foreign import ccall "g_themed_icon_get_type"-    c_g_themed_icon_get_type :: IO GType--type instance ParentTypes ThemedIcon = ThemedIconParentTypes-type ThemedIconParentTypes = '[GObject.Object, Icon]--instance GObject ThemedIcon where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_themed_icon_get_type-    --class GObject o => ThemedIconK o-instance (GObject o, IsDescendantOf ThemedIcon o) => ThemedIconK o--toThemedIcon :: ThemedIconK o => o -> IO ThemedIcon-toThemedIcon = unsafeCastTo ThemedIcon--noThemedIcon :: Maybe ThemedIcon-noThemedIcon = Nothing--type family ResolveThemedIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveThemedIconMethod "appendName" o = ThemedIconAppendNameMethodInfo-    ResolveThemedIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveThemedIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveThemedIconMethod "equal" o = IconEqualMethodInfo-    ResolveThemedIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveThemedIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveThemedIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveThemedIconMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveThemedIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveThemedIconMethod "prependName" o = ThemedIconPrependNameMethodInfo-    ResolveThemedIconMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveThemedIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveThemedIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveThemedIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveThemedIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveThemedIconMethod "serialize" o = IconSerializeMethodInfo-    ResolveThemedIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveThemedIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveThemedIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveThemedIconMethod "toString" o = IconToStringMethodInfo-    ResolveThemedIconMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveThemedIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveThemedIconMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveThemedIconMethod "getNames" o = ThemedIconGetNamesMethodInfo-    ResolveThemedIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveThemedIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveThemedIconMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveThemedIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveThemedIconMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveThemedIconMethod t ThemedIcon, MethodInfo info ThemedIcon p) => IsLabelProxy t (ThemedIcon -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveThemedIconMethod t ThemedIcon, MethodInfo info ThemedIcon p) => IsLabel t (ThemedIcon -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructThemedIconName :: T.Text -> IO ([Char], GValue)-constructThemedIconName val = constructObjectPropertyString "name" (Just val)--data ThemedIconNamePropertyInfo-instance AttrInfo ThemedIconNamePropertyInfo where-    type AttrAllowedOps ThemedIconNamePropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ThemedIconNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ThemedIconNamePropertyInfo = ThemedIconK-    type AttrGetType ThemedIconNamePropertyInfo = ()-    type AttrLabel ThemedIconNamePropertyInfo = "name"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructThemedIconName-    attrClear _ = undefined---- VVV Prop "names"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getThemedIconNames :: (MonadIO m, ThemedIconK o) => o -> m [T.Text]-getThemedIconNames obj = liftIO $ checkUnexpectedNothing "getThemedIconNames" $ getObjectPropertyStringArray obj "names"--constructThemedIconNames :: [T.Text] -> IO ([Char], GValue)-constructThemedIconNames val = constructObjectPropertyStringArray "names" (Just val)--data ThemedIconNamesPropertyInfo-instance AttrInfo ThemedIconNamesPropertyInfo where-    type AttrAllowedOps ThemedIconNamesPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ThemedIconNamesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint ThemedIconNamesPropertyInfo = ThemedIconK-    type AttrGetType ThemedIconNamesPropertyInfo = [T.Text]-    type AttrLabel ThemedIconNamesPropertyInfo = "names"-    attrGet _ = getThemedIconNames-    attrSet _ = undefined-    attrConstruct _ = constructThemedIconNames-    attrClear _ = undefined---- VVV Prop "use-default-fallbacks"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getThemedIconUseDefaultFallbacks :: (MonadIO m, ThemedIconK o) => o -> m Bool-getThemedIconUseDefaultFallbacks obj = liftIO $ getObjectPropertyBool obj "use-default-fallbacks"--constructThemedIconUseDefaultFallbacks :: Bool -> IO ([Char], GValue)-constructThemedIconUseDefaultFallbacks val = constructObjectPropertyBool "use-default-fallbacks" val--data ThemedIconUseDefaultFallbacksPropertyInfo-instance AttrInfo ThemedIconUseDefaultFallbacksPropertyInfo where-    type AttrAllowedOps ThemedIconUseDefaultFallbacksPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ThemedIconUseDefaultFallbacksPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint ThemedIconUseDefaultFallbacksPropertyInfo = ThemedIconK-    type AttrGetType ThemedIconUseDefaultFallbacksPropertyInfo = Bool-    type AttrLabel ThemedIconUseDefaultFallbacksPropertyInfo = "use-default-fallbacks"-    attrGet _ = getThemedIconUseDefaultFallbacks-    attrSet _ = undefined-    attrConstruct _ = constructThemedIconUseDefaultFallbacks-    attrClear _ = undefined--type instance AttributeList ThemedIcon = ThemedIconAttributeList-type ThemedIconAttributeList = ('[ '("name", ThemedIconNamePropertyInfo), '("names", ThemedIconNamesPropertyInfo), '("useDefaultFallbacks", ThemedIconUseDefaultFallbacksPropertyInfo)] :: [(Symbol, *)])--themedIconName :: AttrLabelProxy "name"-themedIconName = AttrLabelProxy--themedIconNames :: AttrLabelProxy "names"-themedIconNames = AttrLabelProxy--themedIconUseDefaultFallbacks :: AttrLabelProxy "useDefaultFallbacks"-themedIconUseDefaultFallbacks = AttrLabelProxy--type instance SignalList ThemedIcon = ThemedIconSignalList-type ThemedIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ThemedIcon::new--- method type : Constructor--- Args : [Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "ThemedIcon")--- throws : False--- Skip return : False--foreign import ccall "g_themed_icon_new" g_themed_icon_new :: -    CString ->                              -- iconname : TBasicType TUTF8-    IO (Ptr ThemedIcon)---themedIconNew ::-    (MonadIO m) =>-    T.Text                                  -- iconname-    -> m ThemedIcon                         -- result-themedIconNew iconname = liftIO $ do-    iconname' <- textToCString iconname-    result <- g_themed_icon_new iconname'-    checkUnexpectedReturnNULL "g_themed_icon_new" result-    result' <- (wrapObject ThemedIcon) result-    freeMem iconname'-    return result'---- method ThemedIcon::new_from_names--- method type : Constructor--- Args : [Arg {argCName = "iconnames", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Gio" "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)---themedIconNewFromNames ::-    (MonadIO m) =>-    [T.Text]                                -- iconnames-    -> m ThemedIcon                         -- result-themedIconNewFromNames iconnames = liftIO $ do-    let len = fromIntegral $ length iconnames-    iconnames' <- packUTF8CArray iconnames-    result <- g_themed_icon_new_from_names iconnames' len-    checkUnexpectedReturnNULL "g_themed_icon_new_from_names" result-    result' <- (wrapObject ThemedIcon) result-    (mapCArrayWithLength len) freeMem iconnames'-    freeMem iconnames'-    return result'---- method ThemedIcon::new_with_default_fallbacks--- method type : Constructor--- Args : [Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---themedIconNewWithDefaultFallbacks ::-    (MonadIO m) =>-    T.Text                                  -- iconname-    -> m ThemedIcon                         -- result-themedIconNewWithDefaultFallbacks iconname = liftIO $ do-    iconname' <- textToCString iconname-    result <- g_themed_icon_new_with_default_fallbacks iconname'-    checkUnexpectedReturnNULL "g_themed_icon_new_with_default_fallbacks" result-    result' <- (wrapObject ThemedIcon) result-    freeMem iconname'-    return result'---- method ThemedIcon::append_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "ThemedIcon"-    CString ->                              -- iconname : TBasicType TUTF8-    IO ()---themedIconAppendName ::-    (MonadIO m, ThemedIconK a) =>-    a                                       -- _obj-    -> T.Text                               -- iconname-    -> m ()                                 -- result-themedIconAppendName _obj iconname = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    iconname' <- textToCString iconname-    g_themed_icon_append_name _obj' iconname'-    touchManagedPtr _obj-    freeMem iconname'-    return ()--data ThemedIconAppendNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, ThemedIconK a) => MethodInfo ThemedIconAppendNameMethodInfo a signature where-    overloadedMethod _ = themedIconAppendName---- method ThemedIcon::get_names--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "ThemedIcon"-    IO (Ptr CString)---themedIconGetNames ::-    (MonadIO m, ThemedIconK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-themedIconGetNames _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_themed_icon_get_names _obj'-    checkUnexpectedReturnNULL "g_themed_icon_get_names" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'--data ThemedIconGetNamesMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, ThemedIconK a) => MethodInfo ThemedIconGetNamesMethodInfo a signature where-    overloadedMethod _ = themedIconGetNames---- method ThemedIcon::prepend_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "ThemedIcon"-    CString ->                              -- iconname : TBasicType TUTF8-    IO ()---themedIconPrependName ::-    (MonadIO m, ThemedIconK a) =>-    a                                       -- _obj-    -> T.Text                               -- iconname-    -> m ()                                 -- result-themedIconPrependName _obj iconname = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    iconname' <- textToCString iconname-    g_themed_icon_prepend_name _obj' iconname'-    touchManagedPtr _obj-    freeMem iconname'-    return ()--data ThemedIconPrependNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, ThemedIconK a) => MethodInfo ThemedIconPrependNameMethodInfo a signature where-    overloadedMethod _ = themedIconPrependName--
− GI/Gio/Objects/ThemedIcon.hs-boot 
@@ -1,19 +0,0 @@-module GI.Gio.Objects.ThemedIcon where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ThemedIcon = ThemedIcon (ForeignPtr ThemedIcon)-instance GObject ThemedIcon where-class GObject o => ThemedIconK o-instance (GObject o, IsDescendantOf ThemedIcon o) => ThemedIconK o-data ThemedIconNamePropertyInfo-data ThemedIconNamesPropertyInfo-data ThemedIconUseDefaultFallbacksPropertyInfo-data ThemedIconAppendNameMethodInfo-data ThemedIconGetNamesMethodInfo-data ThemedIconPrependNameMethodInfo
− GI/Gio/Objects/ThreadedSocketService.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.ThreadedSocketService-    ( ---- * Exported types-    ThreadedSocketService(..)               ,-    ThreadedSocketServiceK                  ,-    toThreadedSocketService                 ,-    noThreadedSocketService                 ,--- -- * Methods--- ** threadedSocketServiceNew-    threadedSocketServiceNew                ,----- -- * Properties--- ** MaxThreads-    ThreadedSocketServiceMaxThreadsPropertyInfo,-    constructThreadedSocketServiceMaxThreads,-    getThreadedSocketServiceMaxThreads      ,-    threadedSocketServiceMaxThreads         ,----- -- * Signals--- ** Run-    ThreadedSocketServiceRunCallback        ,-    ThreadedSocketServiceRunCallbackC       ,-    ThreadedSocketServiceRunSignalInfo      ,-    afterThreadedSocketServiceRun           ,-    mkThreadedSocketServiceRunCallback      ,-    noThreadedSocketServiceRunCallback      ,-    onThreadedSocketServiceRun              ,-    threadedSocketServiceRunCallbackWrapper ,-    threadedSocketServiceRunClosure         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype ThreadedSocketService = ThreadedSocketService (ForeignPtr ThreadedSocketService)-foreign import ccall "g_threaded_socket_service_get_type"-    c_g_threaded_socket_service_get_type :: IO GType--type instance ParentTypes ThreadedSocketService = ThreadedSocketServiceParentTypes-type ThreadedSocketServiceParentTypes = '[SocketService, SocketListener, GObject.Object]--instance GObject ThreadedSocketService where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_threaded_socket_service_get_type-    --class GObject o => ThreadedSocketServiceK o-instance (GObject o, IsDescendantOf ThreadedSocketService o) => ThreadedSocketServiceK o--toThreadedSocketService :: ThreadedSocketServiceK o => o -> IO ThreadedSocketService-toThreadedSocketService = unsafeCastTo ThreadedSocketService--noThreadedSocketService :: Maybe ThreadedSocketService-noThreadedSocketService = Nothing--type family ResolveThreadedSocketServiceMethod (t :: Symbol) (o :: *) :: * where-    ResolveThreadedSocketServiceMethod "accept" o = SocketListenerAcceptMethodInfo-    ResolveThreadedSocketServiceMethod "acceptAsync" o = SocketListenerAcceptAsyncMethodInfo-    ResolveThreadedSocketServiceMethod "acceptFinish" o = SocketListenerAcceptFinishMethodInfo-    ResolveThreadedSocketServiceMethod "acceptSocket" o = SocketListenerAcceptSocketMethodInfo-    ResolveThreadedSocketServiceMethod "acceptSocketAsync" o = SocketListenerAcceptSocketAsyncMethodInfo-    ResolveThreadedSocketServiceMethod "acceptSocketFinish" o = SocketListenerAcceptSocketFinishMethodInfo-    ResolveThreadedSocketServiceMethod "addAddress" o = SocketListenerAddAddressMethodInfo-    ResolveThreadedSocketServiceMethod "addAnyInetPort" o = SocketListenerAddAnyInetPortMethodInfo-    ResolveThreadedSocketServiceMethod "addInetPort" o = SocketListenerAddInetPortMethodInfo-    ResolveThreadedSocketServiceMethod "addSocket" o = SocketListenerAddSocketMethodInfo-    ResolveThreadedSocketServiceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveThreadedSocketServiceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveThreadedSocketServiceMethod "close" o = SocketListenerCloseMethodInfo-    ResolveThreadedSocketServiceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveThreadedSocketServiceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveThreadedSocketServiceMethod "isActive" o = SocketServiceIsActiveMethodInfo-    ResolveThreadedSocketServiceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveThreadedSocketServiceMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveThreadedSocketServiceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveThreadedSocketServiceMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveThreadedSocketServiceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveThreadedSocketServiceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveThreadedSocketServiceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveThreadedSocketServiceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveThreadedSocketServiceMethod "start" o = SocketServiceStartMethodInfo-    ResolveThreadedSocketServiceMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveThreadedSocketServiceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveThreadedSocketServiceMethod "stop" o = SocketServiceStopMethodInfo-    ResolveThreadedSocketServiceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveThreadedSocketServiceMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveThreadedSocketServiceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveThreadedSocketServiceMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveThreadedSocketServiceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveThreadedSocketServiceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveThreadedSocketServiceMethod "setBacklog" o = SocketListenerSetBacklogMethodInfo-    ResolveThreadedSocketServiceMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveThreadedSocketServiceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveThreadedSocketServiceMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveThreadedSocketServiceMethod t ThreadedSocketService, MethodInfo info ThreadedSocketService p) => IsLabelProxy t (ThreadedSocketService -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveThreadedSocketServiceMethod t ThreadedSocketService, MethodInfo info ThreadedSocketService p) => IsLabel t (ThreadedSocketService -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal ThreadedSocketService::run-type ThreadedSocketServiceRunCallback =-    SocketConnection ->-    GObject.Object ->-    IO Bool--noThreadedSocketServiceRunCallback :: Maybe ThreadedSocketServiceRunCallback-noThreadedSocketServiceRunCallback = Nothing--type ThreadedSocketServiceRunCallbackC =-    Ptr () ->                               -- object-    Ptr SocketConnection ->-    Ptr GObject.Object ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkThreadedSocketServiceRunCallback :: ThreadedSocketServiceRunCallbackC -> IO (FunPtr ThreadedSocketServiceRunCallbackC)--threadedSocketServiceRunClosure :: ThreadedSocketServiceRunCallback -> IO Closure-threadedSocketServiceRunClosure cb = newCClosure =<< mkThreadedSocketServiceRunCallback wrapped-    where wrapped = threadedSocketServiceRunCallbackWrapper cb--threadedSocketServiceRunCallbackWrapper ::-    ThreadedSocketServiceRunCallback ->-    Ptr () ->-    Ptr SocketConnection ->-    Ptr GObject.Object ->-    Ptr () ->-    IO CInt-threadedSocketServiceRunCallbackWrapper _cb _ connection sourceObject _ = do-    connection' <- (newObject SocketConnection) connection-    sourceObject' <- (newObject GObject.Object) sourceObject-    result <- _cb  connection' sourceObject'-    let result' = (fromIntegral . fromEnum) result-    return result'--onThreadedSocketServiceRun :: (GObject a, MonadIO m) => a -> ThreadedSocketServiceRunCallback -> m SignalHandlerId-onThreadedSocketServiceRun obj cb = liftIO $ connectThreadedSocketServiceRun obj cb SignalConnectBefore-afterThreadedSocketServiceRun :: (GObject a, MonadIO m) => a -> ThreadedSocketServiceRunCallback -> m SignalHandlerId-afterThreadedSocketServiceRun obj cb = connectThreadedSocketServiceRun obj cb SignalConnectAfter--connectThreadedSocketServiceRun :: (GObject a, MonadIO m) =>-                                   a -> ThreadedSocketServiceRunCallback -> SignalConnectMode -> m SignalHandlerId-connectThreadedSocketServiceRun obj cb after = liftIO $ do-    cb' <- mkThreadedSocketServiceRunCallback (threadedSocketServiceRunCallbackWrapper cb)-    connectSignalFunPtr obj "run" cb' after---- VVV Prop "max-threads"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getThreadedSocketServiceMaxThreads :: (MonadIO m, ThreadedSocketServiceK o) => o -> m Int32-getThreadedSocketServiceMaxThreads obj = liftIO $ getObjectPropertyInt32 obj "max-threads"--constructThreadedSocketServiceMaxThreads :: Int32 -> IO ([Char], GValue)-constructThreadedSocketServiceMaxThreads val = constructObjectPropertyInt32 "max-threads" val--data ThreadedSocketServiceMaxThreadsPropertyInfo-instance AttrInfo ThreadedSocketServiceMaxThreadsPropertyInfo where-    type AttrAllowedOps ThreadedSocketServiceMaxThreadsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ThreadedSocketServiceMaxThreadsPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint ThreadedSocketServiceMaxThreadsPropertyInfo = ThreadedSocketServiceK-    type AttrGetType ThreadedSocketServiceMaxThreadsPropertyInfo = Int32-    type AttrLabel ThreadedSocketServiceMaxThreadsPropertyInfo = "max-threads"-    attrGet _ = getThreadedSocketServiceMaxThreads-    attrSet _ = undefined-    attrConstruct _ = constructThreadedSocketServiceMaxThreads-    attrClear _ = undefined--type instance AttributeList ThreadedSocketService = ThreadedSocketServiceAttributeList-type ThreadedSocketServiceAttributeList = ('[ '("active", SocketServiceActivePropertyInfo), '("listenBacklog", SocketListenerListenBacklogPropertyInfo), '("maxThreads", ThreadedSocketServiceMaxThreadsPropertyInfo)] :: [(Symbol, *)])--threadedSocketServiceMaxThreads :: AttrLabelProxy "maxThreads"-threadedSocketServiceMaxThreads = AttrLabelProxy--data ThreadedSocketServiceRunSignalInfo-instance SignalInfo ThreadedSocketServiceRunSignalInfo where-    type HaskellCallbackType ThreadedSocketServiceRunSignalInfo = ThreadedSocketServiceRunCallback-    connectSignal _ = connectThreadedSocketServiceRun--type instance SignalList ThreadedSocketService = ThreadedSocketServiceSignalList-type ThreadedSocketServiceSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("incoming", SocketServiceIncomingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("run", ThreadedSocketServiceRunSignalInfo)] :: [(Symbol, *)])---- method ThreadedSocketService::new--- method type : Constructor--- Args : [Arg {argCName = "max_threads", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---threadedSocketServiceNew ::-    (MonadIO m) =>-    Int32                                   -- maxThreads-    -> m ThreadedSocketService              -- result-threadedSocketServiceNew maxThreads = liftIO $ do-    result <- g_threaded_socket_service_new maxThreads-    checkUnexpectedReturnNULL "g_threaded_socket_service_new" result-    result' <- (wrapObject ThreadedSocketService) result-    return result'--
− GI/Gio/Objects/ThreadedSocketService.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Objects.ThreadedSocketService where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ThreadedSocketService = ThreadedSocketService (ForeignPtr ThreadedSocketService)-instance GObject ThreadedSocketService where-class GObject o => ThreadedSocketServiceK o-instance (GObject o, IsDescendantOf ThreadedSocketService o) => ThreadedSocketServiceK o-data ThreadedSocketServiceMaxThreadsPropertyInfo-data ThreadedSocketServiceRunSignalInfo
− GI/Gio/Objects/TlsCertificate.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.TlsCertificate-    ( ---- * Exported types-    TlsCertificate(..)                      ,-    TlsCertificateK                         ,-    toTlsCertificate                        ,-    noTlsCertificate                        ,--- -- * Methods--- ** tlsCertificateGetIssuer-    TlsCertificateGetIssuerMethodInfo       ,-    tlsCertificateGetIssuer                 ,----- ** tlsCertificateIsSame-    TlsCertificateIsSameMethodInfo          ,-    tlsCertificateIsSame                    ,----- ** tlsCertificateListNewFromFile-    tlsCertificateListNewFromFile           ,----- ** tlsCertificateNewFromFile-    tlsCertificateNewFromFile               ,----- ** tlsCertificateNewFromFiles-    tlsCertificateNewFromFiles              ,----- ** tlsCertificateNewFromPem-    tlsCertificateNewFromPem                ,----- ** tlsCertificateVerify-    TlsCertificateVerifyMethodInfo          ,-    tlsCertificateVerify                    ,----- -- * Properties--- ** Certificate-    TlsCertificateCertificatePropertyInfo   ,-    constructTlsCertificateCertificate      ,-    getTlsCertificateCertificate            ,-    tlsCertificateCertificate               ,----- ** CertificatePem-    TlsCertificateCertificatePemPropertyInfo,-    constructTlsCertificateCertificatePem   ,-    getTlsCertificateCertificatePem         ,-    tlsCertificateCertificatePem            ,----- ** Issuer-    TlsCertificateIssuerPropertyInfo        ,-    constructTlsCertificateIssuer           ,-    getTlsCertificateIssuer                 ,-    tlsCertificateIssuer                    ,----- ** PrivateKey-    TlsCertificatePrivateKeyPropertyInfo    ,-    constructTlsCertificatePrivateKey       ,-    tlsCertificatePrivateKey                ,----- ** PrivateKeyPem-    TlsCertificatePrivateKeyPemPropertyInfo ,-    constructTlsCertificatePrivateKeyPem    ,-    tlsCertificatePrivateKeyPem             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype TlsCertificate = TlsCertificate (ForeignPtr TlsCertificate)-foreign import ccall "g_tls_certificate_get_type"-    c_g_tls_certificate_get_type :: IO GType--type instance ParentTypes TlsCertificate = TlsCertificateParentTypes-type TlsCertificateParentTypes = '[GObject.Object]--instance GObject TlsCertificate where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_tls_certificate_get_type-    --class GObject o => TlsCertificateK o-instance (GObject o, IsDescendantOf TlsCertificate o) => TlsCertificateK o--toTlsCertificate :: TlsCertificateK o => o -> IO TlsCertificate-toTlsCertificate = unsafeCastTo TlsCertificate--noTlsCertificate :: Maybe TlsCertificate-noTlsCertificate = Nothing--type family ResolveTlsCertificateMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsCertificateMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTlsCertificateMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTlsCertificateMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTlsCertificateMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTlsCertificateMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTlsCertificateMethod "isSame" o = TlsCertificateIsSameMethodInfo-    ResolveTlsCertificateMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTlsCertificateMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTlsCertificateMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTlsCertificateMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTlsCertificateMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTlsCertificateMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTlsCertificateMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTlsCertificateMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTlsCertificateMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTlsCertificateMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTlsCertificateMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTlsCertificateMethod "verify" o = TlsCertificateVerifyMethodInfo-    ResolveTlsCertificateMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTlsCertificateMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTlsCertificateMethod "getIssuer" o = TlsCertificateGetIssuerMethodInfo-    ResolveTlsCertificateMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTlsCertificateMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTlsCertificateMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTlsCertificateMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTlsCertificateMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTlsCertificateMethod t TlsCertificate, MethodInfo info TlsCertificate p) => IsLabelProxy t (TlsCertificate -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTlsCertificateMethod t TlsCertificate, MethodInfo info TlsCertificate p) => IsLabel t (TlsCertificate -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "certificate"-   -- Type: TByteArray-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getTlsCertificateCertificate :: (MonadIO m, TlsCertificateK o) => o -> m (Maybe ByteString)-getTlsCertificateCertificate obj = liftIO $ getObjectPropertyByteArray obj "certificate"--constructTlsCertificateCertificate :: ByteString -> IO ([Char], GValue)-constructTlsCertificateCertificate val = constructObjectPropertyByteArray "certificate" (Just val)--data TlsCertificateCertificatePropertyInfo-instance AttrInfo TlsCertificateCertificatePropertyInfo where-    type AttrAllowedOps TlsCertificateCertificatePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsCertificateCertificatePropertyInfo = (~) ByteString-    type AttrBaseTypeConstraint TlsCertificateCertificatePropertyInfo = TlsCertificateK-    type AttrGetType TlsCertificateCertificatePropertyInfo = (Maybe ByteString)-    type AttrLabel TlsCertificateCertificatePropertyInfo = "certificate"-    attrGet _ = getTlsCertificateCertificate-    attrSet _ = undefined-    attrConstruct _ = constructTlsCertificateCertificate-    attrClear _ = undefined---- VVV Prop "certificate-pem"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getTlsCertificateCertificatePem :: (MonadIO m, TlsCertificateK o) => o -> m (Maybe T.Text)-getTlsCertificateCertificatePem obj = liftIO $ getObjectPropertyString obj "certificate-pem"--constructTlsCertificateCertificatePem :: T.Text -> IO ([Char], GValue)-constructTlsCertificateCertificatePem val = constructObjectPropertyString "certificate-pem" (Just val)--data TlsCertificateCertificatePemPropertyInfo-instance AttrInfo TlsCertificateCertificatePemPropertyInfo where-    type AttrAllowedOps TlsCertificateCertificatePemPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsCertificateCertificatePemPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint TlsCertificateCertificatePemPropertyInfo = TlsCertificateK-    type AttrGetType TlsCertificateCertificatePemPropertyInfo = (Maybe T.Text)-    type AttrLabel TlsCertificateCertificatePemPropertyInfo = "certificate-pem"-    attrGet _ = getTlsCertificateCertificatePem-    attrSet _ = undefined-    attrConstruct _ = constructTlsCertificateCertificatePem-    attrClear _ = undefined---- VVV Prop "issuer"-   -- Type: TInterface "Gio" "TlsCertificate"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getTlsCertificateIssuer :: (MonadIO m, TlsCertificateK o) => o -> m TlsCertificate-getTlsCertificateIssuer obj = liftIO $ checkUnexpectedNothing "getTlsCertificateIssuer" $ getObjectPropertyObject obj "issuer" TlsCertificate--constructTlsCertificateIssuer :: (TlsCertificateK a) => a -> IO ([Char], GValue)-constructTlsCertificateIssuer val = constructObjectPropertyObject "issuer" (Just val)--data TlsCertificateIssuerPropertyInfo-instance AttrInfo TlsCertificateIssuerPropertyInfo where-    type AttrAllowedOps TlsCertificateIssuerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsCertificateIssuerPropertyInfo = TlsCertificateK-    type AttrBaseTypeConstraint TlsCertificateIssuerPropertyInfo = TlsCertificateK-    type AttrGetType TlsCertificateIssuerPropertyInfo = TlsCertificate-    type AttrLabel TlsCertificateIssuerPropertyInfo = "issuer"-    attrGet _ = getTlsCertificateIssuer-    attrSet _ = undefined-    attrConstruct _ = constructTlsCertificateIssuer-    attrClear _ = undefined---- VVV Prop "private-key"-   -- Type: TByteArray-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructTlsCertificatePrivateKey :: ByteString -> IO ([Char], GValue)-constructTlsCertificatePrivateKey val = constructObjectPropertyByteArray "private-key" (Just val)--data TlsCertificatePrivateKeyPropertyInfo-instance AttrInfo TlsCertificatePrivateKeyPropertyInfo where-    type AttrAllowedOps TlsCertificatePrivateKeyPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint TlsCertificatePrivateKeyPropertyInfo = (~) ByteString-    type AttrBaseTypeConstraint TlsCertificatePrivateKeyPropertyInfo = TlsCertificateK-    type AttrGetType TlsCertificatePrivateKeyPropertyInfo = ()-    type AttrLabel TlsCertificatePrivateKeyPropertyInfo = "private-key"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructTlsCertificatePrivateKey-    attrClear _ = undefined---- VVV Prop "private-key-pem"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructTlsCertificatePrivateKeyPem :: T.Text -> IO ([Char], GValue)-constructTlsCertificatePrivateKeyPem val = constructObjectPropertyString "private-key-pem" (Just val)--data TlsCertificatePrivateKeyPemPropertyInfo-instance AttrInfo TlsCertificatePrivateKeyPemPropertyInfo where-    type AttrAllowedOps TlsCertificatePrivateKeyPemPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint TlsCertificatePrivateKeyPemPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint TlsCertificatePrivateKeyPemPropertyInfo = TlsCertificateK-    type AttrGetType TlsCertificatePrivateKeyPemPropertyInfo = ()-    type AttrLabel TlsCertificatePrivateKeyPemPropertyInfo = "private-key-pem"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructTlsCertificatePrivateKeyPem-    attrClear _ = undefined--type instance AttributeList TlsCertificate = TlsCertificateAttributeList-type TlsCertificateAttributeList = ('[ '("certificate", TlsCertificateCertificatePropertyInfo), '("certificatePem", TlsCertificateCertificatePemPropertyInfo), '("issuer", TlsCertificateIssuerPropertyInfo), '("privateKey", TlsCertificatePrivateKeyPropertyInfo), '("privateKeyPem", TlsCertificatePrivateKeyPemPropertyInfo)] :: [(Symbol, *)])--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--type instance SignalList TlsCertificate = TlsCertificateSignalList-type TlsCertificateSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method TlsCertificate::new_from_file--- method type : Constructor--- Args : [Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsCertificate")--- throws : True--- Skip return : False--foreign import ccall "g_tls_certificate_new_from_file" g_tls_certificate_new_from_file :: -    CString ->                              -- file : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsCertificate)---tlsCertificateNewFromFile ::-    (MonadIO m) =>-    T.Text                                  -- file-    -> m TlsCertificate                     -- result-tlsCertificateNewFromFile file = liftIO $ do-    file' <- textToCString file-    onException (do-        result <- propagateGError $ g_tls_certificate_new_from_file file'-        checkUnexpectedReturnNULL "g_tls_certificate_new_from_file" result-        result' <- (wrapObject TlsCertificate) result-        freeMem file'-        return result'-     ) (do-        freeMem file'-     )---- method TlsCertificate::new_from_files--- method type : Constructor--- Args : [Arg {argCName = "cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 TUTF8-    CString ->                              -- key_file : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsCertificate)---tlsCertificateNewFromFiles ::-    (MonadIO m) =>-    T.Text                                  -- certFile-    -> T.Text                               -- keyFile-    -> m TlsCertificate                     -- result-tlsCertificateNewFromFiles certFile keyFile = liftIO $ do-    certFile' <- textToCString certFile-    keyFile' <- textToCString keyFile-    onException (do-        result <- propagateGError $ g_tls_certificate_new_from_files certFile' keyFile'-        checkUnexpectedReturnNULL "g_tls_certificate_new_from_files" result-        result' <- (wrapObject TlsCertificate) result-        freeMem certFile'-        freeMem keyFile'-        return result'-     ) (do-        freeMem certFile'-        freeMem keyFile'-     )---- method TlsCertificate::new_from_pem--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---tlsCertificateNewFromPem ::-    (MonadIO m) =>-    T.Text                                  -- data_-    -> Int64                                -- length_-    -> m TlsCertificate                     -- result-tlsCertificateNewFromPem data_ length_ = liftIO $ do-    data_' <- textToCString data_-    onException (do-        result <- propagateGError $ g_tls_certificate_new_from_pem data_' length_-        checkUnexpectedReturnNULL "g_tls_certificate_new_from_pem" result-        result' <- (wrapObject TlsCertificate) result-        freeMem data_'-        return result'-     ) (do-        freeMem data_'-     )---- method TlsCertificate::get_issuer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsCertificate")--- throws : False--- Skip return : False--foreign import ccall "g_tls_certificate_get_issuer" g_tls_certificate_get_issuer :: -    Ptr TlsCertificate ->                   -- _obj : TInterface "Gio" "TlsCertificate"-    IO (Ptr TlsCertificate)---tlsCertificateGetIssuer ::-    (MonadIO m, TlsCertificateK a) =>-    a                                       -- _obj-    -> m TlsCertificate                     -- result-tlsCertificateGetIssuer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_certificate_get_issuer _obj'-    checkUnexpectedReturnNULL "g_tls_certificate_get_issuer" result-    result' <- (newObject TlsCertificate) result-    touchManagedPtr _obj-    return result'--data TlsCertificateGetIssuerMethodInfo-instance (signature ~ (m TlsCertificate), MonadIO m, TlsCertificateK a) => MethodInfo TlsCertificateGetIssuerMethodInfo a signature where-    overloadedMethod _ = tlsCertificateGetIssuer---- method TlsCertificate::is_same--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cert_two", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "TlsCertificate"-    Ptr TlsCertificate ->                   -- cert_two : TInterface "Gio" "TlsCertificate"-    IO CInt---tlsCertificateIsSame ::-    (MonadIO m, TlsCertificateK a, TlsCertificateK b) =>-    a                                       -- _obj-    -> b                                    -- certTwo-    -> m Bool                               -- result-tlsCertificateIsSame _obj certTwo = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let certTwo' = unsafeManagedPtrCastPtr certTwo-    result <- g_tls_certificate_is_same _obj' certTwo'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr certTwo-    return result'--data TlsCertificateIsSameMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, TlsCertificateK a, TlsCertificateK b) => MethodInfo TlsCertificateIsSameMethodInfo a signature where-    overloadedMethod _ = tlsCertificateIsSame---- method TlsCertificate::verify--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trusted_ca", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsCertificateFlags")--- throws : False--- Skip return : False--foreign import ccall "g_tls_certificate_verify" g_tls_certificate_verify :: -    Ptr TlsCertificate ->                   -- _obj : TInterface "Gio" "TlsCertificate"-    Ptr SocketConnectable ->                -- identity : TInterface "Gio" "SocketConnectable"-    Ptr TlsCertificate ->                   -- trusted_ca : TInterface "Gio" "TlsCertificate"-    IO CUInt---tlsCertificateVerify ::-    (MonadIO m, TlsCertificateK a, SocketConnectableK b, TlsCertificateK c) =>-    a                                       -- _obj-    -> Maybe (b)                            -- identity-    -> Maybe (c)                            -- trustedCa-    -> m [TlsCertificateFlags]              -- result-tlsCertificateVerify _obj identity trustedCa = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeIdentity <- case identity of-        Nothing -> return nullPtr-        Just jIdentity -> do-            let jIdentity' = unsafeManagedPtrCastPtr jIdentity-            return jIdentity'-    maybeTrustedCa <- case trustedCa of-        Nothing -> return nullPtr-        Just jTrustedCa -> do-            let jTrustedCa' = unsafeManagedPtrCastPtr jTrustedCa-            return jTrustedCa'-    result <- g_tls_certificate_verify _obj' maybeIdentity maybeTrustedCa-    let result' = wordToGFlags result-    touchManagedPtr _obj-    whenJust identity touchManagedPtr-    whenJust trustedCa touchManagedPtr-    return result'--data TlsCertificateVerifyMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (c) -> m [TlsCertificateFlags]), MonadIO m, TlsCertificateK a, SocketConnectableK b, TlsCertificateK c) => MethodInfo TlsCertificateVerifyMethodInfo a signature where-    overloadedMethod _ = tlsCertificateVerify---- method TlsCertificate::list_new_from_file--- method type : MemberFunction--- Args : [Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "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 TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr TlsCertificate)))---tlsCertificateListNewFromFile ::-    (MonadIO m) =>-    T.Text                                  -- file-    -> m [TlsCertificate]                   -- result-tlsCertificateListNewFromFile file = liftIO $ do-    file' <- textToCString 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'-     )--
− GI/Gio/Objects/TlsCertificate.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.TlsCertificate where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TlsCertificate = TlsCertificate (ForeignPtr TlsCertificate)-instance GObject TlsCertificate where-class GObject o => TlsCertificateK o-instance (GObject o, IsDescendantOf TlsCertificate o) => TlsCertificateK o-data TlsCertificateCertificatePropertyInfo-data TlsCertificateCertificatePemPropertyInfo-data TlsCertificateIssuerPropertyInfo-data TlsCertificatePrivateKeyPropertyInfo-data TlsCertificatePrivateKeyPemPropertyInfo-data TlsCertificateGetIssuerMethodInfo-data TlsCertificateIsSameMethodInfo-data TlsCertificateVerifyMethodInfo
− GI/Gio/Objects/TlsConnection.hs 
@@ -1,1175 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.TlsConnection-    ( ---- * Exported types-    TlsConnection(..)                       ,-    TlsConnectionK                          ,-    toTlsConnection                         ,-    noTlsConnection                         ,--- -- * Methods--- ** tlsConnectionEmitAcceptCertificate-    TlsConnectionEmitAcceptCertificateMethodInfo,-    tlsConnectionEmitAcceptCertificate      ,----- ** tlsConnectionGetCertificate-    TlsConnectionGetCertificateMethodInfo   ,-    tlsConnectionGetCertificate             ,----- ** tlsConnectionGetDatabase-    TlsConnectionGetDatabaseMethodInfo      ,-    tlsConnectionGetDatabase                ,----- ** tlsConnectionGetInteraction-    TlsConnectionGetInteractionMethodInfo   ,-    tlsConnectionGetInteraction             ,----- ** tlsConnectionGetPeerCertificate-    TlsConnectionGetPeerCertificateMethodInfo,-    tlsConnectionGetPeerCertificate         ,----- ** tlsConnectionGetPeerCertificateErrors-    TlsConnectionGetPeerCertificateErrorsMethodInfo,-    tlsConnectionGetPeerCertificateErrors   ,----- ** tlsConnectionGetRehandshakeMode-    TlsConnectionGetRehandshakeModeMethodInfo,-    tlsConnectionGetRehandshakeMode         ,----- ** tlsConnectionGetRequireCloseNotify-    TlsConnectionGetRequireCloseNotifyMethodInfo,-    tlsConnectionGetRequireCloseNotify      ,----- ** tlsConnectionGetUseSystemCertdb-    TlsConnectionGetUseSystemCertdbMethodInfo,-    tlsConnectionGetUseSystemCertdb         ,----- ** tlsConnectionHandshake-    TlsConnectionHandshakeMethodInfo        ,-    tlsConnectionHandshake                  ,----- ** tlsConnectionHandshakeAsync-    TlsConnectionHandshakeAsyncMethodInfo   ,-    tlsConnectionHandshakeAsync             ,----- ** tlsConnectionHandshakeFinish-    TlsConnectionHandshakeFinishMethodInfo  ,-    tlsConnectionHandshakeFinish            ,----- ** tlsConnectionSetCertificate-    TlsConnectionSetCertificateMethodInfo   ,-    tlsConnectionSetCertificate             ,----- ** tlsConnectionSetDatabase-    TlsConnectionSetDatabaseMethodInfo      ,-    tlsConnectionSetDatabase                ,----- ** tlsConnectionSetInteraction-    TlsConnectionSetInteractionMethodInfo   ,-    tlsConnectionSetInteraction             ,----- ** tlsConnectionSetRehandshakeMode-    TlsConnectionSetRehandshakeModeMethodInfo,-    tlsConnectionSetRehandshakeMode         ,----- ** tlsConnectionSetRequireCloseNotify-    TlsConnectionSetRequireCloseNotifyMethodInfo,-    tlsConnectionSetRequireCloseNotify      ,----- ** tlsConnectionSetUseSystemCertdb-    TlsConnectionSetUseSystemCertdbMethodInfo,-    tlsConnectionSetUseSystemCertdb         ,----- -- * Properties--- ** BaseIoStream-    TlsConnectionBaseIoStreamPropertyInfo   ,-    constructTlsConnectionBaseIoStream      ,-    getTlsConnectionBaseIoStream            ,-    tlsConnectionBaseIoStream               ,----- ** Certificate-    TlsConnectionCertificatePropertyInfo    ,-    constructTlsConnectionCertificate       ,-    getTlsConnectionCertificate             ,-    setTlsConnectionCertificate             ,-    tlsConnectionCertificate                ,----- ** Database-    TlsConnectionDatabasePropertyInfo       ,-    constructTlsConnectionDatabase          ,-    getTlsConnectionDatabase                ,-    setTlsConnectionDatabase                ,-    tlsConnectionDatabase                   ,----- ** Interaction-    TlsConnectionInteractionPropertyInfo    ,-    clearTlsConnectionInteraction           ,-    constructTlsConnectionInteraction       ,-    getTlsConnectionInteraction             ,-    setTlsConnectionInteraction             ,-    tlsConnectionInteraction                ,----- ** PeerCertificate-    TlsConnectionPeerCertificatePropertyInfo,-    getTlsConnectionPeerCertificate         ,-    tlsConnectionPeerCertificate            ,----- ** PeerCertificateErrors-    TlsConnectionPeerCertificateErrorsPropertyInfo,-    getTlsConnectionPeerCertificateErrors   ,-    tlsConnectionPeerCertificateErrors      ,----- ** RehandshakeMode-    TlsConnectionRehandshakeModePropertyInfo,-    constructTlsConnectionRehandshakeMode   ,-    getTlsConnectionRehandshakeMode         ,-    setTlsConnectionRehandshakeMode         ,-    tlsConnectionRehandshakeMode            ,----- ** RequireCloseNotify-    TlsConnectionRequireCloseNotifyPropertyInfo,-    constructTlsConnectionRequireCloseNotify,-    getTlsConnectionRequireCloseNotify      ,-    setTlsConnectionRequireCloseNotify      ,-    tlsConnectionRequireCloseNotify         ,----- ** UseSystemCertdb-    TlsConnectionUseSystemCertdbPropertyInfo,-    constructTlsConnectionUseSystemCertdb   ,-    getTlsConnectionUseSystemCertdb         ,-    setTlsConnectionUseSystemCertdb         ,-    tlsConnectionUseSystemCertdb            ,----- -- * Signals--- ** AcceptCertificate-    TlsConnectionAcceptCertificateCallback  ,-    TlsConnectionAcceptCertificateCallbackC ,-    TlsConnectionAcceptCertificateSignalInfo,-    afterTlsConnectionAcceptCertificate     ,-    mkTlsConnectionAcceptCertificateCallback,-    noTlsConnectionAcceptCertificateCallback,-    onTlsConnectionAcceptCertificate        ,-    tlsConnectionAcceptCertificateCallbackWrapper,-    tlsConnectionAcceptCertificateClosure   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype TlsConnection = TlsConnection (ForeignPtr TlsConnection)-foreign import ccall "g_tls_connection_get_type"-    c_g_tls_connection_get_type :: IO GType--type instance ParentTypes TlsConnection = TlsConnectionParentTypes-type TlsConnectionParentTypes = '[IOStream, GObject.Object]--instance GObject TlsConnection where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_tls_connection_get_type-    --class GObject o => TlsConnectionK o-instance (GObject o, IsDescendantOf TlsConnection o) => TlsConnectionK o--toTlsConnection :: TlsConnectionK o => o -> IO TlsConnection-toTlsConnection = unsafeCastTo TlsConnection--noTlsConnection :: Maybe TlsConnection-noTlsConnection = Nothing--type family ResolveTlsConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTlsConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTlsConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo-    ResolveTlsConnectionMethod "close" o = IOStreamCloseMethodInfo-    ResolveTlsConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo-    ResolveTlsConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo-    ResolveTlsConnectionMethod "emitAcceptCertificate" o = TlsConnectionEmitAcceptCertificateMethodInfo-    ResolveTlsConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTlsConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTlsConnectionMethod "handshake" o = TlsConnectionHandshakeMethodInfo-    ResolveTlsConnectionMethod "handshakeAsync" o = TlsConnectionHandshakeAsyncMethodInfo-    ResolveTlsConnectionMethod "handshakeFinish" o = TlsConnectionHandshakeFinishMethodInfo-    ResolveTlsConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo-    ResolveTlsConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo-    ResolveTlsConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTlsConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTlsConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTlsConnectionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTlsConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTlsConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTlsConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTlsConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTlsConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo-    ResolveTlsConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTlsConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTlsConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTlsConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTlsConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTlsConnectionMethod "getCertificate" o = TlsConnectionGetCertificateMethodInfo-    ResolveTlsConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTlsConnectionMethod "getDatabase" o = TlsConnectionGetDatabaseMethodInfo-    ResolveTlsConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo-    ResolveTlsConnectionMethod "getInteraction" o = TlsConnectionGetInteractionMethodInfo-    ResolveTlsConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo-    ResolveTlsConnectionMethod "getPeerCertificate" o = TlsConnectionGetPeerCertificateMethodInfo-    ResolveTlsConnectionMethod "getPeerCertificateErrors" o = TlsConnectionGetPeerCertificateErrorsMethodInfo-    ResolveTlsConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTlsConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTlsConnectionMethod "getRehandshakeMode" o = TlsConnectionGetRehandshakeModeMethodInfo-    ResolveTlsConnectionMethod "getRequireCloseNotify" o = TlsConnectionGetRequireCloseNotifyMethodInfo-    ResolveTlsConnectionMethod "getUseSystemCertdb" o = TlsConnectionGetUseSystemCertdbMethodInfo-    ResolveTlsConnectionMethod "setCertificate" o = TlsConnectionSetCertificateMethodInfo-    ResolveTlsConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTlsConnectionMethod "setDatabase" o = TlsConnectionSetDatabaseMethodInfo-    ResolveTlsConnectionMethod "setInteraction" o = TlsConnectionSetInteractionMethodInfo-    ResolveTlsConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo-    ResolveTlsConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTlsConnectionMethod "setRehandshakeMode" o = TlsConnectionSetRehandshakeModeMethodInfo-    ResolveTlsConnectionMethod "setRequireCloseNotify" o = TlsConnectionSetRequireCloseNotifyMethodInfo-    ResolveTlsConnectionMethod "setUseSystemCertdb" o = TlsConnectionSetUseSystemCertdbMethodInfo-    ResolveTlsConnectionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTlsConnectionMethod t TlsConnection, MethodInfo info TlsConnection p) => IsLabelProxy t (TlsConnection -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTlsConnectionMethod t TlsConnection, MethodInfo info TlsConnection p) => IsLabel t (TlsConnection -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal TlsConnection::accept-certificate-type TlsConnectionAcceptCertificateCallback =-    TlsCertificate ->-    [TlsCertificateFlags] ->-    IO Bool--noTlsConnectionAcceptCertificateCallback :: Maybe TlsConnectionAcceptCertificateCallback-noTlsConnectionAcceptCertificateCallback = Nothing--type TlsConnectionAcceptCertificateCallbackC =-    Ptr () ->                               -- object-    Ptr TlsCertificate ->-    CUInt ->-    Ptr () ->                               -- user_data-    IO CInt--foreign import ccall "wrapper"-    mkTlsConnectionAcceptCertificateCallback :: TlsConnectionAcceptCertificateCallbackC -> IO (FunPtr TlsConnectionAcceptCertificateCallbackC)--tlsConnectionAcceptCertificateClosure :: TlsConnectionAcceptCertificateCallback -> IO Closure-tlsConnectionAcceptCertificateClosure cb = newCClosure =<< mkTlsConnectionAcceptCertificateCallback wrapped-    where wrapped = tlsConnectionAcceptCertificateCallbackWrapper cb--tlsConnectionAcceptCertificateCallbackWrapper ::-    TlsConnectionAcceptCertificateCallback ->-    Ptr () ->-    Ptr TlsCertificate ->-    CUInt ->-    Ptr () ->-    IO CInt-tlsConnectionAcceptCertificateCallbackWrapper _cb _ peerCert errors _ = do-    peerCert' <- (newObject TlsCertificate) peerCert-    let errors' = wordToGFlags errors-    result <- _cb  peerCert' errors'-    let result' = (fromIntegral . fromEnum) result-    return result'--onTlsConnectionAcceptCertificate :: (GObject a, MonadIO m) => a -> TlsConnectionAcceptCertificateCallback -> m SignalHandlerId-onTlsConnectionAcceptCertificate obj cb = liftIO $ connectTlsConnectionAcceptCertificate obj cb SignalConnectBefore-afterTlsConnectionAcceptCertificate :: (GObject a, MonadIO m) => a -> TlsConnectionAcceptCertificateCallback -> m SignalHandlerId-afterTlsConnectionAcceptCertificate obj cb = connectTlsConnectionAcceptCertificate obj cb SignalConnectAfter--connectTlsConnectionAcceptCertificate :: (GObject a, MonadIO m) =>-                                         a -> TlsConnectionAcceptCertificateCallback -> SignalConnectMode -> m SignalHandlerId-connectTlsConnectionAcceptCertificate obj cb after = liftIO $ do-    cb' <- mkTlsConnectionAcceptCertificateCallback (tlsConnectionAcceptCertificateCallbackWrapper cb)-    connectSignalFunPtr obj "accept-certificate" cb' after---- VVV Prop "base-io-stream"-   -- Type: TInterface "Gio" "IOStream"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getTlsConnectionBaseIoStream :: (MonadIO m, TlsConnectionK o) => o -> m (Maybe IOStream)-getTlsConnectionBaseIoStream obj = liftIO $ getObjectPropertyObject obj "base-io-stream" IOStream--constructTlsConnectionBaseIoStream :: (IOStreamK a) => a -> IO ([Char], GValue)-constructTlsConnectionBaseIoStream val = constructObjectPropertyObject "base-io-stream" (Just val)--data TlsConnectionBaseIoStreamPropertyInfo-instance AttrInfo TlsConnectionBaseIoStreamPropertyInfo where-    type AttrAllowedOps TlsConnectionBaseIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsConnectionBaseIoStreamPropertyInfo = IOStreamK-    type AttrBaseTypeConstraint TlsConnectionBaseIoStreamPropertyInfo = TlsConnectionK-    type AttrGetType TlsConnectionBaseIoStreamPropertyInfo = (Maybe IOStream)-    type AttrLabel TlsConnectionBaseIoStreamPropertyInfo = "base-io-stream"-    attrGet _ = getTlsConnectionBaseIoStream-    attrSet _ = undefined-    attrConstruct _ = constructTlsConnectionBaseIoStream-    attrClear _ = undefined---- VVV Prop "certificate"-   -- Type: TInterface "Gio" "TlsCertificate"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getTlsConnectionCertificate :: (MonadIO m, TlsConnectionK o) => o -> m TlsCertificate-getTlsConnectionCertificate obj = liftIO $ checkUnexpectedNothing "getTlsConnectionCertificate" $ getObjectPropertyObject obj "certificate" TlsCertificate--setTlsConnectionCertificate :: (MonadIO m, TlsConnectionK o, TlsCertificateK a) => o -> a -> m ()-setTlsConnectionCertificate obj val = liftIO $ setObjectPropertyObject obj "certificate" (Just val)--constructTlsConnectionCertificate :: (TlsCertificateK a) => a -> IO ([Char], GValue)-constructTlsConnectionCertificate val = constructObjectPropertyObject "certificate" (Just val)--data TlsConnectionCertificatePropertyInfo-instance AttrInfo TlsConnectionCertificatePropertyInfo where-    type AttrAllowedOps TlsConnectionCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionCertificatePropertyInfo = TlsCertificateK-    type AttrBaseTypeConstraint TlsConnectionCertificatePropertyInfo = TlsConnectionK-    type AttrGetType TlsConnectionCertificatePropertyInfo = TlsCertificate-    type AttrLabel TlsConnectionCertificatePropertyInfo = "certificate"-    attrGet _ = getTlsConnectionCertificate-    attrSet _ = setTlsConnectionCertificate-    attrConstruct _ = constructTlsConnectionCertificate-    attrClear _ = undefined---- VVV Prop "database"-   -- Type: TInterface "Gio" "TlsDatabase"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getTlsConnectionDatabase :: (MonadIO m, TlsConnectionK o) => o -> m TlsDatabase-getTlsConnectionDatabase obj = liftIO $ checkUnexpectedNothing "getTlsConnectionDatabase" $ getObjectPropertyObject obj "database" TlsDatabase--setTlsConnectionDatabase :: (MonadIO m, TlsConnectionK o, TlsDatabaseK a) => o -> a -> m ()-setTlsConnectionDatabase obj val = liftIO $ setObjectPropertyObject obj "database" (Just val)--constructTlsConnectionDatabase :: (TlsDatabaseK a) => a -> IO ([Char], GValue)-constructTlsConnectionDatabase val = constructObjectPropertyObject "database" (Just val)--data TlsConnectionDatabasePropertyInfo-instance AttrInfo TlsConnectionDatabasePropertyInfo where-    type AttrAllowedOps TlsConnectionDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionDatabasePropertyInfo = TlsDatabaseK-    type AttrBaseTypeConstraint TlsConnectionDatabasePropertyInfo = TlsConnectionK-    type AttrGetType TlsConnectionDatabasePropertyInfo = TlsDatabase-    type AttrLabel TlsConnectionDatabasePropertyInfo = "database"-    attrGet _ = getTlsConnectionDatabase-    attrSet _ = setTlsConnectionDatabase-    attrConstruct _ = constructTlsConnectionDatabase-    attrClear _ = undefined---- VVV Prop "interaction"-   -- Type: TInterface "Gio" "TlsInteraction"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just True)--getTlsConnectionInteraction :: (MonadIO m, TlsConnectionK o) => o -> m TlsInteraction-getTlsConnectionInteraction obj = liftIO $ checkUnexpectedNothing "getTlsConnectionInteraction" $ getObjectPropertyObject obj "interaction" TlsInteraction--setTlsConnectionInteraction :: (MonadIO m, TlsConnectionK o, TlsInteractionK a) => o -> a -> m ()-setTlsConnectionInteraction obj val = liftIO $ setObjectPropertyObject obj "interaction" (Just val)--constructTlsConnectionInteraction :: (TlsInteractionK a) => a -> IO ([Char], GValue)-constructTlsConnectionInteraction val = constructObjectPropertyObject "interaction" (Just val)--clearTlsConnectionInteraction :: (MonadIO m, TlsConnectionK o) => o -> m ()-clearTlsConnectionInteraction obj = liftIO $ setObjectPropertyObject obj "interaction" (Nothing :: Maybe TlsInteraction)--data TlsConnectionInteractionPropertyInfo-instance AttrInfo TlsConnectionInteractionPropertyInfo where-    type AttrAllowedOps TlsConnectionInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsConnectionInteractionPropertyInfo = TlsInteractionK-    type AttrBaseTypeConstraint TlsConnectionInteractionPropertyInfo = TlsConnectionK-    type AttrGetType TlsConnectionInteractionPropertyInfo = TlsInteraction-    type AttrLabel TlsConnectionInteractionPropertyInfo = "interaction"-    attrGet _ = getTlsConnectionInteraction-    attrSet _ = setTlsConnectionInteraction-    attrConstruct _ = constructTlsConnectionInteraction-    attrClear _ = clearTlsConnectionInteraction---- VVV Prop "peer-certificate"-   -- Type: TInterface "Gio" "TlsCertificate"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getTlsConnectionPeerCertificate :: (MonadIO m, TlsConnectionK o) => o -> m TlsCertificate-getTlsConnectionPeerCertificate obj = liftIO $ checkUnexpectedNothing "getTlsConnectionPeerCertificate" $ getObjectPropertyObject obj "peer-certificate" TlsCertificate--data TlsConnectionPeerCertificatePropertyInfo-instance AttrInfo TlsConnectionPeerCertificatePropertyInfo where-    type AttrAllowedOps TlsConnectionPeerCertificatePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsConnectionPeerCertificatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint TlsConnectionPeerCertificatePropertyInfo = TlsConnectionK-    type AttrGetType TlsConnectionPeerCertificatePropertyInfo = TlsCertificate-    type AttrLabel TlsConnectionPeerCertificatePropertyInfo = "peer-certificate"-    attrGet _ = getTlsConnectionPeerCertificate-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "peer-certificate-errors"-   -- Type: TInterface "Gio" "TlsCertificateFlags"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getTlsConnectionPeerCertificateErrors :: (MonadIO m, TlsConnectionK o) => o -> m [TlsCertificateFlags]-getTlsConnectionPeerCertificateErrors obj = liftIO $ getObjectPropertyFlags obj "peer-certificate-errors"--data TlsConnectionPeerCertificateErrorsPropertyInfo-instance AttrInfo TlsConnectionPeerCertificateErrorsPropertyInfo where-    type AttrAllowedOps TlsConnectionPeerCertificateErrorsPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionPeerCertificateErrorsPropertyInfo = (~) ()-    type AttrBaseTypeConstraint TlsConnectionPeerCertificateErrorsPropertyInfo = TlsConnectionK-    type AttrGetType TlsConnectionPeerCertificateErrorsPropertyInfo = [TlsCertificateFlags]-    type AttrLabel TlsConnectionPeerCertificateErrorsPropertyInfo = "peer-certificate-errors"-    attrGet _ = getTlsConnectionPeerCertificateErrors-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "rehandshake-mode"-   -- Type: TInterface "Gio" "TlsRehandshakeMode"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getTlsConnectionRehandshakeMode :: (MonadIO m, TlsConnectionK o) => o -> m TlsRehandshakeMode-getTlsConnectionRehandshakeMode obj = liftIO $ getObjectPropertyEnum obj "rehandshake-mode"--setTlsConnectionRehandshakeMode :: (MonadIO m, TlsConnectionK o) => o -> TlsRehandshakeMode -> m ()-setTlsConnectionRehandshakeMode obj val = liftIO $ setObjectPropertyEnum obj "rehandshake-mode" val--constructTlsConnectionRehandshakeMode :: TlsRehandshakeMode -> IO ([Char], GValue)-constructTlsConnectionRehandshakeMode val = constructObjectPropertyEnum "rehandshake-mode" val--data TlsConnectionRehandshakeModePropertyInfo-instance AttrInfo TlsConnectionRehandshakeModePropertyInfo where-    type AttrAllowedOps TlsConnectionRehandshakeModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionRehandshakeModePropertyInfo = (~) TlsRehandshakeMode-    type AttrBaseTypeConstraint TlsConnectionRehandshakeModePropertyInfo = TlsConnectionK-    type AttrGetType TlsConnectionRehandshakeModePropertyInfo = TlsRehandshakeMode-    type AttrLabel TlsConnectionRehandshakeModePropertyInfo = "rehandshake-mode"-    attrGet _ = getTlsConnectionRehandshakeMode-    attrSet _ = setTlsConnectionRehandshakeMode-    attrConstruct _ = constructTlsConnectionRehandshakeMode-    attrClear _ = undefined---- VVV Prop "require-close-notify"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getTlsConnectionRequireCloseNotify :: (MonadIO m, TlsConnectionK o) => o -> m Bool-getTlsConnectionRequireCloseNotify obj = liftIO $ getObjectPropertyBool obj "require-close-notify"--setTlsConnectionRequireCloseNotify :: (MonadIO m, TlsConnectionK o) => o -> Bool -> m ()-setTlsConnectionRequireCloseNotify obj val = liftIO $ setObjectPropertyBool obj "require-close-notify" val--constructTlsConnectionRequireCloseNotify :: Bool -> IO ([Char], GValue)-constructTlsConnectionRequireCloseNotify val = constructObjectPropertyBool "require-close-notify" val--data TlsConnectionRequireCloseNotifyPropertyInfo-instance AttrInfo TlsConnectionRequireCloseNotifyPropertyInfo where-    type AttrAllowedOps TlsConnectionRequireCloseNotifyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionRequireCloseNotifyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint TlsConnectionRequireCloseNotifyPropertyInfo = TlsConnectionK-    type AttrGetType TlsConnectionRequireCloseNotifyPropertyInfo = Bool-    type AttrLabel TlsConnectionRequireCloseNotifyPropertyInfo = "require-close-notify"-    attrGet _ = getTlsConnectionRequireCloseNotify-    attrSet _ = setTlsConnectionRequireCloseNotify-    attrConstruct _ = constructTlsConnectionRequireCloseNotify-    attrClear _ = undefined---- VVV Prop "use-system-certdb"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--getTlsConnectionUseSystemCertdb :: (MonadIO m, TlsConnectionK o) => o -> m Bool-getTlsConnectionUseSystemCertdb obj = liftIO $ getObjectPropertyBool obj "use-system-certdb"--setTlsConnectionUseSystemCertdb :: (MonadIO m, TlsConnectionK o) => o -> Bool -> m ()-setTlsConnectionUseSystemCertdb obj val = liftIO $ setObjectPropertyBool obj "use-system-certdb" val--constructTlsConnectionUseSystemCertdb :: Bool -> IO ([Char], GValue)-constructTlsConnectionUseSystemCertdb val = constructObjectPropertyBool "use-system-certdb" val--data TlsConnectionUseSystemCertdbPropertyInfo-instance AttrInfo TlsConnectionUseSystemCertdbPropertyInfo where-    type AttrAllowedOps TlsConnectionUseSystemCertdbPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionUseSystemCertdbPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint TlsConnectionUseSystemCertdbPropertyInfo = TlsConnectionK-    type AttrGetType TlsConnectionUseSystemCertdbPropertyInfo = Bool-    type AttrLabel TlsConnectionUseSystemCertdbPropertyInfo = "use-system-certdb"-    attrGet _ = getTlsConnectionUseSystemCertdb-    attrSet _ = setTlsConnectionUseSystemCertdb-    attrConstruct _ = constructTlsConnectionUseSystemCertdb-    attrClear _ = undefined--type instance AttributeList TlsConnection = TlsConnectionAttributeList-type TlsConnectionAttributeList = ('[ '("baseIoStream", TlsConnectionBaseIoStreamPropertyInfo), '("certificate", TlsConnectionCertificatePropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("database", TlsConnectionDatabasePropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("interaction", TlsConnectionInteractionPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("peerCertificate", TlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", TlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", TlsConnectionRequireCloseNotifyPropertyInfo), '("useSystemCertdb", TlsConnectionUseSystemCertdbPropertyInfo)] :: [(Symbol, *)])--tlsConnectionBaseIoStream :: AttrLabelProxy "baseIoStream"-tlsConnectionBaseIoStream = AttrLabelProxy--tlsConnectionCertificate :: AttrLabelProxy "certificate"-tlsConnectionCertificate = AttrLabelProxy--tlsConnectionDatabase :: AttrLabelProxy "database"-tlsConnectionDatabase = AttrLabelProxy--tlsConnectionInteraction :: AttrLabelProxy "interaction"-tlsConnectionInteraction = 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--data TlsConnectionAcceptCertificateSignalInfo-instance SignalInfo TlsConnectionAcceptCertificateSignalInfo where-    type HaskellCallbackType TlsConnectionAcceptCertificateSignalInfo = TlsConnectionAcceptCertificateCallback-    connectSignal _ = connectTlsConnectionAcceptCertificate--type instance SignalList TlsConnection = TlsConnectionSignalList-type TlsConnectionSignalList = ('[ '("acceptCertificate", TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method TlsConnection::emit_accept_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "peer_cert", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    Ptr TlsCertificate ->                   -- peer_cert : TInterface "Gio" "TlsCertificate"-    CUInt ->                                -- errors : TInterface "Gio" "TlsCertificateFlags"-    IO CInt---tlsConnectionEmitAcceptCertificate ::-    (MonadIO m, TlsConnectionK a, TlsCertificateK b) =>-    a                                       -- _obj-    -> b                                    -- peerCert-    -> [TlsCertificateFlags]                -- errors-    -> m Bool                               -- result-tlsConnectionEmitAcceptCertificate _obj peerCert errors = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let peerCert' = unsafeManagedPtrCastPtr peerCert-    let errors' = gflagsToWord errors-    result <- g_tls_connection_emit_accept_certificate _obj' peerCert' errors'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr peerCert-    return result'--data TlsConnectionEmitAcceptCertificateMethodInfo-instance (signature ~ (b -> [TlsCertificateFlags] -> m Bool), MonadIO m, TlsConnectionK a, TlsCertificateK b) => MethodInfo TlsConnectionEmitAcceptCertificateMethodInfo a signature where-    overloadedMethod _ = tlsConnectionEmitAcceptCertificate---- method TlsConnection::get_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsCertificate")--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_get_certificate" g_tls_connection_get_certificate :: -    Ptr TlsConnection ->                    -- _obj : TInterface "Gio" "TlsConnection"-    IO (Ptr TlsCertificate)---tlsConnectionGetCertificate ::-    (MonadIO m, TlsConnectionK a) =>-    a                                       -- _obj-    -> m TlsCertificate                     -- result-tlsConnectionGetCertificate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_connection_get_certificate _obj'-    checkUnexpectedReturnNULL "g_tls_connection_get_certificate" result-    result' <- (newObject TlsCertificate) result-    touchManagedPtr _obj-    return result'--data TlsConnectionGetCertificateMethodInfo-instance (signature ~ (m TlsCertificate), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetCertificateMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetCertificate---- method TlsConnection::get_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsDatabase")--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_get_database" g_tls_connection_get_database :: -    Ptr TlsConnection ->                    -- _obj : TInterface "Gio" "TlsConnection"-    IO (Ptr TlsDatabase)---tlsConnectionGetDatabase ::-    (MonadIO m, TlsConnectionK a) =>-    a                                       -- _obj-    -> m TlsDatabase                        -- result-tlsConnectionGetDatabase _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_connection_get_database _obj'-    checkUnexpectedReturnNULL "g_tls_connection_get_database" result-    result' <- (newObject TlsDatabase) result-    touchManagedPtr _obj-    return result'--data TlsConnectionGetDatabaseMethodInfo-instance (signature ~ (m TlsDatabase), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetDatabaseMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetDatabase---- method TlsConnection::get_interaction--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsInteraction")--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_get_interaction" g_tls_connection_get_interaction :: -    Ptr TlsConnection ->                    -- _obj : TInterface "Gio" "TlsConnection"-    IO (Ptr TlsInteraction)---tlsConnectionGetInteraction ::-    (MonadIO m, TlsConnectionK a) =>-    a                                       -- _obj-    -> m TlsInteraction                     -- result-tlsConnectionGetInteraction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_connection_get_interaction _obj'-    checkUnexpectedReturnNULL "g_tls_connection_get_interaction" result-    result' <- (newObject TlsInteraction) result-    touchManagedPtr _obj-    return result'--data TlsConnectionGetInteractionMethodInfo-instance (signature ~ (m TlsInteraction), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetInteractionMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetInteraction---- method TlsConnection::get_peer_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsCertificate")--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_get_peer_certificate" g_tls_connection_get_peer_certificate :: -    Ptr TlsConnection ->                    -- _obj : TInterface "Gio" "TlsConnection"-    IO (Ptr TlsCertificate)---tlsConnectionGetPeerCertificate ::-    (MonadIO m, TlsConnectionK a) =>-    a                                       -- _obj-    -> m TlsCertificate                     -- result-tlsConnectionGetPeerCertificate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_connection_get_peer_certificate _obj'-    checkUnexpectedReturnNULL "g_tls_connection_get_peer_certificate" result-    result' <- (newObject TlsCertificate) result-    touchManagedPtr _obj-    return result'--data TlsConnectionGetPeerCertificateMethodInfo-instance (signature ~ (m TlsCertificate), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetPeerCertificateMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetPeerCertificate---- method TlsConnection::get_peer_certificate_errors--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    IO CUInt---tlsConnectionGetPeerCertificateErrors ::-    (MonadIO m, TlsConnectionK a) =>-    a                                       -- _obj-    -> m [TlsCertificateFlags]              -- result-tlsConnectionGetPeerCertificateErrors _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_connection_get_peer_certificate_errors _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data TlsConnectionGetPeerCertificateErrorsMethodInfo-instance (signature ~ (m [TlsCertificateFlags]), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetPeerCertificateErrorsMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetPeerCertificateErrors---- method TlsConnection::get_rehandshake_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsRehandshakeMode")--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_get_rehandshake_mode" g_tls_connection_get_rehandshake_mode :: -    Ptr TlsConnection ->                    -- _obj : TInterface "Gio" "TlsConnection"-    IO CUInt---tlsConnectionGetRehandshakeMode ::-    (MonadIO m, TlsConnectionK a) =>-    a                                       -- _obj-    -> m TlsRehandshakeMode                 -- result-tlsConnectionGetRehandshakeMode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_connection_get_rehandshake_mode _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data TlsConnectionGetRehandshakeModeMethodInfo-instance (signature ~ (m TlsRehandshakeMode), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetRehandshakeModeMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetRehandshakeMode---- method TlsConnection::get_require_close_notify--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    IO CInt---tlsConnectionGetRequireCloseNotify ::-    (MonadIO m, TlsConnectionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-tlsConnectionGetRequireCloseNotify _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_connection_get_require_close_notify _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TlsConnectionGetRequireCloseNotifyMethodInfo-instance (signature ~ (m Bool), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetRequireCloseNotifyMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetRequireCloseNotify---- method TlsConnection::get_use_system_certdb--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    IO CInt--{-# DEPRECATED tlsConnectionGetUseSystemCertdb ["(Since version 2.30)","Use g_tls_connection_get_database() instead"]#-}-tlsConnectionGetUseSystemCertdb ::-    (MonadIO m, TlsConnectionK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-tlsConnectionGetUseSystemCertdb _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_connection_get_use_system_certdb _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data TlsConnectionGetUseSystemCertdbMethodInfo-instance (signature ~ (m Bool), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetUseSystemCertdbMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetUseSystemCertdb---- method TlsConnection::handshake--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---tlsConnectionHandshake ::-    (MonadIO m, TlsConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-tlsConnectionHandshake _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_tls_connection_handshake _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data TlsConnectionHandshakeMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TlsConnectionK a, CancellableK b) => MethodInfo TlsConnectionHandshakeMethodInfo a signature where-    overloadedMethod _ = tlsConnectionHandshake---- method TlsConnection::handshake_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---tlsConnectionHandshakeAsync ::-    (MonadIO m, TlsConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-tlsConnectionHandshakeAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_tls_connection_handshake_async _obj' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data TlsConnectionHandshakeAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsConnectionK a, CancellableK b) => MethodInfo TlsConnectionHandshakeAsyncMethodInfo a signature where-    overloadedMethod _ = tlsConnectionHandshakeAsync---- method TlsConnection::handshake_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---tlsConnectionHandshakeFinish ::-    (MonadIO m, TlsConnectionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-tlsConnectionHandshakeFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_tls_connection_handshake_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data TlsConnectionHandshakeFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, TlsConnectionK a, AsyncResultK b) => MethodInfo TlsConnectionHandshakeFinishMethodInfo a signature where-    overloadedMethod _ = tlsConnectionHandshakeFinish---- method TlsConnection::set_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    Ptr TlsCertificate ->                   -- certificate : TInterface "Gio" "TlsCertificate"-    IO ()---tlsConnectionSetCertificate ::-    (MonadIO m, TlsConnectionK a, TlsCertificateK b) =>-    a                                       -- _obj-    -> b                                    -- certificate-    -> m ()                                 -- result-tlsConnectionSetCertificate _obj certificate = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let certificate' = unsafeManagedPtrCastPtr certificate-    g_tls_connection_set_certificate _obj' certificate'-    touchManagedPtr _obj-    touchManagedPtr certificate-    return ()--data TlsConnectionSetCertificateMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, TlsConnectionK a, TlsCertificateK b) => MethodInfo TlsConnectionSetCertificateMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetCertificate---- method TlsConnection::set_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "database", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    Ptr TlsDatabase ->                      -- database : TInterface "Gio" "TlsDatabase"-    IO ()---tlsConnectionSetDatabase ::-    (MonadIO m, TlsConnectionK a, TlsDatabaseK b) =>-    a                                       -- _obj-    -> b                                    -- database-    -> m ()                                 -- result-tlsConnectionSetDatabase _obj database = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let database' = unsafeManagedPtrCastPtr database-    g_tls_connection_set_database _obj' database'-    touchManagedPtr _obj-    touchManagedPtr database-    return ()--data TlsConnectionSetDatabaseMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, TlsConnectionK a, TlsDatabaseK b) => MethodInfo TlsConnectionSetDatabaseMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetDatabase---- method TlsConnection::set_interaction--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    Ptr TlsInteraction ->                   -- interaction : TInterface "Gio" "TlsInteraction"-    IO ()---tlsConnectionSetInteraction ::-    (MonadIO m, TlsConnectionK a, TlsInteractionK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- interaction-    -> m ()                                 -- result-tlsConnectionSetInteraction _obj interaction = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            let jInteraction' = unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    g_tls_connection_set_interaction _obj' maybeInteraction-    touchManagedPtr _obj-    whenJust interaction touchManagedPtr-    return ()--data TlsConnectionSetInteractionMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TlsConnectionK a, TlsInteractionK b) => MethodInfo TlsConnectionSetInteractionMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetInteraction---- method TlsConnection::set_rehandshake_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gio" "TlsRehandshakeMode", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    CUInt ->                                -- mode : TInterface "Gio" "TlsRehandshakeMode"-    IO ()---tlsConnectionSetRehandshakeMode ::-    (MonadIO m, TlsConnectionK a) =>-    a                                       -- _obj-    -> TlsRehandshakeMode                   -- mode-    -> m ()                                 -- result-tlsConnectionSetRehandshakeMode _obj mode = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let mode' = (fromIntegral . fromEnum) mode-    g_tls_connection_set_rehandshake_mode _obj' mode'-    touchManagedPtr _obj-    return ()--data TlsConnectionSetRehandshakeModeMethodInfo-instance (signature ~ (TlsRehandshakeMode -> m ()), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionSetRehandshakeModeMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetRehandshakeMode---- method TlsConnection::set_require_close_notify--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "require_close_notify", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    CInt ->                                 -- require_close_notify : TBasicType TBoolean-    IO ()---tlsConnectionSetRequireCloseNotify ::-    (MonadIO m, TlsConnectionK a) =>-    a                                       -- _obj-    -> Bool                                 -- requireCloseNotify-    -> m ()                                 -- result-tlsConnectionSetRequireCloseNotify _obj requireCloseNotify = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let requireCloseNotify' = (fromIntegral . fromEnum) requireCloseNotify-    g_tls_connection_set_require_close_notify _obj' requireCloseNotify'-    touchManagedPtr _obj-    return ()--data TlsConnectionSetRequireCloseNotifyMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionSetRequireCloseNotifyMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetRequireCloseNotify---- method TlsConnection::set_use_system_certdb--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_system_certdb", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "TlsConnection"-    CInt ->                                 -- use_system_certdb : TBasicType TBoolean-    IO ()--{-# DEPRECATED tlsConnectionSetUseSystemCertdb ["(Since version 2.30)","Use g_tls_connection_set_database() instead"]#-}-tlsConnectionSetUseSystemCertdb ::-    (MonadIO m, TlsConnectionK a) =>-    a                                       -- _obj-    -> Bool                                 -- useSystemCertdb-    -> m ()                                 -- result-tlsConnectionSetUseSystemCertdb _obj useSystemCertdb = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let useSystemCertdb' = (fromIntegral . fromEnum) useSystemCertdb-    g_tls_connection_set_use_system_certdb _obj' useSystemCertdb'-    touchManagedPtr _obj-    return ()--data TlsConnectionSetUseSystemCertdbMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionSetUseSystemCertdbMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetUseSystemCertdb--
− GI/Gio/Objects/TlsConnection.hs-boot 
@@ -1,41 +0,0 @@-module GI.Gio.Objects.TlsConnection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TlsConnection = TlsConnection (ForeignPtr TlsConnection)-instance GObject TlsConnection where-class GObject o => TlsConnectionK o-instance (GObject o, IsDescendantOf TlsConnection o) => TlsConnectionK o-data TlsConnectionBaseIoStreamPropertyInfo-data TlsConnectionCertificatePropertyInfo-data TlsConnectionDatabasePropertyInfo-data TlsConnectionInteractionPropertyInfo-data TlsConnectionPeerCertificatePropertyInfo-data TlsConnectionPeerCertificateErrorsPropertyInfo-data TlsConnectionRehandshakeModePropertyInfo-data TlsConnectionRequireCloseNotifyPropertyInfo-data TlsConnectionUseSystemCertdbPropertyInfo-data TlsConnectionAcceptCertificateSignalInfo-data TlsConnectionEmitAcceptCertificateMethodInfo-data TlsConnectionGetCertificateMethodInfo-data TlsConnectionGetDatabaseMethodInfo-data TlsConnectionGetInteractionMethodInfo-data TlsConnectionGetPeerCertificateMethodInfo-data TlsConnectionGetPeerCertificateErrorsMethodInfo-data TlsConnectionGetRehandshakeModeMethodInfo-data TlsConnectionGetRequireCloseNotifyMethodInfo-data TlsConnectionGetUseSystemCertdbMethodInfo-data TlsConnectionHandshakeMethodInfo-data TlsConnectionHandshakeAsyncMethodInfo-data TlsConnectionHandshakeFinishMethodInfo-data TlsConnectionSetCertificateMethodInfo-data TlsConnectionSetDatabaseMethodInfo-data TlsConnectionSetInteractionMethodInfo-data TlsConnectionSetRehandshakeModeMethodInfo-data TlsConnectionSetRequireCloseNotifyMethodInfo-data TlsConnectionSetUseSystemCertdbMethodInfo
− GI/Gio/Objects/TlsDatabase.hs 
@@ -1,856 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.TlsDatabase-    ( ---- * Exported types-    TlsDatabase(..)                         ,-    TlsDatabaseK                            ,-    toTlsDatabase                           ,-    noTlsDatabase                           ,--- -- * Methods--- ** tlsDatabaseCreateCertificateHandle-    TlsDatabaseCreateCertificateHandleMethodInfo,-    tlsDatabaseCreateCertificateHandle      ,----- ** tlsDatabaseLookupCertificateForHandle-    TlsDatabaseLookupCertificateForHandleMethodInfo,-    tlsDatabaseLookupCertificateForHandle   ,----- ** tlsDatabaseLookupCertificateForHandleAsync-    TlsDatabaseLookupCertificateForHandleAsyncMethodInfo,-    tlsDatabaseLookupCertificateForHandleAsync,----- ** tlsDatabaseLookupCertificateForHandleFinish-    TlsDatabaseLookupCertificateForHandleFinishMethodInfo,-    tlsDatabaseLookupCertificateForHandleFinish,----- ** tlsDatabaseLookupCertificateIssuer-    TlsDatabaseLookupCertificateIssuerMethodInfo,-    tlsDatabaseLookupCertificateIssuer      ,----- ** tlsDatabaseLookupCertificateIssuerAsync-    TlsDatabaseLookupCertificateIssuerAsyncMethodInfo,-    tlsDatabaseLookupCertificateIssuerAsync ,----- ** tlsDatabaseLookupCertificateIssuerFinish-    TlsDatabaseLookupCertificateIssuerFinishMethodInfo,-    tlsDatabaseLookupCertificateIssuerFinish,----- ** tlsDatabaseLookupCertificatesIssuedBy-    TlsDatabaseLookupCertificatesIssuedByMethodInfo,-    tlsDatabaseLookupCertificatesIssuedBy   ,----- ** tlsDatabaseLookupCertificatesIssuedByAsync-    TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo,-    tlsDatabaseLookupCertificatesIssuedByAsync,----- ** tlsDatabaseLookupCertificatesIssuedByFinish-    TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo,-    tlsDatabaseLookupCertificatesIssuedByFinish,----- ** tlsDatabaseVerifyChain-    TlsDatabaseVerifyChainMethodInfo        ,-    tlsDatabaseVerifyChain                  ,----- ** tlsDatabaseVerifyChainAsync-    TlsDatabaseVerifyChainAsyncMethodInfo   ,-    tlsDatabaseVerifyChainAsync             ,----- ** tlsDatabaseVerifyChainFinish-    TlsDatabaseVerifyChainFinishMethodInfo  ,-    tlsDatabaseVerifyChainFinish            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype TlsDatabase = TlsDatabase (ForeignPtr TlsDatabase)-foreign import ccall "g_tls_database_get_type"-    c_g_tls_database_get_type :: IO GType--type instance ParentTypes TlsDatabase = TlsDatabaseParentTypes-type TlsDatabaseParentTypes = '[GObject.Object]--instance GObject TlsDatabase where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_tls_database_get_type-    --class GObject o => TlsDatabaseK o-instance (GObject o, IsDescendantOf TlsDatabase o) => TlsDatabaseK o--toTlsDatabase :: TlsDatabaseK o => o -> IO TlsDatabase-toTlsDatabase = unsafeCastTo TlsDatabase--noTlsDatabase :: Maybe TlsDatabase-noTlsDatabase = Nothing--type family ResolveTlsDatabaseMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsDatabaseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTlsDatabaseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTlsDatabaseMethod "createCertificateHandle" o = TlsDatabaseCreateCertificateHandleMethodInfo-    ResolveTlsDatabaseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTlsDatabaseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTlsDatabaseMethod "isFloating" o = GObject.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.ObjectNotifyMethodInfo-    ResolveTlsDatabaseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTlsDatabaseMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTlsDatabaseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTlsDatabaseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTlsDatabaseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTlsDatabaseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTlsDatabaseMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTlsDatabaseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTlsDatabaseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTlsDatabaseMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTlsDatabaseMethod "verifyChain" o = TlsDatabaseVerifyChainMethodInfo-    ResolveTlsDatabaseMethod "verifyChainAsync" o = TlsDatabaseVerifyChainAsyncMethodInfo-    ResolveTlsDatabaseMethod "verifyChainFinish" o = TlsDatabaseVerifyChainFinishMethodInfo-    ResolveTlsDatabaseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTlsDatabaseMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTlsDatabaseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTlsDatabaseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTlsDatabaseMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTlsDatabaseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTlsDatabaseMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTlsDatabaseMethod t TlsDatabase, MethodInfo info TlsDatabase p) => IsLabelProxy t (TlsDatabase -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTlsDatabaseMethod t TlsDatabase, MethodInfo info TlsDatabase p) => IsLabel t (TlsDatabase -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList TlsDatabase = TlsDatabaseAttributeList-type TlsDatabaseAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList TlsDatabase = TlsDatabaseSignalList-type TlsDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method TlsDatabase::create_certificate_handle--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    Ptr TlsCertificate ->                   -- certificate : TInterface "Gio" "TlsCertificate"-    IO CString---tlsDatabaseCreateCertificateHandle ::-    (MonadIO m, TlsDatabaseK a, TlsCertificateK b) =>-    a                                       -- _obj-    -> b                                    -- certificate-    -> m (Maybe T.Text)                     -- result-tlsDatabaseCreateCertificateHandle _obj certificate = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let certificate' = unsafeManagedPtrCastPtr certificate-    result <- g_tls_database_create_certificate_handle _obj' certificate'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr _obj-    touchManagedPtr certificate-    return maybeResult--data TlsDatabaseCreateCertificateHandleMethodInfo-instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, TlsDatabaseK a, TlsCertificateK b) => MethodInfo TlsDatabaseCreateCertificateHandleMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseCreateCertificateHandle---- method TlsDatabase::lookup_certificate_for_handle--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    CString ->                              -- handle : TBasicType TUTF8-    Ptr TlsInteraction ->                   -- interaction : TInterface "Gio" "TlsInteraction"-    CUInt ->                                -- flags : TInterface "Gio" "TlsDatabaseLookupFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsCertificate)---tlsDatabaseLookupCertificateForHandle ::-    (MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) =>-    a                                       -- _obj-    -> T.Text                               -- handle-    -> Maybe (b)                            -- interaction-    -> TlsDatabaseLookupFlags               -- flags-    -> Maybe (c)                            -- cancellable-    -> m TlsCertificate                     -- result-tlsDatabaseLookupCertificateForHandle _obj handle interaction flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    handle' <- textToCString handle-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            let jInteraction' = unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificate_for_handle _obj' handle' maybeInteraction flags' maybeCancellable-        checkUnexpectedReturnNULL "g_tls_database_lookup_certificate_for_handle" result-        result' <- (wrapObject TlsCertificate) result-        touchManagedPtr _obj-        whenJust interaction touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem handle'-        return result'-     ) (do-        freeMem handle'-     )--data TlsDatabaseLookupCertificateForHandleMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> TlsDatabaseLookupFlags -> Maybe (c) -> m TlsCertificate), MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => MethodInfo TlsDatabaseLookupCertificateForHandleMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateForHandle---- method TlsDatabase::lookup_certificate_for_handle_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    CString ->                              -- handle : TBasicType TUTF8-    Ptr TlsInteraction ->                   -- interaction : TInterface "Gio" "TlsInteraction"-    CUInt ->                                -- flags : TInterface "Gio" "TlsDatabaseLookupFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---tlsDatabaseLookupCertificateForHandleAsync ::-    (MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) =>-    a                                       -- _obj-    -> T.Text                               -- handle-    -> Maybe (b)                            -- interaction-    -> TlsDatabaseLookupFlags               -- flags-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-tlsDatabaseLookupCertificateForHandleAsync _obj handle interaction flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    handle' <- textToCString handle-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            let jInteraction' = unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_tls_database_lookup_certificate_for_handle_async _obj' handle' maybeInteraction flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust interaction touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem handle'-    return ()--data TlsDatabaseLookupCertificateForHandleAsyncMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> TlsDatabaseLookupFlags -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => MethodInfo TlsDatabaseLookupCertificateForHandleAsyncMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateForHandleAsync---- method TlsDatabase::lookup_certificate_for_handle_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsCertificate)---tlsDatabaseLookupCertificateForHandleFinish ::-    (MonadIO m, TlsDatabaseK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m TlsCertificate                     -- result-tlsDatabaseLookupCertificateForHandleFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificate_for_handle_finish _obj' result_'-        checkUnexpectedReturnNULL "g_tls_database_lookup_certificate_for_handle_finish" result-        result' <- (wrapObject TlsCertificate) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data TlsDatabaseLookupCertificateForHandleFinishMethodInfo-instance (signature ~ (b -> m TlsCertificate), MonadIO m, TlsDatabaseK a, AsyncResultK b) => MethodInfo TlsDatabaseLookupCertificateForHandleFinishMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateForHandleFinish---- method TlsDatabase::lookup_certificate_issuer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsCertificate")--- throws : True--- Skip return : False--foreign import ccall "g_tls_database_lookup_certificate_issuer" g_tls_database_lookup_certificate_issuer :: -    Ptr TlsDatabase ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    Ptr TlsCertificate ->                   -- certificate : TInterface "Gio" "TlsCertificate"-    Ptr TlsInteraction ->                   -- interaction : TInterface "Gio" "TlsInteraction"-    CUInt ->                                -- flags : TInterface "Gio" "TlsDatabaseLookupFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsCertificate)---tlsDatabaseLookupCertificateIssuer ::-    (MonadIO m, TlsDatabaseK a, TlsCertificateK b, TlsInteractionK c, CancellableK d) =>-    a                                       -- _obj-    -> b                                    -- certificate-    -> Maybe (c)                            -- interaction-    -> TlsDatabaseLookupFlags               -- flags-    -> Maybe (d)                            -- cancellable-    -> m TlsCertificate                     -- result-tlsDatabaseLookupCertificateIssuer _obj certificate interaction flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let certificate' = unsafeManagedPtrCastPtr certificate-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            let jInteraction' = unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificate_issuer _obj' certificate' maybeInteraction flags' maybeCancellable-        checkUnexpectedReturnNULL "g_tls_database_lookup_certificate_issuer" result-        result' <- (wrapObject TlsCertificate) result-        touchManagedPtr _obj-        touchManagedPtr certificate-        whenJust interaction touchManagedPtr-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data TlsDatabaseLookupCertificateIssuerMethodInfo-instance (signature ~ (b -> Maybe (c) -> TlsDatabaseLookupFlags -> Maybe (d) -> m TlsCertificate), MonadIO m, TlsDatabaseK a, TlsCertificateK b, TlsInteractionK c, CancellableK d) => MethodInfo TlsDatabaseLookupCertificateIssuerMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateIssuer---- method TlsDatabase::lookup_certificate_issuer_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    Ptr TlsCertificate ->                   -- certificate : TInterface "Gio" "TlsCertificate"-    Ptr TlsInteraction ->                   -- interaction : TInterface "Gio" "TlsInteraction"-    CUInt ->                                -- flags : TInterface "Gio" "TlsDatabaseLookupFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---tlsDatabaseLookupCertificateIssuerAsync ::-    (MonadIO m, TlsDatabaseK a, TlsCertificateK b, TlsInteractionK c, CancellableK d) =>-    a                                       -- _obj-    -> b                                    -- certificate-    -> Maybe (c)                            -- interaction-    -> TlsDatabaseLookupFlags               -- flags-    -> Maybe (d)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-tlsDatabaseLookupCertificateIssuerAsync _obj certificate interaction flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let certificate' = unsafeManagedPtrCastPtr certificate-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            let jInteraction' = unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_tls_database_lookup_certificate_issuer_async _obj' certificate' maybeInteraction flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr certificate-    whenJust interaction touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data TlsDatabaseLookupCertificateIssuerAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> TlsDatabaseLookupFlags -> Maybe (d) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsDatabaseK a, TlsCertificateK b, TlsInteractionK c, CancellableK d) => MethodInfo TlsDatabaseLookupCertificateIssuerAsyncMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateIssuerAsync---- method TlsDatabase::lookup_certificate_issuer_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsCertificate)---tlsDatabaseLookupCertificateIssuerFinish ::-    (MonadIO m, TlsDatabaseK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m TlsCertificate                     -- result-tlsDatabaseLookupCertificateIssuerFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificate_issuer_finish _obj' result_'-        checkUnexpectedReturnNULL "g_tls_database_lookup_certificate_issuer_finish" result-        result' <- (wrapObject TlsCertificate) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data TlsDatabaseLookupCertificateIssuerFinishMethodInfo-instance (signature ~ (b -> m TlsCertificate), MonadIO m, TlsDatabaseK a, AsyncResultK b) => MethodInfo TlsDatabaseLookupCertificateIssuerFinishMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateIssuerFinish---- method TlsDatabase::lookup_certificates_issued_by--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "issuer_raw_dn", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "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 ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    Ptr GByteArray ->                       -- issuer_raw_dn : TByteArray-    Ptr TlsInteraction ->                   -- interaction : TInterface "Gio" "TlsInteraction"-    CUInt ->                                -- flags : TInterface "Gio" "TlsDatabaseLookupFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr TlsCertificate)))---tlsDatabaseLookupCertificatesIssuedBy ::-    (MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) =>-    a                                       -- _obj-    -> ByteString                           -- issuerRawDn-    -> Maybe (b)                            -- interaction-    -> TlsDatabaseLookupFlags               -- flags-    -> Maybe (c)                            -- cancellable-    -> m [TlsCertificate]                   -- result-tlsDatabaseLookupCertificatesIssuedBy _obj issuerRawDn interaction flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    issuerRawDn' <- packGByteArray issuerRawDn-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            let jInteraction' = unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificates_issued_by _obj' issuerRawDn' maybeInteraction flags' maybeCancellable-        result' <- unpackGList result-        result'' <- mapM (wrapObject TlsCertificate) result'-        g_list_free result-        touchManagedPtr _obj-        whenJust interaction touchManagedPtr-        whenJust cancellable touchManagedPtr-        unrefGByteArray issuerRawDn'-        return result''-     ) (do-        unrefGByteArray issuerRawDn'-     )--data TlsDatabaseLookupCertificatesIssuedByMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> TlsDatabaseLookupFlags -> Maybe (c) -> m [TlsCertificate]), MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => MethodInfo TlsDatabaseLookupCertificatesIssuedByMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificatesIssuedBy---- method TlsDatabase::lookup_certificates_issued_by_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "issuer_raw_dn", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    Ptr GByteArray ->                       -- issuer_raw_dn : TByteArray-    Ptr TlsInteraction ->                   -- interaction : TInterface "Gio" "TlsInteraction"-    CUInt ->                                -- flags : TInterface "Gio" "TlsDatabaseLookupFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---tlsDatabaseLookupCertificatesIssuedByAsync ::-    (MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) =>-    a                                       -- _obj-    -> ByteString                           -- issuerRawDn-    -> Maybe (b)                            -- interaction-    -> TlsDatabaseLookupFlags               -- flags-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-tlsDatabaseLookupCertificatesIssuedByAsync _obj issuerRawDn interaction flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    issuerRawDn' <- packGByteArray issuerRawDn-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            let jInteraction' = unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_tls_database_lookup_certificates_issued_by_async _obj' issuerRawDn' maybeInteraction flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust interaction touchManagedPtr-    whenJust cancellable touchManagedPtr-    unrefGByteArray issuerRawDn'-    return ()--data TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> TlsDatabaseLookupFlags -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => MethodInfo TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificatesIssuedByAsync---- method TlsDatabase::lookup_certificates_issued_by_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "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 ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr TlsCertificate)))---tlsDatabaseLookupCertificatesIssuedByFinish ::-    (MonadIO m, TlsDatabaseK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m [TlsCertificate]                   -- result-tlsDatabaseLookupCertificatesIssuedByFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificates_issued_by_finish _obj' result_'-        result' <- unpackGList result-        result'' <- mapM (wrapObject TlsCertificate) result'-        g_list_free result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--data TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo-instance (signature ~ (b -> m [TlsCertificate]), MonadIO m, TlsDatabaseK a, AsyncResultK b) => MethodInfo TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificatesIssuedByFinish---- method TlsDatabase::verify_chain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chain", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseVerifyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsCertificateFlags")--- throws : True--- Skip return : False--foreign import ccall "g_tls_database_verify_chain" g_tls_database_verify_chain :: -    Ptr TlsDatabase ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    Ptr TlsCertificate ->                   -- chain : TInterface "Gio" "TlsCertificate"-    CString ->                              -- purpose : TBasicType TUTF8-    Ptr SocketConnectable ->                -- identity : TInterface "Gio" "SocketConnectable"-    Ptr TlsInteraction ->                   -- interaction : TInterface "Gio" "TlsInteraction"-    CUInt ->                                -- flags : TInterface "Gio" "TlsDatabaseVerifyFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---tlsDatabaseVerifyChain ::-    (MonadIO m, TlsDatabaseK a, TlsCertificateK b, SocketConnectableK c, TlsInteractionK d, CancellableK e) =>-    a                                       -- _obj-    -> b                                    -- chain-    -> T.Text                               -- purpose-    -> Maybe (c)                            -- identity-    -> Maybe (d)                            -- interaction-    -> [TlsDatabaseVerifyFlags]             -- flags-    -> Maybe (e)                            -- cancellable-    -> m [TlsCertificateFlags]              -- result-tlsDatabaseVerifyChain _obj chain purpose identity interaction flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let chain' = unsafeManagedPtrCastPtr chain-    purpose' <- textToCString purpose-    maybeIdentity <- case identity of-        Nothing -> return nullPtr-        Just jIdentity -> do-            let jIdentity' = unsafeManagedPtrCastPtr jIdentity-            return jIdentity'-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            let jInteraction' = unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_database_verify_chain _obj' chain' purpose' maybeIdentity maybeInteraction flags' maybeCancellable-        let result' = wordToGFlags result-        touchManagedPtr _obj-        touchManagedPtr chain-        whenJust identity touchManagedPtr-        whenJust interaction touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem purpose'-        return result'-     ) (do-        freeMem purpose'-     )--data TlsDatabaseVerifyChainMethodInfo-instance (signature ~ (b -> T.Text -> Maybe (c) -> Maybe (d) -> [TlsDatabaseVerifyFlags] -> Maybe (e) -> m [TlsCertificateFlags]), MonadIO m, TlsDatabaseK a, TlsCertificateK b, SocketConnectableK c, TlsInteractionK d, CancellableK e) => MethodInfo TlsDatabaseVerifyChainMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseVerifyChain---- method TlsDatabase::verify_chain_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chain", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseVerifyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    Ptr TlsCertificate ->                   -- chain : TInterface "Gio" "TlsCertificate"-    CString ->                              -- purpose : TBasicType TUTF8-    Ptr SocketConnectable ->                -- identity : TInterface "Gio" "SocketConnectable"-    Ptr TlsInteraction ->                   -- interaction : TInterface "Gio" "TlsInteraction"-    CUInt ->                                -- flags : TInterface "Gio" "TlsDatabaseVerifyFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---tlsDatabaseVerifyChainAsync ::-    (MonadIO m, TlsDatabaseK a, TlsCertificateK b, SocketConnectableK c, TlsInteractionK d, CancellableK e) =>-    a                                       -- _obj-    -> b                                    -- chain-    -> T.Text                               -- purpose-    -> Maybe (c)                            -- identity-    -> Maybe (d)                            -- interaction-    -> [TlsDatabaseVerifyFlags]             -- flags-    -> Maybe (e)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-tlsDatabaseVerifyChainAsync _obj chain purpose identity interaction flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let chain' = unsafeManagedPtrCastPtr chain-    purpose' <- textToCString purpose-    maybeIdentity <- case identity of-        Nothing -> return nullPtr-        Just jIdentity -> do-            let jIdentity' = unsafeManagedPtrCastPtr jIdentity-            return jIdentity'-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            let jInteraction' = unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_tls_database_verify_chain_async _obj' chain' purpose' maybeIdentity maybeInteraction flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr chain-    whenJust identity touchManagedPtr-    whenJust interaction touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem purpose'-    return ()--data TlsDatabaseVerifyChainAsyncMethodInfo-instance (signature ~ (b -> T.Text -> Maybe (c) -> Maybe (d) -> [TlsDatabaseVerifyFlags] -> Maybe (e) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsDatabaseK a, TlsCertificateK b, SocketConnectableK c, TlsInteractionK d, CancellableK e) => MethodInfo TlsDatabaseVerifyChainAsyncMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseVerifyChainAsync---- method TlsDatabase::verify_chain_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsCertificateFlags")--- throws : True--- Skip return : False--foreign import ccall "g_tls_database_verify_chain_finish" g_tls_database_verify_chain_finish :: -    Ptr TlsDatabase ->                      -- _obj : TInterface "Gio" "TlsDatabase"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---tlsDatabaseVerifyChainFinish ::-    (MonadIO m, TlsDatabaseK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m [TlsCertificateFlags]              -- result-tlsDatabaseVerifyChainFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_database_verify_chain_finish _obj' result_'-        let result' = wordToGFlags result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data TlsDatabaseVerifyChainFinishMethodInfo-instance (signature ~ (b -> m [TlsCertificateFlags]), MonadIO m, TlsDatabaseK a, AsyncResultK b) => MethodInfo TlsDatabaseVerifyChainFinishMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseVerifyChainFinish--
− GI/Gio/Objects/TlsDatabase.hs-boot 
@@ -1,26 +0,0 @@-module GI.Gio.Objects.TlsDatabase where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TlsDatabase = TlsDatabase (ForeignPtr TlsDatabase)-instance GObject TlsDatabase where-class GObject o => TlsDatabaseK o-instance (GObject o, IsDescendantOf TlsDatabase o) => TlsDatabaseK o-data TlsDatabaseCreateCertificateHandleMethodInfo-data TlsDatabaseLookupCertificateForHandleMethodInfo-data TlsDatabaseLookupCertificateForHandleAsyncMethodInfo-data TlsDatabaseLookupCertificateForHandleFinishMethodInfo-data TlsDatabaseLookupCertificateIssuerMethodInfo-data TlsDatabaseLookupCertificateIssuerAsyncMethodInfo-data TlsDatabaseLookupCertificateIssuerFinishMethodInfo-data TlsDatabaseLookupCertificatesIssuedByMethodInfo-data TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo-data TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo-data TlsDatabaseVerifyChainMethodInfo-data TlsDatabaseVerifyChainAsyncMethodInfo-data TlsDatabaseVerifyChainFinishMethodInfo
− GI/Gio/Objects/TlsInteraction.hs 
@@ -1,506 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.TlsInteraction-    ( ---- * Exported types-    TlsInteraction(..)                      ,-    TlsInteractionK                         ,-    toTlsInteraction                        ,-    noTlsInteraction                        ,--- -- * Methods--- ** tlsInteractionAskPassword-    TlsInteractionAskPasswordMethodInfo     ,-    tlsInteractionAskPassword               ,----- ** tlsInteractionAskPasswordAsync-    TlsInteractionAskPasswordAsyncMethodInfo,-    tlsInteractionAskPasswordAsync          ,----- ** tlsInteractionAskPasswordFinish-    TlsInteractionAskPasswordFinishMethodInfo,-    tlsInteractionAskPasswordFinish         ,----- ** tlsInteractionInvokeAskPassword-    TlsInteractionInvokeAskPasswordMethodInfo,-    tlsInteractionInvokeAskPassword         ,----- ** tlsInteractionInvokeRequestCertificate-    TlsInteractionInvokeRequestCertificateMethodInfo,-    tlsInteractionInvokeRequestCertificate  ,----- ** tlsInteractionRequestCertificate-    TlsInteractionRequestCertificateMethodInfo,-    tlsInteractionRequestCertificate        ,----- ** tlsInteractionRequestCertificateAsync-    TlsInteractionRequestCertificateAsyncMethodInfo,-    tlsInteractionRequestCertificateAsync   ,----- ** tlsInteractionRequestCertificateFinish-    TlsInteractionRequestCertificateFinishMethodInfo,-    tlsInteractionRequestCertificateFinish  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype TlsInteraction = TlsInteraction (ForeignPtr TlsInteraction)-foreign import ccall "g_tls_interaction_get_type"-    c_g_tls_interaction_get_type :: IO GType--type instance ParentTypes TlsInteraction = TlsInteractionParentTypes-type TlsInteractionParentTypes = '[GObject.Object]--instance GObject TlsInteraction where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_tls_interaction_get_type-    --class GObject o => TlsInteractionK o-instance (GObject o, IsDescendantOf TlsInteraction o) => TlsInteractionK o--toTlsInteraction :: TlsInteractionK o => o -> IO TlsInteraction-toTlsInteraction = unsafeCastTo TlsInteraction--noTlsInteraction :: Maybe TlsInteraction-noTlsInteraction = Nothing--type family ResolveTlsInteractionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsInteractionMethod "askPassword" o = TlsInteractionAskPasswordMethodInfo-    ResolveTlsInteractionMethod "askPasswordAsync" o = TlsInteractionAskPasswordAsyncMethodInfo-    ResolveTlsInteractionMethod "askPasswordFinish" o = TlsInteractionAskPasswordFinishMethodInfo-    ResolveTlsInteractionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTlsInteractionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTlsInteractionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTlsInteractionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTlsInteractionMethod "invokeAskPassword" o = TlsInteractionInvokeAskPasswordMethodInfo-    ResolveTlsInteractionMethod "invokeRequestCertificate" o = TlsInteractionInvokeRequestCertificateMethodInfo-    ResolveTlsInteractionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTlsInteractionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTlsInteractionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTlsInteractionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTlsInteractionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTlsInteractionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTlsInteractionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTlsInteractionMethod "requestCertificate" o = TlsInteractionRequestCertificateMethodInfo-    ResolveTlsInteractionMethod "requestCertificateAsync" o = TlsInteractionRequestCertificateAsyncMethodInfo-    ResolveTlsInteractionMethod "requestCertificateFinish" o = TlsInteractionRequestCertificateFinishMethodInfo-    ResolveTlsInteractionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTlsInteractionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTlsInteractionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTlsInteractionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTlsInteractionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTlsInteractionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTlsInteractionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTlsInteractionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTlsInteractionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTlsInteractionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTlsInteractionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTlsInteractionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTlsInteractionMethod t TlsInteraction, MethodInfo info TlsInteraction p) => IsLabelProxy t (TlsInteraction -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTlsInteractionMethod t TlsInteraction, MethodInfo info TlsInteraction p) => IsLabel t (TlsInteraction -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList TlsInteraction = TlsInteractionAttributeList-type TlsInteractionAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList TlsInteraction = TlsInteractionSignalList-type TlsInteractionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method TlsInteraction::ask_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsInteractionResult")--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_ask_password" g_tls_interaction_ask_password :: -    Ptr TlsInteraction ->                   -- _obj : TInterface "Gio" "TlsInteraction"-    Ptr TlsPassword ->                      -- password : TInterface "Gio" "TlsPassword"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---tlsInteractionAskPassword ::-    (MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- password-    -> Maybe (c)                            -- cancellable-    -> m TlsInteractionResult               -- result-tlsInteractionAskPassword _obj password cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let password' = unsafeManagedPtrCastPtr password-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_interaction_ask_password _obj' password' maybeCancellable-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        touchManagedPtr password-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data TlsInteractionAskPasswordMethodInfo-instance (signature ~ (b -> Maybe (c) -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => MethodInfo TlsInteractionAskPasswordMethodInfo a signature where-    overloadedMethod _ = tlsInteractionAskPassword---- method TlsInteraction::ask_password_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "TlsInteraction"-    Ptr TlsPassword ->                      -- password : TInterface "Gio" "TlsPassword"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---tlsInteractionAskPasswordAsync ::-    (MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- password-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-tlsInteractionAskPasswordAsync _obj password cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let password' = unsafeManagedPtrCastPtr password-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_tls_interaction_ask_password_async _obj' password' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr password-    whenJust cancellable touchManagedPtr-    return ()--data TlsInteractionAskPasswordAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => MethodInfo TlsInteractionAskPasswordAsyncMethodInfo a signature where-    overloadedMethod _ = tlsInteractionAskPasswordAsync---- method TlsInteraction::ask_password_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsInteractionResult")--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_ask_password_finish" g_tls_interaction_ask_password_finish :: -    Ptr TlsInteraction ->                   -- _obj : TInterface "Gio" "TlsInteraction"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---tlsInteractionAskPasswordFinish ::-    (MonadIO m, TlsInteractionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m TlsInteractionResult               -- result-tlsInteractionAskPasswordFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_interaction_ask_password_finish _obj' result_'-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data TlsInteractionAskPasswordFinishMethodInfo-instance (signature ~ (b -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, AsyncResultK b) => MethodInfo TlsInteractionAskPasswordFinishMethodInfo a signature where-    overloadedMethod _ = tlsInteractionAskPasswordFinish---- method TlsInteraction::invoke_ask_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsInteractionResult")--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_invoke_ask_password" g_tls_interaction_invoke_ask_password :: -    Ptr TlsInteraction ->                   -- _obj : TInterface "Gio" "TlsInteraction"-    Ptr TlsPassword ->                      -- password : TInterface "Gio" "TlsPassword"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---tlsInteractionInvokeAskPassword ::-    (MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- password-    -> Maybe (c)                            -- cancellable-    -> m TlsInteractionResult               -- result-tlsInteractionInvokeAskPassword _obj password cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let password' = unsafeManagedPtrCastPtr password-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_interaction_invoke_ask_password _obj' password' maybeCancellable-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        touchManagedPtr password-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data TlsInteractionInvokeAskPasswordMethodInfo-instance (signature ~ (b -> Maybe (c) -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => MethodInfo TlsInteractionInvokeAskPasswordMethodInfo a signature where-    overloadedMethod _ = tlsInteractionInvokeAskPassword---- method TlsInteraction::invoke_request_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsInteractionResult")--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_invoke_request_certificate" g_tls_interaction_invoke_request_certificate :: -    Ptr TlsInteraction ->                   -- _obj : TInterface "Gio" "TlsInteraction"-    Ptr TlsConnection ->                    -- connection : TInterface "Gio" "TlsConnection"-    CUInt ->                                -- flags : TInterface "Gio" "TlsCertificateRequestFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---tlsInteractionInvokeRequestCertificate ::-    (MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- connection-    -> TlsCertificateRequestFlags           -- flags-    -> Maybe (c)                            -- cancellable-    -> m TlsInteractionResult               -- result-tlsInteractionInvokeRequestCertificate _obj connection flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connection' = unsafeManagedPtrCastPtr connection-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_interaction_invoke_request_certificate _obj' connection' flags' maybeCancellable-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data TlsInteractionInvokeRequestCertificateMethodInfo-instance (signature ~ (b -> TlsCertificateRequestFlags -> Maybe (c) -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => MethodInfo TlsInteractionInvokeRequestCertificateMethodInfo a signature where-    overloadedMethod _ = tlsInteractionInvokeRequestCertificate---- method TlsInteraction::request_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsInteractionResult")--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_request_certificate" g_tls_interaction_request_certificate :: -    Ptr TlsInteraction ->                   -- _obj : TInterface "Gio" "TlsInteraction"-    Ptr TlsConnection ->                    -- connection : TInterface "Gio" "TlsConnection"-    CUInt ->                                -- flags : TInterface "Gio" "TlsCertificateRequestFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---tlsInteractionRequestCertificate ::-    (MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- connection-    -> TlsCertificateRequestFlags           -- flags-    -> Maybe (c)                            -- cancellable-    -> m TlsInteractionResult               -- result-tlsInteractionRequestCertificate _obj connection flags cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connection' = unsafeManagedPtrCastPtr connection-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_interaction_request_certificate _obj' connection' flags' maybeCancellable-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data TlsInteractionRequestCertificateMethodInfo-instance (signature ~ (b -> TlsCertificateRequestFlags -> Maybe (c) -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => MethodInfo TlsInteractionRequestCertificateMethodInfo a signature where-    overloadedMethod _ = tlsInteractionRequestCertificate---- method TlsInteraction::request_certificate_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "TlsInteraction"-    Ptr TlsConnection ->                    -- connection : TInterface "Gio" "TlsConnection"-    CUInt ->                                -- flags : TInterface "Gio" "TlsCertificateRequestFlags"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---tlsInteractionRequestCertificateAsync ::-    (MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- connection-    -> TlsCertificateRequestFlags           -- flags-    -> Maybe (c)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-tlsInteractionRequestCertificateAsync _obj connection flags cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let connection' = unsafeManagedPtrCastPtr connection-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_tls_interaction_request_certificate_async _obj' connection' flags' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr connection-    whenJust cancellable touchManagedPtr-    return ()--data TlsInteractionRequestCertificateAsyncMethodInfo-instance (signature ~ (b -> TlsCertificateRequestFlags -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => MethodInfo TlsInteractionRequestCertificateAsyncMethodInfo a signature where-    overloadedMethod _ = tlsInteractionRequestCertificateAsync---- method TlsInteraction::request_certificate_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsInteractionResult")--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_request_certificate_finish" g_tls_interaction_request_certificate_finish :: -    Ptr TlsInteraction ->                   -- _obj : TInterface "Gio" "TlsInteraction"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---tlsInteractionRequestCertificateFinish ::-    (MonadIO m, TlsInteractionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m TlsInteractionResult               -- result-tlsInteractionRequestCertificateFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_interaction_request_certificate_finish _obj' result_'-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data TlsInteractionRequestCertificateFinishMethodInfo-instance (signature ~ (b -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, AsyncResultK b) => MethodInfo TlsInteractionRequestCertificateFinishMethodInfo a signature where-    overloadedMethod _ = tlsInteractionRequestCertificateFinish--
− GI/Gio/Objects/TlsInteraction.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.TlsInteraction where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TlsInteraction = TlsInteraction (ForeignPtr TlsInteraction)-instance GObject TlsInteraction where-class GObject o => TlsInteractionK o-instance (GObject o, IsDescendantOf TlsInteraction o) => TlsInteractionK o-data TlsInteractionAskPasswordMethodInfo-data TlsInteractionAskPasswordAsyncMethodInfo-data TlsInteractionAskPasswordFinishMethodInfo-data TlsInteractionInvokeAskPasswordMethodInfo-data TlsInteractionInvokeRequestCertificateMethodInfo-data TlsInteractionRequestCertificateMethodInfo-data TlsInteractionRequestCertificateAsyncMethodInfo-data TlsInteractionRequestCertificateFinishMethodInfo
− GI/Gio/Objects/TlsPassword.hs 
@@ -1,539 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.TlsPassword-    ( ---- * Exported types-    TlsPassword(..)                         ,-    TlsPasswordK                            ,-    toTlsPassword                           ,-    noTlsPassword                           ,--- -- * Methods--- ** tlsPasswordGetDescription-    TlsPasswordGetDescriptionMethodInfo     ,-    tlsPasswordGetDescription               ,----- ** tlsPasswordGetFlags-    TlsPasswordGetFlagsMethodInfo           ,-    tlsPasswordGetFlags                     ,----- ** tlsPasswordGetWarning-    TlsPasswordGetWarningMethodInfo         ,-    tlsPasswordGetWarning                   ,----- ** tlsPasswordNew-    tlsPasswordNew                          ,----- ** tlsPasswordSetDescription-    TlsPasswordSetDescriptionMethodInfo     ,-    tlsPasswordSetDescription               ,----- ** tlsPasswordSetFlags-    TlsPasswordSetFlagsMethodInfo           ,-    tlsPasswordSetFlags                     ,----- ** tlsPasswordSetValue-    TlsPasswordSetValueMethodInfo           ,-    tlsPasswordSetValue                     ,----- ** tlsPasswordSetValueFull-    TlsPasswordSetValueFullMethodInfo       ,-    tlsPasswordSetValueFull                 ,----- ** tlsPasswordSetWarning-    TlsPasswordSetWarningMethodInfo         ,-    tlsPasswordSetWarning                   ,----- -- * Properties--- ** Description-    TlsPasswordDescriptionPropertyInfo      ,-    constructTlsPasswordDescription         ,-    getTlsPasswordDescription               ,-    setTlsPasswordDescription               ,-    tlsPasswordDescription                  ,----- ** Flags-    TlsPasswordFlagsPropertyInfo            ,-    constructTlsPasswordFlags               ,-    getTlsPasswordFlags                     ,-    setTlsPasswordFlags                     ,-    tlsPasswordFlags                        ,----- ** Warning-    TlsPasswordWarningPropertyInfo          ,-    constructTlsPasswordWarning             ,-    getTlsPasswordWarning                   ,-    setTlsPasswordWarning                   ,-    tlsPasswordWarning                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype TlsPassword = TlsPassword (ForeignPtr TlsPassword)-foreign import ccall "g_tls_password_get_type"-    c_g_tls_password_get_type :: IO GType--type instance ParentTypes TlsPassword = TlsPasswordParentTypes-type TlsPasswordParentTypes = '[GObject.Object]--instance GObject TlsPassword where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_tls_password_get_type-    --class GObject o => TlsPasswordK o-instance (GObject o, IsDescendantOf TlsPassword o) => TlsPasswordK o--toTlsPassword :: TlsPasswordK o => o -> IO TlsPassword-toTlsPassword = unsafeCastTo TlsPassword--noTlsPassword :: Maybe TlsPassword-noTlsPassword = Nothing--type family ResolveTlsPasswordMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsPasswordMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveTlsPasswordMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveTlsPasswordMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveTlsPasswordMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveTlsPasswordMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveTlsPasswordMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveTlsPasswordMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveTlsPasswordMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveTlsPasswordMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveTlsPasswordMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveTlsPasswordMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveTlsPasswordMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveTlsPasswordMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveTlsPasswordMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveTlsPasswordMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveTlsPasswordMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveTlsPasswordMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveTlsPasswordMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveTlsPasswordMethod "getDescription" o = TlsPasswordGetDescriptionMethodInfo-    ResolveTlsPasswordMethod "getFlags" o = TlsPasswordGetFlagsMethodInfo-    ResolveTlsPasswordMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveTlsPasswordMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveTlsPasswordMethod "getWarning" o = TlsPasswordGetWarningMethodInfo-    ResolveTlsPasswordMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveTlsPasswordMethod "setDescription" o = TlsPasswordSetDescriptionMethodInfo-    ResolveTlsPasswordMethod "setFlags" o = TlsPasswordSetFlagsMethodInfo-    ResolveTlsPasswordMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveTlsPasswordMethod "setValue" o = TlsPasswordSetValueMethodInfo-    ResolveTlsPasswordMethod "setValueFull" o = TlsPasswordSetValueFullMethodInfo-    ResolveTlsPasswordMethod "setWarning" o = TlsPasswordSetWarningMethodInfo-    ResolveTlsPasswordMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTlsPasswordMethod t TlsPassword, MethodInfo info TlsPassword p) => IsLabelProxy t (TlsPassword -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTlsPasswordMethod t TlsPassword, MethodInfo info TlsPassword p) => IsLabel t (TlsPassword -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "description"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getTlsPasswordDescription :: (MonadIO m, TlsPasswordK o) => o -> m T.Text-getTlsPasswordDescription obj = liftIO $ checkUnexpectedNothing "getTlsPasswordDescription" $ getObjectPropertyString obj "description"--setTlsPasswordDescription :: (MonadIO m, TlsPasswordK o) => o -> T.Text -> m ()-setTlsPasswordDescription obj val = liftIO $ setObjectPropertyString obj "description" (Just val)--constructTlsPasswordDescription :: T.Text -> IO ([Char], GValue)-constructTlsPasswordDescription val = constructObjectPropertyString "description" (Just val)--data TlsPasswordDescriptionPropertyInfo-instance AttrInfo TlsPasswordDescriptionPropertyInfo where-    type AttrAllowedOps TlsPasswordDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsPasswordDescriptionPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint TlsPasswordDescriptionPropertyInfo = TlsPasswordK-    type AttrGetType TlsPasswordDescriptionPropertyInfo = T.Text-    type AttrLabel TlsPasswordDescriptionPropertyInfo = "description"-    attrGet _ = getTlsPasswordDescription-    attrSet _ = setTlsPasswordDescription-    attrConstruct _ = constructTlsPasswordDescription-    attrClear _ = undefined---- VVV Prop "flags"-   -- Type: TInterface "Gio" "TlsPasswordFlags"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getTlsPasswordFlags :: (MonadIO m, TlsPasswordK o) => o -> m [TlsPasswordFlags]-getTlsPasswordFlags obj = liftIO $ getObjectPropertyFlags obj "flags"--setTlsPasswordFlags :: (MonadIO m, TlsPasswordK o) => o -> [TlsPasswordFlags] -> m ()-setTlsPasswordFlags obj val = liftIO $ setObjectPropertyFlags obj "flags" val--constructTlsPasswordFlags :: [TlsPasswordFlags] -> IO ([Char], GValue)-constructTlsPasswordFlags val = constructObjectPropertyFlags "flags" val--data TlsPasswordFlagsPropertyInfo-instance AttrInfo TlsPasswordFlagsPropertyInfo where-    type AttrAllowedOps TlsPasswordFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsPasswordFlagsPropertyInfo = (~) [TlsPasswordFlags]-    type AttrBaseTypeConstraint TlsPasswordFlagsPropertyInfo = TlsPasswordK-    type AttrGetType TlsPasswordFlagsPropertyInfo = [TlsPasswordFlags]-    type AttrLabel TlsPasswordFlagsPropertyInfo = "flags"-    attrGet _ = getTlsPasswordFlags-    attrSet _ = setTlsPasswordFlags-    attrConstruct _ = constructTlsPasswordFlags-    attrClear _ = undefined---- VVV Prop "warning"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getTlsPasswordWarning :: (MonadIO m, TlsPasswordK o) => o -> m T.Text-getTlsPasswordWarning obj = liftIO $ checkUnexpectedNothing "getTlsPasswordWarning" $ getObjectPropertyString obj "warning"--setTlsPasswordWarning :: (MonadIO m, TlsPasswordK o) => o -> T.Text -> m ()-setTlsPasswordWarning obj val = liftIO $ setObjectPropertyString obj "warning" (Just val)--constructTlsPasswordWarning :: T.Text -> IO ([Char], GValue)-constructTlsPasswordWarning val = constructObjectPropertyString "warning" (Just val)--data TlsPasswordWarningPropertyInfo-instance AttrInfo TlsPasswordWarningPropertyInfo where-    type AttrAllowedOps TlsPasswordWarningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsPasswordWarningPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint TlsPasswordWarningPropertyInfo = TlsPasswordK-    type AttrGetType TlsPasswordWarningPropertyInfo = T.Text-    type AttrLabel TlsPasswordWarningPropertyInfo = "warning"-    attrGet _ = getTlsPasswordWarning-    attrSet _ = setTlsPasswordWarning-    attrConstruct _ = constructTlsPasswordWarning-    attrClear _ = undefined--type instance AttributeList TlsPassword = TlsPasswordAttributeList-type TlsPasswordAttributeList = ('[ '("description", TlsPasswordDescriptionPropertyInfo), '("flags", TlsPasswordFlagsPropertyInfo), '("warning", TlsPasswordWarningPropertyInfo)] :: [(Symbol, *)])--tlsPasswordDescription :: AttrLabelProxy "description"-tlsPasswordDescription = AttrLabelProxy--tlsPasswordFlags :: AttrLabelProxy "flags"-tlsPasswordFlags = AttrLabelProxy--tlsPasswordWarning :: AttrLabelProxy "warning"-tlsPasswordWarning = AttrLabelProxy--type instance SignalList TlsPassword = TlsPasswordSignalList-type TlsPasswordSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method TlsPassword::new--- method type : Constructor--- Args : [Arg {argCName = "flags", argType = TInterface "Gio" "TlsPasswordFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsPassword")--- throws : False--- Skip return : False--foreign import ccall "g_tls_password_new" g_tls_password_new :: -    CUInt ->                                -- flags : TInterface "Gio" "TlsPasswordFlags"-    CString ->                              -- description : TBasicType TUTF8-    IO (Ptr TlsPassword)---tlsPasswordNew ::-    (MonadIO m) =>-    [TlsPasswordFlags]                      -- flags-    -> T.Text                               -- description-    -> m TlsPassword                        -- result-tlsPasswordNew flags description = liftIO $ do-    let flags' = gflagsToWord flags-    description' <- textToCString description-    result <- g_tls_password_new flags' description'-    checkUnexpectedReturnNULL "g_tls_password_new" result-    result' <- (wrapObject TlsPassword) result-    freeMem description'-    return result'---- method TlsPassword::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "TlsPassword"-    IO CString---tlsPasswordGetDescription ::-    (MonadIO m, TlsPasswordK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-tlsPasswordGetDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_password_get_description _obj'-    checkUnexpectedReturnNULL "g_tls_password_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data TlsPasswordGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordGetDescriptionMethodInfo a signature where-    overloadedMethod _ = tlsPasswordGetDescription---- method TlsPassword::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "TlsPasswordFlags")--- throws : False--- Skip return : False--foreign import ccall "g_tls_password_get_flags" g_tls_password_get_flags :: -    Ptr TlsPassword ->                      -- _obj : TInterface "Gio" "TlsPassword"-    IO CUInt---tlsPasswordGetFlags ::-    (MonadIO m, TlsPasswordK a) =>-    a                                       -- _obj-    -> m [TlsPasswordFlags]                 -- result-tlsPasswordGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_password_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data TlsPasswordGetFlagsMethodInfo-instance (signature ~ (m [TlsPasswordFlags]), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordGetFlagsMethodInfo a signature where-    overloadedMethod _ = tlsPasswordGetFlags---- method TlsPassword::get_warning--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "TlsPassword"-    IO CString---tlsPasswordGetWarning ::-    (MonadIO m, TlsPasswordK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-tlsPasswordGetWarning _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_tls_password_get_warning _obj'-    checkUnexpectedReturnNULL "g_tls_password_get_warning" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data TlsPasswordGetWarningMethodInfo-instance (signature ~ (m T.Text), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordGetWarningMethodInfo a signature where-    overloadedMethod _ = tlsPasswordGetWarning---- method TlsPassword::set_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "TlsPassword"-    CString ->                              -- description : TBasicType TUTF8-    IO ()---tlsPasswordSetDescription ::-    (MonadIO m, TlsPasswordK a) =>-    a                                       -- _obj-    -> T.Text                               -- description-    -> m ()                                 -- result-tlsPasswordSetDescription _obj description = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    description' <- textToCString description-    g_tls_password_set_description _obj' description'-    touchManagedPtr _obj-    freeMem description'-    return ()--data TlsPasswordSetDescriptionMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordSetDescriptionMethodInfo a signature where-    overloadedMethod _ = tlsPasswordSetDescription---- method TlsPassword::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsPasswordFlags", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "TlsPassword"-    CUInt ->                                -- flags : TInterface "Gio" "TlsPasswordFlags"-    IO ()---tlsPasswordSetFlags ::-    (MonadIO m, TlsPasswordK a) =>-    a                                       -- _obj-    -> [TlsPasswordFlags]                   -- flags-    -> m ()                                 -- result-tlsPasswordSetFlags _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    g_tls_password_set_flags _obj' flags'-    touchManagedPtr _obj-    return ()--data TlsPasswordSetFlagsMethodInfo-instance (signature ~ ([TlsPasswordFlags] -> m ()), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordSetFlagsMethodInfo a signature where-    overloadedMethod _ = tlsPasswordSetFlags---- method TlsPassword::set_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, 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_value" g_tls_password_set_value :: -    Ptr TlsPassword ->                      -- _obj : TInterface "Gio" "TlsPassword"-    Word8 ->                                -- value : TBasicType TUInt8-    Int64 ->                                -- length : TBasicType TInt64-    IO ()---tlsPasswordSetValue ::-    (MonadIO m, TlsPasswordK a) =>-    a                                       -- _obj-    -> Word8                                -- value-    -> Int64                                -- length_-    -> m ()                                 -- result-tlsPasswordSetValue _obj value length_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_tls_password_set_value _obj' value length_-    touchManagedPtr _obj-    return ()--data TlsPasswordSetValueMethodInfo-instance (signature ~ (Word8 -> Int64 -> m ()), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordSetValueMethodInfo a signature where-    overloadedMethod _ = tlsPasswordSetValue---- method TlsPassword::set_value_full--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_password_set_value_full" g_tls_password_set_value_full :: -    Ptr TlsPassword ->                      -- _obj : TInterface "Gio" "TlsPassword"-    Word8 ->                                -- value : TBasicType TUInt8-    Int64 ->                                -- length : TBasicType TInt64-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---tlsPasswordSetValueFull ::-    (MonadIO m, TlsPasswordK a) =>-    a                                       -- _obj-    -> Word8                                -- value-    -> Int64                                -- length_-    -> Maybe (GLib.DestroyNotify)           -- destroy-    -> m ()                                 -- result-tlsPasswordSetValueFull _obj value length_ destroy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC))-    maybeDestroy <- case destroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jDestroy -> do-            jDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrdestroy) jDestroy)-            poke ptrdestroy jDestroy'-            return jDestroy'-    g_tls_password_set_value_full _obj' value length_ maybeDestroy-    touchManagedPtr _obj-    return ()--data TlsPasswordSetValueFullMethodInfo-instance (signature ~ (Word8 -> Int64 -> Maybe (GLib.DestroyNotify) -> m ()), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordSetValueFullMethodInfo a signature where-    overloadedMethod _ = tlsPasswordSetValueFull---- method TlsPassword::set_warning--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "TlsPassword"-    CString ->                              -- warning : TBasicType TUTF8-    IO ()---tlsPasswordSetWarning ::-    (MonadIO m, TlsPasswordK a) =>-    a                                       -- _obj-    -> T.Text                               -- warning-    -> m ()                                 -- result-tlsPasswordSetWarning _obj warning = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    warning' <- textToCString warning-    g_tls_password_set_warning _obj' warning'-    touchManagedPtr _obj-    freeMem warning'-    return ()--data TlsPasswordSetWarningMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordSetWarningMethodInfo a signature where-    overloadedMethod _ = tlsPasswordSetWarning--
− GI/Gio/Objects/TlsPassword.hs-boot 
@@ -1,24 +0,0 @@-module GI.Gio.Objects.TlsPassword where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TlsPassword = TlsPassword (ForeignPtr TlsPassword)-instance GObject TlsPassword where-class GObject o => TlsPasswordK o-instance (GObject o, IsDescendantOf TlsPassword o) => TlsPasswordK o-data TlsPasswordDescriptionPropertyInfo-data TlsPasswordFlagsPropertyInfo-data TlsPasswordWarningPropertyInfo-data TlsPasswordGetDescriptionMethodInfo-data TlsPasswordGetFlagsMethodInfo-data TlsPasswordGetWarningMethodInfo-data TlsPasswordSetDescriptionMethodInfo-data TlsPasswordSetFlagsMethodInfo-data TlsPasswordSetValueMethodInfo-data TlsPasswordSetValueFullMethodInfo-data TlsPasswordSetWarningMethodInfo
− GI/Gio/Objects/UnixConnection.hs 
@@ -1,490 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.UnixConnection-    ( ---- * Exported types-    UnixConnection(..)                      ,-    UnixConnectionK                         ,-    toUnixConnection                        ,-    noUnixConnection                        ,--- -- * Methods--- ** unixConnectionReceiveCredentials-    UnixConnectionReceiveCredentialsMethodInfo,-    unixConnectionReceiveCredentials        ,----- ** unixConnectionReceiveCredentialsAsync-    UnixConnectionReceiveCredentialsAsyncMethodInfo,-    unixConnectionReceiveCredentialsAsync   ,----- ** unixConnectionReceiveCredentialsFinish-    UnixConnectionReceiveCredentialsFinishMethodInfo,-    unixConnectionReceiveCredentialsFinish  ,----- ** unixConnectionReceiveFd-    UnixConnectionReceiveFdMethodInfo       ,-    unixConnectionReceiveFd                 ,----- ** unixConnectionSendCredentials-    UnixConnectionSendCredentialsMethodInfo ,-    unixConnectionSendCredentials           ,----- ** unixConnectionSendCredentialsAsync-    UnixConnectionSendCredentialsAsyncMethodInfo,-    unixConnectionSendCredentialsAsync      ,----- ** unixConnectionSendCredentialsFinish-    UnixConnectionSendCredentialsFinishMethodInfo,-    unixConnectionSendCredentialsFinish     ,----- ** unixConnectionSendFd-    UnixConnectionSendFdMethodInfo          ,-    unixConnectionSendFd                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype UnixConnection = UnixConnection (ForeignPtr UnixConnection)-foreign import ccall "g_unix_connection_get_type"-    c_g_unix_connection_get_type :: IO GType--type instance ParentTypes UnixConnection = UnixConnectionParentTypes-type UnixConnectionParentTypes = '[SocketConnection, IOStream, GObject.Object]--instance GObject UnixConnection where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_unix_connection_get_type-    --class GObject o => UnixConnectionK o-instance (GObject o, IsDescendantOf UnixConnection o) => UnixConnectionK o--toUnixConnection :: UnixConnectionK o => o -> IO UnixConnection-toUnixConnection = unsafeCastTo UnixConnection--noUnixConnection :: Maybe UnixConnection-noUnixConnection = Nothing--type family ResolveUnixConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveUnixConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveUnixConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo-    ResolveUnixConnectionMethod "close" o = IOStreamCloseMethodInfo-    ResolveUnixConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo-    ResolveUnixConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo-    ResolveUnixConnectionMethod "connect" o = SocketConnectionConnectMethodInfo-    ResolveUnixConnectionMethod "connectAsync" o = SocketConnectionConnectAsyncMethodInfo-    ResolveUnixConnectionMethod "connectFinish" o = SocketConnectionConnectFinishMethodInfo-    ResolveUnixConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveUnixConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveUnixConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo-    ResolveUnixConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo-    ResolveUnixConnectionMethod "isConnected" o = SocketConnectionIsConnectedMethodInfo-    ResolveUnixConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveUnixConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveUnixConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveUnixConnectionMethod "receiveCredentials" o = UnixConnectionReceiveCredentialsMethodInfo-    ResolveUnixConnectionMethod "receiveCredentialsAsync" o = UnixConnectionReceiveCredentialsAsyncMethodInfo-    ResolveUnixConnectionMethod "receiveCredentialsFinish" o = UnixConnectionReceiveCredentialsFinishMethodInfo-    ResolveUnixConnectionMethod "receiveFd" o = UnixConnectionReceiveFdMethodInfo-    ResolveUnixConnectionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveUnixConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveUnixConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveUnixConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveUnixConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveUnixConnectionMethod "sendCredentials" o = UnixConnectionSendCredentialsMethodInfo-    ResolveUnixConnectionMethod "sendCredentialsAsync" o = UnixConnectionSendCredentialsAsyncMethodInfo-    ResolveUnixConnectionMethod "sendCredentialsFinish" o = UnixConnectionSendCredentialsFinishMethodInfo-    ResolveUnixConnectionMethod "sendFd" o = UnixConnectionSendFdMethodInfo-    ResolveUnixConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo-    ResolveUnixConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveUnixConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveUnixConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveUnixConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveUnixConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveUnixConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveUnixConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo-    ResolveUnixConnectionMethod "getLocalAddress" o = SocketConnectionGetLocalAddressMethodInfo-    ResolveUnixConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo-    ResolveUnixConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveUnixConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveUnixConnectionMethod "getRemoteAddress" o = SocketConnectionGetRemoteAddressMethodInfo-    ResolveUnixConnectionMethod "getSocket" o = SocketConnectionGetSocketMethodInfo-    ResolveUnixConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveUnixConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo-    ResolveUnixConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveUnixConnectionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUnixConnectionMethod t UnixConnection, MethodInfo info UnixConnection p) => IsLabelProxy t (UnixConnection -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUnixConnectionMethod t UnixConnection, MethodInfo info UnixConnection p) => IsLabel t (UnixConnection -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList UnixConnection = UnixConnectionAttributeList-type UnixConnectionAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)])--type instance SignalList UnixConnection = UnixConnectionSignalList-type UnixConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method UnixConnection::receive_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Credentials")--- throws : True--- Skip return : False--foreign import ccall "g_unix_connection_receive_credentials" g_unix_connection_receive_credentials :: -    Ptr UnixConnection ->                   -- _obj : TInterface "Gio" "UnixConnection"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Credentials)---unixConnectionReceiveCredentials ::-    (MonadIO m, UnixConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Credentials                        -- result-unixConnectionReceiveCredentials _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_unix_connection_receive_credentials _obj' maybeCancellable-        checkUnexpectedReturnNULL "g_unix_connection_receive_credentials" result-        result' <- (wrapObject Credentials) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data UnixConnectionReceiveCredentialsMethodInfo-instance (signature ~ (Maybe (b) -> m Credentials), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionReceiveCredentialsMethodInfo a signature where-    overloadedMethod _ = unixConnectionReceiveCredentials---- method UnixConnection::receive_credentials_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixConnection"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---unixConnectionReceiveCredentialsAsync ::-    (MonadIO m, UnixConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-unixConnectionReceiveCredentialsAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_unix_connection_receive_credentials_async _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data UnixConnectionReceiveCredentialsAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionReceiveCredentialsAsyncMethodInfo a signature where-    overloadedMethod _ = unixConnectionReceiveCredentialsAsync---- method UnixConnection::receive_credentials_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Credentials")--- throws : True--- Skip return : False--foreign import ccall "g_unix_connection_receive_credentials_finish" g_unix_connection_receive_credentials_finish :: -    Ptr UnixConnection ->                   -- _obj : TInterface "Gio" "UnixConnection"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Credentials)---unixConnectionReceiveCredentialsFinish ::-    (MonadIO m, UnixConnectionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Credentials                        -- result-unixConnectionReceiveCredentialsFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_unix_connection_receive_credentials_finish _obj' result_'-        checkUnexpectedReturnNULL "g_unix_connection_receive_credentials_finish" result-        result' <- (wrapObject Credentials) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data UnixConnectionReceiveCredentialsFinishMethodInfo-instance (signature ~ (b -> m Credentials), MonadIO m, UnixConnectionK a, AsyncResultK b) => MethodInfo UnixConnectionReceiveCredentialsFinishMethodInfo a signature where-    overloadedMethod _ = unixConnectionReceiveCredentialsFinish---- method UnixConnection::receive_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "UnixConnection"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO Int32---unixConnectionReceiveFd ::-    (MonadIO m, UnixConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Int32                              -- result-unixConnectionReceiveFd _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_unix_connection_receive_fd _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--data UnixConnectionReceiveFdMethodInfo-instance (signature ~ (Maybe (b) -> m Int32), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionReceiveFdMethodInfo a signature where-    overloadedMethod _ = unixConnectionReceiveFd---- method UnixConnection::send_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "UnixConnection"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---unixConnectionSendCredentials ::-    (MonadIO m, UnixConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-unixConnectionSendCredentials _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_unix_connection_send_credentials _obj' maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data UnixConnectionSendCredentialsMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionSendCredentialsMethodInfo a signature where-    overloadedMethod _ = unixConnectionSendCredentials---- method UnixConnection::send_credentials_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixConnection"-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AsyncReadyCallbackC ->           -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---unixConnectionSendCredentialsAsync ::-    (MonadIO m, UnixConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (AsyncReadyCallback)           -- callback-    -> m ()                                 -- result-unixConnectionSendCredentialsAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    g_unix_connection_send_credentials_async _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data UnixConnectionSendCredentialsAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionSendCredentialsAsyncMethodInfo a signature where-    overloadedMethod _ = unixConnectionSendCredentialsAsync---- method UnixConnection::send_credentials_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixConnection"-    Ptr AsyncResult ->                      -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---unixConnectionSendCredentialsFinish ::-    (MonadIO m, UnixConnectionK a, AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m ()                                 -- result-unixConnectionSendCredentialsFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_unix_connection_send_credentials_finish _obj' result_'-        touchManagedPtr _obj-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--data UnixConnectionSendCredentialsFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, UnixConnectionK a, AsyncResultK b) => MethodInfo UnixConnectionSendCredentialsFinishMethodInfo a signature where-    overloadedMethod _ = unixConnectionSendCredentialsFinish---- method UnixConnection::send_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "UnixConnection"-    Int32 ->                                -- fd : TBasicType TInt-    Ptr Cancellable ->                      -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---unixConnectionSendFd ::-    (MonadIO m, UnixConnectionK a, CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- fd-    -> Maybe (b)                            -- cancellable-    -> m ()                                 -- result-unixConnectionSendFd _obj fd cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_unix_connection_send_fd _obj' fd maybeCancellable-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--data UnixConnectionSendFdMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> m ()), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionSendFdMethodInfo a signature where-    overloadedMethod _ = unixConnectionSendFd--
− GI/Gio/Objects/UnixConnection.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.UnixConnection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UnixConnection = UnixConnection (ForeignPtr UnixConnection)-instance GObject UnixConnection where-class GObject o => UnixConnectionK o-instance (GObject o, IsDescendantOf UnixConnection o) => UnixConnectionK o-data UnixConnectionReceiveCredentialsMethodInfo-data UnixConnectionReceiveCredentialsAsyncMethodInfo-data UnixConnectionReceiveCredentialsFinishMethodInfo-data UnixConnectionReceiveFdMethodInfo-data UnixConnectionSendCredentialsMethodInfo-data UnixConnectionSendCredentialsAsyncMethodInfo-data UnixConnectionSendCredentialsFinishMethodInfo-data UnixConnectionSendFdMethodInfo
− GI/Gio/Objects/UnixCredentialsMessage.hs 
@@ -1,248 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.UnixCredentialsMessage-    ( ---- * Exported types-    UnixCredentialsMessage(..)              ,-    UnixCredentialsMessageK                 ,-    toUnixCredentialsMessage                ,-    noUnixCredentialsMessage                ,--- -- * Methods--- ** unixCredentialsMessageGetCredentials-    UnixCredentialsMessageGetCredentialsMethodInfo,-    unixCredentialsMessageGetCredentials    ,----- ** unixCredentialsMessageIsSupported-    unixCredentialsMessageIsSupported       ,----- ** unixCredentialsMessageNew-    unixCredentialsMessageNew               ,----- ** unixCredentialsMessageNewWithCredentials-    unixCredentialsMessageNewWithCredentials,----- -- * Properties--- ** Credentials-    UnixCredentialsMessageCredentialsPropertyInfo,-    constructUnixCredentialsMessageCredentials,-    getUnixCredentialsMessageCredentials    ,-    unixCredentialsMessageCredentials       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype UnixCredentialsMessage = UnixCredentialsMessage (ForeignPtr UnixCredentialsMessage)-foreign import ccall "g_unix_credentials_message_get_type"-    c_g_unix_credentials_message_get_type :: IO GType--type instance ParentTypes UnixCredentialsMessage = UnixCredentialsMessageParentTypes-type UnixCredentialsMessageParentTypes = '[SocketControlMessage, GObject.Object]--instance GObject UnixCredentialsMessage where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_unix_credentials_message_get_type-    --class GObject o => UnixCredentialsMessageK o-instance (GObject o, IsDescendantOf UnixCredentialsMessage o) => UnixCredentialsMessageK o--toUnixCredentialsMessage :: UnixCredentialsMessageK o => o -> IO UnixCredentialsMessage-toUnixCredentialsMessage = unsafeCastTo UnixCredentialsMessage--noUnixCredentialsMessage :: Maybe UnixCredentialsMessage-noUnixCredentialsMessage = Nothing--type family ResolveUnixCredentialsMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixCredentialsMessageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveUnixCredentialsMessageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveUnixCredentialsMessageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveUnixCredentialsMessageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveUnixCredentialsMessageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveUnixCredentialsMessageMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveUnixCredentialsMessageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveUnixCredentialsMessageMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveUnixCredentialsMessageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveUnixCredentialsMessageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveUnixCredentialsMessageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveUnixCredentialsMessageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveUnixCredentialsMessageMethod "serialize" o = SocketControlMessageSerializeMethodInfo-    ResolveUnixCredentialsMessageMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveUnixCredentialsMessageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveUnixCredentialsMessageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveUnixCredentialsMessageMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveUnixCredentialsMessageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveUnixCredentialsMessageMethod "getCredentials" o = UnixCredentialsMessageGetCredentialsMethodInfo-    ResolveUnixCredentialsMessageMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveUnixCredentialsMessageMethod "getLevel" o = SocketControlMessageGetLevelMethodInfo-    ResolveUnixCredentialsMessageMethod "getMsgType" o = SocketControlMessageGetMsgTypeMethodInfo-    ResolveUnixCredentialsMessageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveUnixCredentialsMessageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveUnixCredentialsMessageMethod "getSize" o = SocketControlMessageGetSizeMethodInfo-    ResolveUnixCredentialsMessageMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveUnixCredentialsMessageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveUnixCredentialsMessageMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUnixCredentialsMessageMethod t UnixCredentialsMessage, MethodInfo info UnixCredentialsMessage p) => IsLabelProxy t (UnixCredentialsMessage -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUnixCredentialsMessageMethod t UnixCredentialsMessage, MethodInfo info UnixCredentialsMessage p) => IsLabel t (UnixCredentialsMessage -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "credentials"-   -- Type: TInterface "Gio" "Credentials"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getUnixCredentialsMessageCredentials :: (MonadIO m, UnixCredentialsMessageK o) => o -> m Credentials-getUnixCredentialsMessageCredentials obj = liftIO $ checkUnexpectedNothing "getUnixCredentialsMessageCredentials" $ getObjectPropertyObject obj "credentials" Credentials--constructUnixCredentialsMessageCredentials :: (CredentialsK a) => a -> IO ([Char], GValue)-constructUnixCredentialsMessageCredentials val = constructObjectPropertyObject "credentials" (Just val)--data UnixCredentialsMessageCredentialsPropertyInfo-instance AttrInfo UnixCredentialsMessageCredentialsPropertyInfo where-    type AttrAllowedOps UnixCredentialsMessageCredentialsPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint UnixCredentialsMessageCredentialsPropertyInfo = CredentialsK-    type AttrBaseTypeConstraint UnixCredentialsMessageCredentialsPropertyInfo = UnixCredentialsMessageK-    type AttrGetType UnixCredentialsMessageCredentialsPropertyInfo = Credentials-    type AttrLabel UnixCredentialsMessageCredentialsPropertyInfo = "credentials"-    attrGet _ = getUnixCredentialsMessageCredentials-    attrSet _ = undefined-    attrConstruct _ = constructUnixCredentialsMessageCredentials-    attrClear _ = undefined--type instance AttributeList UnixCredentialsMessage = UnixCredentialsMessageAttributeList-type UnixCredentialsMessageAttributeList = ('[ '("credentials", UnixCredentialsMessageCredentialsPropertyInfo)] :: [(Symbol, *)])--unixCredentialsMessageCredentials :: AttrLabelProxy "credentials"-unixCredentialsMessageCredentials = AttrLabelProxy--type instance SignalList UnixCredentialsMessage = UnixCredentialsMessageSignalList-type UnixCredentialsMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method UnixCredentialsMessage::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "UnixCredentialsMessage")--- throws : False--- Skip return : False--foreign import ccall "g_unix_credentials_message_new" g_unix_credentials_message_new :: -    IO (Ptr UnixCredentialsMessage)---unixCredentialsMessageNew ::-    (MonadIO m) =>-    m UnixCredentialsMessage                -- result-unixCredentialsMessageNew  = liftIO $ do-    result <- g_unix_credentials_message_new-    checkUnexpectedReturnNULL "g_unix_credentials_message_new" result-    result' <- (wrapObject UnixCredentialsMessage) result-    return result'---- method UnixCredentialsMessage::new_with_credentials--- method type : Constructor--- Args : [Arg {argCName = "credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "UnixCredentialsMessage")--- throws : False--- Skip return : False--foreign import ccall "g_unix_credentials_message_new_with_credentials" g_unix_credentials_message_new_with_credentials :: -    Ptr Credentials ->                      -- credentials : TInterface "Gio" "Credentials"-    IO (Ptr UnixCredentialsMessage)---unixCredentialsMessageNewWithCredentials ::-    (MonadIO m, CredentialsK a) =>-    a                                       -- credentials-    -> m UnixCredentialsMessage             -- result-unixCredentialsMessageNewWithCredentials credentials = liftIO $ do-    let credentials' = unsafeManagedPtrCastPtr credentials-    result <- g_unix_credentials_message_new_with_credentials credentials'-    checkUnexpectedReturnNULL "g_unix_credentials_message_new_with_credentials" result-    result' <- (wrapObject UnixCredentialsMessage) result-    touchManagedPtr credentials-    return result'---- method UnixCredentialsMessage::get_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixCredentialsMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Credentials")--- throws : False--- Skip return : False--foreign import ccall "g_unix_credentials_message_get_credentials" g_unix_credentials_message_get_credentials :: -    Ptr UnixCredentialsMessage ->           -- _obj : TInterface "Gio" "UnixCredentialsMessage"-    IO (Ptr Credentials)---unixCredentialsMessageGetCredentials ::-    (MonadIO m, UnixCredentialsMessageK a) =>-    a                                       -- _obj-    -> m Credentials                        -- result-unixCredentialsMessageGetCredentials _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_unix_credentials_message_get_credentials _obj'-    checkUnexpectedReturnNULL "g_unix_credentials_message_get_credentials" result-    result' <- (newObject Credentials) result-    touchManagedPtr _obj-    return result'--data UnixCredentialsMessageGetCredentialsMethodInfo-instance (signature ~ (m Credentials), MonadIO m, UnixCredentialsMessageK a) => MethodInfo UnixCredentialsMessageGetCredentialsMethodInfo a signature where-    overloadedMethod _ = unixCredentialsMessageGetCredentials---- 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---unixCredentialsMessageIsSupported ::-    (MonadIO m) =>-    m Bool                                  -- result-unixCredentialsMessageIsSupported  = liftIO $ do-    result <- g_unix_credentials_message_is_supported-    let result' = (/= 0) result-    return result'--
− GI/Gio/Objects/UnixCredentialsMessage.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Objects.UnixCredentialsMessage where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UnixCredentialsMessage = UnixCredentialsMessage (ForeignPtr UnixCredentialsMessage)-instance GObject UnixCredentialsMessage where-class GObject o => UnixCredentialsMessageK o-instance (GObject o, IsDescendantOf UnixCredentialsMessage o) => UnixCredentialsMessageK o-data UnixCredentialsMessageCredentialsPropertyInfo-data UnixCredentialsMessageGetCredentialsMethodInfo
− GI/Gio/Objects/UnixFDList.hs 
@@ -1,343 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.UnixFDList-    ( ---- * Exported types-    UnixFDList(..)                          ,-    UnixFDListK                             ,-    toUnixFDList                            ,-    noUnixFDList                            ,--- -- * Methods--- ** unixFDListAppend-    UnixFDListAppendMethodInfo              ,-    unixFDListAppend                        ,----- ** unixFDListGet-    UnixFDListGetMethodInfo                 ,-    unixFDListGet                           ,----- ** unixFDListGetLength-    UnixFDListGetLengthMethodInfo           ,-    unixFDListGetLength                     ,----- ** unixFDListNew-    unixFDListNew                           ,----- ** unixFDListNewFromArray-    unixFDListNewFromArray                  ,----- ** unixFDListPeekFds-    UnixFDListPeekFdsMethodInfo             ,-    unixFDListPeekFds                       ,----- ** unixFDListStealFds-    UnixFDListStealFdsMethodInfo            ,-    unixFDListStealFds                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype UnixFDList = UnixFDList (ForeignPtr UnixFDList)-foreign import ccall "g_unix_fd_list_get_type"-    c_g_unix_fd_list_get_type :: IO GType--type instance ParentTypes UnixFDList = UnixFDListParentTypes-type UnixFDListParentTypes = '[GObject.Object]--instance GObject UnixFDList where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_unix_fd_list_get_type-    --class GObject o => UnixFDListK o-instance (GObject o, IsDescendantOf UnixFDList o) => UnixFDListK o--toUnixFDList :: UnixFDListK o => o -> IO UnixFDList-toUnixFDList = unsafeCastTo UnixFDList--noUnixFDList :: Maybe UnixFDList-noUnixFDList = Nothing--type family ResolveUnixFDListMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixFDListMethod "append" o = UnixFDListAppendMethodInfo-    ResolveUnixFDListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveUnixFDListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveUnixFDListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveUnixFDListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveUnixFDListMethod "get" o = UnixFDListGetMethodInfo-    ResolveUnixFDListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveUnixFDListMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveUnixFDListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveUnixFDListMethod "peekFds" o = UnixFDListPeekFdsMethodInfo-    ResolveUnixFDListMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveUnixFDListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveUnixFDListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveUnixFDListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveUnixFDListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveUnixFDListMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveUnixFDListMethod "stealFds" o = UnixFDListStealFdsMethodInfo-    ResolveUnixFDListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveUnixFDListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveUnixFDListMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveUnixFDListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveUnixFDListMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveUnixFDListMethod "getLength" o = UnixFDListGetLengthMethodInfo-    ResolveUnixFDListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveUnixFDListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveUnixFDListMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveUnixFDListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveUnixFDListMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUnixFDListMethod t UnixFDList, MethodInfo info UnixFDList p) => IsLabelProxy t (UnixFDList -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUnixFDListMethod t UnixFDList, MethodInfo info UnixFDList p) => IsLabel t (UnixFDList -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList UnixFDList = UnixFDListAttributeList-type UnixFDListAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList UnixFDList = UnixFDListSignalList-type UnixFDListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method UnixFDList::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "UnixFDList")--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_list_new" g_unix_fd_list_new :: -    IO (Ptr UnixFDList)---unixFDListNew ::-    (MonadIO m) =>-    m UnixFDList                            -- result-unixFDListNew  = liftIO $ do-    result <- g_unix_fd_list_new-    checkUnexpectedReturnNULL "g_unix_fd_list_new" result-    result' <- (wrapObject UnixFDList) result-    return result'---- method UnixFDList::new_from_array--- method type : Constructor--- Args : [Arg {argCName = "fds", argType = TCArray False (-1) 1 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_fds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_fds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Gio" "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)---unixFDListNewFromArray ::-    (MonadIO m) =>-    [Int32]                                 -- fds-    -> m UnixFDList                         -- result-unixFDListNewFromArray fds = liftIO $ do-    let nFds = fromIntegral $ length fds-    fds' <- packStorableArray fds-    result <- g_unix_fd_list_new_from_array fds' nFds-    checkUnexpectedReturnNULL "g_unix_fd_list_new_from_array" result-    result' <- (wrapObject UnixFDList) result-    freeMem fds'-    return result'---- method UnixFDList::append--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "UnixFDList"-    Int32 ->                                -- fd : TBasicType TInt-    Ptr (Ptr GError) ->                     -- error-    IO Int32---unixFDListAppend ::-    (MonadIO m, UnixFDListK a) =>-    a                                       -- _obj-    -> Int32                                -- fd-    -> m Int32                              -- result-unixFDListAppend _obj fd = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_unix_fd_list_append _obj' fd-        touchManagedPtr _obj-        return result-     ) (do-        return ()-     )--data UnixFDListAppendMethodInfo-instance (signature ~ (Int32 -> m Int32), MonadIO m, UnixFDListK a) => MethodInfo UnixFDListAppendMethodInfo a signature where-    overloadedMethod _ = unixFDListAppend---- method UnixFDList::get--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "UnixFDList"-    Int32 ->                                -- index_ : TBasicType TInt-    Ptr (Ptr GError) ->                     -- error-    IO Int32---unixFDListGet ::-    (MonadIO m, UnixFDListK a) =>-    a                                       -- _obj-    -> Int32                                -- index_-    -> m Int32                              -- result-unixFDListGet _obj index_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ g_unix_fd_list_get _obj' index_-        touchManagedPtr _obj-        return result-     ) (do-        return ()-     )--data UnixFDListGetMethodInfo-instance (signature ~ (Int32 -> m Int32), MonadIO m, UnixFDListK a) => MethodInfo UnixFDListGetMethodInfo a signature where-    overloadedMethod _ = unixFDListGet---- method UnixFDList::get_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "UnixFDList"-    IO Int32---unixFDListGetLength ::-    (MonadIO m, UnixFDListK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-unixFDListGetLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_unix_fd_list_get_length _obj'-    touchManagedPtr _obj-    return result--data UnixFDListGetLengthMethodInfo-instance (signature ~ (m Int32), MonadIO m, UnixFDListK a) => MethodInfo UnixFDListGetLengthMethodInfo a signature where-    overloadedMethod _ = unixFDListGetLength---- method UnixFDList::peek_fds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "UnixFDList"-    Ptr Int32 ->                            -- length : TBasicType TInt-    IO (Ptr Int32)---unixFDListPeekFds ::-    (MonadIO m, UnixFDListK a) =>-    a                                       -- _obj-    -> m [Int32]                            -- result-unixFDListPeekFds _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    length_ <- allocMem :: IO (Ptr Int32)-    result <- g_unix_fd_list_peek_fds _obj' length_-    length_' <- peek length_-    checkUnexpectedReturnNULL "g_unix_fd_list_peek_fds" result-    result' <- (unpackStorableArrayWithLength length_') result-    touchManagedPtr _obj-    freeMem length_-    return result'--data UnixFDListPeekFdsMethodInfo-instance (signature ~ (m [Int32]), MonadIO m, UnixFDListK a) => MethodInfo UnixFDListPeekFdsMethodInfo a signature where-    overloadedMethod _ = unixFDListPeekFds---- method UnixFDList::steal_fds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, 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 ->                       -- _obj : TInterface "Gio" "UnixFDList"-    Ptr Int32 ->                            -- length : TBasicType TInt-    IO (Ptr Int32)---unixFDListStealFds ::-    (MonadIO m, UnixFDListK a) =>-    a                                       -- _obj-    -> m [Int32]                            -- result-unixFDListStealFds _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    length_ <- allocMem :: IO (Ptr Int32)-    result <- g_unix_fd_list_steal_fds _obj' length_-    length_' <- peek length_-    checkUnexpectedReturnNULL "g_unix_fd_list_steal_fds" result-    result' <- (unpackStorableArrayWithLength length_') result-    freeMem result-    touchManagedPtr _obj-    freeMem length_-    return result'--data UnixFDListStealFdsMethodInfo-instance (signature ~ (m [Int32]), MonadIO m, UnixFDListK a) => MethodInfo UnixFDListStealFdsMethodInfo a signature where-    overloadedMethod _ = unixFDListStealFds--
− GI/Gio/Objects/UnixFDList.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Objects.UnixFDList where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UnixFDList = UnixFDList (ForeignPtr UnixFDList)-instance GObject UnixFDList where-class GObject o => UnixFDListK o-instance (GObject o, IsDescendantOf UnixFDList o) => UnixFDListK o-data UnixFDListAppendMethodInfo-data UnixFDListGetMethodInfo-data UnixFDListGetLengthMethodInfo-data UnixFDListPeekFdsMethodInfo-data UnixFDListStealFdsMethodInfo
− GI/Gio/Objects/UnixFDMessage.hs 
@@ -1,304 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.UnixFDMessage-    ( ---- * Exported types-    UnixFDMessage(..)                       ,-    UnixFDMessageK                          ,-    toUnixFDMessage                         ,-    noUnixFDMessage                         ,--- -- * Methods--- ** unixFDMessageAppendFd-    UnixFDMessageAppendFdMethodInfo         ,-    unixFDMessageAppendFd                   ,----- ** unixFDMessageGetFdList-    UnixFDMessageGetFdListMethodInfo        ,-    unixFDMessageGetFdList                  ,----- ** unixFDMessageNew-    unixFDMessageNew                        ,----- ** unixFDMessageNewWithFdList-    unixFDMessageNewWithFdList              ,----- ** unixFDMessageStealFds-    UnixFDMessageStealFdsMethodInfo         ,-    unixFDMessageStealFds                   ,----- -- * Properties--- ** FdList-    UnixFDMessageFdListPropertyInfo         ,-    constructUnixFDMessageFdList            ,-    getUnixFDMessageFdList                  ,-    unixFDMessageFdList                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype UnixFDMessage = UnixFDMessage (ForeignPtr UnixFDMessage)-foreign import ccall "g_unix_fd_message_get_type"-    c_g_unix_fd_message_get_type :: IO GType--type instance ParentTypes UnixFDMessage = UnixFDMessageParentTypes-type UnixFDMessageParentTypes = '[SocketControlMessage, GObject.Object]--instance GObject UnixFDMessage where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_unix_fd_message_get_type-    --class GObject o => UnixFDMessageK o-instance (GObject o, IsDescendantOf UnixFDMessage o) => UnixFDMessageK o--toUnixFDMessage :: UnixFDMessageK o => o -> IO UnixFDMessage-toUnixFDMessage = unsafeCastTo UnixFDMessage--noUnixFDMessage :: Maybe UnixFDMessage-noUnixFDMessage = Nothing--type family ResolveUnixFDMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixFDMessageMethod "appendFd" o = UnixFDMessageAppendFdMethodInfo-    ResolveUnixFDMessageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveUnixFDMessageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveUnixFDMessageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveUnixFDMessageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveUnixFDMessageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveUnixFDMessageMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveUnixFDMessageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveUnixFDMessageMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveUnixFDMessageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveUnixFDMessageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveUnixFDMessageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveUnixFDMessageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveUnixFDMessageMethod "serialize" o = SocketControlMessageSerializeMethodInfo-    ResolveUnixFDMessageMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveUnixFDMessageMethod "stealFds" o = UnixFDMessageStealFdsMethodInfo-    ResolveUnixFDMessageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveUnixFDMessageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveUnixFDMessageMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveUnixFDMessageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveUnixFDMessageMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveUnixFDMessageMethod "getFdList" o = UnixFDMessageGetFdListMethodInfo-    ResolveUnixFDMessageMethod "getLevel" o = SocketControlMessageGetLevelMethodInfo-    ResolveUnixFDMessageMethod "getMsgType" o = SocketControlMessageGetMsgTypeMethodInfo-    ResolveUnixFDMessageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveUnixFDMessageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveUnixFDMessageMethod "getSize" o = SocketControlMessageGetSizeMethodInfo-    ResolveUnixFDMessageMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveUnixFDMessageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveUnixFDMessageMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUnixFDMessageMethod t UnixFDMessage, MethodInfo info UnixFDMessage p) => IsLabelProxy t (UnixFDMessage -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUnixFDMessageMethod t UnixFDMessage, MethodInfo info UnixFDMessage p) => IsLabel t (UnixFDMessage -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "fd-list"-   -- Type: TInterface "Gio" "UnixFDList"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getUnixFDMessageFdList :: (MonadIO m, UnixFDMessageK o) => o -> m UnixFDList-getUnixFDMessageFdList obj = liftIO $ checkUnexpectedNothing "getUnixFDMessageFdList" $ getObjectPropertyObject obj "fd-list" UnixFDList--constructUnixFDMessageFdList :: (UnixFDListK a) => a -> IO ([Char], GValue)-constructUnixFDMessageFdList val = constructObjectPropertyObject "fd-list" (Just val)--data UnixFDMessageFdListPropertyInfo-instance AttrInfo UnixFDMessageFdListPropertyInfo where-    type AttrAllowedOps UnixFDMessageFdListPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint UnixFDMessageFdListPropertyInfo = UnixFDListK-    type AttrBaseTypeConstraint UnixFDMessageFdListPropertyInfo = UnixFDMessageK-    type AttrGetType UnixFDMessageFdListPropertyInfo = UnixFDList-    type AttrLabel UnixFDMessageFdListPropertyInfo = "fd-list"-    attrGet _ = getUnixFDMessageFdList-    attrSet _ = undefined-    attrConstruct _ = constructUnixFDMessageFdList-    attrClear _ = undefined--type instance AttributeList UnixFDMessage = UnixFDMessageAttributeList-type UnixFDMessageAttributeList = ('[ '("fdList", UnixFDMessageFdListPropertyInfo)] :: [(Symbol, *)])--unixFDMessageFdList :: AttrLabelProxy "fdList"-unixFDMessageFdList = AttrLabelProxy--type instance SignalList UnixFDMessage = UnixFDMessageSignalList-type UnixFDMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method UnixFDMessage::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "UnixFDMessage")--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_message_new" g_unix_fd_message_new :: -    IO (Ptr UnixFDMessage)---unixFDMessageNew ::-    (MonadIO m) =>-    m UnixFDMessage                         -- result-unixFDMessageNew  = liftIO $ do-    result <- g_unix_fd_message_new-    checkUnexpectedReturnNULL "g_unix_fd_message_new" result-    result' <- (wrapObject UnixFDMessage) result-    return result'---- method UnixFDMessage::new_with_fd_list--- method type : Constructor--- Args : [Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 UnixFDList ->                       -- fd_list : TInterface "Gio" "UnixFDList"-    IO (Ptr UnixFDMessage)---unixFDMessageNewWithFdList ::-    (MonadIO m, UnixFDListK a) =>-    a                                       -- fdList-    -> m UnixFDMessage                      -- result-unixFDMessageNewWithFdList fdList = liftIO $ do-    let fdList' = unsafeManagedPtrCastPtr fdList-    result <- g_unix_fd_message_new_with_fd_list fdList'-    checkUnexpectedReturnNULL "g_unix_fd_message_new_with_fd_list" result-    result' <- (wrapObject UnixFDMessage) result-    touchManagedPtr fdList-    return result'---- method UnixFDMessage::append_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "UnixFDMessage"-    Int32 ->                                -- fd : TBasicType TInt-    Ptr (Ptr GError) ->                     -- error-    IO CInt---unixFDMessageAppendFd ::-    (MonadIO m, UnixFDMessageK a) =>-    a                                       -- _obj-    -> Int32                                -- fd-    -> m ()                                 -- result-unixFDMessageAppendFd _obj fd = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ g_unix_fd_message_append_fd _obj' fd-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data UnixFDMessageAppendFdMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, UnixFDMessageK a) => MethodInfo UnixFDMessageAppendFdMethodInfo a signature where-    overloadedMethod _ = unixFDMessageAppendFd---- method UnixFDMessage::get_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                    -- _obj : TInterface "Gio" "UnixFDMessage"-    IO (Ptr UnixFDList)---unixFDMessageGetFdList ::-    (MonadIO m, UnixFDMessageK a) =>-    a                                       -- _obj-    -> m UnixFDList                         -- result-unixFDMessageGetFdList _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_unix_fd_message_get_fd_list _obj'-    checkUnexpectedReturnNULL "g_unix_fd_message_get_fd_list" result-    result' <- (newObject UnixFDList) result-    touchManagedPtr _obj-    return result'--data UnixFDMessageGetFdListMethodInfo-instance (signature ~ (m UnixFDList), MonadIO m, UnixFDMessageK a) => MethodInfo UnixFDMessageGetFdListMethodInfo a signature where-    overloadedMethod _ = unixFDMessageGetFdList---- method UnixFDMessage::steal_fds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "UnixFDMessage"-    Ptr Int32 ->                            -- length : TBasicType TInt-    IO (Ptr Int32)---unixFDMessageStealFds ::-    (MonadIO m, UnixFDMessageK a) =>-    a                                       -- _obj-    -> m [Int32]                            -- result-unixFDMessageStealFds _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    length_ <- allocMem :: IO (Ptr Int32)-    result <- g_unix_fd_message_steal_fds _obj' length_-    length_' <- peek length_-    checkUnexpectedReturnNULL "g_unix_fd_message_steal_fds" result-    result' <- (unpackStorableArrayWithLength length_') result-    freeMem result-    touchManagedPtr _obj-    freeMem length_-    return result'--data UnixFDMessageStealFdsMethodInfo-instance (signature ~ (m [Int32]), MonadIO m, UnixFDMessageK a) => MethodInfo UnixFDMessageStealFdsMethodInfo a signature where-    overloadedMethod _ = unixFDMessageStealFds--
− GI/Gio/Objects/UnixFDMessage.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Objects.UnixFDMessage where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UnixFDMessage = UnixFDMessage (ForeignPtr UnixFDMessage)-instance GObject UnixFDMessage where-class GObject o => UnixFDMessageK o-instance (GObject o, IsDescendantOf UnixFDMessage o) => UnixFDMessageK o-data UnixFDMessageFdListPropertyInfo-data UnixFDMessageAppendFdMethodInfo-data UnixFDMessageGetFdListMethodInfo-data UnixFDMessageStealFdsMethodInfo
− GI/Gio/Objects/UnixInputStream.hs 
@@ -1,323 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.UnixInputStream-    ( ---- * Exported types-    UnixInputStream(..)                     ,-    UnixInputStreamK                        ,-    toUnixInputStream                       ,-    noUnixInputStream                       ,--- -- * Methods--- ** unixInputStreamGetCloseFd-    UnixInputStreamGetCloseFdMethodInfo     ,-    unixInputStreamGetCloseFd               ,----- ** unixInputStreamGetFd-    UnixInputStreamGetFdMethodInfo          ,-    unixInputStreamGetFd                    ,----- ** unixInputStreamNew-    unixInputStreamNew                      ,----- ** unixInputStreamSetCloseFd-    UnixInputStreamSetCloseFdMethodInfo     ,-    unixInputStreamSetCloseFd               ,----- -- * Properties--- ** CloseFd-    UnixInputStreamCloseFdPropertyInfo      ,-    constructUnixInputStreamCloseFd         ,-    getUnixInputStreamCloseFd               ,-    setUnixInputStreamCloseFd               ,-    unixInputStreamCloseFd                  ,----- ** Fd-    UnixInputStreamFdPropertyInfo           ,-    constructUnixInputStreamFd              ,-    getUnixInputStreamFd                    ,-    unixInputStreamFd                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype UnixInputStream = UnixInputStream (ForeignPtr UnixInputStream)-foreign import ccall "g_unix_input_stream_get_type"-    c_g_unix_input_stream_get_type :: IO GType--type instance ParentTypes UnixInputStream = UnixInputStreamParentTypes-type UnixInputStreamParentTypes = '[InputStream, GObject.Object, FileDescriptorBased, PollableInputStream]--instance GObject UnixInputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_unix_input_stream_get_type-    --class GObject o => UnixInputStreamK o-instance (GObject o, IsDescendantOf UnixInputStream o) => UnixInputStreamK o--toUnixInputStream :: UnixInputStreamK o => o -> IO UnixInputStream-toUnixInputStream = unsafeCastTo UnixInputStream--noUnixInputStream :: Maybe UnixInputStream-noUnixInputStream = Nothing--type family ResolveUnixInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveUnixInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveUnixInputStreamMethod "canPoll" o = PollableInputStreamCanPollMethodInfo-    ResolveUnixInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo-    ResolveUnixInputStreamMethod "close" o = InputStreamCloseMethodInfo-    ResolveUnixInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo-    ResolveUnixInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo-    ResolveUnixInputStreamMethod "createSource" o = PollableInputStreamCreateSourceMethodInfo-    ResolveUnixInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveUnixInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveUnixInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo-    ResolveUnixInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo-    ResolveUnixInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveUnixInputStreamMethod "isReadable" o = PollableInputStreamIsReadableMethodInfo-    ResolveUnixInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveUnixInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveUnixInputStreamMethod "read" o = InputStreamReadMethodInfo-    ResolveUnixInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo-    ResolveUnixInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo-    ResolveUnixInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo-    ResolveUnixInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo-    ResolveUnixInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo-    ResolveUnixInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo-    ResolveUnixInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo-    ResolveUnixInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo-    ResolveUnixInputStreamMethod "readNonblocking" o = PollableInputStreamReadNonblockingMethodInfo-    ResolveUnixInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveUnixInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveUnixInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveUnixInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveUnixInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveUnixInputStreamMethod "skip" o = InputStreamSkipMethodInfo-    ResolveUnixInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo-    ResolveUnixInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo-    ResolveUnixInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveUnixInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveUnixInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveUnixInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveUnixInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveUnixInputStreamMethod "getCloseFd" o = UnixInputStreamGetCloseFdMethodInfo-    ResolveUnixInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveUnixInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveUnixInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveUnixInputStreamMethod "setCloseFd" o = UnixInputStreamSetCloseFdMethodInfo-    ResolveUnixInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveUnixInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo-    ResolveUnixInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveUnixInputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUnixInputStreamMethod t UnixInputStream, MethodInfo info UnixInputStream p) => IsLabelProxy t (UnixInputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUnixInputStreamMethod t UnixInputStream, MethodInfo info UnixInputStream p) => IsLabel t (UnixInputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "close-fd"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getUnixInputStreamCloseFd :: (MonadIO m, UnixInputStreamK o) => o -> m Bool-getUnixInputStreamCloseFd obj = liftIO $ getObjectPropertyBool obj "close-fd"--setUnixInputStreamCloseFd :: (MonadIO m, UnixInputStreamK o) => o -> Bool -> m ()-setUnixInputStreamCloseFd obj val = liftIO $ setObjectPropertyBool obj "close-fd" val--constructUnixInputStreamCloseFd :: Bool -> IO ([Char], GValue)-constructUnixInputStreamCloseFd val = constructObjectPropertyBool "close-fd" val--data UnixInputStreamCloseFdPropertyInfo-instance AttrInfo UnixInputStreamCloseFdPropertyInfo where-    type AttrAllowedOps UnixInputStreamCloseFdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixInputStreamCloseFdPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint UnixInputStreamCloseFdPropertyInfo = UnixInputStreamK-    type AttrGetType UnixInputStreamCloseFdPropertyInfo = Bool-    type AttrLabel UnixInputStreamCloseFdPropertyInfo = "close-fd"-    attrGet _ = getUnixInputStreamCloseFd-    attrSet _ = setUnixInputStreamCloseFd-    attrConstruct _ = constructUnixInputStreamCloseFd-    attrClear _ = undefined---- VVV Prop "fd"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getUnixInputStreamFd :: (MonadIO m, UnixInputStreamK o) => o -> m Int32-getUnixInputStreamFd obj = liftIO $ getObjectPropertyInt32 obj "fd"--constructUnixInputStreamFd :: Int32 -> IO ([Char], GValue)-constructUnixInputStreamFd val = constructObjectPropertyInt32 "fd" val--data UnixInputStreamFdPropertyInfo-instance AttrInfo UnixInputStreamFdPropertyInfo where-    type AttrAllowedOps UnixInputStreamFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixInputStreamFdPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint UnixInputStreamFdPropertyInfo = UnixInputStreamK-    type AttrGetType UnixInputStreamFdPropertyInfo = Int32-    type AttrLabel UnixInputStreamFdPropertyInfo = "fd"-    attrGet _ = getUnixInputStreamFd-    attrSet _ = undefined-    attrConstruct _ = constructUnixInputStreamFd-    attrClear _ = undefined--type instance AttributeList UnixInputStream = UnixInputStreamAttributeList-type UnixInputStreamAttributeList = ('[ '("closeFd", UnixInputStreamCloseFdPropertyInfo), '("fd", UnixInputStreamFdPropertyInfo)] :: [(Symbol, *)])--unixInputStreamCloseFd :: AttrLabelProxy "closeFd"-unixInputStreamCloseFd = AttrLabelProxy--unixInputStreamFd :: AttrLabelProxy "fd"-unixInputStreamFd = AttrLabelProxy--type instance SignalList UnixInputStream = UnixInputStreamSignalList-type UnixInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method UnixInputStream::new--- method type : Constructor--- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---unixInputStreamNew ::-    (MonadIO m) =>-    Int32                                   -- fd-    -> Bool                                 -- closeFd-    -> m UnixInputStream                    -- result-unixInputStreamNew fd closeFd = liftIO $ do-    let closeFd' = (fromIntegral . fromEnum) closeFd-    result <- g_unix_input_stream_new fd closeFd'-    checkUnexpectedReturnNULL "g_unix_input_stream_new" result-    result' <- (wrapObject UnixInputStream) result-    return result'---- method UnixInputStream::get_close_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "UnixInputStream"-    IO CInt---unixInputStreamGetCloseFd ::-    (MonadIO m, UnixInputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-unixInputStreamGetCloseFd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_unix_input_stream_get_close_fd _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data UnixInputStreamGetCloseFdMethodInfo-instance (signature ~ (m Bool), MonadIO m, UnixInputStreamK a) => MethodInfo UnixInputStreamGetCloseFdMethodInfo a signature where-    overloadedMethod _ = unixInputStreamGetCloseFd---- method UnixInputStream::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "UnixInputStream"-    IO Int32---unixInputStreamGetFd ::-    (MonadIO m, UnixInputStreamK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-unixInputStreamGetFd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_unix_input_stream_get_fd _obj'-    touchManagedPtr _obj-    return result--data UnixInputStreamGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, UnixInputStreamK a) => MethodInfo UnixInputStreamGetFdMethodInfo a signature where-    overloadedMethod _ = unixInputStreamGetFd---- method UnixInputStream::set_close_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                  -- _obj : TInterface "Gio" "UnixInputStream"-    CInt ->                                 -- close_fd : TBasicType TBoolean-    IO ()---unixInputStreamSetCloseFd ::-    (MonadIO m, UnixInputStreamK a) =>-    a                                       -- _obj-    -> Bool                                 -- closeFd-    -> m ()                                 -- result-unixInputStreamSetCloseFd _obj closeFd = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let closeFd' = (fromIntegral . fromEnum) closeFd-    g_unix_input_stream_set_close_fd _obj' closeFd'-    touchManagedPtr _obj-    return ()--data UnixInputStreamSetCloseFdMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, UnixInputStreamK a) => MethodInfo UnixInputStreamSetCloseFdMethodInfo a signature where-    overloadedMethod _ = unixInputStreamSetCloseFd--
− GI/Gio/Objects/UnixInputStream.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Objects.UnixInputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UnixInputStream = UnixInputStream (ForeignPtr UnixInputStream)-instance GObject UnixInputStream where-class GObject o => UnixInputStreamK o-instance (GObject o, IsDescendantOf UnixInputStream o) => UnixInputStreamK o-data UnixInputStreamCloseFdPropertyInfo-data UnixInputStreamFdPropertyInfo-data UnixInputStreamGetCloseFdMethodInfo-data UnixInputStreamGetFdMethodInfo-data UnixInputStreamSetCloseFdMethodInfo
− GI/Gio/Objects/UnixMountMonitor.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.UnixMountMonitor-    ( ---- * Exported types-    UnixMountMonitor(..)                    ,-    UnixMountMonitorK                       ,-    toUnixMountMonitor                      ,-    noUnixMountMonitor                      ,--- -- * Methods--- ** unixMountMonitorGet-    unixMountMonitorGet                     ,----- ** unixMountMonitorNew-    unixMountMonitorNew                     ,----- ** unixMountMonitorSetRateLimit-    UnixMountMonitorSetRateLimitMethodInfo  ,-    unixMountMonitorSetRateLimit            ,----- -- * Signals--- ** MountpointsChanged-    UnixMountMonitorMountpointsChangedCallback,-    UnixMountMonitorMountpointsChangedCallbackC,-    UnixMountMonitorMountpointsChangedSignalInfo,-    afterUnixMountMonitorMountpointsChanged ,-    mkUnixMountMonitorMountpointsChangedCallback,-    noUnixMountMonitorMountpointsChangedCallback,-    onUnixMountMonitorMountpointsChanged    ,-    unixMountMonitorMountpointsChangedCallbackWrapper,-    unixMountMonitorMountpointsChangedClosure,----- ** MountsChanged-    UnixMountMonitorMountsChangedCallback   ,-    UnixMountMonitorMountsChangedCallbackC  ,-    UnixMountMonitorMountsChangedSignalInfo ,-    afterUnixMountMonitorMountsChanged      ,-    mkUnixMountMonitorMountsChangedCallback ,-    noUnixMountMonitorMountsChangedCallback ,-    onUnixMountMonitorMountsChanged         ,-    unixMountMonitorMountsChangedCallbackWrapper,-    unixMountMonitorMountsChangedClosure    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype UnixMountMonitor = UnixMountMonitor (ForeignPtr UnixMountMonitor)-foreign import ccall "g_unix_mount_monitor_get_type"-    c_g_unix_mount_monitor_get_type :: IO GType--type instance ParentTypes UnixMountMonitor = UnixMountMonitorParentTypes-type UnixMountMonitorParentTypes = '[GObject.Object]--instance GObject UnixMountMonitor where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_unix_mount_monitor_get_type-    --class GObject o => UnixMountMonitorK o-instance (GObject o, IsDescendantOf UnixMountMonitor o) => UnixMountMonitorK o--toUnixMountMonitor :: UnixMountMonitorK o => o -> IO UnixMountMonitor-toUnixMountMonitor = unsafeCastTo UnixMountMonitor--noUnixMountMonitor :: Maybe UnixMountMonitor-noUnixMountMonitor = Nothing--type family ResolveUnixMountMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixMountMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveUnixMountMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveUnixMountMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveUnixMountMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveUnixMountMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveUnixMountMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveUnixMountMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveUnixMountMonitorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveUnixMountMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveUnixMountMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveUnixMountMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveUnixMountMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveUnixMountMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveUnixMountMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveUnixMountMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveUnixMountMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveUnixMountMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveUnixMountMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveUnixMountMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveUnixMountMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveUnixMountMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveUnixMountMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveUnixMountMonitorMethod "setRateLimit" o = UnixMountMonitorSetRateLimitMethodInfo-    ResolveUnixMountMonitorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUnixMountMonitorMethod t UnixMountMonitor, MethodInfo info UnixMountMonitor p) => IsLabelProxy t (UnixMountMonitor -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUnixMountMonitorMethod t UnixMountMonitor, MethodInfo info UnixMountMonitor p) => IsLabel t (UnixMountMonitor -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal UnixMountMonitor::mountpoints-changed-type UnixMountMonitorMountpointsChangedCallback =-    IO ()--noUnixMountMonitorMountpointsChangedCallback :: Maybe UnixMountMonitorMountpointsChangedCallback-noUnixMountMonitorMountpointsChangedCallback = Nothing--type UnixMountMonitorMountpointsChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkUnixMountMonitorMountpointsChangedCallback :: UnixMountMonitorMountpointsChangedCallbackC -> IO (FunPtr UnixMountMonitorMountpointsChangedCallbackC)--unixMountMonitorMountpointsChangedClosure :: UnixMountMonitorMountpointsChangedCallback -> IO Closure-unixMountMonitorMountpointsChangedClosure cb = newCClosure =<< mkUnixMountMonitorMountpointsChangedCallback wrapped-    where wrapped = unixMountMonitorMountpointsChangedCallbackWrapper cb--unixMountMonitorMountpointsChangedCallbackWrapper ::-    UnixMountMonitorMountpointsChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-unixMountMonitorMountpointsChangedCallbackWrapper _cb _ _ = do-    _cb --onUnixMountMonitorMountpointsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountpointsChangedCallback -> m SignalHandlerId-onUnixMountMonitorMountpointsChanged obj cb = liftIO $ connectUnixMountMonitorMountpointsChanged obj cb SignalConnectBefore-afterUnixMountMonitorMountpointsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountpointsChangedCallback -> m SignalHandlerId-afterUnixMountMonitorMountpointsChanged obj cb = connectUnixMountMonitorMountpointsChanged obj cb SignalConnectAfter--connectUnixMountMonitorMountpointsChanged :: (GObject a, MonadIO m) =>-                                             a -> UnixMountMonitorMountpointsChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectUnixMountMonitorMountpointsChanged obj cb after = liftIO $ do-    cb' <- mkUnixMountMonitorMountpointsChangedCallback (unixMountMonitorMountpointsChangedCallbackWrapper cb)-    connectSignalFunPtr obj "mountpoints-changed" cb' after---- signal UnixMountMonitor::mounts-changed-type UnixMountMonitorMountsChangedCallback =-    IO ()--noUnixMountMonitorMountsChangedCallback :: Maybe UnixMountMonitorMountsChangedCallback-noUnixMountMonitorMountsChangedCallback = Nothing--type UnixMountMonitorMountsChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkUnixMountMonitorMountsChangedCallback :: UnixMountMonitorMountsChangedCallbackC -> IO (FunPtr UnixMountMonitorMountsChangedCallbackC)--unixMountMonitorMountsChangedClosure :: UnixMountMonitorMountsChangedCallback -> IO Closure-unixMountMonitorMountsChangedClosure cb = newCClosure =<< mkUnixMountMonitorMountsChangedCallback wrapped-    where wrapped = unixMountMonitorMountsChangedCallbackWrapper cb--unixMountMonitorMountsChangedCallbackWrapper ::-    UnixMountMonitorMountsChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-unixMountMonitorMountsChangedCallbackWrapper _cb _ _ = do-    _cb --onUnixMountMonitorMountsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountsChangedCallback -> m SignalHandlerId-onUnixMountMonitorMountsChanged obj cb = liftIO $ connectUnixMountMonitorMountsChanged obj cb SignalConnectBefore-afterUnixMountMonitorMountsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountsChangedCallback -> m SignalHandlerId-afterUnixMountMonitorMountsChanged obj cb = connectUnixMountMonitorMountsChanged obj cb SignalConnectAfter--connectUnixMountMonitorMountsChanged :: (GObject a, MonadIO m) =>-                                        a -> UnixMountMonitorMountsChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectUnixMountMonitorMountsChanged obj cb after = liftIO $ do-    cb' <- mkUnixMountMonitorMountsChangedCallback (unixMountMonitorMountsChangedCallbackWrapper cb)-    connectSignalFunPtr obj "mounts-changed" cb' after--type instance AttributeList UnixMountMonitor = UnixMountMonitorAttributeList-type UnixMountMonitorAttributeList = ('[ ] :: [(Symbol, *)])--data UnixMountMonitorMountpointsChangedSignalInfo-instance SignalInfo UnixMountMonitorMountpointsChangedSignalInfo where-    type HaskellCallbackType UnixMountMonitorMountpointsChangedSignalInfo = UnixMountMonitorMountpointsChangedCallback-    connectSignal _ = connectUnixMountMonitorMountpointsChanged--data UnixMountMonitorMountsChangedSignalInfo-instance SignalInfo UnixMountMonitorMountsChangedSignalInfo where-    type HaskellCallbackType UnixMountMonitorMountsChangedSignalInfo = UnixMountMonitorMountsChangedCallback-    connectSignal _ = connectUnixMountMonitorMountsChanged--type instance SignalList UnixMountMonitor = UnixMountMonitorSignalList-type UnixMountMonitorSignalList = ('[ '("mountpointsChanged", UnixMountMonitorMountpointsChangedSignalInfo), '("mountsChanged", UnixMountMonitorMountsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method UnixMountMonitor::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "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 g_unix_mount_monitor_get() instead."]#-}-unixMountMonitorNew ::-    (MonadIO m) =>-    m UnixMountMonitor                      -- result-unixMountMonitorNew  = liftIO $ do-    result <- g_unix_mount_monitor_new-    checkUnexpectedReturnNULL "g_unix_mount_monitor_new" result-    result' <- (wrapObject UnixMountMonitor) result-    return result'---- method UnixMountMonitor::set_rate_limit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "UnixMountMonitor"-    Int32 ->                                -- limit_msec : TBasicType TInt-    IO ()--{-# DEPRECATED unixMountMonitorSetRateLimit ["(Since version 2.44)","This function does nothing.  Don't call it."]#-}-unixMountMonitorSetRateLimit ::-    (MonadIO m, UnixMountMonitorK a) =>-    a                                       -- _obj-    -> Int32                                -- limitMsec-    -> m ()                                 -- result-unixMountMonitorSetRateLimit _obj limitMsec = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    g_unix_mount_monitor_set_rate_limit _obj' limitMsec-    touchManagedPtr _obj-    return ()--data UnixMountMonitorSetRateLimitMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, UnixMountMonitorK a) => MethodInfo UnixMountMonitorSetRateLimitMethodInfo a signature where-    overloadedMethod _ = unixMountMonitorSetRateLimit---- method UnixMountMonitor::get--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "UnixMountMonitor")--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_monitor_get" g_unix_mount_monitor_get :: -    IO (Ptr UnixMountMonitor)---unixMountMonitorGet ::-    (MonadIO m) =>-    m UnixMountMonitor                      -- result-unixMountMonitorGet  = liftIO $ do-    result <- g_unix_mount_monitor_get-    checkUnexpectedReturnNULL "g_unix_mount_monitor_get" result-    result' <- (wrapObject UnixMountMonitor) result-    return result'--
− GI/Gio/Objects/UnixMountMonitor.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gio.Objects.UnixMountMonitor where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UnixMountMonitor = UnixMountMonitor (ForeignPtr UnixMountMonitor)-instance GObject UnixMountMonitor where-class GObject o => UnixMountMonitorK o-instance (GObject o, IsDescendantOf UnixMountMonitor o) => UnixMountMonitorK o-data UnixMountMonitorMountpointsChangedSignalInfo-data UnixMountMonitorMountsChangedSignalInfo-data UnixMountMonitorSetRateLimitMethodInfo
− GI/Gio/Objects/UnixOutputStream.hs 
@@ -1,327 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.UnixOutputStream-    ( ---- * Exported types-    UnixOutputStream(..)                    ,-    UnixOutputStreamK                       ,-    toUnixOutputStream                      ,-    noUnixOutputStream                      ,--- -- * Methods--- ** unixOutputStreamGetCloseFd-    UnixOutputStreamGetCloseFdMethodInfo    ,-    unixOutputStreamGetCloseFd              ,----- ** unixOutputStreamGetFd-    UnixOutputStreamGetFdMethodInfo         ,-    unixOutputStreamGetFd                   ,----- ** unixOutputStreamNew-    unixOutputStreamNew                     ,----- ** unixOutputStreamSetCloseFd-    UnixOutputStreamSetCloseFdMethodInfo    ,-    unixOutputStreamSetCloseFd              ,----- -- * Properties--- ** CloseFd-    UnixOutputStreamCloseFdPropertyInfo     ,-    constructUnixOutputStreamCloseFd        ,-    getUnixOutputStreamCloseFd              ,-    setUnixOutputStreamCloseFd              ,-    unixOutputStreamCloseFd                 ,----- ** Fd-    UnixOutputStreamFdPropertyInfo          ,-    constructUnixOutputStreamFd             ,-    getUnixOutputStreamFd                   ,-    unixOutputStreamFd                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype UnixOutputStream = UnixOutputStream (ForeignPtr UnixOutputStream)-foreign import ccall "g_unix_output_stream_get_type"-    c_g_unix_output_stream_get_type :: IO GType--type instance ParentTypes UnixOutputStream = UnixOutputStreamParentTypes-type UnixOutputStreamParentTypes = '[OutputStream, GObject.Object, FileDescriptorBased, PollableOutputStream]--instance GObject UnixOutputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_unix_output_stream_get_type-    --class GObject o => UnixOutputStreamK o-instance (GObject o, IsDescendantOf UnixOutputStream o) => UnixOutputStreamK o--toUnixOutputStream :: UnixOutputStreamK o => o -> IO UnixOutputStream-toUnixOutputStream = unsafeCastTo UnixOutputStream--noUnixOutputStream :: Maybe UnixOutputStream-noUnixOutputStream = Nothing--type family ResolveUnixOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveUnixOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveUnixOutputStreamMethod "canPoll" o = PollableOutputStreamCanPollMethodInfo-    ResolveUnixOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo-    ResolveUnixOutputStreamMethod "close" o = OutputStreamCloseMethodInfo-    ResolveUnixOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo-    ResolveUnixOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo-    ResolveUnixOutputStreamMethod "createSource" o = PollableOutputStreamCreateSourceMethodInfo-    ResolveUnixOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo-    ResolveUnixOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo-    ResolveUnixOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo-    ResolveUnixOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveUnixOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveUnixOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo-    ResolveUnixOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo-    ResolveUnixOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo-    ResolveUnixOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveUnixOutputStreamMethod "isWritable" o = PollableOutputStreamIsWritableMethodInfo-    ResolveUnixOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveUnixOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveUnixOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveUnixOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveUnixOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveUnixOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveUnixOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveUnixOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo-    ResolveUnixOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo-    ResolveUnixOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo-    ResolveUnixOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveUnixOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveUnixOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveUnixOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveUnixOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveUnixOutputStreamMethod "write" o = OutputStreamWriteMethodInfo-    ResolveUnixOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo-    ResolveUnixOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo-    ResolveUnixOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo-    ResolveUnixOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo-    ResolveUnixOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo-    ResolveUnixOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo-    ResolveUnixOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo-    ResolveUnixOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo-    ResolveUnixOutputStreamMethod "writeNonblocking" o = PollableOutputStreamWriteNonblockingMethodInfo-    ResolveUnixOutputStreamMethod "getCloseFd" o = UnixOutputStreamGetCloseFdMethodInfo-    ResolveUnixOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveUnixOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveUnixOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveUnixOutputStreamMethod "setCloseFd" o = UnixOutputStreamSetCloseFdMethodInfo-    ResolveUnixOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveUnixOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo-    ResolveUnixOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveUnixOutputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUnixOutputStreamMethod t UnixOutputStream, MethodInfo info UnixOutputStream p) => IsLabelProxy t (UnixOutputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUnixOutputStreamMethod t UnixOutputStream, MethodInfo info UnixOutputStream p) => IsLabel t (UnixOutputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "close-fd"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getUnixOutputStreamCloseFd :: (MonadIO m, UnixOutputStreamK o) => o -> m Bool-getUnixOutputStreamCloseFd obj = liftIO $ getObjectPropertyBool obj "close-fd"--setUnixOutputStreamCloseFd :: (MonadIO m, UnixOutputStreamK o) => o -> Bool -> m ()-setUnixOutputStreamCloseFd obj val = liftIO $ setObjectPropertyBool obj "close-fd" val--constructUnixOutputStreamCloseFd :: Bool -> IO ([Char], GValue)-constructUnixOutputStreamCloseFd val = constructObjectPropertyBool "close-fd" val--data UnixOutputStreamCloseFdPropertyInfo-instance AttrInfo UnixOutputStreamCloseFdPropertyInfo where-    type AttrAllowedOps UnixOutputStreamCloseFdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixOutputStreamCloseFdPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint UnixOutputStreamCloseFdPropertyInfo = UnixOutputStreamK-    type AttrGetType UnixOutputStreamCloseFdPropertyInfo = Bool-    type AttrLabel UnixOutputStreamCloseFdPropertyInfo = "close-fd"-    attrGet _ = getUnixOutputStreamCloseFd-    attrSet _ = setUnixOutputStreamCloseFd-    attrConstruct _ = constructUnixOutputStreamCloseFd-    attrClear _ = undefined---- VVV Prop "fd"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getUnixOutputStreamFd :: (MonadIO m, UnixOutputStreamK o) => o -> m Int32-getUnixOutputStreamFd obj = liftIO $ getObjectPropertyInt32 obj "fd"--constructUnixOutputStreamFd :: Int32 -> IO ([Char], GValue)-constructUnixOutputStreamFd val = constructObjectPropertyInt32 "fd" val--data UnixOutputStreamFdPropertyInfo-instance AttrInfo UnixOutputStreamFdPropertyInfo where-    type AttrAllowedOps UnixOutputStreamFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixOutputStreamFdPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint UnixOutputStreamFdPropertyInfo = UnixOutputStreamK-    type AttrGetType UnixOutputStreamFdPropertyInfo = Int32-    type AttrLabel UnixOutputStreamFdPropertyInfo = "fd"-    attrGet _ = getUnixOutputStreamFd-    attrSet _ = undefined-    attrConstruct _ = constructUnixOutputStreamFd-    attrClear _ = undefined--type instance AttributeList UnixOutputStream = UnixOutputStreamAttributeList-type UnixOutputStreamAttributeList = ('[ '("closeFd", UnixOutputStreamCloseFdPropertyInfo), '("fd", UnixOutputStreamFdPropertyInfo)] :: [(Symbol, *)])--unixOutputStreamCloseFd :: AttrLabelProxy "closeFd"-unixOutputStreamCloseFd = AttrLabelProxy--unixOutputStreamFd :: AttrLabelProxy "fd"-unixOutputStreamFd = AttrLabelProxy--type instance SignalList UnixOutputStream = UnixOutputStreamSignalList-type UnixOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method UnixOutputStream::new--- method type : Constructor--- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---unixOutputStreamNew ::-    (MonadIO m) =>-    Int32                                   -- fd-    -> Bool                                 -- closeFd-    -> m UnixOutputStream                   -- result-unixOutputStreamNew fd closeFd = liftIO $ do-    let closeFd' = (fromIntegral . fromEnum) closeFd-    result <- g_unix_output_stream_new fd closeFd'-    checkUnexpectedReturnNULL "g_unix_output_stream_new" result-    result' <- (wrapObject UnixOutputStream) result-    return result'---- method UnixOutputStream::get_close_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "UnixOutputStream"-    IO CInt---unixOutputStreamGetCloseFd ::-    (MonadIO m, UnixOutputStreamK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-unixOutputStreamGetCloseFd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_unix_output_stream_get_close_fd _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data UnixOutputStreamGetCloseFdMethodInfo-instance (signature ~ (m Bool), MonadIO m, UnixOutputStreamK a) => MethodInfo UnixOutputStreamGetCloseFdMethodInfo a signature where-    overloadedMethod _ = unixOutputStreamGetCloseFd---- method UnixOutputStream::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "UnixOutputStream"-    IO Int32---unixOutputStreamGetFd ::-    (MonadIO m, UnixOutputStreamK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-unixOutputStreamGetFd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_unix_output_stream_get_fd _obj'-    touchManagedPtr _obj-    return result--data UnixOutputStreamGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, UnixOutputStreamK a) => MethodInfo UnixOutputStreamGetFdMethodInfo a signature where-    overloadedMethod _ = unixOutputStreamGetFd---- method UnixOutputStream::set_close_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "UnixOutputStream"-    CInt ->                                 -- close_fd : TBasicType TBoolean-    IO ()---unixOutputStreamSetCloseFd ::-    (MonadIO m, UnixOutputStreamK a) =>-    a                                       -- _obj-    -> Bool                                 -- closeFd-    -> m ()                                 -- result-unixOutputStreamSetCloseFd _obj closeFd = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let closeFd' = (fromIntegral . fromEnum) closeFd-    g_unix_output_stream_set_close_fd _obj' closeFd'-    touchManagedPtr _obj-    return ()--data UnixOutputStreamSetCloseFdMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, UnixOutputStreamK a) => MethodInfo UnixOutputStreamSetCloseFdMethodInfo a signature where-    overloadedMethod _ = unixOutputStreamSetCloseFd--
− GI/Gio/Objects/UnixOutputStream.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Objects.UnixOutputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UnixOutputStream = UnixOutputStream (ForeignPtr UnixOutputStream)-instance GObject UnixOutputStream where-class GObject o => UnixOutputStreamK o-instance (GObject o, IsDescendantOf UnixOutputStream o) => UnixOutputStreamK o-data UnixOutputStreamCloseFdPropertyInfo-data UnixOutputStreamFdPropertyInfo-data UnixOutputStreamGetCloseFdMethodInfo-data UnixOutputStreamGetFdMethodInfo-data UnixOutputStreamSetCloseFdMethodInfo
− GI/Gio/Objects/UnixSocketAddress.hs 
@@ -1,489 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.UnixSocketAddress-    ( ---- * Exported types-    UnixSocketAddress(..)                   ,-    UnixSocketAddressK                      ,-    toUnixSocketAddress                     ,-    noUnixSocketAddress                     ,--- -- * Methods--- ** unixSocketAddressAbstractNamesSupported-    unixSocketAddressAbstractNamesSupported ,----- ** unixSocketAddressGetAddressType-    UnixSocketAddressGetAddressTypeMethodInfo,-    unixSocketAddressGetAddressType         ,----- ** unixSocketAddressGetIsAbstract-    UnixSocketAddressGetIsAbstractMethodInfo,-    unixSocketAddressGetIsAbstract          ,----- ** unixSocketAddressGetPath-    UnixSocketAddressGetPathMethodInfo      ,-    unixSocketAddressGetPath                ,----- ** unixSocketAddressGetPathLen-    UnixSocketAddressGetPathLenMethodInfo   ,-    unixSocketAddressGetPathLen             ,----- ** unixSocketAddressNew-    unixSocketAddressNew                    ,----- ** unixSocketAddressNewAbstract-    unixSocketAddressNewAbstract            ,----- ** unixSocketAddressNewWithType-    unixSocketAddressNewWithType            ,----- -- * Properties--- ** Abstract-    UnixSocketAddressAbstractPropertyInfo   ,-    constructUnixSocketAddressAbstract      ,-    getUnixSocketAddressAbstract            ,-    unixSocketAddressAbstract               ,----- ** AddressType-    UnixSocketAddressAddressTypePropertyInfo,-    constructUnixSocketAddressAddressType   ,-    getUnixSocketAddressAddressType         ,-    unixSocketAddressAddressType            ,----- ** Path-    UnixSocketAddressPathPropertyInfo       ,-    constructUnixSocketAddressPath          ,-    getUnixSocketAddressPath                ,-    unixSocketAddressPath                   ,----- ** PathAsArray-    UnixSocketAddressPathAsArrayPropertyInfo,-    constructUnixSocketAddressPathAsArray   ,-    getUnixSocketAddressPathAsArray         ,-    unixSocketAddressPathAsArray            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype UnixSocketAddress = UnixSocketAddress (ForeignPtr UnixSocketAddress)-foreign import ccall "g_unix_socket_address_get_type"-    c_g_unix_socket_address_get_type :: IO GType--type instance ParentTypes UnixSocketAddress = UnixSocketAddressParentTypes-type UnixSocketAddressParentTypes = '[SocketAddress, GObject.Object, SocketConnectable]--instance GObject UnixSocketAddress where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_unix_socket_address_get_type-    --class GObject o => UnixSocketAddressK o-instance (GObject o, IsDescendantOf UnixSocketAddress o) => UnixSocketAddressK o--toUnixSocketAddress :: UnixSocketAddressK o => o -> IO UnixSocketAddress-toUnixSocketAddress = unsafeCastTo UnixSocketAddress--noUnixSocketAddress :: Maybe UnixSocketAddress-noUnixSocketAddress = Nothing--type family ResolveUnixSocketAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixSocketAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveUnixSocketAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveUnixSocketAddressMethod "enumerate" o = SocketConnectableEnumerateMethodInfo-    ResolveUnixSocketAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveUnixSocketAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveUnixSocketAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveUnixSocketAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveUnixSocketAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveUnixSocketAddressMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo-    ResolveUnixSocketAddressMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveUnixSocketAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveUnixSocketAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveUnixSocketAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveUnixSocketAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveUnixSocketAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveUnixSocketAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveUnixSocketAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveUnixSocketAddressMethod "toNative" o = SocketAddressToNativeMethodInfo-    ResolveUnixSocketAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveUnixSocketAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveUnixSocketAddressMethod "getAddressType" o = UnixSocketAddressGetAddressTypeMethodInfo-    ResolveUnixSocketAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveUnixSocketAddressMethod "getFamily" o = SocketAddressGetFamilyMethodInfo-    ResolveUnixSocketAddressMethod "getIsAbstract" o = UnixSocketAddressGetIsAbstractMethodInfo-    ResolveUnixSocketAddressMethod "getNativeSize" o = SocketAddressGetNativeSizeMethodInfo-    ResolveUnixSocketAddressMethod "getPath" o = UnixSocketAddressGetPathMethodInfo-    ResolveUnixSocketAddressMethod "getPathLen" o = UnixSocketAddressGetPathLenMethodInfo-    ResolveUnixSocketAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveUnixSocketAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveUnixSocketAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveUnixSocketAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveUnixSocketAddressMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUnixSocketAddressMethod t UnixSocketAddress, MethodInfo info UnixSocketAddress p) => IsLabelProxy t (UnixSocketAddress -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUnixSocketAddressMethod t UnixSocketAddress, MethodInfo info UnixSocketAddress p) => IsLabel t (UnixSocketAddress -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "abstract"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getUnixSocketAddressAbstract :: (MonadIO m, UnixSocketAddressK o) => o -> m Bool-getUnixSocketAddressAbstract obj = liftIO $ getObjectPropertyBool obj "abstract"--constructUnixSocketAddressAbstract :: Bool -> IO ([Char], GValue)-constructUnixSocketAddressAbstract val = constructObjectPropertyBool "abstract" val--data UnixSocketAddressAbstractPropertyInfo-instance AttrInfo UnixSocketAddressAbstractPropertyInfo where-    type AttrAllowedOps UnixSocketAddressAbstractPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixSocketAddressAbstractPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint UnixSocketAddressAbstractPropertyInfo = UnixSocketAddressK-    type AttrGetType UnixSocketAddressAbstractPropertyInfo = Bool-    type AttrLabel UnixSocketAddressAbstractPropertyInfo = "abstract"-    attrGet _ = getUnixSocketAddressAbstract-    attrSet _ = undefined-    attrConstruct _ = constructUnixSocketAddressAbstract-    attrClear _ = undefined---- VVV Prop "address-type"-   -- Type: TInterface "Gio" "UnixSocketAddressType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getUnixSocketAddressAddressType :: (MonadIO m, UnixSocketAddressK o) => o -> m UnixSocketAddressType-getUnixSocketAddressAddressType obj = liftIO $ getObjectPropertyEnum obj "address-type"--constructUnixSocketAddressAddressType :: UnixSocketAddressType -> IO ([Char], GValue)-constructUnixSocketAddressAddressType val = constructObjectPropertyEnum "address-type" val--data UnixSocketAddressAddressTypePropertyInfo-instance AttrInfo UnixSocketAddressAddressTypePropertyInfo where-    type AttrAllowedOps UnixSocketAddressAddressTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixSocketAddressAddressTypePropertyInfo = (~) UnixSocketAddressType-    type AttrBaseTypeConstraint UnixSocketAddressAddressTypePropertyInfo = UnixSocketAddressK-    type AttrGetType UnixSocketAddressAddressTypePropertyInfo = UnixSocketAddressType-    type AttrLabel UnixSocketAddressAddressTypePropertyInfo = "address-type"-    attrGet _ = getUnixSocketAddressAddressType-    attrSet _ = undefined-    attrConstruct _ = constructUnixSocketAddressAddressType-    attrClear _ = undefined---- VVV Prop "path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getUnixSocketAddressPath :: (MonadIO m, UnixSocketAddressK o) => o -> m T.Text-getUnixSocketAddressPath obj = liftIO $ checkUnexpectedNothing "getUnixSocketAddressPath" $ getObjectPropertyString obj "path"--constructUnixSocketAddressPath :: T.Text -> IO ([Char], GValue)-constructUnixSocketAddressPath val = constructObjectPropertyString "path" (Just val)--data UnixSocketAddressPathPropertyInfo-instance AttrInfo UnixSocketAddressPathPropertyInfo where-    type AttrAllowedOps UnixSocketAddressPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint UnixSocketAddressPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint UnixSocketAddressPathPropertyInfo = UnixSocketAddressK-    type AttrGetType UnixSocketAddressPathPropertyInfo = T.Text-    type AttrLabel UnixSocketAddressPathPropertyInfo = "path"-    attrGet _ = getUnixSocketAddressPath-    attrSet _ = undefined-    attrConstruct _ = constructUnixSocketAddressPath-    attrClear _ = undefined---- VVV Prop "path-as-array"-   -- Type: TByteArray-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getUnixSocketAddressPathAsArray :: (MonadIO m, UnixSocketAddressK o) => o -> m (Maybe ByteString)-getUnixSocketAddressPathAsArray obj = liftIO $ getObjectPropertyByteArray obj "path-as-array"--constructUnixSocketAddressPathAsArray :: ByteString -> IO ([Char], GValue)-constructUnixSocketAddressPathAsArray val = constructObjectPropertyByteArray "path-as-array" (Just val)--data UnixSocketAddressPathAsArrayPropertyInfo-instance AttrInfo UnixSocketAddressPathAsArrayPropertyInfo where-    type AttrAllowedOps UnixSocketAddressPathAsArrayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint UnixSocketAddressPathAsArrayPropertyInfo = (~) ByteString-    type AttrBaseTypeConstraint UnixSocketAddressPathAsArrayPropertyInfo = UnixSocketAddressK-    type AttrGetType UnixSocketAddressPathAsArrayPropertyInfo = (Maybe ByteString)-    type AttrLabel UnixSocketAddressPathAsArrayPropertyInfo = "path-as-array"-    attrGet _ = getUnixSocketAddressPathAsArray-    attrSet _ = undefined-    attrConstruct _ = constructUnixSocketAddressPathAsArray-    attrClear _ = undefined--type instance AttributeList UnixSocketAddress = UnixSocketAddressAttributeList-type UnixSocketAddressAttributeList = ('[ '("abstract", UnixSocketAddressAbstractPropertyInfo), '("addressType", UnixSocketAddressAddressTypePropertyInfo), '("family", SocketAddressFamilyPropertyInfo), '("path", UnixSocketAddressPathPropertyInfo), '("pathAsArray", UnixSocketAddressPathAsArrayPropertyInfo)] :: [(Symbol, *)])--unixSocketAddressAbstract :: AttrLabelProxy "abstract"-unixSocketAddressAbstract = AttrLabelProxy--unixSocketAddressAddressType :: AttrLabelProxy "addressType"-unixSocketAddressAddressType = AttrLabelProxy--unixSocketAddressPath :: AttrLabelProxy "path"-unixSocketAddressPath = AttrLabelProxy--unixSocketAddressPathAsArray :: AttrLabelProxy "pathAsArray"-unixSocketAddressPathAsArray = AttrLabelProxy--type instance SignalList UnixSocketAddress = UnixSocketAddressSignalList-type UnixSocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method UnixSocketAddress::new--- method type : Constructor--- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---unixSocketAddressNew ::-    (MonadIO m) =>-    T.Text                                  -- path-    -> m UnixSocketAddress                  -- result-unixSocketAddressNew path = liftIO $ do-    path' <- textToCString path-    result <- g_unix_socket_address_new path'-    checkUnexpectedReturnNULL "g_unix_socket_address_new" result-    result' <- (wrapObject UnixSocketAddress) result-    freeMem path'-    return result'---- method UnixSocketAddress::new_abstract--- method type : Constructor--- Args : [Arg {argCName = "path", argType = TCArray False (-1) 1 (TBasicType TInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Gio" "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 g_unix_socket_address_new_with_type()."]#-}-unixSocketAddressNewAbstract ::-    (MonadIO m) =>-    [Int8]                                  -- path-    -> m UnixSocketAddress                  -- result-unixSocketAddressNewAbstract path = liftIO $ do-    let pathLen = fromIntegral $ length path-    path' <- packStorableArray path-    result <- g_unix_socket_address_new_abstract path' pathLen-    checkUnexpectedReturnNULL "g_unix_socket_address_new_abstract" result-    result' <- (wrapObject UnixSocketAddress) result-    freeMem path'-    return result'---- method UnixSocketAddress::new_with_type--- method type : Constructor--- Args : [Arg {argCName = "path", argType = TCArray False (-1) 1 (TBasicType TInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "UnixSocketAddressType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Gio" "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 "Gio" "UnixSocketAddressType"-    IO (Ptr UnixSocketAddress)---unixSocketAddressNewWithType ::-    (MonadIO m) =>-    [Int8]                                  -- path-    -> UnixSocketAddressType                -- type_-    -> m UnixSocketAddress                  -- result-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 "g_unix_socket_address_new_with_type" result-    result' <- (wrapObject UnixSocketAddress) result-    freeMem path'-    return result'---- method UnixSocketAddress::get_address_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                -- _obj : TInterface "Gio" "UnixSocketAddress"-    IO CUInt---unixSocketAddressGetAddressType ::-    (MonadIO m, UnixSocketAddressK a) =>-    a                                       -- _obj-    -> m UnixSocketAddressType              -- result-unixSocketAddressGetAddressType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_unix_socket_address_get_address_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data UnixSocketAddressGetAddressTypeMethodInfo-instance (signature ~ (m UnixSocketAddressType), MonadIO m, UnixSocketAddressK a) => MethodInfo UnixSocketAddressGetAddressTypeMethodInfo a signature where-    overloadedMethod _ = unixSocketAddressGetAddressType---- method UnixSocketAddress::get_is_abstract--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "UnixSocketAddress"-    IO CInt--{-# DEPRECATED unixSocketAddressGetIsAbstract ["Use g_unix_socket_address_get_address_type()"]#-}-unixSocketAddressGetIsAbstract ::-    (MonadIO m, UnixSocketAddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-unixSocketAddressGetIsAbstract _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_unix_socket_address_get_is_abstract _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data UnixSocketAddressGetIsAbstractMethodInfo-instance (signature ~ (m Bool), MonadIO m, UnixSocketAddressK a) => MethodInfo UnixSocketAddressGetIsAbstractMethodInfo a signature where-    overloadedMethod _ = unixSocketAddressGetIsAbstract---- method UnixSocketAddress::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "UnixSocketAddress"-    IO CString---unixSocketAddressGetPath ::-    (MonadIO m, UnixSocketAddressK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-unixSocketAddressGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_unix_socket_address_get_path _obj'-    checkUnexpectedReturnNULL "g_unix_socket_address_get_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data UnixSocketAddressGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, UnixSocketAddressK a) => MethodInfo UnixSocketAddressGetPathMethodInfo a signature where-    overloadedMethod _ = unixSocketAddressGetPath---- method UnixSocketAddress::get_path_len--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "UnixSocketAddress"-    IO Word64---unixSocketAddressGetPathLen ::-    (MonadIO m, UnixSocketAddressK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-unixSocketAddressGetPathLen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_unix_socket_address_get_path_len _obj'-    touchManagedPtr _obj-    return result--data UnixSocketAddressGetPathLenMethodInfo-instance (signature ~ (m Word64), MonadIO m, UnixSocketAddressK a) => MethodInfo UnixSocketAddressGetPathLenMethodInfo a signature where-    overloadedMethod _ = unixSocketAddressGetPathLen---- 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---unixSocketAddressAbstractNamesSupported ::-    (MonadIO m) =>-    m Bool                                  -- result-unixSocketAddressAbstractNamesSupported  = liftIO $ do-    result <- g_unix_socket_address_abstract_names_supported-    let result' = (/= 0) result-    return result'--
− GI/Gio/Objects/UnixSocketAddress.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gio.Objects.UnixSocketAddress where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UnixSocketAddress = UnixSocketAddress (ForeignPtr UnixSocketAddress)-instance GObject UnixSocketAddress where-class GObject o => UnixSocketAddressK o-instance (GObject o, IsDescendantOf UnixSocketAddress o) => UnixSocketAddressK o-data UnixSocketAddressAbstractPropertyInfo-data UnixSocketAddressAddressTypePropertyInfo-data UnixSocketAddressPathPropertyInfo-data UnixSocketAddressPathAsArrayPropertyInfo-data UnixSocketAddressGetAddressTypeMethodInfo-data UnixSocketAddressGetIsAbstractMethodInfo-data UnixSocketAddressGetPathMethodInfo-data UnixSocketAddressGetPathLenMethodInfo
− GI/Gio/Objects/Vfs.hs 
@@ -1,331 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.Vfs-    ( ---- * Exported types-    Vfs(..)                                 ,-    VfsK                                    ,-    toVfs                                   ,-    noVfs                                   ,--- -- * Methods--- ** vfsGetDefault-    vfsGetDefault                           ,----- ** vfsGetFileForPath-    VfsGetFileForPathMethodInfo             ,-    vfsGetFileForPath                       ,----- ** vfsGetFileForUri-    VfsGetFileForUriMethodInfo              ,-    vfsGetFileForUri                        ,----- ** vfsGetLocal-    vfsGetLocal                             ,----- ** vfsGetSupportedUriSchemes-    VfsGetSupportedUriSchemesMethodInfo     ,-    vfsGetSupportedUriSchemes               ,----- ** vfsIsActive-    VfsIsActiveMethodInfo                   ,-    vfsIsActive                             ,----- ** vfsParseName-    VfsParseNameMethodInfo                  ,-    vfsParseName                            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype Vfs = Vfs (ForeignPtr Vfs)-foreign import ccall "g_vfs_get_type"-    c_g_vfs_get_type :: IO GType--type instance ParentTypes Vfs = VfsParentTypes-type VfsParentTypes = '[GObject.Object]--instance GObject Vfs where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_vfs_get_type-    --class GObject o => VfsK o-instance (GObject o, IsDescendantOf Vfs o) => VfsK o--toVfs :: VfsK o => o -> IO Vfs-toVfs = unsafeCastTo Vfs--noVfs :: Maybe Vfs-noVfs = Nothing--type family ResolveVfsMethod (t :: Symbol) (o :: *) :: * where-    ResolveVfsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveVfsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveVfsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveVfsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveVfsMethod "isActive" o = VfsIsActiveMethodInfo-    ResolveVfsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveVfsMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveVfsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveVfsMethod "parseName" o = VfsParseNameMethodInfo-    ResolveVfsMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveVfsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveVfsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveVfsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveVfsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveVfsMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveVfsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveVfsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveVfsMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveVfsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveVfsMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveVfsMethod "getFileForPath" o = VfsGetFileForPathMethodInfo-    ResolveVfsMethod "getFileForUri" o = VfsGetFileForUriMethodInfo-    ResolveVfsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveVfsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveVfsMethod "getSupportedUriSchemes" o = VfsGetSupportedUriSchemesMethodInfo-    ResolveVfsMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveVfsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveVfsMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveVfsMethod t Vfs, MethodInfo info Vfs p) => IsLabelProxy t (Vfs -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveVfsMethod t Vfs, MethodInfo info Vfs p) => IsLabel t (Vfs -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Vfs = VfsAttributeList-type VfsAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Vfs = VfsSignalList-type VfsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Vfs::get_file_for_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_vfs_get_file_for_path" g_vfs_get_file_for_path :: -    Ptr Vfs ->                              -- _obj : TInterface "Gio" "Vfs"-    CString ->                              -- path : TBasicType TUTF8-    IO (Ptr File)---vfsGetFileForPath ::-    (MonadIO m, VfsK a) =>-    a                                       -- _obj-    -> T.Text                               -- path-    -> m File                               -- result-vfsGetFileForPath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    path' <- textToCString path-    result <- g_vfs_get_file_for_path _obj' path'-    checkUnexpectedReturnNULL "g_vfs_get_file_for_path" result-    result' <- (wrapObject File) result-    touchManagedPtr _obj-    freeMem path'-    return result'--data VfsGetFileForPathMethodInfo-instance (signature ~ (T.Text -> m File), MonadIO m, VfsK a) => MethodInfo VfsGetFileForPathMethodInfo a signature where-    overloadedMethod _ = vfsGetFileForPath---- method Vfs::get_file_for_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_vfs_get_file_for_uri" g_vfs_get_file_for_uri :: -    Ptr Vfs ->                              -- _obj : TInterface "Gio" "Vfs"-    CString ->                              -- uri : TBasicType TUTF8-    IO (Ptr File)---vfsGetFileForUri ::-    (MonadIO m, VfsK a) =>-    a                                       -- _obj-    -> T.Text                               -- uri-    -> m File                               -- result-vfsGetFileForUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uri' <- textToCString uri-    result <- g_vfs_get_file_for_uri _obj' uri'-    checkUnexpectedReturnNULL "g_vfs_get_file_for_uri" result-    result' <- (wrapObject File) result-    touchManagedPtr _obj-    freeMem uri'-    return result'--data VfsGetFileForUriMethodInfo-instance (signature ~ (T.Text -> m File), MonadIO m, VfsK a) => MethodInfo VfsGetFileForUriMethodInfo a signature where-    overloadedMethod _ = vfsGetFileForUri---- method Vfs::get_supported_uri_schemes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, 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 ->                              -- _obj : TInterface "Gio" "Vfs"-    IO (Ptr CString)---vfsGetSupportedUriSchemes ::-    (MonadIO m, VfsK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-vfsGetSupportedUriSchemes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_vfs_get_supported_uri_schemes _obj'-    checkUnexpectedReturnNULL "g_vfs_get_supported_uri_schemes" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr _obj-    return result'--data VfsGetSupportedUriSchemesMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, VfsK a) => MethodInfo VfsGetSupportedUriSchemesMethodInfo a signature where-    overloadedMethod _ = vfsGetSupportedUriSchemes---- method Vfs::is_active--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, 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 ->                              -- _obj : TInterface "Gio" "Vfs"-    IO CInt---vfsIsActive ::-    (MonadIO m, VfsK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-vfsIsActive _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_vfs_is_active _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data VfsIsActiveMethodInfo-instance (signature ~ (m Bool), MonadIO m, VfsK a) => MethodInfo VfsIsActiveMethodInfo a signature where-    overloadedMethod _ = vfsIsActive---- method Vfs::parse_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parse_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "g_vfs_parse_name" g_vfs_parse_name :: -    Ptr Vfs ->                              -- _obj : TInterface "Gio" "Vfs"-    CString ->                              -- parse_name : TBasicType TUTF8-    IO (Ptr File)---vfsParseName ::-    (MonadIO m, VfsK a) =>-    a                                       -- _obj-    -> T.Text                               -- parseName-    -> m File                               -- result-vfsParseName _obj parseName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    parseName' <- textToCString parseName-    result <- g_vfs_parse_name _obj' parseName'-    checkUnexpectedReturnNULL "g_vfs_parse_name" result-    result' <- (wrapObject File) result-    touchManagedPtr _obj-    freeMem parseName'-    return result'--data VfsParseNameMethodInfo-instance (signature ~ (T.Text -> m File), MonadIO m, VfsK a) => MethodInfo VfsParseNameMethodInfo a signature where-    overloadedMethod _ = vfsParseName---- method Vfs::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "Vfs")--- throws : False--- Skip return : False--foreign import ccall "g_vfs_get_default" g_vfs_get_default :: -    IO (Ptr Vfs)---vfsGetDefault ::-    (MonadIO m) =>-    m Vfs                                   -- result-vfsGetDefault  = liftIO $ do-    result <- g_vfs_get_default-    checkUnexpectedReturnNULL "g_vfs_get_default" result-    result' <- (newObject Vfs) result-    return result'---- method Vfs::get_local--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "Vfs")--- throws : False--- Skip return : False--foreign import ccall "g_vfs_get_local" g_vfs_get_local :: -    IO (Ptr Vfs)---vfsGetLocal ::-    (MonadIO m) =>-    m Vfs                                   -- result-vfsGetLocal  = liftIO $ do-    result <- g_vfs_get_local-    checkUnexpectedReturnNULL "g_vfs_get_local" result-    result' <- (newObject Vfs) result-    return result'--
− GI/Gio/Objects/Vfs.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Objects.Vfs where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Vfs = Vfs (ForeignPtr Vfs)-instance GObject Vfs where-class GObject o => VfsK o-instance (GObject o, IsDescendantOf Vfs o) => VfsK o-data VfsGetFileForPathMethodInfo-data VfsGetFileForUriMethodInfo-data VfsGetSupportedUriSchemesMethodInfo-data VfsIsActiveMethodInfo-data VfsParseNameMethodInfo
− GI/Gio/Objects/VolumeMonitor.hs 
@@ -1,1046 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.VolumeMonitor-    ( ---- * Exported types-    VolumeMonitor(..)                       ,-    VolumeMonitorK                          ,-    toVolumeMonitor                         ,-    noVolumeMonitor                         ,--- -- * Methods--- ** volumeMonitorAdoptOrphanMount-    volumeMonitorAdoptOrphanMount           ,----- ** volumeMonitorGet-    volumeMonitorGet                        ,----- ** volumeMonitorGetConnectedDrives-    VolumeMonitorGetConnectedDrivesMethodInfo,-    volumeMonitorGetConnectedDrives         ,----- ** volumeMonitorGetMountForUuid-    VolumeMonitorGetMountForUuidMethodInfo  ,-    volumeMonitorGetMountForUuid            ,----- ** volumeMonitorGetMounts-    VolumeMonitorGetMountsMethodInfo        ,-    volumeMonitorGetMounts                  ,----- ** volumeMonitorGetVolumeForUuid-    VolumeMonitorGetVolumeForUuidMethodInfo ,-    volumeMonitorGetVolumeForUuid           ,----- ** volumeMonitorGetVolumes-    VolumeMonitorGetVolumesMethodInfo       ,-    volumeMonitorGetVolumes                 ,----- -- * Signals--- ** DriveChanged-    VolumeMonitorDriveChangedCallback       ,-    VolumeMonitorDriveChangedCallbackC      ,-    VolumeMonitorDriveChangedSignalInfo     ,-    afterVolumeMonitorDriveChanged          ,-    mkVolumeMonitorDriveChangedCallback     ,-    noVolumeMonitorDriveChangedCallback     ,-    onVolumeMonitorDriveChanged             ,-    volumeMonitorDriveChangedCallbackWrapper,-    volumeMonitorDriveChangedClosure        ,----- ** DriveConnected-    VolumeMonitorDriveConnectedCallback     ,-    VolumeMonitorDriveConnectedCallbackC    ,-    VolumeMonitorDriveConnectedSignalInfo   ,-    afterVolumeMonitorDriveConnected        ,-    mkVolumeMonitorDriveConnectedCallback   ,-    noVolumeMonitorDriveConnectedCallback   ,-    onVolumeMonitorDriveConnected           ,-    volumeMonitorDriveConnectedCallbackWrapper,-    volumeMonitorDriveConnectedClosure      ,----- ** DriveDisconnected-    VolumeMonitorDriveDisconnectedCallback  ,-    VolumeMonitorDriveDisconnectedCallbackC ,-    VolumeMonitorDriveDisconnectedSignalInfo,-    afterVolumeMonitorDriveDisconnected     ,-    mkVolumeMonitorDriveDisconnectedCallback,-    noVolumeMonitorDriveDisconnectedCallback,-    onVolumeMonitorDriveDisconnected        ,-    volumeMonitorDriveDisconnectedCallbackWrapper,-    volumeMonitorDriveDisconnectedClosure   ,----- ** DriveEjectButton-    VolumeMonitorDriveEjectButtonCallback   ,-    VolumeMonitorDriveEjectButtonCallbackC  ,-    VolumeMonitorDriveEjectButtonSignalInfo ,-    afterVolumeMonitorDriveEjectButton      ,-    mkVolumeMonitorDriveEjectButtonCallback ,-    noVolumeMonitorDriveEjectButtonCallback ,-    onVolumeMonitorDriveEjectButton         ,-    volumeMonitorDriveEjectButtonCallbackWrapper,-    volumeMonitorDriveEjectButtonClosure    ,----- ** DriveStopButton-    VolumeMonitorDriveStopButtonCallback    ,-    VolumeMonitorDriveStopButtonCallbackC   ,-    VolumeMonitorDriveStopButtonSignalInfo  ,-    afterVolumeMonitorDriveStopButton       ,-    mkVolumeMonitorDriveStopButtonCallback  ,-    noVolumeMonitorDriveStopButtonCallback  ,-    onVolumeMonitorDriveStopButton          ,-    volumeMonitorDriveStopButtonCallbackWrapper,-    volumeMonitorDriveStopButtonClosure     ,----- ** MountAdded-    VolumeMonitorMountAddedCallback         ,-    VolumeMonitorMountAddedCallbackC        ,-    VolumeMonitorMountAddedSignalInfo       ,-    afterVolumeMonitorMountAdded            ,-    mkVolumeMonitorMountAddedCallback       ,-    noVolumeMonitorMountAddedCallback       ,-    onVolumeMonitorMountAdded               ,-    volumeMonitorMountAddedCallbackWrapper  ,-    volumeMonitorMountAddedClosure          ,----- ** MountChanged-    VolumeMonitorMountChangedCallback       ,-    VolumeMonitorMountChangedCallbackC      ,-    VolumeMonitorMountChangedSignalInfo     ,-    afterVolumeMonitorMountChanged          ,-    mkVolumeMonitorMountChangedCallback     ,-    noVolumeMonitorMountChangedCallback     ,-    onVolumeMonitorMountChanged             ,-    volumeMonitorMountChangedCallbackWrapper,-    volumeMonitorMountChangedClosure        ,----- ** MountPreUnmount-    VolumeMonitorMountPreUnmountCallback    ,-    VolumeMonitorMountPreUnmountCallbackC   ,-    VolumeMonitorMountPreUnmountSignalInfo  ,-    afterVolumeMonitorMountPreUnmount       ,-    mkVolumeMonitorMountPreUnmountCallback  ,-    noVolumeMonitorMountPreUnmountCallback  ,-    onVolumeMonitorMountPreUnmount          ,-    volumeMonitorMountPreUnmountCallbackWrapper,-    volumeMonitorMountPreUnmountClosure     ,----- ** MountRemoved-    VolumeMonitorMountRemovedCallback       ,-    VolumeMonitorMountRemovedCallbackC      ,-    VolumeMonitorMountRemovedSignalInfo     ,-    afterVolumeMonitorMountRemoved          ,-    mkVolumeMonitorMountRemovedCallback     ,-    noVolumeMonitorMountRemovedCallback     ,-    onVolumeMonitorMountRemoved             ,-    volumeMonitorMountRemovedCallbackWrapper,-    volumeMonitorMountRemovedClosure        ,----- ** VolumeAdded-    VolumeMonitorVolumeAddedCallback        ,-    VolumeMonitorVolumeAddedCallbackC       ,-    VolumeMonitorVolumeAddedSignalInfo      ,-    afterVolumeMonitorVolumeAdded           ,-    mkVolumeMonitorVolumeAddedCallback      ,-    noVolumeMonitorVolumeAddedCallback      ,-    onVolumeMonitorVolumeAdded              ,-    volumeMonitorVolumeAddedCallbackWrapper ,-    volumeMonitorVolumeAddedClosure         ,----- ** VolumeChanged-    VolumeMonitorVolumeChangedCallback      ,-    VolumeMonitorVolumeChangedCallbackC     ,-    VolumeMonitorVolumeChangedSignalInfo    ,-    afterVolumeMonitorVolumeChanged         ,-    mkVolumeMonitorVolumeChangedCallback    ,-    noVolumeMonitorVolumeChangedCallback    ,-    onVolumeMonitorVolumeChanged            ,-    volumeMonitorVolumeChangedCallbackWrapper,-    volumeMonitorVolumeChangedClosure       ,----- ** VolumeRemoved-    VolumeMonitorVolumeRemovedCallback      ,-    VolumeMonitorVolumeRemovedCallbackC     ,-    VolumeMonitorVolumeRemovedSignalInfo    ,-    afterVolumeMonitorVolumeRemoved         ,-    mkVolumeMonitorVolumeRemovedCallback    ,-    noVolumeMonitorVolumeRemovedCallback    ,-    onVolumeMonitorVolumeRemoved            ,-    volumeMonitorVolumeRemovedCallbackWrapper,-    volumeMonitorVolumeRemovedClosure       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype VolumeMonitor = VolumeMonitor (ForeignPtr VolumeMonitor)-foreign import ccall "g_volume_monitor_get_type"-    c_g_volume_monitor_get_type :: IO GType--type instance ParentTypes VolumeMonitor = VolumeMonitorParentTypes-type VolumeMonitorParentTypes = '[GObject.Object]--instance GObject VolumeMonitor where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_volume_monitor_get_type-    --class GObject o => VolumeMonitorK o-instance (GObject o, IsDescendantOf VolumeMonitor o) => VolumeMonitorK o--toVolumeMonitor :: VolumeMonitorK o => o -> IO VolumeMonitor-toVolumeMonitor = unsafeCastTo VolumeMonitor--noVolumeMonitor :: Maybe VolumeMonitor-noVolumeMonitor = Nothing--type family ResolveVolumeMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveVolumeMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveVolumeMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveVolumeMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveVolumeMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveVolumeMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveVolumeMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveVolumeMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveVolumeMonitorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveVolumeMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveVolumeMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveVolumeMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveVolumeMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveVolumeMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveVolumeMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveVolumeMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveVolumeMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveVolumeMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveVolumeMonitorMethod "getConnectedDrives" o = VolumeMonitorGetConnectedDrivesMethodInfo-    ResolveVolumeMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveVolumeMonitorMethod "getMountForUuid" o = VolumeMonitorGetMountForUuidMethodInfo-    ResolveVolumeMonitorMethod "getMounts" o = VolumeMonitorGetMountsMethodInfo-    ResolveVolumeMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveVolumeMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveVolumeMonitorMethod "getVolumeForUuid" o = VolumeMonitorGetVolumeForUuidMethodInfo-    ResolveVolumeMonitorMethod "getVolumes" o = VolumeMonitorGetVolumesMethodInfo-    ResolveVolumeMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveVolumeMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveVolumeMonitorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveVolumeMonitorMethod t VolumeMonitor, MethodInfo info VolumeMonitor p) => IsLabelProxy t (VolumeMonitor -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveVolumeMonitorMethod t VolumeMonitor, MethodInfo info VolumeMonitor p) => IsLabel t (VolumeMonitor -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal VolumeMonitor::drive-changed-type VolumeMonitorDriveChangedCallback =-    Drive ->-    IO ()--noVolumeMonitorDriveChangedCallback :: Maybe VolumeMonitorDriveChangedCallback-noVolumeMonitorDriveChangedCallback = Nothing--type VolumeMonitorDriveChangedCallbackC =-    Ptr () ->                               -- object-    Ptr Drive ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorDriveChangedCallback :: VolumeMonitorDriveChangedCallbackC -> IO (FunPtr VolumeMonitorDriveChangedCallbackC)--volumeMonitorDriveChangedClosure :: VolumeMonitorDriveChangedCallback -> IO Closure-volumeMonitorDriveChangedClosure cb = newCClosure =<< mkVolumeMonitorDriveChangedCallback wrapped-    where wrapped = volumeMonitorDriveChangedCallbackWrapper cb--volumeMonitorDriveChangedCallbackWrapper ::-    VolumeMonitorDriveChangedCallback ->-    Ptr () ->-    Ptr Drive ->-    Ptr () ->-    IO ()-volumeMonitorDriveChangedCallbackWrapper _cb _ drive _ = do-    drive' <- (newObject Drive) drive-    _cb  drive'--onVolumeMonitorDriveChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveChangedCallback -> m SignalHandlerId-onVolumeMonitorDriveChanged obj cb = liftIO $ connectVolumeMonitorDriveChanged obj cb SignalConnectBefore-afterVolumeMonitorDriveChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveChangedCallback -> m SignalHandlerId-afterVolumeMonitorDriveChanged obj cb = connectVolumeMonitorDriveChanged obj cb SignalConnectAfter--connectVolumeMonitorDriveChanged :: (GObject a, MonadIO m) =>-                                    a -> VolumeMonitorDriveChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorDriveChanged obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorDriveChangedCallback (volumeMonitorDriveChangedCallbackWrapper cb)-    connectSignalFunPtr obj "drive-changed" cb' after---- signal VolumeMonitor::drive-connected-type VolumeMonitorDriveConnectedCallback =-    Drive ->-    IO ()--noVolumeMonitorDriveConnectedCallback :: Maybe VolumeMonitorDriveConnectedCallback-noVolumeMonitorDriveConnectedCallback = Nothing--type VolumeMonitorDriveConnectedCallbackC =-    Ptr () ->                               -- object-    Ptr Drive ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorDriveConnectedCallback :: VolumeMonitorDriveConnectedCallbackC -> IO (FunPtr VolumeMonitorDriveConnectedCallbackC)--volumeMonitorDriveConnectedClosure :: VolumeMonitorDriveConnectedCallback -> IO Closure-volumeMonitorDriveConnectedClosure cb = newCClosure =<< mkVolumeMonitorDriveConnectedCallback wrapped-    where wrapped = volumeMonitorDriveConnectedCallbackWrapper cb--volumeMonitorDriveConnectedCallbackWrapper ::-    VolumeMonitorDriveConnectedCallback ->-    Ptr () ->-    Ptr Drive ->-    Ptr () ->-    IO ()-volumeMonitorDriveConnectedCallbackWrapper _cb _ drive _ = do-    drive' <- (newObject Drive) drive-    _cb  drive'--onVolumeMonitorDriveConnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveConnectedCallback -> m SignalHandlerId-onVolumeMonitorDriveConnected obj cb = liftIO $ connectVolumeMonitorDriveConnected obj cb SignalConnectBefore-afterVolumeMonitorDriveConnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveConnectedCallback -> m SignalHandlerId-afterVolumeMonitorDriveConnected obj cb = connectVolumeMonitorDriveConnected obj cb SignalConnectAfter--connectVolumeMonitorDriveConnected :: (GObject a, MonadIO m) =>-                                      a -> VolumeMonitorDriveConnectedCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorDriveConnected obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorDriveConnectedCallback (volumeMonitorDriveConnectedCallbackWrapper cb)-    connectSignalFunPtr obj "drive-connected" cb' after---- signal VolumeMonitor::drive-disconnected-type VolumeMonitorDriveDisconnectedCallback =-    Drive ->-    IO ()--noVolumeMonitorDriveDisconnectedCallback :: Maybe VolumeMonitorDriveDisconnectedCallback-noVolumeMonitorDriveDisconnectedCallback = Nothing--type VolumeMonitorDriveDisconnectedCallbackC =-    Ptr () ->                               -- object-    Ptr Drive ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorDriveDisconnectedCallback :: VolumeMonitorDriveDisconnectedCallbackC -> IO (FunPtr VolumeMonitorDriveDisconnectedCallbackC)--volumeMonitorDriveDisconnectedClosure :: VolumeMonitorDriveDisconnectedCallback -> IO Closure-volumeMonitorDriveDisconnectedClosure cb = newCClosure =<< mkVolumeMonitorDriveDisconnectedCallback wrapped-    where wrapped = volumeMonitorDriveDisconnectedCallbackWrapper cb--volumeMonitorDriveDisconnectedCallbackWrapper ::-    VolumeMonitorDriveDisconnectedCallback ->-    Ptr () ->-    Ptr Drive ->-    Ptr () ->-    IO ()-volumeMonitorDriveDisconnectedCallbackWrapper _cb _ drive _ = do-    drive' <- (newObject Drive) drive-    _cb  drive'--onVolumeMonitorDriveDisconnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveDisconnectedCallback -> m SignalHandlerId-onVolumeMonitorDriveDisconnected obj cb = liftIO $ connectVolumeMonitorDriveDisconnected obj cb SignalConnectBefore-afterVolumeMonitorDriveDisconnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveDisconnectedCallback -> m SignalHandlerId-afterVolumeMonitorDriveDisconnected obj cb = connectVolumeMonitorDriveDisconnected obj cb SignalConnectAfter--connectVolumeMonitorDriveDisconnected :: (GObject a, MonadIO m) =>-                                         a -> VolumeMonitorDriveDisconnectedCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorDriveDisconnected obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorDriveDisconnectedCallback (volumeMonitorDriveDisconnectedCallbackWrapper cb)-    connectSignalFunPtr obj "drive-disconnected" cb' after---- signal VolumeMonitor::drive-eject-button-type VolumeMonitorDriveEjectButtonCallback =-    Drive ->-    IO ()--noVolumeMonitorDriveEjectButtonCallback :: Maybe VolumeMonitorDriveEjectButtonCallback-noVolumeMonitorDriveEjectButtonCallback = Nothing--type VolumeMonitorDriveEjectButtonCallbackC =-    Ptr () ->                               -- object-    Ptr Drive ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorDriveEjectButtonCallback :: VolumeMonitorDriveEjectButtonCallbackC -> IO (FunPtr VolumeMonitorDriveEjectButtonCallbackC)--volumeMonitorDriveEjectButtonClosure :: VolumeMonitorDriveEjectButtonCallback -> IO Closure-volumeMonitorDriveEjectButtonClosure cb = newCClosure =<< mkVolumeMonitorDriveEjectButtonCallback wrapped-    where wrapped = volumeMonitorDriveEjectButtonCallbackWrapper cb--volumeMonitorDriveEjectButtonCallbackWrapper ::-    VolumeMonitorDriveEjectButtonCallback ->-    Ptr () ->-    Ptr Drive ->-    Ptr () ->-    IO ()-volumeMonitorDriveEjectButtonCallbackWrapper _cb _ drive _ = do-    drive' <- (newObject Drive) drive-    _cb  drive'--onVolumeMonitorDriveEjectButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveEjectButtonCallback -> m SignalHandlerId-onVolumeMonitorDriveEjectButton obj cb = liftIO $ connectVolumeMonitorDriveEjectButton obj cb SignalConnectBefore-afterVolumeMonitorDriveEjectButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveEjectButtonCallback -> m SignalHandlerId-afterVolumeMonitorDriveEjectButton obj cb = connectVolumeMonitorDriveEjectButton obj cb SignalConnectAfter--connectVolumeMonitorDriveEjectButton :: (GObject a, MonadIO m) =>-                                        a -> VolumeMonitorDriveEjectButtonCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorDriveEjectButton obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorDriveEjectButtonCallback (volumeMonitorDriveEjectButtonCallbackWrapper cb)-    connectSignalFunPtr obj "drive-eject-button" cb' after---- signal VolumeMonitor::drive-stop-button-type VolumeMonitorDriveStopButtonCallback =-    Drive ->-    IO ()--noVolumeMonitorDriveStopButtonCallback :: Maybe VolumeMonitorDriveStopButtonCallback-noVolumeMonitorDriveStopButtonCallback = Nothing--type VolumeMonitorDriveStopButtonCallbackC =-    Ptr () ->                               -- object-    Ptr Drive ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorDriveStopButtonCallback :: VolumeMonitorDriveStopButtonCallbackC -> IO (FunPtr VolumeMonitorDriveStopButtonCallbackC)--volumeMonitorDriveStopButtonClosure :: VolumeMonitorDriveStopButtonCallback -> IO Closure-volumeMonitorDriveStopButtonClosure cb = newCClosure =<< mkVolumeMonitorDriveStopButtonCallback wrapped-    where wrapped = volumeMonitorDriveStopButtonCallbackWrapper cb--volumeMonitorDriveStopButtonCallbackWrapper ::-    VolumeMonitorDriveStopButtonCallback ->-    Ptr () ->-    Ptr Drive ->-    Ptr () ->-    IO ()-volumeMonitorDriveStopButtonCallbackWrapper _cb _ drive _ = do-    drive' <- (newObject Drive) drive-    _cb  drive'--onVolumeMonitorDriveStopButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveStopButtonCallback -> m SignalHandlerId-onVolumeMonitorDriveStopButton obj cb = liftIO $ connectVolumeMonitorDriveStopButton obj cb SignalConnectBefore-afterVolumeMonitorDriveStopButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveStopButtonCallback -> m SignalHandlerId-afterVolumeMonitorDriveStopButton obj cb = connectVolumeMonitorDriveStopButton obj cb SignalConnectAfter--connectVolumeMonitorDriveStopButton :: (GObject a, MonadIO m) =>-                                       a -> VolumeMonitorDriveStopButtonCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorDriveStopButton obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorDriveStopButtonCallback (volumeMonitorDriveStopButtonCallbackWrapper cb)-    connectSignalFunPtr obj "drive-stop-button" cb' after---- signal VolumeMonitor::mount-added-type VolumeMonitorMountAddedCallback =-    Mount ->-    IO ()--noVolumeMonitorMountAddedCallback :: Maybe VolumeMonitorMountAddedCallback-noVolumeMonitorMountAddedCallback = Nothing--type VolumeMonitorMountAddedCallbackC =-    Ptr () ->                               -- object-    Ptr Mount ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorMountAddedCallback :: VolumeMonitorMountAddedCallbackC -> IO (FunPtr VolumeMonitorMountAddedCallbackC)--volumeMonitorMountAddedClosure :: VolumeMonitorMountAddedCallback -> IO Closure-volumeMonitorMountAddedClosure cb = newCClosure =<< mkVolumeMonitorMountAddedCallback wrapped-    where wrapped = volumeMonitorMountAddedCallbackWrapper cb--volumeMonitorMountAddedCallbackWrapper ::-    VolumeMonitorMountAddedCallback ->-    Ptr () ->-    Ptr Mount ->-    Ptr () ->-    IO ()-volumeMonitorMountAddedCallbackWrapper _cb _ mount _ = do-    mount' <- (newObject Mount) mount-    _cb  mount'--onVolumeMonitorMountAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorMountAddedCallback -> m SignalHandlerId-onVolumeMonitorMountAdded obj cb = liftIO $ connectVolumeMonitorMountAdded obj cb SignalConnectBefore-afterVolumeMonitorMountAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorMountAddedCallback -> m SignalHandlerId-afterVolumeMonitorMountAdded obj cb = connectVolumeMonitorMountAdded obj cb SignalConnectAfter--connectVolumeMonitorMountAdded :: (GObject a, MonadIO m) =>-                                  a -> VolumeMonitorMountAddedCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorMountAdded obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorMountAddedCallback (volumeMonitorMountAddedCallbackWrapper cb)-    connectSignalFunPtr obj "mount-added" cb' after---- signal VolumeMonitor::mount-changed-type VolumeMonitorMountChangedCallback =-    Mount ->-    IO ()--noVolumeMonitorMountChangedCallback :: Maybe VolumeMonitorMountChangedCallback-noVolumeMonitorMountChangedCallback = Nothing--type VolumeMonitorMountChangedCallbackC =-    Ptr () ->                               -- object-    Ptr Mount ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorMountChangedCallback :: VolumeMonitorMountChangedCallbackC -> IO (FunPtr VolumeMonitorMountChangedCallbackC)--volumeMonitorMountChangedClosure :: VolumeMonitorMountChangedCallback -> IO Closure-volumeMonitorMountChangedClosure cb = newCClosure =<< mkVolumeMonitorMountChangedCallback wrapped-    where wrapped = volumeMonitorMountChangedCallbackWrapper cb--volumeMonitorMountChangedCallbackWrapper ::-    VolumeMonitorMountChangedCallback ->-    Ptr () ->-    Ptr Mount ->-    Ptr () ->-    IO ()-volumeMonitorMountChangedCallbackWrapper _cb _ mount _ = do-    mount' <- (newObject Mount) mount-    _cb  mount'--onVolumeMonitorMountChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorMountChangedCallback -> m SignalHandlerId-onVolumeMonitorMountChanged obj cb = liftIO $ connectVolumeMonitorMountChanged obj cb SignalConnectBefore-afterVolumeMonitorMountChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorMountChangedCallback -> m SignalHandlerId-afterVolumeMonitorMountChanged obj cb = connectVolumeMonitorMountChanged obj cb SignalConnectAfter--connectVolumeMonitorMountChanged :: (GObject a, MonadIO m) =>-                                    a -> VolumeMonitorMountChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorMountChanged obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorMountChangedCallback (volumeMonitorMountChangedCallbackWrapper cb)-    connectSignalFunPtr obj "mount-changed" cb' after---- signal VolumeMonitor::mount-pre-unmount-type VolumeMonitorMountPreUnmountCallback =-    Mount ->-    IO ()--noVolumeMonitorMountPreUnmountCallback :: Maybe VolumeMonitorMountPreUnmountCallback-noVolumeMonitorMountPreUnmountCallback = Nothing--type VolumeMonitorMountPreUnmountCallbackC =-    Ptr () ->                               -- object-    Ptr Mount ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorMountPreUnmountCallback :: VolumeMonitorMountPreUnmountCallbackC -> IO (FunPtr VolumeMonitorMountPreUnmountCallbackC)--volumeMonitorMountPreUnmountClosure :: VolumeMonitorMountPreUnmountCallback -> IO Closure-volumeMonitorMountPreUnmountClosure cb = newCClosure =<< mkVolumeMonitorMountPreUnmountCallback wrapped-    where wrapped = volumeMonitorMountPreUnmountCallbackWrapper cb--volumeMonitorMountPreUnmountCallbackWrapper ::-    VolumeMonitorMountPreUnmountCallback ->-    Ptr () ->-    Ptr Mount ->-    Ptr () ->-    IO ()-volumeMonitorMountPreUnmountCallbackWrapper _cb _ mount _ = do-    mount' <- (newObject Mount) mount-    _cb  mount'--onVolumeMonitorMountPreUnmount :: (GObject a, MonadIO m) => a -> VolumeMonitorMountPreUnmountCallback -> m SignalHandlerId-onVolumeMonitorMountPreUnmount obj cb = liftIO $ connectVolumeMonitorMountPreUnmount obj cb SignalConnectBefore-afterVolumeMonitorMountPreUnmount :: (GObject a, MonadIO m) => a -> VolumeMonitorMountPreUnmountCallback -> m SignalHandlerId-afterVolumeMonitorMountPreUnmount obj cb = connectVolumeMonitorMountPreUnmount obj cb SignalConnectAfter--connectVolumeMonitorMountPreUnmount :: (GObject a, MonadIO m) =>-                                       a -> VolumeMonitorMountPreUnmountCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorMountPreUnmount obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorMountPreUnmountCallback (volumeMonitorMountPreUnmountCallbackWrapper cb)-    connectSignalFunPtr obj "mount-pre-unmount" cb' after---- signal VolumeMonitor::mount-removed-type VolumeMonitorMountRemovedCallback =-    Mount ->-    IO ()--noVolumeMonitorMountRemovedCallback :: Maybe VolumeMonitorMountRemovedCallback-noVolumeMonitorMountRemovedCallback = Nothing--type VolumeMonitorMountRemovedCallbackC =-    Ptr () ->                               -- object-    Ptr Mount ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorMountRemovedCallback :: VolumeMonitorMountRemovedCallbackC -> IO (FunPtr VolumeMonitorMountRemovedCallbackC)--volumeMonitorMountRemovedClosure :: VolumeMonitorMountRemovedCallback -> IO Closure-volumeMonitorMountRemovedClosure cb = newCClosure =<< mkVolumeMonitorMountRemovedCallback wrapped-    where wrapped = volumeMonitorMountRemovedCallbackWrapper cb--volumeMonitorMountRemovedCallbackWrapper ::-    VolumeMonitorMountRemovedCallback ->-    Ptr () ->-    Ptr Mount ->-    Ptr () ->-    IO ()-volumeMonitorMountRemovedCallbackWrapper _cb _ mount _ = do-    mount' <- (newObject Mount) mount-    _cb  mount'--onVolumeMonitorMountRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorMountRemovedCallback -> m SignalHandlerId-onVolumeMonitorMountRemoved obj cb = liftIO $ connectVolumeMonitorMountRemoved obj cb SignalConnectBefore-afterVolumeMonitorMountRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorMountRemovedCallback -> m SignalHandlerId-afterVolumeMonitorMountRemoved obj cb = connectVolumeMonitorMountRemoved obj cb SignalConnectAfter--connectVolumeMonitorMountRemoved :: (GObject a, MonadIO m) =>-                                    a -> VolumeMonitorMountRemovedCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorMountRemoved obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorMountRemovedCallback (volumeMonitorMountRemovedCallbackWrapper cb)-    connectSignalFunPtr obj "mount-removed" cb' after---- signal VolumeMonitor::volume-added-type VolumeMonitorVolumeAddedCallback =-    Volume ->-    IO ()--noVolumeMonitorVolumeAddedCallback :: Maybe VolumeMonitorVolumeAddedCallback-noVolumeMonitorVolumeAddedCallback = Nothing--type VolumeMonitorVolumeAddedCallbackC =-    Ptr () ->                               -- object-    Ptr Volume ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorVolumeAddedCallback :: VolumeMonitorVolumeAddedCallbackC -> IO (FunPtr VolumeMonitorVolumeAddedCallbackC)--volumeMonitorVolumeAddedClosure :: VolumeMonitorVolumeAddedCallback -> IO Closure-volumeMonitorVolumeAddedClosure cb = newCClosure =<< mkVolumeMonitorVolumeAddedCallback wrapped-    where wrapped = volumeMonitorVolumeAddedCallbackWrapper cb--volumeMonitorVolumeAddedCallbackWrapper ::-    VolumeMonitorVolumeAddedCallback ->-    Ptr () ->-    Ptr Volume ->-    Ptr () ->-    IO ()-volumeMonitorVolumeAddedCallbackWrapper _cb _ volume _ = do-    volume' <- (newObject Volume) volume-    _cb  volume'--onVolumeMonitorVolumeAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeAddedCallback -> m SignalHandlerId-onVolumeMonitorVolumeAdded obj cb = liftIO $ connectVolumeMonitorVolumeAdded obj cb SignalConnectBefore-afterVolumeMonitorVolumeAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeAddedCallback -> m SignalHandlerId-afterVolumeMonitorVolumeAdded obj cb = connectVolumeMonitorVolumeAdded obj cb SignalConnectAfter--connectVolumeMonitorVolumeAdded :: (GObject a, MonadIO m) =>-                                   a -> VolumeMonitorVolumeAddedCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorVolumeAdded obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorVolumeAddedCallback (volumeMonitorVolumeAddedCallbackWrapper cb)-    connectSignalFunPtr obj "volume-added" cb' after---- signal VolumeMonitor::volume-changed-type VolumeMonitorVolumeChangedCallback =-    Volume ->-    IO ()--noVolumeMonitorVolumeChangedCallback :: Maybe VolumeMonitorVolumeChangedCallback-noVolumeMonitorVolumeChangedCallback = Nothing--type VolumeMonitorVolumeChangedCallbackC =-    Ptr () ->                               -- object-    Ptr Volume ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorVolumeChangedCallback :: VolumeMonitorVolumeChangedCallbackC -> IO (FunPtr VolumeMonitorVolumeChangedCallbackC)--volumeMonitorVolumeChangedClosure :: VolumeMonitorVolumeChangedCallback -> IO Closure-volumeMonitorVolumeChangedClosure cb = newCClosure =<< mkVolumeMonitorVolumeChangedCallback wrapped-    where wrapped = volumeMonitorVolumeChangedCallbackWrapper cb--volumeMonitorVolumeChangedCallbackWrapper ::-    VolumeMonitorVolumeChangedCallback ->-    Ptr () ->-    Ptr Volume ->-    Ptr () ->-    IO ()-volumeMonitorVolumeChangedCallbackWrapper _cb _ volume _ = do-    volume' <- (newObject Volume) volume-    _cb  volume'--onVolumeMonitorVolumeChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeChangedCallback -> m SignalHandlerId-onVolumeMonitorVolumeChanged obj cb = liftIO $ connectVolumeMonitorVolumeChanged obj cb SignalConnectBefore-afterVolumeMonitorVolumeChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeChangedCallback -> m SignalHandlerId-afterVolumeMonitorVolumeChanged obj cb = connectVolumeMonitorVolumeChanged obj cb SignalConnectAfter--connectVolumeMonitorVolumeChanged :: (GObject a, MonadIO m) =>-                                     a -> VolumeMonitorVolumeChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorVolumeChanged obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorVolumeChangedCallback (volumeMonitorVolumeChangedCallbackWrapper cb)-    connectSignalFunPtr obj "volume-changed" cb' after---- signal VolumeMonitor::volume-removed-type VolumeMonitorVolumeRemovedCallback =-    Volume ->-    IO ()--noVolumeMonitorVolumeRemovedCallback :: Maybe VolumeMonitorVolumeRemovedCallback-noVolumeMonitorVolumeRemovedCallback = Nothing--type VolumeMonitorVolumeRemovedCallbackC =-    Ptr () ->                               -- object-    Ptr Volume ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkVolumeMonitorVolumeRemovedCallback :: VolumeMonitorVolumeRemovedCallbackC -> IO (FunPtr VolumeMonitorVolumeRemovedCallbackC)--volumeMonitorVolumeRemovedClosure :: VolumeMonitorVolumeRemovedCallback -> IO Closure-volumeMonitorVolumeRemovedClosure cb = newCClosure =<< mkVolumeMonitorVolumeRemovedCallback wrapped-    where wrapped = volumeMonitorVolumeRemovedCallbackWrapper cb--volumeMonitorVolumeRemovedCallbackWrapper ::-    VolumeMonitorVolumeRemovedCallback ->-    Ptr () ->-    Ptr Volume ->-    Ptr () ->-    IO ()-volumeMonitorVolumeRemovedCallbackWrapper _cb _ volume _ = do-    volume' <- (newObject Volume) volume-    _cb  volume'--onVolumeMonitorVolumeRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeRemovedCallback -> m SignalHandlerId-onVolumeMonitorVolumeRemoved obj cb = liftIO $ connectVolumeMonitorVolumeRemoved obj cb SignalConnectBefore-afterVolumeMonitorVolumeRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeRemovedCallback -> m SignalHandlerId-afterVolumeMonitorVolumeRemoved obj cb = connectVolumeMonitorVolumeRemoved obj cb SignalConnectAfter--connectVolumeMonitorVolumeRemoved :: (GObject a, MonadIO m) =>-                                     a -> VolumeMonitorVolumeRemovedCallback -> SignalConnectMode -> m SignalHandlerId-connectVolumeMonitorVolumeRemoved obj cb after = liftIO $ do-    cb' <- mkVolumeMonitorVolumeRemovedCallback (volumeMonitorVolumeRemovedCallbackWrapper cb)-    connectSignalFunPtr obj "volume-removed" cb' after--type instance AttributeList VolumeMonitor = VolumeMonitorAttributeList-type VolumeMonitorAttributeList = ('[ ] :: [(Symbol, *)])--data VolumeMonitorDriveChangedSignalInfo-instance SignalInfo VolumeMonitorDriveChangedSignalInfo where-    type HaskellCallbackType VolumeMonitorDriveChangedSignalInfo = VolumeMonitorDriveChangedCallback-    connectSignal _ = connectVolumeMonitorDriveChanged--data VolumeMonitorDriveConnectedSignalInfo-instance SignalInfo VolumeMonitorDriveConnectedSignalInfo where-    type HaskellCallbackType VolumeMonitorDriveConnectedSignalInfo = VolumeMonitorDriveConnectedCallback-    connectSignal _ = connectVolumeMonitorDriveConnected--data VolumeMonitorDriveDisconnectedSignalInfo-instance SignalInfo VolumeMonitorDriveDisconnectedSignalInfo where-    type HaskellCallbackType VolumeMonitorDriveDisconnectedSignalInfo = VolumeMonitorDriveDisconnectedCallback-    connectSignal _ = connectVolumeMonitorDriveDisconnected--data VolumeMonitorDriveEjectButtonSignalInfo-instance SignalInfo VolumeMonitorDriveEjectButtonSignalInfo where-    type HaskellCallbackType VolumeMonitorDriveEjectButtonSignalInfo = VolumeMonitorDriveEjectButtonCallback-    connectSignal _ = connectVolumeMonitorDriveEjectButton--data VolumeMonitorDriveStopButtonSignalInfo-instance SignalInfo VolumeMonitorDriveStopButtonSignalInfo where-    type HaskellCallbackType VolumeMonitorDriveStopButtonSignalInfo = VolumeMonitorDriveStopButtonCallback-    connectSignal _ = connectVolumeMonitorDriveStopButton--data VolumeMonitorMountAddedSignalInfo-instance SignalInfo VolumeMonitorMountAddedSignalInfo where-    type HaskellCallbackType VolumeMonitorMountAddedSignalInfo = VolumeMonitorMountAddedCallback-    connectSignal _ = connectVolumeMonitorMountAdded--data VolumeMonitorMountChangedSignalInfo-instance SignalInfo VolumeMonitorMountChangedSignalInfo where-    type HaskellCallbackType VolumeMonitorMountChangedSignalInfo = VolumeMonitorMountChangedCallback-    connectSignal _ = connectVolumeMonitorMountChanged--data VolumeMonitorMountPreUnmountSignalInfo-instance SignalInfo VolumeMonitorMountPreUnmountSignalInfo where-    type HaskellCallbackType VolumeMonitorMountPreUnmountSignalInfo = VolumeMonitorMountPreUnmountCallback-    connectSignal _ = connectVolumeMonitorMountPreUnmount--data VolumeMonitorMountRemovedSignalInfo-instance SignalInfo VolumeMonitorMountRemovedSignalInfo where-    type HaskellCallbackType VolumeMonitorMountRemovedSignalInfo = VolumeMonitorMountRemovedCallback-    connectSignal _ = connectVolumeMonitorMountRemoved--data VolumeMonitorVolumeAddedSignalInfo-instance SignalInfo VolumeMonitorVolumeAddedSignalInfo where-    type HaskellCallbackType VolumeMonitorVolumeAddedSignalInfo = VolumeMonitorVolumeAddedCallback-    connectSignal _ = connectVolumeMonitorVolumeAdded--data VolumeMonitorVolumeChangedSignalInfo-instance SignalInfo VolumeMonitorVolumeChangedSignalInfo where-    type HaskellCallbackType VolumeMonitorVolumeChangedSignalInfo = VolumeMonitorVolumeChangedCallback-    connectSignal _ = connectVolumeMonitorVolumeChanged--data VolumeMonitorVolumeRemovedSignalInfo-instance SignalInfo VolumeMonitorVolumeRemovedSignalInfo where-    type HaskellCallbackType VolumeMonitorVolumeRemovedSignalInfo = VolumeMonitorVolumeRemovedCallback-    connectSignal _ = connectVolumeMonitorVolumeRemoved--type instance 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.ObjectNotifySignalInfo), '("volumeAdded", VolumeMonitorVolumeAddedSignalInfo), '("volumeChanged", VolumeMonitorVolumeChangedSignalInfo), '("volumeRemoved", VolumeMonitorVolumeRemovedSignalInfo)] :: [(Symbol, *)])---- method VolumeMonitor::get_connected_drives--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "Drive"))--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_get_connected_drives" g_volume_monitor_get_connected_drives :: -    Ptr VolumeMonitor ->                    -- _obj : TInterface "Gio" "VolumeMonitor"-    IO (Ptr (GList (Ptr Drive)))---volumeMonitorGetConnectedDrives ::-    (MonadIO m, VolumeMonitorK a) =>-    a                                       -- _obj-    -> m [Drive]                            -- result-volumeMonitorGetConnectedDrives _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_monitor_get_connected_drives _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Drive) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data VolumeMonitorGetConnectedDrivesMethodInfo-instance (signature ~ (m [Drive]), MonadIO m, VolumeMonitorK a) => MethodInfo VolumeMonitorGetConnectedDrivesMethodInfo a signature where-    overloadedMethod _ = volumeMonitorGetConnectedDrives---- method VolumeMonitor::get_mount_for_uuid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uuid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                    -- _obj : TInterface "Gio" "VolumeMonitor"-    CString ->                              -- uuid : TBasicType TUTF8-    IO (Ptr Mount)---volumeMonitorGetMountForUuid ::-    (MonadIO m, VolumeMonitorK a) =>-    a                                       -- _obj-    -> T.Text                               -- uuid-    -> m Mount                              -- result-volumeMonitorGetMountForUuid _obj uuid = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uuid' <- textToCString uuid-    result <- g_volume_monitor_get_mount_for_uuid _obj' uuid'-    checkUnexpectedReturnNULL "g_volume_monitor_get_mount_for_uuid" result-    result' <- (wrapObject Mount) result-    touchManagedPtr _obj-    freeMem uuid'-    return result'--data VolumeMonitorGetMountForUuidMethodInfo-instance (signature ~ (T.Text -> m Mount), MonadIO m, VolumeMonitorK a) => MethodInfo VolumeMonitorGetMountForUuidMethodInfo a signature where-    overloadedMethod _ = volumeMonitorGetMountForUuid---- method VolumeMonitor::get_mounts--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "Mount"))--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_get_mounts" g_volume_monitor_get_mounts :: -    Ptr VolumeMonitor ->                    -- _obj : TInterface "Gio" "VolumeMonitor"-    IO (Ptr (GList (Ptr Mount)))---volumeMonitorGetMounts ::-    (MonadIO m, VolumeMonitorK a) =>-    a                                       -- _obj-    -> m [Mount]                            -- result-volumeMonitorGetMounts _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_monitor_get_mounts _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Mount) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data VolumeMonitorGetMountsMethodInfo-instance (signature ~ (m [Mount]), MonadIO m, VolumeMonitorK a) => MethodInfo VolumeMonitorGetMountsMethodInfo a signature where-    overloadedMethod _ = volumeMonitorGetMounts---- method VolumeMonitor::get_volume_for_uuid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uuid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                    -- _obj : TInterface "Gio" "VolumeMonitor"-    CString ->                              -- uuid : TBasicType TUTF8-    IO (Ptr Volume)---volumeMonitorGetVolumeForUuid ::-    (MonadIO m, VolumeMonitorK a) =>-    a                                       -- _obj-    -> T.Text                               -- uuid-    -> m Volume                             -- result-volumeMonitorGetVolumeForUuid _obj uuid = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uuid' <- textToCString uuid-    result <- g_volume_monitor_get_volume_for_uuid _obj' uuid'-    checkUnexpectedReturnNULL "g_volume_monitor_get_volume_for_uuid" result-    result' <- (wrapObject Volume) result-    touchManagedPtr _obj-    freeMem uuid'-    return result'--data VolumeMonitorGetVolumeForUuidMethodInfo-instance (signature ~ (T.Text -> m Volume), MonadIO m, VolumeMonitorK a) => MethodInfo VolumeMonitorGetVolumeForUuidMethodInfo a signature where-    overloadedMethod _ = volumeMonitorGetVolumeForUuid---- method VolumeMonitor::get_volumes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "Volume"))--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_get_volumes" g_volume_monitor_get_volumes :: -    Ptr VolumeMonitor ->                    -- _obj : TInterface "Gio" "VolumeMonitor"-    IO (Ptr (GList (Ptr Volume)))---volumeMonitorGetVolumes ::-    (MonadIO m, VolumeMonitorK a) =>-    a                                       -- _obj-    -> m [Volume]                           -- result-volumeMonitorGetVolumes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_volume_monitor_get_volumes _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Volume) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data VolumeMonitorGetVolumesMethodInfo-instance (signature ~ (m [Volume]), MonadIO m, VolumeMonitorK a) => MethodInfo VolumeMonitorGetVolumesMethodInfo a signature where-    overloadedMethod _ = volumeMonitorGetVolumes---- method VolumeMonitor::adopt_orphan_mount--- method type : MemberFunction--- Args : [Arg {argCName = "mount", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Volume")--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_adopt_orphan_mount" g_volume_monitor_adopt_orphan_mount :: -    Ptr Mount ->                            -- mount : TInterface "Gio" "Mount"-    IO (Ptr Volume)--{-# DEPRECATED volumeMonitorAdoptOrphanMount ["(Since version 2.20)","Instead of using this function, #GVolumeMonitor","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 g_mount_is_shadowed(),","g_mount_shadow() and g_mount_unshadow() functions."]#-}-volumeMonitorAdoptOrphanMount ::-    (MonadIO m, MountK a) =>-    a                                       -- mount-    -> m Volume                             -- result-volumeMonitorAdoptOrphanMount mount = liftIO $ do-    let mount' = unsafeManagedPtrCastPtr mount-    result <- g_volume_monitor_adopt_orphan_mount mount'-    checkUnexpectedReturnNULL "g_volume_monitor_adopt_orphan_mount" result-    result' <- (wrapObject Volume) result-    touchManagedPtr mount-    return result'---- method VolumeMonitor::get--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "VolumeMonitor")--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_get" g_volume_monitor_get :: -    IO (Ptr VolumeMonitor)---volumeMonitorGet ::-    (MonadIO m) =>-    m VolumeMonitor                         -- result-volumeMonitorGet  = liftIO $ do-    result <- g_volume_monitor_get-    checkUnexpectedReturnNULL "g_volume_monitor_get" result-    result' <- (wrapObject VolumeMonitor) result-    return result'--
− GI/Gio/Objects/VolumeMonitor.hs-boot 
@@ -1,30 +0,0 @@-module GI.Gio.Objects.VolumeMonitor where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype VolumeMonitor = VolumeMonitor (ForeignPtr VolumeMonitor)-instance GObject VolumeMonitor where-class GObject o => VolumeMonitorK o-instance (GObject o, IsDescendantOf VolumeMonitor o) => VolumeMonitorK o-data VolumeMonitorDriveChangedSignalInfo-data VolumeMonitorDriveConnectedSignalInfo-data VolumeMonitorDriveDisconnectedSignalInfo-data VolumeMonitorDriveEjectButtonSignalInfo-data VolumeMonitorDriveStopButtonSignalInfo-data VolumeMonitorMountAddedSignalInfo-data VolumeMonitorMountChangedSignalInfo-data VolumeMonitorMountPreUnmountSignalInfo-data VolumeMonitorMountRemovedSignalInfo-data VolumeMonitorVolumeAddedSignalInfo-data VolumeMonitorVolumeChangedSignalInfo-data VolumeMonitorVolumeRemovedSignalInfo-data VolumeMonitorGetConnectedDrivesMethodInfo-data VolumeMonitorGetMountForUuidMethodInfo-data VolumeMonitorGetMountsMethodInfo-data VolumeMonitorGetVolumeForUuidMethodInfo-data VolumeMonitorGetVolumesMethodInfo
− GI/Gio/Objects/ZlibCompressor.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 (garetxe@gmail.com)--}--module GI.Gio.Objects.ZlibCompressor-    ( ---- * Exported types-    ZlibCompressor(..)                      ,-    ZlibCompressorK                         ,-    toZlibCompressor                        ,-    noZlibCompressor                        ,--- -- * Methods--- ** zlibCompressorGetFileInfo-    ZlibCompressorGetFileInfoMethodInfo     ,-    zlibCompressorGetFileInfo               ,----- ** zlibCompressorNew-    zlibCompressorNew                       ,----- ** zlibCompressorSetFileInfo-    ZlibCompressorSetFileInfoMethodInfo     ,-    zlibCompressorSetFileInfo               ,----- -- * Properties--- ** FileInfo-    ZlibCompressorFileInfoPropertyInfo      ,-    clearZlibCompressorFileInfo             ,-    constructZlibCompressorFileInfo         ,-    getZlibCompressorFileInfo               ,-    setZlibCompressorFileInfo               ,-    zlibCompressorFileInfo                  ,----- ** Format-    ZlibCompressorFormatPropertyInfo        ,-    constructZlibCompressorFormat           ,-    getZlibCompressorFormat                 ,-    zlibCompressorFormat                    ,----- ** Level-    ZlibCompressorLevelPropertyInfo         ,-    constructZlibCompressorLevel            ,-    getZlibCompressorLevel                  ,-    zlibCompressorLevel                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype ZlibCompressor = ZlibCompressor (ForeignPtr ZlibCompressor)-foreign import ccall "g_zlib_compressor_get_type"-    c_g_zlib_compressor_get_type :: IO GType--type instance ParentTypes ZlibCompressor = ZlibCompressorParentTypes-type ZlibCompressorParentTypes = '[GObject.Object, Converter]--instance GObject ZlibCompressor where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_zlib_compressor_get_type-    --class GObject o => ZlibCompressorK o-instance (GObject o, IsDescendantOf ZlibCompressor o) => ZlibCompressorK o--toZlibCompressor :: ZlibCompressorK o => o -> IO ZlibCompressor-toZlibCompressor = unsafeCastTo ZlibCompressor--noZlibCompressor :: Maybe ZlibCompressor-noZlibCompressor = Nothing--type family ResolveZlibCompressorMethod (t :: Symbol) (o :: *) :: * where-    ResolveZlibCompressorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveZlibCompressorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveZlibCompressorMethod "convert" o = ConverterConvertMethodInfo-    ResolveZlibCompressorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveZlibCompressorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveZlibCompressorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveZlibCompressorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveZlibCompressorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveZlibCompressorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveZlibCompressorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveZlibCompressorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveZlibCompressorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveZlibCompressorMethod "reset" o = ConverterResetMethodInfo-    ResolveZlibCompressorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveZlibCompressorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveZlibCompressorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveZlibCompressorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveZlibCompressorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveZlibCompressorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveZlibCompressorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveZlibCompressorMethod "getFileInfo" o = ZlibCompressorGetFileInfoMethodInfo-    ResolveZlibCompressorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveZlibCompressorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveZlibCompressorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveZlibCompressorMethod "setFileInfo" o = ZlibCompressorSetFileInfoMethodInfo-    ResolveZlibCompressorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveZlibCompressorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveZlibCompressorMethod t ZlibCompressor, MethodInfo info ZlibCompressor p) => IsLabelProxy t (ZlibCompressor -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveZlibCompressorMethod t ZlibCompressor, MethodInfo info ZlibCompressor p) => IsLabel t (ZlibCompressor -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "file-info"-   -- Type: TInterface "Gio" "FileInfo"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just True)--getZlibCompressorFileInfo :: (MonadIO m, ZlibCompressorK o) => o -> m FileInfo-getZlibCompressorFileInfo obj = liftIO $ checkUnexpectedNothing "getZlibCompressorFileInfo" $ getObjectPropertyObject obj "file-info" FileInfo--setZlibCompressorFileInfo :: (MonadIO m, ZlibCompressorK o, FileInfoK a) => o -> a -> m ()-setZlibCompressorFileInfo obj val = liftIO $ setObjectPropertyObject obj "file-info" (Just val)--constructZlibCompressorFileInfo :: (FileInfoK a) => a -> IO ([Char], GValue)-constructZlibCompressorFileInfo val = constructObjectPropertyObject "file-info" (Just val)--clearZlibCompressorFileInfo :: (MonadIO m, ZlibCompressorK o) => o -> m ()-clearZlibCompressorFileInfo obj = liftIO $ setObjectPropertyObject obj "file-info" (Nothing :: Maybe FileInfo)--data ZlibCompressorFileInfoPropertyInfo-instance AttrInfo ZlibCompressorFileInfoPropertyInfo where-    type AttrAllowedOps ZlibCompressorFileInfoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ZlibCompressorFileInfoPropertyInfo = FileInfoK-    type AttrBaseTypeConstraint ZlibCompressorFileInfoPropertyInfo = ZlibCompressorK-    type AttrGetType ZlibCompressorFileInfoPropertyInfo = FileInfo-    type AttrLabel ZlibCompressorFileInfoPropertyInfo = "file-info"-    attrGet _ = getZlibCompressorFileInfo-    attrSet _ = setZlibCompressorFileInfo-    attrConstruct _ = constructZlibCompressorFileInfo-    attrClear _ = clearZlibCompressorFileInfo---- VVV Prop "format"-   -- Type: TInterface "Gio" "ZlibCompressorFormat"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getZlibCompressorFormat :: (MonadIO m, ZlibCompressorK o) => o -> m ZlibCompressorFormat-getZlibCompressorFormat obj = liftIO $ getObjectPropertyEnum obj "format"--constructZlibCompressorFormat :: ZlibCompressorFormat -> IO ([Char], GValue)-constructZlibCompressorFormat val = constructObjectPropertyEnum "format" val--data ZlibCompressorFormatPropertyInfo-instance AttrInfo ZlibCompressorFormatPropertyInfo where-    type AttrAllowedOps ZlibCompressorFormatPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ZlibCompressorFormatPropertyInfo = (~) ZlibCompressorFormat-    type AttrBaseTypeConstraint ZlibCompressorFormatPropertyInfo = ZlibCompressorK-    type AttrGetType ZlibCompressorFormatPropertyInfo = ZlibCompressorFormat-    type AttrLabel ZlibCompressorFormatPropertyInfo = "format"-    attrGet _ = getZlibCompressorFormat-    attrSet _ = undefined-    attrConstruct _ = constructZlibCompressorFormat-    attrClear _ = undefined---- VVV Prop "level"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getZlibCompressorLevel :: (MonadIO m, ZlibCompressorK o) => o -> m Int32-getZlibCompressorLevel obj = liftIO $ getObjectPropertyInt32 obj "level"--constructZlibCompressorLevel :: Int32 -> IO ([Char], GValue)-constructZlibCompressorLevel val = constructObjectPropertyInt32 "level" val--data ZlibCompressorLevelPropertyInfo-instance AttrInfo ZlibCompressorLevelPropertyInfo where-    type AttrAllowedOps ZlibCompressorLevelPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ZlibCompressorLevelPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint ZlibCompressorLevelPropertyInfo = ZlibCompressorK-    type AttrGetType ZlibCompressorLevelPropertyInfo = Int32-    type AttrLabel ZlibCompressorLevelPropertyInfo = "level"-    attrGet _ = getZlibCompressorLevel-    attrSet _ = undefined-    attrConstruct _ = constructZlibCompressorLevel-    attrClear _ = undefined--type instance AttributeList ZlibCompressor = ZlibCompressorAttributeList-type ZlibCompressorAttributeList = ('[ '("fileInfo", ZlibCompressorFileInfoPropertyInfo), '("format", ZlibCompressorFormatPropertyInfo), '("level", ZlibCompressorLevelPropertyInfo)] :: [(Symbol, *)])--zlibCompressorFileInfo :: AttrLabelProxy "fileInfo"-zlibCompressorFileInfo = AttrLabelProxy--zlibCompressorFormat :: AttrLabelProxy "format"-zlibCompressorFormat = AttrLabelProxy--zlibCompressorLevel :: AttrLabelProxy "level"-zlibCompressorLevel = AttrLabelProxy--type instance SignalList ZlibCompressor = ZlibCompressorSignalList-type ZlibCompressorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ZlibCompressor::new--- method type : Constructor--- Args : [Arg {argCName = "format", argType = TInterface "Gio" "ZlibCompressorFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "ZlibCompressor")--- throws : False--- Skip return : False--foreign import ccall "g_zlib_compressor_new" g_zlib_compressor_new :: -    CUInt ->                                -- format : TInterface "Gio" "ZlibCompressorFormat"-    Int32 ->                                -- level : TBasicType TInt-    IO (Ptr ZlibCompressor)---zlibCompressorNew ::-    (MonadIO m) =>-    ZlibCompressorFormat                    -- format-    -> Int32                                -- level-    -> m ZlibCompressor                     -- result-zlibCompressorNew format level = liftIO $ do-    let format' = (fromIntegral . fromEnum) format-    result <- g_zlib_compressor_new format' level-    checkUnexpectedReturnNULL "g_zlib_compressor_new" result-    result' <- (wrapObject ZlibCompressor) result-    return result'---- method ZlibCompressor::get_file_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ZlibCompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : False--- Skip return : False--foreign import ccall "g_zlib_compressor_get_file_info" g_zlib_compressor_get_file_info :: -    Ptr ZlibCompressor ->                   -- _obj : TInterface "Gio" "ZlibCompressor"-    IO (Ptr FileInfo)---zlibCompressorGetFileInfo ::-    (MonadIO m, ZlibCompressorK a) =>-    a                                       -- _obj-    -> m FileInfo                           -- result-zlibCompressorGetFileInfo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_zlib_compressor_get_file_info _obj'-    checkUnexpectedReturnNULL "g_zlib_compressor_get_file_info" result-    result' <- (newObject FileInfo) result-    touchManagedPtr _obj-    return result'--data ZlibCompressorGetFileInfoMethodInfo-instance (signature ~ (m FileInfo), MonadIO m, ZlibCompressorK a) => MethodInfo ZlibCompressorGetFileInfoMethodInfo a signature where-    overloadedMethod _ = zlibCompressorGetFileInfo---- method ZlibCompressor::set_file_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ZlibCompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "ZlibCompressor"-    Ptr FileInfo ->                         -- file_info : TInterface "Gio" "FileInfo"-    IO ()---zlibCompressorSetFileInfo ::-    (MonadIO m, ZlibCompressorK a, FileInfoK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- fileInfo-    -> m ()                                 -- result-zlibCompressorSetFileInfo _obj fileInfo = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeFileInfo <- case fileInfo of-        Nothing -> return nullPtr-        Just jFileInfo -> do-            let jFileInfo' = unsafeManagedPtrCastPtr jFileInfo-            return jFileInfo'-    g_zlib_compressor_set_file_info _obj' maybeFileInfo-    touchManagedPtr _obj-    whenJust fileInfo touchManagedPtr-    return ()--data ZlibCompressorSetFileInfoMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ZlibCompressorK a, FileInfoK b) => MethodInfo ZlibCompressorSetFileInfoMethodInfo a signature where-    overloadedMethod _ = zlibCompressorSetFileInfo--
− GI/Gio/Objects/ZlibCompressor.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gio.Objects.ZlibCompressor where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ZlibCompressor = ZlibCompressor (ForeignPtr ZlibCompressor)-instance GObject ZlibCompressor where-class GObject o => ZlibCompressorK o-instance (GObject o, IsDescendantOf ZlibCompressor o) => ZlibCompressorK o-data ZlibCompressorFileInfoPropertyInfo-data ZlibCompressorFormatPropertyInfo-data ZlibCompressorLevelPropertyInfo-data ZlibCompressorGetFileInfoMethodInfo-data ZlibCompressorSetFileInfoMethodInfo
− GI/Gio/Objects/ZlibDecompressor.hs 
@@ -1,225 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Objects.ZlibDecompressor-    ( ---- * Exported types-    ZlibDecompressor(..)                    ,-    ZlibDecompressorK                       ,-    toZlibDecompressor                      ,-    noZlibDecompressor                      ,--- -- * Methods--- ** zlibDecompressorGetFileInfo-    ZlibDecompressorGetFileInfoMethodInfo   ,-    zlibDecompressorGetFileInfo             ,----- ** zlibDecompressorNew-    zlibDecompressorNew                     ,----- -- * Properties--- ** FileInfo-    ZlibDecompressorFileInfoPropertyInfo    ,-    getZlibDecompressorFileInfo             ,-    zlibDecompressorFileInfo                ,----- ** Format-    ZlibDecompressorFormatPropertyInfo      ,-    constructZlibDecompressorFormat         ,-    getZlibDecompressorFormat               ,-    zlibDecompressorFormat                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GObject as GObject--newtype ZlibDecompressor = ZlibDecompressor (ForeignPtr ZlibDecompressor)-foreign import ccall "g_zlib_decompressor_get_type"-    c_g_zlib_decompressor_get_type :: IO GType--type instance ParentTypes ZlibDecompressor = ZlibDecompressorParentTypes-type ZlibDecompressorParentTypes = '[GObject.Object, Converter]--instance GObject ZlibDecompressor where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_g_zlib_decompressor_get_type-    --class GObject o => ZlibDecompressorK o-instance (GObject o, IsDescendantOf ZlibDecompressor o) => ZlibDecompressorK o--toZlibDecompressor :: ZlibDecompressorK o => o -> IO ZlibDecompressor-toZlibDecompressor = unsafeCastTo ZlibDecompressor--noZlibDecompressor :: Maybe ZlibDecompressor-noZlibDecompressor = Nothing--type family ResolveZlibDecompressorMethod (t :: Symbol) (o :: *) :: * where-    ResolveZlibDecompressorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveZlibDecompressorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveZlibDecompressorMethod "convert" o = ConverterConvertMethodInfo-    ResolveZlibDecompressorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveZlibDecompressorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveZlibDecompressorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveZlibDecompressorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveZlibDecompressorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveZlibDecompressorMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveZlibDecompressorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveZlibDecompressorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveZlibDecompressorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveZlibDecompressorMethod "reset" o = ConverterResetMethodInfo-    ResolveZlibDecompressorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveZlibDecompressorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveZlibDecompressorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveZlibDecompressorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveZlibDecompressorMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveZlibDecompressorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveZlibDecompressorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveZlibDecompressorMethod "getFileInfo" o = ZlibDecompressorGetFileInfoMethodInfo-    ResolveZlibDecompressorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveZlibDecompressorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveZlibDecompressorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveZlibDecompressorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveZlibDecompressorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveZlibDecompressorMethod t ZlibDecompressor, MethodInfo info ZlibDecompressor p) => IsLabelProxy t (ZlibDecompressor -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveZlibDecompressorMethod t ZlibDecompressor, MethodInfo info ZlibDecompressor p) => IsLabel t (ZlibDecompressor -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "file-info"-   -- Type: TInterface "Gio" "FileInfo"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getZlibDecompressorFileInfo :: (MonadIO m, ZlibDecompressorK o) => o -> m FileInfo-getZlibDecompressorFileInfo obj = liftIO $ checkUnexpectedNothing "getZlibDecompressorFileInfo" $ getObjectPropertyObject obj "file-info" FileInfo--data ZlibDecompressorFileInfoPropertyInfo-instance AttrInfo ZlibDecompressorFileInfoPropertyInfo where-    type AttrAllowedOps ZlibDecompressorFileInfoPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ZlibDecompressorFileInfoPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ZlibDecompressorFileInfoPropertyInfo = ZlibDecompressorK-    type AttrGetType ZlibDecompressorFileInfoPropertyInfo = FileInfo-    type AttrLabel ZlibDecompressorFileInfoPropertyInfo = "file-info"-    attrGet _ = getZlibDecompressorFileInfo-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "format"-   -- Type: TInterface "Gio" "ZlibCompressorFormat"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getZlibDecompressorFormat :: (MonadIO m, ZlibDecompressorK o) => o -> m ZlibCompressorFormat-getZlibDecompressorFormat obj = liftIO $ getObjectPropertyEnum obj "format"--constructZlibDecompressorFormat :: ZlibCompressorFormat -> IO ([Char], GValue)-constructZlibDecompressorFormat val = constructObjectPropertyEnum "format" val--data ZlibDecompressorFormatPropertyInfo-instance AttrInfo ZlibDecompressorFormatPropertyInfo where-    type AttrAllowedOps ZlibDecompressorFormatPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ZlibDecompressorFormatPropertyInfo = (~) ZlibCompressorFormat-    type AttrBaseTypeConstraint ZlibDecompressorFormatPropertyInfo = ZlibDecompressorK-    type AttrGetType ZlibDecompressorFormatPropertyInfo = ZlibCompressorFormat-    type AttrLabel ZlibDecompressorFormatPropertyInfo = "format"-    attrGet _ = getZlibDecompressorFormat-    attrSet _ = undefined-    attrConstruct _ = constructZlibDecompressorFormat-    attrClear _ = undefined--type instance AttributeList ZlibDecompressor = ZlibDecompressorAttributeList-type ZlibDecompressorAttributeList = ('[ '("fileInfo", ZlibDecompressorFileInfoPropertyInfo), '("format", ZlibDecompressorFormatPropertyInfo)] :: [(Symbol, *)])--zlibDecompressorFileInfo :: AttrLabelProxy "fileInfo"-zlibDecompressorFileInfo = AttrLabelProxy--zlibDecompressorFormat :: AttrLabelProxy "format"-zlibDecompressorFormat = AttrLabelProxy--type instance SignalList ZlibDecompressor = ZlibDecompressorSignalList-type ZlibDecompressorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ZlibDecompressor::new--- method type : Constructor--- Args : [Arg {argCName = "format", argType = TInterface "Gio" "ZlibCompressorFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "ZlibDecompressor")--- throws : False--- Skip return : False--foreign import ccall "g_zlib_decompressor_new" g_zlib_decompressor_new :: -    CUInt ->                                -- format : TInterface "Gio" "ZlibCompressorFormat"-    IO (Ptr ZlibDecompressor)---zlibDecompressorNew ::-    (MonadIO m) =>-    ZlibCompressorFormat                    -- format-    -> m ZlibDecompressor                   -- result-zlibDecompressorNew format = liftIO $ do-    let format' = (fromIntegral . fromEnum) format-    result <- g_zlib_decompressor_new format'-    checkUnexpectedReturnNULL "g_zlib_decompressor_new" result-    result' <- (wrapObject ZlibDecompressor) result-    return result'---- method ZlibDecompressor::get_file_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ZlibDecompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileInfo")--- throws : False--- Skip return : False--foreign import ccall "g_zlib_decompressor_get_file_info" g_zlib_decompressor_get_file_info :: -    Ptr ZlibDecompressor ->                 -- _obj : TInterface "Gio" "ZlibDecompressor"-    IO (Ptr FileInfo)---zlibDecompressorGetFileInfo ::-    (MonadIO m, ZlibDecompressorK a) =>-    a                                       -- _obj-    -> m FileInfo                           -- result-zlibDecompressorGetFileInfo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- g_zlib_decompressor_get_file_info _obj'-    checkUnexpectedReturnNULL "g_zlib_decompressor_get_file_info" result-    result' <- (newObject FileInfo) result-    touchManagedPtr _obj-    return result'--data ZlibDecompressorGetFileInfoMethodInfo-instance (signature ~ (m FileInfo), MonadIO m, ZlibDecompressorK a) => MethodInfo ZlibDecompressorGetFileInfoMethodInfo a signature where-    overloadedMethod _ = zlibDecompressorGetFileInfo--
− GI/Gio/Objects/ZlibDecompressor.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gio.Objects.ZlibDecompressor where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ZlibDecompressor = ZlibDecompressor (ForeignPtr ZlibDecompressor)-instance GObject ZlibDecompressor where-class GObject o => ZlibDecompressorK o-instance (GObject o, IsDescendantOf ZlibDecompressor o) => ZlibDecompressorK o-data ZlibDecompressorFileInfoPropertyInfo-data ZlibDecompressorFormatPropertyInfo-data ZlibDecompressorGetFileInfoMethodInfo
− GI/Gio/Structs.hs 
@@ -1,89 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--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.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.SettingsBackend   ,-    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.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.SettingsBackend-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.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--
− GI/Gio/Structs/ActionEntry.hs 
@@ -1,198 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--This struct defines a single action.  It is for use with-g_action_map_add_action_entries().--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 %NULL.  All values-after @name are optional.  Additional optional fields may be added in-the future.--See g_action_map_add_action_entries() for an example.--}--module GI.Gio.Structs.ActionEntry-    ( ---- * Exported types-    ActionEntry(..)                         ,-    newZeroActionEntry                      ,-    noActionEntry                           ,--- -- * Properties--- ** Name-    actionEntryClearName                    ,-    actionEntryName                         ,-    actionEntryReadName                     ,-    actionEntryWriteName                    ,----- ** ParameterType-    actionEntryClearParameterType           ,-    actionEntryParameterType                ,-    actionEntryReadParameterType            ,-    actionEntryWriteParameterType           ,----- ** State-    actionEntryClearState                   ,-    actionEntryReadState                    ,-    actionEntryState                        ,-    actionEntryWriteState                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype ActionEntry = ActionEntry (ForeignPtr ActionEntry)-instance WrappedPtr ActionEntry where-    wrappedPtrCalloc = callocBytes 64-    wrappedPtrCopy = copyPtr 64-    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---noActionEntry :: Maybe ActionEntry-noActionEntry = Nothing--actionEntryReadName :: MonadIO m => ActionEntry -> m (Maybe T.Text)-actionEntryReadName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionEntryWriteName :: MonadIO m => ActionEntry -> CString -> m ()-actionEntryWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--actionEntryClearName :: MonadIO m => ActionEntry -> m ()-actionEntryClearName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: CString)--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"-    attrGet _ = actionEntryReadName-    attrSet _ = actionEntryWriteName-    attrConstruct = undefined-    attrClear _ = actionEntryClearName--actionEntryName :: AttrLabelProxy "name"-actionEntryName = AttrLabelProxy----- XXX Skipped attribute for "ActionEntry:activate" :: Not implemented: "Wrapping foreign callbacks is not supported yet"-actionEntryReadParameterType :: MonadIO m => ActionEntry -> m (Maybe T.Text)-actionEntryReadParameterType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionEntryWriteParameterType :: MonadIO m => ActionEntry -> CString -> m ()-actionEntryWriteParameterType s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--actionEntryClearParameterType :: MonadIO m => ActionEntry -> m ()-actionEntryClearParameterType s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: CString)--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"-    attrGet _ = actionEntryReadParameterType-    attrSet _ = actionEntryWriteParameterType-    attrConstruct = undefined-    attrClear _ = actionEntryClearParameterType--actionEntryParameterType :: AttrLabelProxy "parameterType"-actionEntryParameterType = AttrLabelProxy---actionEntryReadState :: MonadIO m => ActionEntry -> m (Maybe T.Text)-actionEntryReadState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--actionEntryWriteState :: MonadIO m => ActionEntry -> CString -> m ()-actionEntryWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: CString)--actionEntryClearState :: MonadIO m => ActionEntry -> m ()-actionEntryClearState s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: CString)--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"-    attrGet _ = actionEntryReadState-    attrSet _ = actionEntryWriteState-    attrConstruct = undefined-    attrClear _ = actionEntryClearState--actionEntryState :: AttrLabelProxy "state"-actionEntryState = AttrLabelProxy----- XXX Skipped attribute for "ActionEntry:change_state" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--type instance AttributeList ActionEntry = ActionEntryAttributeList-type ActionEntryAttributeList = ('[ '("name", ActionEntryNameFieldInfo), '("parameterType", ActionEntryParameterTypeFieldInfo), '("state", ActionEntryStateFieldInfo)] :: [(Symbol, *)])--type family ResolveActionEntryMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionEntryMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveActionEntryMethod t ActionEntry, MethodInfo info ActionEntry p) => IsLabelProxy t (ActionEntry -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveActionEntryMethod t ActionEntry, MethodInfo info ActionEntry p) => IsLabel t (ActionEntry -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/ActionEntry.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.ActionEntry where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ActionEntry = ActionEntry (ForeignPtr ActionEntry)-instance WrappedPtr ActionEntry where
− GI/Gio/Structs/DBusAnnotationInfo.hs 
@@ -1,330 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Information about an annotation.--}--module GI.Gio.Structs.DBusAnnotationInfo-    ( ---- * Exported types-    DBusAnnotationInfo(..)                  ,-    newZeroDBusAnnotationInfo               ,-    noDBusAnnotationInfo                    ,--- -- * Methods--- ** dBusAnnotationInfoLookup-    dBusAnnotationInfoLookup                ,----- ** dBusAnnotationInfoRef-    DBusAnnotationInfoRefMethodInfo         ,-    dBusAnnotationInfoRef                   ,----- ** dBusAnnotationInfoUnref-    DBusAnnotationInfoUnrefMethodInfo       ,-    dBusAnnotationInfoUnref                 ,----- -- * Properties--- ** Annotations-    dBusAnnotationInfoAnnotations           ,-    dBusAnnotationInfoClearAnnotations      ,-    dBusAnnotationInfoReadAnnotations       ,-    dBusAnnotationInfoWriteAnnotations      ,----- ** Key-    dBusAnnotationInfoClearKey              ,-    dBusAnnotationInfoKey                   ,-    dBusAnnotationInfoReadKey               ,-    dBusAnnotationInfoWriteKey              ,----- ** RefCount-    dBusAnnotationInfoReadRefCount          ,-    dBusAnnotationInfoRefCount              ,-    dBusAnnotationInfoWriteRefCount         ,----- ** Value-    dBusAnnotationInfoClearValue            ,-    dBusAnnotationInfoReadValue             ,-    dBusAnnotationInfoValue                 ,-    dBusAnnotationInfoWriteValue            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype DBusAnnotationInfo = DBusAnnotationInfo (ForeignPtr 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---noDBusAnnotationInfo :: Maybe DBusAnnotationInfo-noDBusAnnotationInfo = Nothing--dBusAnnotationInfoReadRefCount :: MonadIO m => DBusAnnotationInfo -> m Int32-dBusAnnotationInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--dBusAnnotationInfoWriteRefCount :: MonadIO m => DBusAnnotationInfo -> Int32 -> m ()-dBusAnnotationInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--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"-    attrGet _ = dBusAnnotationInfoReadRefCount-    attrSet _ = dBusAnnotationInfoWriteRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusAnnotationInfoRefCount :: AttrLabelProxy "refCount"-dBusAnnotationInfoRefCount = AttrLabelProxy---dBusAnnotationInfoReadKey :: MonadIO m => DBusAnnotationInfo -> m (Maybe T.Text)-dBusAnnotationInfoReadKey s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--dBusAnnotationInfoWriteKey :: MonadIO m => DBusAnnotationInfo -> CString -> m ()-dBusAnnotationInfoWriteKey s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--dBusAnnotationInfoClearKey :: MonadIO m => DBusAnnotationInfo -> m ()-dBusAnnotationInfoClearKey s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--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"-    attrGet _ = dBusAnnotationInfoReadKey-    attrSet _ = dBusAnnotationInfoWriteKey-    attrConstruct = undefined-    attrClear _ = dBusAnnotationInfoClearKey--dBusAnnotationInfoKey :: AttrLabelProxy "key"-dBusAnnotationInfoKey = AttrLabelProxy---dBusAnnotationInfoReadValue :: MonadIO m => DBusAnnotationInfo -> m (Maybe T.Text)-dBusAnnotationInfoReadValue s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--dBusAnnotationInfoWriteValue :: MonadIO m => DBusAnnotationInfo -> CString -> m ()-dBusAnnotationInfoWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--dBusAnnotationInfoClearValue :: MonadIO m => DBusAnnotationInfo -> m ()-dBusAnnotationInfoClearValue s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: CString)--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"-    attrGet _ = dBusAnnotationInfoReadValue-    attrSet _ = dBusAnnotationInfoWriteValue-    attrConstruct = undefined-    attrClear _ = dBusAnnotationInfoClearValue--dBusAnnotationInfoValue :: AttrLabelProxy "value"-dBusAnnotationInfoValue = AttrLabelProxy---dBusAnnotationInfoReadAnnotations :: MonadIO m => DBusAnnotationInfo -> m (Maybe [DBusAnnotationInfo])-dBusAnnotationInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusAnnotationInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusAnnotationInfo) val''-        return val'''-    return result--dBusAnnotationInfoWriteAnnotations :: MonadIO m => DBusAnnotationInfo -> Ptr (Ptr DBusAnnotationInfo) -> m ()-dBusAnnotationInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusAnnotationInfo))--dBusAnnotationInfoClearAnnotations :: MonadIO m => DBusAnnotationInfo -> m ()-dBusAnnotationInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusAnnotationInfo))--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"-    attrGet _ = dBusAnnotationInfoReadAnnotations-    attrSet _ = dBusAnnotationInfoWriteAnnotations-    attrConstruct = undefined-    attrClear _ = dBusAnnotationInfoClearAnnotations--dBusAnnotationInfoAnnotations :: AttrLabelProxy "annotations"-dBusAnnotationInfoAnnotations = AttrLabelProxy----type instance AttributeList DBusAnnotationInfo = DBusAnnotationInfoAttributeList-type DBusAnnotationInfoAttributeList = ('[ '("refCount", DBusAnnotationInfoRefCountFieldInfo), '("key", DBusAnnotationInfoKeyFieldInfo), '("value", DBusAnnotationInfoValueFieldInfo), '("annotations", DBusAnnotationInfoAnnotationsFieldInfo)] :: [(Symbol, *)])---- method DBusAnnotationInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusAnnotationInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusAnnotationInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_annotation_info_ref" g_dbus_annotation_info_ref :: -    Ptr DBusAnnotationInfo ->               -- _obj : TInterface "Gio" "DBusAnnotationInfo"-    IO (Ptr DBusAnnotationInfo)---dBusAnnotationInfoRef ::-    (MonadIO m) =>-    DBusAnnotationInfo                      -- _obj-    -> m DBusAnnotationInfo                 -- result-dBusAnnotationInfoRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_dbus_annotation_info_ref _obj'-    checkUnexpectedReturnNULL "g_dbus_annotation_info_ref" result-    result' <- (wrapBoxed DBusAnnotationInfo) result-    touchManagedPtr _obj-    return result'--data DBusAnnotationInfoRefMethodInfo-instance (signature ~ (m DBusAnnotationInfo), MonadIO m) => MethodInfo DBusAnnotationInfoRefMethodInfo DBusAnnotationInfo signature where-    overloadedMethod _ = dBusAnnotationInfoRef---- method DBusAnnotationInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusAnnotationInfo", direction = DirectionIn, mayBeNull = False, 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 ->               -- _obj : TInterface "Gio" "DBusAnnotationInfo"-    IO ()---dBusAnnotationInfoUnref ::-    (MonadIO m) =>-    DBusAnnotationInfo                      -- _obj-    -> m ()                                 -- result-dBusAnnotationInfoUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_dbus_annotation_info_unref _obj'-    touchManagedPtr _obj-    return ()--data DBusAnnotationInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusAnnotationInfoUnrefMethodInfo DBusAnnotationInfo signature where-    overloadedMethod _ = dBusAnnotationInfoUnref---- method DBusAnnotationInfo::lookup--- method type : MemberFunction--- Args : [Arg {argCName = "annotations", argType = TCArray True (-1) (-1) (TInterface "Gio" "DBusAnnotationInfo"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 "Gio" "DBusAnnotationInfo")-    CString ->                              -- name : TBasicType TUTF8-    IO CString---dBusAnnotationInfoLookup ::-    (MonadIO m) =>-    Maybe ([DBusAnnotationInfo])            -- annotations-    -> T.Text                               -- name-    -> m T.Text                             -- result-dBusAnnotationInfoLookup annotations name = liftIO $ do-    maybeAnnotations <- case annotations of-        Nothing -> return nullPtr-        Just jAnnotations -> do-            let jAnnotations' = map unsafeManagedPtrGetPtr jAnnotations-            jAnnotations'' <- packZeroTerminatedPtrArray jAnnotations'-            return jAnnotations''-    name' <- textToCString name-    result <- g_dbus_annotation_info_lookup maybeAnnotations name'-    checkUnexpectedReturnNULL "g_dbus_annotation_info_lookup" result-    result' <- cstringToText result-    whenJust annotations (mapM_ touchManagedPtr)-    freeMem maybeAnnotations-    freeMem name'-    return result'--type family ResolveDBusAnnotationInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusAnnotationInfoMethod "ref" o = DBusAnnotationInfoRefMethodInfo-    ResolveDBusAnnotationInfoMethod "unref" o = DBusAnnotationInfoUnrefMethodInfo-    ResolveDBusAnnotationInfoMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusAnnotationInfoMethod t DBusAnnotationInfo, MethodInfo info DBusAnnotationInfo p) => IsLabelProxy t (DBusAnnotationInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusAnnotationInfoMethod t DBusAnnotationInfo, MethodInfo info DBusAnnotationInfo p) => IsLabel t (DBusAnnotationInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/DBusAnnotationInfo.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gio.Structs.DBusAnnotationInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusAnnotationInfo = DBusAnnotationInfo (ForeignPtr DBusAnnotationInfo)-instance BoxedObject DBusAnnotationInfo where-data DBusAnnotationInfoRefMethodInfo-data DBusAnnotationInfoUnrefMethodInfo
− GI/Gio/Structs/DBusArgInfo.hs 
@@ -1,291 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Information about an argument for a method or a signal.--}--module GI.Gio.Structs.DBusArgInfo-    ( ---- * Exported types-    DBusArgInfo(..)                         ,-    newZeroDBusArgInfo                      ,-    noDBusArgInfo                           ,--- -- * Methods--- ** dBusArgInfoRef-    DBusArgInfoRefMethodInfo                ,-    dBusArgInfoRef                          ,----- ** dBusArgInfoUnref-    DBusArgInfoUnrefMethodInfo              ,-    dBusArgInfoUnref                        ,----- -- * Properties--- ** Annotations-    dBusArgInfoAnnotations                  ,-    dBusArgInfoClearAnnotations             ,-    dBusArgInfoReadAnnotations              ,-    dBusArgInfoWriteAnnotations             ,----- ** Name-    dBusArgInfoClearName                    ,-    dBusArgInfoName                         ,-    dBusArgInfoReadName                     ,-    dBusArgInfoWriteName                    ,----- ** RefCount-    dBusArgInfoReadRefCount                 ,-    dBusArgInfoRefCount                     ,-    dBusArgInfoWriteRefCount                ,----- ** Signature-    dBusArgInfoClearSignature               ,-    dBusArgInfoReadSignature                ,-    dBusArgInfoSignature                    ,-    dBusArgInfoWriteSignature               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype DBusArgInfo = DBusArgInfo (ForeignPtr 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---noDBusArgInfo :: Maybe DBusArgInfo-noDBusArgInfo = Nothing--dBusArgInfoReadRefCount :: MonadIO m => DBusArgInfo -> m Int32-dBusArgInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--dBusArgInfoWriteRefCount :: MonadIO m => DBusArgInfo -> Int32 -> m ()-dBusArgInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--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"-    attrGet _ = dBusArgInfoReadRefCount-    attrSet _ = dBusArgInfoWriteRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusArgInfoRefCount :: AttrLabelProxy "refCount"-dBusArgInfoRefCount = AttrLabelProxy---dBusArgInfoReadName :: MonadIO m => DBusArgInfo -> m (Maybe T.Text)-dBusArgInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--dBusArgInfoWriteName :: MonadIO m => DBusArgInfo -> CString -> m ()-dBusArgInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--dBusArgInfoClearName :: MonadIO m => DBusArgInfo -> m ()-dBusArgInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--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"-    attrGet _ = dBusArgInfoReadName-    attrSet _ = dBusArgInfoWriteName-    attrConstruct = undefined-    attrClear _ = dBusArgInfoClearName--dBusArgInfoName :: AttrLabelProxy "name"-dBusArgInfoName = AttrLabelProxy---dBusArgInfoReadSignature :: MonadIO m => DBusArgInfo -> m (Maybe T.Text)-dBusArgInfoReadSignature s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--dBusArgInfoWriteSignature :: MonadIO m => DBusArgInfo -> CString -> m ()-dBusArgInfoWriteSignature s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--dBusArgInfoClearSignature :: MonadIO m => DBusArgInfo -> m ()-dBusArgInfoClearSignature s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: CString)--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"-    attrGet _ = dBusArgInfoReadSignature-    attrSet _ = dBusArgInfoWriteSignature-    attrConstruct = undefined-    attrClear _ = dBusArgInfoClearSignature--dBusArgInfoSignature :: AttrLabelProxy "signature"-dBusArgInfoSignature = AttrLabelProxy---dBusArgInfoReadAnnotations :: MonadIO m => DBusArgInfo -> m (Maybe [DBusAnnotationInfo])-dBusArgInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusAnnotationInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusAnnotationInfo) val''-        return val'''-    return result--dBusArgInfoWriteAnnotations :: MonadIO m => DBusArgInfo -> Ptr (Ptr DBusAnnotationInfo) -> m ()-dBusArgInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusAnnotationInfo))--dBusArgInfoClearAnnotations :: MonadIO m => DBusArgInfo -> m ()-dBusArgInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusAnnotationInfo))--data DBusArgInfoAnnotationsFieldInfo-instance AttrInfo DBusArgInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusArgInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusArgInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusArgInfoAnnotationsFieldInfo = (~) DBusArgInfo-    type AttrGetType DBusArgInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo]-    type AttrLabel DBusArgInfoAnnotationsFieldInfo = "annotations"-    attrGet _ = dBusArgInfoReadAnnotations-    attrSet _ = dBusArgInfoWriteAnnotations-    attrConstruct = undefined-    attrClear _ = dBusArgInfoClearAnnotations--dBusArgInfoAnnotations :: AttrLabelProxy "annotations"-dBusArgInfoAnnotations = AttrLabelProxy----type instance AttributeList DBusArgInfo = DBusArgInfoAttributeList-type DBusArgInfoAttributeList = ('[ '("refCount", DBusArgInfoRefCountFieldInfo), '("name", DBusArgInfoNameFieldInfo), '("signature", DBusArgInfoSignatureFieldInfo), '("annotations", DBusArgInfoAnnotationsFieldInfo)] :: [(Symbol, *)])---- method DBusArgInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusArgInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusArgInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_arg_info_ref" g_dbus_arg_info_ref :: -    Ptr DBusArgInfo ->                      -- _obj : TInterface "Gio" "DBusArgInfo"-    IO (Ptr DBusArgInfo)---dBusArgInfoRef ::-    (MonadIO m) =>-    DBusArgInfo                             -- _obj-    -> m DBusArgInfo                        -- result-dBusArgInfoRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_dbus_arg_info_ref _obj'-    checkUnexpectedReturnNULL "g_dbus_arg_info_ref" result-    result' <- (wrapBoxed DBusArgInfo) result-    touchManagedPtr _obj-    return result'--data DBusArgInfoRefMethodInfo-instance (signature ~ (m DBusArgInfo), MonadIO m) => MethodInfo DBusArgInfoRefMethodInfo DBusArgInfo signature where-    overloadedMethod _ = dBusArgInfoRef---- method DBusArgInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusArgInfo", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "DBusArgInfo"-    IO ()---dBusArgInfoUnref ::-    (MonadIO m) =>-    DBusArgInfo                             -- _obj-    -> m ()                                 -- result-dBusArgInfoUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_dbus_arg_info_unref _obj'-    touchManagedPtr _obj-    return ()--data DBusArgInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusArgInfoUnrefMethodInfo DBusArgInfo signature where-    overloadedMethod _ = dBusArgInfoUnref--type family ResolveDBusArgInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusArgInfoMethod "ref" o = DBusArgInfoRefMethodInfo-    ResolveDBusArgInfoMethod "unref" o = DBusArgInfoUnrefMethodInfo-    ResolveDBusArgInfoMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusArgInfoMethod t DBusArgInfo, MethodInfo info DBusArgInfo p) => IsLabelProxy t (DBusArgInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusArgInfoMethod t DBusArgInfo, MethodInfo info DBusArgInfo p) => IsLabel t (DBusArgInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/DBusArgInfo.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gio.Structs.DBusArgInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusArgInfo = DBusArgInfo (ForeignPtr DBusArgInfo)-instance BoxedObject DBusArgInfo where-data DBusArgInfoRefMethodInfo-data DBusArgInfoUnrefMethodInfo
− GI/Gio/Structs/DBusErrorEntry.hs 
@@ -1,140 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Struct used in g_dbus_error_register_error_domain().--}--module GI.Gio.Structs.DBusErrorEntry-    ( ---- * Exported types-    DBusErrorEntry(..)                      ,-    newZeroDBusErrorEntry                   ,-    noDBusErrorEntry                        ,--- -- * Properties--- ** DbusErrorName-    dBusErrorEntryClearDbusErrorName        ,-    dBusErrorEntryDbusErrorName             ,-    dBusErrorEntryReadDbusErrorName         ,-    dBusErrorEntryWriteDbusErrorName        ,----- ** ErrorCode-    dBusErrorEntryErrorCode                 ,-    dBusErrorEntryReadErrorCode             ,-    dBusErrorEntryWriteErrorCode            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype DBusErrorEntry = DBusErrorEntry (ForeignPtr DBusErrorEntry)-instance WrappedPtr DBusErrorEntry where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = copyPtr 16-    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---noDBusErrorEntry :: Maybe DBusErrorEntry-noDBusErrorEntry = Nothing--dBusErrorEntryReadErrorCode :: MonadIO m => DBusErrorEntry -> m Int32-dBusErrorEntryReadErrorCode s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--dBusErrorEntryWriteErrorCode :: MonadIO m => DBusErrorEntry -> Int32 -> m ()-dBusErrorEntryWriteErrorCode s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--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"-    attrGet _ = dBusErrorEntryReadErrorCode-    attrSet _ = dBusErrorEntryWriteErrorCode-    attrConstruct = undefined-    attrClear _ = undefined--dBusErrorEntryErrorCode :: AttrLabelProxy "errorCode"-dBusErrorEntryErrorCode = AttrLabelProxy---dBusErrorEntryReadDbusErrorName :: MonadIO m => DBusErrorEntry -> m (Maybe T.Text)-dBusErrorEntryReadDbusErrorName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--dBusErrorEntryWriteDbusErrorName :: MonadIO m => DBusErrorEntry -> CString -> m ()-dBusErrorEntryWriteDbusErrorName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--dBusErrorEntryClearDbusErrorName :: MonadIO m => DBusErrorEntry -> m ()-dBusErrorEntryClearDbusErrorName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--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"-    attrGet _ = dBusErrorEntryReadDbusErrorName-    attrSet _ = dBusErrorEntryWriteDbusErrorName-    attrConstruct = undefined-    attrClear _ = dBusErrorEntryClearDbusErrorName--dBusErrorEntryDbusErrorName :: AttrLabelProxy "dbusErrorName"-dBusErrorEntryDbusErrorName = AttrLabelProxy----type instance AttributeList DBusErrorEntry = DBusErrorEntryAttributeList-type DBusErrorEntryAttributeList = ('[ '("errorCode", DBusErrorEntryErrorCodeFieldInfo), '("dbusErrorName", DBusErrorEntryDbusErrorNameFieldInfo)] :: [(Symbol, *)])--type family ResolveDBusErrorEntryMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusErrorEntryMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusErrorEntryMethod t DBusErrorEntry, MethodInfo info DBusErrorEntry p) => IsLabelProxy t (DBusErrorEntry -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusErrorEntryMethod t DBusErrorEntry, MethodInfo info DBusErrorEntry p) => IsLabel t (DBusErrorEntry -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/DBusErrorEntry.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.DBusErrorEntry where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusErrorEntry = DBusErrorEntry (ForeignPtr DBusErrorEntry)-instance WrappedPtr DBusErrorEntry where
− GI/Gio/Structs/DBusInterfaceInfo.hs 
@@ -1,594 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Information about a D-Bus interface.--}--module GI.Gio.Structs.DBusInterfaceInfo-    ( ---- * Exported types-    DBusInterfaceInfo(..)                   ,-    newZeroDBusInterfaceInfo                ,-    noDBusInterfaceInfo                     ,--- -- * Methods--- ** dBusInterfaceInfoCacheBuild-    DBusInterfaceInfoCacheBuildMethodInfo   ,-    dBusInterfaceInfoCacheBuild             ,----- ** dBusInterfaceInfoCacheRelease-    DBusInterfaceInfoCacheReleaseMethodInfo ,-    dBusInterfaceInfoCacheRelease           ,----- ** dBusInterfaceInfoGenerateXml-    DBusInterfaceInfoGenerateXmlMethodInfo  ,-    dBusInterfaceInfoGenerateXml            ,----- ** dBusInterfaceInfoLookupMethod-    DBusInterfaceInfoLookupMethodMethodInfo ,-    dBusInterfaceInfoLookupMethod           ,----- ** dBusInterfaceInfoLookupProperty-    DBusInterfaceInfoLookupPropertyMethodInfo,-    dBusInterfaceInfoLookupProperty         ,----- ** dBusInterfaceInfoLookupSignal-    DBusInterfaceInfoLookupSignalMethodInfo ,-    dBusInterfaceInfoLookupSignal           ,----- ** dBusInterfaceInfoRef-    DBusInterfaceInfoRefMethodInfo          ,-    dBusInterfaceInfoRef                    ,----- ** dBusInterfaceInfoUnref-    DBusInterfaceInfoUnrefMethodInfo        ,-    dBusInterfaceInfoUnref                  ,----- -- * Properties--- ** Annotations-    dBusInterfaceInfoAnnotations            ,-    dBusInterfaceInfoClearAnnotations       ,-    dBusInterfaceInfoReadAnnotations        ,-    dBusInterfaceInfoWriteAnnotations       ,----- ** Methods-    dBusInterfaceInfoClearMethods           ,-    dBusInterfaceInfoMethods                ,-    dBusInterfaceInfoReadMethods            ,-    dBusInterfaceInfoWriteMethods           ,----- ** Name-    dBusInterfaceInfoClearName              ,-    dBusInterfaceInfoName                   ,-    dBusInterfaceInfoReadName               ,-    dBusInterfaceInfoWriteName              ,----- ** Properties-    dBusInterfaceInfoClearProperties        ,-    dBusInterfaceInfoProperties             ,-    dBusInterfaceInfoReadProperties         ,-    dBusInterfaceInfoWriteProperties        ,----- ** RefCount-    dBusInterfaceInfoReadRefCount           ,-    dBusInterfaceInfoRefCount               ,-    dBusInterfaceInfoWriteRefCount          ,----- ** Signals-    dBusInterfaceInfoClearSignals           ,-    dBusInterfaceInfoReadSignals            ,-    dBusInterfaceInfoSignals                ,-    dBusInterfaceInfoWriteSignals           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib--newtype DBusInterfaceInfo = DBusInterfaceInfo (ForeignPtr 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---noDBusInterfaceInfo :: Maybe DBusInterfaceInfo-noDBusInterfaceInfo = Nothing--dBusInterfaceInfoReadRefCount :: MonadIO m => DBusInterfaceInfo -> m Int32-dBusInterfaceInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--dBusInterfaceInfoWriteRefCount :: MonadIO m => DBusInterfaceInfo -> Int32 -> m ()-dBusInterfaceInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--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"-    attrGet _ = dBusInterfaceInfoReadRefCount-    attrSet _ = dBusInterfaceInfoWriteRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusInterfaceInfoRefCount :: AttrLabelProxy "refCount"-dBusInterfaceInfoRefCount = AttrLabelProxy---dBusInterfaceInfoReadName :: MonadIO m => DBusInterfaceInfo -> m (Maybe T.Text)-dBusInterfaceInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--dBusInterfaceInfoWriteName :: MonadIO m => DBusInterfaceInfo -> CString -> m ()-dBusInterfaceInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--dBusInterfaceInfoClearName :: MonadIO m => DBusInterfaceInfo -> m ()-dBusInterfaceInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--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"-    attrGet _ = dBusInterfaceInfoReadName-    attrSet _ = dBusInterfaceInfoWriteName-    attrConstruct = undefined-    attrClear _ = dBusInterfaceInfoClearName--dBusInterfaceInfoName :: AttrLabelProxy "name"-dBusInterfaceInfoName = AttrLabelProxy---dBusInterfaceInfoReadMethods :: MonadIO m => DBusInterfaceInfo -> m (Maybe [DBusMethodInfo])-dBusInterfaceInfoReadMethods s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr DBusMethodInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusMethodInfo) val''-        return val'''-    return result--dBusInterfaceInfoWriteMethods :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr DBusMethodInfo) -> m ()-dBusInterfaceInfoWriteMethods s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Ptr (Ptr DBusMethodInfo))--dBusInterfaceInfoClearMethods :: MonadIO m => DBusInterfaceInfo -> m ()-dBusInterfaceInfoClearMethods s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: Ptr (Ptr DBusMethodInfo))--data DBusInterfaceInfoMethodsFieldInfo-instance AttrInfo DBusInterfaceInfoMethodsFieldInfo where-    type AttrAllowedOps DBusInterfaceInfoMethodsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceInfoMethodsFieldInfo = (~) (Ptr (Ptr DBusMethodInfo))-    type AttrBaseTypeConstraint DBusInterfaceInfoMethodsFieldInfo = (~) DBusInterfaceInfo-    type AttrGetType DBusInterfaceInfoMethodsFieldInfo = Maybe [DBusMethodInfo]-    type AttrLabel DBusInterfaceInfoMethodsFieldInfo = "methods"-    attrGet _ = dBusInterfaceInfoReadMethods-    attrSet _ = dBusInterfaceInfoWriteMethods-    attrConstruct = undefined-    attrClear _ = dBusInterfaceInfoClearMethods--dBusInterfaceInfoMethods :: AttrLabelProxy "methods"-dBusInterfaceInfoMethods = AttrLabelProxy---dBusInterfaceInfoReadSignals :: MonadIO m => DBusInterfaceInfo -> m (Maybe [DBusSignalInfo])-dBusInterfaceInfoReadSignals s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusSignalInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusSignalInfo) val''-        return val'''-    return result--dBusInterfaceInfoWriteSignals :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr DBusSignalInfo) -> m ()-dBusInterfaceInfoWriteSignals s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusSignalInfo))--dBusInterfaceInfoClearSignals :: MonadIO m => DBusInterfaceInfo -> m ()-dBusInterfaceInfoClearSignals s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusSignalInfo))--data DBusInterfaceInfoSignalsFieldInfo-instance AttrInfo DBusInterfaceInfoSignalsFieldInfo where-    type AttrAllowedOps DBusInterfaceInfoSignalsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceInfoSignalsFieldInfo = (~) (Ptr (Ptr DBusSignalInfo))-    type AttrBaseTypeConstraint DBusInterfaceInfoSignalsFieldInfo = (~) DBusInterfaceInfo-    type AttrGetType DBusInterfaceInfoSignalsFieldInfo = Maybe [DBusSignalInfo]-    type AttrLabel DBusInterfaceInfoSignalsFieldInfo = "signals"-    attrGet _ = dBusInterfaceInfoReadSignals-    attrSet _ = dBusInterfaceInfoWriteSignals-    attrConstruct = undefined-    attrClear _ = dBusInterfaceInfoClearSignals--dBusInterfaceInfoSignals :: AttrLabelProxy "signals"-dBusInterfaceInfoSignals = AttrLabelProxy---dBusInterfaceInfoReadProperties :: MonadIO m => DBusInterfaceInfo -> m (Maybe [DBusPropertyInfo])-dBusInterfaceInfoReadProperties s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr DBusPropertyInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusPropertyInfo) val''-        return val'''-    return result--dBusInterfaceInfoWriteProperties :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr DBusPropertyInfo) -> m ()-dBusInterfaceInfoWriteProperties s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr (Ptr DBusPropertyInfo))--dBusInterfaceInfoClearProperties :: MonadIO m => DBusInterfaceInfo -> m ()-dBusInterfaceInfoClearProperties s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr (Ptr DBusPropertyInfo))--data DBusInterfaceInfoPropertiesFieldInfo-instance AttrInfo DBusInterfaceInfoPropertiesFieldInfo where-    type AttrAllowedOps DBusInterfaceInfoPropertiesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceInfoPropertiesFieldInfo = (~) (Ptr (Ptr DBusPropertyInfo))-    type AttrBaseTypeConstraint DBusInterfaceInfoPropertiesFieldInfo = (~) DBusInterfaceInfo-    type AttrGetType DBusInterfaceInfoPropertiesFieldInfo = Maybe [DBusPropertyInfo]-    type AttrLabel DBusInterfaceInfoPropertiesFieldInfo = "properties"-    attrGet _ = dBusInterfaceInfoReadProperties-    attrSet _ = dBusInterfaceInfoWriteProperties-    attrConstruct = undefined-    attrClear _ = dBusInterfaceInfoClearProperties--dBusInterfaceInfoProperties :: AttrLabelProxy "properties"-dBusInterfaceInfoProperties = AttrLabelProxy---dBusInterfaceInfoReadAnnotations :: MonadIO m => DBusInterfaceInfo -> m (Maybe [DBusAnnotationInfo])-dBusInterfaceInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO (Ptr (Ptr DBusAnnotationInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusAnnotationInfo) val''-        return val'''-    return result--dBusInterfaceInfoWriteAnnotations :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr DBusAnnotationInfo) -> m ()-dBusInterfaceInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (val :: Ptr (Ptr DBusAnnotationInfo))--dBusInterfaceInfoClearAnnotations :: MonadIO m => DBusInterfaceInfo -> m ()-dBusInterfaceInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (nullPtr :: Ptr (Ptr DBusAnnotationInfo))--data DBusInterfaceInfoAnnotationsFieldInfo-instance AttrInfo DBusInterfaceInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusInterfaceInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusInterfaceInfoAnnotationsFieldInfo = (~) DBusInterfaceInfo-    type AttrGetType DBusInterfaceInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo]-    type AttrLabel DBusInterfaceInfoAnnotationsFieldInfo = "annotations"-    attrGet _ = dBusInterfaceInfoReadAnnotations-    attrSet _ = dBusInterfaceInfoWriteAnnotations-    attrConstruct = undefined-    attrClear _ = dBusInterfaceInfoClearAnnotations--dBusInterfaceInfoAnnotations :: AttrLabelProxy "annotations"-dBusInterfaceInfoAnnotations = AttrLabelProxy----type instance AttributeList DBusInterfaceInfo = DBusInterfaceInfoAttributeList-type DBusInterfaceInfoAttributeList = ('[ '("refCount", DBusInterfaceInfoRefCountFieldInfo), '("name", DBusInterfaceInfoNameFieldInfo), '("methods", DBusInterfaceInfoMethodsFieldInfo), '("signals", DBusInterfaceInfoSignalsFieldInfo), '("properties", DBusInterfaceInfoPropertiesFieldInfo), '("annotations", DBusInterfaceInfoAnnotationsFieldInfo)] :: [(Symbol, *)])---- method DBusInterfaceInfo::cache_build--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "DBusInterfaceInfo"-    IO ()---dBusInterfaceInfoCacheBuild ::-    (MonadIO m) =>-    DBusInterfaceInfo                       -- _obj-    -> m ()                                 -- result-dBusInterfaceInfoCacheBuild _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_dbus_interface_info_cache_build _obj'-    touchManagedPtr _obj-    return ()--data DBusInterfaceInfoCacheBuildMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusInterfaceInfoCacheBuildMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoCacheBuild---- method DBusInterfaceInfo::cache_release--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "DBusInterfaceInfo"-    IO ()---dBusInterfaceInfoCacheRelease ::-    (MonadIO m) =>-    DBusInterfaceInfo                       -- _obj-    -> m ()                                 -- result-dBusInterfaceInfoCacheRelease _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_dbus_interface_info_cache_release _obj'-    touchManagedPtr _obj-    return ()--data DBusInterfaceInfoCacheReleaseMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusInterfaceInfoCacheReleaseMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoCacheRelease---- method DBusInterfaceInfo::generate_xml--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_builder", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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 ->                -- _obj : TInterface "Gio" "DBusInterfaceInfo"-    Word32 ->                               -- indent : TBasicType TUInt-    Ptr GLib.String ->                      -- string_builder : TInterface "GLib" "String"-    IO ()---dBusInterfaceInfoGenerateXml ::-    (MonadIO m) =>-    DBusInterfaceInfo                       -- _obj-    -> Word32                               -- indent-    -> m (GLib.String)                      -- result-dBusInterfaceInfoGenerateXml _obj indent = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    stringBuilder <- callocBoxedBytes 24 :: IO (Ptr GLib.String)-    g_dbus_interface_info_generate_xml _obj' indent stringBuilder-    stringBuilder' <- (wrapBoxed GLib.String) stringBuilder-    touchManagedPtr _obj-    return stringBuilder'--data DBusInterfaceInfoGenerateXmlMethodInfo-instance (signature ~ (Word32 -> m (GLib.String)), MonadIO m) => MethodInfo DBusInterfaceInfoGenerateXmlMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoGenerateXml---- method DBusInterfaceInfo::lookup_method--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusMethodInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_lookup_method" g_dbus_interface_info_lookup_method :: -    Ptr DBusInterfaceInfo ->                -- _obj : TInterface "Gio" "DBusInterfaceInfo"-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr DBusMethodInfo)---dBusInterfaceInfoLookupMethod ::-    (MonadIO m) =>-    DBusInterfaceInfo                       -- _obj-    -> T.Text                               -- name-    -> m DBusMethodInfo                     -- result-dBusInterfaceInfoLookupMethod _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- g_dbus_interface_info_lookup_method _obj' name'-    checkUnexpectedReturnNULL "g_dbus_interface_info_lookup_method" result-    result' <- (newBoxed DBusMethodInfo) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data DBusInterfaceInfoLookupMethodMethodInfo-instance (signature ~ (T.Text -> m DBusMethodInfo), MonadIO m) => MethodInfo DBusInterfaceInfoLookupMethodMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoLookupMethod---- method DBusInterfaceInfo::lookup_property--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusPropertyInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_lookup_property" g_dbus_interface_info_lookup_property :: -    Ptr DBusInterfaceInfo ->                -- _obj : TInterface "Gio" "DBusInterfaceInfo"-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr DBusPropertyInfo)---dBusInterfaceInfoLookupProperty ::-    (MonadIO m) =>-    DBusInterfaceInfo                       -- _obj-    -> T.Text                               -- name-    -> m DBusPropertyInfo                   -- result-dBusInterfaceInfoLookupProperty _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- g_dbus_interface_info_lookup_property _obj' name'-    checkUnexpectedReturnNULL "g_dbus_interface_info_lookup_property" result-    result' <- (newBoxed DBusPropertyInfo) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data DBusInterfaceInfoLookupPropertyMethodInfo-instance (signature ~ (T.Text -> m DBusPropertyInfo), MonadIO m) => MethodInfo DBusInterfaceInfoLookupPropertyMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoLookupProperty---- method DBusInterfaceInfo::lookup_signal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusSignalInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_lookup_signal" g_dbus_interface_info_lookup_signal :: -    Ptr DBusInterfaceInfo ->                -- _obj : TInterface "Gio" "DBusInterfaceInfo"-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr DBusSignalInfo)---dBusInterfaceInfoLookupSignal ::-    (MonadIO m) =>-    DBusInterfaceInfo                       -- _obj-    -> T.Text                               -- name-    -> m DBusSignalInfo                     -- result-dBusInterfaceInfoLookupSignal _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- g_dbus_interface_info_lookup_signal _obj' name'-    checkUnexpectedReturnNULL "g_dbus_interface_info_lookup_signal" result-    result' <- (newBoxed DBusSignalInfo) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data DBusInterfaceInfoLookupSignalMethodInfo-instance (signature ~ (T.Text -> m DBusSignalInfo), MonadIO m) => MethodInfo DBusInterfaceInfoLookupSignalMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoLookupSignal---- method DBusInterfaceInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusInterfaceInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_ref" g_dbus_interface_info_ref :: -    Ptr DBusInterfaceInfo ->                -- _obj : TInterface "Gio" "DBusInterfaceInfo"-    IO (Ptr DBusInterfaceInfo)---dBusInterfaceInfoRef ::-    (MonadIO m) =>-    DBusInterfaceInfo                       -- _obj-    -> m DBusInterfaceInfo                  -- result-dBusInterfaceInfoRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_dbus_interface_info_ref _obj'-    checkUnexpectedReturnNULL "g_dbus_interface_info_ref" result-    result' <- (wrapBoxed DBusInterfaceInfo) result-    touchManagedPtr _obj-    return result'--data DBusInterfaceInfoRefMethodInfo-instance (signature ~ (m DBusInterfaceInfo), MonadIO m) => MethodInfo DBusInterfaceInfoRefMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoRef---- method DBusInterfaceInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "DBusInterfaceInfo"-    IO ()---dBusInterfaceInfoUnref ::-    (MonadIO m) =>-    DBusInterfaceInfo                       -- _obj-    -> m ()                                 -- result-dBusInterfaceInfoUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_dbus_interface_info_unref _obj'-    touchManagedPtr _obj-    return ()--data DBusInterfaceInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusInterfaceInfoUnrefMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoUnref--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 = MethodResolutionFailed l o--instance (info ~ ResolveDBusInterfaceInfoMethod t DBusInterfaceInfo, MethodInfo info DBusInterfaceInfo p) => IsLabelProxy t (DBusInterfaceInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusInterfaceInfoMethod t DBusInterfaceInfo, MethodInfo info DBusInterfaceInfo p) => IsLabel t (DBusInterfaceInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/DBusInterfaceInfo.hs-boot 
@@ -1,19 +0,0 @@-module GI.Gio.Structs.DBusInterfaceInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusInterfaceInfo = DBusInterfaceInfo (ForeignPtr DBusInterfaceInfo)-instance BoxedObject DBusInterfaceInfo where-data DBusInterfaceInfoCacheBuildMethodInfo-data DBusInterfaceInfoCacheReleaseMethodInfo-data DBusInterfaceInfoGenerateXmlMethodInfo-data DBusInterfaceInfoLookupMethodMethodInfo-data DBusInterfaceInfoLookupPropertyMethodInfo-data DBusInterfaceInfoLookupSignalMethodInfo-data DBusInterfaceInfoRefMethodInfo-data DBusInterfaceInfoUnrefMethodInfo
− GI/Gio/Structs/DBusInterfaceVTable.hs 
@@ -1,110 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--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 %NULL as your get_property() or set_property()-function. The D-Bus call will be directed to your @method_call function,-with the provided @interface_name set to "org.freedesktop.DBus.Properties".--Ownership of the #GDBusMethodInvocation object passed to the-method_call() function is transferred to your handler; you must-call one of the methods of #GDBusMethodInvocation 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 #GDBusMethodInvocation-passed to the @method_call handler can be queried with-g_dbus_method_invocation_get_property_info() to get a pointer-to the #GDBusPropertyInfo of the property.--If you have readable properties specified in your interface info,-you must ensure that you either provide a non-%NULL @get_property()-function or provide implementations of both the `Get` and `GetAll`-methods on org.freedesktop.DBus.Properties interface in your @method_call-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-%NULL @set_property()-function or provide an implementation of the `Set` call. If implementing-the call, you must return the value of type %G_VARIANT_TYPE_UNIT.--}--module GI.Gio.Structs.DBusInterfaceVTable-    ( ---- * Exported types-    DBusInterfaceVTable(..)                 ,-    newZeroDBusInterfaceVTable              ,-    noDBusInterfaceVTable                   ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype DBusInterfaceVTable = DBusInterfaceVTable (ForeignPtr DBusInterfaceVTable)-instance WrappedPtr DBusInterfaceVTable where-    wrappedPtrCalloc = callocBytes 88-    wrappedPtrCopy = copyPtr 88-    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---noDBusInterfaceVTable :: Maybe DBusInterfaceVTable-noDBusInterfaceVTable = Nothing---- XXX Skipped attribute for "DBusInterfaceVTable:method_call" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--- XXX Skipped attribute for "DBusInterfaceVTable:get_property" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--- XXX Skipped attribute for "DBusInterfaceVTable:set_property" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--type instance AttributeList DBusInterfaceVTable = DBusInterfaceVTableAttributeList-type DBusInterfaceVTableAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveDBusInterfaceVTableMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusInterfaceVTableMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusInterfaceVTableMethod t DBusInterfaceVTable, MethodInfo info DBusInterfaceVTable p) => IsLabelProxy t (DBusInterfaceVTable -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusInterfaceVTableMethod t DBusInterfaceVTable, MethodInfo info DBusInterfaceVTable p) => IsLabel t (DBusInterfaceVTable -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/DBusInterfaceVTable.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.DBusInterfaceVTable where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusInterfaceVTable = DBusInterfaceVTable (ForeignPtr DBusInterfaceVTable)-instance WrappedPtr DBusInterfaceVTable where
− GI/Gio/Structs/DBusMethodInfo.hs 
@@ -1,332 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Information about a method on an D-Bus interface.--}--module GI.Gio.Structs.DBusMethodInfo-    ( ---- * Exported types-    DBusMethodInfo(..)                      ,-    newZeroDBusMethodInfo                   ,-    noDBusMethodInfo                        ,--- -- * Methods--- ** dBusMethodInfoRef-    DBusMethodInfoRefMethodInfo             ,-    dBusMethodInfoRef                       ,----- ** dBusMethodInfoUnref-    DBusMethodInfoUnrefMethodInfo           ,-    dBusMethodInfoUnref                     ,----- -- * Properties--- ** Annotations-    dBusMethodInfoAnnotations               ,-    dBusMethodInfoClearAnnotations          ,-    dBusMethodInfoReadAnnotations           ,-    dBusMethodInfoWriteAnnotations          ,----- ** InArgs-    dBusMethodInfoClearInArgs               ,-    dBusMethodInfoInArgs                    ,-    dBusMethodInfoReadInArgs                ,-    dBusMethodInfoWriteInArgs               ,----- ** Name-    dBusMethodInfoClearName                 ,-    dBusMethodInfoName                      ,-    dBusMethodInfoReadName                  ,-    dBusMethodInfoWriteName                 ,----- ** OutArgs-    dBusMethodInfoClearOutArgs              ,-    dBusMethodInfoOutArgs                   ,-    dBusMethodInfoReadOutArgs               ,-    dBusMethodInfoWriteOutArgs              ,----- ** RefCount-    dBusMethodInfoReadRefCount              ,-    dBusMethodInfoRefCount                  ,-    dBusMethodInfoWriteRefCount             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype DBusMethodInfo = DBusMethodInfo (ForeignPtr 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---noDBusMethodInfo :: Maybe DBusMethodInfo-noDBusMethodInfo = Nothing--dBusMethodInfoReadRefCount :: MonadIO m => DBusMethodInfo -> m Int32-dBusMethodInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--dBusMethodInfoWriteRefCount :: MonadIO m => DBusMethodInfo -> Int32 -> m ()-dBusMethodInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--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"-    attrGet _ = dBusMethodInfoReadRefCount-    attrSet _ = dBusMethodInfoWriteRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusMethodInfoRefCount :: AttrLabelProxy "refCount"-dBusMethodInfoRefCount = AttrLabelProxy---dBusMethodInfoReadName :: MonadIO m => DBusMethodInfo -> m (Maybe T.Text)-dBusMethodInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--dBusMethodInfoWriteName :: MonadIO m => DBusMethodInfo -> CString -> m ()-dBusMethodInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--dBusMethodInfoClearName :: MonadIO m => DBusMethodInfo -> m ()-dBusMethodInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--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"-    attrGet _ = dBusMethodInfoReadName-    attrSet _ = dBusMethodInfoWriteName-    attrConstruct = undefined-    attrClear _ = dBusMethodInfoClearName--dBusMethodInfoName :: AttrLabelProxy "name"-dBusMethodInfoName = AttrLabelProxy---dBusMethodInfoReadInArgs :: MonadIO m => DBusMethodInfo -> m (Maybe [DBusArgInfo])-dBusMethodInfoReadInArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr DBusArgInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusArgInfo) val''-        return val'''-    return result--dBusMethodInfoWriteInArgs :: MonadIO m => DBusMethodInfo -> Ptr (Ptr DBusArgInfo) -> m ()-dBusMethodInfoWriteInArgs s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Ptr (Ptr DBusArgInfo))--dBusMethodInfoClearInArgs :: MonadIO m => DBusMethodInfo -> m ()-dBusMethodInfoClearInArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: Ptr (Ptr DBusArgInfo))--data DBusMethodInfoInArgsFieldInfo-instance AttrInfo DBusMethodInfoInArgsFieldInfo where-    type AttrAllowedOps DBusMethodInfoInArgsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusMethodInfoInArgsFieldInfo = (~) (Ptr (Ptr DBusArgInfo))-    type AttrBaseTypeConstraint DBusMethodInfoInArgsFieldInfo = (~) DBusMethodInfo-    type AttrGetType DBusMethodInfoInArgsFieldInfo = Maybe [DBusArgInfo]-    type AttrLabel DBusMethodInfoInArgsFieldInfo = "in_args"-    attrGet _ = dBusMethodInfoReadInArgs-    attrSet _ = dBusMethodInfoWriteInArgs-    attrConstruct = undefined-    attrClear _ = dBusMethodInfoClearInArgs--dBusMethodInfoInArgs :: AttrLabelProxy "inArgs"-dBusMethodInfoInArgs = AttrLabelProxy---dBusMethodInfoReadOutArgs :: MonadIO m => DBusMethodInfo -> m (Maybe [DBusArgInfo])-dBusMethodInfoReadOutArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusArgInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusArgInfo) val''-        return val'''-    return result--dBusMethodInfoWriteOutArgs :: MonadIO m => DBusMethodInfo -> Ptr (Ptr DBusArgInfo) -> m ()-dBusMethodInfoWriteOutArgs s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusArgInfo))--dBusMethodInfoClearOutArgs :: MonadIO m => DBusMethodInfo -> m ()-dBusMethodInfoClearOutArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusArgInfo))--data DBusMethodInfoOutArgsFieldInfo-instance AttrInfo DBusMethodInfoOutArgsFieldInfo where-    type AttrAllowedOps DBusMethodInfoOutArgsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusMethodInfoOutArgsFieldInfo = (~) (Ptr (Ptr DBusArgInfo))-    type AttrBaseTypeConstraint DBusMethodInfoOutArgsFieldInfo = (~) DBusMethodInfo-    type AttrGetType DBusMethodInfoOutArgsFieldInfo = Maybe [DBusArgInfo]-    type AttrLabel DBusMethodInfoOutArgsFieldInfo = "out_args"-    attrGet _ = dBusMethodInfoReadOutArgs-    attrSet _ = dBusMethodInfoWriteOutArgs-    attrConstruct = undefined-    attrClear _ = dBusMethodInfoClearOutArgs--dBusMethodInfoOutArgs :: AttrLabelProxy "outArgs"-dBusMethodInfoOutArgs = AttrLabelProxy---dBusMethodInfoReadAnnotations :: MonadIO m => DBusMethodInfo -> m (Maybe [DBusAnnotationInfo])-dBusMethodInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr DBusAnnotationInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusAnnotationInfo) val''-        return val'''-    return result--dBusMethodInfoWriteAnnotations :: MonadIO m => DBusMethodInfo -> Ptr (Ptr DBusAnnotationInfo) -> m ()-dBusMethodInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr (Ptr DBusAnnotationInfo))--dBusMethodInfoClearAnnotations :: MonadIO m => DBusMethodInfo -> m ()-dBusMethodInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr (Ptr DBusAnnotationInfo))--data DBusMethodInfoAnnotationsFieldInfo-instance AttrInfo DBusMethodInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusMethodInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusMethodInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusMethodInfoAnnotationsFieldInfo = (~) DBusMethodInfo-    type AttrGetType DBusMethodInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo]-    type AttrLabel DBusMethodInfoAnnotationsFieldInfo = "annotations"-    attrGet _ = dBusMethodInfoReadAnnotations-    attrSet _ = dBusMethodInfoWriteAnnotations-    attrConstruct = undefined-    attrClear _ = dBusMethodInfoClearAnnotations--dBusMethodInfoAnnotations :: AttrLabelProxy "annotations"-dBusMethodInfoAnnotations = AttrLabelProxy----type instance AttributeList DBusMethodInfo = DBusMethodInfoAttributeList-type DBusMethodInfoAttributeList = ('[ '("refCount", DBusMethodInfoRefCountFieldInfo), '("name", DBusMethodInfoNameFieldInfo), '("inArgs", DBusMethodInfoInArgsFieldInfo), '("outArgs", DBusMethodInfoOutArgsFieldInfo), '("annotations", DBusMethodInfoAnnotationsFieldInfo)] :: [(Symbol, *)])---- method DBusMethodInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusMethodInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_info_ref" g_dbus_method_info_ref :: -    Ptr DBusMethodInfo ->                   -- _obj : TInterface "Gio" "DBusMethodInfo"-    IO (Ptr DBusMethodInfo)---dBusMethodInfoRef ::-    (MonadIO m) =>-    DBusMethodInfo                          -- _obj-    -> m DBusMethodInfo                     -- result-dBusMethodInfoRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_dbus_method_info_ref _obj'-    checkUnexpectedReturnNULL "g_dbus_method_info_ref" result-    result' <- (wrapBoxed DBusMethodInfo) result-    touchManagedPtr _obj-    return result'--data DBusMethodInfoRefMethodInfo-instance (signature ~ (m DBusMethodInfo), MonadIO m) => MethodInfo DBusMethodInfoRefMethodInfo DBusMethodInfo signature where-    overloadedMethod _ = dBusMethodInfoRef---- method DBusMethodInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInfo", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusMethodInfo"-    IO ()---dBusMethodInfoUnref ::-    (MonadIO m) =>-    DBusMethodInfo                          -- _obj-    -> m ()                                 -- result-dBusMethodInfoUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_dbus_method_info_unref _obj'-    touchManagedPtr _obj-    return ()--data DBusMethodInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusMethodInfoUnrefMethodInfo DBusMethodInfo signature where-    overloadedMethod _ = dBusMethodInfoUnref--type family ResolveDBusMethodInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusMethodInfoMethod "ref" o = DBusMethodInfoRefMethodInfo-    ResolveDBusMethodInfoMethod "unref" o = DBusMethodInfoUnrefMethodInfo-    ResolveDBusMethodInfoMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusMethodInfoMethod t DBusMethodInfo, MethodInfo info DBusMethodInfo p) => IsLabelProxy t (DBusMethodInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusMethodInfoMethod t DBusMethodInfo, MethodInfo info DBusMethodInfo p) => IsLabel t (DBusMethodInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/DBusMethodInfo.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gio.Structs.DBusMethodInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusMethodInfo = DBusMethodInfo (ForeignPtr DBusMethodInfo)-instance BoxedObject DBusMethodInfo where-data DBusMethodInfoRefMethodInfo-data DBusMethodInfoUnrefMethodInfo
− GI/Gio/Structs/DBusNodeInfo.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 (garetxe@gmail.com)--Information about nodes in a remote object hierarchy.--}--module GI.Gio.Structs.DBusNodeInfo-    ( ---- * Exported types-    DBusNodeInfo(..)                        ,-    newZeroDBusNodeInfo                     ,-    noDBusNodeInfo                          ,--- -- * Methods--- ** dBusNodeInfoGenerateXml-    DBusNodeInfoGenerateXmlMethodInfo       ,-    dBusNodeInfoGenerateXml                 ,----- ** dBusNodeInfoLookupInterface-    DBusNodeInfoLookupInterfaceMethodInfo   ,-    dBusNodeInfoLookupInterface             ,----- ** dBusNodeInfoNewForXml-    dBusNodeInfoNewForXml                   ,----- ** dBusNodeInfoRef-    DBusNodeInfoRefMethodInfo               ,-    dBusNodeInfoRef                         ,----- ** dBusNodeInfoUnref-    DBusNodeInfoUnrefMethodInfo             ,-    dBusNodeInfoUnref                       ,----- -- * Properties--- ** Annotations-    dBusNodeInfoAnnotations                 ,-    dBusNodeInfoClearAnnotations            ,-    dBusNodeInfoReadAnnotations             ,-    dBusNodeInfoWriteAnnotations            ,----- ** Interfaces-    dBusNodeInfoClearInterfaces             ,-    dBusNodeInfoInterfaces                  ,-    dBusNodeInfoReadInterfaces              ,-    dBusNodeInfoWriteInterfaces             ,----- ** Nodes-    dBusNodeInfoClearNodes                  ,-    dBusNodeInfoNodes                       ,-    dBusNodeInfoReadNodes                   ,-    dBusNodeInfoWriteNodes                  ,----- ** Path-    dBusNodeInfoClearPath                   ,-    dBusNodeInfoPath                        ,-    dBusNodeInfoReadPath                    ,-    dBusNodeInfoWritePath                   ,----- ** RefCount-    dBusNodeInfoReadRefCount                ,-    dBusNodeInfoRefCount                    ,-    dBusNodeInfoWriteRefCount               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib--newtype DBusNodeInfo = DBusNodeInfo (ForeignPtr 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---noDBusNodeInfo :: Maybe DBusNodeInfo-noDBusNodeInfo = Nothing--dBusNodeInfoReadRefCount :: MonadIO m => DBusNodeInfo -> m Int32-dBusNodeInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--dBusNodeInfoWriteRefCount :: MonadIO m => DBusNodeInfo -> Int32 -> m ()-dBusNodeInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--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"-    attrGet _ = dBusNodeInfoReadRefCount-    attrSet _ = dBusNodeInfoWriteRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusNodeInfoRefCount :: AttrLabelProxy "refCount"-dBusNodeInfoRefCount = AttrLabelProxy---dBusNodeInfoReadPath :: MonadIO m => DBusNodeInfo -> m (Maybe T.Text)-dBusNodeInfoReadPath s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--dBusNodeInfoWritePath :: MonadIO m => DBusNodeInfo -> CString -> m ()-dBusNodeInfoWritePath s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--dBusNodeInfoClearPath :: MonadIO m => DBusNodeInfo -> m ()-dBusNodeInfoClearPath s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--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"-    attrGet _ = dBusNodeInfoReadPath-    attrSet _ = dBusNodeInfoWritePath-    attrConstruct = undefined-    attrClear _ = dBusNodeInfoClearPath--dBusNodeInfoPath :: AttrLabelProxy "path"-dBusNodeInfoPath = AttrLabelProxy---dBusNodeInfoReadInterfaces :: MonadIO m => DBusNodeInfo -> m (Maybe [DBusInterfaceInfo])-dBusNodeInfoReadInterfaces s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr DBusInterfaceInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusInterfaceInfo) val''-        return val'''-    return result--dBusNodeInfoWriteInterfaces :: MonadIO m => DBusNodeInfo -> Ptr (Ptr DBusInterfaceInfo) -> m ()-dBusNodeInfoWriteInterfaces s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Ptr (Ptr DBusInterfaceInfo))--dBusNodeInfoClearInterfaces :: MonadIO m => DBusNodeInfo -> m ()-dBusNodeInfoClearInterfaces s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: Ptr (Ptr DBusInterfaceInfo))--data DBusNodeInfoInterfacesFieldInfo-instance AttrInfo DBusNodeInfoInterfacesFieldInfo where-    type AttrAllowedOps DBusNodeInfoInterfacesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusNodeInfoInterfacesFieldInfo = (~) (Ptr (Ptr DBusInterfaceInfo))-    type AttrBaseTypeConstraint DBusNodeInfoInterfacesFieldInfo = (~) DBusNodeInfo-    type AttrGetType DBusNodeInfoInterfacesFieldInfo = Maybe [DBusInterfaceInfo]-    type AttrLabel DBusNodeInfoInterfacesFieldInfo = "interfaces"-    attrGet _ = dBusNodeInfoReadInterfaces-    attrSet _ = dBusNodeInfoWriteInterfaces-    attrConstruct = undefined-    attrClear _ = dBusNodeInfoClearInterfaces--dBusNodeInfoInterfaces :: AttrLabelProxy "interfaces"-dBusNodeInfoInterfaces = AttrLabelProxy---dBusNodeInfoReadNodes :: MonadIO m => DBusNodeInfo -> m (Maybe [DBusNodeInfo])-dBusNodeInfoReadNodes s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusNodeInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusNodeInfo) val''-        return val'''-    return result--dBusNodeInfoWriteNodes :: MonadIO m => DBusNodeInfo -> Ptr (Ptr DBusNodeInfo) -> m ()-dBusNodeInfoWriteNodes s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusNodeInfo))--dBusNodeInfoClearNodes :: MonadIO m => DBusNodeInfo -> m ()-dBusNodeInfoClearNodes s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusNodeInfo))--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"-    attrGet _ = dBusNodeInfoReadNodes-    attrSet _ = dBusNodeInfoWriteNodes-    attrConstruct = undefined-    attrClear _ = dBusNodeInfoClearNodes--dBusNodeInfoNodes :: AttrLabelProxy "nodes"-dBusNodeInfoNodes = AttrLabelProxy---dBusNodeInfoReadAnnotations :: MonadIO m => DBusNodeInfo -> m (Maybe [DBusAnnotationInfo])-dBusNodeInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr DBusAnnotationInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusAnnotationInfo) val''-        return val'''-    return result--dBusNodeInfoWriteAnnotations :: MonadIO m => DBusNodeInfo -> Ptr (Ptr DBusAnnotationInfo) -> m ()-dBusNodeInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr (Ptr DBusAnnotationInfo))--dBusNodeInfoClearAnnotations :: MonadIO m => DBusNodeInfo -> m ()-dBusNodeInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr (Ptr DBusAnnotationInfo))--data DBusNodeInfoAnnotationsFieldInfo-instance AttrInfo DBusNodeInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusNodeInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusNodeInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusNodeInfoAnnotationsFieldInfo = (~) DBusNodeInfo-    type AttrGetType DBusNodeInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo]-    type AttrLabel DBusNodeInfoAnnotationsFieldInfo = "annotations"-    attrGet _ = dBusNodeInfoReadAnnotations-    attrSet _ = dBusNodeInfoWriteAnnotations-    attrConstruct = undefined-    attrClear _ = dBusNodeInfoClearAnnotations--dBusNodeInfoAnnotations :: AttrLabelProxy "annotations"-dBusNodeInfoAnnotations = AttrLabelProxy----type instance AttributeList DBusNodeInfo = DBusNodeInfoAttributeList-type DBusNodeInfoAttributeList = ('[ '("refCount", DBusNodeInfoRefCountFieldInfo), '("path", DBusNodeInfoPathFieldInfo), '("interfaces", DBusNodeInfoInterfacesFieldInfo), '("nodes", DBusNodeInfoNodesFieldInfo), '("annotations", DBusNodeInfoAnnotationsFieldInfo)] :: [(Symbol, *)])---- method DBusNodeInfo::new_for_xml--- method type : Constructor--- Args : [Arg {argCName = "xml_data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---dBusNodeInfoNewForXml ::-    (MonadIO m) =>-    T.Text                                  -- xmlData-    -> m DBusNodeInfo                       -- result-dBusNodeInfoNewForXml xmlData = liftIO $ do-    xmlData' <- textToCString xmlData-    onException (do-        result <- propagateGError $ g_dbus_node_info_new_for_xml xmlData'-        checkUnexpectedReturnNULL "g_dbus_node_info_new_for_xml" result-        result' <- (wrapBoxed DBusNodeInfo) result-        freeMem xmlData'-        return result'-     ) (do-        freeMem xmlData'-     )---- method DBusNodeInfo::generate_xml--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_builder", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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 ->                     -- _obj : TInterface "Gio" "DBusNodeInfo"-    Word32 ->                               -- indent : TBasicType TUInt-    Ptr GLib.String ->                      -- string_builder : TInterface "GLib" "String"-    IO ()---dBusNodeInfoGenerateXml ::-    (MonadIO m) =>-    DBusNodeInfo                            -- _obj-    -> Word32                               -- indent-    -> m (GLib.String)                      -- result-dBusNodeInfoGenerateXml _obj indent = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    stringBuilder <- callocBoxedBytes 24 :: IO (Ptr GLib.String)-    g_dbus_node_info_generate_xml _obj' indent stringBuilder-    stringBuilder' <- (wrapBoxed GLib.String) stringBuilder-    touchManagedPtr _obj-    return stringBuilder'--data DBusNodeInfoGenerateXmlMethodInfo-instance (signature ~ (Word32 -> m (GLib.String)), MonadIO m) => MethodInfo DBusNodeInfoGenerateXmlMethodInfo DBusNodeInfo signature where-    overloadedMethod _ = dBusNodeInfoGenerateXml---- method DBusNodeInfo::lookup_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusInterfaceInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_node_info_lookup_interface" g_dbus_node_info_lookup_interface :: -    Ptr DBusNodeInfo ->                     -- _obj : TInterface "Gio" "DBusNodeInfo"-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr DBusInterfaceInfo)---dBusNodeInfoLookupInterface ::-    (MonadIO m) =>-    DBusNodeInfo                            -- _obj-    -> T.Text                               -- name-    -> m DBusInterfaceInfo                  -- result-dBusNodeInfoLookupInterface _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- g_dbus_node_info_lookup_interface _obj' name'-    checkUnexpectedReturnNULL "g_dbus_node_info_lookup_interface" result-    result' <- (newBoxed DBusInterfaceInfo) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data DBusNodeInfoLookupInterfaceMethodInfo-instance (signature ~ (T.Text -> m DBusInterfaceInfo), MonadIO m) => MethodInfo DBusNodeInfoLookupInterfaceMethodInfo DBusNodeInfo signature where-    overloadedMethod _ = dBusNodeInfoLookupInterface---- method DBusNodeInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusNodeInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_node_info_ref" g_dbus_node_info_ref :: -    Ptr DBusNodeInfo ->                     -- _obj : TInterface "Gio" "DBusNodeInfo"-    IO (Ptr DBusNodeInfo)---dBusNodeInfoRef ::-    (MonadIO m) =>-    DBusNodeInfo                            -- _obj-    -> m DBusNodeInfo                       -- result-dBusNodeInfoRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_dbus_node_info_ref _obj'-    checkUnexpectedReturnNULL "g_dbus_node_info_ref" result-    result' <- (wrapBoxed DBusNodeInfo) result-    touchManagedPtr _obj-    return result'--data DBusNodeInfoRefMethodInfo-instance (signature ~ (m DBusNodeInfo), MonadIO m) => MethodInfo DBusNodeInfoRefMethodInfo DBusNodeInfo signature where-    overloadedMethod _ = dBusNodeInfoRef---- method DBusNodeInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, 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 ->                     -- _obj : TInterface "Gio" "DBusNodeInfo"-    IO ()---dBusNodeInfoUnref ::-    (MonadIO m) =>-    DBusNodeInfo                            -- _obj-    -> m ()                                 -- result-dBusNodeInfoUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_dbus_node_info_unref _obj'-    touchManagedPtr _obj-    return ()--data DBusNodeInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusNodeInfoUnrefMethodInfo DBusNodeInfo signature where-    overloadedMethod _ = dBusNodeInfoUnref--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 = MethodResolutionFailed l o--instance (info ~ ResolveDBusNodeInfoMethod t DBusNodeInfo, MethodInfo info DBusNodeInfo p) => IsLabelProxy t (DBusNodeInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusNodeInfoMethod t DBusNodeInfo, MethodInfo info DBusNodeInfo p) => IsLabel t (DBusNodeInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/DBusNodeInfo.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Structs.DBusNodeInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusNodeInfo = DBusNodeInfo (ForeignPtr DBusNodeInfo)-instance BoxedObject DBusNodeInfo where-data DBusNodeInfoGenerateXmlMethodInfo-data DBusNodeInfoLookupInterfaceMethodInfo-data DBusNodeInfoRefMethodInfo-data DBusNodeInfoUnrefMethodInfo
− GI/Gio/Structs/DBusPropertyInfo.hs 
@@ -1,324 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Information about a D-Bus property on a D-Bus interface.--}--module GI.Gio.Structs.DBusPropertyInfo-    ( ---- * Exported types-    DBusPropertyInfo(..)                    ,-    newZeroDBusPropertyInfo                 ,-    noDBusPropertyInfo                      ,--- -- * Methods--- ** dBusPropertyInfoRef-    DBusPropertyInfoRefMethodInfo           ,-    dBusPropertyInfoRef                     ,----- ** dBusPropertyInfoUnref-    DBusPropertyInfoUnrefMethodInfo         ,-    dBusPropertyInfoUnref                   ,----- -- * Properties--- ** Annotations-    dBusPropertyInfoAnnotations             ,-    dBusPropertyInfoClearAnnotations        ,-    dBusPropertyInfoReadAnnotations         ,-    dBusPropertyInfoWriteAnnotations        ,----- ** Flags-    dBusPropertyInfoFlags                   ,-    dBusPropertyInfoReadFlags               ,-    dBusPropertyInfoWriteFlags              ,----- ** Name-    dBusPropertyInfoClearName               ,-    dBusPropertyInfoName                    ,-    dBusPropertyInfoReadName                ,-    dBusPropertyInfoWriteName               ,----- ** RefCount-    dBusPropertyInfoReadRefCount            ,-    dBusPropertyInfoRefCount                ,-    dBusPropertyInfoWriteRefCount           ,----- ** Signature-    dBusPropertyInfoClearSignature          ,-    dBusPropertyInfoReadSignature           ,-    dBusPropertyInfoSignature               ,-    dBusPropertyInfoWriteSignature          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype DBusPropertyInfo = DBusPropertyInfo (ForeignPtr 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---noDBusPropertyInfo :: Maybe DBusPropertyInfo-noDBusPropertyInfo = Nothing--dBusPropertyInfoReadRefCount :: MonadIO m => DBusPropertyInfo -> m Int32-dBusPropertyInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--dBusPropertyInfoWriteRefCount :: MonadIO m => DBusPropertyInfo -> Int32 -> m ()-dBusPropertyInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--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"-    attrGet _ = dBusPropertyInfoReadRefCount-    attrSet _ = dBusPropertyInfoWriteRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusPropertyInfoRefCount :: AttrLabelProxy "refCount"-dBusPropertyInfoRefCount = AttrLabelProxy---dBusPropertyInfoReadName :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text)-dBusPropertyInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--dBusPropertyInfoWriteName :: MonadIO m => DBusPropertyInfo -> CString -> m ()-dBusPropertyInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--dBusPropertyInfoClearName :: MonadIO m => DBusPropertyInfo -> m ()-dBusPropertyInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--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"-    attrGet _ = dBusPropertyInfoReadName-    attrSet _ = dBusPropertyInfoWriteName-    attrConstruct = undefined-    attrClear _ = dBusPropertyInfoClearName--dBusPropertyInfoName :: AttrLabelProxy "name"-dBusPropertyInfoName = AttrLabelProxy---dBusPropertyInfoReadSignature :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text)-dBusPropertyInfoReadSignature s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--dBusPropertyInfoWriteSignature :: MonadIO m => DBusPropertyInfo -> CString -> m ()-dBusPropertyInfoWriteSignature s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--dBusPropertyInfoClearSignature :: MonadIO m => DBusPropertyInfo -> m ()-dBusPropertyInfoClearSignature s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: CString)--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"-    attrGet _ = dBusPropertyInfoReadSignature-    attrSet _ = dBusPropertyInfoWriteSignature-    attrConstruct = undefined-    attrClear _ = dBusPropertyInfoClearSignature--dBusPropertyInfoSignature :: AttrLabelProxy "signature"-dBusPropertyInfoSignature = AttrLabelProxy---dBusPropertyInfoReadFlags :: MonadIO m => DBusPropertyInfo -> m [DBusPropertyInfoFlags]-dBusPropertyInfoReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CUInt-    let val' = wordToGFlags val-    return val'--dBusPropertyInfoWriteFlags :: MonadIO m => DBusPropertyInfo -> [DBusPropertyInfoFlags] -> m ()-dBusPropertyInfoWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 24) (val' :: CUInt)--data DBusPropertyInfoFlagsFieldInfo-instance AttrInfo DBusPropertyInfoFlagsFieldInfo where-    type AttrAllowedOps DBusPropertyInfoFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DBusPropertyInfoFlagsFieldInfo = (~) [DBusPropertyInfoFlags]-    type AttrBaseTypeConstraint DBusPropertyInfoFlagsFieldInfo = (~) DBusPropertyInfo-    type AttrGetType DBusPropertyInfoFlagsFieldInfo = [DBusPropertyInfoFlags]-    type AttrLabel DBusPropertyInfoFlagsFieldInfo = "flags"-    attrGet _ = dBusPropertyInfoReadFlags-    attrSet _ = dBusPropertyInfoWriteFlags-    attrConstruct = undefined-    attrClear _ = undefined--dBusPropertyInfoFlags :: AttrLabelProxy "flags"-dBusPropertyInfoFlags = AttrLabelProxy---dBusPropertyInfoReadAnnotations :: MonadIO m => DBusPropertyInfo -> m (Maybe [DBusAnnotationInfo])-dBusPropertyInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr DBusAnnotationInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusAnnotationInfo) val''-        return val'''-    return result--dBusPropertyInfoWriteAnnotations :: MonadIO m => DBusPropertyInfo -> Ptr (Ptr DBusAnnotationInfo) -> m ()-dBusPropertyInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr (Ptr DBusAnnotationInfo))--dBusPropertyInfoClearAnnotations :: MonadIO m => DBusPropertyInfo -> m ()-dBusPropertyInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr (Ptr DBusAnnotationInfo))--data DBusPropertyInfoAnnotationsFieldInfo-instance AttrInfo DBusPropertyInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusPropertyInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusPropertyInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusPropertyInfoAnnotationsFieldInfo = (~) DBusPropertyInfo-    type AttrGetType DBusPropertyInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo]-    type AttrLabel DBusPropertyInfoAnnotationsFieldInfo = "annotations"-    attrGet _ = dBusPropertyInfoReadAnnotations-    attrSet _ = dBusPropertyInfoWriteAnnotations-    attrConstruct = undefined-    attrClear _ = dBusPropertyInfoClearAnnotations--dBusPropertyInfoAnnotations :: AttrLabelProxy "annotations"-dBusPropertyInfoAnnotations = AttrLabelProxy----type instance AttributeList DBusPropertyInfo = DBusPropertyInfoAttributeList-type DBusPropertyInfoAttributeList = ('[ '("refCount", DBusPropertyInfoRefCountFieldInfo), '("name", DBusPropertyInfoNameFieldInfo), '("signature", DBusPropertyInfoSignatureFieldInfo), '("flags", DBusPropertyInfoFlagsFieldInfo), '("annotations", DBusPropertyInfoAnnotationsFieldInfo)] :: [(Symbol, *)])---- method DBusPropertyInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusPropertyInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusPropertyInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_property_info_ref" g_dbus_property_info_ref :: -    Ptr DBusPropertyInfo ->                 -- _obj : TInterface "Gio" "DBusPropertyInfo"-    IO (Ptr DBusPropertyInfo)---dBusPropertyInfoRef ::-    (MonadIO m) =>-    DBusPropertyInfo                        -- _obj-    -> m DBusPropertyInfo                   -- result-dBusPropertyInfoRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_dbus_property_info_ref _obj'-    checkUnexpectedReturnNULL "g_dbus_property_info_ref" result-    result' <- (wrapBoxed DBusPropertyInfo) result-    touchManagedPtr _obj-    return result'--data DBusPropertyInfoRefMethodInfo-instance (signature ~ (m DBusPropertyInfo), MonadIO m) => MethodInfo DBusPropertyInfoRefMethodInfo DBusPropertyInfo signature where-    overloadedMethod _ = dBusPropertyInfoRef---- method DBusPropertyInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusPropertyInfo", direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "DBusPropertyInfo"-    IO ()---dBusPropertyInfoUnref ::-    (MonadIO m) =>-    DBusPropertyInfo                        -- _obj-    -> m ()                                 -- result-dBusPropertyInfoUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_dbus_property_info_unref _obj'-    touchManagedPtr _obj-    return ()--data DBusPropertyInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusPropertyInfoUnrefMethodInfo DBusPropertyInfo signature where-    overloadedMethod _ = dBusPropertyInfoUnref--type family ResolveDBusPropertyInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusPropertyInfoMethod "ref" o = DBusPropertyInfoRefMethodInfo-    ResolveDBusPropertyInfoMethod "unref" o = DBusPropertyInfoUnrefMethodInfo-    ResolveDBusPropertyInfoMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusPropertyInfoMethod t DBusPropertyInfo, MethodInfo info DBusPropertyInfo p) => IsLabelProxy t (DBusPropertyInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusPropertyInfoMethod t DBusPropertyInfo, MethodInfo info DBusPropertyInfo p) => IsLabel t (DBusPropertyInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/DBusPropertyInfo.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gio.Structs.DBusPropertyInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusPropertyInfo = DBusPropertyInfo (ForeignPtr DBusPropertyInfo)-instance BoxedObject DBusPropertyInfo where-data DBusPropertyInfoRefMethodInfo-data DBusPropertyInfoUnrefMethodInfo
− GI/Gio/Structs/DBusSignalInfo.hs 
@@ -1,292 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Information about a signal on a D-Bus interface.--}--module GI.Gio.Structs.DBusSignalInfo-    ( ---- * Exported types-    DBusSignalInfo(..)                      ,-    newZeroDBusSignalInfo                   ,-    noDBusSignalInfo                        ,--- -- * Methods--- ** dBusSignalInfoRef-    DBusSignalInfoRefMethodInfo             ,-    dBusSignalInfoRef                       ,----- ** dBusSignalInfoUnref-    DBusSignalInfoUnrefMethodInfo           ,-    dBusSignalInfoUnref                     ,----- -- * Properties--- ** Annotations-    dBusSignalInfoAnnotations               ,-    dBusSignalInfoClearAnnotations          ,-    dBusSignalInfoReadAnnotations           ,-    dBusSignalInfoWriteAnnotations          ,----- ** Args-    dBusSignalInfoArgs                      ,-    dBusSignalInfoClearArgs                 ,-    dBusSignalInfoReadArgs                  ,-    dBusSignalInfoWriteArgs                 ,----- ** Name-    dBusSignalInfoClearName                 ,-    dBusSignalInfoName                      ,-    dBusSignalInfoReadName                  ,-    dBusSignalInfoWriteName                 ,----- ** RefCount-    dBusSignalInfoReadRefCount              ,-    dBusSignalInfoRefCount                  ,-    dBusSignalInfoWriteRefCount             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype DBusSignalInfo = DBusSignalInfo (ForeignPtr 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---noDBusSignalInfo :: Maybe DBusSignalInfo-noDBusSignalInfo = Nothing--dBusSignalInfoReadRefCount :: MonadIO m => DBusSignalInfo -> m Int32-dBusSignalInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--dBusSignalInfoWriteRefCount :: MonadIO m => DBusSignalInfo -> Int32 -> m ()-dBusSignalInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--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"-    attrGet _ = dBusSignalInfoReadRefCount-    attrSet _ = dBusSignalInfoWriteRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusSignalInfoRefCount :: AttrLabelProxy "refCount"-dBusSignalInfoRefCount = AttrLabelProxy---dBusSignalInfoReadName :: MonadIO m => DBusSignalInfo -> m (Maybe T.Text)-dBusSignalInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--dBusSignalInfoWriteName :: MonadIO m => DBusSignalInfo -> CString -> m ()-dBusSignalInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--dBusSignalInfoClearName :: MonadIO m => DBusSignalInfo -> m ()-dBusSignalInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--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"-    attrGet _ = dBusSignalInfoReadName-    attrSet _ = dBusSignalInfoWriteName-    attrConstruct = undefined-    attrClear _ = dBusSignalInfoClearName--dBusSignalInfoName :: AttrLabelProxy "name"-dBusSignalInfoName = AttrLabelProxy---dBusSignalInfoReadArgs :: MonadIO m => DBusSignalInfo -> m (Maybe [DBusArgInfo])-dBusSignalInfoReadArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr DBusArgInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusArgInfo) val''-        return val'''-    return result--dBusSignalInfoWriteArgs :: MonadIO m => DBusSignalInfo -> Ptr (Ptr DBusArgInfo) -> m ()-dBusSignalInfoWriteArgs s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Ptr (Ptr DBusArgInfo))--dBusSignalInfoClearArgs :: MonadIO m => DBusSignalInfo -> m ()-dBusSignalInfoClearArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: Ptr (Ptr DBusArgInfo))--data DBusSignalInfoArgsFieldInfo-instance AttrInfo DBusSignalInfoArgsFieldInfo where-    type AttrAllowedOps DBusSignalInfoArgsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusSignalInfoArgsFieldInfo = (~) (Ptr (Ptr DBusArgInfo))-    type AttrBaseTypeConstraint DBusSignalInfoArgsFieldInfo = (~) DBusSignalInfo-    type AttrGetType DBusSignalInfoArgsFieldInfo = Maybe [DBusArgInfo]-    type AttrLabel DBusSignalInfoArgsFieldInfo = "args"-    attrGet _ = dBusSignalInfoReadArgs-    attrSet _ = dBusSignalInfoWriteArgs-    attrConstruct = undefined-    attrClear _ = dBusSignalInfoClearArgs--dBusSignalInfoArgs :: AttrLabelProxy "args"-dBusSignalInfoArgs = AttrLabelProxy---dBusSignalInfoReadAnnotations :: MonadIO m => DBusSignalInfo -> m (Maybe [DBusAnnotationInfo])-dBusSignalInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusAnnotationInfo))-    result <- convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusAnnotationInfo) val''-        return val'''-    return result--dBusSignalInfoWriteAnnotations :: MonadIO m => DBusSignalInfo -> Ptr (Ptr DBusAnnotationInfo) -> m ()-dBusSignalInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusAnnotationInfo))--dBusSignalInfoClearAnnotations :: MonadIO m => DBusSignalInfo -> m ()-dBusSignalInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusAnnotationInfo))--data DBusSignalInfoAnnotationsFieldInfo-instance AttrInfo DBusSignalInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusSignalInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusSignalInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusSignalInfoAnnotationsFieldInfo = (~) DBusSignalInfo-    type AttrGetType DBusSignalInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo]-    type AttrLabel DBusSignalInfoAnnotationsFieldInfo = "annotations"-    attrGet _ = dBusSignalInfoReadAnnotations-    attrSet _ = dBusSignalInfoWriteAnnotations-    attrConstruct = undefined-    attrClear _ = dBusSignalInfoClearAnnotations--dBusSignalInfoAnnotations :: AttrLabelProxy "annotations"-dBusSignalInfoAnnotations = AttrLabelProxy----type instance AttributeList DBusSignalInfo = DBusSignalInfoAttributeList-type DBusSignalInfoAttributeList = ('[ '("refCount", DBusSignalInfoRefCountFieldInfo), '("name", DBusSignalInfoNameFieldInfo), '("args", DBusSignalInfoArgsFieldInfo), '("annotations", DBusSignalInfoAnnotationsFieldInfo)] :: [(Symbol, *)])---- method DBusSignalInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusSignalInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "DBusSignalInfo")--- throws : False--- Skip return : False--foreign import ccall "g_dbus_signal_info_ref" g_dbus_signal_info_ref :: -    Ptr DBusSignalInfo ->                   -- _obj : TInterface "Gio" "DBusSignalInfo"-    IO (Ptr DBusSignalInfo)---dBusSignalInfoRef ::-    (MonadIO m) =>-    DBusSignalInfo                          -- _obj-    -> m DBusSignalInfo                     -- result-dBusSignalInfoRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_dbus_signal_info_ref _obj'-    checkUnexpectedReturnNULL "g_dbus_signal_info_ref" result-    result' <- (wrapBoxed DBusSignalInfo) result-    touchManagedPtr _obj-    return result'--data DBusSignalInfoRefMethodInfo-instance (signature ~ (m DBusSignalInfo), MonadIO m) => MethodInfo DBusSignalInfoRefMethodInfo DBusSignalInfo signature where-    overloadedMethod _ = dBusSignalInfoRef---- method DBusSignalInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusSignalInfo", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "DBusSignalInfo"-    IO ()---dBusSignalInfoUnref ::-    (MonadIO m) =>-    DBusSignalInfo                          -- _obj-    -> m ()                                 -- result-dBusSignalInfoUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_dbus_signal_info_unref _obj'-    touchManagedPtr _obj-    return ()--data DBusSignalInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusSignalInfoUnrefMethodInfo DBusSignalInfo signature where-    overloadedMethod _ = dBusSignalInfoUnref--type family ResolveDBusSignalInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusSignalInfoMethod "ref" o = DBusSignalInfoRefMethodInfo-    ResolveDBusSignalInfoMethod "unref" o = DBusSignalInfoUnrefMethodInfo-    ResolveDBusSignalInfoMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusSignalInfoMethod t DBusSignalInfo, MethodInfo info DBusSignalInfo p) => IsLabelProxy t (DBusSignalInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusSignalInfoMethod t DBusSignalInfo, MethodInfo info DBusSignalInfo p) => IsLabel t (DBusSignalInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/DBusSignalInfo.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gio.Structs.DBusSignalInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusSignalInfo = DBusSignalInfo (ForeignPtr DBusSignalInfo)-instance BoxedObject DBusSignalInfo where-data DBusSignalInfoRefMethodInfo-data DBusSignalInfoUnrefMethodInfo
− GI/Gio/Structs/DBusSubtreeVTable.hs 
@@ -1,69 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Virtual table for handling subtrees registered with g_dbus_connection_register_subtree().--}--module GI.Gio.Structs.DBusSubtreeVTable-    ( ---- * Exported types-    DBusSubtreeVTable(..)                   ,-    newZeroDBusSubtreeVTable                ,-    noDBusSubtreeVTable                     ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype DBusSubtreeVTable = DBusSubtreeVTable (ForeignPtr DBusSubtreeVTable)-instance WrappedPtr DBusSubtreeVTable where-    wrappedPtrCalloc = callocBytes 88-    wrappedPtrCopy = copyPtr 88-    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---noDBusSubtreeVTable :: Maybe DBusSubtreeVTable-noDBusSubtreeVTable = Nothing---- XXX Skipped attribute for "DBusSubtreeVTable:introspect" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--- XXX Skipped attribute for "DBusSubtreeVTable:dispatch" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--type instance AttributeList DBusSubtreeVTable = DBusSubtreeVTableAttributeList-type DBusSubtreeVTableAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveDBusSubtreeVTableMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusSubtreeVTableMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDBusSubtreeVTableMethod t DBusSubtreeVTable, MethodInfo info DBusSubtreeVTable p) => IsLabelProxy t (DBusSubtreeVTable -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDBusSubtreeVTableMethod t DBusSubtreeVTable, MethodInfo info DBusSubtreeVTable p) => IsLabel t (DBusSubtreeVTable -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/DBusSubtreeVTable.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.DBusSubtreeVTable where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DBusSubtreeVTable = DBusSubtreeVTable (ForeignPtr DBusSubtreeVTable)-instance WrappedPtr DBusSubtreeVTable where
− GI/Gio/Structs/FileAttributeInfo.hs 
@@ -1,175 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Information about a specific attribute.--}--module GI.Gio.Structs.FileAttributeInfo-    ( ---- * Exported types-    FileAttributeInfo(..)                   ,-    newZeroFileAttributeInfo                ,-    noFileAttributeInfo                     ,--- -- * Properties--- ** Flags-    fileAttributeInfoFlags                  ,-    fileAttributeInfoReadFlags              ,-    fileAttributeInfoWriteFlags             ,----- ** Name-    fileAttributeInfoClearName              ,-    fileAttributeInfoName                   ,-    fileAttributeInfoReadName               ,-    fileAttributeInfoWriteName              ,----- ** Type-    fileAttributeInfoReadType               ,-    fileAttributeInfoType                   ,-    fileAttributeInfoWriteType              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype FileAttributeInfo = FileAttributeInfo (ForeignPtr FileAttributeInfo)-instance WrappedPtr FileAttributeInfo where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = copyPtr 16-    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---noFileAttributeInfo :: Maybe FileAttributeInfo-noFileAttributeInfo = Nothing--fileAttributeInfoReadName :: MonadIO m => FileAttributeInfo -> m (Maybe T.Text)-fileAttributeInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--fileAttributeInfoWriteName :: MonadIO m => FileAttributeInfo -> CString -> m ()-fileAttributeInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--fileAttributeInfoClearName :: MonadIO m => FileAttributeInfo -> m ()-fileAttributeInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: CString)--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"-    attrGet _ = fileAttributeInfoReadName-    attrSet _ = fileAttributeInfoWriteName-    attrConstruct = undefined-    attrClear _ = fileAttributeInfoClearName--fileAttributeInfoName :: AttrLabelProxy "name"-fileAttributeInfoName = AttrLabelProxy---fileAttributeInfoReadType :: MonadIO m => FileAttributeInfo -> m FileAttributeType-fileAttributeInfoReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--fileAttributeInfoWriteType :: MonadIO m => FileAttributeInfo -> FileAttributeType -> m ()-fileAttributeInfoWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 8) (val' :: CUInt)--data FileAttributeInfoTypeFieldInfo-instance AttrInfo FileAttributeInfoTypeFieldInfo where-    type AttrAllowedOps FileAttributeInfoTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint FileAttributeInfoTypeFieldInfo = (~) FileAttributeType-    type AttrBaseTypeConstraint FileAttributeInfoTypeFieldInfo = (~) FileAttributeInfo-    type AttrGetType FileAttributeInfoTypeFieldInfo = FileAttributeType-    type AttrLabel FileAttributeInfoTypeFieldInfo = "type"-    attrGet _ = fileAttributeInfoReadType-    attrSet _ = fileAttributeInfoWriteType-    attrConstruct = undefined-    attrClear _ = undefined--fileAttributeInfoType :: AttrLabelProxy "type"-fileAttributeInfoType = AttrLabelProxy---fileAttributeInfoReadFlags :: MonadIO m => FileAttributeInfo -> m [FileAttributeInfoFlags]-fileAttributeInfoReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO CUInt-    let val' = wordToGFlags val-    return val'--fileAttributeInfoWriteFlags :: MonadIO m => FileAttributeInfo -> [FileAttributeInfoFlags] -> m ()-fileAttributeInfoWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 12) (val' :: CUInt)--data FileAttributeInfoFlagsFieldInfo-instance AttrInfo FileAttributeInfoFlagsFieldInfo where-    type AttrAllowedOps FileAttributeInfoFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint FileAttributeInfoFlagsFieldInfo = (~) [FileAttributeInfoFlags]-    type AttrBaseTypeConstraint FileAttributeInfoFlagsFieldInfo = (~) FileAttributeInfo-    type AttrGetType FileAttributeInfoFlagsFieldInfo = [FileAttributeInfoFlags]-    type AttrLabel FileAttributeInfoFlagsFieldInfo = "flags"-    attrGet _ = fileAttributeInfoReadFlags-    attrSet _ = fileAttributeInfoWriteFlags-    attrConstruct = undefined-    attrClear _ = undefined--fileAttributeInfoFlags :: AttrLabelProxy "flags"-fileAttributeInfoFlags = AttrLabelProxy----type instance AttributeList FileAttributeInfo = FileAttributeInfoAttributeList-type FileAttributeInfoAttributeList = ('[ '("name", FileAttributeInfoNameFieldInfo), '("type", FileAttributeInfoTypeFieldInfo), '("flags", FileAttributeInfoFlagsFieldInfo)] :: [(Symbol, *)])--type family ResolveFileAttributeInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileAttributeInfoMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFileAttributeInfoMethod t FileAttributeInfo, MethodInfo info FileAttributeInfo p) => IsLabelProxy t (FileAttributeInfo -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileAttributeInfoMethod t FileAttributeInfo, MethodInfo info FileAttributeInfo p) => IsLabel t (FileAttributeInfo -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/FileAttributeInfo.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.FileAttributeInfo where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileAttributeInfo = FileAttributeInfo (ForeignPtr FileAttributeInfo)-instance WrappedPtr FileAttributeInfo where
− GI/Gio/Structs/FileAttributeInfoList.hs 
@@ -1,355 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Acts as a lightweight registry for possible valid file attributes.-The registry stores Key-Value pair formats as #GFileAttributeInfos.--}--module GI.Gio.Structs.FileAttributeInfoList-    ( ---- * Exported types-    FileAttributeInfoList(..)               ,-    newZeroFileAttributeInfoList            ,-    noFileAttributeInfoList                 ,--- -- * Methods--- ** fileAttributeInfoListAdd-    FileAttributeInfoListAddMethodInfo      ,-    fileAttributeInfoListAdd                ,----- ** fileAttributeInfoListDup-    FileAttributeInfoListDupMethodInfo      ,-    fileAttributeInfoListDup                ,----- ** fileAttributeInfoListLookup-    FileAttributeInfoListLookupMethodInfo   ,-    fileAttributeInfoListLookup             ,----- ** fileAttributeInfoListNew-    fileAttributeInfoListNew                ,----- ** fileAttributeInfoListRef-    FileAttributeInfoListRefMethodInfo      ,-    fileAttributeInfoListRef                ,----- ** fileAttributeInfoListUnref-    FileAttributeInfoListUnrefMethodInfo    ,-    fileAttributeInfoListUnref              ,----- -- * Properties--- ** Infos-    fileAttributeInfoListClearInfos         ,-    fileAttributeInfoListInfos              ,-    fileAttributeInfoListReadInfos          ,-    fileAttributeInfoListWriteInfos         ,----- ** NInfos-    fileAttributeInfoListNInfos             ,-    fileAttributeInfoListReadNInfos         ,-    fileAttributeInfoListWriteNInfos        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype FileAttributeInfoList = FileAttributeInfoList (ForeignPtr 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---noFileAttributeInfoList :: Maybe FileAttributeInfoList-noFileAttributeInfoList = Nothing--fileAttributeInfoListReadInfos :: MonadIO m => FileAttributeInfoList -> m (Maybe FileAttributeInfo)-fileAttributeInfoListReadInfos s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr FileAttributeInfo)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr FileAttributeInfo) val'-        return val''-    return result--fileAttributeInfoListWriteInfos :: MonadIO m => FileAttributeInfoList -> Ptr FileAttributeInfo -> m ()-fileAttributeInfoListWriteInfos s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr FileAttributeInfo)--fileAttributeInfoListClearInfos :: MonadIO m => FileAttributeInfoList -> m ()-fileAttributeInfoListClearInfos s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr FileAttributeInfo)--data FileAttributeInfoListInfosFieldInfo-instance AttrInfo FileAttributeInfoListInfosFieldInfo where-    type AttrAllowedOps FileAttributeInfoListInfosFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FileAttributeInfoListInfosFieldInfo = (~) (Ptr FileAttributeInfo)-    type AttrBaseTypeConstraint FileAttributeInfoListInfosFieldInfo = (~) FileAttributeInfoList-    type AttrGetType FileAttributeInfoListInfosFieldInfo = Maybe FileAttributeInfo-    type AttrLabel FileAttributeInfoListInfosFieldInfo = "infos"-    attrGet _ = fileAttributeInfoListReadInfos-    attrSet _ = fileAttributeInfoListWriteInfos-    attrConstruct = undefined-    attrClear _ = fileAttributeInfoListClearInfos--fileAttributeInfoListInfos :: AttrLabelProxy "infos"-fileAttributeInfoListInfos = AttrLabelProxy---fileAttributeInfoListReadNInfos :: MonadIO m => FileAttributeInfoList -> m Int32-fileAttributeInfoListReadNInfos s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--fileAttributeInfoListWriteNInfos :: MonadIO m => FileAttributeInfoList -> Int32 -> m ()-fileAttributeInfoListWriteNInfos s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int32)--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"-    attrGet _ = fileAttributeInfoListReadNInfos-    attrSet _ = fileAttributeInfoListWriteNInfos-    attrConstruct = undefined-    attrClear _ = undefined--fileAttributeInfoListNInfos :: AttrLabelProxy "nInfos"-fileAttributeInfoListNInfos = AttrLabelProxy----type instance AttributeList FileAttributeInfoList = FileAttributeInfoListAttributeList-type FileAttributeInfoListAttributeList = ('[ '("infos", FileAttributeInfoListInfosFieldInfo), '("nInfos", FileAttributeInfoListNInfosFieldInfo)] :: [(Symbol, *)])---- method FileAttributeInfoList::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "FileAttributeInfoList")--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_info_list_new" g_file_attribute_info_list_new :: -    IO (Ptr FileAttributeInfoList)---fileAttributeInfoListNew ::-    (MonadIO m) =>-    m FileAttributeInfoList                 -- result-fileAttributeInfoListNew  = liftIO $ do-    result <- g_file_attribute_info_list_new-    checkUnexpectedReturnNULL "g_file_attribute_info_list_new" result-    result' <- (wrapBoxed FileAttributeInfoList) result-    return result'---- method FileAttributeInfoList::add--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileAttributeInfoFlags", direction = DirectionIn, mayBeNull = False, 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 ->            -- _obj : TInterface "Gio" "FileAttributeInfoList"-    CString ->                              -- name : TBasicType TUTF8-    CUInt ->                                -- type : TInterface "Gio" "FileAttributeType"-    CUInt ->                                -- flags : TInterface "Gio" "FileAttributeInfoFlags"-    IO ()---fileAttributeInfoListAdd ::-    (MonadIO m) =>-    FileAttributeInfoList                   -- _obj-    -> T.Text                               -- name-    -> FileAttributeType                    -- type_-    -> [FileAttributeInfoFlags]             -- flags-    -> m ()                                 -- result-fileAttributeInfoListAdd _obj name type_ flags = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    let type_' = (fromIntegral . fromEnum) type_-    let flags' = gflagsToWord flags-    g_file_attribute_info_list_add _obj' name' type_' flags'-    touchManagedPtr _obj-    freeMem name'-    return ()--data FileAttributeInfoListAddMethodInfo-instance (signature ~ (T.Text -> FileAttributeType -> [FileAttributeInfoFlags] -> m ()), MonadIO m) => MethodInfo FileAttributeInfoListAddMethodInfo FileAttributeInfoList signature where-    overloadedMethod _ = fileAttributeInfoListAdd---- method FileAttributeInfoList::dup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileAttributeInfoList")--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_info_list_dup" g_file_attribute_info_list_dup :: -    Ptr FileAttributeInfoList ->            -- _obj : TInterface "Gio" "FileAttributeInfoList"-    IO (Ptr FileAttributeInfoList)---fileAttributeInfoListDup ::-    (MonadIO m) =>-    FileAttributeInfoList                   -- _obj-    -> m FileAttributeInfoList              -- result-fileAttributeInfoListDup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_file_attribute_info_list_dup _obj'-    checkUnexpectedReturnNULL "g_file_attribute_info_list_dup" result-    result' <- (wrapBoxed FileAttributeInfoList) result-    touchManagedPtr _obj-    return result'--data FileAttributeInfoListDupMethodInfo-instance (signature ~ (m FileAttributeInfoList), MonadIO m) => MethodInfo FileAttributeInfoListDupMethodInfo FileAttributeInfoList signature where-    overloadedMethod _ = fileAttributeInfoListDup---- method FileAttributeInfoList::lookup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileAttributeInfo")--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_info_list_lookup" g_file_attribute_info_list_lookup :: -    Ptr FileAttributeInfoList ->            -- _obj : TInterface "Gio" "FileAttributeInfoList"-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr FileAttributeInfo)---fileAttributeInfoListLookup ::-    (MonadIO m) =>-    FileAttributeInfoList                   -- _obj-    -> T.Text                               -- name-    -> m FileAttributeInfo                  -- result-fileAttributeInfoListLookup _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- g_file_attribute_info_list_lookup _obj' name'-    checkUnexpectedReturnNULL "g_file_attribute_info_list_lookup" result-    result' <- (newPtr FileAttributeInfo) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data FileAttributeInfoListLookupMethodInfo-instance (signature ~ (T.Text -> m FileAttributeInfo), MonadIO m) => MethodInfo FileAttributeInfoListLookupMethodInfo FileAttributeInfoList signature where-    overloadedMethod _ = fileAttributeInfoListLookup---- method FileAttributeInfoList::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileAttributeInfoList")--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_info_list_ref" g_file_attribute_info_list_ref :: -    Ptr FileAttributeInfoList ->            -- _obj : TInterface "Gio" "FileAttributeInfoList"-    IO (Ptr FileAttributeInfoList)---fileAttributeInfoListRef ::-    (MonadIO m) =>-    FileAttributeInfoList                   -- _obj-    -> m FileAttributeInfoList              -- result-fileAttributeInfoListRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_file_attribute_info_list_ref _obj'-    checkUnexpectedReturnNULL "g_file_attribute_info_list_ref" result-    result' <- (wrapBoxed FileAttributeInfoList) result-    touchManagedPtr _obj-    return result'--data FileAttributeInfoListRefMethodInfo-instance (signature ~ (m FileAttributeInfoList), MonadIO m) => MethodInfo FileAttributeInfoListRefMethodInfo FileAttributeInfoList signature where-    overloadedMethod _ = fileAttributeInfoListRef---- method FileAttributeInfoList::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, 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 ->            -- _obj : TInterface "Gio" "FileAttributeInfoList"-    IO ()---fileAttributeInfoListUnref ::-    (MonadIO m) =>-    FileAttributeInfoList                   -- _obj-    -> m ()                                 -- result-fileAttributeInfoListUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_file_attribute_info_list_unref _obj'-    touchManagedPtr _obj-    return ()--data FileAttributeInfoListUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo FileAttributeInfoListUnrefMethodInfo FileAttributeInfoList signature where-    overloadedMethod _ = fileAttributeInfoListUnref--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 = MethodResolutionFailed l o--instance (info ~ ResolveFileAttributeInfoListMethod t FileAttributeInfoList, MethodInfo info FileAttributeInfoList p) => IsLabelProxy t (FileAttributeInfoList -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileAttributeInfoListMethod t FileAttributeInfoList, MethodInfo info FileAttributeInfoList p) => IsLabel t (FileAttributeInfoList -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/FileAttributeInfoList.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gio.Structs.FileAttributeInfoList where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileAttributeInfoList = FileAttributeInfoList (ForeignPtr FileAttributeInfoList)-instance BoxedObject FileAttributeInfoList where-data FileAttributeInfoListAddMethodInfo-data FileAttributeInfoListDupMethodInfo-data FileAttributeInfoListLookupMethodInfo-data FileAttributeInfoListRefMethodInfo-data FileAttributeInfoListUnrefMethodInfo
− GI/Gio/Structs/FileAttributeMatcher.hs 
@@ -1,380 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Determines if a string matches a file attribute.--}--module GI.Gio.Structs.FileAttributeMatcher-    ( ---- * Exported types-    FileAttributeMatcher(..)                ,-    noFileAttributeMatcher                  ,--- -- * Methods--- ** fileAttributeMatcherEnumerateNamespace-    FileAttributeMatcherEnumerateNamespaceMethodInfo,-    fileAttributeMatcherEnumerateNamespace  ,----- ** fileAttributeMatcherEnumerateNext-    FileAttributeMatcherEnumerateNextMethodInfo,-    fileAttributeMatcherEnumerateNext       ,----- ** fileAttributeMatcherMatches-    FileAttributeMatcherMatchesMethodInfo   ,-    fileAttributeMatcherMatches             ,----- ** fileAttributeMatcherMatchesOnly-    FileAttributeMatcherMatchesOnlyMethodInfo,-    fileAttributeMatcherMatchesOnly         ,----- ** fileAttributeMatcherNew-    fileAttributeMatcherNew                 ,----- ** fileAttributeMatcherRef-    FileAttributeMatcherRefMethodInfo       ,-    fileAttributeMatcherRef                 ,----- ** fileAttributeMatcherSubtract-    FileAttributeMatcherSubtractMethodInfo  ,-    fileAttributeMatcherSubtract            ,----- ** fileAttributeMatcherToString-    FileAttributeMatcherToStringMethodInfo  ,-    fileAttributeMatcherToString            ,----- ** fileAttributeMatcherUnref-    FileAttributeMatcherUnrefMethodInfo     ,-    fileAttributeMatcherUnref               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype FileAttributeMatcher = FileAttributeMatcher (ForeignPtr 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--noFileAttributeMatcher :: Maybe FileAttributeMatcher-noFileAttributeMatcher = Nothing---type instance AttributeList FileAttributeMatcher = FileAttributeMatcherAttributeList-type FileAttributeMatcherAttributeList = ('[ ] :: [(Symbol, *)])---- method FileAttributeMatcher::new--- method type : Constructor--- Args : [Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---fileAttributeMatcherNew ::-    (MonadIO m) =>-    T.Text                                  -- attributes-    -> m FileAttributeMatcher               -- result-fileAttributeMatcherNew attributes = liftIO $ do-    attributes' <- textToCString attributes-    result <- g_file_attribute_matcher_new attributes'-    checkUnexpectedReturnNULL "g_file_attribute_matcher_new" result-    result' <- (wrapBoxed FileAttributeMatcher) result-    freeMem attributes'-    return result'---- method FileAttributeMatcher::enumerate_namespace--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ns", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "FileAttributeMatcher"-    CString ->                              -- ns : TBasicType TUTF8-    IO CInt---fileAttributeMatcherEnumerateNamespace ::-    (MonadIO m) =>-    FileAttributeMatcher                    -- _obj-    -> T.Text                               -- ns-    -> m Bool                               -- result-fileAttributeMatcherEnumerateNamespace _obj ns = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    ns' <- textToCString ns-    result <- g_file_attribute_matcher_enumerate_namespace _obj' ns'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem ns'-    return result'--data FileAttributeMatcherEnumerateNamespaceMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo FileAttributeMatcherEnumerateNamespaceMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherEnumerateNamespace---- method FileAttributeMatcher::enumerate_next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "FileAttributeMatcher"-    IO CString---fileAttributeMatcherEnumerateNext ::-    (MonadIO m) =>-    FileAttributeMatcher                    -- _obj-    -> m T.Text                             -- result-fileAttributeMatcherEnumerateNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_file_attribute_matcher_enumerate_next _obj'-    checkUnexpectedReturnNULL "g_file_attribute_matcher_enumerate_next" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data FileAttributeMatcherEnumerateNextMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FileAttributeMatcherEnumerateNextMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherEnumerateNext---- method FileAttributeMatcher::matches--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "FileAttributeMatcher"-    CString ->                              -- attribute : TBasicType TUTF8-    IO CInt---fileAttributeMatcherMatches ::-    (MonadIO m) =>-    FileAttributeMatcher                    -- _obj-    -> T.Text                               -- attribute-    -> m Bool                               -- result-fileAttributeMatcherMatches _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_attribute_matcher_matches _obj' attribute'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileAttributeMatcherMatchesMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo FileAttributeMatcherMatchesMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherMatches---- method FileAttributeMatcher::matches_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "FileAttributeMatcher"-    CString ->                              -- attribute : TBasicType TUTF8-    IO CInt---fileAttributeMatcherMatchesOnly ::-    (MonadIO m) =>-    FileAttributeMatcher                    -- _obj-    -> T.Text                               -- attribute-    -> m Bool                               -- result-fileAttributeMatcherMatchesOnly _obj attribute = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    attribute' <- textToCString attribute-    result <- g_file_attribute_matcher_matches_only _obj' attribute'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem attribute'-    return result'--data FileAttributeMatcherMatchesOnlyMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo FileAttributeMatcherMatchesOnlyMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherMatchesOnly---- method FileAttributeMatcher::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileAttributeMatcher")--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_matcher_ref" g_file_attribute_matcher_ref :: -    Ptr FileAttributeMatcher ->             -- _obj : TInterface "Gio" "FileAttributeMatcher"-    IO (Ptr FileAttributeMatcher)---fileAttributeMatcherRef ::-    (MonadIO m) =>-    FileAttributeMatcher                    -- _obj-    -> m FileAttributeMatcher               -- result-fileAttributeMatcherRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_file_attribute_matcher_ref _obj'-    checkUnexpectedReturnNULL "g_file_attribute_matcher_ref" result-    result' <- (wrapBoxed FileAttributeMatcher) result-    touchManagedPtr _obj-    return result'--data FileAttributeMatcherRefMethodInfo-instance (signature ~ (m FileAttributeMatcher), MonadIO m) => MethodInfo FileAttributeMatcherRefMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherRef---- method FileAttributeMatcher::subtract--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subtract", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "FileAttributeMatcher")--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_matcher_subtract" g_file_attribute_matcher_subtract :: -    Ptr FileAttributeMatcher ->             -- _obj : TInterface "Gio" "FileAttributeMatcher"-    Ptr FileAttributeMatcher ->             -- subtract : TInterface "Gio" "FileAttributeMatcher"-    IO (Ptr FileAttributeMatcher)---fileAttributeMatcherSubtract ::-    (MonadIO m) =>-    FileAttributeMatcher                    -- _obj-    -> FileAttributeMatcher                 -- subtract-    -> m FileAttributeMatcher               -- result-fileAttributeMatcherSubtract _obj subtract = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let subtract' = unsafeManagedPtrGetPtr subtract-    result <- g_file_attribute_matcher_subtract _obj' subtract'-    checkUnexpectedReturnNULL "g_file_attribute_matcher_subtract" result-    result' <- (wrapBoxed FileAttributeMatcher) result-    touchManagedPtr _obj-    touchManagedPtr subtract-    return result'--data FileAttributeMatcherSubtractMethodInfo-instance (signature ~ (FileAttributeMatcher -> m FileAttributeMatcher), MonadIO m) => MethodInfo FileAttributeMatcherSubtractMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherSubtract---- method FileAttributeMatcher::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "FileAttributeMatcher"-    IO CString---fileAttributeMatcherToString ::-    (MonadIO m) =>-    FileAttributeMatcher                    -- _obj-    -> m T.Text                             -- result-fileAttributeMatcherToString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_file_attribute_matcher_to_string _obj'-    checkUnexpectedReturnNULL "g_file_attribute_matcher_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data FileAttributeMatcherToStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FileAttributeMatcherToStringMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherToString---- method FileAttributeMatcher::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "FileAttributeMatcher"-    IO ()---fileAttributeMatcherUnref ::-    (MonadIO m) =>-    FileAttributeMatcher                    -- _obj-    -> m ()                                 -- result-fileAttributeMatcherUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_file_attribute_matcher_unref _obj'-    touchManagedPtr _obj-    return ()--data FileAttributeMatcherUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo FileAttributeMatcherUnrefMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherUnref--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 = MethodResolutionFailed l o--instance (info ~ ResolveFileAttributeMatcherMethod t FileAttributeMatcher, MethodInfo info FileAttributeMatcher p) => IsLabelProxy t (FileAttributeMatcher -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFileAttributeMatcherMethod t FileAttributeMatcher, MethodInfo info FileAttributeMatcher p) => IsLabel t (FileAttributeMatcher -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/FileAttributeMatcher.hs-boot 
@@ -1,19 +0,0 @@-module GI.Gio.Structs.FileAttributeMatcher where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FileAttributeMatcher = FileAttributeMatcher (ForeignPtr FileAttributeMatcher)-instance BoxedObject FileAttributeMatcher where-data FileAttributeMatcherEnumerateNamespaceMethodInfo-data FileAttributeMatcherEnumerateNextMethodInfo-data FileAttributeMatcherMatchesMethodInfo-data FileAttributeMatcherMatchesOnlyMethodInfo-data FileAttributeMatcherRefMethodInfo-data FileAttributeMatcherSubtractMethodInfo-data FileAttributeMatcherToStringMethodInfo-data FileAttributeMatcherUnrefMethodInfo
− GI/Gio/Structs/IOExtension.hs 
@@ -1,162 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--#GIOExtension is an opaque data structure and can only be accessed-using the following functions.--}--module GI.Gio.Structs.IOExtension-    ( ---- * Exported types-    IOExtension(..)                         ,-    noIOExtension                           ,--- -- * Methods--- ** iOExtensionGetName-    IOExtensionGetNameMethodInfo            ,-    iOExtensionGetName                      ,----- ** iOExtensionGetPriority-    IOExtensionGetPriorityMethodInfo        ,-    iOExtensionGetPriority                  ,----- ** iOExtensionGetType-    IOExtensionGetTypeMethodInfo            ,-    iOExtensionGetType                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype IOExtension = IOExtension (ForeignPtr 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--noIOExtension :: Maybe IOExtension-noIOExtension = Nothing---type instance AttributeList IOExtension = IOExtensionAttributeList-type IOExtensionAttributeList = ('[ ] :: [(Symbol, *)])---- method IOExtension::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "IOExtension"-    IO CString---iOExtensionGetName ::-    (MonadIO m) =>-    IOExtension                             -- _obj-    -> m T.Text                             -- result-iOExtensionGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_extension_get_name _obj'-    checkUnexpectedReturnNULL "g_io_extension_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data IOExtensionGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo IOExtensionGetNameMethodInfo IOExtension signature where-    overloadedMethod _ = iOExtensionGetName---- method IOExtension::get_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "IOExtension"-    IO Int32---iOExtensionGetPriority ::-    (MonadIO m) =>-    IOExtension                             -- _obj-    -> m Int32                              -- result-iOExtensionGetPriority _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_extension_get_priority _obj'-    touchManagedPtr _obj-    return result--data IOExtensionGetPriorityMethodInfo-instance (signature ~ (m Int32), MonadIO m) => MethodInfo IOExtensionGetPriorityMethodInfo IOExtension signature where-    overloadedMethod _ = iOExtensionGetPriority---- method IOExtension::get_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, 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 ->                      -- _obj : TInterface "Gio" "IOExtension"-    IO CGType---iOExtensionGetType ::-    (MonadIO m) =>-    IOExtension                             -- _obj-    -> m GType                              -- result-iOExtensionGetType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_extension_get_type _obj'-    let result' = GType result-    touchManagedPtr _obj-    return result'--data IOExtensionGetTypeMethodInfo-instance (signature ~ (m GType), MonadIO m) => MethodInfo IOExtensionGetTypeMethodInfo IOExtension signature where-    overloadedMethod _ = iOExtensionGetType--type family ResolveIOExtensionMethod (t :: Symbol) (o :: *) :: * where-    ResolveIOExtensionMethod "getName" o = IOExtensionGetNameMethodInfo-    ResolveIOExtensionMethod "getPriority" o = IOExtensionGetPriorityMethodInfo-    ResolveIOExtensionMethod "getType" o = IOExtensionGetTypeMethodInfo-    ResolveIOExtensionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveIOExtensionMethod t IOExtension, MethodInfo info IOExtension p) => IsLabelProxy t (IOExtension -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveIOExtensionMethod t IOExtension, MethodInfo info IOExtension p) => IsLabel t (IOExtension -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/IOExtension.hs-boot 
@@ -1,14 +0,0 @@-module GI.Gio.Structs.IOExtension where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype IOExtension = IOExtension (ForeignPtr IOExtension)-instance WrappedPtr IOExtension where-data IOExtensionGetNameMethodInfo-data IOExtensionGetPriorityMethodInfo-data IOExtensionGetTypeMethodInfo
− GI/Gio/Structs/IOExtensionPoint.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 (garetxe@gmail.com)--#GIOExtensionPoint is an opaque data structure and can only be accessed-using the following functions.--}--module GI.Gio.Structs.IOExtensionPoint-    ( ---- * Exported types-    IOExtensionPoint(..)                    ,-    noIOExtensionPoint                      ,--- -- * Methods--- ** iOExtensionPointGetExtensionByName-    IOExtensionPointGetExtensionByNameMethodInfo,-    iOExtensionPointGetExtensionByName      ,----- ** iOExtensionPointGetExtensions-    IOExtensionPointGetExtensionsMethodInfo ,-    iOExtensionPointGetExtensions           ,----- ** iOExtensionPointGetRequiredType-    IOExtensionPointGetRequiredTypeMethodInfo,-    iOExtensionPointGetRequiredType         ,----- ** iOExtensionPointImplement-    iOExtensionPointImplement               ,----- ** iOExtensionPointLookup-    iOExtensionPointLookup                  ,----- ** iOExtensionPointRegister-    iOExtensionPointRegister                ,----- ** iOExtensionPointSetRequiredType-    IOExtensionPointSetRequiredTypeMethodInfo,-    iOExtensionPointSetRequiredType         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype IOExtensionPoint = IOExtensionPoint (ForeignPtr 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--noIOExtensionPoint :: Maybe IOExtensionPoint-noIOExtensionPoint = Nothing---type instance AttributeList IOExtensionPoint = IOExtensionPointAttributeList-type IOExtensionPointAttributeList = ('[ ] :: [(Symbol, *)])---- method IOExtensionPoint::get_extension_by_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                 -- _obj : TInterface "Gio" "IOExtensionPoint"-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr IOExtension)---iOExtensionPointGetExtensionByName ::-    (MonadIO m) =>-    IOExtensionPoint                        -- _obj-    -> T.Text                               -- name-    -> m IOExtension                        -- result-iOExtensionPointGetExtensionByName _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- g_io_extension_point_get_extension_by_name _obj' name'-    checkUnexpectedReturnNULL "g_io_extension_point_get_extension_by_name" result-    result' <- (newPtr IOExtension) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data IOExtensionPointGetExtensionByNameMethodInfo-instance (signature ~ (T.Text -> m IOExtension), MonadIO m) => MethodInfo IOExtensionPointGetExtensionByNameMethodInfo IOExtensionPoint signature where-    overloadedMethod _ = iOExtensionPointGetExtensionByName---- method IOExtensionPoint::get_extensions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gio" "IOExtension"))--- throws : False--- Skip return : False--foreign import ccall "g_io_extension_point_get_extensions" g_io_extension_point_get_extensions :: -    Ptr IOExtensionPoint ->                 -- _obj : TInterface "Gio" "IOExtensionPoint"-    IO (Ptr (GList (Ptr IOExtension)))---iOExtensionPointGetExtensions ::-    (MonadIO m) =>-    IOExtensionPoint                        -- _obj-    -> m [IOExtension]                      -- result-iOExtensionPointGetExtensions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_extension_point_get_extensions _obj'-    result' <- unpackGList result-    result'' <- mapM (newPtr IOExtension) result'-    touchManagedPtr _obj-    return result''--data IOExtensionPointGetExtensionsMethodInfo-instance (signature ~ (m [IOExtension]), MonadIO m) => MethodInfo IOExtensionPointGetExtensionsMethodInfo IOExtensionPoint signature where-    overloadedMethod _ = iOExtensionPointGetExtensions---- method IOExtensionPoint::get_required_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "IOExtensionPoint"-    IO CGType---iOExtensionPointGetRequiredType ::-    (MonadIO m) =>-    IOExtensionPoint                        -- _obj-    -> m GType                              -- result-iOExtensionPointGetRequiredType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_extension_point_get_required_type _obj'-    let result' = GType result-    touchManagedPtr _obj-    return result'--data IOExtensionPointGetRequiredTypeMethodInfo-instance (signature ~ (m GType), MonadIO m) => MethodInfo IOExtensionPointGetRequiredTypeMethodInfo IOExtensionPoint signature where-    overloadedMethod _ = iOExtensionPointGetRequiredType---- method IOExtensionPoint::set_required_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, 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 ->                 -- _obj : TInterface "Gio" "IOExtensionPoint"-    CGType ->                               -- type : TBasicType TGType-    IO ()---iOExtensionPointSetRequiredType ::-    (MonadIO m) =>-    IOExtensionPoint                        -- _obj-    -> GType                                -- type_-    -> m ()                                 -- result-iOExtensionPointSetRequiredType _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let type_' = gtypeToCGType type_-    g_io_extension_point_set_required_type _obj' type_'-    touchManagedPtr _obj-    return ()--data IOExtensionPointSetRequiredTypeMethodInfo-instance (signature ~ (GType -> m ()), MonadIO m) => MethodInfo IOExtensionPointSetRequiredTypeMethodInfo IOExtensionPoint signature where-    overloadedMethod _ = iOExtensionPointSetRequiredType---- method IOExtensionPoint::implement--- method type : MemberFunction--- Args : [Arg {argCName = "extension_point_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extension_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 IOExtension)---iOExtensionPointImplement ::-    (MonadIO m) =>-    T.Text                                  -- extensionPointName-    -> GType                                -- type_-    -> T.Text                               -- extensionName-    -> Int32                                -- priority-    -> m IOExtension                        -- result-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 "g_io_extension_point_implement" result-    result' <- (newPtr IOExtension) result-    freeMem extensionPointName'-    freeMem extensionName'-    return result'---- method IOExtensionPoint::lookup--- method type : MemberFunction--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---iOExtensionPointLookup ::-    (MonadIO m) =>-    T.Text                                  -- name-    -> m IOExtensionPoint                   -- result-iOExtensionPointLookup name = liftIO $ do-    name' <- textToCString name-    result <- g_io_extension_point_lookup name'-    checkUnexpectedReturnNULL "g_io_extension_point_lookup" result-    result' <- (newPtr IOExtensionPoint) result-    freeMem name'-    return result'---- method IOExtensionPoint::register--- method type : MemberFunction--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---iOExtensionPointRegister ::-    (MonadIO m) =>-    T.Text                                  -- name-    -> m IOExtensionPoint                   -- result-iOExtensionPointRegister name = liftIO $ do-    name' <- textToCString name-    result <- g_io_extension_point_register name'-    checkUnexpectedReturnNULL "g_io_extension_point_register" result-    result' <- (newPtr IOExtensionPoint) result-    freeMem name'-    return result'--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 = MethodResolutionFailed l o--instance (info ~ ResolveIOExtensionPointMethod t IOExtensionPoint, MethodInfo info IOExtensionPoint p) => IsLabelProxy t (IOExtensionPoint -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveIOExtensionPointMethod t IOExtensionPoint, MethodInfo info IOExtensionPoint p) => IsLabel t (IOExtensionPoint -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/IOExtensionPoint.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Structs.IOExtensionPoint where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype IOExtensionPoint = IOExtensionPoint (ForeignPtr IOExtensionPoint)-instance WrappedPtr IOExtensionPoint where-data IOExtensionPointGetExtensionByNameMethodInfo-data IOExtensionPointGetExtensionsMethodInfo-data IOExtensionPointGetRequiredTypeMethodInfo-data IOExtensionPointSetRequiredTypeMethodInfo
− GI/Gio/Structs/IOModuleScope.hs 
@@ -1,133 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--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 g_io_modules_scan_all_in_directory_with_scope().--}--module GI.Gio.Structs.IOModuleScope-    ( ---- * Exported types-    IOModuleScope(..)                       ,-    noIOModuleScope                         ,--- -- * Methods--- ** iOModuleScopeBlock-    IOModuleScopeBlockMethodInfo            ,-    iOModuleScopeBlock                      ,----- ** iOModuleScopeFree-    IOModuleScopeFreeMethodInfo             ,-    iOModuleScopeFree                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype IOModuleScope = IOModuleScope (ForeignPtr 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--noIOModuleScope :: Maybe IOModuleScope-noIOModuleScope = Nothing---type instance AttributeList IOModuleScope = IOModuleScopeAttributeList-type IOModuleScopeAttributeList = ('[ ] :: [(Symbol, *)])---- method IOModuleScope::block--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "basename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "IOModuleScope"-    CString ->                              -- basename : TBasicType TUTF8-    IO ()---iOModuleScopeBlock ::-    (MonadIO m) =>-    IOModuleScope                           -- _obj-    -> T.Text                               -- basename-    -> m ()                                 -- result-iOModuleScopeBlock _obj basename = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    basename' <- textToCString basename-    g_io_module_scope_block _obj' basename'-    touchManagedPtr _obj-    freeMem basename'-    return ()--data IOModuleScopeBlockMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo IOModuleScopeBlockMethodInfo IOModuleScope signature where-    overloadedMethod _ = iOModuleScopeBlock---- method IOModuleScope::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, 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 ->                    -- _obj : TInterface "Gio" "IOModuleScope"-    IO ()---iOModuleScopeFree ::-    (MonadIO m) =>-    IOModuleScope                           -- _obj-    -> m ()                                 -- result-iOModuleScopeFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_io_module_scope_free _obj'-    touchManagedPtr _obj-    return ()--data IOModuleScopeFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo IOModuleScopeFreeMethodInfo IOModuleScope signature where-    overloadedMethod _ = iOModuleScopeFree--type family ResolveIOModuleScopeMethod (t :: Symbol) (o :: *) :: * where-    ResolveIOModuleScopeMethod "block" o = IOModuleScopeBlockMethodInfo-    ResolveIOModuleScopeMethod "free" o = IOModuleScopeFreeMethodInfo-    ResolveIOModuleScopeMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveIOModuleScopeMethod t IOModuleScope, MethodInfo info IOModuleScope p) => IsLabelProxy t (IOModuleScope -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveIOModuleScopeMethod t IOModuleScope, MethodInfo info IOModuleScope p) => IsLabel t (IOModuleScope -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/IOModuleScope.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gio.Structs.IOModuleScope where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype IOModuleScope = IOModuleScope (ForeignPtr IOModuleScope)-instance WrappedPtr IOModuleScope where-data IOModuleScopeBlockMethodInfo-data IOModuleScopeFreeMethodInfo
− GI/Gio/Structs/IOSchedulerJob.hs 
@@ -1,141 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Opaque class for defining and scheduling IO jobs.--}--module GI.Gio.Structs.IOSchedulerJob-    ( ---- * Exported types-    IOSchedulerJob(..)                      ,-    noIOSchedulerJob                        ,--- -- * Methods--- ** iOSchedulerJobSendToMainloop-    IOSchedulerJobSendToMainloopMethodInfo  ,-    iOSchedulerJobSendToMainloop            ,----- ** iOSchedulerJobSendToMainloopAsync-    IOSchedulerJobSendToMainloopAsyncMethodInfo,-    iOSchedulerJobSendToMainloopAsync       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib--newtype IOSchedulerJob = IOSchedulerJob (ForeignPtr 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--noIOSchedulerJob :: Maybe IOSchedulerJob-noIOSchedulerJob = Nothing---type instance AttributeList IOSchedulerJob = IOSchedulerJobAttributeList-type IOSchedulerJobAttributeList = ('[ ] :: [(Symbol, *)])---- method IOSchedulerJob::send_to_mainloop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOSchedulerJob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "IOSchedulerJob"-    FunPtr GLib.SourceFuncC ->              -- func : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"-    IO CInt--{-# DEPRECATED iOSchedulerJobSendToMainloop ["Use g_main_context_invoke()."]#-}-iOSchedulerJobSendToMainloop ::-    (MonadIO m) =>-    IOSchedulerJob                          -- _obj-    -> GLib.SourceFunc                      -- func-    -> m Bool                               -- result-iOSchedulerJobSendToMainloop _obj func = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    func' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing func)-    let userData = castFunPtrToPtr func'-    let notify = safeFreeFunPtrPtr-    result <- g_io_scheduler_job_send_to_mainloop _obj' func' userData notify-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data IOSchedulerJobSendToMainloopMethodInfo-instance (signature ~ (GLib.SourceFunc -> m Bool), MonadIO m) => MethodInfo IOSchedulerJobSendToMainloopMethodInfo IOSchedulerJob signature where-    overloadedMethod _ = iOSchedulerJobSendToMainloop---- method IOSchedulerJob::send_to_mainloop_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOSchedulerJob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, 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 ->                   -- _obj : TInterface "Gio" "IOSchedulerJob"-    FunPtr GLib.SourceFuncC ->              -- func : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"-    IO ()--{-# DEPRECATED iOSchedulerJobSendToMainloopAsync ["Use g_main_context_invoke()."]#-}-iOSchedulerJobSendToMainloopAsync ::-    (MonadIO m) =>-    IOSchedulerJob                          -- _obj-    -> GLib.SourceFunc                      -- func-    -> m ()                                 -- result-iOSchedulerJobSendToMainloopAsync _obj func = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    func' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing func)-    let userData = castFunPtrToPtr func'-    let notify = safeFreeFunPtrPtr-    g_io_scheduler_job_send_to_mainloop_async _obj' func' userData notify-    touchManagedPtr _obj-    return ()--data IOSchedulerJobSendToMainloopAsyncMethodInfo-instance (signature ~ (GLib.SourceFunc -> m ()), MonadIO m) => MethodInfo IOSchedulerJobSendToMainloopAsyncMethodInfo IOSchedulerJob signature where-    overloadedMethod _ = iOSchedulerJobSendToMainloopAsync--type family ResolveIOSchedulerJobMethod (t :: Symbol) (o :: *) :: * where-    ResolveIOSchedulerJobMethod "sendToMainloop" o = IOSchedulerJobSendToMainloopMethodInfo-    ResolveIOSchedulerJobMethod "sendToMainloopAsync" o = IOSchedulerJobSendToMainloopAsyncMethodInfo-    ResolveIOSchedulerJobMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveIOSchedulerJobMethod t IOSchedulerJob, MethodInfo info IOSchedulerJob p) => IsLabelProxy t (IOSchedulerJob -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveIOSchedulerJobMethod t IOSchedulerJob, MethodInfo info IOSchedulerJob p) => IsLabel t (IOSchedulerJob -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/IOSchedulerJob.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gio.Structs.IOSchedulerJob where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype IOSchedulerJob = IOSchedulerJob (ForeignPtr IOSchedulerJob)-instance WrappedPtr IOSchedulerJob where-data IOSchedulerJobSendToMainloopMethodInfo-data IOSchedulerJobSendToMainloopAsyncMethodInfo
− GI/Gio/Structs/IOStreamAdapter.hs 
@@ -1,54 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gio.Structs.IOStreamAdapter-    ( ---- * Exported types-    IOStreamAdapter(..)                     ,-    noIOStreamAdapter                       ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype IOStreamAdapter = IOStreamAdapter (ForeignPtr 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--noIOStreamAdapter :: Maybe IOStreamAdapter-noIOStreamAdapter = Nothing---type instance AttributeList IOStreamAdapter = IOStreamAdapterAttributeList-type IOStreamAdapterAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveIOStreamAdapterMethod (t :: Symbol) (o :: *) :: * where-    ResolveIOStreamAdapterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveIOStreamAdapterMethod t IOStreamAdapter, MethodInfo info IOStreamAdapter p) => IsLabelProxy t (IOStreamAdapter -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveIOStreamAdapterMethod t IOStreamAdapter, MethodInfo info IOStreamAdapter p) => IsLabel t (IOStreamAdapter -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/IOStreamAdapter.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.IOStreamAdapter where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype IOStreamAdapter = IOStreamAdapter (ForeignPtr IOStreamAdapter)-instance WrappedPtr IOStreamAdapter where
− GI/Gio/Structs/InputVector.hs 
@@ -1,140 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--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.--}--module GI.Gio.Structs.InputVector-    ( ---- * Exported types-    InputVector(..)                         ,-    newZeroInputVector                      ,-    noInputVector                           ,--- -- * Properties--- ** Buffer-    inputVectorBuffer                       ,-    inputVectorClearBuffer                  ,-    inputVectorReadBuffer                   ,-    inputVectorWriteBuffer                  ,----- ** Size-    inputVectorReadSize                     ,-    inputVectorSize                         ,-    inputVectorWriteSize                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype InputVector = InputVector (ForeignPtr InputVector)-instance WrappedPtr InputVector where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = copyPtr 16-    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---noInputVector :: Maybe InputVector-noInputVector = Nothing--inputVectorReadBuffer :: MonadIO m => InputVector -> m (Ptr ())-inputVectorReadBuffer s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--inputVectorWriteBuffer :: MonadIO m => InputVector -> Ptr () -> m ()-inputVectorWriteBuffer s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ())--inputVectorClearBuffer :: MonadIO m => InputVector -> m ()-inputVectorClearBuffer s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ())--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"-    attrGet _ = inputVectorReadBuffer-    attrSet _ = inputVectorWriteBuffer-    attrConstruct = undefined-    attrClear _ = inputVectorClearBuffer--inputVectorBuffer :: AttrLabelProxy "buffer"-inputVectorBuffer = AttrLabelProxy---inputVectorReadSize :: MonadIO m => InputVector -> m Word64-inputVectorReadSize s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word64-    return val--inputVectorWriteSize :: MonadIO m => InputVector -> Word64 -> m ()-inputVectorWriteSize s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Word64)--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"-    attrGet _ = inputVectorReadSize-    attrSet _ = inputVectorWriteSize-    attrConstruct = undefined-    attrClear _ = undefined--inputVectorSize :: AttrLabelProxy "size"-inputVectorSize = AttrLabelProxy----type instance AttributeList InputVector = InputVectorAttributeList-type InputVectorAttributeList = ('[ '("buffer", InputVectorBufferFieldInfo), '("size", InputVectorSizeFieldInfo)] :: [(Symbol, *)])--type family ResolveInputVectorMethod (t :: Symbol) (o :: *) :: * where-    ResolveInputVectorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveInputVectorMethod t InputVector, MethodInfo info InputVector p) => IsLabelProxy t (InputVector -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveInputVectorMethod t InputVector, MethodInfo info InputVector p) => IsLabel t (InputVector -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/InputVector.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.InputVector where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype InputVector = InputVector (ForeignPtr InputVector)-instance WrappedPtr InputVector where
− GI/Gio/Structs/NativeSocketAddress.hs 
@@ -1,56 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--An socket address of some unknown native type.--}--module GI.Gio.Structs.NativeSocketAddress-    ( ---- * Exported types-    NativeSocketAddress(..)                 ,-    noNativeSocketAddress                   ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype NativeSocketAddress = NativeSocketAddress (ForeignPtr 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--noNativeSocketAddress :: Maybe NativeSocketAddress-noNativeSocketAddress = Nothing---type instance AttributeList NativeSocketAddress = NativeSocketAddressAttributeList-type NativeSocketAddressAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveNativeSocketAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveNativeSocketAddressMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveNativeSocketAddressMethod t NativeSocketAddress, MethodInfo info NativeSocketAddress p) => IsLabelProxy t (NativeSocketAddress -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveNativeSocketAddressMethod t NativeSocketAddress, MethodInfo info NativeSocketAddress p) => IsLabel t (NativeSocketAddress -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/NativeSocketAddress.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.NativeSocketAddress where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype NativeSocketAddress = NativeSocketAddress (ForeignPtr NativeSocketAddress)-instance WrappedPtr NativeSocketAddress where
− GI/Gio/Structs/OutputMessage.hs 
@@ -1,248 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--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 %NULL then the message is sent to the default receiver-(as previously set by g_socket_connect()).--}--module GI.Gio.Structs.OutputMessage-    ( ---- * Exported types-    OutputMessage(..)                       ,-    newZeroOutputMessage                    ,-    noOutputMessage                         ,--- -- * Properties--- ** Address-    outputMessageAddress                    ,-    outputMessageClearAddress               ,-    outputMessageReadAddress                ,-    outputMessageWriteAddress               ,----- ** BytesSent-    outputMessageBytesSent                  ,-    outputMessageReadBytesSent              ,-    outputMessageWriteBytesSent             ,----- ** NumControlMessages-    outputMessageNumControlMessages         ,-    outputMessageReadNumControlMessages     ,-    outputMessageWriteNumControlMessages    ,----- ** NumVectors-    outputMessageNumVectors                 ,-    outputMessageReadNumVectors             ,-    outputMessageWriteNumVectors            ,----- ** Vectors-    outputMessageClearVectors               ,-    outputMessageReadVectors                ,-    outputMessageVectors                    ,-    outputMessageWriteVectors               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype OutputMessage = OutputMessage (ForeignPtr OutputMessage)-instance WrappedPtr OutputMessage where-    wrappedPtrCalloc = callocBytes 40-    wrappedPtrCopy = copyPtr 40-    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---noOutputMessage :: Maybe OutputMessage-noOutputMessage = Nothing--outputMessageReadAddress :: MonadIO m => OutputMessage -> m (Maybe SocketAddress)-outputMessageReadAddress s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr SocketAddress)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject SocketAddress) val'-        return val''-    return result--outputMessageWriteAddress :: MonadIO m => OutputMessage -> Ptr SocketAddress -> m ()-outputMessageWriteAddress s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr SocketAddress)--outputMessageClearAddress :: MonadIO m => OutputMessage -> m ()-outputMessageClearAddress s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr SocketAddress)--data OutputMessageAddressFieldInfo-instance AttrInfo OutputMessageAddressFieldInfo where-    type AttrAllowedOps OutputMessageAddressFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint OutputMessageAddressFieldInfo = (~) (Ptr SocketAddress)-    type AttrBaseTypeConstraint OutputMessageAddressFieldInfo = (~) OutputMessage-    type AttrGetType OutputMessageAddressFieldInfo = Maybe SocketAddress-    type AttrLabel OutputMessageAddressFieldInfo = "address"-    attrGet _ = outputMessageReadAddress-    attrSet _ = outputMessageWriteAddress-    attrConstruct = undefined-    attrClear _ = outputMessageClearAddress--outputMessageAddress :: AttrLabelProxy "address"-outputMessageAddress = AttrLabelProxy---outputMessageReadVectors :: MonadIO m => OutputMessage -> m (Maybe OutputVector)-outputMessageReadVectors s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr OutputVector)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr OutputVector) val'-        return val''-    return result--outputMessageWriteVectors :: MonadIO m => OutputMessage -> Ptr OutputVector -> m ()-outputMessageWriteVectors s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr OutputVector)--outputMessageClearVectors :: MonadIO m => OutputMessage -> m ()-outputMessageClearVectors s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr OutputVector)--data OutputMessageVectorsFieldInfo-instance AttrInfo OutputMessageVectorsFieldInfo where-    type AttrAllowedOps OutputMessageVectorsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint OutputMessageVectorsFieldInfo = (~) (Ptr OutputVector)-    type AttrBaseTypeConstraint OutputMessageVectorsFieldInfo = (~) OutputMessage-    type AttrGetType OutputMessageVectorsFieldInfo = Maybe OutputVector-    type AttrLabel OutputMessageVectorsFieldInfo = "vectors"-    attrGet _ = outputMessageReadVectors-    attrSet _ = outputMessageWriteVectors-    attrConstruct = undefined-    attrClear _ = outputMessageClearVectors--outputMessageVectors :: AttrLabelProxy "vectors"-outputMessageVectors = AttrLabelProxy---outputMessageReadNumVectors :: MonadIO m => OutputMessage -> m Word32-outputMessageReadNumVectors s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Word32-    return val--outputMessageWriteNumVectors :: MonadIO m => OutputMessage -> Word32 -> m ()-outputMessageWriteNumVectors s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Word32)--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"-    attrGet _ = outputMessageReadNumVectors-    attrSet _ = outputMessageWriteNumVectors-    attrConstruct = undefined-    attrClear _ = undefined--outputMessageNumVectors :: AttrLabelProxy "numVectors"-outputMessageNumVectors = AttrLabelProxy---outputMessageReadBytesSent :: MonadIO m => OutputMessage -> m Word32-outputMessageReadBytesSent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--outputMessageWriteBytesSent :: MonadIO m => OutputMessage -> Word32 -> m ()-outputMessageWriteBytesSent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Word32)--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"-    attrGet _ = outputMessageReadBytesSent-    attrSet _ = outputMessageWriteBytesSent-    attrConstruct = undefined-    attrClear _ = undefined--outputMessageBytesSent :: AttrLabelProxy "bytesSent"-outputMessageBytesSent = AttrLabelProxy----- XXX Skipped attribute for "OutputMessage:control_messages" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 5 (TInterface \"Gio\" \"SocketControlMessage\")"-outputMessageReadNumControlMessages :: MonadIO m => OutputMessage -> m Word32-outputMessageReadNumControlMessages s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--outputMessageWriteNumControlMessages :: MonadIO m => OutputMessage -> Word32 -> m ()-outputMessageWriteNumControlMessages s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Word32)--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"-    attrGet _ = outputMessageReadNumControlMessages-    attrSet _ = outputMessageWriteNumControlMessages-    attrConstruct = undefined-    attrClear _ = undefined--outputMessageNumControlMessages :: AttrLabelProxy "numControlMessages"-outputMessageNumControlMessages = AttrLabelProxy----type instance AttributeList OutputMessage = OutputMessageAttributeList-type OutputMessageAttributeList = ('[ '("address", OutputMessageAddressFieldInfo), '("vectors", OutputMessageVectorsFieldInfo), '("numVectors", OutputMessageNumVectorsFieldInfo), '("bytesSent", OutputMessageBytesSentFieldInfo), '("numControlMessages", OutputMessageNumControlMessagesFieldInfo)] :: [(Symbol, *)])--type family ResolveOutputMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveOutputMessageMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveOutputMessageMethod t OutputMessage, MethodInfo info OutputMessage p) => IsLabelProxy t (OutputMessage -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveOutputMessageMethod t OutputMessage, MethodInfo info OutputMessage p) => IsLabel t (OutputMessage -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/OutputMessage.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.OutputMessage where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype OutputMessage = OutputMessage (ForeignPtr OutputMessage)-instance WrappedPtr OutputMessage where
− GI/Gio/Structs/OutputVector.hs 
@@ -1,140 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--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.--}--module GI.Gio.Structs.OutputVector-    ( ---- * Exported types-    OutputVector(..)                        ,-    newZeroOutputVector                     ,-    noOutputVector                          ,--- -- * Properties--- ** Buffer-    outputVectorBuffer                      ,-    outputVectorClearBuffer                 ,-    outputVectorReadBuffer                  ,-    outputVectorWriteBuffer                 ,----- ** Size-    outputVectorReadSize                    ,-    outputVectorSize                        ,-    outputVectorWriteSize                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype OutputVector = OutputVector (ForeignPtr OutputVector)-instance WrappedPtr OutputVector where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = copyPtr 16-    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---noOutputVector :: Maybe OutputVector-noOutputVector = Nothing--outputVectorReadBuffer :: MonadIO m => OutputVector -> m (Ptr ())-outputVectorReadBuffer s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--outputVectorWriteBuffer :: MonadIO m => OutputVector -> Ptr () -> m ()-outputVectorWriteBuffer s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ())--outputVectorClearBuffer :: MonadIO m => OutputVector -> m ()-outputVectorClearBuffer s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ())--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"-    attrGet _ = outputVectorReadBuffer-    attrSet _ = outputVectorWriteBuffer-    attrConstruct = undefined-    attrClear _ = outputVectorClearBuffer--outputVectorBuffer :: AttrLabelProxy "buffer"-outputVectorBuffer = AttrLabelProxy---outputVectorReadSize :: MonadIO m => OutputVector -> m Word64-outputVectorReadSize s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word64-    return val--outputVectorWriteSize :: MonadIO m => OutputVector -> Word64 -> m ()-outputVectorWriteSize s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Word64)--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"-    attrGet _ = outputVectorReadSize-    attrSet _ = outputVectorWriteSize-    attrConstruct = undefined-    attrClear _ = undefined--outputVectorSize :: AttrLabelProxy "size"-outputVectorSize = AttrLabelProxy----type instance AttributeList OutputVector = OutputVectorAttributeList-type OutputVectorAttributeList = ('[ '("buffer", OutputVectorBufferFieldInfo), '("size", OutputVectorSizeFieldInfo)] :: [(Symbol, *)])--type family ResolveOutputVectorMethod (t :: Symbol) (o :: *) :: * where-    ResolveOutputVectorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveOutputVectorMethod t OutputVector, MethodInfo info OutputVector p) => IsLabelProxy t (OutputVector -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveOutputVectorMethod t OutputVector, MethodInfo info OutputVector p) => IsLabel t (OutputVector -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/OutputVector.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.OutputVector where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype OutputVector = OutputVector (ForeignPtr OutputVector)-instance WrappedPtr OutputVector where
− GI/Gio/Structs/Resource.hs 
@@ -1,479 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--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 #GResource 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 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>-  </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-]|--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 g_resource_load(). 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 #GResource object. The register and unregister functions-register the resource so its files can be accessed using-g_resources_lookup_data().--Once a #GResource has been created and registered all the data in it can be accessed globally in the process by-using API calls like g_resources_open_stream() to stream the data or g_resources_lookup_data() to get a direct pointer-to the data. You can also use URIs like "resource:///org/gtk/Example/data/splashscreen.png" with #GFile to access-the resource data.--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 #GResource on startup-or library load time. If you pass --manual-register two functions to register/unregister the resource is instead-created. This requires an explicit initialization call in your application/library, but it works on all platforms,-even on the minor ones where this is not available. (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-is for your own resources, and resource data is often used once, during parsing, and then released.--}--module GI.Gio.Structs.Resource-    ( ---- * Exported types-    Resource(..)                            ,-    noResource                              ,--- -- * Methods--- ** resourceEnumerateChildren-    ResourceEnumerateChildrenMethodInfo     ,-    resourceEnumerateChildren               ,----- ** resourceGetInfo-    ResourceGetInfoMethodInfo               ,-    resourceGetInfo                         ,----- ** resourceLoad-    resourceLoad                            ,----- ** resourceLookupData-    ResourceLookupDataMethodInfo            ,-    resourceLookupData                      ,----- ** resourceNewFromData-    resourceNewFromData                     ,----- ** resourceOpenStream-    ResourceOpenStreamMethodInfo            ,-    resourceOpenStream                      ,----- ** resourceRef-    ResourceRefMethodInfo                   ,-    resourceRef                             ,----- ** resourceUnref-    ResourceUnrefMethodInfo                 ,-    resourceUnref                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib--newtype Resource = Resource (ForeignPtr 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--noResource :: Maybe Resource-noResource = Nothing---type instance AttributeList Resource = ResourceAttributeList-type ResourceAttributeList = ('[ ] :: [(Symbol, *)])---- method Resource::new_from_data--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Resource")--- throws : True--- Skip return : False--foreign import ccall "g_resource_new_from_data" g_resource_new_from_data :: -    Ptr GLib.Bytes ->                       -- data : TInterface "GLib" "Bytes"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Resource)---resourceNewFromData ::-    (MonadIO m) =>-    GLib.Bytes                              -- data_-    -> m Resource                           -- result-resourceNewFromData data_ = liftIO $ do-    let data_' = unsafeManagedPtrGetPtr data_-    onException (do-        result <- propagateGError $ g_resource_new_from_data data_'-        checkUnexpectedReturnNULL "g_resource_new_from_data" result-        result' <- (wrapBoxed Resource) result-        touchManagedPtr data_-        return result'-     ) (do-        return ()-     )---- method Resource::enumerate_children--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Resource"-    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface "Gio" "ResourceLookupFlags"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---resourceEnumerateChildren ::-    (MonadIO m) =>-    Resource                                -- _obj-    -> T.Text                               -- path-    -> [ResourceLookupFlags]                -- lookupFlags-    -> m [T.Text]                           -- result-resourceEnumerateChildren _obj path lookupFlags = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resource_enumerate_children _obj' path' lookupFlags'-        checkUnexpectedReturnNULL "g_resource_enumerate_children" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr _obj-        freeMem path'-        return result'-     ) (do-        freeMem path'-     )--data ResourceEnumerateChildrenMethodInfo-instance (signature ~ (T.Text -> [ResourceLookupFlags] -> m [T.Text]), MonadIO m) => MethodInfo ResourceEnumerateChildrenMethodInfo Resource signature where-    overloadedMethod _ = resourceEnumerateChildren---- method Resource::get_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Resource"-    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface "Gio" "ResourceLookupFlags"-    Ptr Word64 ->                           -- size : TBasicType TUInt64-    Ptr Word32 ->                           -- flags : TBasicType TUInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt---resourceGetInfo ::-    (MonadIO m) =>-    Resource                                -- _obj-    -> T.Text                               -- path-    -> [ResourceLookupFlags]                -- lookupFlags-    -> m (Word64,Word32)                    -- result-resourceGetInfo _obj path lookupFlags = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    size <- allocMem :: IO (Ptr Word64)-    flags <- allocMem :: IO (Ptr Word32)-    onException (do-        _ <- propagateGError $ g_resource_get_info _obj' path' lookupFlags' size flags-        size' <- peek size-        flags' <- peek flags-        touchManagedPtr _obj-        freeMem path'-        freeMem size-        freeMem flags-        return (size', flags')-     ) (do-        freeMem path'-        freeMem size-        freeMem flags-     )--data ResourceGetInfoMethodInfo-instance (signature ~ (T.Text -> [ResourceLookupFlags] -> m (Word64,Word32)), MonadIO m) => MethodInfo ResourceGetInfoMethodInfo Resource signature where-    overloadedMethod _ = resourceGetInfo---- method Resource::lookup_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "Bytes")--- throws : True--- Skip return : False--foreign import ccall "g_resource_lookup_data" g_resource_lookup_data :: -    Ptr Resource ->                         -- _obj : TInterface "Gio" "Resource"-    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface "Gio" "ResourceLookupFlags"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GLib.Bytes)---resourceLookupData ::-    (MonadIO m) =>-    Resource                                -- _obj-    -> T.Text                               -- path-    -> [ResourceLookupFlags]                -- lookupFlags-    -> m GLib.Bytes                         -- result-resourceLookupData _obj path lookupFlags = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resource_lookup_data _obj' path' lookupFlags'-        checkUnexpectedReturnNULL "g_resource_lookup_data" result-        result' <- (wrapBoxed GLib.Bytes) result-        touchManagedPtr _obj-        freeMem path'-        return result'-     ) (do-        freeMem path'-     )--data ResourceLookupDataMethodInfo-instance (signature ~ (T.Text -> [ResourceLookupFlags] -> m GLib.Bytes), MonadIO m) => MethodInfo ResourceLookupDataMethodInfo Resource signature where-    overloadedMethod _ = resourceLookupData---- method Resource::open_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : True--- Skip return : False--foreign import ccall "g_resource_open_stream" g_resource_open_stream :: -    Ptr Resource ->                         -- _obj : TInterface "Gio" "Resource"-    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface "Gio" "ResourceLookupFlags"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr InputStream)---resourceOpenStream ::-    (MonadIO m) =>-    Resource                                -- _obj-    -> T.Text                               -- path-    -> [ResourceLookupFlags]                -- lookupFlags-    -> m InputStream                        -- result-resourceOpenStream _obj path lookupFlags = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resource_open_stream _obj' path' lookupFlags'-        checkUnexpectedReturnNULL "g_resource_open_stream" result-        result' <- (wrapObject InputStream) result-        touchManagedPtr _obj-        freeMem path'-        return result'-     ) (do-        freeMem path'-     )--data ResourceOpenStreamMethodInfo-instance (signature ~ (T.Text -> [ResourceLookupFlags] -> m InputStream), MonadIO m) => MethodInfo ResourceOpenStreamMethodInfo Resource signature where-    overloadedMethod _ = resourceOpenStream---- method Resource::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Resource")--- throws : False--- Skip return : False--foreign import ccall "g_resource_ref" g_resource_ref :: -    Ptr Resource ->                         -- _obj : TInterface "Gio" "Resource"-    IO (Ptr Resource)---resourceRef ::-    (MonadIO m) =>-    Resource                                -- _obj-    -> m Resource                           -- result-resourceRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_resource_ref _obj'-    checkUnexpectedReturnNULL "g_resource_ref" result-    result' <- (wrapBoxed Resource) result-    touchManagedPtr _obj-    return result'--data ResourceRefMethodInfo-instance (signature ~ (m Resource), MonadIO m) => MethodInfo ResourceRefMethodInfo Resource signature where-    overloadedMethod _ = resourceRef---- method Resource::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, 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 ->                         -- _obj : TInterface "Gio" "Resource"-    IO ()---resourceUnref ::-    (MonadIO m) =>-    Resource                                -- _obj-    -> m ()                                 -- result-resourceUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_resource_unref _obj'-    touchManagedPtr _obj-    return ()--data ResourceUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo ResourceUnrefMethodInfo Resource signature where-    overloadedMethod _ = resourceUnref---- method Resource::load--- method type : MemberFunction--- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---resourceLoad ::-    (MonadIO m) =>-    [Char]                                  -- filename-    -> m Resource                           -- result-resourceLoad filename = liftIO $ do-    filename' <- stringToCString filename-    onException (do-        result <- propagateGError $ g_resource_load filename'-        checkUnexpectedReturnNULL "g_resource_load" result-        result' <- (wrapBoxed Resource) result-        freeMem filename'-        return result'-     ) (do-        freeMem filename'-     )--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 = MethodResolutionFailed l o--instance (info ~ ResolveResourceMethod t Resource, MethodInfo info Resource p) => IsLabelProxy t (Resource -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveResourceMethod t Resource, MethodInfo info Resource p) => IsLabel t (Resource -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/Resource.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Structs.Resource where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Resource = Resource (ForeignPtr Resource)-instance BoxedObject Resource where-data ResourceEnumerateChildrenMethodInfo-data ResourceGetInfoMethodInfo-data ResourceLookupDataMethodInfo-data ResourceOpenStreamMethodInfo-data ResourceRefMethodInfo-data ResourceUnrefMethodInfo
− GI/Gio/Structs/SettingsBackend.hs 
@@ -1,79 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #GSettingsBackend interface defines a generic interface for-non-strictly-typed data that is stored in a hierarchy. To implement-an alternative storage backend for #GSettings, you need to implement-the #GSettingsBackend interface and then make it implement the-extension point #G_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 GSettingsBackend functions accept or return a #GTree.-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 GSettingsBackend 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`.--}--module GI.Gio.Structs.SettingsBackend-    ( ---- * Exported types-    SettingsBackend(..)                     ,-    noSettingsBackend                       ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype SettingsBackend = SettingsBackend (ForeignPtr SettingsBackend)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr SettingsBackend where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing--noSettingsBackend :: Maybe SettingsBackend-noSettingsBackend = Nothing---type instance AttributeList SettingsBackend = SettingsBackendAttributeList-type SettingsBackendAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveSettingsBackendMethod (t :: Symbol) (o :: *) :: * where-    ResolveSettingsBackendMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSettingsBackendMethod t SettingsBackend, MethodInfo info SettingsBackend p) => IsLabelProxy t (SettingsBackend -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSettingsBackendMethod t SettingsBackend, MethodInfo info SettingsBackend p) => IsLabel t (SettingsBackend -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/SettingsBackend.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.SettingsBackend where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SettingsBackend = SettingsBackend (ForeignPtr SettingsBackend)-instance WrappedPtr SettingsBackend where
− GI/Gio/Structs/SettingsSchema.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 (garetxe@gmail.com)--The #GSettingsSchemaSource and #GSettingsSchema 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.--#GSettingsSchemaSource 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:--|[<!-- language="C" -->-typedef struct-{-   ...-   GSettingsSchemaSource *schema_source;-   ...-} Plugin;--Plugin *-initialise_plugin (const gchar *dir)-{-  Plugin *plugin;--  ...--  plugin->schema_source =-    g_settings_new_schema_source_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:--|[<!-- language="C" -->-{-  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.--}--module GI.Gio.Structs.SettingsSchema-    ( ---- * Exported types-    SettingsSchema(..)                      ,-    noSettingsSchema                        ,--- -- * Methods--- ** settingsSchemaGetId-    SettingsSchemaGetIdMethodInfo           ,-    settingsSchemaGetId                     ,----- ** settingsSchemaGetKey-    SettingsSchemaGetKeyMethodInfo          ,-    settingsSchemaGetKey                    ,----- ** settingsSchemaGetPath-    SettingsSchemaGetPathMethodInfo         ,-    settingsSchemaGetPath                   ,----- ** settingsSchemaHasKey-    SettingsSchemaHasKeyMethodInfo          ,-    settingsSchemaHasKey                    ,----- ** settingsSchemaListChildren-    SettingsSchemaListChildrenMethodInfo    ,-    settingsSchemaListChildren              ,----- ** settingsSchemaListKeys-    SettingsSchemaListKeysMethodInfo        ,-    settingsSchemaListKeys                  ,----- ** settingsSchemaRef-    SettingsSchemaRefMethodInfo             ,-    settingsSchemaRef                       ,----- ** settingsSchemaUnref-    SettingsSchemaUnrefMethodInfo           ,-    settingsSchemaUnref                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype SettingsSchema = SettingsSchema (ForeignPtr 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--noSettingsSchema :: Maybe SettingsSchema-noSettingsSchema = Nothing---type instance AttributeList SettingsSchema = SettingsSchemaAttributeList-type SettingsSchemaAttributeList = ('[ ] :: [(Symbol, *)])---- method SettingsSchema::get_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "SettingsSchema"-    IO CString---settingsSchemaGetId ::-    (MonadIO m) =>-    SettingsSchema                          -- _obj-    -> m T.Text                             -- result-settingsSchemaGetId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_get_id _obj'-    checkUnexpectedReturnNULL "g_settings_schema_get_id" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsSchemaGetIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SettingsSchemaGetIdMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaGetId---- method SettingsSchema::get_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SettingsSchemaKey")--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_get_key" g_settings_schema_get_key :: -    Ptr SettingsSchema ->                   -- _obj : TInterface "Gio" "SettingsSchema"-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr SettingsSchemaKey)---settingsSchemaGetKey ::-    (MonadIO m) =>-    SettingsSchema                          -- _obj-    -> T.Text                               -- name-    -> m SettingsSchemaKey                  -- result-settingsSchemaGetKey _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- g_settings_schema_get_key _obj' name'-    checkUnexpectedReturnNULL "g_settings_schema_get_key" result-    result' <- (wrapBoxed SettingsSchemaKey) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data SettingsSchemaGetKeyMethodInfo-instance (signature ~ (T.Text -> m SettingsSchemaKey), MonadIO m) => MethodInfo SettingsSchemaGetKeyMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaGetKey---- method SettingsSchema::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "SettingsSchema"-    IO CString---settingsSchemaGetPath ::-    (MonadIO m) =>-    SettingsSchema                          -- _obj-    -> m T.Text                             -- result-settingsSchemaGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_get_path _obj'-    checkUnexpectedReturnNULL "g_settings_schema_get_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsSchemaGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SettingsSchemaGetPathMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaGetPath---- method SettingsSchema::has_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "SettingsSchema"-    CString ->                              -- name : TBasicType TUTF8-    IO CInt---settingsSchemaHasKey ::-    (MonadIO m) =>-    SettingsSchema                          -- _obj-    -> T.Text                               -- name-    -> m Bool                               -- result-settingsSchemaHasKey _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- g_settings_schema_has_key _obj' name'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem name'-    return result'--data SettingsSchemaHasKeyMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo SettingsSchemaHasKeyMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaHasKey---- method SettingsSchema::list_children--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "SettingsSchema"-    IO (Ptr CString)---settingsSchemaListChildren ::-    (MonadIO m) =>-    SettingsSchema                          -- _obj-    -> m [T.Text]                           -- result-settingsSchemaListChildren _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_list_children _obj'-    checkUnexpectedReturnNULL "g_settings_schema_list_children" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    return result'--data SettingsSchemaListChildrenMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo SettingsSchemaListChildrenMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaListChildren---- method SettingsSchema::list_keys--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "SettingsSchema"-    IO (Ptr CString)---settingsSchemaListKeys ::-    (MonadIO m) =>-    SettingsSchema                          -- _obj-    -> m [T.Text]                           -- result-settingsSchemaListKeys _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_list_keys _obj'-    checkUnexpectedReturnNULL "g_settings_schema_list_keys" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    return result'--data SettingsSchemaListKeysMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo SettingsSchemaListKeysMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaListKeys---- method SettingsSchema::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SettingsSchema")--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_ref" g_settings_schema_ref :: -    Ptr SettingsSchema ->                   -- _obj : TInterface "Gio" "SettingsSchema"-    IO (Ptr SettingsSchema)---settingsSchemaRef ::-    (MonadIO m) =>-    SettingsSchema                          -- _obj-    -> m SettingsSchema                     -- result-settingsSchemaRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_ref _obj'-    checkUnexpectedReturnNULL "g_settings_schema_ref" result-    result' <- (wrapBoxed SettingsSchema) result-    touchManagedPtr _obj-    return result'--data SettingsSchemaRefMethodInfo-instance (signature ~ (m SettingsSchema), MonadIO m) => MethodInfo SettingsSchemaRefMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaRef---- method SettingsSchema::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "SettingsSchema"-    IO ()---settingsSchemaUnref ::-    (MonadIO m) =>-    SettingsSchema                          -- _obj-    -> m ()                                 -- result-settingsSchemaUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_settings_schema_unref _obj'-    touchManagedPtr _obj-    return ()--data SettingsSchemaUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo SettingsSchemaUnrefMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaUnref--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 = MethodResolutionFailed l o--instance (info ~ ResolveSettingsSchemaMethod t SettingsSchema, MethodInfo info SettingsSchema p) => IsLabelProxy t (SettingsSchema -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSettingsSchemaMethod t SettingsSchema, MethodInfo info SettingsSchema p) => IsLabel t (SettingsSchema -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/SettingsSchema.hs-boot 
@@ -1,19 +0,0 @@-module GI.Gio.Structs.SettingsSchema where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SettingsSchema = SettingsSchema (ForeignPtr SettingsSchema)-instance BoxedObject SettingsSchema where-data SettingsSchemaGetIdMethodInfo-data SettingsSchemaGetKeyMethodInfo-data SettingsSchemaGetPathMethodInfo-data SettingsSchemaHasKeyMethodInfo-data SettingsSchemaListChildrenMethodInfo-data SettingsSchemaListKeysMethodInfo-data SettingsSchemaRefMethodInfo-data SettingsSchemaUnrefMethodInfo
− GI/Gio/Structs/SettingsSchemaKey.hs 
@@ -1,376 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--#GSettingsSchemaKey is an opaque data structure and can only be accessed-using the following functions.--}--module GI.Gio.Structs.SettingsSchemaKey-    ( ---- * Exported types-    SettingsSchemaKey(..)                   ,-    noSettingsSchemaKey                     ,--- -- * Methods--- ** settingsSchemaKeyGetDefaultValue-    SettingsSchemaKeyGetDefaultValueMethodInfo,-    settingsSchemaKeyGetDefaultValue        ,----- ** settingsSchemaKeyGetDescription-    SettingsSchemaKeyGetDescriptionMethodInfo,-    settingsSchemaKeyGetDescription         ,----- ** settingsSchemaKeyGetName-    SettingsSchemaKeyGetNameMethodInfo      ,-    settingsSchemaKeyGetName                ,----- ** settingsSchemaKeyGetRange-    SettingsSchemaKeyGetRangeMethodInfo     ,-    settingsSchemaKeyGetRange               ,----- ** settingsSchemaKeyGetSummary-    SettingsSchemaKeyGetSummaryMethodInfo   ,-    settingsSchemaKeyGetSummary             ,----- ** settingsSchemaKeyGetValueType-    SettingsSchemaKeyGetValueTypeMethodInfo ,-    settingsSchemaKeyGetValueType           ,----- ** settingsSchemaKeyRangeCheck-    SettingsSchemaKeyRangeCheckMethodInfo   ,-    settingsSchemaKeyRangeCheck             ,----- ** settingsSchemaKeyRef-    SettingsSchemaKeyRefMethodInfo          ,-    settingsSchemaKeyRef                    ,----- ** settingsSchemaKeyUnref-    SettingsSchemaKeyUnrefMethodInfo        ,-    settingsSchemaKeyUnref                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks-import qualified GI.GLib as GLib--newtype SettingsSchemaKey = SettingsSchemaKey (ForeignPtr 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--noSettingsSchemaKey :: Maybe SettingsSchemaKey-noSettingsSchemaKey = Nothing---type instance AttributeList SettingsSchemaKey = SettingsSchemaKeyAttributeList-type SettingsSchemaKeyAttributeList = ('[ ] :: [(Symbol, *)])---- method SettingsSchemaKey::get_default_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SettingsSchemaKey"-    IO (Ptr GVariant)---settingsSchemaKeyGetDefaultValue ::-    (MonadIO m) =>-    SettingsSchemaKey                       -- _obj-    -> m GVariant                           -- result-settingsSchemaKeyGetDefaultValue _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_key_get_default_value _obj'-    checkUnexpectedReturnNULL "g_settings_schema_key_get_default_value" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    return result'--data SettingsSchemaKeyGetDefaultValueMethodInfo-instance (signature ~ (m GVariant), MonadIO m) => MethodInfo SettingsSchemaKeyGetDefaultValueMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetDefaultValue---- method SettingsSchemaKey::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SettingsSchemaKey"-    IO CString---settingsSchemaKeyGetDescription ::-    (MonadIO m) =>-    SettingsSchemaKey                       -- _obj-    -> m T.Text                             -- result-settingsSchemaKeyGetDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_key_get_description _obj'-    checkUnexpectedReturnNULL "g_settings_schema_key_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsSchemaKeyGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SettingsSchemaKeyGetDescriptionMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetDescription---- method SettingsSchemaKey::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SettingsSchemaKey"-    IO CString---settingsSchemaKeyGetName ::-    (MonadIO m) =>-    SettingsSchemaKey                       -- _obj-    -> m T.Text                             -- result-settingsSchemaKeyGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_key_get_name _obj'-    checkUnexpectedReturnNULL "g_settings_schema_key_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsSchemaKeyGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SettingsSchemaKeyGetNameMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetName---- method SettingsSchemaKey::get_range--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SettingsSchemaKey"-    IO (Ptr GVariant)---settingsSchemaKeyGetRange ::-    (MonadIO m) =>-    SettingsSchemaKey                       -- _obj-    -> m GVariant                           -- result-settingsSchemaKeyGetRange _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_key_get_range _obj'-    checkUnexpectedReturnNULL "g_settings_schema_key_get_range" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    return result'--data SettingsSchemaKeyGetRangeMethodInfo-instance (signature ~ (m GVariant), MonadIO m) => MethodInfo SettingsSchemaKeyGetRangeMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetRange---- method SettingsSchemaKey::get_summary--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SettingsSchemaKey"-    IO CString---settingsSchemaKeyGetSummary ::-    (MonadIO m) =>-    SettingsSchemaKey                       -- _obj-    -> m T.Text                             -- result-settingsSchemaKeyGetSummary _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_key_get_summary _obj'-    checkUnexpectedReturnNULL "g_settings_schema_key_get_summary" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SettingsSchemaKeyGetSummaryMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SettingsSchemaKeyGetSummaryMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetSummary---- method SettingsSchemaKey::get_value_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "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 ->                -- _obj : TInterface "Gio" "SettingsSchemaKey"-    IO (Ptr GLib.VariantType)---settingsSchemaKeyGetValueType ::-    (MonadIO m) =>-    SettingsSchemaKey                       -- _obj-    -> m GLib.VariantType                   -- result-settingsSchemaKeyGetValueType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_key_get_value_type _obj'-    checkUnexpectedReturnNULL "g_settings_schema_key_get_value_type" result-    result' <- (newBoxed GLib.VariantType) result-    touchManagedPtr _obj-    return result'--data SettingsSchemaKeyGetValueTypeMethodInfo-instance (signature ~ (m GLib.VariantType), MonadIO m) => MethodInfo SettingsSchemaKeyGetValueTypeMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetValueType---- method SettingsSchemaKey::range_check--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SettingsSchemaKey"-    Ptr GVariant ->                         -- value : TVariant-    IO CInt---settingsSchemaKeyRangeCheck ::-    (MonadIO m) =>-    SettingsSchemaKey                       -- _obj-    -> GVariant                             -- value-    -> m Bool                               -- result-settingsSchemaKeyRangeCheck _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let value' = unsafeManagedPtrGetPtr value-    result <- g_settings_schema_key_range_check _obj' value'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SettingsSchemaKeyRangeCheckMethodInfo-instance (signature ~ (GVariant -> m Bool), MonadIO m) => MethodInfo SettingsSchemaKeyRangeCheckMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyRangeCheck---- method SettingsSchemaKey::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SettingsSchemaKey")--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_key_ref" g_settings_schema_key_ref :: -    Ptr SettingsSchemaKey ->                -- _obj : TInterface "Gio" "SettingsSchemaKey"-    IO (Ptr SettingsSchemaKey)---settingsSchemaKeyRef ::-    (MonadIO m) =>-    SettingsSchemaKey                       -- _obj-    -> m SettingsSchemaKey                  -- result-settingsSchemaKeyRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_key_ref _obj'-    checkUnexpectedReturnNULL "g_settings_schema_key_ref" result-    result' <- (wrapBoxed SettingsSchemaKey) result-    touchManagedPtr _obj-    return result'--data SettingsSchemaKeyRefMethodInfo-instance (signature ~ (m SettingsSchemaKey), MonadIO m) => MethodInfo SettingsSchemaKeyRefMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyRef---- method SettingsSchemaKey::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, 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 ->                -- _obj : TInterface "Gio" "SettingsSchemaKey"-    IO ()---settingsSchemaKeyUnref ::-    (MonadIO m) =>-    SettingsSchemaKey                       -- _obj-    -> m ()                                 -- result-settingsSchemaKeyUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_settings_schema_key_unref _obj'-    touchManagedPtr _obj-    return ()--data SettingsSchemaKeyUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo SettingsSchemaKeyUnrefMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyUnref--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 = MethodResolutionFailed l o--instance (info ~ ResolveSettingsSchemaKeyMethod t SettingsSchemaKey, MethodInfo info SettingsSchemaKey p) => IsLabelProxy t (SettingsSchemaKey -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSettingsSchemaKeyMethod t SettingsSchemaKey, MethodInfo info SettingsSchemaKey p) => IsLabel t (SettingsSchemaKey -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/SettingsSchemaKey.hs-boot 
@@ -1,20 +0,0 @@-module GI.Gio.Structs.SettingsSchemaKey where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SettingsSchemaKey = SettingsSchemaKey (ForeignPtr SettingsSchemaKey)-instance BoxedObject SettingsSchemaKey where-data SettingsSchemaKeyGetDefaultValueMethodInfo-data SettingsSchemaKeyGetDescriptionMethodInfo-data SettingsSchemaKeyGetNameMethodInfo-data SettingsSchemaKeyGetRangeMethodInfo-data SettingsSchemaKeyGetSummaryMethodInfo-data SettingsSchemaKeyGetValueTypeMethodInfo-data SettingsSchemaKeyRangeCheckMethodInfo-data SettingsSchemaKeyRefMethodInfo-data SettingsSchemaKeyUnrefMethodInfo
− GI/Gio/Structs/SettingsSchemaSource.hs 
@@ -1,290 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--This is an opaque structure type.  You may not access it directly.--}--module GI.Gio.Structs.SettingsSchemaSource-    ( ---- * Exported types-    SettingsSchemaSource(..)                ,-    noSettingsSchemaSource                  ,--- -- * Methods--- ** settingsSchemaSourceGetDefault-    settingsSchemaSourceGetDefault          ,----- ** settingsSchemaSourceListSchemas-    SettingsSchemaSourceListSchemasMethodInfo,-    settingsSchemaSourceListSchemas         ,----- ** settingsSchemaSourceLookup-    SettingsSchemaSourceLookupMethodInfo    ,-    settingsSchemaSourceLookup              ,----- ** settingsSchemaSourceNewFromDirectory-    settingsSchemaSourceNewFromDirectory    ,----- ** settingsSchemaSourceRef-    SettingsSchemaSourceRefMethodInfo       ,-    settingsSchemaSourceRef                 ,----- ** settingsSchemaSourceUnref-    SettingsSchemaSourceUnrefMethodInfo     ,-    settingsSchemaSourceUnref               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype SettingsSchemaSource = SettingsSchemaSource (ForeignPtr 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--noSettingsSchemaSource :: Maybe SettingsSchemaSource-noSettingsSchemaSource = Nothing---type instance AttributeList SettingsSchemaSource = SettingsSchemaSourceAttributeList-type SettingsSchemaSourceAttributeList = ('[ ] :: [(Symbol, *)])---- method SettingsSchemaSource::new_from_directory--- method type : Constructor--- Args : [Arg {argCName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trusted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 TUTF8-    Ptr SettingsSchemaSource ->             -- parent : TInterface "Gio" "SettingsSchemaSource"-    CInt ->                                 -- trusted : TBasicType TBoolean-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SettingsSchemaSource)---settingsSchemaSourceNewFromDirectory ::-    (MonadIO m) =>-    T.Text                                  -- directory-    -> Maybe (SettingsSchemaSource)         -- parent-    -> Bool                                 -- trusted-    -> m SettingsSchemaSource               -- result-settingsSchemaSourceNewFromDirectory directory parent trusted = liftIO $ do-    directory' <- textToCString directory-    maybeParent <- case parent of-        Nothing -> return nullPtr-        Just jParent -> do-            let 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 "g_settings_schema_source_new_from_directory" result-        result' <- (wrapBoxed SettingsSchemaSource) result-        whenJust parent touchManagedPtr-        freeMem directory'-        return result'-     ) (do-        freeMem directory'-     )---- method SettingsSchemaSource::list_schemas--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "recursive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, 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, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "relocatable", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "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 ()---settingsSchemaSourceListSchemas ::-    (MonadIO m) =>-    SettingsSchemaSource                    -- _obj-    -> Bool                                 -- recursive-    -> m ([T.Text],[T.Text])                -- result-settingsSchemaSourceListSchemas _obj recursive = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let recursive' = (fromIntegral . fromEnum) recursive-    nonRelocatable <- allocMem :: IO (Ptr (Ptr CString))-    relocatable <- allocMem :: IO (Ptr (Ptr CString))-    g_settings_schema_source_list_schemas _obj' 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 _obj-    freeMem nonRelocatable-    freeMem relocatable-    return (nonRelocatable'', relocatable'')--data SettingsSchemaSourceListSchemasMethodInfo-instance (signature ~ (Bool -> m ([T.Text],[T.Text])), MonadIO m) => MethodInfo SettingsSchemaSourceListSchemasMethodInfo SettingsSchemaSource signature where-    overloadedMethod _ = settingsSchemaSourceListSchemas---- method SettingsSchemaSource::lookup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "recursive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SettingsSchema")--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_source_lookup" g_settings_schema_source_lookup :: -    Ptr SettingsSchemaSource ->             -- _obj : TInterface "Gio" "SettingsSchemaSource"-    CString ->                              -- schema_id : TBasicType TUTF8-    CInt ->                                 -- recursive : TBasicType TBoolean-    IO (Ptr SettingsSchema)---settingsSchemaSourceLookup ::-    (MonadIO m) =>-    SettingsSchemaSource                    -- _obj-    -> T.Text                               -- schemaId-    -> Bool                                 -- recursive-    -> m (Maybe SettingsSchema)             -- result-settingsSchemaSourceLookup _obj schemaId recursive = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    schemaId' <- textToCString schemaId-    let recursive' = (fromIntegral . fromEnum) recursive-    result <- g_settings_schema_source_lookup _obj' schemaId' recursive'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed SettingsSchema) result'-        return result''-    touchManagedPtr _obj-    freeMem schemaId'-    return maybeResult--data SettingsSchemaSourceLookupMethodInfo-instance (signature ~ (T.Text -> Bool -> m (Maybe SettingsSchema)), MonadIO m) => MethodInfo SettingsSchemaSourceLookupMethodInfo SettingsSchemaSource signature where-    overloadedMethod _ = settingsSchemaSourceLookup---- method SettingsSchemaSource::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SettingsSchemaSource")--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_source_ref" g_settings_schema_source_ref :: -    Ptr SettingsSchemaSource ->             -- _obj : TInterface "Gio" "SettingsSchemaSource"-    IO (Ptr SettingsSchemaSource)---settingsSchemaSourceRef ::-    (MonadIO m) =>-    SettingsSchemaSource                    -- _obj-    -> m SettingsSchemaSource               -- result-settingsSchemaSourceRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_settings_schema_source_ref _obj'-    checkUnexpectedReturnNULL "g_settings_schema_source_ref" result-    result' <- (wrapBoxed SettingsSchemaSource) result-    touchManagedPtr _obj-    return result'--data SettingsSchemaSourceRefMethodInfo-instance (signature ~ (m SettingsSchemaSource), MonadIO m) => MethodInfo SettingsSchemaSourceRefMethodInfo SettingsSchemaSource signature where-    overloadedMethod _ = settingsSchemaSourceRef---- method SettingsSchemaSource::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, 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 ->             -- _obj : TInterface "Gio" "SettingsSchemaSource"-    IO ()---settingsSchemaSourceUnref ::-    (MonadIO m) =>-    SettingsSchemaSource                    -- _obj-    -> m ()                                 -- result-settingsSchemaSourceUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_settings_schema_source_unref _obj'-    touchManagedPtr _obj-    return ()--data SettingsSchemaSourceUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo SettingsSchemaSourceUnrefMethodInfo SettingsSchemaSource signature where-    overloadedMethod _ = settingsSchemaSourceUnref---- method SettingsSchemaSource::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gio" "SettingsSchemaSource")--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_source_get_default" g_settings_schema_source_get_default :: -    IO (Ptr SettingsSchemaSource)---settingsSchemaSourceGetDefault ::-    (MonadIO m) =>-    m SettingsSchemaSource                  -- result-settingsSchemaSourceGetDefault  = liftIO $ do-    result <- g_settings_schema_source_get_default-    checkUnexpectedReturnNULL "g_settings_schema_source_get_default" result-    result' <- (newBoxed SettingsSchemaSource) result-    return result'--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 = MethodResolutionFailed l o--instance (info ~ ResolveSettingsSchemaSourceMethod t SettingsSchemaSource, MethodInfo info SettingsSchemaSource p) => IsLabelProxy t (SettingsSchemaSource -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSettingsSchemaSourceMethod t SettingsSchemaSource, MethodInfo info SettingsSchemaSource p) => IsLabel t (SettingsSchemaSource -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/SettingsSchemaSource.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gio.Structs.SettingsSchemaSource where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SettingsSchemaSource = SettingsSchemaSource (ForeignPtr SettingsSchemaSource)-instance BoxedObject SettingsSchemaSource where-data SettingsSchemaSourceListSchemasMethodInfo-data SettingsSchemaSourceLookupMethodInfo-data SettingsSchemaSourceRefMethodInfo-data SettingsSchemaSourceUnrefMethodInfo
− GI/Gio/Structs/SrvTarget.hs 
@@ -1,309 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--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 g_resolver_lookup_service() or-g_resolver_lookup_service_async() to find the #GSrvTargets-for a given service. However, if you are simply planning to connect-to the remote service, you can use #GNetworkService's-#GSocketConnectable interface and not need to worry about-#GSrvTarget at all.--}--module GI.Gio.Structs.SrvTarget-    ( ---- * Exported types-    SrvTarget(..)                           ,-    noSrvTarget                             ,--- -- * Methods--- ** srvTargetCopy-    SrvTargetCopyMethodInfo                 ,-    srvTargetCopy                           ,----- ** srvTargetFree-    SrvTargetFreeMethodInfo                 ,-    srvTargetFree                           ,----- ** srvTargetGetHostname-    SrvTargetGetHostnameMethodInfo          ,-    srvTargetGetHostname                    ,----- ** srvTargetGetPort-    SrvTargetGetPortMethodInfo              ,-    srvTargetGetPort                        ,----- ** srvTargetGetPriority-    SrvTargetGetPriorityMethodInfo          ,-    srvTargetGetPriority                    ,----- ** srvTargetGetWeight-    SrvTargetGetWeightMethodInfo            ,-    srvTargetGetWeight                      ,----- ** srvTargetNew-    srvTargetNew                            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype SrvTarget = SrvTarget (ForeignPtr 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--noSrvTarget :: Maybe SrvTarget-noSrvTarget = Nothing---type instance AttributeList SrvTarget = SrvTargetAttributeList-type SrvTargetAttributeList = ('[ ] :: [(Symbol, *)])---- method SrvTarget::new--- method type : Constructor--- Args : [Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "weight", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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)---srvTargetNew ::-    (MonadIO m) =>-    T.Text                                  -- hostname-    -> Word16                               -- port-    -> Word16                               -- priority-    -> Word16                               -- weight-    -> m SrvTarget                          -- result-srvTargetNew hostname port priority weight = liftIO $ do-    hostname' <- textToCString hostname-    result <- g_srv_target_new hostname' port priority weight-    checkUnexpectedReturnNULL "g_srv_target_new" result-    result' <- (wrapBoxed SrvTarget) result-    freeMem hostname'-    return result'---- method SrvTarget::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SrvTarget")--- throws : False--- Skip return : False--foreign import ccall "g_srv_target_copy" g_srv_target_copy :: -    Ptr SrvTarget ->                        -- _obj : TInterface "Gio" "SrvTarget"-    IO (Ptr SrvTarget)---srvTargetCopy ::-    (MonadIO m) =>-    SrvTarget                               -- _obj-    -> m SrvTarget                          -- result-srvTargetCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_srv_target_copy _obj'-    checkUnexpectedReturnNULL "g_srv_target_copy" result-    result' <- (wrapBoxed SrvTarget) result-    touchManagedPtr _obj-    return result'--data SrvTargetCopyMethodInfo-instance (signature ~ (m SrvTarget), MonadIO m) => MethodInfo SrvTargetCopyMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetCopy---- method SrvTarget::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "SrvTarget"-    IO ()---srvTargetFree ::-    (MonadIO m) =>-    SrvTarget                               -- _obj-    -> m ()                                 -- result-srvTargetFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_srv_target_free _obj'-    touchManagedPtr _obj-    return ()--data SrvTargetFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo SrvTargetFreeMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetFree---- method SrvTarget::get_hostname--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "SrvTarget"-    IO CString---srvTargetGetHostname ::-    (MonadIO m) =>-    SrvTarget                               -- _obj-    -> m T.Text                             -- result-srvTargetGetHostname _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_srv_target_get_hostname _obj'-    checkUnexpectedReturnNULL "g_srv_target_get_hostname" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data SrvTargetGetHostnameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SrvTargetGetHostnameMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetGetHostname---- method SrvTarget::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "SrvTarget"-    IO Word16---srvTargetGetPort ::-    (MonadIO m) =>-    SrvTarget                               -- _obj-    -> m Word16                             -- result-srvTargetGetPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_srv_target_get_port _obj'-    touchManagedPtr _obj-    return result--data SrvTargetGetPortMethodInfo-instance (signature ~ (m Word16), MonadIO m) => MethodInfo SrvTargetGetPortMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetGetPort---- method SrvTarget::get_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "SrvTarget"-    IO Word16---srvTargetGetPriority ::-    (MonadIO m) =>-    SrvTarget                               -- _obj-    -> m Word16                             -- result-srvTargetGetPriority _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_srv_target_get_priority _obj'-    touchManagedPtr _obj-    return result--data SrvTargetGetPriorityMethodInfo-instance (signature ~ (m Word16), MonadIO m) => MethodInfo SrvTargetGetPriorityMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetGetPriority---- method SrvTarget::get_weight--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, 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 ->                        -- _obj : TInterface "Gio" "SrvTarget"-    IO Word16---srvTargetGetWeight ::-    (MonadIO m) =>-    SrvTarget                               -- _obj-    -> m Word16                             -- result-srvTargetGetWeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_srv_target_get_weight _obj'-    touchManagedPtr _obj-    return result--data SrvTargetGetWeightMethodInfo-instance (signature ~ (m Word16), MonadIO m) => MethodInfo SrvTargetGetWeightMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetGetWeight--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 = MethodResolutionFailed l o--instance (info ~ ResolveSrvTargetMethod t SrvTarget, MethodInfo info SrvTarget p) => IsLabelProxy t (SrvTarget -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSrvTargetMethod t SrvTarget, MethodInfo info SrvTarget p) => IsLabel t (SrvTarget -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/SrvTarget.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gio.Structs.SrvTarget where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SrvTarget = SrvTarget (ForeignPtr SrvTarget)-instance BoxedObject SrvTarget where-data SrvTargetCopyMethodInfo-data SrvTargetFreeMethodInfo-data SrvTargetGetHostnameMethodInfo-data SrvTargetGetPortMethodInfo-data SrvTargetGetPriorityMethodInfo-data SrvTargetGetWeightMethodInfo
− GI/Gio/Structs/StaticResource.hs 
@@ -1,172 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--#GStaticResource is an opaque data structure and can only be accessed-using the following functions.--}--module GI.Gio.Structs.StaticResource-    ( ---- * Exported types-    StaticResource(..)                      ,-    newZeroStaticResource                   ,-    noStaticResource                        ,--- -- * Methods--- ** staticResourceFini-    StaticResourceFiniMethodInfo            ,-    staticResourceFini                      ,----- ** staticResourceGetResource-    StaticResourceGetResourceMethodInfo     ,-    staticResourceGetResource               ,----- ** staticResourceInit-    StaticResourceInitMethodInfo            ,-    staticResourceInit                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype StaticResource = StaticResource (ForeignPtr StaticResource)-instance WrappedPtr StaticResource where-    wrappedPtrCalloc = callocBytes 40-    wrappedPtrCopy = copyPtr 40-    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---noStaticResource :: Maybe StaticResource-noStaticResource = Nothing---type instance AttributeList StaticResource = StaticResourceAttributeList-type StaticResourceAttributeList = ('[ ] :: [(Symbol, *)])---- method StaticResource::fini--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "StaticResource"-    IO ()---staticResourceFini ::-    (MonadIO m) =>-    StaticResource                          -- _obj-    -> m ()                                 -- result-staticResourceFini _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_static_resource_fini _obj'-    touchManagedPtr _obj-    return ()--data StaticResourceFiniMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo StaticResourceFiniMethodInfo StaticResource signature where-    overloadedMethod _ = staticResourceFini---- method StaticResource::get_resource--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Resource")--- throws : False--- Skip return : False--foreign import ccall "g_static_resource_get_resource" g_static_resource_get_resource :: -    Ptr StaticResource ->                   -- _obj : TInterface "Gio" "StaticResource"-    IO (Ptr Resource)---staticResourceGetResource ::-    (MonadIO m) =>-    StaticResource                          -- _obj-    -> m Resource                           -- result-staticResourceGetResource _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_static_resource_get_resource _obj'-    checkUnexpectedReturnNULL "g_static_resource_get_resource" result-    result' <- (newBoxed Resource) result-    touchManagedPtr _obj-    return result'--data StaticResourceGetResourceMethodInfo-instance (signature ~ (m Resource), MonadIO m) => MethodInfo StaticResourceGetResourceMethodInfo StaticResource signature where-    overloadedMethod _ = staticResourceGetResource---- method StaticResource::init--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "StaticResource"-    IO ()---staticResourceInit ::-    (MonadIO m) =>-    StaticResource                          -- _obj-    -> m ()                                 -- result-staticResourceInit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_static_resource_init _obj'-    touchManagedPtr _obj-    return ()--data StaticResourceInitMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo StaticResourceInitMethodInfo StaticResource signature where-    overloadedMethod _ = staticResourceInit--type family ResolveStaticResourceMethod (t :: Symbol) (o :: *) :: * where-    ResolveStaticResourceMethod "fini" o = StaticResourceFiniMethodInfo-    ResolveStaticResourceMethod "init" o = StaticResourceInitMethodInfo-    ResolveStaticResourceMethod "getResource" o = StaticResourceGetResourceMethodInfo-    ResolveStaticResourceMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveStaticResourceMethod t StaticResource, MethodInfo info StaticResource p) => IsLabelProxy t (StaticResource -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveStaticResourceMethod t StaticResource, MethodInfo info StaticResource p) => IsLabel t (StaticResource -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/StaticResource.hs-boot 
@@ -1,14 +0,0 @@-module GI.Gio.Structs.StaticResource where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype StaticResource = StaticResource (ForeignPtr StaticResource)-instance WrappedPtr StaticResource where-data StaticResourceFiniMethodInfo-data StaticResourceGetResourceMethodInfo-data StaticResourceInitMethodInfo
− GI/Gio/Structs/UnixMountEntry.hs 
@@ -1,57 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Defines a Unix mount entry (e.g. <filename>/media/cdrom</filename>).-This corresponds roughly to a mtab entry.--}--module GI.Gio.Structs.UnixMountEntry-    ( ---- * Exported types-    UnixMountEntry(..)                      ,-    noUnixMountEntry                        ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype UnixMountEntry = UnixMountEntry (ForeignPtr UnixMountEntry)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr UnixMountEntry where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing--noUnixMountEntry :: Maybe UnixMountEntry-noUnixMountEntry = Nothing---type instance AttributeList UnixMountEntry = UnixMountEntryAttributeList-type UnixMountEntryAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveUnixMountEntryMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixMountEntryMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveUnixMountEntryMethod t UnixMountEntry, MethodInfo info UnixMountEntry p) => IsLabelProxy t (UnixMountEntry -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUnixMountEntryMethod t UnixMountEntry, MethodInfo info UnixMountEntry p) => IsLabel t (UnixMountEntry -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/UnixMountEntry.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gio.Structs.UnixMountEntry where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UnixMountEntry = UnixMountEntry (ForeignPtr UnixMountEntry)-instance WrappedPtr UnixMountEntry where
− GI/Gio/Structs/UnixMountPoint.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 (garetxe@gmail.com)--Defines a Unix mount point (e.g. <filename>/dev</filename>).-This corresponds roughly to a fstab entry.--}--module GI.Gio.Structs.UnixMountPoint-    ( ---- * Exported types-    UnixMountPoint(..)                      ,-    noUnixMountPoint                        ,--- -- * Methods--- ** unixMountPointCompare-    UnixMountPointCompareMethodInfo         ,-    unixMountPointCompare                   ,----- ** unixMountPointFree-    UnixMountPointFreeMethodInfo            ,-    unixMountPointFree                      ,----- ** unixMountPointGetDevicePath-    UnixMountPointGetDevicePathMethodInfo   ,-    unixMountPointGetDevicePath             ,----- ** unixMountPointGetFsType-    UnixMountPointGetFsTypeMethodInfo       ,-    unixMountPointGetFsType                 ,----- ** unixMountPointGetMountPath-    UnixMountPointGetMountPathMethodInfo    ,-    unixMountPointGetMountPath              ,----- ** unixMountPointGetOptions-    UnixMountPointGetOptionsMethodInfo      ,-    unixMountPointGetOptions                ,----- ** unixMountPointGuessCanEject-    UnixMountPointGuessCanEjectMethodInfo   ,-    unixMountPointGuessCanEject             ,----- ** unixMountPointGuessIcon-    UnixMountPointGuessIconMethodInfo       ,-    unixMountPointGuessIcon                 ,----- ** unixMountPointGuessName-    UnixMountPointGuessNameMethodInfo       ,-    unixMountPointGuessName                 ,----- ** unixMountPointGuessSymbolicIcon-    UnixMountPointGuessSymbolicIconMethodInfo,-    unixMountPointGuessSymbolicIcon         ,----- ** unixMountPointIsLoopback-    UnixMountPointIsLoopbackMethodInfo      ,-    unixMountPointIsLoopback                ,----- ** unixMountPointIsReadonly-    UnixMountPointIsReadonlyMethodInfo      ,-    unixMountPointIsReadonly                ,----- ** unixMountPointIsUserMountable-    UnixMountPointIsUserMountableMethodInfo ,-    unixMountPointIsUserMountable           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gio.Types-import GI.Gio.Callbacks--newtype UnixMountPoint = UnixMountPoint (ForeignPtr UnixMountPoint)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr UnixMountPoint where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing--noUnixMountPoint :: Maybe UnixMountPoint-noUnixMountPoint = Nothing---type instance AttributeList UnixMountPoint = UnixMountPointAttributeList-type UnixMountPointAttributeList = ('[ ] :: [(Symbol, *)])---- method UnixMountPoint::compare--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount2", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    Ptr UnixMountPoint ->                   -- mount2 : TInterface "Gio" "UnixMountPoint"-    IO Int32---unixMountPointCompare ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> UnixMountPoint                       -- mount2-    -> m Int32                              -- result-unixMountPointCompare _obj mount2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let mount2' = unsafeManagedPtrGetPtr mount2-    result <- g_unix_mount_point_compare _obj' mount2'-    touchManagedPtr _obj-    touchManagedPtr mount2-    return result--data UnixMountPointCompareMethodInfo-instance (signature ~ (UnixMountPoint -> m Int32), MonadIO m) => MethodInfo UnixMountPointCompareMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointCompare---- method UnixMountPoint::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO ()---unixMountPointFree ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m ()                                 -- result-unixMountPointFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_unix_mount_point_free _obj'-    touchManagedPtr _obj-    return ()--data UnixMountPointFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo UnixMountPointFreeMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointFree---- method UnixMountPoint::get_device_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, 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_device_path" g_unix_mount_point_get_device_path :: -    Ptr UnixMountPoint ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO CString---unixMountPointGetDevicePath ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m T.Text                             -- result-unixMountPointGetDevicePath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_unix_mount_point_get_device_path _obj'-    checkUnexpectedReturnNULL "g_unix_mount_point_get_device_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data UnixMountPointGetDevicePathMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo UnixMountPointGetDevicePathMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGetDevicePath---- method UnixMountPoint::get_fs_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO CString---unixMountPointGetFsType ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m T.Text                             -- result-unixMountPointGetFsType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_unix_mount_point_get_fs_type _obj'-    checkUnexpectedReturnNULL "g_unix_mount_point_get_fs_type" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data UnixMountPointGetFsTypeMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo UnixMountPointGetFsTypeMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGetFsType---- method UnixMountPoint::get_mount_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, 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_mount_path" g_unix_mount_point_get_mount_path :: -    Ptr UnixMountPoint ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO CString---unixMountPointGetMountPath ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m T.Text                             -- result-unixMountPointGetMountPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_unix_mount_point_get_mount_path _obj'-    checkUnexpectedReturnNULL "g_unix_mount_point_get_mount_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data UnixMountPointGetMountPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo UnixMountPointGetMountPathMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGetMountPath---- method UnixMountPoint::get_options--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO CString---unixMountPointGetOptions ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m T.Text                             -- result-unixMountPointGetOptions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_unix_mount_point_get_options _obj'-    checkUnexpectedReturnNULL "g_unix_mount_point_get_options" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data UnixMountPointGetOptionsMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo UnixMountPointGetOptionsMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGetOptions---- method UnixMountPoint::guess_can_eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO CInt---unixMountPointGuessCanEject ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m Bool                               -- result-unixMountPointGuessCanEject _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_unix_mount_point_guess_can_eject _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data UnixMountPointGuessCanEjectMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo UnixMountPointGuessCanEjectMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGuessCanEject---- method UnixMountPoint::guess_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Icon")--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_point_guess_icon" g_unix_mount_point_guess_icon :: -    Ptr UnixMountPoint ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO (Ptr Icon)---unixMountPointGuessIcon ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m Icon                               -- result-unixMountPointGuessIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_unix_mount_point_guess_icon _obj'-    checkUnexpectedReturnNULL "g_unix_mount_point_guess_icon" result-    result' <- (wrapObject Icon) result-    touchManagedPtr _obj-    return result'--data UnixMountPointGuessIconMethodInfo-instance (signature ~ (m Icon), MonadIO m) => MethodInfo UnixMountPointGuessIconMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGuessIcon---- method UnixMountPoint::guess_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO CString---unixMountPointGuessName ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m T.Text                             -- result-unixMountPointGuessName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_unix_mount_point_guess_name _obj'-    checkUnexpectedReturnNULL "g_unix_mount_point_guess_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data UnixMountPointGuessNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo UnixMountPointGuessNameMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGuessName---- method UnixMountPoint::guess_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "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 ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO (Ptr Icon)---unixMountPointGuessSymbolicIcon ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m Icon                               -- result-unixMountPointGuessSymbolicIcon _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_unix_mount_point_guess_symbolic_icon _obj'-    checkUnexpectedReturnNULL "g_unix_mount_point_guess_symbolic_icon" result-    result' <- (wrapObject Icon) result-    touchManagedPtr _obj-    return result'--data UnixMountPointGuessSymbolicIconMethodInfo-instance (signature ~ (m Icon), MonadIO m) => MethodInfo UnixMountPointGuessSymbolicIconMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGuessSymbolicIcon---- method UnixMountPoint::is_loopback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO CInt---unixMountPointIsLoopback ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m Bool                               -- result-unixMountPointIsLoopback _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_unix_mount_point_is_loopback _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data UnixMountPointIsLoopbackMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo UnixMountPointIsLoopbackMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointIsLoopback---- method UnixMountPoint::is_readonly--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO CInt---unixMountPointIsReadonly ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m Bool                               -- result-unixMountPointIsReadonly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_unix_mount_point_is_readonly _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data UnixMountPointIsReadonlyMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo UnixMountPointIsReadonlyMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointIsReadonly---- method UnixMountPoint::is_user_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, 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 ->                   -- _obj : TInterface "Gio" "UnixMountPoint"-    IO CInt---unixMountPointIsUserMountable ::-    (MonadIO m) =>-    UnixMountPoint                          -- _obj-    -> m Bool                               -- result-unixMountPointIsUserMountable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_unix_mount_point_is_user_mountable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data UnixMountPointIsUserMountableMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo UnixMountPointIsUserMountableMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointIsUserMountable--type family ResolveUnixMountPointMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixMountPointMethod "compare" o = UnixMountPointCompareMethodInfo-    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 = MethodResolutionFailed l o--instance (info ~ ResolveUnixMountPointMethod t UnixMountPoint, MethodInfo info UnixMountPoint p) => IsLabelProxy t (UnixMountPoint -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveUnixMountPointMethod t UnixMountPoint, MethodInfo info UnixMountPoint p) => IsLabel t (UnixMountPoint -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gio/Structs/UnixMountPoint.hs-boot 
@@ -1,24 +0,0 @@-module GI.Gio.Structs.UnixMountPoint where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype UnixMountPoint = UnixMountPoint (ForeignPtr UnixMountPoint)-instance WrappedPtr UnixMountPoint where-data UnixMountPointCompareMethodInfo-data UnixMountPointFreeMethodInfo-data UnixMountPointGetDevicePathMethodInfo-data UnixMountPointGetFsTypeMethodInfo-data UnixMountPointGetMountPathMethodInfo-data UnixMountPointGetOptionsMethodInfo-data UnixMountPointGuessCanEjectMethodInfo-data UnixMountPointGuessIconMethodInfo-data UnixMountPointGuessNameMethodInfo-data UnixMountPointGuessSymbolicIconMethodInfo-data UnixMountPointIsLoopbackMethodInfo-data UnixMountPointIsReadonlyMethodInfo-data UnixMountPointIsUserMountableMethodInfo
− GI/Gio/Types.hs 
@@ -1,348 +0,0 @@-module GI.Gio.Types-    (     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.DesktopAppInfoLookup,-    module GI.Gio.Interfaces.Drive          ,-    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         ,-    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.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  ,-    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.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.SettingsBackend   ,-    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    ,-    module GI.Gio.Enums                     ,-    module GI.Gio.Flags                     ,---    ) where---import {-# SOURCE #-} GI.Gio.Interfaces.Action-import {-# SOURCE #-} GI.Gio.Interfaces.ActionGroup-import {-# SOURCE #-} GI.Gio.Interfaces.ActionMap-import {-# SOURCE #-} GI.Gio.Interfaces.AppInfo-import {-# SOURCE #-} GI.Gio.Interfaces.AsyncInitable-import {-# SOURCE #-} GI.Gio.Interfaces.AsyncResult-import {-# SOURCE #-} GI.Gio.Interfaces.Converter-import {-# SOURCE #-} GI.Gio.Interfaces.DBusInterface-import {-# SOURCE #-} GI.Gio.Interfaces.DBusObject-import {-# SOURCE #-} GI.Gio.Interfaces.DBusObjectManager-import {-# SOURCE #-} GI.Gio.Interfaces.DesktopAppInfoLookup-import {-# SOURCE #-} GI.Gio.Interfaces.Drive-import {-# SOURCE #-} GI.Gio.Interfaces.File-import {-# SOURCE #-} GI.Gio.Interfaces.FileDescriptorBased-import {-# SOURCE #-} GI.Gio.Interfaces.Icon-import {-# SOURCE #-} GI.Gio.Interfaces.Initable-import {-# SOURCE #-} GI.Gio.Interfaces.ListModel-import {-# SOURCE #-} GI.Gio.Interfaces.LoadableIcon-import {-# SOURCE #-} GI.Gio.Interfaces.Mount-import {-# SOURCE #-} GI.Gio.Interfaces.NetworkMonitor-import {-# SOURCE #-} GI.Gio.Interfaces.PollableInputStream-import {-# SOURCE #-} GI.Gio.Interfaces.PollableOutputStream-import {-# SOURCE #-} GI.Gio.Interfaces.Proxy-import {-# SOURCE #-} GI.Gio.Interfaces.ProxyResolver-import {-# SOURCE #-} GI.Gio.Interfaces.RemoteActionGroup-import {-# SOURCE #-} GI.Gio.Interfaces.Seekable-import {-# SOURCE #-} GI.Gio.Interfaces.SocketConnectable-import {-# SOURCE #-} GI.Gio.Interfaces.TlsBackend-import {-# SOURCE #-} GI.Gio.Interfaces.TlsClientConnection-import {-# SOURCE #-} GI.Gio.Interfaces.TlsFileDatabase-import {-# SOURCE #-} GI.Gio.Interfaces.TlsServerConnection-import {-# SOURCE #-} GI.Gio.Interfaces.Volume-import {-# SOURCE #-} GI.Gio.Objects.AppInfoMonitor-import {-# SOURCE #-} GI.Gio.Objects.AppLaunchContext-import {-# SOURCE #-} GI.Gio.Objects.Application-import {-# SOURCE #-} GI.Gio.Objects.ApplicationCommandLine-import {-# SOURCE #-} GI.Gio.Objects.BufferedInputStream-import {-# SOURCE #-} GI.Gio.Objects.BufferedOutputStream-import {-# SOURCE #-} GI.Gio.Objects.BytesIcon-import {-# SOURCE #-} GI.Gio.Objects.Cancellable-import {-# SOURCE #-} GI.Gio.Objects.CharsetConverter-import {-# SOURCE #-} GI.Gio.Objects.ConverterInputStream-import {-# SOURCE #-} GI.Gio.Objects.ConverterOutputStream-import {-# SOURCE #-} GI.Gio.Objects.Credentials-import {-# SOURCE #-} GI.Gio.Objects.DBusActionGroup-import {-# SOURCE #-} GI.Gio.Objects.DBusAuthObserver-import {-# SOURCE #-} GI.Gio.Objects.DBusConnection-import {-# SOURCE #-} GI.Gio.Objects.DBusInterfaceSkeleton-import {-# SOURCE #-} GI.Gio.Objects.DBusMenuModel-import {-# SOURCE #-} GI.Gio.Objects.DBusMessage-import {-# SOURCE #-} GI.Gio.Objects.DBusMethodInvocation-import {-# SOURCE #-} GI.Gio.Objects.DBusObjectManagerClient-import {-# SOURCE #-} GI.Gio.Objects.DBusObjectManagerServer-import {-# SOURCE #-} GI.Gio.Objects.DBusObjectProxy-import {-# SOURCE #-} GI.Gio.Objects.DBusObjectSkeleton-import {-# SOURCE #-} GI.Gio.Objects.DBusProxy-import {-# SOURCE #-} GI.Gio.Objects.DBusServer-import {-# SOURCE #-} GI.Gio.Objects.DataInputStream-import {-# SOURCE #-} GI.Gio.Objects.DataOutputStream-import {-# SOURCE #-} GI.Gio.Objects.DesktopAppInfo-import {-# SOURCE #-} GI.Gio.Objects.Emblem-import {-# SOURCE #-} GI.Gio.Objects.EmblemedIcon-import {-# SOURCE #-} GI.Gio.Objects.FileEnumerator-import {-# SOURCE #-} GI.Gio.Objects.FileIOStream-import {-# SOURCE #-} GI.Gio.Objects.FileIcon-import {-# SOURCE #-} GI.Gio.Objects.FileInfo-import {-# SOURCE #-} GI.Gio.Objects.FileInputStream-import {-# SOURCE #-} GI.Gio.Objects.FileMonitor-import {-# SOURCE #-} GI.Gio.Objects.FileOutputStream-import {-# SOURCE #-} GI.Gio.Objects.FilenameCompleter-import {-# SOURCE #-} GI.Gio.Objects.FilterInputStream-import {-# SOURCE #-} GI.Gio.Objects.FilterOutputStream-import {-# SOURCE #-} GI.Gio.Objects.IOStream-import {-# SOURCE #-} GI.Gio.Objects.InetAddress-import {-# SOURCE #-} GI.Gio.Objects.InetAddressMask-import {-# SOURCE #-} GI.Gio.Objects.InetSocketAddress-import {-# SOURCE #-} GI.Gio.Objects.InputStream-import {-# SOURCE #-} GI.Gio.Objects.ListStore-import {-# SOURCE #-} GI.Gio.Objects.MemoryInputStream-import {-# SOURCE #-} GI.Gio.Objects.MemoryOutputStream-import {-# SOURCE #-} GI.Gio.Objects.Menu-import {-# SOURCE #-} GI.Gio.Objects.MenuAttributeIter-import {-# SOURCE #-} GI.Gio.Objects.MenuItem-import {-# SOURCE #-} GI.Gio.Objects.MenuLinkIter-import {-# SOURCE #-} GI.Gio.Objects.MenuModel-import {-# SOURCE #-} GI.Gio.Objects.MountOperation-import {-# SOURCE #-} GI.Gio.Objects.NativeVolumeMonitor-import {-# SOURCE #-} GI.Gio.Objects.NetworkAddress-import {-# SOURCE #-} GI.Gio.Objects.NetworkService-import {-# SOURCE #-} GI.Gio.Objects.Notification-import {-# SOURCE #-} GI.Gio.Objects.OutputStream-import {-# SOURCE #-} GI.Gio.Objects.Permission-import {-# SOURCE #-} GI.Gio.Objects.PropertyAction-import {-# SOURCE #-} GI.Gio.Objects.ProxyAddress-import {-# SOURCE #-} GI.Gio.Objects.ProxyAddressEnumerator-import {-# SOURCE #-} GI.Gio.Objects.Resolver-import {-# SOURCE #-} GI.Gio.Objects.Settings-import {-# SOURCE #-} GI.Gio.Objects.SimpleAction-import {-# SOURCE #-} GI.Gio.Objects.SimpleActionGroup-import {-# SOURCE #-} GI.Gio.Objects.SimpleAsyncResult-import {-# SOURCE #-} GI.Gio.Objects.SimpleIOStream-import {-# SOURCE #-} GI.Gio.Objects.SimplePermission-import {-# SOURCE #-} GI.Gio.Objects.SimpleProxyResolver-import {-# SOURCE #-} GI.Gio.Objects.Socket-import {-# SOURCE #-} GI.Gio.Objects.SocketAddress-import {-# SOURCE #-} GI.Gio.Objects.SocketAddressEnumerator-import {-# SOURCE #-} GI.Gio.Objects.SocketClient-import {-# SOURCE #-} GI.Gio.Objects.SocketConnection-import {-# SOURCE #-} GI.Gio.Objects.SocketControlMessage-import {-# SOURCE #-} GI.Gio.Objects.SocketListener-import {-# SOURCE #-} GI.Gio.Objects.SocketService-import {-# SOURCE #-} GI.Gio.Objects.Subprocess-import {-# SOURCE #-} GI.Gio.Objects.SubprocessLauncher-import {-# SOURCE #-} GI.Gio.Objects.Task-import {-# SOURCE #-} GI.Gio.Objects.TcpConnection-import {-# SOURCE #-} GI.Gio.Objects.TcpWrapperConnection-import {-# SOURCE #-} GI.Gio.Objects.TestDBus-import {-# SOURCE #-} GI.Gio.Objects.ThemedIcon-import {-# SOURCE #-} GI.Gio.Objects.ThreadedSocketService-import {-# SOURCE #-} GI.Gio.Objects.TlsCertificate-import {-# SOURCE #-} GI.Gio.Objects.TlsConnection-import {-# SOURCE #-} GI.Gio.Objects.TlsDatabase-import {-# SOURCE #-} GI.Gio.Objects.TlsInteraction-import {-# SOURCE #-} GI.Gio.Objects.TlsPassword-import {-# SOURCE #-} GI.Gio.Objects.UnixConnection-import {-# SOURCE #-} GI.Gio.Objects.UnixCredentialsMessage-import {-# SOURCE #-} GI.Gio.Objects.UnixFDList-import {-# SOURCE #-} GI.Gio.Objects.UnixFDMessage-import {-# SOURCE #-} GI.Gio.Objects.UnixInputStream-import {-# SOURCE #-} GI.Gio.Objects.UnixMountMonitor-import {-# SOURCE #-} GI.Gio.Objects.UnixOutputStream-import {-# SOURCE #-} GI.Gio.Objects.UnixSocketAddress-import {-# SOURCE #-} GI.Gio.Objects.Vfs-import {-# SOURCE #-} GI.Gio.Objects.VolumeMonitor-import {-# SOURCE #-} GI.Gio.Objects.ZlibCompressor-import {-# SOURCE #-} GI.Gio.Objects.ZlibDecompressor-import {-# SOURCE #-} GI.Gio.Structs.ActionEntry-import {-# SOURCE #-} GI.Gio.Structs.DBusAnnotationInfo-import {-# SOURCE #-} GI.Gio.Structs.DBusArgInfo-import {-# SOURCE #-} GI.Gio.Structs.DBusErrorEntry-import {-# SOURCE #-} GI.Gio.Structs.DBusInterfaceInfo-import {-# SOURCE #-} GI.Gio.Structs.DBusInterfaceVTable-import {-# SOURCE #-} GI.Gio.Structs.DBusMethodInfo-import {-# SOURCE #-} GI.Gio.Structs.DBusNodeInfo-import {-# SOURCE #-} GI.Gio.Structs.DBusPropertyInfo-import {-# SOURCE #-} GI.Gio.Structs.DBusSignalInfo-import {-# SOURCE #-} GI.Gio.Structs.DBusSubtreeVTable-import {-# SOURCE #-} GI.Gio.Structs.FileAttributeInfo-import {-# SOURCE #-} GI.Gio.Structs.FileAttributeInfoList-import {-# SOURCE #-} GI.Gio.Structs.FileAttributeMatcher-import {-# SOURCE #-} GI.Gio.Structs.IOExtension-import {-# SOURCE #-} GI.Gio.Structs.IOExtensionPoint-import {-# SOURCE #-} GI.Gio.Structs.IOModuleScope-import {-# SOURCE #-} GI.Gio.Structs.IOSchedulerJob-import {-# SOURCE #-} GI.Gio.Structs.IOStreamAdapter-import {-# SOURCE #-} GI.Gio.Structs.InputVector-import {-# SOURCE #-} GI.Gio.Structs.NativeSocketAddress-import {-# SOURCE #-} GI.Gio.Structs.OutputMessage-import {-# SOURCE #-} GI.Gio.Structs.OutputVector-import {-# SOURCE #-} GI.Gio.Structs.Resource-import {-# SOURCE #-} GI.Gio.Structs.SettingsBackend-import {-# SOURCE #-} GI.Gio.Structs.SettingsSchema-import {-# SOURCE #-} GI.Gio.Structs.SettingsSchemaKey-import {-# SOURCE #-} GI.Gio.Structs.SettingsSchemaSource-import {-# SOURCE #-} GI.Gio.Structs.SrvTarget-import {-# SOURCE #-} GI.Gio.Structs.StaticResource-import {-# SOURCE #-} GI.Gio.Structs.UnixMountEntry-import {-# SOURCE #-} GI.Gio.Structs.UnixMountPoint--import GI.Gio.Enums-import GI.Gio.Flags-
+ Gio.overrides view
@@ -0,0 +1,45 @@+namespace Gio++# The length argument is an out value, but it is not marked as such in+# the bindings.+ignore TlsPassword.get_value++# These API elements refer to symbols which are dynamically loaded,+# so the linker cannot resolve them.+ignore IOModule+ignore io_modules_load_all_in_directory+ignore io_modules_load_all_in_directory_with_scope++# Not supported on Windows.+if windows+   ignore DBusMessage.get_unix_fd_list+   ignore DBusMessage.set_unix_fd_list+   ignore DBusMethodInvocation.return_value_with_unix_fd_list+   ignore unix_mounts_changed_since+   ignore unix_mount_points_changed_since+   ignore unix_mount_is_system_internal+   ignore unix_mount_is_readonly+   ignore unix_mount_guess_symbolic_icon+   ignore unix_mount_guess_should_display+   ignore unix_mount_guess_name+   ignore unix_mount_guess_icon+   ignore unix_mount_guess_can_eject+   ignore unix_mount_get_mount_path+   ignore unix_mount_get_fs_type+   ignore unix_mount_get_device_path+   ignore unix_mount_free+   ignore unix_mount_compare+   ignore unix_is_mount_path_system_internal+   ignore unix_is_mount_path_system_internal+   ignore DBusConnection.call_with_unix_fd_list_finish+   ignore DBusConnection.call_with_unix_fd_list_sync+   ignore DBusConnection.call_with_unix_fd_list+   ignore UnixFDList.get_type+   ignore UnixFDList.append+   ignore UnixFDList.get+   ignore UnixFDList.get_length+   ignore UnixFDList.peek_fds+   ignore UnixFDList.steal_fds+   ignore UnixFDList.new+   ignore UnixFDList.new_from_array+endif
Setup.hs view
@@ -1,3 +1,12 @@-#!/usr/bin/env runhaskell-import Distribution.Simple-main = defaultMain+{-# LANGUAGE OverloadedStrings #-}++import Distribution.Simple (defaultMainWithHooks)+import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks)++main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose+                             overridesFile outputDir)+    where name = "Gio"+          version = "2.0"+          verbose = False+          overridesFile = Just "Gio.overrides"+          outputDir = Nothing
gi-gio.cabal view
@@ -1,6 +1,5 @@--- Autogenerated, do not edit. name:               gi-gio-version:            0.2.46.15+version:            2.0.1 synopsis:           Gio bindings description:        Bindings for Gio, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi@@ -9,198 +8,28 @@ author:             Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer:         Iñaki García Etxebarria (garetxe@gmail.com) category:           Bindings-build-type:         Simple-cabal-version:      >=1.10+build-type:         Custom+cabal-version:      >= 1.24 +extra-source-files: Gio.overrides++custom-setup+  setup-depends: base >= 4.7,+                 Cabal >= 1.24,+                 haskell-gi >= 0.15+ library     default-language:   Haskell2010     default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts     other-extensions:   PatternSynonyms ViewPatterns     ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations-    exposed-modules:    GI.Gio.Types-                        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.DesktopAppInfoLookup-                        GI.Gio.Interfaces.Drive-                        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.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.InputVector-                        GI.Gio.Structs.NativeSocketAddress-                        GI.Gio.Structs.OutputMessage-                        GI.Gio.Structs.OutputVector-                        GI.Gio.Structs.Resource-                        GI.Gio.Structs.SettingsBackend-                        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-    pkgconfig-depends:  gio-2.0 >= 2.46++    pkgconfig-depends:  gio-2.0     build-depends: base >= 4.7 && <5,         haskell-gi-base >= 0.15 && < 1,-        gi-glib >= 0.2.46.15 && < 0.2.47,-        gi-gobject >= 0.2.46.15 && < 0.2.47,+        gi-glib == 2.0.*,+        gi-gobject == 2.0.*,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,-        transformers >= 0.3+        transformers >= 0.5