packages feed

gi-glib 0.2.44.12 → 0.2.46.10

raw patch · 148 files changed

+34806/−44141 lines, 148 filesdep ~haskell-gi-base

Dependency ranges changed: haskell-gi-base

Files

GI/GLib.hs view
@@ -1,38 +1,34739 @@--{- |-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.GLib-    (     module GI.GLib.Callbacks                ,-    module GI.GLib.Constants                ,-    module GI.GLib.Enums                    ,-    module GI.GLib.Flags                    ,-    module GI.GLib.Functions                ,-    module GI.GLib.Structs                  ,-    module GI.GLib.Unions                   ,---    ) where--import GI.GLib.Callbacks-import GI.GLib.Constants-import GI.GLib.Enums-import GI.GLib.Flags-import GI.GLib.Functions-import GI.GLib.Structs-import GI.GLib.Unions--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks-+-- Generated code.++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,+    TypeFamilies, MultiParamTypeClasses, KindSignatures,+    FlexibleInstances, UndecidableInstances, DataKinds,+    OverloadedStrings, NegativeLiterals, FlexibleContexts #-}++module GI.GLib where++import Prelude ()+import Data.GI.Base.ShortPrelude+import Data.Char+import Data.Int+import Data.Word+import qualified Data.ByteString.Char8 as B+import Data.ByteString.Char8 (ByteString)+import qualified Data.Map as Map+import Foreign.C+import Foreign.Ptr+import Foreign.ForeignPtr+import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)+import Foreign.Storable (peek, poke, sizeOf)+import Control.Applicative ((<$>))+import Control.Exception (onException)+import Control.Monad.IO.Class+import qualified Data.Text as T++import Data.GI.Base.Attributes hiding (get, set)+import Data.GI.Base.BasicTypes+import Data.GI.Base.BasicConversions+import Data.GI.Base.Closure+import Data.GI.Base.GError+import Data.GI.Base.GHashTable+import Data.GI.Base.GParamSpec+import Data.GI.Base.GVariant+import Data.GI.Base.GValue+import Data.GI.Base.ManagedPtr+import Data.GI.Base.Overloading+import Data.GI.Base.Properties hiding (new)+import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)+import Data.GI.Base.Utils+++-- Flags AsciiType++data AsciiType = +      AsciiTypeAlnum+    | AsciiTypeAlpha+    | AsciiTypeCntrl+    | AsciiTypeDigit+    | AsciiTypeGraph+    | AsciiTypeLower+    | AsciiTypePrint+    | AsciiTypePunct+    | AsciiTypeSpace+    | AsciiTypeUpper+    | AsciiTypeXdigit+    | AnotherAsciiType Int+    deriving (Show, Eq)++instance Enum AsciiType where+    fromEnum AsciiTypeAlnum = 1+    fromEnum AsciiTypeAlpha = 2+    fromEnum AsciiTypeCntrl = 4+    fromEnum AsciiTypeDigit = 8+    fromEnum AsciiTypeGraph = 16+    fromEnum AsciiTypeLower = 32+    fromEnum AsciiTypePrint = 64+    fromEnum AsciiTypePunct = 128+    fromEnum AsciiTypeSpace = 256+    fromEnum AsciiTypeUpper = 512+    fromEnum AsciiTypeXdigit = 1024+    fromEnum (AnotherAsciiType k) = k++    toEnum 1 = AsciiTypeAlnum+    toEnum 2 = AsciiTypeAlpha+    toEnum 4 = AsciiTypeCntrl+    toEnum 8 = AsciiTypeDigit+    toEnum 16 = AsciiTypeGraph+    toEnum 32 = AsciiTypeLower+    toEnum 64 = AsciiTypePrint+    toEnum 128 = AsciiTypePunct+    toEnum 256 = AsciiTypeSpace+    toEnum 512 = AsciiTypeUpper+    toEnum 1024 = AsciiTypeXdigit+    toEnum k = AnotherAsciiType k++instance IsGFlag AsciiType++-- struct AsyncQueue+newtype AsyncQueue = AsyncQueue (ForeignPtr AsyncQueue)+noAsyncQueue :: Maybe AsyncQueue+noAsyncQueue = Nothing++-- method AsyncQueue::length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_length" g_async_queue_length :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    IO Int32+++asyncQueueLength ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    m Int32+asyncQueueLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_async_queue_length _obj'+    touchManagedPtr _obj+    return result++-- method AsyncQueue::length_unlocked+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_length_unlocked" g_async_queue_length_unlocked :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    IO Int32+++asyncQueueLengthUnlocked ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    m Int32+asyncQueueLengthUnlocked _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_async_queue_length_unlocked _obj'+    touchManagedPtr _obj+    return result++-- method AsyncQueue::lock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_lock" g_async_queue_lock :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    IO ()+++asyncQueueLock ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    m ()+asyncQueueLock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_async_queue_lock _obj'+    touchManagedPtr _obj+    return ()++-- method AsyncQueue::push+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_push" g_async_queue_push :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    Ptr () ->                               -- data : TBasicType TVoid+    IO ()+++asyncQueuePush ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    Ptr () ->                               -- data+    m ()+asyncQueuePush _obj data_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_async_queue_push _obj' data_+    touchManagedPtr _obj+    return ()++-- method AsyncQueue::push_front+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_push_front" g_async_queue_push_front :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    Ptr () ->                               -- item : TBasicType TVoid+    IO ()+++asyncQueuePushFront ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    Ptr () ->                               -- item+    m ()+asyncQueuePushFront _obj item = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_async_queue_push_front _obj' item+    touchManagedPtr _obj+    return ()++-- method AsyncQueue::push_front_unlocked+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_push_front_unlocked" g_async_queue_push_front_unlocked :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    Ptr () ->                               -- item : TBasicType TVoid+    IO ()+++asyncQueuePushFrontUnlocked ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    Ptr () ->                               -- item+    m ()+asyncQueuePushFrontUnlocked _obj item = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_async_queue_push_front_unlocked _obj' item+    touchManagedPtr _obj+    return ()++-- method AsyncQueue::push_unlocked+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_push_unlocked" g_async_queue_push_unlocked :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    Ptr () ->                               -- data : TBasicType TVoid+    IO ()+++asyncQueuePushUnlocked ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    Ptr () ->                               -- data+    m ()+asyncQueuePushUnlocked _obj data_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_async_queue_push_unlocked _obj' data_+    touchManagedPtr _obj+    return ()++-- method AsyncQueue::ref_unlocked+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_ref_unlocked" g_async_queue_ref_unlocked :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    IO ()++{-# DEPRECATED asyncQueueRefUnlocked ["(Since version 2.8)","Reference counting is done atomically.","so g_async_queue_ref() can be used regardless of the @queue's","lock."]#-}+asyncQueueRefUnlocked ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    m ()+asyncQueueRefUnlocked _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_async_queue_ref_unlocked _obj'+    touchManagedPtr _obj+    return ()++-- method AsyncQueue::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_remove" g_async_queue_remove :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    Ptr () ->                               -- item : TBasicType TVoid+    IO CInt+++asyncQueueRemove ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    Ptr () ->                               -- item+    m Bool+asyncQueueRemove _obj item = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_async_queue_remove _obj' item+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method AsyncQueue::remove_unlocked+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_remove_unlocked" g_async_queue_remove_unlocked :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    Ptr () ->                               -- item : TBasicType TVoid+    IO CInt+++asyncQueueRemoveUnlocked ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    Ptr () ->                               -- item+    m Bool+asyncQueueRemoveUnlocked _obj item = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_async_queue_remove_unlocked _obj' item+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method AsyncQueue::unlock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_unlock" g_async_queue_unlock :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    IO ()+++asyncQueueUnlock ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    m ()+asyncQueueUnlock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_async_queue_unlock _obj'+    touchManagedPtr _obj+    return ()++-- method AsyncQueue::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_unref" g_async_queue_unref :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    IO ()+++asyncQueueUnref ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    m ()+asyncQueueUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_async_queue_unref _obj'+    touchManagedPtr _obj+    return ()++-- method AsyncQueue::unref_and_unlock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_async_queue_unref_and_unlock" g_async_queue_unref_and_unlock :: +    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"+    IO ()++{-# DEPRECATED asyncQueueUnrefAndUnlock ["(Since version 2.8)","Reference counting is done atomically.","so g_async_queue_unref() can be used regardless of the @queue's","lock."]#-}+asyncQueueUnrefAndUnlock ::+    (MonadIO m) =>+    AsyncQueue ->                           -- _obj+    m ()+asyncQueueUnrefAndUnlock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_async_queue_unref_and_unlock _obj'+    touchManagedPtr _obj+    return ()++-- struct BookmarkFile+newtype BookmarkFile = BookmarkFile (ForeignPtr BookmarkFile)+noBookmarkFile :: Maybe BookmarkFile+noBookmarkFile = Nothing++-- method BookmarkFile::add_application+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_add_application" g_bookmark_file_add_application :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- exec : TBasicType TUTF8+    IO ()+++bookmarkFileAddApplication ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    Maybe (T.Text) ->                       -- name+    Maybe (T.Text) ->                       -- exec+    m ()+bookmarkFileAddApplication _obj uri name exec = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    maybeName <- case name of+        Nothing -> return nullPtr+        Just jName -> do+            jName' <- textToCString jName+            return jName'+    maybeExec <- case exec of+        Nothing -> return nullPtr+        Just jExec -> do+            jExec' <- textToCString jExec+            return jExec'+    g_bookmark_file_add_application _obj' uri' maybeName maybeExec+    touchManagedPtr _obj+    freeMem uri'+    freeMem maybeName+    freeMem maybeExec+    return ()++-- method BookmarkFile::add_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_add_group" g_bookmark_file_add_group :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- group : TBasicType TUTF8+    IO ()+++bookmarkFileAddGroup ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    T.Text ->                               -- group+    m ()+bookmarkFileAddGroup _obj uri group = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    group' <- textToCString group+    g_bookmark_file_add_group _obj' uri' group'+    touchManagedPtr _obj+    freeMem uri'+    freeMem group'+    return ()++-- method BookmarkFile::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_free" g_bookmark_file_free :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    IO ()+++bookmarkFileFree ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    m ()+bookmarkFileFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_bookmark_file_free _obj'+    touchManagedPtr _obj+    return ()++-- method BookmarkFile::get_added+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_get_added" g_bookmark_file_get_added :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO Int64+++bookmarkFileGetAdded ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    m Int64+bookmarkFileGetAdded _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    onException (do+        result <- propagateGError $ g_bookmark_file_get_added _obj' uri'+        touchManagedPtr _obj+        freeMem uri'+        return result+     ) (do+        freeMem uri'+     )++-- method BookmarkFile::get_app_info+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_get_app_info" g_bookmark_file_get_app_info :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- name : TBasicType TUTF8+    Ptr CString ->                          -- exec : TBasicType TUTF8+    Ptr Word32 ->                           -- count : TBasicType TUInt32+    Ptr Int64 ->                            -- stamp : TBasicType TInt64+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileGetAppInfo ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    T.Text ->                               -- name+    m (T.Text,Word32,Int64)+bookmarkFileGetAppInfo _obj uri name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    name' <- textToCString name+    exec <- allocMem :: IO (Ptr CString)+    count <- allocMem :: IO (Ptr Word32)+    stamp <- allocMem :: IO (Ptr Int64)+    onException (do+        _ <- propagateGError $ g_bookmark_file_get_app_info _obj' uri' name' exec count stamp+        exec' <- peek exec+        exec'' <- cstringToText exec'+        freeMem exec'+        count' <- peek count+        stamp' <- peek stamp+        touchManagedPtr _obj+        freeMem uri'+        freeMem name'+        freeMem exec+        freeMem count+        freeMem stamp+        return (exec'', count', stamp')+     ) (do+        freeMem uri'+        freeMem name'+        freeMem exec+        freeMem count+        freeMem stamp+     )++-- method BookmarkFile::get_applications+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 2 (TBasicType TUTF8)+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_get_applications" g_bookmark_file_get_applications :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr CString)+++bookmarkFileGetApplications ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    m [T.Text]+bookmarkFileGetApplications _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_bookmark_file_get_applications _obj' uri' length_+        length_' <- peek length_+        checkUnexpectedReturnNULL "g_bookmark_file_get_applications" result+        result' <- (unpackUTF8CArrayWithLength length_') result+        (mapCArrayWithLength length_') freeMem result+        freeMem result+        touchManagedPtr _obj+        freeMem uri'+        freeMem length_+        return result'+     ) (do+        freeMem uri'+        freeMem length_+     )++-- method BookmarkFile::get_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_get_description" g_bookmark_file_get_description :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++bookmarkFileGetDescription ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    m T.Text+bookmarkFileGetDescription _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    onException (do+        result <- propagateGError $ g_bookmark_file_get_description _obj' uri'+        checkUnexpectedReturnNULL "g_bookmark_file_get_description" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        freeMem uri'+        return result'+     ) (do+        freeMem uri'+     )++-- method BookmarkFile::get_groups+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 2 (TBasicType TUTF8)+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_get_groups" g_bookmark_file_get_groups :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr CString)+++bookmarkFileGetGroups ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    m [T.Text]+bookmarkFileGetGroups _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_bookmark_file_get_groups _obj' uri' length_+        length_' <- peek length_+        checkUnexpectedReturnNULL "g_bookmark_file_get_groups" result+        result' <- (unpackUTF8CArrayWithLength length_') result+        (mapCArrayWithLength length_') freeMem result+        freeMem result+        touchManagedPtr _obj+        freeMem uri'+        freeMem length_+        return result'+     ) (do+        freeMem uri'+        freeMem length_+     )++-- method BookmarkFile::get_icon+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "href", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_get_icon" g_bookmark_file_get_icon :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Ptr CString ->                          -- href : TBasicType TUTF8+    Ptr CString ->                          -- mime_type : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileGetIcon ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    m (T.Text,T.Text)+bookmarkFileGetIcon _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    href <- allocMem :: IO (Ptr CString)+    mime_type <- allocMem :: IO (Ptr CString)+    onException (do+        _ <- propagateGError $ g_bookmark_file_get_icon _obj' uri' href mime_type+        href' <- peek href+        href'' <- cstringToText href'+        freeMem href'+        mime_type' <- peek mime_type+        mime_type'' <- cstringToText mime_type'+        freeMem mime_type'+        touchManagedPtr _obj+        freeMem uri'+        freeMem href+        freeMem mime_type+        return (href'', mime_type'')+     ) (do+        freeMem uri'+        freeMem href+        freeMem mime_type+     )++-- method BookmarkFile::get_is_private+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_get_is_private" g_bookmark_file_get_is_private :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileGetIsPrivate ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    m ()+bookmarkFileGetIsPrivate _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    onException (do+        _ <- propagateGError $ g_bookmark_file_get_is_private _obj' uri'+        touchManagedPtr _obj+        freeMem uri'+        return ()+     ) (do+        freeMem uri'+     )++-- method BookmarkFile::get_mime_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_get_mime_type" g_bookmark_file_get_mime_type :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++bookmarkFileGetMimeType ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    m T.Text+bookmarkFileGetMimeType _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    onException (do+        result <- propagateGError $ g_bookmark_file_get_mime_type _obj' uri'+        checkUnexpectedReturnNULL "g_bookmark_file_get_mime_type" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        freeMem uri'+        return result'+     ) (do+        freeMem uri'+     )++-- method BookmarkFile::get_modified+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_get_modified" g_bookmark_file_get_modified :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO Int64+++bookmarkFileGetModified ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    m Int64+bookmarkFileGetModified _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    onException (do+        result <- propagateGError $ g_bookmark_file_get_modified _obj' uri'+        touchManagedPtr _obj+        freeMem uri'+        return result+     ) (do+        freeMem uri'+     )++-- method BookmarkFile::get_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_get_size" g_bookmark_file_get_size :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    IO Int32+++bookmarkFileGetSize ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    m Int32+bookmarkFileGetSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_bookmark_file_get_size _obj'+    touchManagedPtr _obj+    return result++-- method BookmarkFile::get_title+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_get_title" g_bookmark_file_get_title :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++bookmarkFileGetTitle ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    Maybe (T.Text) ->                       -- uri+    m T.Text+bookmarkFileGetTitle _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeUri <- case uri of+        Nothing -> return nullPtr+        Just jUri -> do+            jUri' <- textToCString jUri+            return jUri'+    onException (do+        result <- propagateGError $ g_bookmark_file_get_title _obj' maybeUri+        checkUnexpectedReturnNULL "g_bookmark_file_get_title" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        freeMem maybeUri+        return result'+     ) (do+        freeMem maybeUri+     )++-- method BookmarkFile::get_uris+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 1 (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_get_uris" g_bookmark_file_get_uris :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    IO (Ptr CString)+++bookmarkFileGetUris ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    m [T.Text]+bookmarkFileGetUris _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    length_ <- allocMem :: IO (Ptr Word64)+    result <- g_bookmark_file_get_uris _obj' length_+    length_' <- peek length_+    checkUnexpectedReturnNULL "g_bookmark_file_get_uris" result+    result' <- (unpackUTF8CArrayWithLength length_') result+    (mapCArrayWithLength length_') freeMem result+    freeMem result+    touchManagedPtr _obj+    freeMem length_+    return result'++-- method BookmarkFile::get_visited+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_get_visited" g_bookmark_file_get_visited :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO Int64+++bookmarkFileGetVisited ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    m Int64+bookmarkFileGetVisited _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    onException (do+        result <- propagateGError $ g_bookmark_file_get_visited _obj' uri'+        touchManagedPtr _obj+        freeMem uri'+        return result+     ) (do+        freeMem uri'+     )++-- method BookmarkFile::has_application+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_has_application" g_bookmark_file_has_application :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- name : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileHasApplication ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    T.Text ->                               -- name+    m ()+bookmarkFileHasApplication _obj uri name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    name' <- textToCString name+    onException (do+        _ <- propagateGError $ g_bookmark_file_has_application _obj' uri' name'+        touchManagedPtr _obj+        freeMem uri'+        freeMem name'+        return ()+     ) (do+        freeMem uri'+        freeMem name'+     )++-- method BookmarkFile::has_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_has_group" g_bookmark_file_has_group :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- group : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileHasGroup ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    T.Text ->                               -- group+    m ()+bookmarkFileHasGroup _obj uri group = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    group' <- textToCString group+    onException (do+        _ <- propagateGError $ g_bookmark_file_has_group _obj' uri' group'+        touchManagedPtr _obj+        freeMem uri'+        freeMem group'+        return ()+     ) (do+        freeMem uri'+        freeMem group'+     )++-- method BookmarkFile::has_item+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_has_item" g_bookmark_file_has_item :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    IO CInt+++bookmarkFileHasItem ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    m Bool+bookmarkFileHasItem _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    result <- g_bookmark_file_has_item _obj' uri'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem uri'+    return result'++-- method BookmarkFile::load_from_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_load_from_data" g_bookmark_file_load_from_data :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- data : TBasicType TUTF8+    Word64 ->                               -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileLoadFromData ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- data+    Word64 ->                               -- length+    m ()+bookmarkFileLoadFromData _obj data_ length_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    data_' <- textToCString data_+    onException (do+        _ <- propagateGError $ g_bookmark_file_load_from_data _obj' data_' length_+        touchManagedPtr _obj+        freeMem data_'+        return ()+     ) (do+        freeMem data_'+     )++-- method BookmarkFile::load_from_data_dirs+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_load_from_data_dirs" g_bookmark_file_load_from_data_dirs :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- file : TBasicType TUTF8+    CString ->                              -- full_path : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileLoadFromDataDirs ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- file+    Maybe (T.Text) ->                       -- full_path+    m ()+bookmarkFileLoadFromDataDirs _obj file full_path = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    file' <- textToCString file+    maybeFull_path <- case full_path of+        Nothing -> return nullPtr+        Just jFull_path -> do+            jFull_path' <- textToCString jFull_path+            return jFull_path'+    onException (do+        _ <- propagateGError $ g_bookmark_file_load_from_data_dirs _obj' file' maybeFull_path+        touchManagedPtr _obj+        freeMem file'+        freeMem maybeFull_path+        return ()+     ) (do+        freeMem file'+        freeMem maybeFull_path+     )++-- method BookmarkFile::load_from_file+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_load_from_file" g_bookmark_file_load_from_file :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- filename : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileLoadFromFile ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- filename+    m ()+bookmarkFileLoadFromFile _obj filename = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    filename' <- textToCString filename+    onException (do+        _ <- propagateGError $ g_bookmark_file_load_from_file _obj' filename'+        touchManagedPtr _obj+        freeMem filename'+        return ()+     ) (do+        freeMem filename'+     )++-- method BookmarkFile::move_item+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_move_item" g_bookmark_file_move_item :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- old_uri : TBasicType TUTF8+    CString ->                              -- new_uri : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileMoveItem ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- old_uri+    Maybe (T.Text) ->                       -- new_uri+    m ()+bookmarkFileMoveItem _obj old_uri new_uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    old_uri' <- textToCString old_uri+    maybeNew_uri <- case new_uri of+        Nothing -> return nullPtr+        Just jNew_uri -> do+            jNew_uri' <- textToCString jNew_uri+            return jNew_uri'+    onException (do+        _ <- propagateGError $ g_bookmark_file_move_item _obj' old_uri' maybeNew_uri+        touchManagedPtr _obj+        freeMem old_uri'+        freeMem maybeNew_uri+        return ()+     ) (do+        freeMem old_uri'+        freeMem maybeNew_uri+     )++-- method BookmarkFile::remove_application+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_remove_application" g_bookmark_file_remove_application :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- name : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileRemoveApplication ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    T.Text ->                               -- name+    m ()+bookmarkFileRemoveApplication _obj uri name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    name' <- textToCString name+    onException (do+        _ <- propagateGError $ g_bookmark_file_remove_application _obj' uri' name'+        touchManagedPtr _obj+        freeMem uri'+        freeMem name'+        return ()+     ) (do+        freeMem uri'+        freeMem name'+     )++-- method BookmarkFile::remove_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_remove_group" g_bookmark_file_remove_group :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- group : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileRemoveGroup ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    T.Text ->                               -- group+    m ()+bookmarkFileRemoveGroup _obj uri group = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    group' <- textToCString group+    onException (do+        _ <- propagateGError $ g_bookmark_file_remove_group _obj' uri' group'+        touchManagedPtr _obj+        freeMem uri'+        freeMem group'+        return ()+     ) (do+        freeMem uri'+        freeMem group'+     )++-- method BookmarkFile::remove_item+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_remove_item" g_bookmark_file_remove_item :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileRemoveItem ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    m ()+bookmarkFileRemoveItem _obj uri = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    onException (do+        _ <- propagateGError $ g_bookmark_file_remove_item _obj' uri'+        touchManagedPtr _obj+        freeMem uri'+        return ()+     ) (do+        freeMem uri'+     )++-- method BookmarkFile::set_added+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "added", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "added", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_set_added" g_bookmark_file_set_added :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Int64 ->                                -- added : TBasicType TInt64+    IO ()+++bookmarkFileSetAdded ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    Int64 ->                                -- added+    m ()+bookmarkFileSetAdded _obj uri added = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    g_bookmark_file_set_added _obj' uri' added+    touchManagedPtr _obj+    freeMem uri'+    return ()++-- method BookmarkFile::set_app_info+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_set_app_info" g_bookmark_file_set_app_info :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- exec : TBasicType TUTF8+    Int32 ->                                -- count : TBasicType TInt32+    Int64 ->                                -- stamp : TBasicType TInt64+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileSetAppInfo ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    T.Text ->                               -- name+    T.Text ->                               -- exec+    Int32 ->                                -- count+    Int64 ->                                -- stamp+    m ()+bookmarkFileSetAppInfo _obj uri name exec count stamp = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    name' <- textToCString name+    exec' <- textToCString exec+    onException (do+        _ <- propagateGError $ g_bookmark_file_set_app_info _obj' uri' name' exec' count stamp+        touchManagedPtr _obj+        freeMem uri'+        freeMem name'+        freeMem exec'+        return ()+     ) (do+        freeMem uri'+        freeMem name'+        freeMem exec'+     )++-- method BookmarkFile::set_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_set_description" g_bookmark_file_set_description :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- description : TBasicType TUTF8+    IO ()+++bookmarkFileSetDescription ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    Maybe (T.Text) ->                       -- uri+    T.Text ->                               -- description+    m ()+bookmarkFileSetDescription _obj uri description = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeUri <- case uri of+        Nothing -> return nullPtr+        Just jUri -> do+            jUri' <- textToCString jUri+            return jUri'+    description' <- textToCString description+    g_bookmark_file_set_description _obj' maybeUri description'+    touchManagedPtr _obj+    freeMem maybeUri+    freeMem description'+    return ()++-- method BookmarkFile::set_groups+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "groups", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "groups", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_set_groups" g_bookmark_file_set_groups :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- groups : TBasicType TUTF8+    Word64 ->                               -- length : TBasicType TUInt64+    IO ()+++bookmarkFileSetGroups ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    Maybe (T.Text) ->                       -- groups+    Word64 ->                               -- length+    m ()+bookmarkFileSetGroups _obj uri groups length_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    maybeGroups <- case groups of+        Nothing -> return nullPtr+        Just jGroups -> do+            jGroups' <- textToCString jGroups+            return jGroups'+    g_bookmark_file_set_groups _obj' uri' maybeGroups length_+    touchManagedPtr _obj+    freeMem uri'+    freeMem maybeGroups+    return ()++-- method BookmarkFile::set_icon+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "href", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "href", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_set_icon" g_bookmark_file_set_icon :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- href : TBasicType TUTF8+    CString ->                              -- mime_type : TBasicType TUTF8+    IO ()+++bookmarkFileSetIcon ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    Maybe (T.Text) ->                       -- href+    T.Text ->                               -- mime_type+    m ()+bookmarkFileSetIcon _obj uri href mime_type = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    maybeHref <- case href of+        Nothing -> return nullPtr+        Just jHref -> do+            jHref' <- textToCString jHref+            return jHref'+    mime_type' <- textToCString mime_type+    g_bookmark_file_set_icon _obj' uri' maybeHref mime_type'+    touchManagedPtr _obj+    freeMem uri'+    freeMem maybeHref+    freeMem mime_type'+    return ()++-- method BookmarkFile::set_is_private+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_set_is_private" g_bookmark_file_set_is_private :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CInt ->                                 -- is_private : TBasicType TBoolean+    IO ()+++bookmarkFileSetIsPrivate ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    Bool ->                                 -- is_private+    m ()+bookmarkFileSetIsPrivate _obj uri is_private = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    let is_private' = (fromIntegral . fromEnum) is_private+    g_bookmark_file_set_is_private _obj' uri' is_private'+    touchManagedPtr _obj+    freeMem uri'+    return ()++-- method BookmarkFile::set_mime_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_set_mime_type" g_bookmark_file_set_mime_type :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- mime_type : TBasicType TUTF8+    IO ()+++bookmarkFileSetMimeType ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    T.Text ->                               -- mime_type+    m ()+bookmarkFileSetMimeType _obj uri mime_type = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    mime_type' <- textToCString mime_type+    g_bookmark_file_set_mime_type _obj' uri' mime_type'+    touchManagedPtr _obj+    freeMem uri'+    freeMem mime_type'+    return ()++-- method BookmarkFile::set_modified+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modified", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modified", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_set_modified" g_bookmark_file_set_modified :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Int64 ->                                -- modified : TBasicType TInt64+    IO ()+++bookmarkFileSetModified ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    Int64 ->                                -- modified+    m ()+bookmarkFileSetModified _obj uri modified = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    g_bookmark_file_set_modified _obj' uri' modified+    touchManagedPtr _obj+    freeMem uri'+    return ()++-- method BookmarkFile::set_title+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_set_title" g_bookmark_file_set_title :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    CString ->                              -- title : TBasicType TUTF8+    IO ()+++bookmarkFileSetTitle ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    Maybe (T.Text) ->                       -- uri+    T.Text ->                               -- title+    m ()+bookmarkFileSetTitle _obj uri title = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeUri <- case uri of+        Nothing -> return nullPtr+        Just jUri -> do+            jUri' <- textToCString jUri+            return jUri'+    title' <- textToCString title+    g_bookmark_file_set_title _obj' maybeUri title'+    touchManagedPtr _obj+    freeMem maybeUri+    freeMem title'+    return ()++-- method BookmarkFile::set_visited+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visited", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visited", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_set_visited" g_bookmark_file_set_visited :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- uri : TBasicType TUTF8+    Int64 ->                                -- visited : TBasicType TInt64+    IO ()+++bookmarkFileSetVisited ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- uri+    Int64 ->                                -- visited+    m ()+bookmarkFileSetVisited _obj uri visited = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    uri' <- textToCString uri+    g_bookmark_file_set_visited _obj' uri' visited+    touchManagedPtr _obj+    freeMem uri'+    return ()++-- method BookmarkFile::to_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_to_data" g_bookmark_file_to_data :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CString+++bookmarkFileToData ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    m (T.Text,Word64)+bookmarkFileToData _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_bookmark_file_to_data _obj' length_+        checkUnexpectedReturnNULL "g_bookmark_file_to_data" result+        result' <- cstringToText result+        freeMem result+        length_' <- peek length_+        touchManagedPtr _obj+        freeMem length_+        return (result', length_')+     ) (do+        freeMem length_+     )++-- method BookmarkFile::to_file+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_bookmark_file_to_file" g_bookmark_file_to_file :: +    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"+    CString ->                              -- filename : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++bookmarkFileToFile ::+    (MonadIO m) =>+    BookmarkFile ->                         -- _obj+    T.Text ->                               -- filename+    m ()+bookmarkFileToFile _obj filename = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    filename' <- textToCString filename+    onException (do+        _ <- propagateGError $ g_bookmark_file_to_file _obj' filename'+        touchManagedPtr _obj+        freeMem filename'+        return ()+     ) (do+        freeMem filename'+     )++-- Enum BookmarkFileError++data BookmarkFileError = +      BookmarkFileErrorInvalidUri+    | BookmarkFileErrorInvalidValue+    | BookmarkFileErrorAppNotRegistered+    | BookmarkFileErrorUriNotFound+    | BookmarkFileErrorRead+    | BookmarkFileErrorUnknownEncoding+    | BookmarkFileErrorWrite+    | BookmarkFileErrorFileNotFound+    | AnotherBookmarkFileError Int+    deriving (Show, Eq)++instance Enum BookmarkFileError where+    fromEnum BookmarkFileErrorInvalidUri = 0+    fromEnum BookmarkFileErrorInvalidValue = 1+    fromEnum BookmarkFileErrorAppNotRegistered = 2+    fromEnum BookmarkFileErrorUriNotFound = 3+    fromEnum BookmarkFileErrorRead = 4+    fromEnum BookmarkFileErrorUnknownEncoding = 5+    fromEnum BookmarkFileErrorWrite = 6+    fromEnum BookmarkFileErrorFileNotFound = 7+    fromEnum (AnotherBookmarkFileError k) = k++    toEnum 0 = BookmarkFileErrorInvalidUri+    toEnum 1 = BookmarkFileErrorInvalidValue+    toEnum 2 = BookmarkFileErrorAppNotRegistered+    toEnum 3 = BookmarkFileErrorUriNotFound+    toEnum 4 = BookmarkFileErrorRead+    toEnum 5 = BookmarkFileErrorUnknownEncoding+    toEnum 6 = BookmarkFileErrorWrite+    toEnum 7 = BookmarkFileErrorFileNotFound+    toEnum k = AnotherBookmarkFileError k++instance GErrorClass BookmarkFileError where+    gerrorClassDomain _ = "g-bookmark-file-error-quark"++catchBookmarkFileError ::+    IO a ->+    (BookmarkFileError -> GErrorMessage -> IO a) ->+    IO a+catchBookmarkFileError = catchGErrorJustDomain++handleBookmarkFileError ::+    (BookmarkFileError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleBookmarkFileError = handleGErrorJustDomain++-- struct ByteArray+newtype ByteArray = ByteArray (ForeignPtr ByteArray)+noByteArray :: Maybe ByteArray+noByteArray = Nothing++foreign import ccall "g_byte_array_get_type" c_g_byte_array_get_type :: +    IO GType++instance BoxedObject ByteArray where+    boxedType _ = c_g_byte_array_get_type++byteArrayReadData :: ByteArray -> IO Word8+byteArrayReadData s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word8+    return val++byteArrayReadLen :: ByteArray -> IO Word32+byteArrayReadLen s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word32+    return val++-- struct Bytes+newtype Bytes = Bytes (ForeignPtr Bytes)+noBytes :: Maybe Bytes+noBytes = Nothing++foreign import ccall "g_bytes_get_type" c_g_bytes_get_type :: +    IO GType++instance BoxedObject Bytes where+    boxedType _ = c_g_bytes_get_type++-- method Bytes::new+-- method type : Constructor+-- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Bytes"+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_new" g_bytes_new :: +    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)+    Word64 ->                               -- size : TBasicType TUInt64+    IO (Ptr Bytes)+++bytesNew ::+    (MonadIO m) =>+    Maybe (ByteString) ->                   -- data+    m Bytes+bytesNew data_ = liftIO $ do+    let size = case data_ of+            Nothing -> 0+            Just jData_ -> fromIntegral $ B.length jData_+    maybeData_ <- case data_ of+        Nothing -> return nullPtr+        Just jData_ -> do+            jData_' <- packByteString jData_+            return jData_'+    result <- g_bytes_new maybeData_ size+    checkUnexpectedReturnNULL "g_bytes_new" result+    result' <- (wrapBoxed Bytes) result+    freeMem maybeData_+    return result'++-- method Bytes::new_take+-- method type : Constructor+-- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TInterface "GLib" "Bytes"+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_new_take" g_bytes_new_take :: +    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)+    Word64 ->                               -- size : TBasicType TUInt64+    IO (Ptr Bytes)+++bytesNewTake ::+    (MonadIO m) =>+    Maybe (ByteString) ->                   -- data+    m Bytes+bytesNewTake data_ = liftIO $ do+    let size = case data_ of+            Nothing -> 0+            Just jData_ -> fromIntegral $ B.length jData_+    maybeData_ <- case data_ of+        Nothing -> return nullPtr+        Just jData_ -> do+            jData_' <- packByteString jData_+            return jData_'+    result <- g_bytes_new_take maybeData_ size+    checkUnexpectedReturnNULL "g_bytes_new_take" result+    result' <- (wrapBoxed Bytes) result+    return result'++-- method Bytes::compare+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_compare" g_bytes_compare :: +    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"+    Ptr Bytes ->                            -- bytes2 : TInterface "GLib" "Bytes"+    IO Int32+++bytesCompare ::+    (MonadIO m) =>+    Bytes ->                                -- _obj+    Bytes ->                                -- bytes2+    m Int32+bytesCompare _obj bytes2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let bytes2' = unsafeManagedPtrGetPtr bytes2+    result <- g_bytes_compare _obj' bytes2'+    touchManagedPtr _obj+    touchManagedPtr bytes2+    return result++-- method Bytes::equal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_equal" g_bytes_equal :: +    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"+    Ptr Bytes ->                            -- bytes2 : TInterface "GLib" "Bytes"+    IO CInt+++bytesEqual ::+    (MonadIO m) =>+    Bytes ->                                -- _obj+    Bytes ->                                -- bytes2+    m Bool+bytesEqual _obj bytes2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let bytes2' = unsafeManagedPtrGetPtr bytes2+    result <- g_bytes_equal _obj' bytes2'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr bytes2+    return result'++-- method Bytes::get_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 1 (TBasicType TUInt8)+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_get_data" g_bytes_get_data :: +    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"+    Ptr Word64 ->                           -- size : TBasicType TUInt64+    IO (Ptr Word8)+++bytesGetData ::+    (MonadIO m) =>+    Bytes ->                                -- _obj+    m ByteString+bytesGetData _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    size <- allocMem :: IO (Ptr Word64)+    result <- g_bytes_get_data _obj' size+    size' <- peek size+    checkUnexpectedReturnNULL "g_bytes_get_data" result+    result' <- (unpackByteStringWithLength size') result+    touchManagedPtr _obj+    freeMem size+    return result'++-- method Bytes::get_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_get_size" g_bytes_get_size :: +    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"+    IO Word64+++bytesGetSize ::+    (MonadIO m) =>+    Bytes ->                                -- _obj+    m Word64+bytesGetSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_bytes_get_size _obj'+    touchManagedPtr _obj+    return result++-- method Bytes::hash+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_hash" g_bytes_hash :: +    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"+    IO Word32+++bytesHash ::+    (MonadIO m) =>+    Bytes ->                                -- _obj+    m Word32+bytesHash _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_bytes_hash _obj'+    touchManagedPtr _obj+    return result++-- method Bytes::new_from_bytes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Bytes"+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_new_from_bytes" g_bytes_new_from_bytes :: +    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"+    Word64 ->                               -- offset : TBasicType TUInt64+    Word64 ->                               -- length : TBasicType TUInt64+    IO (Ptr Bytes)+++bytesNewFromBytes ::+    (MonadIO m) =>+    Bytes ->                                -- _obj+    Word64 ->                               -- offset+    Word64 ->                               -- length+    m Bytes+bytesNewFromBytes _obj offset length_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_bytes_new_from_bytes _obj' offset length_+    checkUnexpectedReturnNULL "g_bytes_new_from_bytes" result+    result' <- (wrapBoxed Bytes) result+    touchManagedPtr _obj+    return result'++-- method Bytes::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Bytes"+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_ref" g_bytes_ref :: +    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"+    IO (Ptr Bytes)+++bytesRef ::+    (MonadIO m) =>+    Bytes ->                                -- _obj+    m Bytes+bytesRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_bytes_ref _obj'+    checkUnexpectedReturnNULL "g_bytes_ref" result+    result' <- (wrapBoxed Bytes) result+    touchManagedPtr _obj+    return result'++-- method Bytes::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_unref" g_bytes_unref :: +    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"+    IO ()+++bytesUnref ::+    (MonadIO m) =>+    Bytes ->                                -- _obj+    m ()+bytesUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_bytes_unref _obj'+    touchManagedPtr _obj+    return ()++-- method Bytes::unref_to_array+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TByteArray+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_unref_to_array" g_bytes_unref_to_array :: +    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"+    IO (Ptr GByteArray)+++bytesUnrefToArray ::+    (MonadIO m) =>+    Bytes ->                                -- _obj+    m ByteString+bytesUnrefToArray _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_bytes_unref_to_array _obj'+    checkUnexpectedReturnNULL "g_bytes_unref_to_array" result+    result' <- unpackGByteArray result+    unrefGByteArray result+    touchManagedPtr _obj+    return result'++-- method Bytes::unref_to_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bytes_unref_to_data" g_bytes_unref_to_data :: +    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"+    Word64 ->                               -- size : TBasicType TUInt64+    IO ()+++bytesUnrefToData ::+    (MonadIO m) =>+    Bytes ->                                -- _obj+    Word64 ->                               -- size+    m ()+bytesUnrefToData _obj size = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_bytes_unref_to_data _obj' size+    touchManagedPtr _obj+    return ()++-- struct Checksum+newtype Checksum = Checksum (ForeignPtr Checksum)+noChecksum :: Maybe Checksum+noChecksum = Nothing++foreign import ccall "g_checksum_get_type" c_g_checksum_get_type :: +    IO GType++instance BoxedObject Checksum where+    boxedType _ = c_g_checksum_get_type++-- method Checksum::new+-- method type : Constructor+-- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Checksum"+-- throws : False+-- Skip return : False++foreign import ccall "g_checksum_new" g_checksum_new :: +    CUInt ->                                -- checksum_type : TInterface "GLib" "ChecksumType"+    IO (Ptr Checksum)+++checksumNew ::+    (MonadIO m) =>+    ChecksumType ->                         -- checksum_type+    m Checksum+checksumNew checksum_type = liftIO $ do+    let checksum_type' = (fromIntegral . fromEnum) checksum_type+    result <- g_checksum_new checksum_type'+    checkUnexpectedReturnNULL "g_checksum_new" result+    result' <- (wrapBoxed Checksum) result+    return result'++-- method Checksum::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Checksum"+-- throws : False+-- Skip return : False++foreign import ccall "g_checksum_copy" g_checksum_copy :: +    Ptr Checksum ->                         -- _obj : TInterface "GLib" "Checksum"+    IO (Ptr Checksum)+++checksumCopy ::+    (MonadIO m) =>+    Checksum ->                             -- _obj+    m Checksum+checksumCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_checksum_copy _obj'+    checkUnexpectedReturnNULL "g_checksum_copy" result+    result' <- (wrapBoxed Checksum) result+    touchManagedPtr _obj+    return result'++-- method Checksum::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_checksum_free" g_checksum_free :: +    Ptr Checksum ->                         -- _obj : TInterface "GLib" "Checksum"+    IO ()+++checksumFree ::+    (MonadIO m) =>+    Checksum ->                             -- _obj+    m ()+checksumFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_checksum_free _obj'+    touchManagedPtr _obj+    return ()++-- method Checksum::get_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_checksum_get_string" g_checksum_get_string :: +    Ptr Checksum ->                         -- _obj : TInterface "GLib" "Checksum"+    IO CString+++checksumGetString ::+    (MonadIO m) =>+    Checksum ->                             -- _obj+    m T.Text+checksumGetString _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_checksum_get_string _obj'+    checkUnexpectedReturnNULL "g_checksum_get_string" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Checksum::reset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_checksum_reset" g_checksum_reset :: +    Ptr Checksum ->                         -- _obj : TInterface "GLib" "Checksum"+    IO ()+++checksumReset ::+    (MonadIO m) =>+    Checksum ->                             -- _obj+    m ()+checksumReset _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_checksum_reset _obj'+    touchManagedPtr _obj+    return ()++-- method Checksum::update+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_checksum_update" g_checksum_update :: +    Ptr Checksum ->                         -- _obj : TInterface "GLib" "Checksum"+    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)+    Int64 ->                                -- length : TBasicType TInt64+    IO ()+++checksumUpdate ::+    (MonadIO m) =>+    Checksum ->                             -- _obj+    ByteString ->                           -- data+    m ()+checksumUpdate _obj data_ = liftIO $ do+    let length_ = fromIntegral $ B.length data_+    let _obj' = unsafeManagedPtrGetPtr _obj+    data_' <- packByteString data_+    g_checksum_update _obj' data_' length_+    touchManagedPtr _obj+    freeMem data_'+    return ()++-- Enum ChecksumType++data ChecksumType = +      ChecksumTypeMd5+    | ChecksumTypeSha1+    | ChecksumTypeSha256+    | ChecksumTypeSha512+    | AnotherChecksumType Int+    deriving (Show, Eq)++instance Enum ChecksumType where+    fromEnum ChecksumTypeMd5 = 0+    fromEnum ChecksumTypeSha1 = 1+    fromEnum ChecksumTypeSha256 = 2+    fromEnum ChecksumTypeSha512 = 3+    fromEnum (AnotherChecksumType k) = k++    toEnum 0 = ChecksumTypeMd5+    toEnum 1 = ChecksumTypeSha1+    toEnum 2 = ChecksumTypeSha256+    toEnum 3 = ChecksumTypeSha512+    toEnum k = AnotherChecksumType k++-- callback ChildWatchFunc+childWatchFuncClosure :: ChildWatchFunc -> IO Closure+childWatchFuncClosure cb = newCClosure =<< mkChildWatchFunc wrapped+    where wrapped = childWatchFuncWrapper Nothing cb++type ChildWatchFuncC =+    Int32 ->+    Int32 ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkChildWatchFunc :: ChildWatchFuncC -> IO (FunPtr ChildWatchFuncC)++type ChildWatchFunc =+    Int32 ->+    Int32 ->+    IO ()++noChildWatchFunc :: Maybe ChildWatchFunc+noChildWatchFunc = Nothing++childWatchFuncWrapper ::+    Maybe (Ptr (FunPtr (ChildWatchFuncC))) ->+    ChildWatchFunc ->+    Int32 ->+    Int32 ->+    Ptr () ->+    IO ()+childWatchFuncWrapper funptrptr _cb pid status _ = do+    _cb  pid status+    maybeReleaseFunPtr funptrptr++-- callback CompareDataFunc+compareDataFuncClosure :: CompareDataFunc -> IO Closure+compareDataFuncClosure cb = newCClosure =<< mkCompareDataFunc wrapped+    where wrapped = compareDataFuncWrapper Nothing cb++type CompareDataFuncC =+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO Int32++foreign import ccall "wrapper"+    mkCompareDataFunc :: CompareDataFuncC -> IO (FunPtr CompareDataFuncC)++type CompareDataFunc =+    Ptr () ->+    Ptr () ->+    IO Int32++noCompareDataFunc :: Maybe CompareDataFunc+noCompareDataFunc = Nothing++compareDataFuncWrapper ::+    Maybe (Ptr (FunPtr (CompareDataFuncC))) ->+    CompareDataFunc ->+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO Int32+compareDataFuncWrapper funptrptr _cb a b _ = do+    result <- _cb  a b+    maybeReleaseFunPtr funptrptr+    return result++-- callback CompareFunc+compareFuncClosure :: CompareFunc -> IO Closure+compareFuncClosure cb = newCClosure =<< mkCompareFunc wrapped+    where wrapped = compareFuncWrapper Nothing cb++type CompareFuncC =+    Ptr () ->+    Ptr () ->+    IO Int32++foreign import ccall "wrapper"+    mkCompareFunc :: CompareFuncC -> IO (FunPtr CompareFuncC)++type CompareFunc =+    Ptr () ->+    Ptr () ->+    IO Int32++noCompareFunc :: Maybe CompareFunc+noCompareFunc = Nothing++compareFuncWrapper ::+    Maybe (Ptr (FunPtr (CompareFuncC))) ->+    CompareFunc ->+    Ptr () ->+    Ptr () ->+    IO Int32+compareFuncWrapper funptrptr _cb a b = do+    result <- _cb  a b+    maybeReleaseFunPtr funptrptr+    return result++-- struct Cond+newtype Cond = Cond (ForeignPtr Cond)+noCond :: Maybe Cond+noCond = Nothing++-- method Cond::broadcast+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_cond_broadcast" g_cond_broadcast :: +    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"+    IO ()+++condBroadcast ::+    (MonadIO m) =>+    Cond ->                                 -- _obj+    m ()+condBroadcast _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_cond_broadcast _obj'+    touchManagedPtr _obj+    return ()++-- method Cond::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_cond_clear" g_cond_clear :: +    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"+    IO ()+++condClear ::+    (MonadIO m) =>+    Cond ->                                 -- _obj+    m ()+condClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_cond_clear _obj'+    touchManagedPtr _obj+    return ()++-- method Cond::init+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_cond_init" g_cond_init :: +    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"+    IO ()+++condInit ::+    (MonadIO m) =>+    Cond ->                                 -- _obj+    m ()+condInit _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_cond_init _obj'+    touchManagedPtr _obj+    return ()++-- method Cond::signal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_cond_signal" g_cond_signal :: +    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"+    IO ()+++condSignal ::+    (MonadIO m) =>+    Cond ->                                 -- _obj+    m ()+condSignal _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_cond_signal _obj'+    touchManagedPtr _obj+    return ()++-- method Cond::wait+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_cond_wait" g_cond_wait :: +    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"+    Ptr Mutex ->                            -- mutex : TInterface "GLib" "Mutex"+    IO ()+++condWait ::+    (MonadIO m) =>+    Cond ->                                 -- _obj+    Mutex ->                                -- mutex+    m ()+condWait _obj mutex = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let mutex' = unsafeManagedPtrGetPtr mutex+    g_cond_wait _obj' mutex'+    touchManagedPtr _obj+    touchManagedPtr mutex+    return ()++-- method Cond::wait_until+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_cond_wait_until" g_cond_wait_until :: +    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"+    Ptr Mutex ->                            -- mutex : TInterface "GLib" "Mutex"+    Int64 ->                                -- end_time : TBasicType TInt64+    IO CInt+++condWaitUntil ::+    (MonadIO m) =>+    Cond ->                                 -- _obj+    Mutex ->                                -- mutex+    Int64 ->                                -- end_time+    m Bool+condWaitUntil _obj mutex end_time = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let mutex' = unsafeManagedPtrGetPtr mutex+    result <- g_cond_wait_until _obj' mutex' end_time+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr mutex+    return result'++-- Enum ConvertError++data ConvertError = +      ConvertErrorNoConversion+    | ConvertErrorIllegalSequence+    | ConvertErrorFailed+    | ConvertErrorPartialInput+    | ConvertErrorBadUri+    | ConvertErrorNotAbsolutePath+    | ConvertErrorNoMemory+    | AnotherConvertError Int+    deriving (Show, Eq)++instance Enum ConvertError where+    fromEnum ConvertErrorNoConversion = 0+    fromEnum ConvertErrorIllegalSequence = 1+    fromEnum ConvertErrorFailed = 2+    fromEnum ConvertErrorPartialInput = 3+    fromEnum ConvertErrorBadUri = 4+    fromEnum ConvertErrorNotAbsolutePath = 5+    fromEnum ConvertErrorNoMemory = 6+    fromEnum (AnotherConvertError k) = k++    toEnum 0 = ConvertErrorNoConversion+    toEnum 1 = ConvertErrorIllegalSequence+    toEnum 2 = ConvertErrorFailed+    toEnum 3 = ConvertErrorPartialInput+    toEnum 4 = ConvertErrorBadUri+    toEnum 5 = ConvertErrorNotAbsolutePath+    toEnum 6 = ConvertErrorNoMemory+    toEnum k = AnotherConvertError k++instance GErrorClass ConvertError where+    gerrorClassDomain _ = "g_convert_error"++catchConvertError ::+    IO a ->+    (ConvertError -> GErrorMessage -> IO a) ->+    IO a+catchConvertError = catchGErrorJustDomain++handleConvertError ::+    (ConvertError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleConvertError = handleGErrorJustDomain++-- struct Data+newtype Data = Data (ForeignPtr Data)+noData :: Maybe Data+noData = Nothing++-- callback DataForeachFunc+dataForeachFuncClosure :: DataForeachFunc -> IO Closure+dataForeachFuncClosure cb = newCClosure =<< mkDataForeachFunc wrapped+    where wrapped = dataForeachFuncWrapper Nothing cb++type DataForeachFuncC =+    Word32 ->+    Ptr () ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkDataForeachFunc :: DataForeachFuncC -> IO (FunPtr DataForeachFuncC)++type DataForeachFunc =+    Word32 ->+    Ptr () ->+    IO ()++noDataForeachFunc :: Maybe DataForeachFunc+noDataForeachFunc = Nothing++dataForeachFuncWrapper ::+    Maybe (Ptr (FunPtr (DataForeachFuncC))) ->+    DataForeachFunc ->+    Word32 ->+    Ptr () ->+    Ptr () ->+    IO ()+dataForeachFuncWrapper funptrptr _cb key_id data_ _ = do+    _cb  key_id data_+    maybeReleaseFunPtr funptrptr++-- struct Date+newtype Date = Date (ForeignPtr Date)+noDate :: Maybe Date+noDate = Nothing++foreign import ccall "g_date_get_type" c_g_date_get_type :: +    IO GType++instance BoxedObject Date where+    boxedType _ = c_g_date_get_type++dateReadJulianDays :: Date -> IO Word32+dateReadJulianDays s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word32+    return val++dateReadJulian :: Date -> IO Word32+dateReadJulian s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Word32+    return val++dateReadDmy :: Date -> IO Word32+dateReadDmy s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word32+    return val++dateReadDay :: Date -> IO Word32+dateReadDay s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Word32+    return val++dateReadMonth :: Date -> IO Word32+dateReadMonth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Word32+    return val++dateReadYear :: Date -> IO Word32+dateReadYear s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Word32+    return val++-- method Date::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "Date"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_new" g_date_new :: +    IO (Ptr Date)+++dateNew ::+    (MonadIO m) =>+    m Date+dateNew  = liftIO $ do+    result <- g_date_new+    checkUnexpectedReturnNULL "g_date_new" result+    result' <- (wrapBoxed Date) result+    return result'++-- method Date::new_dmy+-- method type : Constructor+-- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Date"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_new_dmy" g_date_new_dmy :: +    Word8 ->                                -- day : TBasicType TUInt8+    CUInt ->                                -- month : TInterface "GLib" "DateMonth"+    Word16 ->                               -- year : TBasicType TUInt16+    IO (Ptr Date)+++dateNewDmy ::+    (MonadIO m) =>+    Word8 ->                                -- day+    DateMonth ->                            -- month+    Word16 ->                               -- year+    m Date+dateNewDmy day month year = liftIO $ do+    let month' = (fromIntegral . fromEnum) month+    result <- g_date_new_dmy day month' year+    checkUnexpectedReturnNULL "g_date_new_dmy" result+    result' <- (wrapBoxed Date) result+    return result'++-- method Date::new_julian+-- method type : Constructor+-- Args : [Arg {argName = "julian_day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "julian_day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Date"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_new_julian" g_date_new_julian :: +    Word32 ->                               -- julian_day : TBasicType TUInt32+    IO (Ptr Date)+++dateNewJulian ::+    (MonadIO m) =>+    Word32 ->                               -- julian_day+    m Date+dateNewJulian julian_day = liftIO $ do+    result <- g_date_new_julian julian_day+    checkUnexpectedReturnNULL "g_date_new_julian" result+    result' <- (wrapBoxed Date) result+    return result'++-- method Date::add_days+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_add_days" g_date_add_days :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Word32 ->                               -- n_days : TBasicType TUInt32+    IO ()+++dateAddDays ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Word32 ->                               -- n_days+    m ()+dateAddDays _obj n_days = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_add_days _obj' n_days+    touchManagedPtr _obj+    return ()++-- method Date::add_months+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_add_months" g_date_add_months :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Word32 ->                               -- n_months : TBasicType TUInt32+    IO ()+++dateAddMonths ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Word32 ->                               -- n_months+    m ()+dateAddMonths _obj n_months = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_add_months _obj' n_months+    touchManagedPtr _obj+    return ()++-- method Date::add_years+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_add_years" g_date_add_years :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Word32 ->                               -- n_years : TBasicType TUInt32+    IO ()+++dateAddYears ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Word32 ->                               -- n_years+    m ()+dateAddYears _obj n_years = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_add_years _obj' n_years+    touchManagedPtr _obj+    return ()++-- method Date::clamp+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_clamp" g_date_clamp :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Ptr Date ->                             -- min_date : TInterface "GLib" "Date"+    Ptr Date ->                             -- max_date : TInterface "GLib" "Date"+    IO ()+++dateClamp ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Date ->                                 -- min_date+    Date ->                                 -- max_date+    m ()+dateClamp _obj min_date max_date = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let min_date' = unsafeManagedPtrGetPtr min_date+    let max_date' = unsafeManagedPtrGetPtr max_date+    g_date_clamp _obj' min_date' max_date'+    touchManagedPtr _obj+    touchManagedPtr min_date+    touchManagedPtr max_date+    return ()++-- method Date::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_dates", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_dates", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_clear" g_date_clear :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Word32 ->                               -- n_dates : TBasicType TUInt32+    IO ()+++dateClear ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Word32 ->                               -- n_dates+    m ()+dateClear _obj n_dates = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_clear _obj' n_dates+    touchManagedPtr _obj+    return ()++-- method Date::compare+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_compare" g_date_compare :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Ptr Date ->                             -- rhs : TInterface "GLib" "Date"+    IO Int32+++dateCompare ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Date ->                                 -- rhs+    m Int32+dateCompare _obj rhs = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let rhs' = unsafeManagedPtrGetPtr rhs+    result <- g_date_compare _obj' rhs'+    touchManagedPtr _obj+    touchManagedPtr rhs+    return result++-- method Date::days_between+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_days_between" g_date_days_between :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Ptr Date ->                             -- date2 : TInterface "GLib" "Date"+    IO Int32+++dateDaysBetween ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Date ->                                 -- date2+    m Int32+dateDaysBetween _obj date2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let date2' = unsafeManagedPtrGetPtr date2+    result <- g_date_days_between _obj' date2'+    touchManagedPtr _obj+    touchManagedPtr date2+    return result++-- method Date::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_free" g_date_free :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO ()+++dateFree ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m ()+dateFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_free _obj'+    touchManagedPtr _obj+    return ()++-- method Date::get_day+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt8+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_day" g_date_get_day :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO Word8+++dateGetDay ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Word8+dateGetDay _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_get_day _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_day_of_year+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_day_of_year" g_date_get_day_of_year :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO Word32+++dateGetDayOfYear ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Word32+dateGetDayOfYear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_get_day_of_year _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_iso8601_week_of_year+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_iso8601_week_of_year" g_date_get_iso8601_week_of_year :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO Word32+++dateGetIso8601WeekOfYear ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Word32+dateGetIso8601WeekOfYear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_get_iso8601_week_of_year _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_julian+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_julian" g_date_get_julian :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO Word32+++dateGetJulian ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Word32+dateGetJulian _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_get_julian _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_monday_week_of_year+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_monday_week_of_year" g_date_get_monday_week_of_year :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO Word32+++dateGetMondayWeekOfYear ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Word32+dateGetMondayWeekOfYear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_get_monday_week_of_year _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_month+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateMonth"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_month" g_date_get_month :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO CUInt+++dateGetMonth ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m DateMonth+dateGetMonth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_get_month _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Date::get_sunday_week_of_year+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_sunday_week_of_year" g_date_get_sunday_week_of_year :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO Word32+++dateGetSundayWeekOfYear ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Word32+dateGetSundayWeekOfYear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_get_sunday_week_of_year _obj'+    touchManagedPtr _obj+    return result++-- method Date::get_weekday+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateWeekday"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_weekday" g_date_get_weekday :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO CUInt+++dateGetWeekday ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m DateWeekday+dateGetWeekday _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_get_weekday _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Date::get_year+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt16+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_year" g_date_get_year :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO Word16+++dateGetYear ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Word16+dateGetYear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_get_year _obj'+    touchManagedPtr _obj+    return result++-- method Date::is_first_of_month+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_is_first_of_month" g_date_is_first_of_month :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO CInt+++dateIsFirstOfMonth ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Bool+dateIsFirstOfMonth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_is_first_of_month _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Date::is_last_of_month+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_is_last_of_month" g_date_is_last_of_month :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO CInt+++dateIsLastOfMonth ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Bool+dateIsLastOfMonth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_is_last_of_month _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Date::order+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_order" g_date_order :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Ptr Date ->                             -- date2 : TInterface "GLib" "Date"+    IO ()+++dateOrder ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Date ->                                 -- date2+    m ()+dateOrder _obj date2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let date2' = unsafeManagedPtrGetPtr date2+    g_date_order _obj' date2'+    touchManagedPtr _obj+    touchManagedPtr date2+    return ()++-- method Date::set_day+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_set_day" g_date_set_day :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Word8 ->                                -- day : TBasicType TUInt8+    IO ()+++dateSetDay ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Word8 ->                                -- day+    m ()+dateSetDay _obj day = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_set_day _obj' day+    touchManagedPtr _obj+    return ()++-- method Date::set_dmy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_set_dmy" g_date_set_dmy :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Word8 ->                                -- day : TBasicType TUInt8+    CUInt ->                                -- month : TInterface "GLib" "DateMonth"+    Word16 ->                               -- y : TBasicType TUInt16+    IO ()+++dateSetDmy ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Word8 ->                                -- day+    DateMonth ->                            -- month+    Word16 ->                               -- y+    m ()+dateSetDmy _obj day month y = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let month' = (fromIntegral . fromEnum) month+    g_date_set_dmy _obj' day month' y+    touchManagedPtr _obj+    return ()++-- method Date::set_julian+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_set_julian" g_date_set_julian :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Word32 ->                               -- julian_date : TBasicType TUInt32+    IO ()+++dateSetJulian ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Word32 ->                               -- julian_date+    m ()+dateSetJulian _obj julian_date = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_set_julian _obj' julian_date+    touchManagedPtr _obj+    return ()++-- method Date::set_month+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_set_month" g_date_set_month :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    CUInt ->                                -- month : TInterface "GLib" "DateMonth"+    IO ()+++dateSetMonth ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    DateMonth ->                            -- month+    m ()+dateSetMonth _obj month = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let month' = (fromIntegral . fromEnum) month+    g_date_set_month _obj' month'+    touchManagedPtr _obj+    return ()++-- method Date::set_parse+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_set_parse" g_date_set_parse :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    CString ->                              -- str : TBasicType TUTF8+    IO ()+++dateSetParse ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    T.Text ->                               -- str+    m ()+dateSetParse _obj str = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    str' <- textToCString str+    g_date_set_parse _obj' str'+    touchManagedPtr _obj+    freeMem str'+    return ()++-- method Date::set_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_set_time" g_date_set_time :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Int32 ->                                -- time_ : TBasicType TInt32+    IO ()++{-# DEPRECATED dateSetTime ["(Since version 2.10)","Use g_date_set_time_t() instead."]#-}+dateSetTime ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Int32 ->                                -- time_+    m ()+dateSetTime _obj time_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_set_time _obj' time_+    touchManagedPtr _obj+    return ()++-- method Date::set_time_t+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timet", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timet", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_set_time_t" g_date_set_time_t :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Int64 ->                                -- timet : TBasicType TInt64+    IO ()+++dateSetTimeT ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Int64 ->                                -- timet+    m ()+dateSetTimeT _obj timet = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_set_time_t _obj' timet+    touchManagedPtr _obj+    return ()++-- method Date::set_time_val+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_set_time_val" g_date_set_time_val :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Ptr TimeVal ->                          -- timeval : TInterface "GLib" "TimeVal"+    IO ()+++dateSetTimeVal ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    TimeVal ->                              -- timeval+    m ()+dateSetTimeVal _obj timeval = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let timeval' = unsafeManagedPtrGetPtr timeval+    g_date_set_time_val _obj' timeval'+    touchManagedPtr _obj+    touchManagedPtr timeval+    return ()++-- method Date::set_year+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_set_year" g_date_set_year :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Word16 ->                               -- year : TBasicType TUInt16+    IO ()+++dateSetYear ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Word16 ->                               -- year+    m ()+dateSetYear _obj year = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_set_year _obj' year+    touchManagedPtr _obj+    return ()++-- method Date::subtract_days+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_subtract_days" g_date_subtract_days :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Word32 ->                               -- n_days : TBasicType TUInt32+    IO ()+++dateSubtractDays ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Word32 ->                               -- n_days+    m ()+dateSubtractDays _obj n_days = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_subtract_days _obj' n_days+    touchManagedPtr _obj+    return ()++-- method Date::subtract_months+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_subtract_months" g_date_subtract_months :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Word32 ->                               -- n_months : TBasicType TUInt32+    IO ()+++dateSubtractMonths ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Word32 ->                               -- n_months+    m ()+dateSubtractMonths _obj n_months = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_subtract_months _obj' n_months+    touchManagedPtr _obj+    return ()++-- method Date::subtract_years+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_subtract_years" g_date_subtract_years :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Word32 ->                               -- n_years : TBasicType TUInt32+    IO ()+++dateSubtractYears ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Word32 ->                               -- n_years+    m ()+dateSubtractYears _obj n_years = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_subtract_years _obj' n_years+    touchManagedPtr _obj+    return ()++-- method Date::to_struct_tm+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tm", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tm", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_to_struct_tm" g_date_to_struct_tm :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    Ptr () ->                               -- tm : TBasicType TVoid+    IO ()+++dateToStructTm ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    Ptr () ->                               -- tm+    m ()+dateToStructTm _obj tm = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_to_struct_tm _obj' tm+    touchManagedPtr _obj+    return ()++-- method Date::valid+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_valid" g_date_valid :: +    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"+    IO CInt+++dateValid ::+    (MonadIO m) =>+    Date ->                                 -- _obj+    m Bool+dateValid _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_valid _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- Enum DateDMY++data DateDMY = +      DateDMYDay+    | DateDMYMonth+    | DateDMYYear+    | AnotherDateDMY Int+    deriving (Show, Eq)++instance Enum DateDMY where+    fromEnum DateDMYDay = 0+    fromEnum DateDMYMonth = 1+    fromEnum DateDMYYear = 2+    fromEnum (AnotherDateDMY k) = k++    toEnum 0 = DateDMYDay+    toEnum 1 = DateDMYMonth+    toEnum 2 = DateDMYYear+    toEnum k = AnotherDateDMY k++-- Enum DateMonth++data DateMonth = +      DateMonthBadMonth+    | DateMonthJanuary+    | DateMonthFebruary+    | DateMonthMarch+    | DateMonthApril+    | DateMonthMay+    | DateMonthJune+    | DateMonthJuly+    | DateMonthAugust+    | DateMonthSeptember+    | DateMonthOctober+    | DateMonthNovember+    | DateMonthDecember+    | AnotherDateMonth Int+    deriving (Show, Eq)++instance Enum DateMonth where+    fromEnum DateMonthBadMonth = 0+    fromEnum DateMonthJanuary = 1+    fromEnum DateMonthFebruary = 2+    fromEnum DateMonthMarch = 3+    fromEnum DateMonthApril = 4+    fromEnum DateMonthMay = 5+    fromEnum DateMonthJune = 6+    fromEnum DateMonthJuly = 7+    fromEnum DateMonthAugust = 8+    fromEnum DateMonthSeptember = 9+    fromEnum DateMonthOctober = 10+    fromEnum DateMonthNovember = 11+    fromEnum DateMonthDecember = 12+    fromEnum (AnotherDateMonth k) = k++    toEnum 0 = DateMonthBadMonth+    toEnum 1 = DateMonthJanuary+    toEnum 2 = DateMonthFebruary+    toEnum 3 = DateMonthMarch+    toEnum 4 = DateMonthApril+    toEnum 5 = DateMonthMay+    toEnum 6 = DateMonthJune+    toEnum 7 = DateMonthJuly+    toEnum 8 = DateMonthAugust+    toEnum 9 = DateMonthSeptember+    toEnum 10 = DateMonthOctober+    toEnum 11 = DateMonthNovember+    toEnum 12 = DateMonthDecember+    toEnum k = AnotherDateMonth k++-- struct DateTime+newtype DateTime = DateTime (ForeignPtr DateTime)+noDateTime :: Maybe DateTime+noDateTime = Nothing++foreign import ccall "g_date_time_get_type" c_g_date_time_get_type :: +    IO GType++instance BoxedObject DateTime where+    boxedType _ = c_g_date_time_get_type++-- method DateTime::new+-- method type : Constructor+-- Args : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_new" g_date_time_new :: +    Ptr TimeZone ->                         -- tz : TInterface "GLib" "TimeZone"+    Int32 ->                                -- year : TBasicType TInt32+    Int32 ->                                -- month : TBasicType TInt32+    Int32 ->                                -- day : TBasicType TInt32+    Int32 ->                                -- hour : TBasicType TInt32+    Int32 ->                                -- minute : TBasicType TInt32+    CDouble ->                              -- seconds : TBasicType TDouble+    IO (Ptr DateTime)+++dateTimeNew ::+    (MonadIO m) =>+    TimeZone ->                             -- tz+    Int32 ->                                -- year+    Int32 ->                                -- month+    Int32 ->                                -- day+    Int32 ->                                -- hour+    Int32 ->                                -- minute+    Double ->                               -- seconds+    m DateTime+dateTimeNew tz year month day hour minute seconds = liftIO $ do+    let tz' = unsafeManagedPtrGetPtr tz+    let seconds' = realToFrac seconds+    result <- g_date_time_new tz' year month day hour minute seconds'+    checkUnexpectedReturnNULL "g_date_time_new" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr tz+    return result'++-- method DateTime::new_from_timeval_local+-- method type : Constructor+-- Args : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_new_from_timeval_local" g_date_time_new_from_timeval_local :: +    Ptr TimeVal ->                          -- tv : TInterface "GLib" "TimeVal"+    IO (Ptr DateTime)+++dateTimeNewFromTimevalLocal ::+    (MonadIO m) =>+    TimeVal ->                              -- tv+    m DateTime+dateTimeNewFromTimevalLocal tv = liftIO $ do+    let tv' = unsafeManagedPtrGetPtr tv+    result <- g_date_time_new_from_timeval_local tv'+    checkUnexpectedReturnNULL "g_date_time_new_from_timeval_local" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr tv+    return result'++-- method DateTime::new_from_timeval_utc+-- method type : Constructor+-- Args : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_new_from_timeval_utc" g_date_time_new_from_timeval_utc :: +    Ptr TimeVal ->                          -- tv : TInterface "GLib" "TimeVal"+    IO (Ptr DateTime)+++dateTimeNewFromTimevalUtc ::+    (MonadIO m) =>+    TimeVal ->                              -- tv+    m DateTime+dateTimeNewFromTimevalUtc tv = liftIO $ do+    let tv' = unsafeManagedPtrGetPtr tv+    result <- g_date_time_new_from_timeval_utc tv'+    checkUnexpectedReturnNULL "g_date_time_new_from_timeval_utc" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr tv+    return result'++-- method DateTime::new_from_unix_local+-- method type : Constructor+-- Args : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_new_from_unix_local" g_date_time_new_from_unix_local :: +    Int64 ->                                -- t : TBasicType TInt64+    IO (Ptr DateTime)+++dateTimeNewFromUnixLocal ::+    (MonadIO m) =>+    Int64 ->                                -- t+    m DateTime+dateTimeNewFromUnixLocal t = liftIO $ do+    result <- g_date_time_new_from_unix_local t+    checkUnexpectedReturnNULL "g_date_time_new_from_unix_local" result+    result' <- (wrapBoxed DateTime) result+    return result'++-- method DateTime::new_from_unix_utc+-- method type : Constructor+-- Args : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_new_from_unix_utc" g_date_time_new_from_unix_utc :: +    Int64 ->                                -- t : TBasicType TInt64+    IO (Ptr DateTime)+++dateTimeNewFromUnixUtc ::+    (MonadIO m) =>+    Int64 ->                                -- t+    m DateTime+dateTimeNewFromUnixUtc t = liftIO $ do+    result <- g_date_time_new_from_unix_utc t+    checkUnexpectedReturnNULL "g_date_time_new_from_unix_utc" result+    result' <- (wrapBoxed DateTime) result+    return result'++-- method DateTime::new_local+-- method type : Constructor+-- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_new_local" g_date_time_new_local :: +    Int32 ->                                -- year : TBasicType TInt32+    Int32 ->                                -- month : TBasicType TInt32+    Int32 ->                                -- day : TBasicType TInt32+    Int32 ->                                -- hour : TBasicType TInt32+    Int32 ->                                -- minute : TBasicType TInt32+    CDouble ->                              -- seconds : TBasicType TDouble+    IO (Ptr DateTime)+++dateTimeNewLocal ::+    (MonadIO m) =>+    Int32 ->                                -- year+    Int32 ->                                -- month+    Int32 ->                                -- day+    Int32 ->                                -- hour+    Int32 ->                                -- minute+    Double ->                               -- seconds+    m DateTime+dateTimeNewLocal year month day hour minute seconds = liftIO $ do+    let seconds' = realToFrac seconds+    result <- g_date_time_new_local year month day hour minute seconds'+    checkUnexpectedReturnNULL "g_date_time_new_local" result+    result' <- (wrapBoxed DateTime) result+    return result'++-- method DateTime::new_now+-- method type : Constructor+-- Args : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_new_now" g_date_time_new_now :: +    Ptr TimeZone ->                         -- tz : TInterface "GLib" "TimeZone"+    IO (Ptr DateTime)+++dateTimeNewNow ::+    (MonadIO m) =>+    TimeZone ->                             -- tz+    m DateTime+dateTimeNewNow tz = liftIO $ do+    let tz' = unsafeManagedPtrGetPtr tz+    result <- g_date_time_new_now tz'+    checkUnexpectedReturnNULL "g_date_time_new_now" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr tz+    return result'++-- method DateTime::new_now_local+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_new_now_local" g_date_time_new_now_local :: +    IO (Ptr DateTime)+++dateTimeNewNowLocal ::+    (MonadIO m) =>+    m DateTime+dateTimeNewNowLocal  = liftIO $ do+    result <- g_date_time_new_now_local+    checkUnexpectedReturnNULL "g_date_time_new_now_local" result+    result' <- (wrapBoxed DateTime) result+    return result'++-- method DateTime::new_now_utc+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_new_now_utc" g_date_time_new_now_utc :: +    IO (Ptr DateTime)+++dateTimeNewNowUtc ::+    (MonadIO m) =>+    m DateTime+dateTimeNewNowUtc  = liftIO $ do+    result <- g_date_time_new_now_utc+    checkUnexpectedReturnNULL "g_date_time_new_now_utc" result+    result' <- (wrapBoxed DateTime) result+    return result'++-- method DateTime::new_utc+-- method type : Constructor+-- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_new_utc" g_date_time_new_utc :: +    Int32 ->                                -- year : TBasicType TInt32+    Int32 ->                                -- month : TBasicType TInt32+    Int32 ->                                -- day : TBasicType TInt32+    Int32 ->                                -- hour : TBasicType TInt32+    Int32 ->                                -- minute : TBasicType TInt32+    CDouble ->                              -- seconds : TBasicType TDouble+    IO (Ptr DateTime)+++dateTimeNewUtc ::+    (MonadIO m) =>+    Int32 ->                                -- year+    Int32 ->                                -- month+    Int32 ->                                -- day+    Int32 ->                                -- hour+    Int32 ->                                -- minute+    Double ->                               -- seconds+    m DateTime+dateTimeNewUtc year month day hour minute seconds = liftIO $ do+    let seconds' = realToFrac seconds+    result <- g_date_time_new_utc year month day hour minute seconds'+    checkUnexpectedReturnNULL "g_date_time_new_utc" result+    result' <- (wrapBoxed DateTime) result+    return result'++-- method DateTime::add+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timespan", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timespan", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_add" g_date_time_add :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Int64 ->                                -- timespan : TBasicType TInt64+    IO (Ptr DateTime)+++dateTimeAdd ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    Int64 ->                                -- timespan+    m DateTime+dateTimeAdd _obj timespan = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_add _obj' timespan+    checkUnexpectedReturnNULL "g_date_time_add" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::add_days+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_add_days" g_date_time_add_days :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Int32 ->                                -- days : TBasicType TInt32+    IO (Ptr DateTime)+++dateTimeAddDays ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    Int32 ->                                -- days+    m DateTime+dateTimeAddDays _obj days = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_add_days _obj' days+    checkUnexpectedReturnNULL "g_date_time_add_days" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::add_full+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_add_full" g_date_time_add_full :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Int32 ->                                -- years : TBasicType TInt32+    Int32 ->                                -- months : TBasicType TInt32+    Int32 ->                                -- days : TBasicType TInt32+    Int32 ->                                -- hours : TBasicType TInt32+    Int32 ->                                -- minutes : TBasicType TInt32+    CDouble ->                              -- seconds : TBasicType TDouble+    IO (Ptr DateTime)+++dateTimeAddFull ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    Int32 ->                                -- years+    Int32 ->                                -- months+    Int32 ->                                -- days+    Int32 ->                                -- hours+    Int32 ->                                -- minutes+    Double ->                               -- seconds+    m DateTime+dateTimeAddFull _obj years months days hours minutes seconds = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let seconds' = realToFrac seconds+    result <- g_date_time_add_full _obj' years months days hours minutes seconds'+    checkUnexpectedReturnNULL "g_date_time_add_full" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::add_hours+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_add_hours" g_date_time_add_hours :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Int32 ->                                -- hours : TBasicType TInt32+    IO (Ptr DateTime)+++dateTimeAddHours ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    Int32 ->                                -- hours+    m DateTime+dateTimeAddHours _obj hours = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_add_hours _obj' hours+    checkUnexpectedReturnNULL "g_date_time_add_hours" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::add_minutes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_add_minutes" g_date_time_add_minutes :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Int32 ->                                -- minutes : TBasicType TInt32+    IO (Ptr DateTime)+++dateTimeAddMinutes ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    Int32 ->                                -- minutes+    m DateTime+dateTimeAddMinutes _obj minutes = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_add_minutes _obj' minutes+    checkUnexpectedReturnNULL "g_date_time_add_minutes" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::add_months+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_add_months" g_date_time_add_months :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Int32 ->                                -- months : TBasicType TInt32+    IO (Ptr DateTime)+++dateTimeAddMonths ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    Int32 ->                                -- months+    m DateTime+dateTimeAddMonths _obj months = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_add_months _obj' months+    checkUnexpectedReturnNULL "g_date_time_add_months" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::add_seconds+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_add_seconds" g_date_time_add_seconds :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    CDouble ->                              -- seconds : TBasicType TDouble+    IO (Ptr DateTime)+++dateTimeAddSeconds ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    Double ->                               -- seconds+    m DateTime+dateTimeAddSeconds _obj seconds = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let seconds' = realToFrac seconds+    result <- g_date_time_add_seconds _obj' seconds'+    checkUnexpectedReturnNULL "g_date_time_add_seconds" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::add_weeks+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weeks", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weeks", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_add_weeks" g_date_time_add_weeks :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Int32 ->                                -- weeks : TBasicType TInt32+    IO (Ptr DateTime)+++dateTimeAddWeeks ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    Int32 ->                                -- weeks+    m DateTime+dateTimeAddWeeks _obj weeks = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_add_weeks _obj' weeks+    checkUnexpectedReturnNULL "g_date_time_add_weeks" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::add_years+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_add_years" g_date_time_add_years :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Int32 ->                                -- years : TBasicType TInt32+    IO (Ptr DateTime)+++dateTimeAddYears ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    Int32 ->                                -- years+    m DateTime+dateTimeAddYears _obj years = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_add_years _obj' years+    checkUnexpectedReturnNULL "g_date_time_add_years" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::difference+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_difference" g_date_time_difference :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Ptr DateTime ->                         -- begin : TInterface "GLib" "DateTime"+    IO Int64+++dateTimeDifference ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    DateTime ->                             -- begin+    m Int64+dateTimeDifference _obj begin = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let begin' = unsafeManagedPtrGetPtr begin+    result <- g_date_time_difference _obj' begin'+    touchManagedPtr _obj+    touchManagedPtr begin+    return result++-- method DateTime::format+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_format" g_date_time_format :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    CString ->                              -- format : TBasicType TUTF8+    IO CString+++dateTimeFormat ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    T.Text ->                               -- format+    m T.Text+dateTimeFormat _obj format = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    format' <- textToCString format+    result <- g_date_time_format _obj' format'+    checkUnexpectedReturnNULL "g_date_time_format" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    freeMem format'+    return result'++-- method DateTime::get_day_of_month+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_day_of_month" g_date_time_get_day_of_month :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int32+++dateTimeGetDayOfMonth ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int32+dateTimeGetDayOfMonth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_day_of_month _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_day_of_week+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_day_of_week" g_date_time_get_day_of_week :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int32+++dateTimeGetDayOfWeek ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int32+dateTimeGetDayOfWeek _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_day_of_week _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_day_of_year+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_day_of_year" g_date_time_get_day_of_year :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int32+++dateTimeGetDayOfYear ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int32+dateTimeGetDayOfYear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_day_of_year _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_hour+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_hour" g_date_time_get_hour :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int32+++dateTimeGetHour ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int32+dateTimeGetHour _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_hour _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_microsecond+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_microsecond" g_date_time_get_microsecond :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int32+++dateTimeGetMicrosecond ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int32+dateTimeGetMicrosecond _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_microsecond _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_minute+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_minute" g_date_time_get_minute :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int32+++dateTimeGetMinute ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int32+dateTimeGetMinute _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_minute _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_month+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_month" g_date_time_get_month :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int32+++dateTimeGetMonth ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int32+dateTimeGetMonth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_month _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_second+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_second" g_date_time_get_second :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int32+++dateTimeGetSecond ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int32+dateTimeGetSecond _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_second _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_seconds+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_seconds" g_date_time_get_seconds :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO CDouble+++dateTimeGetSeconds ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Double+dateTimeGetSeconds _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_seconds _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method DateTime::get_timezone_abbreviation+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_timezone_abbreviation" g_date_time_get_timezone_abbreviation :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO CString+++dateTimeGetTimezoneAbbreviation ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m T.Text+dateTimeGetTimezoneAbbreviation _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_timezone_abbreviation _obj'+    checkUnexpectedReturnNULL "g_date_time_get_timezone_abbreviation" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method DateTime::get_utc_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_utc_offset" g_date_time_get_utc_offset :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int64+++dateTimeGetUtcOffset ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int64+dateTimeGetUtcOffset _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_utc_offset _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_week_numbering_year+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_week_numbering_year" g_date_time_get_week_numbering_year :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int32+++dateTimeGetWeekNumberingYear ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int32+dateTimeGetWeekNumberingYear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_week_numbering_year _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_week_of_year+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_week_of_year" g_date_time_get_week_of_year :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int32+++dateTimeGetWeekOfYear ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int32+dateTimeGetWeekOfYear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_week_of_year _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_year+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_year" g_date_time_get_year :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int32+++dateTimeGetYear ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int32+dateTimeGetYear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_get_year _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::get_ymd+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_get_ymd" g_date_time_get_ymd :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Ptr Int32 ->                            -- year : TBasicType TInt32+    Ptr Int32 ->                            -- month : TBasicType TInt32+    Ptr Int32 ->                            -- day : TBasicType TInt32+    IO ()+++dateTimeGetYmd ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m (Int32,Int32,Int32)+dateTimeGetYmd _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    year <- allocMem :: IO (Ptr Int32)+    month <- allocMem :: IO (Ptr Int32)+    day <- allocMem :: IO (Ptr Int32)+    g_date_time_get_ymd _obj' year month day+    year' <- peek year+    month' <- peek month+    day' <- peek day+    touchManagedPtr _obj+    freeMem year+    freeMem month+    freeMem day+    return (year', month', day')++-- method DateTime::is_daylight_savings+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_is_daylight_savings" g_date_time_is_daylight_savings :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO CInt+++dateTimeIsDaylightSavings ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Bool+dateTimeIsDaylightSavings _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_is_daylight_savings _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method DateTime::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_ref" g_date_time_ref :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO (Ptr DateTime)+++dateTimeRef ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m DateTime+dateTimeRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_ref _obj'+    checkUnexpectedReturnNULL "g_date_time_ref" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::to_local+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_to_local" g_date_time_to_local :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO (Ptr DateTime)+++dateTimeToLocal ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m DateTime+dateTimeToLocal _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_to_local _obj'+    checkUnexpectedReturnNULL "g_date_time_to_local" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::to_timeval+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_to_timeval" g_date_time_to_timeval :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Ptr TimeVal ->                          -- tv : TInterface "GLib" "TimeVal"+    IO CInt+++dateTimeToTimeval ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    TimeVal ->                              -- tv+    m Bool+dateTimeToTimeval _obj tv = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let tv' = unsafeManagedPtrGetPtr tv+    result <- g_date_time_to_timeval _obj' tv'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr tv+    return result'++-- method DateTime::to_timezone+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_to_timezone" g_date_time_to_timezone :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    Ptr TimeZone ->                         -- tz : TInterface "GLib" "TimeZone"+    IO (Ptr DateTime)+++dateTimeToTimezone ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    TimeZone ->                             -- tz+    m DateTime+dateTimeToTimezone _obj tz = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let tz' = unsafeManagedPtrGetPtr tz+    result <- g_date_time_to_timezone _obj' tz'+    checkUnexpectedReturnNULL "g_date_time_to_timezone" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    touchManagedPtr tz+    return result'++-- method DateTime::to_unix+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_to_unix" g_date_time_to_unix :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO Int64+++dateTimeToUnix ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m Int64+dateTimeToUnix _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_to_unix _obj'+    touchManagedPtr _obj+    return result++-- method DateTime::to_utc+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "DateTime"+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_to_utc" g_date_time_to_utc :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO (Ptr DateTime)+++dateTimeToUtc ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m DateTime+dateTimeToUtc _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_date_time_to_utc _obj'+    checkUnexpectedReturnNULL "g_date_time_to_utc" result+    result' <- (wrapBoxed DateTime) result+    touchManagedPtr _obj+    return result'++-- method DateTime::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_unref" g_date_time_unref :: +    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"+    IO ()+++dateTimeUnref ::+    (MonadIO m) =>+    DateTime ->                             -- _obj+    m ()+dateTimeUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_date_time_unref _obj'+    touchManagedPtr _obj+    return ()++-- Enum DateWeekday++data DateWeekday = +      DateWeekdayBadWeekday+    | DateWeekdayMonday+    | DateWeekdayTuesday+    | DateWeekdayWednesday+    | DateWeekdayThursday+    | DateWeekdayFriday+    | DateWeekdaySaturday+    | DateWeekdaySunday+    | AnotherDateWeekday Int+    deriving (Show, Eq)++instance Enum DateWeekday where+    fromEnum DateWeekdayBadWeekday = 0+    fromEnum DateWeekdayMonday = 1+    fromEnum DateWeekdayTuesday = 2+    fromEnum DateWeekdayWednesday = 3+    fromEnum DateWeekdayThursday = 4+    fromEnum DateWeekdayFriday = 5+    fromEnum DateWeekdaySaturday = 6+    fromEnum DateWeekdaySunday = 7+    fromEnum (AnotherDateWeekday k) = k++    toEnum 0 = DateWeekdayBadWeekday+    toEnum 1 = DateWeekdayMonday+    toEnum 2 = DateWeekdayTuesday+    toEnum 3 = DateWeekdayWednesday+    toEnum 4 = DateWeekdayThursday+    toEnum 5 = DateWeekdayFriday+    toEnum 6 = DateWeekdaySaturday+    toEnum 7 = DateWeekdaySunday+    toEnum k = AnotherDateWeekday k++-- struct DebugKey+newtype DebugKey = DebugKey (ForeignPtr DebugKey)+noDebugKey :: Maybe DebugKey+noDebugKey = Nothing++debugKeyReadKey :: DebugKey -> IO T.Text+debugKeyReadKey s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++debugKeyReadValue :: DebugKey -> IO Word32+debugKeyReadValue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word32+    return val++-- callback DestroyNotify+destroyNotifyClosure :: DestroyNotify -> IO Closure+destroyNotifyClosure cb = newCClosure =<< mkDestroyNotify wrapped+    where wrapped = destroyNotifyWrapper Nothing cb++type DestroyNotifyC =+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkDestroyNotify :: DestroyNotifyC -> IO (FunPtr DestroyNotifyC)++type DestroyNotify =+    Ptr () ->+    IO ()++noDestroyNotify :: Maybe DestroyNotify+noDestroyNotify = Nothing++destroyNotifyWrapper ::+    Maybe (Ptr (FunPtr (DestroyNotifyC))) ->+    DestroyNotify ->+    Ptr () ->+    IO ()+destroyNotifyWrapper funptrptr _cb data_ = do+    _cb  data_+    maybeReleaseFunPtr funptrptr++-- struct Dir+newtype Dir = Dir (ForeignPtr Dir)+noDir :: Maybe Dir+noDir = Nothing++-- method Dir::close+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_dir_close" g_dir_close :: +    Ptr Dir ->                              -- _obj : TInterface "GLib" "Dir"+    IO ()+++dirClose ::+    (MonadIO m) =>+    Dir ->                                  -- _obj+    m ()+dirClose _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_dir_close _obj'+    touchManagedPtr _obj+    return ()++-- method Dir::read_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_dir_read_name" g_dir_read_name :: +    Ptr Dir ->                              -- _obj : TInterface "GLib" "Dir"+    IO CString+++dirReadName ::+    (MonadIO m) =>+    Dir ->                                  -- _obj+    m T.Text+dirReadName _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_dir_read_name _obj'+    checkUnexpectedReturnNULL "g_dir_read_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Dir::rewind+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_dir_rewind" g_dir_rewind :: +    Ptr Dir ->                              -- _obj : TInterface "GLib" "Dir"+    IO ()+++dirRewind ::+    (MonadIO m) =>+    Dir ->                                  -- _obj+    m ()+dirRewind _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_dir_rewind _obj'+    touchManagedPtr _obj+    return ()++-- union DoubleIEEE754 +newtype DoubleIEEE754 = DoubleIEEE754 (ForeignPtr DoubleIEEE754)+noDoubleIEEE754 :: Maybe DoubleIEEE754+noDoubleIEEE754 = Nothing++doubleIEEE754ReadVDouble :: DoubleIEEE754 -> IO Double+doubleIEEE754ReadVDouble s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CDouble+    let val' = realToFrac val+    return val'++-- callback EqualFunc+equalFuncClosure :: EqualFunc -> IO Closure+equalFuncClosure cb = newCClosure =<< mkEqualFunc wrapped+    where wrapped = equalFuncWrapper Nothing cb++type EqualFuncC =+    Ptr () ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkEqualFunc :: EqualFuncC -> IO (FunPtr EqualFuncC)++type EqualFunc =+    Ptr () ->+    Ptr () ->+    IO Bool++noEqualFunc :: Maybe EqualFunc+noEqualFunc = Nothing++equalFuncWrapper ::+    Maybe (Ptr (FunPtr (EqualFuncC))) ->+    EqualFunc ->+    Ptr () ->+    Ptr () ->+    IO CInt+equalFuncWrapper funptrptr _cb a b = do+    result <- _cb  a b+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- Enum ErrorType++data ErrorType = +      ErrorTypeUnknown+    | ErrorTypeUnexpEof+    | ErrorTypeUnexpEofInString+    | ErrorTypeUnexpEofInComment+    | ErrorTypeNonDigitInConst+    | ErrorTypeDigitRadix+    | ErrorTypeFloatRadix+    | ErrorTypeFloatMalformed+    | AnotherErrorType Int+    deriving (Show, Eq)++instance Enum ErrorType where+    fromEnum ErrorTypeUnknown = 0+    fromEnum ErrorTypeUnexpEof = 1+    fromEnum ErrorTypeUnexpEofInString = 2+    fromEnum ErrorTypeUnexpEofInComment = 3+    fromEnum ErrorTypeNonDigitInConst = 4+    fromEnum ErrorTypeDigitRadix = 5+    fromEnum ErrorTypeFloatRadix = 6+    fromEnum ErrorTypeFloatMalformed = 7+    fromEnum (AnotherErrorType k) = k++    toEnum 0 = ErrorTypeUnknown+    toEnum 1 = ErrorTypeUnexpEof+    toEnum 2 = ErrorTypeUnexpEofInString+    toEnum 3 = ErrorTypeUnexpEofInComment+    toEnum 4 = ErrorTypeNonDigitInConst+    toEnum 5 = ErrorTypeDigitRadix+    toEnum 6 = ErrorTypeFloatRadix+    toEnum 7 = ErrorTypeFloatMalformed+    toEnum k = AnotherErrorType k++-- Enum FileError++data FileError = +      FileErrorExist+    | FileErrorIsdir+    | FileErrorAcces+    | FileErrorNametoolong+    | FileErrorNoent+    | FileErrorNotdir+    | FileErrorNxio+    | FileErrorNodev+    | FileErrorRofs+    | FileErrorTxtbsy+    | FileErrorFault+    | FileErrorLoop+    | FileErrorNospc+    | FileErrorNomem+    | FileErrorMfile+    | FileErrorNfile+    | FileErrorBadf+    | FileErrorInval+    | FileErrorPipe+    | FileErrorAgain+    | FileErrorIntr+    | FileErrorIo+    | FileErrorPerm+    | FileErrorNosys+    | FileErrorFailed+    | AnotherFileError Int+    deriving (Show, Eq)++instance Enum FileError where+    fromEnum FileErrorExist = 0+    fromEnum FileErrorIsdir = 1+    fromEnum FileErrorAcces = 2+    fromEnum FileErrorNametoolong = 3+    fromEnum FileErrorNoent = 4+    fromEnum FileErrorNotdir = 5+    fromEnum FileErrorNxio = 6+    fromEnum FileErrorNodev = 7+    fromEnum FileErrorRofs = 8+    fromEnum FileErrorTxtbsy = 9+    fromEnum FileErrorFault = 10+    fromEnum FileErrorLoop = 11+    fromEnum FileErrorNospc = 12+    fromEnum FileErrorNomem = 13+    fromEnum FileErrorMfile = 14+    fromEnum FileErrorNfile = 15+    fromEnum FileErrorBadf = 16+    fromEnum FileErrorInval = 17+    fromEnum FileErrorPipe = 18+    fromEnum FileErrorAgain = 19+    fromEnum FileErrorIntr = 20+    fromEnum FileErrorIo = 21+    fromEnum FileErrorPerm = 22+    fromEnum FileErrorNosys = 23+    fromEnum FileErrorFailed = 24+    fromEnum (AnotherFileError k) = k++    toEnum 0 = FileErrorExist+    toEnum 1 = FileErrorIsdir+    toEnum 2 = FileErrorAcces+    toEnum 3 = FileErrorNametoolong+    toEnum 4 = FileErrorNoent+    toEnum 5 = FileErrorNotdir+    toEnum 6 = FileErrorNxio+    toEnum 7 = FileErrorNodev+    toEnum 8 = FileErrorRofs+    toEnum 9 = FileErrorTxtbsy+    toEnum 10 = FileErrorFault+    toEnum 11 = FileErrorLoop+    toEnum 12 = FileErrorNospc+    toEnum 13 = FileErrorNomem+    toEnum 14 = FileErrorMfile+    toEnum 15 = FileErrorNfile+    toEnum 16 = FileErrorBadf+    toEnum 17 = FileErrorInval+    toEnum 18 = FileErrorPipe+    toEnum 19 = FileErrorAgain+    toEnum 20 = FileErrorIntr+    toEnum 21 = FileErrorIo+    toEnum 22 = FileErrorPerm+    toEnum 23 = FileErrorNosys+    toEnum 24 = FileErrorFailed+    toEnum k = AnotherFileError k++instance GErrorClass FileError where+    gerrorClassDomain _ = "g-file-error-quark"++catchFileError ::+    IO a ->+    (FileError -> GErrorMessage -> IO a) ->+    IO a+catchFileError = catchGErrorJustDomain++handleFileError ::+    (FileError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleFileError = handleGErrorJustDomain++-- Flags FileTest++data FileTest = +      FileTestIsRegular+    | FileTestIsSymlink+    | FileTestIsDir+    | FileTestIsExecutable+    | FileTestExists+    | AnotherFileTest Int+    deriving (Show, Eq)++instance Enum FileTest where+    fromEnum FileTestIsRegular = 1+    fromEnum FileTestIsSymlink = 2+    fromEnum FileTestIsDir = 4+    fromEnum FileTestIsExecutable = 8+    fromEnum FileTestExists = 16+    fromEnum (AnotherFileTest k) = k++    toEnum 1 = FileTestIsRegular+    toEnum 2 = FileTestIsSymlink+    toEnum 4 = FileTestIsDir+    toEnum 8 = FileTestIsExecutable+    toEnum 16 = FileTestExists+    toEnum k = AnotherFileTest k++instance IsGFlag FileTest++-- union FloatIEEE754 +newtype FloatIEEE754 = FloatIEEE754 (ForeignPtr FloatIEEE754)+noFloatIEEE754 :: Maybe FloatIEEE754+noFloatIEEE754 = Nothing++floatIEEE754ReadVFloat :: FloatIEEE754 -> IO Float+floatIEEE754ReadVFloat s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CFloat+    let val' = realToFrac val+    return val'++-- Flags FormatSizeFlags++data FormatSizeFlags = +      FormatSizeFlagsDefault+    | FormatSizeFlagsLongFormat+    | FormatSizeFlagsIecUnits+    | AnotherFormatSizeFlags Int+    deriving (Show, Eq)++instance Enum FormatSizeFlags where+    fromEnum FormatSizeFlagsDefault = 0+    fromEnum FormatSizeFlagsLongFormat = 1+    fromEnum FormatSizeFlagsIecUnits = 2+    fromEnum (AnotherFormatSizeFlags k) = k++    toEnum 0 = FormatSizeFlagsDefault+    toEnum 1 = FormatSizeFlagsLongFormat+    toEnum 2 = FormatSizeFlagsIecUnits+    toEnum k = AnotherFormatSizeFlags k++instance IsGFlag FormatSizeFlags++-- callback FreeFunc+freeFuncClosure :: FreeFunc -> IO Closure+freeFuncClosure cb = newCClosure =<< mkFreeFunc wrapped+    where wrapped = freeFuncWrapper Nothing cb++type FreeFuncC =+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkFreeFunc :: FreeFuncC -> IO (FunPtr FreeFuncC)++type FreeFunc =+    Ptr () ->+    IO ()++noFreeFunc :: Maybe FreeFunc+noFreeFunc = Nothing++freeFuncWrapper ::+    Maybe (Ptr (FunPtr (FreeFuncC))) ->+    FreeFunc ->+    Ptr () ->+    IO ()+freeFuncWrapper funptrptr _cb data_ = do+    _cb  data_+    maybeReleaseFunPtr funptrptr++-- callback Func+funcClosure :: Func -> IO Closure+funcClosure cb = newCClosure =<< mkFunc wrapped+    where wrapped = funcWrapper Nothing cb++type FuncC =+    Ptr () ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkFunc :: FuncC -> IO (FunPtr FuncC)++type Func =+    Ptr () ->+    IO ()++noFunc :: Maybe Func+noFunc = Nothing++funcWrapper ::+    Maybe (Ptr (FunPtr (FuncC))) ->+    Func ->+    Ptr () ->+    Ptr () ->+    IO ()+funcWrapper funptrptr _cb data_ _ = do+    _cb  data_+    maybeReleaseFunPtr funptrptr++-- callback HFunc+hFuncClosure :: HFunc -> IO Closure+hFuncClosure cb = newCClosure =<< mkHFunc wrapped+    where wrapped = hFuncWrapper Nothing cb++type HFuncC =+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkHFunc :: HFuncC -> IO (FunPtr HFuncC)++type HFunc =+    Ptr () ->+    Ptr () ->+    IO ()++noHFunc :: Maybe HFunc+noHFunc = Nothing++hFuncWrapper ::+    Maybe (Ptr (FunPtr (HFuncC))) ->+    HFunc ->+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO ()+hFuncWrapper funptrptr _cb key value _ = do+    _cb  key value+    maybeReleaseFunPtr funptrptr++-- callback HRFunc+hRFuncClosure :: HRFunc -> IO Closure+hRFuncClosure cb = newCClosure =<< mkHRFunc wrapped+    where wrapped = hRFuncWrapper Nothing cb++type HRFuncC =+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkHRFunc :: HRFuncC -> IO (FunPtr HRFuncC)++type HRFunc =+    Ptr () ->+    Ptr () ->+    IO Bool++noHRFunc :: Maybe HRFunc+noHRFunc = Nothing++hRFuncWrapper ::+    Maybe (Ptr (FunPtr (HRFuncC))) ->+    HRFunc ->+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO CInt+hRFuncWrapper funptrptr _cb key value _ = do+    result <- _cb  key value+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback HashFunc+hashFuncClosure :: HashFunc -> IO Closure+hashFuncClosure cb = newCClosure =<< mkHashFunc wrapped+    where wrapped = hashFuncWrapper Nothing cb++type HashFuncC =+    Ptr () ->+    IO Word32++foreign import ccall "wrapper"+    mkHashFunc :: HashFuncC -> IO (FunPtr HashFuncC)++type HashFunc =+    Ptr () ->+    IO Word32++noHashFunc :: Maybe HashFunc+noHashFunc = Nothing++hashFuncWrapper ::+    Maybe (Ptr (FunPtr (HashFuncC))) ->+    HashFunc ->+    Ptr () ->+    IO Word32+hashFuncWrapper funptrptr _cb key = do+    result <- _cb  key+    maybeReleaseFunPtr funptrptr+    return result++-- struct HashTableIter+newtype HashTableIter = HashTableIter (ForeignPtr HashTableIter)+noHashTableIter :: Maybe HashTableIter+noHashTableIter = Nothing++-- method HashTableIter::init+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_iter_init" g_hash_table_iter_init :: +    Ptr HashTableIter ->                    -- _obj : TInterface "GLib" "HashTableIter"+    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    IO ()+++hashTableIterInit ::+    (MonadIO m) =>+    HashTableIter ->                        -- _obj+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    m ()+hashTableIterInit _obj hash_table = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    g_hash_table_iter_init _obj' hash_table''''+    touchManagedPtr _obj+    unrefGHashTable hash_table''''+    return ()++-- method HashTableIter::next+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_iter_next" g_hash_table_iter_next :: +    Ptr HashTableIter ->                    -- _obj : TInterface "GLib" "HashTableIter"+    Ptr () ->                               -- key : TBasicType TVoid+    Ptr () ->                               -- value : TBasicType TVoid+    IO CInt+++hashTableIterNext ::+    (MonadIO m) =>+    HashTableIter ->                        -- _obj+    Maybe (Ptr ()) ->                       -- key+    Maybe (Ptr ()) ->                       -- value+    m Bool+hashTableIterNext _obj key value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeKey <- case key of+        Nothing -> return nullPtr+        Just jKey -> do+            return jKey+    maybeValue <- case value of+        Nothing -> return nullPtr+        Just jValue -> do+            return jValue+    result <- g_hash_table_iter_next _obj' maybeKey maybeValue+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method HashTableIter::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_iter_remove" g_hash_table_iter_remove :: +    Ptr HashTableIter ->                    -- _obj : TInterface "GLib" "HashTableIter"+    IO ()+++hashTableIterRemove ::+    (MonadIO m) =>+    HashTableIter ->                        -- _obj+    m ()+hashTableIterRemove _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_hash_table_iter_remove _obj'+    touchManagedPtr _obj+    return ()++-- method HashTableIter::replace+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_iter_replace" g_hash_table_iter_replace :: +    Ptr HashTableIter ->                    -- _obj : TInterface "GLib" "HashTableIter"+    Ptr () ->                               -- value : TBasicType TVoid+    IO ()+++hashTableIterReplace ::+    (MonadIO m) =>+    HashTableIter ->                        -- _obj+    Ptr () ->                               -- value+    m ()+hashTableIterReplace _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_hash_table_iter_replace _obj' value+    touchManagedPtr _obj+    return ()++-- method HashTableIter::steal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_iter_steal" g_hash_table_iter_steal :: +    Ptr HashTableIter ->                    -- _obj : TInterface "GLib" "HashTableIter"+    IO ()+++hashTableIterSteal ::+    (MonadIO m) =>+    HashTableIter ->                        -- _obj+    m ()+hashTableIterSteal _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_hash_table_iter_steal _obj'+    touchManagedPtr _obj+    return ()++-- struct Hmac+newtype Hmac = Hmac (ForeignPtr Hmac)+noHmac :: Maybe Hmac+noHmac = Nothing++-- method Hmac::get_digest+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digest_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digest_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hmac_get_digest" g_hmac_get_digest :: +    Ptr Hmac ->                             -- _obj : TInterface "GLib" "Hmac"+    Word8 ->                                -- buffer : TBasicType TUInt8+    Word64 ->                               -- digest_len : TBasicType TUInt64+    IO ()+++hmacGetDigest ::+    (MonadIO m) =>+    Hmac ->                                 -- _obj+    Word8 ->                                -- buffer+    Word64 ->                               -- digest_len+    m ()+hmacGetDigest _obj buffer digest_len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_hmac_get_digest _obj' buffer digest_len+    touchManagedPtr _obj+    return ()++-- method Hmac::get_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_hmac_get_string" g_hmac_get_string :: +    Ptr Hmac ->                             -- _obj : TInterface "GLib" "Hmac"+    IO CString+++hmacGetString ::+    (MonadIO m) =>+    Hmac ->                                 -- _obj+    m T.Text+hmacGetString _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_hmac_get_string _obj'+    checkUnexpectedReturnNULL "g_hmac_get_string" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Hmac::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hmac_unref" g_hmac_unref :: +    Ptr Hmac ->                             -- _obj : TInterface "GLib" "Hmac"+    IO ()+++hmacUnref ::+    (MonadIO m) =>+    Hmac ->                                 -- _obj+    m ()+hmacUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_hmac_unref _obj'+    touchManagedPtr _obj+    return ()++-- method Hmac::update+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hmac_update" g_hmac_update :: +    Ptr Hmac ->                             -- _obj : TInterface "GLib" "Hmac"+    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)+    Int64 ->                                -- length : TBasicType TInt64+    IO ()+++hmacUpdate ::+    (MonadIO m) =>+    Hmac ->                                 -- _obj+    ByteString ->                           -- data+    m ()+hmacUpdate _obj data_ = liftIO $ do+    let length_ = fromIntegral $ B.length data_+    let _obj' = unsafeManagedPtrGetPtr _obj+    data_' <- packByteString data_+    g_hmac_update _obj' data_' length_+    touchManagedPtr _obj+    freeMem data_'+    return ()++-- struct Hook+newtype Hook = Hook (ForeignPtr Hook)+noHook :: Maybe Hook+noHook = Nothing++hookReadData :: Hook -> IO (Ptr ())+hookReadData s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())+    return val++hookReadNext :: Hook -> IO Hook+hookReadNext s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Hook)+    val' <- (newPtr 64 Hook) val+    return val'++hookReadPrev :: Hook -> IO Hook+hookReadPrev s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Hook)+    val' <- (newPtr 64 Hook) val+    return val'++hookReadRefCount :: Hook -> IO Word32+hookReadRefCount s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Word32+    return val++hookReadHookId :: Hook -> IO Word64+hookReadHookId s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO Word64+    return val++hookReadFlags :: Hook -> IO Word32+hookReadFlags s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO Word32+    return val++hookReadFunc :: Hook -> IO (Ptr ())+hookReadFunc s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO (Ptr ())+    return val++-- XXX Skipped getter for "Hook:destroy" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- method Hook::compare_ids+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_hook_compare_ids" g_hook_compare_ids :: +    Ptr Hook ->                             -- _obj : TInterface "GLib" "Hook"+    Ptr Hook ->                             -- sibling : TInterface "GLib" "Hook"+    IO Int32+++hookCompareIds ::+    (MonadIO m) =>+    Hook ->                                 -- _obj+    Hook ->                                 -- sibling+    m Int32+hookCompareIds _obj sibling = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let sibling' = unsafeManagedPtrGetPtr sibling+    result <- g_hook_compare_ids _obj' sibling'+    touchManagedPtr _obj+    touchManagedPtr sibling+    return result++-- callback HookCheckFunc+hookCheckFuncClosure :: HookCheckFunc -> IO Closure+hookCheckFuncClosure cb = newCClosure =<< mkHookCheckFunc wrapped+    where wrapped = hookCheckFuncWrapper Nothing cb++type HookCheckFuncC =+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkHookCheckFunc :: HookCheckFuncC -> IO (FunPtr HookCheckFuncC)++type HookCheckFunc =+    Ptr () ->+    IO Bool++noHookCheckFunc :: Maybe HookCheckFunc+noHookCheckFunc = Nothing++hookCheckFuncWrapper ::+    Maybe (Ptr (FunPtr (HookCheckFuncC))) ->+    HookCheckFunc ->+    Ptr () ->+    IO CInt+hookCheckFuncWrapper funptrptr _cb data_ = do+    result <- _cb  data_+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback HookCheckMarshaller+hookCheckMarshallerClosure :: HookCheckMarshaller -> IO Closure+hookCheckMarshallerClosure cb = newCClosure =<< mkHookCheckMarshaller wrapped+    where wrapped = hookCheckMarshallerWrapper Nothing cb++type HookCheckMarshallerC =+    Ptr Hook ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkHookCheckMarshaller :: HookCheckMarshallerC -> IO (FunPtr HookCheckMarshallerC)++type HookCheckMarshaller =+    Hook ->+    Ptr () ->+    IO Bool++noHookCheckMarshaller :: Maybe HookCheckMarshaller+noHookCheckMarshaller = Nothing++hookCheckMarshallerWrapper ::+    Maybe (Ptr (FunPtr (HookCheckMarshallerC))) ->+    HookCheckMarshaller ->+    Ptr Hook ->+    Ptr () ->+    IO CInt+hookCheckMarshallerWrapper funptrptr _cb hook marshal_data = do+    hook' <- (newPtr 64 Hook) hook+    result <- _cb  hook' marshal_data+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback HookCompareFunc+hookCompareFuncClosure :: HookCompareFunc -> IO Closure+hookCompareFuncClosure cb = newCClosure =<< mkHookCompareFunc wrapped+    where wrapped = hookCompareFuncWrapper Nothing cb++type HookCompareFuncC =+    Ptr Hook ->+    Ptr Hook ->+    IO Int32++foreign import ccall "wrapper"+    mkHookCompareFunc :: HookCompareFuncC -> IO (FunPtr HookCompareFuncC)++type HookCompareFunc =+    Hook ->+    Hook ->+    IO Int32++noHookCompareFunc :: Maybe HookCompareFunc+noHookCompareFunc = Nothing++hookCompareFuncWrapper ::+    Maybe (Ptr (FunPtr (HookCompareFuncC))) ->+    HookCompareFunc ->+    Ptr Hook ->+    Ptr Hook ->+    IO Int32+hookCompareFuncWrapper funptrptr _cb new_hook sibling = do+    new_hook' <- (newPtr 64 Hook) new_hook+    sibling' <- (newPtr 64 Hook) sibling+    result <- _cb  new_hook' sibling'+    maybeReleaseFunPtr funptrptr+    return result++-- callback HookFinalizeFunc+hookFinalizeFuncClosure :: HookFinalizeFunc -> IO Closure+hookFinalizeFuncClosure cb = newCClosure =<< mkHookFinalizeFunc wrapped+    where wrapped = hookFinalizeFuncWrapper Nothing cb++type HookFinalizeFuncC =+    Ptr HookList ->+    Ptr Hook ->+    IO ()++foreign import ccall "wrapper"+    mkHookFinalizeFunc :: HookFinalizeFuncC -> IO (FunPtr HookFinalizeFuncC)++type HookFinalizeFunc =+    HookList ->+    Hook ->+    IO ()++noHookFinalizeFunc :: Maybe HookFinalizeFunc+noHookFinalizeFunc = Nothing++hookFinalizeFuncWrapper ::+    Maybe (Ptr (FunPtr (HookFinalizeFuncC))) ->+    HookFinalizeFunc ->+    Ptr HookList ->+    Ptr Hook ->+    IO ()+hookFinalizeFuncWrapper funptrptr _cb hook_list hook = do+    hook_list' <- (newPtr 56 HookList) hook_list+    hook' <- (newPtr 64 Hook) hook+    _cb  hook_list' hook'+    maybeReleaseFunPtr funptrptr++-- callback HookFindFunc+hookFindFuncClosure :: HookFindFunc -> IO Closure+hookFindFuncClosure cb = newCClosure =<< mkHookFindFunc wrapped+    where wrapped = hookFindFuncWrapper Nothing cb++type HookFindFuncC =+    Ptr Hook ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkHookFindFunc :: HookFindFuncC -> IO (FunPtr HookFindFuncC)++type HookFindFunc =+    Hook ->+    Ptr () ->+    IO Bool++noHookFindFunc :: Maybe HookFindFunc+noHookFindFunc = Nothing++hookFindFuncWrapper ::+    Maybe (Ptr (FunPtr (HookFindFuncC))) ->+    HookFindFunc ->+    Ptr Hook ->+    Ptr () ->+    IO CInt+hookFindFuncWrapper funptrptr _cb hook data_ = do+    hook' <- (newPtr 64 Hook) hook+    result <- _cb  hook' data_+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- Flags HookFlagMask++data HookFlagMask = +      HookFlagMaskActive+    | HookFlagMaskInCall+    | HookFlagMaskMask+    | AnotherHookFlagMask Int+    deriving (Show, Eq)++instance Enum HookFlagMask where+    fromEnum HookFlagMaskActive = 1+    fromEnum HookFlagMaskInCall = 2+    fromEnum HookFlagMaskMask = 15+    fromEnum (AnotherHookFlagMask k) = k++    toEnum 1 = HookFlagMaskActive+    toEnum 2 = HookFlagMaskInCall+    toEnum 15 = HookFlagMaskMask+    toEnum k = AnotherHookFlagMask k++instance IsGFlag HookFlagMask++-- callback HookFunc+hookFuncClosure :: HookFunc -> IO Closure+hookFuncClosure cb = newCClosure =<< mkHookFunc wrapped+    where wrapped = hookFuncWrapper Nothing cb++type HookFuncC =+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkHookFunc :: HookFuncC -> IO (FunPtr HookFuncC)++type HookFunc =+    Ptr () ->+    IO ()++noHookFunc :: Maybe HookFunc+noHookFunc = Nothing++hookFuncWrapper ::+    Maybe (Ptr (FunPtr (HookFuncC))) ->+    HookFunc ->+    Ptr () ->+    IO ()+hookFuncWrapper funptrptr _cb data_ = do+    _cb  data_+    maybeReleaseFunPtr funptrptr++-- struct HookList+newtype HookList = HookList (ForeignPtr HookList)+noHookList :: Maybe HookList+noHookList = Nothing++hookListReadSeqId :: HookList -> IO Word64+hookListReadSeqId s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word64+    return val++hookListReadHookSize :: HookList -> IO Word32+hookListReadHookSize s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word32+    return val++hookListReadIsSetup :: HookList -> IO Word32+hookListReadIsSetup s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Word32+    return val++hookListReadHooks :: HookList -> IO Hook+hookListReadHooks s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Hook)+    val' <- (newPtr 64 Hook) val+    return val'++hookListReadDummy3 :: HookList -> IO (Ptr ())+hookListReadDummy3 s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO (Ptr ())+    return val++-- XXX Skipped getter for "HookList:finalize_hook" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "HookList:dummy" :: Not implemented: "Don't know how to unpack C array of type TCArray False 2 (-1) (TBasicType TVoid)"++-- method HookList::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hook_list_clear" g_hook_list_clear :: +    Ptr HookList ->                         -- _obj : TInterface "GLib" "HookList"+    IO ()+++hookListClear ::+    (MonadIO m) =>+    HookList ->                             -- _obj+    m ()+hookListClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_hook_list_clear _obj'+    touchManagedPtr _obj+    return ()++-- method HookList::init+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hook_list_init" g_hook_list_init :: +    Ptr HookList ->                         -- _obj : TInterface "GLib" "HookList"+    Word32 ->                               -- hook_size : TBasicType TUInt32+    IO ()+++hookListInit ::+    (MonadIO m) =>+    HookList ->                             -- _obj+    Word32 ->                               -- hook_size+    m ()+hookListInit _obj hook_size = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_hook_list_init _obj' hook_size+    touchManagedPtr _obj+    return ()++-- method HookList::invoke+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hook_list_invoke" g_hook_list_invoke :: +    Ptr HookList ->                         -- _obj : TInterface "GLib" "HookList"+    CInt ->                                 -- may_recurse : TBasicType TBoolean+    IO ()+++hookListInvoke ::+    (MonadIO m) =>+    HookList ->                             -- _obj+    Bool ->                                 -- may_recurse+    m ()+hookListInvoke _obj may_recurse = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let may_recurse' = (fromIntegral . fromEnum) may_recurse+    g_hook_list_invoke _obj' may_recurse'+    touchManagedPtr _obj+    return ()++-- method HookList::invoke_check+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hook_list_invoke_check" g_hook_list_invoke_check :: +    Ptr HookList ->                         -- _obj : TInterface "GLib" "HookList"+    CInt ->                                 -- may_recurse : TBasicType TBoolean+    IO ()+++hookListInvokeCheck ::+    (MonadIO m) =>+    HookList ->                             -- _obj+    Bool ->                                 -- may_recurse+    m ()+hookListInvokeCheck _obj may_recurse = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let may_recurse' = (fromIntegral . fromEnum) may_recurse+    g_hook_list_invoke_check _obj' may_recurse'+    touchManagedPtr _obj+    return ()++-- callback HookMarshaller+hookMarshallerClosure :: HookMarshaller -> IO Closure+hookMarshallerClosure cb = newCClosure =<< mkHookMarshaller wrapped+    where wrapped = hookMarshallerWrapper Nothing cb++type HookMarshallerC =+    Ptr Hook ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkHookMarshaller :: HookMarshallerC -> IO (FunPtr HookMarshallerC)++type HookMarshaller =+    Hook ->+    Ptr () ->+    IO ()++noHookMarshaller :: Maybe HookMarshaller+noHookMarshaller = Nothing++hookMarshallerWrapper ::+    Maybe (Ptr (FunPtr (HookMarshallerC))) ->+    HookMarshaller ->+    Ptr Hook ->+    Ptr () ->+    IO ()+hookMarshallerWrapper funptrptr _cb hook marshal_data = do+    hook' <- (newPtr 64 Hook) hook+    _cb  hook' marshal_data+    maybeReleaseFunPtr funptrptr++-- struct IConv+newtype IConv = IConv (ForeignPtr IConv)+noIConv :: Maybe IConv+noIConv = Nothing++-- method IConv::close+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_iconv_close" g_iconv_close :: +    Ptr IConv ->                            -- _obj : TInterface "GLib" "IConv"+    IO Int32+++iConvClose ::+    (MonadIO m) =>+    IConv ->                                -- _obj+    m Int32+iConvClose _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_iconv_close _obj'+    touchManagedPtr _obj+    return result++-- struct IOChannel+newtype IOChannel = IOChannel (ForeignPtr IOChannel)+noIOChannel :: Maybe IOChannel+noIOChannel = Nothing++foreign import ccall "g_io_channel_get_type" c_g_io_channel_get_type :: +    IO GType++instance BoxedObject IOChannel where+    boxedType _ = c_g_io_channel_get_type++-- method IOChannel::new_file+-- method type : Constructor+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOChannel"+-- throws : True+-- Skip return : False++foreign import ccall "g_io_channel_new_file" g_io_channel_new_file :: +    CString ->                              -- filename : TBasicType TUTF8+    CString ->                              -- mode : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr IOChannel)+++iOChannelNewFile ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    T.Text ->                               -- mode+    m IOChannel+iOChannelNewFile filename mode = liftIO $ do+    filename' <- textToCString filename+    mode' <- textToCString mode+    onException (do+        result <- propagateGError $ g_io_channel_new_file filename' mode'+        checkUnexpectedReturnNULL "g_io_channel_new_file" result+        result' <- (wrapBoxed IOChannel) result+        freeMem filename'+        freeMem mode'+        return result'+     ) (do+        freeMem filename'+        freeMem mode'+     )++-- method IOChannel::unix_new+-- method type : Constructor+-- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOChannel"+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_unix_new" g_io_channel_unix_new :: +    Int32 ->                                -- fd : TBasicType TInt32+    IO (Ptr IOChannel)+++iOChannelUnixNew ::+    (MonadIO m) =>+    Int32 ->                                -- fd+    m IOChannel+iOChannelUnixNew fd = liftIO $ do+    result <- g_io_channel_unix_new fd+    checkUnexpectedReturnNULL "g_io_channel_unix_new" result+    result' <- (wrapBoxed IOChannel) result+    return result'++-- method IOChannel::close+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_close" g_io_channel_close :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    IO ()++{-# DEPRECATED iOChannelClose ["(Since version 2.2)","Use g_io_channel_shutdown() instead."]#-}+iOChannelClose ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m ()+iOChannelClose _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_io_channel_close _obj'+    touchManagedPtr _obj+    return ()++-- method IOChannel::flush+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "g_io_channel_flush" g_io_channel_flush :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++iOChannelFlush ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m IOStatus+iOChannelFlush _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    onException (do+        result <- propagateGError $ g_io_channel_flush _obj'+        let result' = (toEnum . fromIntegral) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method IOChannel::get_buffer_condition+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOCondition"+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_get_buffer_condition" g_io_channel_get_buffer_condition :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    IO CUInt+++iOChannelGetBufferCondition ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m [IOCondition]+iOChannelGetBufferCondition _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_io_channel_get_buffer_condition _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method IOChannel::get_buffer_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_get_buffer_size" g_io_channel_get_buffer_size :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    IO Word64+++iOChannelGetBufferSize ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m Word64+iOChannelGetBufferSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_io_channel_get_buffer_size _obj'+    touchManagedPtr _obj+    return result++-- method IOChannel::get_buffered+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_get_buffered" g_io_channel_get_buffered :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    IO CInt+++iOChannelGetBuffered ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m Bool+iOChannelGetBuffered _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_io_channel_get_buffered _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method IOChannel::get_close_on_unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_get_close_on_unref" g_io_channel_get_close_on_unref :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    IO CInt+++iOChannelGetCloseOnUnref ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m Bool+iOChannelGetCloseOnUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_io_channel_get_close_on_unref _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method IOChannel::get_encoding+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_get_encoding" g_io_channel_get_encoding :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    IO CString+++iOChannelGetEncoding ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m T.Text+iOChannelGetEncoding _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_io_channel_get_encoding _obj'+    checkUnexpectedReturnNULL "g_io_channel_get_encoding" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method IOChannel::get_flags+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOFlags"+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_get_flags" g_io_channel_get_flags :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    IO CUInt+++iOChannelGetFlags ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m [IOFlags]+iOChannelGetFlags _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_io_channel_get_flags _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method IOChannel::get_line_term+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_get_line_term" g_io_channel_get_line_term :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    Int32 ->                                -- length : TBasicType TInt32+    IO CString+++iOChannelGetLineTerm ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    Int32 ->                                -- length+    m T.Text+iOChannelGetLineTerm _obj length_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_io_channel_get_line_term _obj' length_+    checkUnexpectedReturnNULL "g_io_channel_get_line_term" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method IOChannel::init+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_init" g_io_channel_init :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    IO ()+++iOChannelInit ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m ()+iOChannelInit _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_io_channel_init _obj'+    touchManagedPtr _obj+    return ()++-- method IOChannel::read+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOError"+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_read" g_io_channel_read :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    CString ->                              -- buf : TBasicType TUTF8+    Word64 ->                               -- count : TBasicType TUInt64+    Word64 ->                               -- bytes_read : TBasicType TUInt64+    IO CUInt++{-# DEPRECATED iOChannelRead ["(Since version 2.2)","Use g_io_channel_read_chars() instead."]#-}+iOChannelRead ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    T.Text ->                               -- buf+    Word64 ->                               -- count+    Word64 ->                               -- bytes_read+    m IOError+iOChannelRead _obj buf count bytes_read = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    buf' <- textToCString buf+    result <- g_io_channel_read _obj' buf' count bytes_read+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    freeMem buf'+    return result'++-- method IOChannel::read_line+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_return", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "terminator_pos", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "g_io_channel_read_line" g_io_channel_read_line :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    Ptr CString ->                          -- str_return : TBasicType TUTF8+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr Word64 ->                           -- terminator_pos : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++iOChannelReadLine ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m (IOStatus,T.Text,Word64,Word64)+iOChannelReadLine _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    str_return <- allocMem :: IO (Ptr CString)+    length_ <- allocMem :: IO (Ptr Word64)+    terminator_pos <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_io_channel_read_line _obj' str_return length_ terminator_pos+        let result' = (toEnum . fromIntegral) result+        str_return' <- peek str_return+        str_return'' <- cstringToText str_return'+        freeMem str_return'+        length_' <- peek length_+        terminator_pos' <- peek terminator_pos+        touchManagedPtr _obj+        freeMem str_return+        freeMem length_+        freeMem terminator_pos+        return (result', str_return'', length_', terminator_pos')+     ) (do+        freeMem str_return+        freeMem length_+        freeMem terminator_pos+     )++-- method IOChannel::read_to_end+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_return", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "g_io_channel_read_to_end" g_io_channel_read_to_end :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    Ptr (Ptr Word8) ->                      -- str_return : TCArray False (-1) 2 (TBasicType TUInt8)+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++iOChannelReadToEnd ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m (IOStatus,ByteString)+iOChannelReadToEnd _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    str_return <- allocMem :: IO (Ptr (Ptr Word8))+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_io_channel_read_to_end _obj' str_return length_+        length_' <- peek length_+        let result' = (toEnum . fromIntegral) result+        str_return' <- peek str_return+        str_return'' <- (unpackByteStringWithLength length_') str_return'+        freeMem str_return'+        touchManagedPtr _obj+        freeMem str_return+        freeMem length_+        return (result', str_return'')+     ) (do+        freeMem str_return+        freeMem length_+     )++-- method IOChannel::read_unichar+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "g_io_channel_read_unichar" g_io_channel_read_unichar :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    Ptr CInt ->                             -- thechar : TBasicType TUniChar+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++iOChannelReadUnichar ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m (IOStatus,Char)+iOChannelReadUnichar _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    thechar <- allocMem :: IO (Ptr CInt)+    onException (do+        result <- propagateGError $ g_io_channel_read_unichar _obj' thechar+        let result' = (toEnum . fromIntegral) result+        thechar' <- peek thechar+        let thechar'' = (chr . fromIntegral) thechar'+        touchManagedPtr _obj+        freeMem thechar+        return (result', thechar'')+     ) (do+        freeMem thechar+     )++-- method IOChannel::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOChannel"+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_ref" g_io_channel_ref :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    IO (Ptr IOChannel)+++iOChannelRef ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m IOChannel+iOChannelRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_io_channel_ref _obj'+    checkUnexpectedReturnNULL "g_io_channel_ref" result+    result' <- (wrapBoxed IOChannel) result+    touchManagedPtr _obj+    return result'++-- method IOChannel::seek+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOError"+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_seek" g_io_channel_seek :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    Int64 ->                                -- offset : TBasicType TInt64+    CUInt ->                                -- type : TInterface "GLib" "SeekType"+    IO CUInt++{-# DEPRECATED iOChannelSeek ["(Since version 2.2)","Use g_io_channel_seek_position() instead."]#-}+iOChannelSeek ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    Int64 ->                                -- offset+    SeekType ->                             -- type+    m IOError+iOChannelSeek _obj offset type_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let type_' = (fromIntegral . fromEnum) type_+    result <- g_io_channel_seek _obj' offset type_'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method IOChannel::seek_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "g_io_channel_seek_position" g_io_channel_seek_position :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    Int64 ->                                -- offset : TBasicType TInt64+    CUInt ->                                -- type : TInterface "GLib" "SeekType"+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++iOChannelSeekPosition ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    Int64 ->                                -- offset+    SeekType ->                             -- type+    m IOStatus+iOChannelSeekPosition _obj offset type_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let type_' = (fromIntegral . fromEnum) type_+    onException (do+        result <- propagateGError $ g_io_channel_seek_position _obj' offset type_'+        let result' = (toEnum . fromIntegral) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method IOChannel::set_buffer_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_set_buffer_size" g_io_channel_set_buffer_size :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    Word64 ->                               -- size : TBasicType TUInt64+    IO ()+++iOChannelSetBufferSize ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    Word64 ->                               -- size+    m ()+iOChannelSetBufferSize _obj size = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_io_channel_set_buffer_size _obj' size+    touchManagedPtr _obj+    return ()++-- method IOChannel::set_buffered+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_set_buffered" g_io_channel_set_buffered :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    CInt ->                                 -- buffered : TBasicType TBoolean+    IO ()+++iOChannelSetBuffered ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    Bool ->                                 -- buffered+    m ()+iOChannelSetBuffered _obj buffered = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let buffered' = (fromIntegral . fromEnum) buffered+    g_io_channel_set_buffered _obj' buffered'+    touchManagedPtr _obj+    return ()++-- method IOChannel::set_close_on_unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_set_close_on_unref" g_io_channel_set_close_on_unref :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    CInt ->                                 -- do_close : TBasicType TBoolean+    IO ()+++iOChannelSetCloseOnUnref ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    Bool ->                                 -- do_close+    m ()+iOChannelSetCloseOnUnref _obj do_close = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let do_close' = (fromIntegral . fromEnum) do_close+    g_io_channel_set_close_on_unref _obj' do_close'+    touchManagedPtr _obj+    return ()++-- method IOChannel::set_encoding+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "g_io_channel_set_encoding" g_io_channel_set_encoding :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    CString ->                              -- encoding : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++iOChannelSetEncoding ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    Maybe (T.Text) ->                       -- encoding+    m IOStatus+iOChannelSetEncoding _obj encoding = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeEncoding <- case encoding of+        Nothing -> return nullPtr+        Just jEncoding -> do+            jEncoding' <- textToCString jEncoding+            return jEncoding'+    onException (do+        result <- propagateGError $ g_io_channel_set_encoding _obj' maybeEncoding+        let result' = (toEnum . fromIntegral) result+        touchManagedPtr _obj+        freeMem maybeEncoding+        return result'+     ) (do+        freeMem maybeEncoding+     )++-- method IOChannel::set_flags+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "IOFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "IOFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "g_io_channel_set_flags" g_io_channel_set_flags :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    CUInt ->                                -- flags : TInterface "GLib" "IOFlags"+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++iOChannelSetFlags ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    [IOFlags] ->                            -- flags+    m IOStatus+iOChannelSetFlags _obj flags = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let flags' = gflagsToWord flags+    onException (do+        result <- propagateGError $ g_io_channel_set_flags _obj' flags'+        let result' = (toEnum . fromIntegral) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method IOChannel::set_line_term+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_set_line_term" g_io_channel_set_line_term :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    CString ->                              -- line_term : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    IO ()+++iOChannelSetLineTerm ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    Maybe (T.Text) ->                       -- line_term+    Int32 ->                                -- length+    m ()+iOChannelSetLineTerm _obj line_term length_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeLine_term <- case line_term of+        Nothing -> return nullPtr+        Just jLine_term -> do+            jLine_term' <- textToCString jLine_term+            return jLine_term'+    g_io_channel_set_line_term _obj' maybeLine_term length_+    touchManagedPtr _obj+    freeMem maybeLine_term+    return ()++-- method IOChannel::shutdown+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flush", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flush", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "g_io_channel_shutdown" g_io_channel_shutdown :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    CInt ->                                 -- flush : TBasicType TBoolean+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++iOChannelShutdown ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    Bool ->                                 -- flush+    m IOStatus+iOChannelShutdown _obj flush = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let flush' = (fromIntegral . fromEnum) flush+    onException (do+        result <- propagateGError $ g_io_channel_shutdown _obj' flush'+        let result' = (toEnum . fromIntegral) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- method IOChannel::unix_get_fd+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_unix_get_fd" g_io_channel_unix_get_fd :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    IO Int32+++iOChannelUnixGetFd ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m Int32+iOChannelUnixGetFd _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_io_channel_unix_get_fd _obj'+    touchManagedPtr _obj+    return result++-- method IOChannel::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_unref" g_io_channel_unref :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    IO ()+++iOChannelUnref ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    m ()+iOChannelUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_io_channel_unref _obj'+    touchManagedPtr _obj+    return ()++-- method IOChannel::write+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOError"+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_write" g_io_channel_write :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    CString ->                              -- buf : TBasicType TUTF8+    Word64 ->                               -- count : TBasicType TUInt64+    Word64 ->                               -- bytes_written : TBasicType TUInt64+    IO CUInt++{-# DEPRECATED iOChannelWrite ["(Since version 2.2)","Use g_io_channel_write_chars() instead."]#-}+iOChannelWrite ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    T.Text ->                               -- buf+    Word64 ->                               -- count+    Word64 ->                               -- bytes_written+    m IOError+iOChannelWrite _obj buf count bytes_written = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    buf' <- textToCString buf+    result <- g_io_channel_write _obj' buf' count bytes_written+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    freeMem buf'+    return result'++-- method IOChannel::write_chars+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "g_io_channel_write_chars" g_io_channel_write_chars :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    Ptr Word8 ->                            -- buf : TCArray False (-1) (-1) (TBasicType TUInt8)+    Int64 ->                                -- count : TBasicType TInt64+    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++iOChannelWriteChars ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    Ptr Word8 ->                            -- buf+    Int64 ->                                -- count+    m (IOStatus,Word64)+iOChannelWriteChars _obj buf count = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    bytes_written <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_io_channel_write_chars _obj' buf count bytes_written+        let result' = (toEnum . fromIntegral) result+        bytes_written' <- peek bytes_written+        touchManagedPtr _obj+        freeMem bytes_written+        return (result', bytes_written')+     ) (do+        freeMem bytes_written+     )++-- method IOChannel::write_unichar+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOStatus"+-- throws : True+-- Skip return : False++foreign import ccall "g_io_channel_write_unichar" g_io_channel_write_unichar :: +    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"+    CInt ->                                 -- thechar : TBasicType TUniChar+    Ptr (Ptr GError) ->                     -- error+    IO CUInt+++iOChannelWriteUnichar ::+    (MonadIO m) =>+    IOChannel ->                            -- _obj+    Char ->                                 -- thechar+    m IOStatus+iOChannelWriteUnichar _obj thechar = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let thechar' = (fromIntegral . ord) thechar+    onException (do+        result <- propagateGError $ g_io_channel_write_unichar _obj' thechar'+        let result' = (toEnum . fromIntegral) result+        touchManagedPtr _obj+        return result'+     ) (do+        return ()+     )++-- Enum IOChannelError++data IOChannelError = +      IOChannelErrorFbig+    | IOChannelErrorInval+    | IOChannelErrorIo+    | IOChannelErrorIsdir+    | IOChannelErrorNospc+    | IOChannelErrorNxio+    | IOChannelErrorOverflow+    | IOChannelErrorPipe+    | IOChannelErrorFailed+    | AnotherIOChannelError Int+    deriving (Show, Eq)++instance Enum IOChannelError where+    fromEnum IOChannelErrorFbig = 0+    fromEnum IOChannelErrorInval = 1+    fromEnum IOChannelErrorIo = 2+    fromEnum IOChannelErrorIsdir = 3+    fromEnum IOChannelErrorNospc = 4+    fromEnum IOChannelErrorNxio = 5+    fromEnum IOChannelErrorOverflow = 6+    fromEnum IOChannelErrorPipe = 7+    fromEnum IOChannelErrorFailed = 8+    fromEnum (AnotherIOChannelError k) = k++    toEnum 0 = IOChannelErrorFbig+    toEnum 1 = IOChannelErrorInval+    toEnum 2 = IOChannelErrorIo+    toEnum 3 = IOChannelErrorIsdir+    toEnum 4 = IOChannelErrorNospc+    toEnum 5 = IOChannelErrorNxio+    toEnum 6 = IOChannelErrorOverflow+    toEnum 7 = IOChannelErrorPipe+    toEnum 8 = IOChannelErrorFailed+    toEnum k = AnotherIOChannelError k++instance GErrorClass IOChannelError where+    gerrorClassDomain _ = "g-io-channel-error-quark"++catchIOChannelError ::+    IO a ->+    (IOChannelError -> GErrorMessage -> IO a) ->+    IO a+catchIOChannelError = catchGErrorJustDomain++handleIOChannelError ::+    (IOChannelError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleIOChannelError = handleGErrorJustDomain++-- Flags IOCondition++data IOCondition = +      IOConditionIn+    | IOConditionOut+    | IOConditionPri+    | IOConditionErr+    | IOConditionHup+    | IOConditionNval+    | AnotherIOCondition Int+    deriving (Show, Eq)++instance Enum IOCondition where+    fromEnum IOConditionIn = 1+    fromEnum IOConditionOut = 4+    fromEnum IOConditionPri = 2+    fromEnum IOConditionErr = 8+    fromEnum IOConditionHup = 16+    fromEnum IOConditionNval = 32+    fromEnum (AnotherIOCondition k) = k++    toEnum 1 = IOConditionIn+    toEnum 2 = IOConditionPri+    toEnum 4 = IOConditionOut+    toEnum 8 = IOConditionErr+    toEnum 16 = IOConditionHup+    toEnum 32 = IOConditionNval+    toEnum k = AnotherIOCondition k++foreign import ccall "g_io_condition_get_type" c_g_io_condition_get_type :: +    IO GType++instance BoxedEnum IOCondition where+    boxedEnumType _ = c_g_io_condition_get_type++instance IsGFlag IOCondition++-- Enum IOError++data IOError = +      IOErrorNone+    | IOErrorAgain+    | IOErrorInval+    | IOErrorUnknown+    | AnotherIOError Int+    deriving (Show, Eq)++instance Enum IOError where+    fromEnum IOErrorNone = 0+    fromEnum IOErrorAgain = 1+    fromEnum IOErrorInval = 2+    fromEnum IOErrorUnknown = 3+    fromEnum (AnotherIOError k) = k++    toEnum 0 = IOErrorNone+    toEnum 1 = IOErrorAgain+    toEnum 2 = IOErrorInval+    toEnum 3 = IOErrorUnknown+    toEnum k = AnotherIOError k++-- Flags IOFlags++data IOFlags = +      IOFlagsAppend+    | IOFlagsNonblock+    | IOFlagsIsReadable+    | IOFlagsIsWritable+    | IOFlagsIsWriteable+    | IOFlagsIsSeekable+    | IOFlagsMask+    | IOFlagsGetMask+    | IOFlagsSetMask+    | AnotherIOFlags Int+    deriving (Show, Eq)++instance Enum IOFlags where+    fromEnum IOFlagsAppend = 1+    fromEnum IOFlagsNonblock = 2+    fromEnum IOFlagsIsReadable = 4+    fromEnum IOFlagsIsWritable = 8+    fromEnum IOFlagsIsWriteable = 8+    fromEnum IOFlagsIsSeekable = 16+    fromEnum IOFlagsMask = 31+    fromEnum IOFlagsGetMask = 31+    fromEnum IOFlagsSetMask = 3+    fromEnum (AnotherIOFlags k) = k++    toEnum 1 = IOFlagsAppend+    toEnum 2 = IOFlagsNonblock+    toEnum 3 = IOFlagsSetMask+    toEnum 4 = IOFlagsIsReadable+    toEnum 8 = IOFlagsIsWritable+    toEnum 16 = IOFlagsIsSeekable+    toEnum 31 = IOFlagsMask+    toEnum k = AnotherIOFlags k++instance IsGFlag IOFlags++-- callback IOFunc+iOFuncClosure :: IOFunc -> IO Closure+iOFuncClosure cb = newCClosure =<< mkIOFunc wrapped+    where wrapped = iOFuncWrapper Nothing cb++type IOFuncC =+    Ptr IOChannel ->+    CUInt ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkIOFunc :: IOFuncC -> IO (FunPtr IOFuncC)++type IOFunc =+    IOChannel ->+    [IOCondition] ->+    Ptr () ->+    IO Bool++noIOFunc :: Maybe IOFunc+noIOFunc = Nothing++iOFuncWrapper ::+    Maybe (Ptr (FunPtr (IOFuncC))) ->+    IOFunc ->+    Ptr IOChannel ->+    CUInt ->+    Ptr () ->+    IO CInt+iOFuncWrapper funptrptr _cb source condition data_ = do+    source' <- (newBoxed IOChannel) source+    let condition' = wordToGFlags condition+    result <- _cb  source' condition' data_+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- struct IOFuncs+newtype IOFuncs = IOFuncs (ForeignPtr IOFuncs)+noIOFuncs :: Maybe IOFuncs+noIOFuncs = Nothing++-- XXX Skipped getter for "IOFuncs:io_read" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "IOFuncs:io_write" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "IOFuncs:io_seek" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "IOFuncs:io_close" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "IOFuncs:io_create_watch" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "IOFuncs:io_free" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "IOFuncs:io_set_flags" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "IOFuncs:io_get_flags" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- Enum IOStatus++data IOStatus = +      IOStatusError+    | IOStatusNormal+    | IOStatusEof+    | IOStatusAgain+    | AnotherIOStatus Int+    deriving (Show, Eq)++instance Enum IOStatus where+    fromEnum IOStatusError = 0+    fromEnum IOStatusNormal = 1+    fromEnum IOStatusEof = 2+    fromEnum IOStatusAgain = 3+    fromEnum (AnotherIOStatus k) = k++    toEnum 0 = IOStatusError+    toEnum 1 = IOStatusNormal+    toEnum 2 = IOStatusEof+    toEnum 3 = IOStatusAgain+    toEnum k = AnotherIOStatus k++-- struct KeyFile+newtype KeyFile = KeyFile (ForeignPtr KeyFile)+noKeyFile :: Maybe KeyFile+noKeyFile = Nothing++foreign import ccall "g_key_file_get_type" c_g_key_file_get_type :: +    IO GType++instance BoxedObject KeyFile where+    boxedType _ = c_g_key_file_get_type++-- method KeyFile::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "KeyFile"+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_new" g_key_file_new :: +    IO (Ptr KeyFile)+++keyFileNew ::+    (MonadIO m) =>+    m KeyFile+keyFileNew  = liftIO $ do+    result <- g_key_file_new+    checkUnexpectedReturnNULL "g_key_file_new" result+    result' <- (wrapBoxed KeyFile) result+    return result'++-- method KeyFile::get_boolean+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_boolean" g_key_file_get_boolean :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++keyFileGetBoolean ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m ()+keyFileGetBoolean _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    onException (do+        _ <- propagateGError $ g_key_file_get_boolean _obj' group_name' key'+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        return ()+     ) (do+        freeMem group_name'+        freeMem key'+     )++-- method KeyFile::get_boolean_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 3 (TBasicType TBoolean)+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_boolean_list" g_key_file_get_boolean_list :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr CInt)+++keyFileGetBooleanList ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m [Bool]+keyFileGetBooleanList _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_key_file_get_boolean_list _obj' group_name' key' length_+        length_' <- peek length_+        checkUnexpectedReturnNULL "g_key_file_get_boolean_list" result+        result' <- (unpackMapStorableArrayWithLength (/= 0) length_') result+        freeMem result+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        freeMem length_+        return result'+     ) (do+        freeMem group_name'+        freeMem key'+        freeMem length_+     )++-- method KeyFile::get_comment+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_comment" g_key_file_get_comment :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++keyFileGetComment ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    Maybe (T.Text) ->                       -- group_name+    T.Text ->                               -- key+    m T.Text+keyFileGetComment _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeGroup_name <- case group_name of+        Nothing -> return nullPtr+        Just jGroup_name -> do+            jGroup_name' <- textToCString jGroup_name+            return jGroup_name'+    key' <- textToCString key+    onException (do+        result <- propagateGError $ g_key_file_get_comment _obj' maybeGroup_name key'+        checkUnexpectedReturnNULL "g_key_file_get_comment" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        freeMem maybeGroup_name+        freeMem key'+        return result'+     ) (do+        freeMem maybeGroup_name+        freeMem key'+     )++-- method KeyFile::get_double+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_double" g_key_file_get_double :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CDouble+++keyFileGetDouble ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m Double+keyFileGetDouble _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    onException (do+        result <- propagateGError $ g_key_file_get_double _obj' group_name' key'+        let result' = realToFrac result+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        return result'+     ) (do+        freeMem group_name'+        freeMem key'+     )++-- method KeyFile::get_double_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 3 (TBasicType TDouble)+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_double_list" g_key_file_get_double_list :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr CDouble)+++keyFileGetDoubleList ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m [Double]+keyFileGetDoubleList _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_key_file_get_double_list _obj' group_name' key' length_+        length_' <- peek length_+        checkUnexpectedReturnNULL "g_key_file_get_double_list" result+        result' <- (unpackMapStorableArrayWithLength realToFrac length_') result+        freeMem result+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        freeMem length_+        return result'+     ) (do+        freeMem group_name'+        freeMem key'+        freeMem length_+     )++-- method KeyFile::get_groups+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_get_groups" g_key_file_get_groups :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    IO (Ptr CString)+++keyFileGetGroups ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    m ([T.Text],Word64)+keyFileGetGroups _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    length_ <- allocMem :: IO (Ptr Word64)+    result <- g_key_file_get_groups _obj' length_+    checkUnexpectedReturnNULL "g_key_file_get_groups" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    length_' <- peek length_+    touchManagedPtr _obj+    freeMem length_+    return (result', length_')++-- method KeyFile::get_int64+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_int64" g_key_file_get_int64 :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO Int64+++keyFileGetInt64 ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m Int64+keyFileGetInt64 _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    onException (do+        result <- propagateGError $ g_key_file_get_int64 _obj' group_name' key'+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        return result+     ) (do+        freeMem group_name'+        freeMem key'+     )++-- method KeyFile::get_integer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_integer" g_key_file_get_integer :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO Int32+++keyFileGetInteger ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m Int32+keyFileGetInteger _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    onException (do+        result <- propagateGError $ g_key_file_get_integer _obj' group_name' key'+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        return result+     ) (do+        freeMem group_name'+        freeMem key'+     )++-- method KeyFile::get_integer_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 3 (TBasicType TInt32)+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_integer_list" g_key_file_get_integer_list :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Int32)+++keyFileGetIntegerList ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m [Int32]+keyFileGetIntegerList _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_key_file_get_integer_list _obj' group_name' key' length_+        length_' <- peek length_+        checkUnexpectedReturnNULL "g_key_file_get_integer_list" result+        result' <- (unpackStorableArrayWithLength length_') result+        freeMem result+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        freeMem length_+        return result'+     ) (do+        freeMem group_name'+        freeMem key'+        freeMem length_+     )++-- method KeyFile::get_keys+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_keys" g_key_file_get_keys :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr CString)+++keyFileGetKeys ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    m ([T.Text],Word64)+keyFileGetKeys _obj group_name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_key_file_get_keys _obj' group_name' length_+        checkUnexpectedReturnNULL "g_key_file_get_keys" result+        result' <- unpackZeroTerminatedUTF8CArray result+        mapZeroTerminatedCArray freeMem result+        freeMem result+        length_' <- peek length_+        touchManagedPtr _obj+        freeMem group_name'+        freeMem length_+        return (result', length_')+     ) (do+        freeMem group_name'+        freeMem length_+     )++-- method KeyFile::get_locale_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_locale_string" g_key_file_get_locale_string :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    CString ->                              -- locale : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++keyFileGetLocaleString ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    Maybe (T.Text) ->                       -- locale+    m T.Text+keyFileGetLocaleString _obj group_name key locale = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    maybeLocale <- case locale of+        Nothing -> return nullPtr+        Just jLocale -> do+            jLocale' <- textToCString jLocale+            return jLocale'+    onException (do+        result <- propagateGError $ g_key_file_get_locale_string _obj' group_name' key' maybeLocale+        checkUnexpectedReturnNULL "g_key_file_get_locale_string" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        freeMem maybeLocale+        return result'+     ) (do+        freeMem group_name'+        freeMem key'+        freeMem maybeLocale+     )++-- method KeyFile::get_locale_string_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) 4 (TBasicType TUTF8)+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_locale_string_list" g_key_file_get_locale_string_list :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    CString ->                              -- locale : TBasicType TUTF8+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr CString)+++keyFileGetLocaleStringList ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    Maybe (T.Text) ->                       -- locale+    m ([T.Text],Word64)+keyFileGetLocaleStringList _obj group_name key locale = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    maybeLocale <- case locale of+        Nothing -> return nullPtr+        Just jLocale -> do+            jLocale' <- textToCString jLocale+            return jLocale'+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_key_file_get_locale_string_list _obj' group_name' key' maybeLocale length_+        checkUnexpectedReturnNULL "g_key_file_get_locale_string_list" result+        result' <- unpackZeroTerminatedUTF8CArray result+        mapZeroTerminatedCArray freeMem result+        freeMem result+        length_' <- peek length_+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        freeMem maybeLocale+        freeMem length_+        return (result', length_')+     ) (do+        freeMem group_name'+        freeMem key'+        freeMem maybeLocale+        freeMem length_+     )++-- method KeyFile::get_start_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_get_start_group" g_key_file_get_start_group :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    IO CString+++keyFileGetStartGroup ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    m T.Text+keyFileGetStartGroup _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_key_file_get_start_group _obj'+    checkUnexpectedReturnNULL "g_key_file_get_start_group" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method KeyFile::get_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_string" g_key_file_get_string :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++keyFileGetString ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m T.Text+keyFileGetString _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    onException (do+        result <- propagateGError $ g_key_file_get_string _obj' group_name' key'+        checkUnexpectedReturnNULL "g_key_file_get_string" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        return result'+     ) (do+        freeMem group_name'+        freeMem key'+     )++-- method KeyFile::get_string_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) 3 (TBasicType TUTF8)+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_string_list" g_key_file_get_string_list :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr CString)+++keyFileGetStringList ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m ([T.Text],Word64)+keyFileGetStringList _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_key_file_get_string_list _obj' group_name' key' length_+        checkUnexpectedReturnNULL "g_key_file_get_string_list" result+        result' <- unpackZeroTerminatedUTF8CArray result+        mapZeroTerminatedCArray freeMem result+        freeMem result+        length_' <- peek length_+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        freeMem length_+        return (result', length_')+     ) (do+        freeMem group_name'+        freeMem key'+        freeMem length_+     )++-- method KeyFile::get_uint64+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_uint64" g_key_file_get_uint64 :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO Word64+++keyFileGetUint64 ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m Word64+keyFileGetUint64 _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    onException (do+        result <- propagateGError $ g_key_file_get_uint64 _obj' group_name' key'+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        return result+     ) (do+        freeMem group_name'+        freeMem key'+     )++-- method KeyFile::get_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_get_value" g_key_file_get_value :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++keyFileGetValue ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m T.Text+keyFileGetValue _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    onException (do+        result <- propagateGError $ g_key_file_get_value _obj' group_name' key'+        checkUnexpectedReturnNULL "g_key_file_get_value" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        return result'+     ) (do+        freeMem group_name'+        freeMem key'+     )++-- method KeyFile::has_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_has_group" g_key_file_has_group :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    IO CInt+++keyFileHasGroup ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    m Bool+keyFileHasGroup _obj group_name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    result <- g_key_file_has_group _obj' group_name'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem group_name'+    return result'++-- method KeyFile::load_from_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_load_from_data" g_key_file_load_from_data :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- data : TBasicType TUTF8+    Word64 ->                               -- length : TBasicType TUInt64+    CUInt ->                                -- flags : TInterface "GLib" "KeyFileFlags"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++keyFileLoadFromData ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- data+    Word64 ->                               -- length+    [KeyFileFlags] ->                       -- flags+    m ()+keyFileLoadFromData _obj data_ length_ flags = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    data_' <- textToCString data_+    let flags' = gflagsToWord flags+    onException (do+        _ <- propagateGError $ g_key_file_load_from_data _obj' data_' length_ flags'+        touchManagedPtr _obj+        freeMem data_'+        return ()+     ) (do+        freeMem data_'+     )++-- method KeyFile::load_from_data_dirs+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_load_from_data_dirs" g_key_file_load_from_data_dirs :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- file : TBasicType TFileName+    Ptr CString ->                          -- full_path : TBasicType TFileName+    CUInt ->                                -- flags : TInterface "GLib" "KeyFileFlags"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++keyFileLoadFromDataDirs ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    [Char] ->                               -- file+    [KeyFileFlags] ->                       -- flags+    m ([Char])+keyFileLoadFromDataDirs _obj file flags = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    file' <- stringToCString file+    full_path <- allocMem :: IO (Ptr CString)+    let flags' = gflagsToWord flags+    onException (do+        _ <- propagateGError $ g_key_file_load_from_data_dirs _obj' file' full_path flags'+        full_path' <- peek full_path+        full_path'' <- cstringToString full_path'+        freeMem full_path'+        touchManagedPtr _obj+        freeMem file'+        freeMem full_path+        return full_path''+     ) (do+        freeMem file'+        freeMem full_path+     )++-- method KeyFile::load_from_dirs+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_dirs", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_dirs", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_load_from_dirs" g_key_file_load_from_dirs :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- file : TBasicType TFileName+    Ptr CString ->                          -- search_dirs : TCArray True (-1) (-1) (TBasicType TFileName)+    Ptr CString ->                          -- full_path : TBasicType TFileName+    CUInt ->                                -- flags : TInterface "GLib" "KeyFileFlags"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++keyFileLoadFromDirs ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    [Char] ->                               -- file+    [[Char]] ->                             -- search_dirs+    [KeyFileFlags] ->                       -- flags+    m ([Char])+keyFileLoadFromDirs _obj file search_dirs flags = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    file' <- stringToCString file+    search_dirs' <- packZeroTerminatedFileNameArray search_dirs+    full_path <- allocMem :: IO (Ptr CString)+    let flags' = gflagsToWord flags+    onException (do+        _ <- propagateGError $ g_key_file_load_from_dirs _obj' file' search_dirs' full_path flags'+        full_path' <- peek full_path+        full_path'' <- cstringToString full_path'+        freeMem full_path'+        touchManagedPtr _obj+        freeMem file'+        mapZeroTerminatedCArray freeMem search_dirs'+        freeMem search_dirs'+        freeMem full_path+        return full_path''+     ) (do+        freeMem file'+        mapZeroTerminatedCArray freeMem search_dirs'+        freeMem search_dirs'+        freeMem full_path+     )++-- method KeyFile::load_from_file+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_load_from_file" g_key_file_load_from_file :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- file : TBasicType TFileName+    CUInt ->                                -- flags : TInterface "GLib" "KeyFileFlags"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++keyFileLoadFromFile ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    [Char] ->                               -- file+    [KeyFileFlags] ->                       -- flags+    m ()+keyFileLoadFromFile _obj file flags = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    file' <- stringToCString file+    let flags' = gflagsToWord flags+    onException (do+        _ <- propagateGError $ g_key_file_load_from_file _obj' file' flags'+        touchManagedPtr _obj+        freeMem file'+        return ()+     ) (do+        freeMem file'+     )++-- method KeyFile::remove_comment+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_remove_comment" g_key_file_remove_comment :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++keyFileRemoveComment ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    Maybe (T.Text) ->                       -- group_name+    Maybe (T.Text) ->                       -- key+    m ()+keyFileRemoveComment _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeGroup_name <- case group_name of+        Nothing -> return nullPtr+        Just jGroup_name -> do+            jGroup_name' <- textToCString jGroup_name+            return jGroup_name'+    maybeKey <- case key of+        Nothing -> return nullPtr+        Just jKey -> do+            jKey' <- textToCString jKey+            return jKey'+    onException (do+        _ <- propagateGError $ g_key_file_remove_comment _obj' maybeGroup_name maybeKey+        touchManagedPtr _obj+        freeMem maybeGroup_name+        freeMem maybeKey+        return ()+     ) (do+        freeMem maybeGroup_name+        freeMem maybeKey+     )++-- method KeyFile::remove_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_remove_group" g_key_file_remove_group :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++keyFileRemoveGroup ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    m ()+keyFileRemoveGroup _obj group_name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    onException (do+        _ <- propagateGError $ g_key_file_remove_group _obj' group_name'+        touchManagedPtr _obj+        freeMem group_name'+        return ()+     ) (do+        freeMem group_name'+     )++-- method KeyFile::remove_key+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_remove_key" g_key_file_remove_key :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++keyFileRemoveKey ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    m ()+keyFileRemoveKey _obj group_name key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    onException (do+        _ <- propagateGError $ g_key_file_remove_key _obj' group_name' key'+        touchManagedPtr _obj+        freeMem group_name'+        freeMem key'+        return ()+     ) (do+        freeMem group_name'+        freeMem key'+     )++-- method KeyFile::save_to_file+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_save_to_file" g_key_file_save_to_file :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- filename : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++keyFileSaveToFile ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- filename+    m ()+keyFileSaveToFile _obj filename = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    filename' <- textToCString filename+    onException (do+        _ <- propagateGError $ g_key_file_save_to_file _obj' filename'+        touchManagedPtr _obj+        freeMem filename'+        return ()+     ) (do+        freeMem filename'+     )++-- method KeyFile::set_boolean+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_boolean" g_key_file_set_boolean :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    CInt ->                                 -- value : TBasicType TBoolean+    IO ()+++keyFileSetBoolean ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    Bool ->                                 -- value+    m ()+keyFileSetBoolean _obj group_name key value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    let value' = (fromIntegral . fromEnum) value+    g_key_file_set_boolean _obj' group_name' key' value'+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    return ()++-- method KeyFile::set_boolean_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TBoolean), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TBoolean), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_boolean_list" g_key_file_set_boolean_list :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr CInt ->                             -- list : TCArray False (-1) 4 (TBasicType TBoolean)+    Word64 ->                               -- length : TBasicType TUInt64+    IO ()+++keyFileSetBooleanList ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    [Bool] ->                               -- list+    m ()+keyFileSetBooleanList _obj group_name key list = liftIO $ do+    let length_ = fromIntegral $ length list+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    list' <- (packMapStorableArray (fromIntegral . fromEnum)) list+    g_key_file_set_boolean_list _obj' group_name' key' list' length_+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    freeMem list'+    return ()++-- method KeyFile::set_comment+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_set_comment" g_key_file_set_comment :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    CString ->                              -- comment : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++keyFileSetComment ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    Maybe (T.Text) ->                       -- group_name+    Maybe (T.Text) ->                       -- key+    T.Text ->                               -- comment+    m ()+keyFileSetComment _obj group_name key comment = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeGroup_name <- case group_name of+        Nothing -> return nullPtr+        Just jGroup_name -> do+            jGroup_name' <- textToCString jGroup_name+            return jGroup_name'+    maybeKey <- case key of+        Nothing -> return nullPtr+        Just jKey -> do+            jKey' <- textToCString jKey+            return jKey'+    comment' <- textToCString comment+    onException (do+        _ <- propagateGError $ g_key_file_set_comment _obj' maybeGroup_name maybeKey comment'+        touchManagedPtr _obj+        freeMem maybeGroup_name+        freeMem maybeKey+        freeMem comment'+        return ()+     ) (do+        freeMem maybeGroup_name+        freeMem maybeKey+        freeMem comment'+     )++-- method KeyFile::set_double+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_double" g_key_file_set_double :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    CDouble ->                              -- value : TBasicType TDouble+    IO ()+++keyFileSetDouble ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    Double ->                               -- value+    m ()+keyFileSetDouble _obj group_name key value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    let value' = realToFrac value+    g_key_file_set_double _obj' group_name' key' value'+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    return ()++-- method KeyFile::set_double_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TDouble), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TDouble), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_double_list" g_key_file_set_double_list :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr CDouble ->                          -- list : TCArray False (-1) 4 (TBasicType TDouble)+    Word64 ->                               -- length : TBasicType TUInt64+    IO ()+++keyFileSetDoubleList ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    [Double] ->                             -- list+    m ()+keyFileSetDoubleList _obj group_name key list = liftIO $ do+    let length_ = fromIntegral $ length list+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    list' <- (packMapStorableArray realToFrac) list+    g_key_file_set_double_list _obj' group_name' key' list' length_+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    freeMem list'+    return ()++-- method KeyFile::set_int64+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_int64" g_key_file_set_int64 :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Int64 ->                                -- value : TBasicType TInt64+    IO ()+++keyFileSetInt64 ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    Int64 ->                                -- value+    m ()+keyFileSetInt64 _obj group_name key value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    g_key_file_set_int64 _obj' group_name' key' value+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    return ()++-- method KeyFile::set_integer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_integer" g_key_file_set_integer :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Int32 ->                                -- value : TBasicType TInt32+    IO ()+++keyFileSetInteger ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    Int32 ->                                -- value+    m ()+keyFileSetInteger _obj group_name key value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    g_key_file_set_integer _obj' group_name' key' value+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    return ()++-- method KeyFile::set_integer_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_integer_list" g_key_file_set_integer_list :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr Int32 ->                            -- list : TCArray False (-1) 4 (TBasicType TInt32)+    Word64 ->                               -- length : TBasicType TUInt64+    IO ()+++keyFileSetIntegerList ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    [Int32] ->                              -- list+    m ()+keyFileSetIntegerList _obj group_name key list = liftIO $ do+    let length_ = fromIntegral $ length list+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    list' <- packStorableArray list+    g_key_file_set_integer_list _obj' group_name' key' list' length_+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    freeMem list'+    return ()++-- method KeyFile::set_list_separator+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "separator", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "separator", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_list_separator" g_key_file_set_list_separator :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    Int8 ->                                 -- separator : TBasicType TInt8+    IO ()+++keyFileSetListSeparator ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    Int8 ->                                 -- separator+    m ()+keyFileSetListSeparator _obj separator = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_key_file_set_list_separator _obj' separator+    touchManagedPtr _obj+    return ()++-- method KeyFile::set_locale_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_locale_string" g_key_file_set_locale_string :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    CString ->                              -- locale : TBasicType TUTF8+    CString ->                              -- string : TBasicType TUTF8+    IO ()+++keyFileSetLocaleString ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    T.Text ->                               -- locale+    T.Text ->                               -- string+    m ()+keyFileSetLocaleString _obj group_name key locale string = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    locale' <- textToCString locale+    string' <- textToCString string+    g_key_file_set_locale_string _obj' group_name' key' locale' string'+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    freeMem locale'+    freeMem string'+    return ()++-- method KeyFile::set_locale_string_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 5 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 5 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_locale_string_list" g_key_file_set_locale_string_list :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    CString ->                              -- locale : TBasicType TUTF8+    Ptr CString ->                          -- list : TCArray True (-1) 5 (TBasicType TUTF8)+    Word64 ->                               -- length : TBasicType TUInt64+    IO ()+++keyFileSetLocaleStringList ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    T.Text ->                               -- locale+    [T.Text] ->                             -- list+    Word64 ->                               -- length+    m ()+keyFileSetLocaleStringList _obj group_name key locale list length_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    locale' <- textToCString locale+    list' <- packZeroTerminatedUTF8CArray list+    g_key_file_set_locale_string_list _obj' group_name' key' locale' list' length_+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    freeMem locale'+    mapZeroTerminatedCArray freeMem list'+    freeMem list'+    return ()++-- method KeyFile::set_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_string" g_key_file_set_string :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    CString ->                              -- string : TBasicType TUTF8+    IO ()+++keyFileSetString ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    T.Text ->                               -- string+    m ()+keyFileSetString _obj group_name key string = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    string' <- textToCString string+    g_key_file_set_string _obj' group_name' key' string'+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    freeMem string'+    return ()++-- method KeyFile::set_string_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 4 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 4 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_string_list" g_key_file_set_string_list :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Ptr CString ->                          -- list : TCArray True (-1) 4 (TBasicType TUTF8)+    Word64 ->                               -- length : TBasicType TUInt64+    IO ()+++keyFileSetStringList ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    [T.Text] ->                             -- list+    Word64 ->                               -- length+    m ()+keyFileSetStringList _obj group_name key list length_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    list' <- packZeroTerminatedUTF8CArray list+    g_key_file_set_string_list _obj' group_name' key' list' length_+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    mapZeroTerminatedCArray freeMem list'+    freeMem list'+    return ()++-- method KeyFile::set_uint64+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_uint64" g_key_file_set_uint64 :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    Word64 ->                               -- value : TBasicType TUInt64+    IO ()+++keyFileSetUint64 ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    Word64 ->                               -- value+    m ()+keyFileSetUint64 _obj group_name key value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    g_key_file_set_uint64 _obj' group_name' key' value+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    return ()++-- method KeyFile::set_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_set_value" g_key_file_set_value :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    CString ->                              -- group_name : TBasicType TUTF8+    CString ->                              -- key : TBasicType TUTF8+    CString ->                              -- value : TBasicType TUTF8+    IO ()+++keyFileSetValue ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    T.Text ->                               -- group_name+    T.Text ->                               -- key+    T.Text ->                               -- value+    m ()+keyFileSetValue _obj group_name key value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group_name' <- textToCString group_name+    key' <- textToCString key+    value' <- textToCString value+    g_key_file_set_value _obj' group_name' key' value'+    touchManagedPtr _obj+    freeMem group_name'+    freeMem key'+    freeMem value'+    return ()++-- method KeyFile::to_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_key_file_to_data" g_key_file_to_data :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CString+++keyFileToData ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    m (T.Text,Word64)+keyFileToData _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_key_file_to_data _obj' length_+        checkUnexpectedReturnNULL "g_key_file_to_data" result+        result' <- cstringToText result+        freeMem result+        length_' <- peek length_+        touchManagedPtr _obj+        freeMem length_+        return (result', length_')+     ) (do+        freeMem length_+     )++-- method KeyFile::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_unref" g_key_file_unref :: +    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"+    IO ()+++keyFileUnref ::+    (MonadIO m) =>+    KeyFile ->                              -- _obj+    m ()+keyFileUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_key_file_unref _obj'+    touchManagedPtr _obj+    return ()++-- Enum KeyFileError++data KeyFileError = +      KeyFileErrorUnknownEncoding+    | KeyFileErrorParse+    | KeyFileErrorNotFound+    | KeyFileErrorKeyNotFound+    | KeyFileErrorGroupNotFound+    | KeyFileErrorInvalidValue+    | AnotherKeyFileError Int+    deriving (Show, Eq)++instance Enum KeyFileError where+    fromEnum KeyFileErrorUnknownEncoding = 0+    fromEnum KeyFileErrorParse = 1+    fromEnum KeyFileErrorNotFound = 2+    fromEnum KeyFileErrorKeyNotFound = 3+    fromEnum KeyFileErrorGroupNotFound = 4+    fromEnum KeyFileErrorInvalidValue = 5+    fromEnum (AnotherKeyFileError k) = k++    toEnum 0 = KeyFileErrorUnknownEncoding+    toEnum 1 = KeyFileErrorParse+    toEnum 2 = KeyFileErrorNotFound+    toEnum 3 = KeyFileErrorKeyNotFound+    toEnum 4 = KeyFileErrorGroupNotFound+    toEnum 5 = KeyFileErrorInvalidValue+    toEnum k = AnotherKeyFileError k++instance GErrorClass KeyFileError where+    gerrorClassDomain _ = "g-key-file-error-quark"++catchKeyFileError ::+    IO a ->+    (KeyFileError -> GErrorMessage -> IO a) ->+    IO a+catchKeyFileError = catchGErrorJustDomain++handleKeyFileError ::+    (KeyFileError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleKeyFileError = handleGErrorJustDomain++-- Flags KeyFileFlags++data KeyFileFlags = +      KeyFileFlagsNone+    | KeyFileFlagsKeepComments+    | KeyFileFlagsKeepTranslations+    | AnotherKeyFileFlags Int+    deriving (Show, Eq)++instance Enum KeyFileFlags where+    fromEnum KeyFileFlagsNone = 0+    fromEnum KeyFileFlagsKeepComments = 1+    fromEnum KeyFileFlagsKeepTranslations = 2+    fromEnum (AnotherKeyFileFlags k) = k++    toEnum 0 = KeyFileFlagsNone+    toEnum 1 = KeyFileFlagsKeepComments+    toEnum 2 = KeyFileFlagsKeepTranslations+    toEnum k = AnotherKeyFileFlags k++instance IsGFlag KeyFileFlags++-- callback LogFunc+logFuncClosure :: LogFunc -> IO Closure+logFuncClosure cb = newCClosure =<< mkLogFunc wrapped+    where wrapped = logFuncWrapper Nothing cb++type LogFuncC =+    CString ->+    CUInt ->+    CString ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkLogFunc :: LogFuncC -> IO (FunPtr LogFuncC)++type LogFunc =+    T.Text ->+    [LogLevelFlags] ->+    T.Text ->+    IO ()++noLogFunc :: Maybe LogFunc+noLogFunc = Nothing++logFuncWrapper ::+    Maybe (Ptr (FunPtr (LogFuncC))) ->+    LogFunc ->+    CString ->+    CUInt ->+    CString ->+    Ptr () ->+    IO ()+logFuncWrapper funptrptr _cb log_domain log_level message _ = do+    log_domain' <- cstringToText log_domain+    let log_level' = wordToGFlags log_level+    message' <- cstringToText message+    _cb  log_domain' log_level' message'+    maybeReleaseFunPtr funptrptr++-- Flags LogLevelFlags++data LogLevelFlags = +      LogLevelFlagsFlagRecursion+    | LogLevelFlagsFlagFatal+    | LogLevelFlagsLevelError+    | LogLevelFlagsLevelCritical+    | LogLevelFlagsLevelWarning+    | LogLevelFlagsLevelMessage+    | LogLevelFlagsLevelInfo+    | LogLevelFlagsLevelDebug+    | LogLevelFlagsLevelMask+    | AnotherLogLevelFlags Int+    deriving (Show, Eq)++instance Enum LogLevelFlags where+    fromEnum LogLevelFlagsFlagRecursion = 1+    fromEnum LogLevelFlagsFlagFatal = 2+    fromEnum LogLevelFlagsLevelError = 4+    fromEnum LogLevelFlagsLevelCritical = 8+    fromEnum LogLevelFlagsLevelWarning = 16+    fromEnum LogLevelFlagsLevelMessage = 32+    fromEnum LogLevelFlagsLevelInfo = 64+    fromEnum LogLevelFlagsLevelDebug = 128+    fromEnum LogLevelFlagsLevelMask = -4+    fromEnum (AnotherLogLevelFlags k) = k++    toEnum -4 = LogLevelFlagsLevelMask+    toEnum 1 = LogLevelFlagsFlagRecursion+    toEnum 2 = LogLevelFlagsFlagFatal+    toEnum 4 = LogLevelFlagsLevelError+    toEnum 8 = LogLevelFlagsLevelCritical+    toEnum 16 = LogLevelFlagsLevelWarning+    toEnum 32 = LogLevelFlagsLevelMessage+    toEnum 64 = LogLevelFlagsLevelInfo+    toEnum 128 = LogLevelFlagsLevelDebug+    toEnum k = AnotherLogLevelFlags k++instance IsGFlag LogLevelFlags++-- struct MainContext+newtype MainContext = MainContext (ForeignPtr MainContext)+noMainContext :: Maybe MainContext+noMainContext = Nothing++foreign import ccall "g_main_context_get_type" c_g_main_context_get_type :: +    IO GType++instance BoxedObject MainContext where+    boxedType _ = c_g_main_context_get_type++-- method MainContext::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "MainContext"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_new" g_main_context_new :: +    IO (Ptr MainContext)+++mainContextNew ::+    (MonadIO m) =>+    m MainContext+mainContextNew  = liftIO $ do+    result <- g_main_context_new+    checkUnexpectedReturnNULL "g_main_context_new" result+    result' <- (wrapBoxed MainContext) result+    return result'++-- method MainContext::acquire+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_acquire" g_main_context_acquire :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    IO CInt+++mainContextAcquire ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    m Bool+mainContextAcquire _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_main_context_acquire _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method MainContext::add_poll+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_add_poll" g_main_context_add_poll :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    Ptr PollFD ->                           -- fd : TInterface "GLib" "PollFD"+    Int32 ->                                -- priority : TBasicType TInt32+    IO ()+++mainContextAddPoll ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    PollFD ->                               -- fd+    Int32 ->                                -- priority+    m ()+mainContextAddPoll _obj fd priority = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let fd' = unsafeManagedPtrGetPtr fd+    g_main_context_add_poll _obj' fd' priority+    touchManagedPtr _obj+    touchManagedPtr fd+    return ()++-- method MainContext::check+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fds", argType = TCArray False (-1) 3 (TInterface "GLib" "PollFD"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fds", argType = TCArray False (-1) 3 (TInterface "GLib" "PollFD"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_check" g_main_context_check :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    Int32 ->                                -- max_priority : TBasicType TInt32+    Ptr PollFD ->                           -- fds : TCArray False (-1) 3 (TInterface "GLib" "PollFD")+    Int32 ->                                -- n_fds : TBasicType TInt32+    IO Int32+++mainContextCheck ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    Int32 ->                                -- max_priority+    [PollFD] ->                             -- fds+    m Int32+mainContextCheck _obj max_priority fds = liftIO $ do+    let n_fds = fromIntegral $ length fds+    let _obj' = unsafeManagedPtrGetPtr _obj+    let fds' = map unsafeManagedPtrGetPtr fds+    fds'' <- packBlockArray 8 fds'+    result <- g_main_context_check _obj' max_priority fds'' n_fds+    touchManagedPtr _obj+    mapM_ touchManagedPtr fds+    freeMem fds''+    return result++-- method MainContext::dispatch+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_dispatch" g_main_context_dispatch :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    IO ()+++mainContextDispatch ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    m ()+mainContextDispatch _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_main_context_dispatch _obj'+    touchManagedPtr _obj+    return ()++-- method MainContext::find_source_by_funcs_user_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_find_source_by_funcs_user_data" g_main_context_find_source_by_funcs_user_data :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    Ptr SourceFuncs ->                      -- funcs : TInterface "GLib" "SourceFuncs"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO (Ptr Source)+++mainContextFindSourceByFuncsUserData ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    SourceFuncs ->                          -- funcs+    Ptr () ->                               -- user_data+    m Source+mainContextFindSourceByFuncsUserData _obj funcs user_data = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let funcs' = unsafeManagedPtrGetPtr funcs+    result <- g_main_context_find_source_by_funcs_user_data _obj' funcs' user_data+    checkUnexpectedReturnNULL "g_main_context_find_source_by_funcs_user_data" result+    result' <- (newBoxed Source) result+    touchManagedPtr _obj+    touchManagedPtr funcs+    return result'++-- method MainContext::find_source_by_id+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_find_source_by_id" g_main_context_find_source_by_id :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    Word32 ->                               -- source_id : TBasicType TUInt32+    IO (Ptr Source)+++mainContextFindSourceById ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    Word32 ->                               -- source_id+    m Source+mainContextFindSourceById _obj source_id = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_main_context_find_source_by_id _obj' source_id+    checkUnexpectedReturnNULL "g_main_context_find_source_by_id" result+    result' <- (newBoxed Source) result+    touchManagedPtr _obj+    return result'++-- method MainContext::find_source_by_user_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_find_source_by_user_data" g_main_context_find_source_by_user_data :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO (Ptr Source)+++mainContextFindSourceByUserData ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    Ptr () ->                               -- user_data+    m Source+mainContextFindSourceByUserData _obj user_data = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_main_context_find_source_by_user_data _obj' user_data+    checkUnexpectedReturnNULL "g_main_context_find_source_by_user_data" result+    result' <- (newBoxed Source) result+    touchManagedPtr _obj+    return result'++-- method MainContext::invoke_full+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_invoke_full" g_main_context_invoke_full :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    Int32 ->                                -- priority : TBasicType TInt32+    FunPtr SourceFuncC ->                   -- function : TInterface "GLib" "SourceFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"+    IO ()+++mainContextInvokeFull ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    Int32 ->                                -- priority+    SourceFunc ->                           -- function+    m ()+mainContextInvokeFull _obj priority function = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    function' <- mkSourceFunc (sourceFuncWrapper Nothing function)+    let data_ = castFunPtrToPtr function'+    let notify = safeFreeFunPtrPtr+    g_main_context_invoke_full _obj' priority function' data_ notify+    touchManagedPtr _obj+    return ()++-- method MainContext::is_owner+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_is_owner" g_main_context_is_owner :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    IO CInt+++mainContextIsOwner ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    m Bool+mainContextIsOwner _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_main_context_is_owner _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method MainContext::iteration+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_block", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_block", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_iteration" g_main_context_iteration :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    CInt ->                                 -- may_block : TBasicType TBoolean+    IO CInt+++mainContextIteration ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    Bool ->                                 -- may_block+    m Bool+mainContextIteration _obj may_block = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let may_block' = (fromIntegral . fromEnum) may_block+    result <- g_main_context_iteration _obj' may_block'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method MainContext::pending+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_pending" g_main_context_pending :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    IO CInt+++mainContextPending ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    m Bool+mainContextPending _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_main_context_pending _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method MainContext::pop_thread_default+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_pop_thread_default" g_main_context_pop_thread_default :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    IO ()+++mainContextPopThreadDefault ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    m ()+mainContextPopThreadDefault _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_main_context_pop_thread_default _obj'+    touchManagedPtr _obj+    return ()++-- method MainContext::prepare+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_prepare" g_main_context_prepare :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    Int32 ->                                -- priority : TBasicType TInt32+    IO CInt+++mainContextPrepare ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    Int32 ->                                -- priority+    m Bool+mainContextPrepare _obj priority = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_main_context_prepare _obj' priority+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method MainContext::push_thread_default+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_push_thread_default" g_main_context_push_thread_default :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    IO ()+++mainContextPushThreadDefault ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    m ()+mainContextPushThreadDefault _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_main_context_push_thread_default _obj'+    touchManagedPtr _obj+    return ()++-- method MainContext::query+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "fds", argType = TCArray False (-1) 4 (TInterface "GLib" "PollFD"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_query" g_main_context_query :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    Int32 ->                                -- max_priority : TBasicType TInt32+    Ptr Int32 ->                            -- timeout_ : TBasicType TInt32+    Ptr (Ptr PollFD) ->                     -- fds : TCArray False (-1) 4 (TInterface "GLib" "PollFD")+    Ptr Int32 ->                            -- n_fds : TBasicType TInt32+    IO Int32+++mainContextQuery ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    Int32 ->                                -- max_priority+    m (Int32,Int32,[PollFD])+mainContextQuery _obj max_priority = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    timeout_ <- allocMem :: IO (Ptr Int32)+    fds <- allocMem :: IO (Ptr (Ptr PollFD))+    n_fds <- allocMem :: IO (Ptr Int32)+    result <- g_main_context_query _obj' max_priority timeout_ fds n_fds+    n_fds' <- peek n_fds+    timeout_' <- peek timeout_+    fds' <- peek fds+    fds'' <- (unpackBoxedArrayWithLength 8 n_fds') fds'+    fds''' <- mapM (newBoxed PollFD) fds''+    touchManagedPtr _obj+    freeMem timeout_+    freeMem fds+    freeMem n_fds+    return (result, timeout_', fds''')++-- method MainContext::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MainContext"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_ref" g_main_context_ref :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    IO (Ptr MainContext)+++mainContextRef ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    m MainContext+mainContextRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_main_context_ref _obj'+    checkUnexpectedReturnNULL "g_main_context_ref" result+    result' <- (wrapBoxed MainContext) result+    touchManagedPtr _obj+    return result'++-- method MainContext::release+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_release" g_main_context_release :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    IO ()+++mainContextRelease ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    m ()+mainContextRelease _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_main_context_release _obj'+    touchManagedPtr _obj+    return ()++-- method MainContext::remove_poll+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_remove_poll" g_main_context_remove_poll :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    Ptr PollFD ->                           -- fd : TInterface "GLib" "PollFD"+    IO ()+++mainContextRemovePoll ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    PollFD ->                               -- fd+    m ()+mainContextRemovePoll _obj fd = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let fd' = unsafeManagedPtrGetPtr fd+    g_main_context_remove_poll _obj' fd'+    touchManagedPtr _obj+    touchManagedPtr fd+    return ()++-- method MainContext::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_unref" g_main_context_unref :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    IO ()+++mainContextUnref ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    m ()+mainContextUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_main_context_unref _obj'+    touchManagedPtr _obj+    return ()++-- method MainContext::wait+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cond", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cond", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_wait" g_main_context_wait :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    Ptr Cond ->                             -- cond : TInterface "GLib" "Cond"+    Ptr Mutex ->                            -- mutex : TInterface "GLib" "Mutex"+    IO CInt+++mainContextWait ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    Cond ->                                 -- cond+    Mutex ->                                -- mutex+    m Bool+mainContextWait _obj cond mutex = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let cond' = unsafeManagedPtrGetPtr cond+    let mutex' = unsafeManagedPtrGetPtr mutex+    result <- g_main_context_wait _obj' cond' mutex'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr cond+    touchManagedPtr mutex+    return result'++-- method MainContext::wakeup+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_wakeup" g_main_context_wakeup :: +    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"+    IO ()+++mainContextWakeup ::+    (MonadIO m) =>+    MainContext ->                          -- _obj+    m ()+mainContextWakeup _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_main_context_wakeup _obj'+    touchManagedPtr _obj+    return ()++-- struct MainLoop+newtype MainLoop = MainLoop (ForeignPtr MainLoop)+noMainLoop :: Maybe MainLoop+noMainLoop = Nothing++foreign import ccall "g_main_loop_get_type" c_g_main_loop_get_type :: +    IO GType++instance BoxedObject MainLoop where+    boxedType _ = c_g_main_loop_get_type++-- method MainLoop::new+-- method type : Constructor+-- Args : [Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_running", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_running", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MainLoop"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_loop_new" g_main_loop_new :: +    Ptr MainContext ->                      -- context : TInterface "GLib" "MainContext"+    CInt ->                                 -- is_running : TBasicType TBoolean+    IO (Ptr MainLoop)+++mainLoopNew ::+    (MonadIO m) =>+    Maybe (MainContext) ->                  -- context+    Bool ->                                 -- is_running+    m MainLoop+mainLoopNew context is_running = liftIO $ do+    maybeContext <- case context of+        Nothing -> return nullPtr+        Just jContext -> do+            let jContext' = unsafeManagedPtrGetPtr jContext+            return jContext'+    let is_running' = (fromIntegral . fromEnum) is_running+    result <- g_main_loop_new maybeContext is_running'+    checkUnexpectedReturnNULL "g_main_loop_new" result+    result' <- (wrapBoxed MainLoop) result+    whenJust context touchManagedPtr+    return result'++-- method MainLoop::get_context+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MainContext"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_loop_get_context" g_main_loop_get_context :: +    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"+    IO (Ptr MainContext)+++mainLoopGetContext ::+    (MonadIO m) =>+    MainLoop ->                             -- _obj+    m MainContext+mainLoopGetContext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_main_loop_get_context _obj'+    checkUnexpectedReturnNULL "g_main_loop_get_context" result+    result' <- (newBoxed MainContext) result+    touchManagedPtr _obj+    return result'++-- method MainLoop::is_running+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_main_loop_is_running" g_main_loop_is_running :: +    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"+    IO CInt+++mainLoopIsRunning ::+    (MonadIO m) =>+    MainLoop ->                             -- _obj+    m Bool+mainLoopIsRunning _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_main_loop_is_running _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method MainLoop::quit+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_loop_quit" g_main_loop_quit :: +    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"+    IO ()+++mainLoopQuit ::+    (MonadIO m) =>+    MainLoop ->                             -- _obj+    m ()+mainLoopQuit _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_main_loop_quit _obj'+    touchManagedPtr _obj+    return ()++-- method MainLoop::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MainLoop"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_loop_ref" g_main_loop_ref :: +    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"+    IO (Ptr MainLoop)+++mainLoopRef ::+    (MonadIO m) =>+    MainLoop ->                             -- _obj+    m MainLoop+mainLoopRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_main_loop_ref _obj'+    checkUnexpectedReturnNULL "g_main_loop_ref" result+    result' <- (wrapBoxed MainLoop) result+    touchManagedPtr _obj+    return result'++-- method MainLoop::run+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_loop_run" g_main_loop_run :: +    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"+    IO ()+++mainLoopRun ::+    (MonadIO m) =>+    MainLoop ->                             -- _obj+    m ()+mainLoopRun _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_main_loop_run _obj'+    touchManagedPtr _obj+    return ()++-- method MainLoop::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_main_loop_unref" g_main_loop_unref :: +    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"+    IO ()+++mainLoopUnref ::+    (MonadIO m) =>+    MainLoop ->                             -- _obj+    m ()+mainLoopUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_main_loop_unref _obj'+    touchManagedPtr _obj+    return ()++-- struct MappedFile+newtype MappedFile = MappedFile (ForeignPtr MappedFile)+noMappedFile :: Maybe MappedFile+noMappedFile = Nothing++foreign import ccall "g_mapped_file_get_type" c_g_mapped_file_get_type :: +    IO GType++instance BoxedObject MappedFile where+    boxedType _ = c_g_mapped_file_get_type++-- method MappedFile::new+-- method type : Constructor+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MappedFile"+-- throws : True+-- Skip return : False++foreign import ccall "g_mapped_file_new" g_mapped_file_new :: +    CString ->                              -- filename : TBasicType TUTF8+    CInt ->                                 -- writable : TBasicType TBoolean+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr MappedFile)+++mappedFileNew ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    Bool ->                                 -- writable+    m MappedFile+mappedFileNew filename writable = liftIO $ do+    filename' <- textToCString filename+    let writable' = (fromIntegral . fromEnum) writable+    onException (do+        result <- propagateGError $ g_mapped_file_new filename' writable'+        checkUnexpectedReturnNULL "g_mapped_file_new" result+        result' <- (wrapBoxed MappedFile) result+        freeMem filename'+        return result'+     ) (do+        freeMem filename'+     )++-- method MappedFile::new_from_fd+-- method type : Constructor+-- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MappedFile"+-- throws : True+-- Skip return : False++foreign import ccall "g_mapped_file_new_from_fd" g_mapped_file_new_from_fd :: +    Int32 ->                                -- fd : TBasicType TInt32+    CInt ->                                 -- writable : TBasicType TBoolean+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr MappedFile)+++mappedFileNewFromFd ::+    (MonadIO m) =>+    Int32 ->                                -- fd+    Bool ->                                 -- writable+    m MappedFile+mappedFileNewFromFd fd writable = liftIO $ do+    let writable' = (fromIntegral . fromEnum) writable+    onException (do+        result <- propagateGError $ g_mapped_file_new_from_fd fd writable'+        checkUnexpectedReturnNULL "g_mapped_file_new_from_fd" result+        result' <- (wrapBoxed MappedFile) result+        return result'+     ) (do+        return ()+     )++-- method MappedFile::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_mapped_file_free" g_mapped_file_free :: +    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"+    IO ()++{-# DEPRECATED mappedFileFree ["(Since version 2.22)","Use g_mapped_file_unref() instead."]#-}+mappedFileFree ::+    (MonadIO m) =>+    MappedFile ->                           -- _obj+    m ()+mappedFileFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_mapped_file_free _obj'+    touchManagedPtr _obj+    return ()++-- method MappedFile::get_bytes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Bytes"+-- throws : False+-- Skip return : False++foreign import ccall "g_mapped_file_get_bytes" g_mapped_file_get_bytes :: +    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"+    IO (Ptr Bytes)+++mappedFileGetBytes ::+    (MonadIO m) =>+    MappedFile ->                           -- _obj+    m Bytes+mappedFileGetBytes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_mapped_file_get_bytes _obj'+    checkUnexpectedReturnNULL "g_mapped_file_get_bytes" result+    result' <- (wrapBoxed Bytes) result+    touchManagedPtr _obj+    return result'++-- method MappedFile::get_contents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_mapped_file_get_contents" g_mapped_file_get_contents :: +    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"+    IO CString+++mappedFileGetContents ::+    (MonadIO m) =>+    MappedFile ->                           -- _obj+    m T.Text+mappedFileGetContents _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_mapped_file_get_contents _obj'+    checkUnexpectedReturnNULL "g_mapped_file_get_contents" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method MappedFile::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_mapped_file_get_length" g_mapped_file_get_length :: +    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"+    IO Word64+++mappedFileGetLength ::+    (MonadIO m) =>+    MappedFile ->                           -- _obj+    m Word64+mappedFileGetLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_mapped_file_get_length _obj'+    touchManagedPtr _obj+    return result++-- method MappedFile::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MappedFile"+-- throws : False+-- Skip return : False++foreign import ccall "g_mapped_file_ref" g_mapped_file_ref :: +    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"+    IO (Ptr MappedFile)+++mappedFileRef ::+    (MonadIO m) =>+    MappedFile ->                           -- _obj+    m MappedFile+mappedFileRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_mapped_file_ref _obj'+    checkUnexpectedReturnNULL "g_mapped_file_ref" result+    result' <- (wrapBoxed MappedFile) result+    touchManagedPtr _obj+    return result'++-- method MappedFile::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_mapped_file_unref" g_mapped_file_unref :: +    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"+    IO ()+++mappedFileUnref ::+    (MonadIO m) =>+    MappedFile ->                           -- _obj+    m ()+mappedFileUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_mapped_file_unref _obj'+    touchManagedPtr _obj+    return ()++-- Flags MarkupCollectType++data MarkupCollectType = +      MarkupCollectTypeInvalid+    | MarkupCollectTypeString+    | MarkupCollectTypeStrdup+    | MarkupCollectTypeBoolean+    | MarkupCollectTypeTristate+    | MarkupCollectTypeOptional+    | AnotherMarkupCollectType Int+    deriving (Show, Eq)++instance Enum MarkupCollectType where+    fromEnum MarkupCollectTypeInvalid = 0+    fromEnum MarkupCollectTypeString = 1+    fromEnum MarkupCollectTypeStrdup = 2+    fromEnum MarkupCollectTypeBoolean = 3+    fromEnum MarkupCollectTypeTristate = 4+    fromEnum MarkupCollectTypeOptional = 65536+    fromEnum (AnotherMarkupCollectType k) = k++    toEnum 0 = MarkupCollectTypeInvalid+    toEnum 1 = MarkupCollectTypeString+    toEnum 2 = MarkupCollectTypeStrdup+    toEnum 3 = MarkupCollectTypeBoolean+    toEnum 4 = MarkupCollectTypeTristate+    toEnum 65536 = MarkupCollectTypeOptional+    toEnum k = AnotherMarkupCollectType k++instance IsGFlag MarkupCollectType++-- Enum MarkupError++data MarkupError = +      MarkupErrorBadUtf8+    | MarkupErrorEmpty+    | MarkupErrorParse+    | MarkupErrorUnknownElement+    | MarkupErrorUnknownAttribute+    | MarkupErrorInvalidContent+    | MarkupErrorMissingAttribute+    | AnotherMarkupError Int+    deriving (Show, Eq)++instance Enum MarkupError where+    fromEnum MarkupErrorBadUtf8 = 0+    fromEnum MarkupErrorEmpty = 1+    fromEnum MarkupErrorParse = 2+    fromEnum MarkupErrorUnknownElement = 3+    fromEnum MarkupErrorUnknownAttribute = 4+    fromEnum MarkupErrorInvalidContent = 5+    fromEnum MarkupErrorMissingAttribute = 6+    fromEnum (AnotherMarkupError k) = k++    toEnum 0 = MarkupErrorBadUtf8+    toEnum 1 = MarkupErrorEmpty+    toEnum 2 = MarkupErrorParse+    toEnum 3 = MarkupErrorUnknownElement+    toEnum 4 = MarkupErrorUnknownAttribute+    toEnum 5 = MarkupErrorInvalidContent+    toEnum 6 = MarkupErrorMissingAttribute+    toEnum k = AnotherMarkupError k++instance GErrorClass MarkupError where+    gerrorClassDomain _ = "g-markup-error-quark"++catchMarkupError ::+    IO a ->+    (MarkupError -> GErrorMessage -> IO a) ->+    IO a+catchMarkupError = catchGErrorJustDomain++handleMarkupError ::+    (MarkupError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleMarkupError = handleGErrorJustDomain++-- struct MarkupParseContext+newtype MarkupParseContext = MarkupParseContext (ForeignPtr MarkupParseContext)+noMarkupParseContext :: Maybe MarkupParseContext+noMarkupParseContext = Nothing++foreign import ccall "g_markup_parse_context_get_type" c_g_markup_parse_context_get_type :: +    IO GType++instance BoxedObject MarkupParseContext where+    boxedType _ = c_g_markup_parse_context_get_type++-- method MarkupParseContext::new+-- method type : Constructor+-- Args : [Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "MarkupParseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "MarkupParseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MarkupParseContext"+-- throws : False+-- Skip return : False++foreign import ccall "g_markup_parse_context_new" g_markup_parse_context_new :: +    Ptr MarkupParser ->                     -- parser : TInterface "GLib" "MarkupParser"+    CUInt ->                                -- flags : TInterface "GLib" "MarkupParseFlags"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- user_data_dnotify : TInterface "GLib" "DestroyNotify"+    IO (Ptr MarkupParseContext)+++markupParseContextNew ::+    (MonadIO m) =>+    MarkupParser ->                         -- parser+    [MarkupParseFlags] ->                   -- flags+    Ptr () ->                               -- user_data+    DestroyNotify ->                        -- user_data_dnotify+    m MarkupParseContext+markupParseContextNew parser flags user_data user_data_dnotify = liftIO $ do+    let parser' = unsafeManagedPtrGetPtr parser+    let flags' = gflagsToWord flags+    ptruser_data_dnotify <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))+    user_data_dnotify' <- mkDestroyNotify (destroyNotifyWrapper (Just ptruser_data_dnotify) user_data_dnotify)+    poke ptruser_data_dnotify user_data_dnotify'+    result <- g_markup_parse_context_new parser' flags' user_data user_data_dnotify'+    checkUnexpectedReturnNULL "g_markup_parse_context_new" result+    result' <- (wrapBoxed MarkupParseContext) result+    touchManagedPtr parser+    return result'++-- method MarkupParseContext::end_parse+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_markup_parse_context_end_parse" g_markup_parse_context_end_parse :: +    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++markupParseContextEndParse ::+    (MonadIO m) =>+    MarkupParseContext ->                   -- _obj+    m ()+markupParseContextEndParse _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    onException (do+        _ <- propagateGError $ g_markup_parse_context_end_parse _obj'+        touchManagedPtr _obj+        return ()+     ) (do+        return ()+     )++-- method MarkupParseContext::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_markup_parse_context_free" g_markup_parse_context_free :: +    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"+    IO ()+++markupParseContextFree ::+    (MonadIO m) =>+    MarkupParseContext ->                   -- _obj+    m ()+markupParseContextFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_markup_parse_context_free _obj'+    touchManagedPtr _obj+    return ()++-- method MarkupParseContext::get_element+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_markup_parse_context_get_element" g_markup_parse_context_get_element :: +    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"+    IO CString+++markupParseContextGetElement ::+    (MonadIO m) =>+    MarkupParseContext ->                   -- _obj+    m T.Text+markupParseContextGetElement _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_markup_parse_context_get_element _obj'+    checkUnexpectedReturnNULL "g_markup_parse_context_get_element" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method MarkupParseContext::parse+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_markup_parse_context_parse" g_markup_parse_context_parse :: +    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"+    CString ->                              -- text : TBasicType TUTF8+    Int64 ->                                -- text_len : TBasicType TInt64+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++markupParseContextParse ::+    (MonadIO m) =>+    MarkupParseContext ->                   -- _obj+    T.Text ->                               -- text+    Int64 ->                                -- text_len+    m ()+markupParseContextParse _obj text text_len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    text' <- textToCString text+    onException (do+        _ <- propagateGError $ g_markup_parse_context_parse _obj' text' text_len+        touchManagedPtr _obj+        freeMem text'+        return ()+     ) (do+        freeMem text'+     )++-- method MarkupParseContext::push+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_markup_parse_context_push" g_markup_parse_context_push :: +    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"+    Ptr MarkupParser ->                     -- parser : TInterface "GLib" "MarkupParser"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO ()+++markupParseContextPush ::+    (MonadIO m) =>+    MarkupParseContext ->                   -- _obj+    MarkupParser ->                         -- parser+    Ptr () ->                               -- user_data+    m ()+markupParseContextPush _obj parser user_data = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let parser' = unsafeManagedPtrGetPtr parser+    g_markup_parse_context_push _obj' parser' user_data+    touchManagedPtr _obj+    touchManagedPtr parser+    return ()++-- method MarkupParseContext::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MarkupParseContext"+-- throws : False+-- Skip return : False++foreign import ccall "g_markup_parse_context_ref" g_markup_parse_context_ref :: +    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"+    IO (Ptr MarkupParseContext)+++markupParseContextRef ::+    (MonadIO m) =>+    MarkupParseContext ->                   -- _obj+    m MarkupParseContext+markupParseContextRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_markup_parse_context_ref _obj'+    checkUnexpectedReturnNULL "g_markup_parse_context_ref" result+    result' <- (wrapBoxed MarkupParseContext) result+    touchManagedPtr _obj+    return result'++-- method MarkupParseContext::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_markup_parse_context_unref" g_markup_parse_context_unref :: +    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"+    IO ()+++markupParseContextUnref ::+    (MonadIO m) =>+    MarkupParseContext ->                   -- _obj+    m ()+markupParseContextUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_markup_parse_context_unref _obj'+    touchManagedPtr _obj+    return ()++-- Flags MarkupParseFlags++data MarkupParseFlags = +      MarkupParseFlagsDoNotUseThisUnsupportedFlag+    | MarkupParseFlagsTreatCdataAsText+    | MarkupParseFlagsPrefixErrorPosition+    | MarkupParseFlagsIgnoreQualified+    | AnotherMarkupParseFlags Int+    deriving (Show, Eq)++instance Enum MarkupParseFlags where+    fromEnum MarkupParseFlagsDoNotUseThisUnsupportedFlag = 1+    fromEnum MarkupParseFlagsTreatCdataAsText = 2+    fromEnum MarkupParseFlagsPrefixErrorPosition = 4+    fromEnum MarkupParseFlagsIgnoreQualified = 8+    fromEnum (AnotherMarkupParseFlags k) = k++    toEnum 1 = MarkupParseFlagsDoNotUseThisUnsupportedFlag+    toEnum 2 = MarkupParseFlagsTreatCdataAsText+    toEnum 4 = MarkupParseFlagsPrefixErrorPosition+    toEnum 8 = MarkupParseFlagsIgnoreQualified+    toEnum k = AnotherMarkupParseFlags k++instance IsGFlag MarkupParseFlags++-- struct MarkupParser+newtype MarkupParser = MarkupParser (ForeignPtr MarkupParser)+noMarkupParser :: Maybe MarkupParser+noMarkupParser = Nothing++-- XXX Skipped getter for "MarkupParser:start_element" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "MarkupParser:end_element" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "MarkupParser:text" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "MarkupParser:passthrough" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "MarkupParser:error" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- struct MatchInfo+newtype MatchInfo = MatchInfo (ForeignPtr MatchInfo)+noMatchInfo :: Maybe MatchInfo+noMatchInfo = Nothing++foreign import ccall "g_match_info_get_type" c_g_match_info_get_type :: +    IO GType++instance BoxedObject MatchInfo where+    boxedType _ = c_g_match_info_get_type++-- method MatchInfo::expand_references+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_to_expand", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_to_expand", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_match_info_expand_references" g_match_info_expand_references :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    CString ->                              -- string_to_expand : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++matchInfoExpandReferences ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    T.Text ->                               -- string_to_expand+    m T.Text+matchInfoExpandReferences _obj string_to_expand = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    string_to_expand' <- textToCString string_to_expand+    onException (do+        result <- propagateGError $ g_match_info_expand_references _obj' string_to_expand'+        checkUnexpectedReturnNULL "g_match_info_expand_references" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        freeMem string_to_expand'+        return result'+     ) (do+        freeMem string_to_expand'+     )++-- method MatchInfo::fetch+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_fetch" g_match_info_fetch :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    Int32 ->                                -- match_num : TBasicType TInt32+    IO CString+++matchInfoFetch ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    Int32 ->                                -- match_num+    m T.Text+matchInfoFetch _obj match_num = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_match_info_fetch _obj' match_num+    checkUnexpectedReturnNULL "g_match_info_fetch" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method MatchInfo::fetch_all+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_fetch_all" g_match_info_fetch_all :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    IO (Ptr CString)+++matchInfoFetchAll ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    m [T.Text]+matchInfoFetchAll _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_match_info_fetch_all _obj'+    checkUnexpectedReturnNULL "g_match_info_fetch_all" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method MatchInfo::fetch_named+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_fetch_named" g_match_info_fetch_named :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    CString ->                              -- name : TBasicType TUTF8+    IO CString+++matchInfoFetchNamed ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    T.Text ->                               -- name+    m T.Text+matchInfoFetchNamed _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    result <- g_match_info_fetch_named _obj' name'+    checkUnexpectedReturnNULL "g_match_info_fetch_named" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    freeMem name'+    return result'++-- method MatchInfo::fetch_named_pos+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_fetch_named_pos" g_match_info_fetch_named_pos :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    CString ->                              -- name : TBasicType TUTF8+    Ptr Int32 ->                            -- start_pos : TBasicType TInt32+    Ptr Int32 ->                            -- end_pos : TBasicType TInt32+    IO CInt+++matchInfoFetchNamedPos ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    T.Text ->                               -- name+    m (Bool,Int32,Int32)+matchInfoFetchNamedPos _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    start_pos <- allocMem :: IO (Ptr Int32)+    end_pos <- allocMem :: IO (Ptr Int32)+    result <- g_match_info_fetch_named_pos _obj' name' start_pos end_pos+    let result' = (/= 0) result+    start_pos' <- peek start_pos+    end_pos' <- peek end_pos+    touchManagedPtr _obj+    freeMem name'+    freeMem start_pos+    freeMem end_pos+    return (result', start_pos', end_pos')++-- method MatchInfo::fetch_pos+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_fetch_pos" g_match_info_fetch_pos :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    Int32 ->                                -- match_num : TBasicType TInt32+    Ptr Int32 ->                            -- start_pos : TBasicType TInt32+    Ptr Int32 ->                            -- end_pos : TBasicType TInt32+    IO CInt+++matchInfoFetchPos ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    Int32 ->                                -- match_num+    m (Bool,Int32,Int32)+matchInfoFetchPos _obj match_num = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    start_pos <- allocMem :: IO (Ptr Int32)+    end_pos <- allocMem :: IO (Ptr Int32)+    result <- g_match_info_fetch_pos _obj' match_num start_pos end_pos+    let result' = (/= 0) result+    start_pos' <- peek start_pos+    end_pos' <- peek end_pos+    touchManagedPtr _obj+    freeMem start_pos+    freeMem end_pos+    return (result', start_pos', end_pos')++-- method MatchInfo::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_free" g_match_info_free :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    IO ()+++matchInfoFree ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    m ()+matchInfoFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_match_info_free _obj'+    touchManagedPtr _obj+    return ()++-- method MatchInfo::get_match_count+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_get_match_count" g_match_info_get_match_count :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    IO Int32+++matchInfoGetMatchCount ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    m Int32+matchInfoGetMatchCount _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_match_info_get_match_count _obj'+    touchManagedPtr _obj+    return result++-- method MatchInfo::get_regex+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Regex"+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_get_regex" g_match_info_get_regex :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    IO (Ptr Regex)+++matchInfoGetRegex ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    m Regex+matchInfoGetRegex _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_match_info_get_regex _obj'+    checkUnexpectedReturnNULL "g_match_info_get_regex" result+    result' <- (wrapBoxed Regex) result+    touchManagedPtr _obj+    return result'++-- method MatchInfo::get_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_get_string" g_match_info_get_string :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    IO CString+++matchInfoGetString ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    m T.Text+matchInfoGetString _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_match_info_get_string _obj'+    checkUnexpectedReturnNULL "g_match_info_get_string" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method MatchInfo::is_partial_match+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_is_partial_match" g_match_info_is_partial_match :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    IO CInt+++matchInfoIsPartialMatch ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    m Bool+matchInfoIsPartialMatch _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_match_info_is_partial_match _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method MatchInfo::matches+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_matches" g_match_info_matches :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    IO CInt+++matchInfoMatches ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    m Bool+matchInfoMatches _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_match_info_matches _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method MatchInfo::next+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_match_info_next" g_match_info_next :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++matchInfoNext ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    m ()+matchInfoNext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    onException (do+        _ <- propagateGError $ g_match_info_next _obj'+        touchManagedPtr _obj+        return ()+     ) (do+        return ()+     )++-- method MatchInfo::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MatchInfo"+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_ref" g_match_info_ref :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    IO (Ptr MatchInfo)+++matchInfoRef ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    m MatchInfo+matchInfoRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_match_info_ref _obj'+    checkUnexpectedReturnNULL "g_match_info_ref" result+    result' <- (wrapBoxed MatchInfo) result+    touchManagedPtr _obj+    return result'++-- method MatchInfo::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_match_info_unref" g_match_info_unref :: +    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"+    IO ()+++matchInfoUnref ::+    (MonadIO m) =>+    MatchInfo ->                            -- _obj+    m ()+matchInfoUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_match_info_unref _obj'+    touchManagedPtr _obj+    return ()++-- struct MemVTable+newtype MemVTable = MemVTable (ForeignPtr MemVTable)+noMemVTable :: Maybe MemVTable+noMemVTable = Nothing++-- XXX Skipped getter for "MemVTable:free" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- union Mutex +newtype Mutex = Mutex (ForeignPtr Mutex)+noMutex :: Maybe Mutex+noMutex = Nothing++-- method Mutex::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_mutex_clear" g_mutex_clear :: +    Ptr Mutex ->                            -- _obj : TInterface "GLib" "Mutex"+    IO ()+++mutexClear ::+    (MonadIO m) =>+    Mutex ->                                -- _obj+    m ()+mutexClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_mutex_clear _obj'+    touchManagedPtr _obj+    return ()++-- method Mutex::init+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_mutex_init" g_mutex_init :: +    Ptr Mutex ->                            -- _obj : TInterface "GLib" "Mutex"+    IO ()+++mutexInit ::+    (MonadIO m) =>+    Mutex ->                                -- _obj+    m ()+mutexInit _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_mutex_init _obj'+    touchManagedPtr _obj+    return ()++-- method Mutex::lock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_mutex_lock" g_mutex_lock :: +    Ptr Mutex ->                            -- _obj : TInterface "GLib" "Mutex"+    IO ()+++mutexLock ::+    (MonadIO m) =>+    Mutex ->                                -- _obj+    m ()+mutexLock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_mutex_lock _obj'+    touchManagedPtr _obj+    return ()++-- method Mutex::trylock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_mutex_trylock" g_mutex_trylock :: +    Ptr Mutex ->                            -- _obj : TInterface "GLib" "Mutex"+    IO CInt+++mutexTrylock ::+    (MonadIO m) =>+    Mutex ->                                -- _obj+    m Bool+mutexTrylock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_mutex_trylock _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Mutex::unlock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_mutex_unlock" g_mutex_unlock :: +    Ptr Mutex ->                            -- _obj : TInterface "GLib" "Mutex"+    IO ()+++mutexUnlock ::+    (MonadIO m) =>+    Mutex ->                                -- _obj+    m ()+mutexUnlock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_mutex_unlock _obj'+    touchManagedPtr _obj+    return ()++-- struct Node+newtype Node = Node (ForeignPtr Node)+noNode :: Maybe Node+noNode = Nothing++nodeReadData :: Node -> IO (Ptr ())+nodeReadData s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())+    return val++nodeReadNext :: Node -> IO Node+nodeReadNext s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Node)+    val' <- (newPtr 40 Node) val+    return val'++nodeReadPrev :: Node -> IO Node+nodeReadPrev s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Node)+    val' <- (newPtr 40 Node) val+    return val'++nodeReadParent :: Node -> IO Node+nodeReadParent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Node)+    val' <- (newPtr 40 Node) val+    return val'++nodeReadChildren :: Node -> IO Node+nodeReadChildren s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Node)+    val' <- (newPtr 40 Node) val+    return val'++-- method Node::child_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_node_child_index" g_node_child_index :: +    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"+    Ptr () ->                               -- data : TBasicType TVoid+    IO Int32+++nodeChildIndex ::+    (MonadIO m) =>+    Node ->                                 -- _obj+    Ptr () ->                               -- data+    m Int32+nodeChildIndex _obj data_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_node_child_index _obj' data_+    touchManagedPtr _obj+    return result++-- method Node::child_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_node_child_position" g_node_child_position :: +    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"+    Ptr Node ->                             -- child : TInterface "GLib" "Node"+    IO Int32+++nodeChildPosition ::+    (MonadIO m) =>+    Node ->                                 -- _obj+    Node ->                                 -- child+    m Int32+nodeChildPosition _obj child = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let child' = unsafeManagedPtrGetPtr child+    result <- g_node_child_position _obj' child'+    touchManagedPtr _obj+    touchManagedPtr child+    return result++-- method Node::depth+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_node_depth" g_node_depth :: +    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"+    IO Word32+++nodeDepth ::+    (MonadIO m) =>+    Node ->                                 -- _obj+    m Word32+nodeDepth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_node_depth _obj'+    touchManagedPtr _obj+    return result++-- method Node::destroy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_node_destroy" g_node_destroy :: +    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"+    IO ()+++nodeDestroy ::+    (MonadIO m) =>+    Node ->                                 -- _obj+    m ()+nodeDestroy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_node_destroy _obj'+    touchManagedPtr _obj+    return ()++-- method Node::is_ancestor+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_node_is_ancestor" g_node_is_ancestor :: +    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"+    Ptr Node ->                             -- descendant : TInterface "GLib" "Node"+    IO CInt+++nodeIsAncestor ::+    (MonadIO m) =>+    Node ->                                 -- _obj+    Node ->                                 -- descendant+    m Bool+nodeIsAncestor _obj descendant = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let descendant' = unsafeManagedPtrGetPtr descendant+    result <- g_node_is_ancestor _obj' descendant'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr descendant+    return result'++-- method Node::max_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_node_max_height" g_node_max_height :: +    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"+    IO Word32+++nodeMaxHeight ::+    (MonadIO m) =>+    Node ->                                 -- _obj+    m Word32+nodeMaxHeight _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_node_max_height _obj'+    touchManagedPtr _obj+    return result++-- method Node::n_children+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_node_n_children" g_node_n_children :: +    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"+    IO Word32+++nodeNChildren ::+    (MonadIO m) =>+    Node ->                                 -- _obj+    m Word32+nodeNChildren _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_node_n_children _obj'+    touchManagedPtr _obj+    return result++-- method Node::n_nodes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "TraverseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "TraverseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_node_n_nodes" g_node_n_nodes :: +    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"+    CUInt ->                                -- flags : TInterface "GLib" "TraverseFlags"+    IO Word32+++nodeNNodes ::+    (MonadIO m) =>+    Node ->                                 -- _obj+    [TraverseFlags] ->                      -- flags+    m Word32+nodeNNodes _obj flags = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let flags' = gflagsToWord flags+    result <- g_node_n_nodes _obj' flags'+    touchManagedPtr _obj+    return result++-- method Node::reverse_children+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_node_reverse_children" g_node_reverse_children :: +    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"+    IO ()+++nodeReverseChildren ::+    (MonadIO m) =>+    Node ->                                 -- _obj+    m ()+nodeReverseChildren _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_node_reverse_children _obj'+    touchManagedPtr _obj+    return ()++-- method Node::unlink+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_node_unlink" g_node_unlink :: +    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"+    IO ()+++nodeUnlink ::+    (MonadIO m) =>+    Node ->                                 -- _obj+    m ()+nodeUnlink _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_node_unlink _obj'+    touchManagedPtr _obj+    return ()++-- callback NodeForeachFunc+nodeForeachFuncClosure :: NodeForeachFunc -> IO Closure+nodeForeachFuncClosure cb = newCClosure =<< mkNodeForeachFunc wrapped+    where wrapped = nodeForeachFuncWrapper Nothing cb++type NodeForeachFuncC =+    Ptr Node ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkNodeForeachFunc :: NodeForeachFuncC -> IO (FunPtr NodeForeachFuncC)++type NodeForeachFunc =+    Node ->+    Ptr () ->+    IO ()++noNodeForeachFunc :: Maybe NodeForeachFunc+noNodeForeachFunc = Nothing++nodeForeachFuncWrapper ::+    Maybe (Ptr (FunPtr (NodeForeachFuncC))) ->+    NodeForeachFunc ->+    Ptr Node ->+    Ptr () ->+    IO ()+nodeForeachFuncWrapper funptrptr _cb node data_ = do+    node' <- (newPtr 40 Node) node+    _cb  node' data_+    maybeReleaseFunPtr funptrptr++-- callback NodeTraverseFunc+nodeTraverseFuncClosure :: NodeTraverseFunc -> IO Closure+nodeTraverseFuncClosure cb = newCClosure =<< mkNodeTraverseFunc wrapped+    where wrapped = nodeTraverseFuncWrapper Nothing cb++type NodeTraverseFuncC =+    Ptr Node ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkNodeTraverseFunc :: NodeTraverseFuncC -> IO (FunPtr NodeTraverseFuncC)++type NodeTraverseFunc =+    Node ->+    Ptr () ->+    IO Bool++noNodeTraverseFunc :: Maybe NodeTraverseFunc+noNodeTraverseFunc = Nothing++nodeTraverseFuncWrapper ::+    Maybe (Ptr (FunPtr (NodeTraverseFuncC))) ->+    NodeTraverseFunc ->+    Ptr Node ->+    Ptr () ->+    IO CInt+nodeTraverseFuncWrapper funptrptr _cb node data_ = do+    node' <- (newPtr 40 Node) node+    result <- _cb  node' data_+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- Enum NormalizeMode++data NormalizeMode = +      NormalizeModeDefault+    | NormalizeModeNfd+    | NormalizeModeDefaultCompose+    | NormalizeModeNfc+    | NormalizeModeAll+    | NormalizeModeNfkd+    | NormalizeModeAllCompose+    | NormalizeModeNfkc+    | AnotherNormalizeMode Int+    deriving (Show, Eq)++instance Enum NormalizeMode where+    fromEnum NormalizeModeDefault = 0+    fromEnum NormalizeModeNfd = 0+    fromEnum NormalizeModeDefaultCompose = 1+    fromEnum NormalizeModeNfc = 1+    fromEnum NormalizeModeAll = 2+    fromEnum NormalizeModeNfkd = 2+    fromEnum NormalizeModeAllCompose = 3+    fromEnum NormalizeModeNfkc = 3+    fromEnum (AnotherNormalizeMode k) = k++    toEnum 0 = NormalizeModeDefault+    toEnum 1 = NormalizeModeDefaultCompose+    toEnum 2 = NormalizeModeAll+    toEnum 3 = NormalizeModeAllCompose+    toEnum k = AnotherNormalizeMode k++-- struct Once+newtype Once = Once (ForeignPtr Once)+noOnce :: Maybe Once+noOnce = Nothing++onceReadStatus :: Once -> IO OnceStatus+onceReadStatus s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++onceReadRetval :: Once -> IO (Ptr ())+onceReadRetval s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr ())+    return val++-- Enum OnceStatus++data OnceStatus = +      OnceStatusNotcalled+    | OnceStatusProgress+    | OnceStatusReady+    | AnotherOnceStatus Int+    deriving (Show, Eq)++instance Enum OnceStatus where+    fromEnum OnceStatusNotcalled = 0+    fromEnum OnceStatusProgress = 1+    fromEnum OnceStatusReady = 2+    fromEnum (AnotherOnceStatus k) = k++    toEnum 0 = OnceStatusNotcalled+    toEnum 1 = OnceStatusProgress+    toEnum 2 = OnceStatusReady+    toEnum k = AnotherOnceStatus k++-- Enum OptionArg++data OptionArg = +      OptionArgNone+    | OptionArgString+    | OptionArgInt+    | OptionArgCallback+    | OptionArgFilename+    | OptionArgStringArray+    | OptionArgFilenameArray+    | OptionArgDouble+    | OptionArgInt64+    | AnotherOptionArg Int+    deriving (Show, Eq)++instance Enum OptionArg where+    fromEnum OptionArgNone = 0+    fromEnum OptionArgString = 1+    fromEnum OptionArgInt = 2+    fromEnum OptionArgCallback = 3+    fromEnum OptionArgFilename = 4+    fromEnum OptionArgStringArray = 5+    fromEnum OptionArgFilenameArray = 6+    fromEnum OptionArgDouble = 7+    fromEnum OptionArgInt64 = 8+    fromEnum (AnotherOptionArg k) = k++    toEnum 0 = OptionArgNone+    toEnum 1 = OptionArgString+    toEnum 2 = OptionArgInt+    toEnum 3 = OptionArgCallback+    toEnum 4 = OptionArgFilename+    toEnum 5 = OptionArgStringArray+    toEnum 6 = OptionArgFilenameArray+    toEnum 7 = OptionArgDouble+    toEnum 8 = OptionArgInt64+    toEnum k = AnotherOptionArg k++-- callback OptionArgFunc+optionArgFuncClosure :: OptionArgFunc -> IO Closure+optionArgFuncClosure cb = newCClosure =<< mkOptionArgFunc wrapped+    where wrapped = optionArgFuncWrapper Nothing cb++type OptionArgFuncC =+    CString ->+    CString ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkOptionArgFunc :: OptionArgFuncC -> IO (FunPtr OptionArgFuncC)++type OptionArgFunc =+    T.Text ->+    T.Text ->+    Ptr () ->+    IO Bool++noOptionArgFunc :: Maybe OptionArgFunc+noOptionArgFunc = Nothing++optionArgFuncWrapper ::+    Maybe (Ptr (FunPtr (OptionArgFuncC))) ->+    OptionArgFunc ->+    CString ->+    CString ->+    Ptr () ->+    IO CInt+optionArgFuncWrapper funptrptr _cb option_name value data_ = do+    option_name' <- cstringToText option_name+    value' <- cstringToText value+    result <- _cb  option_name' value' data_+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- struct OptionContext+newtype OptionContext = OptionContext (ForeignPtr OptionContext)+noOptionContext :: Maybe OptionContext+noOptionContext = Nothing++-- method OptionContext::add_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_add_group" g_option_context_add_group :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    Ptr OptionGroup ->                      -- group : TInterface "GLib" "OptionGroup"+    IO ()+++optionContextAddGroup ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    OptionGroup ->                          -- group+    m ()+optionContextAddGroup _obj group = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group' <- copyBoxed group+    g_option_context_add_group _obj' group'+    touchManagedPtr _obj+    touchManagedPtr group+    return ()++-- method OptionContext::add_main_entries+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_add_main_entries" g_option_context_add_main_entries :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    Ptr OptionEntry ->                      -- entries : TInterface "GLib" "OptionEntry"+    CString ->                              -- translation_domain : TBasicType TUTF8+    IO ()+++optionContextAddMainEntries ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    OptionEntry ->                          -- entries+    Maybe (T.Text) ->                       -- translation_domain+    m ()+optionContextAddMainEntries _obj entries translation_domain = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let entries' = unsafeManagedPtrGetPtr entries+    maybeTranslation_domain <- case translation_domain of+        Nothing -> return nullPtr+        Just jTranslation_domain -> do+            jTranslation_domain' <- textToCString jTranslation_domain+            return jTranslation_domain'+    g_option_context_add_main_entries _obj' entries' maybeTranslation_domain+    touchManagedPtr _obj+    touchManagedPtr entries+    freeMem maybeTranslation_domain+    return ()++-- method OptionContext::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_free" g_option_context_free :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    IO ()+++optionContextFree ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    m ()+optionContextFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_option_context_free _obj'+    touchManagedPtr _obj+    return ()++-- method OptionContext::get_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_get_description" g_option_context_get_description :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    IO CString+++optionContextGetDescription ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    m T.Text+optionContextGetDescription _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_option_context_get_description _obj'+    checkUnexpectedReturnNULL "g_option_context_get_description" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method OptionContext::get_help+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "main_help", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "main_help", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_get_help" g_option_context_get_help :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    CInt ->                                 -- main_help : TBasicType TBoolean+    Ptr OptionGroup ->                      -- group : TInterface "GLib" "OptionGroup"+    IO CString+++optionContextGetHelp ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    Bool ->                                 -- main_help+    Maybe (OptionGroup) ->                  -- group+    m T.Text+optionContextGetHelp _obj main_help group = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let main_help' = (fromIntegral . fromEnum) main_help+    maybeGroup <- case group of+        Nothing -> return nullPtr+        Just jGroup -> do+            let jGroup' = unsafeManagedPtrGetPtr jGroup+            return jGroup'+    result <- g_option_context_get_help _obj' main_help' maybeGroup+    checkUnexpectedReturnNULL "g_option_context_get_help" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    whenJust group touchManagedPtr+    return result'++-- method OptionContext::get_help_enabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_get_help_enabled" g_option_context_get_help_enabled :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    IO CInt+++optionContextGetHelpEnabled ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    m Bool+optionContextGetHelpEnabled _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_option_context_get_help_enabled _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method OptionContext::get_ignore_unknown_options+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_get_ignore_unknown_options" g_option_context_get_ignore_unknown_options :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    IO CInt+++optionContextGetIgnoreUnknownOptions ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    m Bool+optionContextGetIgnoreUnknownOptions _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_option_context_get_ignore_unknown_options _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method OptionContext::get_main_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "OptionGroup"+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_get_main_group" g_option_context_get_main_group :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    IO (Ptr OptionGroup)+++optionContextGetMainGroup ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    m OptionGroup+optionContextGetMainGroup _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_option_context_get_main_group _obj'+    checkUnexpectedReturnNULL "g_option_context_get_main_group" result+    result' <- (newBoxed OptionGroup) result+    touchManagedPtr _obj+    return result'++-- method OptionContext::get_strict_posix+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_get_strict_posix" g_option_context_get_strict_posix :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    IO CInt+++optionContextGetStrictPosix ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    m Bool+optionContextGetStrictPosix _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_option_context_get_strict_posix _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method OptionContext::get_summary+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_get_summary" g_option_context_get_summary :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    IO CString+++optionContextGetSummary ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    m T.Text+optionContextGetSummary _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_option_context_get_summary _obj'+    checkUnexpectedReturnNULL "g_option_context_get_summary" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- XXX Could not generate method OptionContext::parse+-- Error was : Bad introspection data: "argument \"argc\" is not of nullable type (TBasicType TInt32), but it is marked as such."+-- method OptionContext::parse_strv+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arguments", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arguments", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_option_context_parse_strv" g_option_context_parse_strv :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    Ptr (Ptr CString) ->                    -- arguments : TCArray False (-1) (-1) (TBasicType TUTF8)+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++optionContextParseStrv ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    Ptr CString ->                          -- arguments+    m ((Ptr CString))+optionContextParseStrv _obj arguments = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    arguments' <- allocMem :: IO (Ptr (Ptr CString))+    poke arguments' arguments+    onException (do+        _ <- propagateGError $ g_option_context_parse_strv _obj' arguments'+        arguments'' <- peek arguments'+        touchManagedPtr _obj+        freeMem arguments'+        return arguments''+     ) (do+        freeMem arguments'+     )++-- method OptionContext::set_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_set_description" g_option_context_set_description :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    CString ->                              -- description : TBasicType TUTF8+    IO ()+++optionContextSetDescription ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    Maybe (T.Text) ->                       -- description+    m ()+optionContextSetDescription _obj description = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeDescription <- case description of+        Nothing -> return nullPtr+        Just jDescription -> do+            jDescription' <- textToCString jDescription+            return jDescription'+    g_option_context_set_description _obj' maybeDescription+    touchManagedPtr _obj+    freeMem maybeDescription+    return ()++-- method OptionContext::set_help_enabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_set_help_enabled" g_option_context_set_help_enabled :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    CInt ->                                 -- help_enabled : TBasicType TBoolean+    IO ()+++optionContextSetHelpEnabled ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    Bool ->                                 -- help_enabled+    m ()+optionContextSetHelpEnabled _obj help_enabled = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let help_enabled' = (fromIntegral . fromEnum) help_enabled+    g_option_context_set_help_enabled _obj' help_enabled'+    touchManagedPtr _obj+    return ()++-- method OptionContext::set_ignore_unknown_options+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_unknown", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_unknown", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_set_ignore_unknown_options" g_option_context_set_ignore_unknown_options :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    CInt ->                                 -- ignore_unknown : TBasicType TBoolean+    IO ()+++optionContextSetIgnoreUnknownOptions ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    Bool ->                                 -- ignore_unknown+    m ()+optionContextSetIgnoreUnknownOptions _obj ignore_unknown = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let ignore_unknown' = (fromIntegral . fromEnum) ignore_unknown+    g_option_context_set_ignore_unknown_options _obj' ignore_unknown'+    touchManagedPtr _obj+    return ()++-- method OptionContext::set_main_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_set_main_group" g_option_context_set_main_group :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    Ptr OptionGroup ->                      -- group : TInterface "GLib" "OptionGroup"+    IO ()+++optionContextSetMainGroup ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    OptionGroup ->                          -- group+    m ()+optionContextSetMainGroup _obj group = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    group' <- copyBoxed group+    g_option_context_set_main_group _obj' group'+    touchManagedPtr _obj+    touchManagedPtr group+    return ()++-- method OptionContext::set_strict_posix+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_posix", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_posix", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_set_strict_posix" g_option_context_set_strict_posix :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    CInt ->                                 -- strict_posix : TBasicType TBoolean+    IO ()+++optionContextSetStrictPosix ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    Bool ->                                 -- strict_posix+    m ()+optionContextSetStrictPosix _obj strict_posix = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let strict_posix' = (fromIntegral . fromEnum) strict_posix+    g_option_context_set_strict_posix _obj' strict_posix'+    touchManagedPtr _obj+    return ()++-- method OptionContext::set_summary+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_set_summary" g_option_context_set_summary :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    CString ->                              -- summary : TBasicType TUTF8+    IO ()+++optionContextSetSummary ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    Maybe (T.Text) ->                       -- summary+    m ()+optionContextSetSummary _obj summary = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeSummary <- case summary of+        Nothing -> return nullPtr+        Just jSummary -> do+            jSummary' <- textToCString jSummary+            return jSummary'+    g_option_context_set_summary _obj' maybeSummary+    touchManagedPtr _obj+    freeMem maybeSummary+    return ()++-- method OptionContext::set_translate_func+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_set_translate_func" g_option_context_set_translate_func :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    FunPtr TranslateFuncC ->                -- func : TInterface "GLib" "TranslateFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- destroy_notify : TInterface "GLib" "DestroyNotify"+    IO ()+++optionContextSetTranslateFunc ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    Maybe (TranslateFunc) ->                -- func+    m ()+optionContextSetTranslateFunc _obj func = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeFunc <- case func of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jFunc -> do+            jFunc' <- mkTranslateFunc (translateFuncWrapper Nothing jFunc)+            return jFunc'+    let data_ = castFunPtrToPtr maybeFunc+    let destroy_notify = safeFreeFunPtrPtr+    g_option_context_set_translate_func _obj' maybeFunc data_ destroy_notify+    touchManagedPtr _obj+    return ()++-- method OptionContext::set_translation_domain+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_context_set_translation_domain" g_option_context_set_translation_domain :: +    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"+    CString ->                              -- domain : TBasicType TUTF8+    IO ()+++optionContextSetTranslationDomain ::+    (MonadIO m) =>+    OptionContext ->                        -- _obj+    T.Text ->                               -- domain+    m ()+optionContextSetTranslationDomain _obj domain = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    domain' <- textToCString domain+    g_option_context_set_translation_domain _obj' domain'+    touchManagedPtr _obj+    freeMem domain'+    return ()++-- struct OptionEntry+newtype OptionEntry = OptionEntry (ForeignPtr OptionEntry)+noOptionEntry :: Maybe OptionEntry+noOptionEntry = Nothing++optionEntryReadLongName :: OptionEntry -> IO T.Text+optionEntryReadLongName s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++optionEntryReadShortName :: OptionEntry -> IO Int8+optionEntryReadShortName s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int8+    return val++optionEntryReadFlags :: OptionEntry -> IO Int32+optionEntryReadFlags s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Int32+    return val++optionEntryReadArg :: OptionEntry -> IO OptionArg+optionEntryReadArg s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++optionEntryReadArgData :: OptionEntry -> IO (Ptr ())+optionEntryReadArgData s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO (Ptr ())+    return val++optionEntryReadDescription :: OptionEntry -> IO T.Text+optionEntryReadDescription s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO CString+    val' <- cstringToText val+    return val'++optionEntryReadArgDescription :: OptionEntry -> IO T.Text+optionEntryReadArgDescription s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CString+    val' <- cstringToText val+    return val'++-- Enum OptionError++data OptionError = +      OptionErrorUnknownOption+    | OptionErrorBadValue+    | OptionErrorFailed+    | AnotherOptionError Int+    deriving (Show, Eq)++instance Enum OptionError where+    fromEnum OptionErrorUnknownOption = 0+    fromEnum OptionErrorBadValue = 1+    fromEnum OptionErrorFailed = 2+    fromEnum (AnotherOptionError k) = k++    toEnum 0 = OptionErrorUnknownOption+    toEnum 1 = OptionErrorBadValue+    toEnum 2 = OptionErrorFailed+    toEnum k = AnotherOptionError k++instance GErrorClass OptionError where+    gerrorClassDomain _ = "g-option-context-error-quark"++catchOptionError ::+    IO a ->+    (OptionError -> GErrorMessage -> IO a) ->+    IO a+catchOptionError = catchGErrorJustDomain++handleOptionError ::+    (OptionError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleOptionError = handleGErrorJustDomain++-- callback OptionErrorFunc+optionErrorFuncClosure :: OptionErrorFunc -> IO Closure+optionErrorFuncClosure cb = newCClosure =<< mkOptionErrorFunc wrapped+    where wrapped = optionErrorFuncWrapper Nothing cb++type OptionErrorFuncC =+    Ptr OptionContext ->+    Ptr OptionGroup ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkOptionErrorFunc :: OptionErrorFuncC -> IO (FunPtr OptionErrorFuncC)++type OptionErrorFunc =+    OptionContext ->+    OptionGroup ->+    Ptr () ->+    IO ()++noOptionErrorFunc :: Maybe OptionErrorFunc+noOptionErrorFunc = Nothing++optionErrorFuncWrapper ::+    Maybe (Ptr (FunPtr (OptionErrorFuncC))) ->+    OptionErrorFunc ->+    Ptr OptionContext ->+    Ptr OptionGroup ->+    Ptr () ->+    IO ()+optionErrorFuncWrapper funptrptr _cb context group data_ = do+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    context' <- (\x -> OptionContext <$> newForeignPtr_ x) context+    group' <- (newBoxed OptionGroup) group+    _cb  context' group' data_+    maybeReleaseFunPtr funptrptr++-- Flags OptionFlags++data OptionFlags = +      OptionFlagsNone+    | OptionFlagsHidden+    | OptionFlagsInMain+    | OptionFlagsReverse+    | OptionFlagsNoArg+    | OptionFlagsFilename+    | OptionFlagsOptionalArg+    | OptionFlagsNoalias+    | AnotherOptionFlags Int+    deriving (Show, Eq)++instance Enum OptionFlags where+    fromEnum OptionFlagsNone = 0+    fromEnum OptionFlagsHidden = 1+    fromEnum OptionFlagsInMain = 2+    fromEnum OptionFlagsReverse = 4+    fromEnum OptionFlagsNoArg = 8+    fromEnum OptionFlagsFilename = 16+    fromEnum OptionFlagsOptionalArg = 32+    fromEnum OptionFlagsNoalias = 64+    fromEnum (AnotherOptionFlags k) = k++    toEnum 0 = OptionFlagsNone+    toEnum 1 = OptionFlagsHidden+    toEnum 2 = OptionFlagsInMain+    toEnum 4 = OptionFlagsReverse+    toEnum 8 = OptionFlagsNoArg+    toEnum 16 = OptionFlagsFilename+    toEnum 32 = OptionFlagsOptionalArg+    toEnum 64 = OptionFlagsNoalias+    toEnum k = AnotherOptionFlags k++instance IsGFlag OptionFlags++-- struct OptionGroup+newtype OptionGroup = OptionGroup (ForeignPtr OptionGroup)+noOptionGroup :: Maybe OptionGroup+noOptionGroup = Nothing++foreign import ccall "g_option_group_get_type" c_g_option_group_get_type :: +    IO GType++instance BoxedObject OptionGroup where+    boxedType _ = c_g_option_group_get_type++-- method OptionGroup::new+-- method type : Constructor+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "OptionGroup"+-- throws : False+-- Skip return : False++foreign import ccall "g_option_group_new" g_option_group_new :: +    CString ->                              -- name : TBasicType TUTF8+    CString ->                              -- description : TBasicType TUTF8+    CString ->                              -- help_description : TBasicType TUTF8+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- destroy : TInterface "GLib" "DestroyNotify"+    IO (Ptr OptionGroup)+++optionGroupNew ::+    (MonadIO m) =>+    T.Text ->                               -- name+    T.Text ->                               -- description+    T.Text ->                               -- help_description+    Maybe (Ptr ()) ->                       -- user_data+    Maybe (DestroyNotify) ->                -- destroy+    m OptionGroup+optionGroupNew name description help_description user_data destroy = liftIO $ do+    name' <- textToCString name+    description' <- textToCString description+    help_description' <- textToCString help_description+    maybeUser_data <- case user_data of+        Nothing -> return nullPtr+        Just jUser_data -> do+            return jUser_data+    ptrdestroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))+    maybeDestroy <- case destroy of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jDestroy -> do+            jDestroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy) jDestroy)+            poke ptrdestroy jDestroy'+            return jDestroy'+    result <- g_option_group_new name' description' help_description' maybeUser_data maybeDestroy+    checkUnexpectedReturnNULL "g_option_group_new" result+    result' <- (wrapBoxed OptionGroup) result+    freeMem name'+    freeMem description'+    freeMem help_description'+    return result'++-- method OptionGroup::add_entries+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_group_add_entries" g_option_group_add_entries :: +    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"+    Ptr OptionEntry ->                      -- entries : TInterface "GLib" "OptionEntry"+    IO ()+++optionGroupAddEntries ::+    (MonadIO m) =>+    OptionGroup ->                          -- _obj+    OptionEntry ->                          -- entries+    m ()+optionGroupAddEntries _obj entries = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let entries' = unsafeManagedPtrGetPtr entries+    g_option_group_add_entries _obj' entries'+    touchManagedPtr _obj+    touchManagedPtr entries+    return ()++-- method OptionGroup::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_group_free" g_option_group_free :: +    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"+    IO ()++{-# DEPRECATED optionGroupFree ["(Since version 2.44)","Use g_option_group_unref() instead."]#-}+optionGroupFree ::+    (MonadIO m) =>+    OptionGroup ->                          -- _obj+    m ()+optionGroupFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_option_group_free _obj'+    touchManagedPtr _obj+    return ()++-- method OptionGroup::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "OptionGroup"+-- throws : False+-- Skip return : False++foreign import ccall "g_option_group_ref" g_option_group_ref :: +    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"+    IO (Ptr OptionGroup)+++optionGroupRef ::+    (MonadIO m) =>+    OptionGroup ->                          -- _obj+    m OptionGroup+optionGroupRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_option_group_ref _obj'+    checkUnexpectedReturnNULL "g_option_group_ref" result+    result' <- (wrapBoxed OptionGroup) result+    touchManagedPtr _obj+    return result'++-- method OptionGroup::set_translate_func+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_group_set_translate_func" g_option_group_set_translate_func :: +    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"+    FunPtr TranslateFuncC ->                -- func : TInterface "GLib" "TranslateFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- destroy_notify : TInterface "GLib" "DestroyNotify"+    IO ()+++optionGroupSetTranslateFunc ::+    (MonadIO m) =>+    OptionGroup ->                          -- _obj+    Maybe (TranslateFunc) ->                -- func+    m ()+optionGroupSetTranslateFunc _obj func = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeFunc <- case func of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jFunc -> do+            jFunc' <- mkTranslateFunc (translateFuncWrapper Nothing jFunc)+            return jFunc'+    let data_ = castFunPtrToPtr maybeFunc+    let destroy_notify = safeFreeFunPtrPtr+    g_option_group_set_translate_func _obj' maybeFunc data_ destroy_notify+    touchManagedPtr _obj+    return ()++-- method OptionGroup::set_translation_domain+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_group_set_translation_domain" g_option_group_set_translation_domain :: +    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"+    CString ->                              -- domain : TBasicType TUTF8+    IO ()+++optionGroupSetTranslationDomain ::+    (MonadIO m) =>+    OptionGroup ->                          -- _obj+    T.Text ->                               -- domain+    m ()+optionGroupSetTranslationDomain _obj domain = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    domain' <- textToCString domain+    g_option_group_set_translation_domain _obj' domain'+    touchManagedPtr _obj+    freeMem domain'+    return ()++-- method OptionGroup::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_option_group_unref" g_option_group_unref :: +    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"+    IO ()+++optionGroupUnref ::+    (MonadIO m) =>+    OptionGroup ->                          -- _obj+    m ()+optionGroupUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_option_group_unref _obj'+    touchManagedPtr _obj+    return ()++-- callback OptionParseFunc+optionParseFuncClosure :: OptionParseFunc -> IO Closure+optionParseFuncClosure cb = newCClosure =<< mkOptionParseFunc wrapped+    where wrapped = optionParseFuncWrapper Nothing cb++type OptionParseFuncC =+    Ptr OptionContext ->+    Ptr OptionGroup ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkOptionParseFunc :: OptionParseFuncC -> IO (FunPtr OptionParseFuncC)++type OptionParseFunc =+    OptionContext ->+    OptionGroup ->+    Ptr () ->+    IO Bool++noOptionParseFunc :: Maybe OptionParseFunc+noOptionParseFunc = Nothing++optionParseFuncWrapper ::+    Maybe (Ptr (FunPtr (OptionParseFuncC))) ->+    OptionParseFunc ->+    Ptr OptionContext ->+    Ptr OptionGroup ->+    Ptr () ->+    IO CInt+optionParseFuncWrapper funptrptr _cb context group data_ = do+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    context' <- (\x -> OptionContext <$> newForeignPtr_ x) context+    group' <- (newBoxed OptionGroup) group+    result <- _cb  context' group' data_+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- struct PatternSpec+newtype PatternSpec = PatternSpec (ForeignPtr PatternSpec)+noPatternSpec :: Maybe PatternSpec+noPatternSpec = Nothing++-- method PatternSpec::equal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec2", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec2", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_pattern_spec_equal" g_pattern_spec_equal :: +    Ptr PatternSpec ->                      -- _obj : TInterface "GLib" "PatternSpec"+    Ptr PatternSpec ->                      -- pspec2 : TInterface "GLib" "PatternSpec"+    IO CInt+++patternSpecEqual ::+    (MonadIO m) =>+    PatternSpec ->                          -- _obj+    PatternSpec ->                          -- pspec2+    m Bool+patternSpecEqual _obj pspec2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let pspec2' = unsafeManagedPtrGetPtr pspec2+    result <- g_pattern_spec_equal _obj' pspec2'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr pspec2+    return result'++-- method PatternSpec::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_pattern_spec_free" g_pattern_spec_free :: +    Ptr PatternSpec ->                      -- _obj : TInterface "GLib" "PatternSpec"+    IO ()+++patternSpecFree ::+    (MonadIO m) =>+    PatternSpec ->                          -- _obj+    m ()+patternSpecFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_pattern_spec_free _obj'+    touchManagedPtr _obj+    return ()++-- struct PollFD+newtype PollFD = PollFD (ForeignPtr PollFD)+noPollFD :: Maybe PollFD+noPollFD = Nothing++foreign import ccall "g_pollfd_get_type" c_g_pollfd_get_type :: +    IO GType++instance BoxedObject PollFD where+    boxedType _ = c_g_pollfd_get_type++pollFDReadFd :: PollFD -> IO Int32+pollFDReadFd s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++pollFDReadEvents :: PollFD -> IO Word16+pollFDReadEvents s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Word16+    return val++pollFDReadRevents :: PollFD -> IO Word16+pollFDReadRevents s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 6) :: IO Word16+    return val++-- callback PollFunc+pollFuncClosure :: PollFunc -> IO Closure+pollFuncClosure cb = newCClosure =<< mkPollFunc wrapped+    where wrapped = pollFuncWrapper Nothing cb++type PollFuncC =+    Ptr PollFD ->+    Word32 ->+    Int32 ->+    IO Int32++foreign import ccall "wrapper"+    mkPollFunc :: PollFuncC -> IO (FunPtr PollFuncC)++type PollFunc =+    PollFD ->+    Word32 ->+    Int32 ->+    IO Int32++noPollFunc :: Maybe PollFunc+noPollFunc = Nothing++pollFuncWrapper ::+    Maybe (Ptr (FunPtr (PollFuncC))) ->+    PollFunc ->+    Ptr PollFD ->+    Word32 ->+    Int32 ->+    IO Int32+pollFuncWrapper funptrptr _cb ufds nfsd timeout_ = do+    ufds' <- (newBoxed PollFD) ufds+    result <- _cb  ufds' nfsd timeout_+    maybeReleaseFunPtr funptrptr+    return result++-- callback PrintFunc+printFuncClosure :: PrintFunc -> IO Closure+printFuncClosure cb = newCClosure =<< mkPrintFunc wrapped+    where wrapped = printFuncWrapper Nothing cb++type PrintFuncC =+    CString ->+    IO ()++foreign import ccall "wrapper"+    mkPrintFunc :: PrintFuncC -> IO (FunPtr PrintFuncC)++type PrintFunc =+    T.Text ->+    IO ()++noPrintFunc :: Maybe PrintFunc+noPrintFunc = Nothing++printFuncWrapper ::+    Maybe (Ptr (FunPtr (PrintFuncC))) ->+    PrintFunc ->+    CString ->+    IO ()+printFuncWrapper funptrptr _cb string = do+    string' <- cstringToText string+    _cb  string'+    maybeReleaseFunPtr funptrptr++-- struct PtrArray+newtype PtrArray = PtrArray (ForeignPtr PtrArray)+noPtrArray :: Maybe PtrArray+noPtrArray = Nothing++foreign import ccall "g_ptr_array_get_type" c_g_ptr_array_get_type :: +    IO GType++instance BoxedObject PtrArray where+    boxedType _ = c_g_ptr_array_get_type++ptrArrayReadPdata :: PtrArray -> IO (Ptr ())+ptrArrayReadPdata s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())+    return val++ptrArrayReadLen :: PtrArray -> IO Word32+ptrArrayReadLen s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word32+    return val++-- struct Queue+newtype Queue = Queue (ForeignPtr Queue)+noQueue :: Maybe Queue+noQueue = Nothing++queueReadHead :: Queue -> IO ([Ptr ()])+queueReadHead s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr (GList (Ptr ())))+    val' <- unpackGList val+    return val'++queueReadTail :: Queue -> IO ([Ptr ()])+queueReadTail s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr (GList (Ptr ())))+    val' <- unpackGList val+    return val'++queueReadLength :: Queue -> IO Word32+queueReadLength s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Word32+    return val++-- method Queue::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_clear" g_queue_clear :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    IO ()+++queueClear ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    m ()+queueClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_queue_clear _obj'+    touchManagedPtr _obj+    return ()++-- method Queue::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_free" g_queue_free :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    IO ()+++queueFree ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    m ()+queueFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_queue_free _obj'+    touchManagedPtr _obj+    return ()++-- method Queue::free_full+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_free_full" g_queue_free_full :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    FunPtr DestroyNotifyC ->                -- free_func : TInterface "GLib" "DestroyNotify"+    IO ()+++queueFreeFull ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    DestroyNotify ->                        -- free_func+    m ()+queueFreeFull _obj free_func = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    ptrfree_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))+    free_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrfree_func) free_func)+    poke ptrfree_func free_func'+    g_queue_free_full _obj' free_func'+    touchManagedPtr _obj+    return ()++-- method Queue::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_get_length" g_queue_get_length :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    IO Word32+++queueGetLength ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    m Word32+queueGetLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_queue_get_length _obj'+    touchManagedPtr _obj+    return result++-- method Queue::index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_index" g_queue_index :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    Ptr () ->                               -- data : TBasicType TVoid+    IO Int32+++queueIndex ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    Ptr () ->                               -- data+    m Int32+queueIndex _obj data_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_queue_index _obj' data_+    touchManagedPtr _obj+    return result++-- method Queue::init+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_init" g_queue_init :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    IO ()+++queueInit ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    m ()+queueInit _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_queue_init _obj'+    touchManagedPtr _obj+    return ()++-- method Queue::is_empty+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_is_empty" g_queue_is_empty :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    IO CInt+++queueIsEmpty ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    m Bool+queueIsEmpty _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_queue_is_empty _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Queue::push_head+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_push_head" g_queue_push_head :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    Ptr () ->                               -- data : TBasicType TVoid+    IO ()+++queuePushHead ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    Ptr () ->                               -- data+    m ()+queuePushHead _obj data_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_queue_push_head _obj' data_+    touchManagedPtr _obj+    return ()++-- method Queue::push_nth+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_push_nth" g_queue_push_nth :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    Ptr () ->                               -- data : TBasicType TVoid+    Int32 ->                                -- n : TBasicType TInt32+    IO ()+++queuePushNth ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    Ptr () ->                               -- data+    Int32 ->                                -- n+    m ()+queuePushNth _obj data_ n = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_queue_push_nth _obj' data_ n+    touchManagedPtr _obj+    return ()++-- method Queue::push_tail+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_push_tail" g_queue_push_tail :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    Ptr () ->                               -- data : TBasicType TVoid+    IO ()+++queuePushTail ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    Ptr () ->                               -- data+    m ()+queuePushTail _obj data_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_queue_push_tail _obj' data_+    touchManagedPtr _obj+    return ()++-- method Queue::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_remove" g_queue_remove :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    Ptr () ->                               -- data : TBasicType TVoid+    IO CInt+++queueRemove ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    Ptr () ->                               -- data+    m Bool+queueRemove _obj data_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_queue_remove _obj' data_+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Queue::remove_all+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_remove_all" g_queue_remove_all :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    Ptr () ->                               -- data : TBasicType TVoid+    IO Word32+++queueRemoveAll ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    Ptr () ->                               -- data+    m Word32+queueRemoveAll _obj data_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_queue_remove_all _obj' data_+    touchManagedPtr _obj+    return result++-- method Queue::reverse+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_queue_reverse" g_queue_reverse :: +    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"+    IO ()+++queueReverse ::+    (MonadIO m) =>+    Queue ->                                -- _obj+    m ()+queueReverse _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_queue_reverse _obj'+    touchManagedPtr _obj+    return ()++-- struct RWLock+newtype RWLock = RWLock (ForeignPtr RWLock)+noRWLock :: Maybe RWLock+noRWLock = Nothing++-- method RWLock::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rw_lock_clear" g_rw_lock_clear :: +    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"+    IO ()+++rWLockClear ::+    (MonadIO m) =>+    RWLock ->                               -- _obj+    m ()+rWLockClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rw_lock_clear _obj'+    touchManagedPtr _obj+    return ()++-- method RWLock::init+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rw_lock_init" g_rw_lock_init :: +    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"+    IO ()+++rWLockInit ::+    (MonadIO m) =>+    RWLock ->                               -- _obj+    m ()+rWLockInit _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rw_lock_init _obj'+    touchManagedPtr _obj+    return ()++-- method RWLock::reader_lock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rw_lock_reader_lock" g_rw_lock_reader_lock :: +    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"+    IO ()+++rWLockReaderLock ::+    (MonadIO m) =>+    RWLock ->                               -- _obj+    m ()+rWLockReaderLock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rw_lock_reader_lock _obj'+    touchManagedPtr _obj+    return ()++-- method RWLock::reader_trylock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_rw_lock_reader_trylock" g_rw_lock_reader_trylock :: +    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"+    IO CInt+++rWLockReaderTrylock ::+    (MonadIO m) =>+    RWLock ->                               -- _obj+    m Bool+rWLockReaderTrylock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_rw_lock_reader_trylock _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method RWLock::reader_unlock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rw_lock_reader_unlock" g_rw_lock_reader_unlock :: +    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"+    IO ()+++rWLockReaderUnlock ::+    (MonadIO m) =>+    RWLock ->                               -- _obj+    m ()+rWLockReaderUnlock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rw_lock_reader_unlock _obj'+    touchManagedPtr _obj+    return ()++-- method RWLock::writer_lock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rw_lock_writer_lock" g_rw_lock_writer_lock :: +    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"+    IO ()+++rWLockWriterLock ::+    (MonadIO m) =>+    RWLock ->                               -- _obj+    m ()+rWLockWriterLock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rw_lock_writer_lock _obj'+    touchManagedPtr _obj+    return ()++-- method RWLock::writer_trylock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_rw_lock_writer_trylock" g_rw_lock_writer_trylock :: +    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"+    IO CInt+++rWLockWriterTrylock ::+    (MonadIO m) =>+    RWLock ->                               -- _obj+    m Bool+rWLockWriterTrylock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_rw_lock_writer_trylock _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method RWLock::writer_unlock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rw_lock_writer_unlock" g_rw_lock_writer_unlock :: +    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"+    IO ()+++rWLockWriterUnlock ::+    (MonadIO m) =>+    RWLock ->                               -- _obj+    m ()+rWLockWriterUnlock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rw_lock_writer_unlock _obj'+    touchManagedPtr _obj+    return ()++-- struct Rand+newtype Rand = Rand (ForeignPtr Rand)+noRand :: Maybe Rand+noRand = Nothing++-- method Rand::double+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_rand_double" g_rand_double :: +    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"+    IO CDouble+++randDouble ::+    (MonadIO m) =>+    Rand ->                                 -- _obj+    m Double+randDouble _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_rand_double _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method Rand::double_range+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_rand_double_range" g_rand_double_range :: +    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"+    CDouble ->                              -- begin : TBasicType TDouble+    CDouble ->                              -- end : TBasicType TDouble+    IO CDouble+++randDoubleRange ::+    (MonadIO m) =>+    Rand ->                                 -- _obj+    Double ->                               -- begin+    Double ->                               -- end+    m Double+randDoubleRange _obj begin end = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let begin' = realToFrac begin+    let end' = realToFrac end+    result <- g_rand_double_range _obj' begin' end'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method Rand::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rand_free" g_rand_free :: +    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"+    IO ()+++randFree ::+    (MonadIO m) =>+    Rand ->                                 -- _obj+    m ()+randFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rand_free _obj'+    touchManagedPtr _obj+    return ()++-- method Rand::int+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_rand_int" g_rand_int :: +    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"+    IO Word32+++randInt ::+    (MonadIO m) =>+    Rand ->                                 -- _obj+    m Word32+randInt _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_rand_int _obj'+    touchManagedPtr _obj+    return result++-- method Rand::int_range+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_rand_int_range" g_rand_int_range :: +    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"+    Int32 ->                                -- begin : TBasicType TInt32+    Int32 ->                                -- end : TBasicType TInt32+    IO Int32+++randIntRange ::+    (MonadIO m) =>+    Rand ->                                 -- _obj+    Int32 ->                                -- begin+    Int32 ->                                -- end+    m Int32+randIntRange _obj begin end = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_rand_int_range _obj' begin end+    touchManagedPtr _obj+    return result++-- method Rand::set_seed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rand_set_seed" g_rand_set_seed :: +    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"+    Word32 ->                               -- seed : TBasicType TUInt32+    IO ()+++randSetSeed ::+    (MonadIO m) =>+    Rand ->                                 -- _obj+    Word32 ->                               -- seed+    m ()+randSetSeed _obj seed = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rand_set_seed _obj' seed+    touchManagedPtr _obj+    return ()++-- method Rand::set_seed_array+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rand_set_seed_array" g_rand_set_seed_array :: +    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"+    Word32 ->                               -- seed : TBasicType TUInt32+    Word32 ->                               -- seed_length : TBasicType TUInt32+    IO ()+++randSetSeedArray ::+    (MonadIO m) =>+    Rand ->                                 -- _obj+    Word32 ->                               -- seed+    Word32 ->                               -- seed_length+    m ()+randSetSeedArray _obj seed seed_length = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rand_set_seed_array _obj' seed seed_length+    touchManagedPtr _obj+    return ()++-- struct RecMutex+newtype RecMutex = RecMutex (ForeignPtr RecMutex)+noRecMutex :: Maybe RecMutex+noRecMutex = Nothing++-- method RecMutex::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rec_mutex_clear" g_rec_mutex_clear :: +    Ptr RecMutex ->                         -- _obj : TInterface "GLib" "RecMutex"+    IO ()+++recMutexClear ::+    (MonadIO m) =>+    RecMutex ->                             -- _obj+    m ()+recMutexClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rec_mutex_clear _obj'+    touchManagedPtr _obj+    return ()++-- method RecMutex::init+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rec_mutex_init" g_rec_mutex_init :: +    Ptr RecMutex ->                         -- _obj : TInterface "GLib" "RecMutex"+    IO ()+++recMutexInit ::+    (MonadIO m) =>+    RecMutex ->                             -- _obj+    m ()+recMutexInit _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rec_mutex_init _obj'+    touchManagedPtr _obj+    return ()++-- method RecMutex::lock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rec_mutex_lock" g_rec_mutex_lock :: +    Ptr RecMutex ->                         -- _obj : TInterface "GLib" "RecMutex"+    IO ()+++recMutexLock ::+    (MonadIO m) =>+    RecMutex ->                             -- _obj+    m ()+recMutexLock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rec_mutex_lock _obj'+    touchManagedPtr _obj+    return ()++-- method RecMutex::trylock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_rec_mutex_trylock" g_rec_mutex_trylock :: +    Ptr RecMutex ->                         -- _obj : TInterface "GLib" "RecMutex"+    IO CInt+++recMutexTrylock ::+    (MonadIO m) =>+    RecMutex ->                             -- _obj+    m Bool+recMutexTrylock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_rec_mutex_trylock _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method RecMutex::unlock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_rec_mutex_unlock" g_rec_mutex_unlock :: +    Ptr RecMutex ->                         -- _obj : TInterface "GLib" "RecMutex"+    IO ()+++recMutexUnlock ::+    (MonadIO m) =>+    RecMutex ->                             -- _obj+    m ()+recMutexUnlock _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_rec_mutex_unlock _obj'+    touchManagedPtr _obj+    return ()++-- struct Regex+newtype Regex = Regex (ForeignPtr Regex)+noRegex :: Maybe Regex+noRegex = Nothing++foreign import ccall "g_regex_get_type" c_g_regex_get_type :: +    IO GType++instance BoxedObject Regex where+    boxedType _ = c_g_regex_get_type++-- method Regex::new+-- method type : Constructor+-- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Regex"+-- throws : True+-- Skip return : False++foreign import ccall "g_regex_new" g_regex_new :: +    CString ->                              -- pattern : TBasicType TUTF8+    CUInt ->                                -- compile_options : TInterface "GLib" "RegexCompileFlags"+    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Regex)+++regexNew ::+    (MonadIO m) =>+    T.Text ->                               -- pattern+    [RegexCompileFlags] ->                  -- compile_options+    [RegexMatchFlags] ->                    -- match_options+    m Regex+regexNew pattern compile_options match_options = liftIO $ do+    pattern' <- textToCString pattern+    let compile_options' = gflagsToWord compile_options+    let match_options' = gflagsToWord match_options+    onException (do+        result <- propagateGError $ g_regex_new pattern' compile_options' match_options'+        checkUnexpectedReturnNULL "g_regex_new" result+        result' <- (wrapBoxed Regex) result+        freeMem pattern'+        return result'+     ) (do+        freeMem pattern'+     )++-- method Regex::get_capture_count+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_get_capture_count" g_regex_get_capture_count :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    IO Int32+++regexGetCaptureCount ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    m Int32+regexGetCaptureCount _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_regex_get_capture_count _obj'+    touchManagedPtr _obj+    return result++-- method Regex::get_compile_flags+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "RegexCompileFlags"+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_get_compile_flags" g_regex_get_compile_flags :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    IO CUInt+++regexGetCompileFlags ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    m [RegexCompileFlags]+regexGetCompileFlags _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_regex_get_compile_flags _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method Regex::get_has_cr_or_lf+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_get_has_cr_or_lf" g_regex_get_has_cr_or_lf :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    IO CInt+++regexGetHasCrOrLf ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    m Bool+regexGetHasCrOrLf _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_regex_get_has_cr_or_lf _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Regex::get_match_flags+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "RegexMatchFlags"+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_get_match_flags" g_regex_get_match_flags :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    IO CUInt+++regexGetMatchFlags ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    m [RegexMatchFlags]+regexGetMatchFlags _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_regex_get_match_flags _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method Regex::get_max_backref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_get_max_backref" g_regex_get_max_backref :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    IO Int32+++regexGetMaxBackref ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    m Int32+regexGetMaxBackref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_regex_get_max_backref _obj'+    touchManagedPtr _obj+    return result++-- method Regex::get_max_lookbehind+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_get_max_lookbehind" g_regex_get_max_lookbehind :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    IO Int32+++regexGetMaxLookbehind ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    m Int32+regexGetMaxLookbehind _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_regex_get_max_lookbehind _obj'+    touchManagedPtr _obj+    return result++-- method Regex::get_pattern+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_get_pattern" g_regex_get_pattern :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    IO CString+++regexGetPattern ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    m T.Text+regexGetPattern _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_regex_get_pattern _obj'+    checkUnexpectedReturnNULL "g_regex_get_pattern" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Regex::get_string_number+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_get_string_number" g_regex_get_string_number :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    CString ->                              -- name : TBasicType TUTF8+    IO Int32+++regexGetStringNumber ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    T.Text ->                               -- name+    m Int32+regexGetStringNumber _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    result <- g_regex_get_string_number _obj' name'+    touchManagedPtr _obj+    freeMem name'+    return result++-- method Regex::match+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_match" g_regex_match :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    CString ->                              -- string : TBasicType TUTF8+    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"+    Ptr (Ptr MatchInfo) ->                  -- match_info : TInterface "GLib" "MatchInfo"+    IO CInt+++regexMatch ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    T.Text ->                               -- string+    [RegexMatchFlags] ->                    -- match_options+    m (Bool,MatchInfo)+regexMatch _obj string match_options = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    string' <- textToCString string+    let match_options' = gflagsToWord match_options+    match_info <- allocMem :: IO (Ptr (Ptr MatchInfo))+    result <- g_regex_match _obj' string' match_options' match_info+    let result' = (/= 0) result+    match_info' <- peek match_info+    match_info'' <- (wrapBoxed MatchInfo) match_info'+    touchManagedPtr _obj+    freeMem string'+    freeMem match_info+    return (result', match_info'')++-- method Regex::match_all+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_match_all" g_regex_match_all :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    CString ->                              -- string : TBasicType TUTF8+    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"+    Ptr (Ptr MatchInfo) ->                  -- match_info : TInterface "GLib" "MatchInfo"+    IO CInt+++regexMatchAll ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    T.Text ->                               -- string+    [RegexMatchFlags] ->                    -- match_options+    m (Bool,MatchInfo)+regexMatchAll _obj string match_options = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    string' <- textToCString string+    let match_options' = gflagsToWord match_options+    match_info <- allocMem :: IO (Ptr (Ptr MatchInfo))+    result <- g_regex_match_all _obj' string' match_options' match_info+    let result' = (/= 0) result+    match_info' <- peek match_info+    match_info'' <- (wrapBoxed MatchInfo) match_info'+    touchManagedPtr _obj+    freeMem string'+    freeMem match_info+    return (result', match_info'')++-- method Regex::match_all_full+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_regex_match_all_full" g_regex_match_all_full :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    Ptr CString ->                          -- string : TCArray False (-1) 2 (TBasicType TUTF8)+    Int64 ->                                -- string_len : TBasicType TInt64+    Int32 ->                                -- start_position : TBasicType TInt32+    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"+    Ptr (Ptr MatchInfo) ->                  -- match_info : TInterface "GLib" "MatchInfo"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++regexMatchAllFull ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    [T.Text] ->                             -- string+    Int32 ->                                -- start_position+    [RegexMatchFlags] ->                    -- match_options+    m (MatchInfo)+regexMatchAllFull _obj string start_position match_options = liftIO $ do+    let string_len = fromIntegral $ length string+    let _obj' = unsafeManagedPtrGetPtr _obj+    string' <- packUTF8CArray string+    let match_options' = gflagsToWord match_options+    match_info <- allocMem :: IO (Ptr (Ptr MatchInfo))+    onException (do+        _ <- propagateGError $ g_regex_match_all_full _obj' string' string_len start_position match_options' match_info+        match_info' <- peek match_info+        match_info'' <- (wrapBoxed MatchInfo) match_info'+        touchManagedPtr _obj+        (mapCArrayWithLength string_len) freeMem string'+        freeMem string'+        freeMem match_info+        return match_info''+     ) (do+        (mapCArrayWithLength string_len) freeMem string'+        freeMem string'+        freeMem match_info+     )++-- method Regex::match_full+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_regex_match_full" g_regex_match_full :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    Ptr CString ->                          -- string : TCArray False (-1) 2 (TBasicType TUTF8)+    Int64 ->                                -- string_len : TBasicType TInt64+    Int32 ->                                -- start_position : TBasicType TInt32+    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"+    Ptr (Ptr MatchInfo) ->                  -- match_info : TInterface "GLib" "MatchInfo"+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++regexMatchFull ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    [T.Text] ->                             -- string+    Int32 ->                                -- start_position+    [RegexMatchFlags] ->                    -- match_options+    m (MatchInfo)+regexMatchFull _obj string start_position match_options = liftIO $ do+    let string_len = fromIntegral $ length string+    let _obj' = unsafeManagedPtrGetPtr _obj+    string' <- packUTF8CArray string+    let match_options' = gflagsToWord match_options+    match_info <- allocMem :: IO (Ptr (Ptr MatchInfo))+    onException (do+        _ <- propagateGError $ g_regex_match_full _obj' string' string_len start_position match_options' match_info+        match_info' <- peek match_info+        match_info'' <- (wrapBoxed MatchInfo) match_info'+        touchManagedPtr _obj+        (mapCArrayWithLength string_len) freeMem string'+        freeMem string'+        freeMem match_info+        return match_info''+     ) (do+        (mapCArrayWithLength string_len) freeMem string'+        freeMem string'+        freeMem match_info+     )++-- method Regex::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Regex"+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_ref" g_regex_ref :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    IO (Ptr Regex)+++regexRef ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    m Regex+regexRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_regex_ref _obj'+    checkUnexpectedReturnNULL "g_regex_ref" result+    result' <- (wrapBoxed Regex) result+    touchManagedPtr _obj+    return result'++-- method Regex::replace+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_regex_replace" g_regex_replace :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    Ptr CString ->                          -- string : TCArray False (-1) 2 (TBasicType TUTF8)+    Int64 ->                                -- string_len : TBasicType TInt64+    Int32 ->                                -- start_position : TBasicType TInt32+    CString ->                              -- replacement : TBasicType TUTF8+    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"+    Ptr (Ptr GError) ->                     -- error+    IO CString+++regexReplace ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    [T.Text] ->                             -- string+    Int32 ->                                -- start_position+    T.Text ->                               -- replacement+    [RegexMatchFlags] ->                    -- match_options+    m T.Text+regexReplace _obj string start_position replacement match_options = liftIO $ do+    let string_len = fromIntegral $ length string+    let _obj' = unsafeManagedPtrGetPtr _obj+    string' <- packUTF8CArray string+    replacement' <- textToCString replacement+    let match_options' = gflagsToWord match_options+    onException (do+        result <- propagateGError $ g_regex_replace _obj' string' string_len start_position replacement' match_options'+        checkUnexpectedReturnNULL "g_regex_replace" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        (mapCArrayWithLength string_len) freeMem string'+        freeMem string'+        freeMem replacement'+        return result'+     ) (do+        (mapCArrayWithLength string_len) freeMem string'+        freeMem string'+        freeMem replacement'+     )++-- method Regex::replace_literal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_regex_replace_literal" g_regex_replace_literal :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    Ptr CString ->                          -- string : TCArray False (-1) 2 (TBasicType TUTF8)+    Int64 ->                                -- string_len : TBasicType TInt64+    Int32 ->                                -- start_position : TBasicType TInt32+    CString ->                              -- replacement : TBasicType TUTF8+    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"+    Ptr (Ptr GError) ->                     -- error+    IO CString+++regexReplaceLiteral ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    [T.Text] ->                             -- string+    Int32 ->                                -- start_position+    T.Text ->                               -- replacement+    [RegexMatchFlags] ->                    -- match_options+    m T.Text+regexReplaceLiteral _obj string start_position replacement match_options = liftIO $ do+    let string_len = fromIntegral $ length string+    let _obj' = unsafeManagedPtrGetPtr _obj+    string' <- packUTF8CArray string+    replacement' <- textToCString replacement+    let match_options' = gflagsToWord match_options+    onException (do+        result <- propagateGError $ g_regex_replace_literal _obj' string' string_len start_position replacement' match_options'+        checkUnexpectedReturnNULL "g_regex_replace_literal" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr _obj+        (mapCArrayWithLength string_len) freeMem string'+        freeMem string'+        freeMem replacement'+        return result'+     ) (do+        (mapCArrayWithLength string_len) freeMem string'+        freeMem string'+        freeMem replacement'+     )++-- method Regex::split+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_split" g_regex_split :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    CString ->                              -- string : TBasicType TUTF8+    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"+    IO (Ptr CString)+++regexSplit ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    T.Text ->                               -- string+    [RegexMatchFlags] ->                    -- match_options+    m [T.Text]+regexSplit _obj string match_options = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    string' <- textToCString string+    let match_options' = gflagsToWord match_options+    result <- g_regex_split _obj' string' match_options'+    checkUnexpectedReturnNULL "g_regex_split" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    touchManagedPtr _obj+    freeMem string'+    return result'++-- method Regex::split_full+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_tokens", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_tokens", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : True+-- Skip return : False++foreign import ccall "g_regex_split_full" g_regex_split_full :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    Ptr CString ->                          -- string : TCArray False (-1) 2 (TBasicType TUTF8)+    Int64 ->                                -- string_len : TBasicType TInt64+    Int32 ->                                -- start_position : TBasicType TInt32+    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"+    Int32 ->                                -- max_tokens : TBasicType TInt32+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr CString)+++regexSplitFull ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    [T.Text] ->                             -- string+    Int32 ->                                -- start_position+    [RegexMatchFlags] ->                    -- match_options+    Int32 ->                                -- max_tokens+    m [T.Text]+regexSplitFull _obj string start_position match_options max_tokens = liftIO $ do+    let string_len = fromIntegral $ length string+    let _obj' = unsafeManagedPtrGetPtr _obj+    string' <- packUTF8CArray string+    let match_options' = gflagsToWord match_options+    onException (do+        result <- propagateGError $ g_regex_split_full _obj' string' string_len start_position match_options' max_tokens+        checkUnexpectedReturnNULL "g_regex_split_full" result+        result' <- unpackZeroTerminatedUTF8CArray result+        mapZeroTerminatedCArray freeMem result+        freeMem result+        touchManagedPtr _obj+        (mapCArrayWithLength string_len) freeMem string'+        freeMem string'+        return result'+     ) (do+        (mapCArrayWithLength string_len) freeMem string'+        freeMem string'+     )++-- method Regex::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_unref" g_regex_unref :: +    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"+    IO ()+++regexUnref ::+    (MonadIO m) =>+    Regex ->                                -- _obj+    m ()+regexUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_regex_unref _obj'+    touchManagedPtr _obj+    return ()++-- Flags RegexCompileFlags++data RegexCompileFlags = +      RegexCompileFlagsCaseless+    | RegexCompileFlagsMultiline+    | RegexCompileFlagsDotall+    | RegexCompileFlagsExtended+    | RegexCompileFlagsAnchored+    | RegexCompileFlagsDollarEndonly+    | RegexCompileFlagsUngreedy+    | RegexCompileFlagsRaw+    | RegexCompileFlagsNoAutoCapture+    | RegexCompileFlagsOptimize+    | RegexCompileFlagsFirstline+    | RegexCompileFlagsDupnames+    | RegexCompileFlagsNewlineCr+    | RegexCompileFlagsNewlineLf+    | RegexCompileFlagsNewlineCrlf+    | RegexCompileFlagsNewlineAnycrlf+    | RegexCompileFlagsBsrAnycrlf+    | RegexCompileFlagsJavascriptCompat+    | AnotherRegexCompileFlags Int+    deriving (Show, Eq)++instance Enum RegexCompileFlags where+    fromEnum RegexCompileFlagsCaseless = 1+    fromEnum RegexCompileFlagsMultiline = 2+    fromEnum RegexCompileFlagsDotall = 4+    fromEnum RegexCompileFlagsExtended = 8+    fromEnum RegexCompileFlagsAnchored = 16+    fromEnum RegexCompileFlagsDollarEndonly = 32+    fromEnum RegexCompileFlagsUngreedy = 512+    fromEnum RegexCompileFlagsRaw = 2048+    fromEnum RegexCompileFlagsNoAutoCapture = 4096+    fromEnum RegexCompileFlagsOptimize = 8192+    fromEnum RegexCompileFlagsFirstline = 262144+    fromEnum RegexCompileFlagsDupnames = 524288+    fromEnum RegexCompileFlagsNewlineCr = 1048576+    fromEnum RegexCompileFlagsNewlineLf = 2097152+    fromEnum RegexCompileFlagsNewlineCrlf = 3145728+    fromEnum RegexCompileFlagsNewlineAnycrlf = 5242880+    fromEnum RegexCompileFlagsBsrAnycrlf = 8388608+    fromEnum RegexCompileFlagsJavascriptCompat = 33554432+    fromEnum (AnotherRegexCompileFlags k) = k++    toEnum 1 = RegexCompileFlagsCaseless+    toEnum 2 = RegexCompileFlagsMultiline+    toEnum 4 = RegexCompileFlagsDotall+    toEnum 8 = RegexCompileFlagsExtended+    toEnum 16 = RegexCompileFlagsAnchored+    toEnum 32 = RegexCompileFlagsDollarEndonly+    toEnum 512 = RegexCompileFlagsUngreedy+    toEnum 2048 = RegexCompileFlagsRaw+    toEnum 4096 = RegexCompileFlagsNoAutoCapture+    toEnum 8192 = RegexCompileFlagsOptimize+    toEnum 262144 = RegexCompileFlagsFirstline+    toEnum 524288 = RegexCompileFlagsDupnames+    toEnum 1048576 = RegexCompileFlagsNewlineCr+    toEnum 2097152 = RegexCompileFlagsNewlineLf+    toEnum 3145728 = RegexCompileFlagsNewlineCrlf+    toEnum 5242880 = RegexCompileFlagsNewlineAnycrlf+    toEnum 8388608 = RegexCompileFlagsBsrAnycrlf+    toEnum 33554432 = RegexCompileFlagsJavascriptCompat+    toEnum k = AnotherRegexCompileFlags k++instance IsGFlag RegexCompileFlags++-- Enum RegexError++data RegexError = +      RegexErrorCompile+    | RegexErrorOptimize+    | RegexErrorReplace+    | RegexErrorMatch+    | RegexErrorInternal+    | RegexErrorStrayBackslash+    | RegexErrorMissingControlChar+    | RegexErrorUnrecognizedEscape+    | RegexErrorQuantifiersOutOfOrder+    | RegexErrorQuantifierTooBig+    | RegexErrorUnterminatedCharacterClass+    | RegexErrorInvalidEscapeInCharacterClass+    | RegexErrorRangeOutOfOrder+    | RegexErrorNothingToRepeat+    | RegexErrorUnrecognizedCharacter+    | RegexErrorPosixNamedClassOutsideClass+    | RegexErrorUnmatchedParenthesis+    | RegexErrorInexistentSubpatternReference+    | RegexErrorUnterminatedComment+    | RegexErrorExpressionTooLarge+    | RegexErrorMemoryError+    | RegexErrorVariableLengthLookbehind+    | RegexErrorMalformedCondition+    | RegexErrorTooManyConditionalBranches+    | RegexErrorAssertionExpected+    | RegexErrorUnknownPosixClassName+    | RegexErrorPosixCollatingElementsNotSupported+    | RegexErrorHexCodeTooLarge+    | RegexErrorInvalidCondition+    | RegexErrorSingleByteMatchInLookbehind+    | RegexErrorInfiniteLoop+    | RegexErrorMissingSubpatternNameTerminator+    | RegexErrorDuplicateSubpatternName+    | RegexErrorMalformedProperty+    | RegexErrorUnknownProperty+    | RegexErrorSubpatternNameTooLong+    | RegexErrorTooManySubpatterns+    | RegexErrorInvalidOctalValue+    | RegexErrorTooManyBranchesInDefine+    | RegexErrorDefineRepetion+    | RegexErrorInconsistentNewlineOptions+    | RegexErrorMissingBackReference+    | RegexErrorInvalidRelativeReference+    | RegexErrorBacktrackingControlVerbArgumentForbidden+    | RegexErrorUnknownBacktrackingControlVerb+    | RegexErrorNumberTooBig+    | RegexErrorMissingSubpatternName+    | RegexErrorMissingDigit+    | RegexErrorInvalidDataCharacter+    | RegexErrorExtraSubpatternName+    | RegexErrorBacktrackingControlVerbArgumentRequired+    | RegexErrorInvalidControlChar+    | RegexErrorMissingName+    | RegexErrorNotSupportedInClass+    | RegexErrorTooManyForwardReferences+    | RegexErrorNameTooLong+    | RegexErrorCharacterValueTooLarge+    | AnotherRegexError Int+    deriving (Show, Eq)++instance Enum RegexError where+    fromEnum RegexErrorCompile = 0+    fromEnum RegexErrorOptimize = 1+    fromEnum RegexErrorReplace = 2+    fromEnum RegexErrorMatch = 3+    fromEnum RegexErrorInternal = 4+    fromEnum RegexErrorStrayBackslash = 101+    fromEnum RegexErrorMissingControlChar = 102+    fromEnum RegexErrorUnrecognizedEscape = 103+    fromEnum RegexErrorQuantifiersOutOfOrder = 104+    fromEnum RegexErrorQuantifierTooBig = 105+    fromEnum RegexErrorUnterminatedCharacterClass = 106+    fromEnum RegexErrorInvalidEscapeInCharacterClass = 107+    fromEnum RegexErrorRangeOutOfOrder = 108+    fromEnum RegexErrorNothingToRepeat = 109+    fromEnum RegexErrorUnrecognizedCharacter = 112+    fromEnum RegexErrorPosixNamedClassOutsideClass = 113+    fromEnum RegexErrorUnmatchedParenthesis = 114+    fromEnum RegexErrorInexistentSubpatternReference = 115+    fromEnum RegexErrorUnterminatedComment = 118+    fromEnum RegexErrorExpressionTooLarge = 120+    fromEnum RegexErrorMemoryError = 121+    fromEnum RegexErrorVariableLengthLookbehind = 125+    fromEnum RegexErrorMalformedCondition = 126+    fromEnum RegexErrorTooManyConditionalBranches = 127+    fromEnum RegexErrorAssertionExpected = 128+    fromEnum RegexErrorUnknownPosixClassName = 130+    fromEnum RegexErrorPosixCollatingElementsNotSupported = 131+    fromEnum RegexErrorHexCodeTooLarge = 134+    fromEnum RegexErrorInvalidCondition = 135+    fromEnum RegexErrorSingleByteMatchInLookbehind = 136+    fromEnum RegexErrorInfiniteLoop = 140+    fromEnum RegexErrorMissingSubpatternNameTerminator = 142+    fromEnum RegexErrorDuplicateSubpatternName = 143+    fromEnum RegexErrorMalformedProperty = 146+    fromEnum RegexErrorUnknownProperty = 147+    fromEnum RegexErrorSubpatternNameTooLong = 148+    fromEnum RegexErrorTooManySubpatterns = 149+    fromEnum RegexErrorInvalidOctalValue = 151+    fromEnum RegexErrorTooManyBranchesInDefine = 154+    fromEnum RegexErrorDefineRepetion = 155+    fromEnum RegexErrorInconsistentNewlineOptions = 156+    fromEnum RegexErrorMissingBackReference = 157+    fromEnum RegexErrorInvalidRelativeReference = 158+    fromEnum RegexErrorBacktrackingControlVerbArgumentForbidden = 159+    fromEnum RegexErrorUnknownBacktrackingControlVerb = 160+    fromEnum RegexErrorNumberTooBig = 161+    fromEnum RegexErrorMissingSubpatternName = 162+    fromEnum RegexErrorMissingDigit = 163+    fromEnum RegexErrorInvalidDataCharacter = 164+    fromEnum RegexErrorExtraSubpatternName = 165+    fromEnum RegexErrorBacktrackingControlVerbArgumentRequired = 166+    fromEnum RegexErrorInvalidControlChar = 168+    fromEnum RegexErrorMissingName = 169+    fromEnum RegexErrorNotSupportedInClass = 171+    fromEnum RegexErrorTooManyForwardReferences = 172+    fromEnum RegexErrorNameTooLong = 175+    fromEnum RegexErrorCharacterValueTooLarge = 176+    fromEnum (AnotherRegexError k) = k++    toEnum 0 = RegexErrorCompile+    toEnum 1 = RegexErrorOptimize+    toEnum 2 = RegexErrorReplace+    toEnum 3 = RegexErrorMatch+    toEnum 4 = RegexErrorInternal+    toEnum 101 = RegexErrorStrayBackslash+    toEnum 102 = RegexErrorMissingControlChar+    toEnum 103 = RegexErrorUnrecognizedEscape+    toEnum 104 = RegexErrorQuantifiersOutOfOrder+    toEnum 105 = RegexErrorQuantifierTooBig+    toEnum 106 = RegexErrorUnterminatedCharacterClass+    toEnum 107 = RegexErrorInvalidEscapeInCharacterClass+    toEnum 108 = RegexErrorRangeOutOfOrder+    toEnum 109 = RegexErrorNothingToRepeat+    toEnum 112 = RegexErrorUnrecognizedCharacter+    toEnum 113 = RegexErrorPosixNamedClassOutsideClass+    toEnum 114 = RegexErrorUnmatchedParenthesis+    toEnum 115 = RegexErrorInexistentSubpatternReference+    toEnum 118 = RegexErrorUnterminatedComment+    toEnum 120 = RegexErrorExpressionTooLarge+    toEnum 121 = RegexErrorMemoryError+    toEnum 125 = RegexErrorVariableLengthLookbehind+    toEnum 126 = RegexErrorMalformedCondition+    toEnum 127 = RegexErrorTooManyConditionalBranches+    toEnum 128 = RegexErrorAssertionExpected+    toEnum 130 = RegexErrorUnknownPosixClassName+    toEnum 131 = RegexErrorPosixCollatingElementsNotSupported+    toEnum 134 = RegexErrorHexCodeTooLarge+    toEnum 135 = RegexErrorInvalidCondition+    toEnum 136 = RegexErrorSingleByteMatchInLookbehind+    toEnum 140 = RegexErrorInfiniteLoop+    toEnum 142 = RegexErrorMissingSubpatternNameTerminator+    toEnum 143 = RegexErrorDuplicateSubpatternName+    toEnum 146 = RegexErrorMalformedProperty+    toEnum 147 = RegexErrorUnknownProperty+    toEnum 148 = RegexErrorSubpatternNameTooLong+    toEnum 149 = RegexErrorTooManySubpatterns+    toEnum 151 = RegexErrorInvalidOctalValue+    toEnum 154 = RegexErrorTooManyBranchesInDefine+    toEnum 155 = RegexErrorDefineRepetion+    toEnum 156 = RegexErrorInconsistentNewlineOptions+    toEnum 157 = RegexErrorMissingBackReference+    toEnum 158 = RegexErrorInvalidRelativeReference+    toEnum 159 = RegexErrorBacktrackingControlVerbArgumentForbidden+    toEnum 160 = RegexErrorUnknownBacktrackingControlVerb+    toEnum 161 = RegexErrorNumberTooBig+    toEnum 162 = RegexErrorMissingSubpatternName+    toEnum 163 = RegexErrorMissingDigit+    toEnum 164 = RegexErrorInvalidDataCharacter+    toEnum 165 = RegexErrorExtraSubpatternName+    toEnum 166 = RegexErrorBacktrackingControlVerbArgumentRequired+    toEnum 168 = RegexErrorInvalidControlChar+    toEnum 169 = RegexErrorMissingName+    toEnum 171 = RegexErrorNotSupportedInClass+    toEnum 172 = RegexErrorTooManyForwardReferences+    toEnum 175 = RegexErrorNameTooLong+    toEnum 176 = RegexErrorCharacterValueTooLarge+    toEnum k = AnotherRegexError k++instance GErrorClass RegexError where+    gerrorClassDomain _ = "g-regex-error-quark"++catchRegexError ::+    IO a ->+    (RegexError -> GErrorMessage -> IO a) ->+    IO a+catchRegexError = catchGErrorJustDomain++handleRegexError ::+    (RegexError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleRegexError = handleGErrorJustDomain++-- callback RegexEvalCallback+regexEvalCallbackClosure :: RegexEvalCallback -> IO Closure+regexEvalCallbackClosure cb = newCClosure =<< mkRegexEvalCallback wrapped+    where wrapped = regexEvalCallbackWrapper Nothing cb++type RegexEvalCallbackC =+    Ptr MatchInfo ->+    Ptr String ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkRegexEvalCallback :: RegexEvalCallbackC -> IO (FunPtr RegexEvalCallbackC)++type RegexEvalCallback =+    MatchInfo ->+    String ->+    IO Bool++noRegexEvalCallback :: Maybe RegexEvalCallback+noRegexEvalCallback = Nothing++regexEvalCallbackWrapper ::+    Maybe (Ptr (FunPtr (RegexEvalCallbackC))) ->+    RegexEvalCallback ->+    Ptr MatchInfo ->+    Ptr String ->+    Ptr () ->+    IO CInt+regexEvalCallbackWrapper funptrptr _cb match_info result_ _ = do+    match_info' <- (newBoxed MatchInfo) match_info+    result_' <- (newBoxed String) result_+    result <- _cb  match_info' result_'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- Flags RegexMatchFlags++data RegexMatchFlags = +      RegexMatchFlagsAnchored+    | RegexMatchFlagsNotbol+    | RegexMatchFlagsNoteol+    | RegexMatchFlagsNotempty+    | RegexMatchFlagsPartial+    | RegexMatchFlagsNewlineCr+    | RegexMatchFlagsNewlineLf+    | RegexMatchFlagsNewlineCrlf+    | RegexMatchFlagsNewlineAny+    | RegexMatchFlagsNewlineAnycrlf+    | RegexMatchFlagsBsrAnycrlf+    | RegexMatchFlagsBsrAny+    | RegexMatchFlagsPartialSoft+    | RegexMatchFlagsPartialHard+    | RegexMatchFlagsNotemptyAtstart+    | AnotherRegexMatchFlags Int+    deriving (Show, Eq)++instance Enum RegexMatchFlags where+    fromEnum RegexMatchFlagsAnchored = 16+    fromEnum RegexMatchFlagsNotbol = 128+    fromEnum RegexMatchFlagsNoteol = 256+    fromEnum RegexMatchFlagsNotempty = 1024+    fromEnum RegexMatchFlagsPartial = 32768+    fromEnum RegexMatchFlagsNewlineCr = 1048576+    fromEnum RegexMatchFlagsNewlineLf = 2097152+    fromEnum RegexMatchFlagsNewlineCrlf = 3145728+    fromEnum RegexMatchFlagsNewlineAny = 4194304+    fromEnum RegexMatchFlagsNewlineAnycrlf = 5242880+    fromEnum RegexMatchFlagsBsrAnycrlf = 8388608+    fromEnum RegexMatchFlagsBsrAny = 16777216+    fromEnum RegexMatchFlagsPartialSoft = 32768+    fromEnum RegexMatchFlagsPartialHard = 134217728+    fromEnum RegexMatchFlagsNotemptyAtstart = 268435456+    fromEnum (AnotherRegexMatchFlags k) = k++    toEnum 16 = RegexMatchFlagsAnchored+    toEnum 128 = RegexMatchFlagsNotbol+    toEnum 256 = RegexMatchFlagsNoteol+    toEnum 1024 = RegexMatchFlagsNotempty+    toEnum 32768 = RegexMatchFlagsPartial+    toEnum 1048576 = RegexMatchFlagsNewlineCr+    toEnum 2097152 = RegexMatchFlagsNewlineLf+    toEnum 3145728 = RegexMatchFlagsNewlineCrlf+    toEnum 4194304 = RegexMatchFlagsNewlineAny+    toEnum 5242880 = RegexMatchFlagsNewlineAnycrlf+    toEnum 8388608 = RegexMatchFlagsBsrAnycrlf+    toEnum 16777216 = RegexMatchFlagsBsrAny+    toEnum 134217728 = RegexMatchFlagsPartialHard+    toEnum 268435456 = RegexMatchFlagsNotemptyAtstart+    toEnum k = AnotherRegexMatchFlags k++instance IsGFlag RegexMatchFlags++-- struct Scanner+newtype Scanner = Scanner (ForeignPtr Scanner)+noScanner :: Maybe Scanner+noScanner = Nothing++scannerReadUserData :: Scanner -> IO (Ptr ())+scannerReadUserData s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())+    return val++scannerReadMaxParseErrors :: Scanner -> IO Word32+scannerReadMaxParseErrors s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word32+    return val++scannerReadParseErrors :: Scanner -> IO Word32+scannerReadParseErrors s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Word32+    return val++scannerReadInputName :: Scanner -> IO T.Text+scannerReadInputName s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CString+    val' <- cstringToText val+    return val'++scannerReadQdata :: Scanner -> IO Data+scannerReadQdata s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Data)+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    val' <- (\x -> Data <$> newForeignPtr_ x) val+    return val'++scannerReadConfig :: Scanner -> IO ScannerConfig+scannerReadConfig s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO (Ptr ScannerConfig)+    val' <- (newPtr 128 ScannerConfig) val+    return val'++scannerReadToken :: Scanner -> IO TokenType+scannerReadToken s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++scannerReadValue :: Scanner -> IO TokenValue+scannerReadValue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO (Ptr TokenValue)+    val' <- (newPtr 8 TokenValue) val+    return val'++scannerReadLine :: Scanner -> IO Word32+scannerReadLine s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO Word32+    return val++scannerReadPosition :: Scanner -> IO Word32+scannerReadPosition s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 60) :: IO Word32+    return val++scannerReadNextToken :: Scanner -> IO TokenType+scannerReadNextToken s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 64) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++scannerReadNextValue :: Scanner -> IO TokenValue+scannerReadNextValue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 72) :: IO (Ptr TokenValue)+    val' <- (newPtr 8 TokenValue) val+    return val'++scannerReadNextLine :: Scanner -> IO Word32+scannerReadNextLine s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 80) :: IO Word32+    return val++scannerReadNextPosition :: Scanner -> IO Word32+scannerReadNextPosition s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 84) :: IO Word32+    return val++-- XXX Skipped getter for "Scanner:msg_handler" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- method Scanner::cur_line+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_cur_line" g_scanner_cur_line :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    IO Word32+++scannerCurLine ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    m Word32+scannerCurLine _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_scanner_cur_line _obj'+    touchManagedPtr _obj+    return result++-- method Scanner::cur_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_cur_position" g_scanner_cur_position :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    IO Word32+++scannerCurPosition ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    m Word32+scannerCurPosition _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_scanner_cur_position _obj'+    touchManagedPtr _obj+    return result++-- method Scanner::cur_token+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "TokenType"+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_cur_token" g_scanner_cur_token :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    IO CUInt+++scannerCurToken ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    m TokenType+scannerCurToken _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_scanner_cur_token _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Scanner::destroy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_destroy" g_scanner_destroy :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    IO ()+++scannerDestroy ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    m ()+scannerDestroy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_scanner_destroy _obj'+    touchManagedPtr _obj+    return ()++-- method Scanner::eof+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_eof" g_scanner_eof :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    IO CInt+++scannerEof ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    m Bool+scannerEof _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_scanner_eof _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Scanner::get_next_token+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "TokenType"+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_get_next_token" g_scanner_get_next_token :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    IO CUInt+++scannerGetNextToken ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    m TokenType+scannerGetNextToken _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_scanner_get_next_token _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Scanner::input_file+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "input_fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "input_fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_input_file" g_scanner_input_file :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    Int32 ->                                -- input_fd : TBasicType TInt32+    IO ()+++scannerInputFile ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    Int32 ->                                -- input_fd+    m ()+scannerInputFile _obj input_fd = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_scanner_input_file _obj' input_fd+    touchManagedPtr _obj+    return ()++-- method Scanner::input_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_input_text" g_scanner_input_text :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    CString ->                              -- text : TBasicType TUTF8+    Word32 ->                               -- text_len : TBasicType TUInt32+    IO ()+++scannerInputText ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    T.Text ->                               -- text+    Word32 ->                               -- text_len+    m ()+scannerInputText _obj text text_len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    text' <- textToCString text+    g_scanner_input_text _obj' text' text_len+    touchManagedPtr _obj+    freeMem text'+    return ()++-- method Scanner::peek_next_token+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "TokenType"+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_peek_next_token" g_scanner_peek_next_token :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    IO CUInt+++scannerPeekNextToken ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    m TokenType+scannerPeekNextToken _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_scanner_peek_next_token _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Scanner::scope_add_symbol+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_scope_add_symbol" g_scanner_scope_add_symbol :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    Word32 ->                               -- scope_id : TBasicType TUInt32+    CString ->                              -- symbol : TBasicType TUTF8+    Ptr () ->                               -- value : TBasicType TVoid+    IO ()+++scannerScopeAddSymbol ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    Word32 ->                               -- scope_id+    T.Text ->                               -- symbol+    Ptr () ->                               -- value+    m ()+scannerScopeAddSymbol _obj scope_id symbol value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    symbol' <- textToCString symbol+    g_scanner_scope_add_symbol _obj' scope_id symbol' value+    touchManagedPtr _obj+    freeMem symbol'+    return ()++-- method Scanner::scope_remove_symbol+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_scope_remove_symbol" g_scanner_scope_remove_symbol :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    Word32 ->                               -- scope_id : TBasicType TUInt32+    CString ->                              -- symbol : TBasicType TUTF8+    IO ()+++scannerScopeRemoveSymbol ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    Word32 ->                               -- scope_id+    T.Text ->                               -- symbol+    m ()+scannerScopeRemoveSymbol _obj scope_id symbol = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    symbol' <- textToCString symbol+    g_scanner_scope_remove_symbol _obj' scope_id symbol'+    touchManagedPtr _obj+    freeMem symbol'+    return ()++-- method Scanner::set_scope+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_set_scope" g_scanner_set_scope :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    Word32 ->                               -- scope_id : TBasicType TUInt32+    IO Word32+++scannerSetScope ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    Word32 ->                               -- scope_id+    m Word32+scannerSetScope _obj scope_id = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_scanner_set_scope _obj' scope_id+    touchManagedPtr _obj+    return result++-- method Scanner::sync_file_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_sync_file_offset" g_scanner_sync_file_offset :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    IO ()+++scannerSyncFileOffset ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    m ()+scannerSyncFileOffset _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_scanner_sync_file_offset _obj'+    touchManagedPtr _obj+    return ()++-- method Scanner::unexp_token+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_token", argType = TInterface "GLib" "TokenType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_error", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_token", argType = TInterface "GLib" "TokenType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_error", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_scanner_unexp_token" g_scanner_unexp_token :: +    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"+    CUInt ->                                -- expected_token : TInterface "GLib" "TokenType"+    CString ->                              -- identifier_spec : TBasicType TUTF8+    CString ->                              -- symbol_spec : TBasicType TUTF8+    CString ->                              -- symbol_name : TBasicType TUTF8+    CString ->                              -- message : TBasicType TUTF8+    Int32 ->                                -- is_error : TBasicType TInt32+    IO ()+++scannerUnexpToken ::+    (MonadIO m) =>+    Scanner ->                              -- _obj+    TokenType ->                            -- expected_token+    T.Text ->                               -- identifier_spec+    T.Text ->                               -- symbol_spec+    T.Text ->                               -- symbol_name+    T.Text ->                               -- message+    Int32 ->                                -- is_error+    m ()+scannerUnexpToken _obj expected_token identifier_spec symbol_spec symbol_name message is_error = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let expected_token' = (fromIntegral . fromEnum) expected_token+    identifier_spec' <- textToCString identifier_spec+    symbol_spec' <- textToCString symbol_spec+    symbol_name' <- textToCString symbol_name+    message' <- textToCString message+    g_scanner_unexp_token _obj' expected_token' identifier_spec' symbol_spec' symbol_name' message' is_error+    touchManagedPtr _obj+    freeMem identifier_spec'+    freeMem symbol_spec'+    freeMem symbol_name'+    freeMem message'+    return ()++-- struct ScannerConfig+newtype ScannerConfig = ScannerConfig (ForeignPtr ScannerConfig)+noScannerConfig :: Maybe ScannerConfig+noScannerConfig = Nothing++scannerConfigReadCsetSkipCharacters :: ScannerConfig -> IO T.Text+scannerConfigReadCsetSkipCharacters s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++scannerConfigReadCsetIdentifierFirst :: ScannerConfig -> IO T.Text+scannerConfigReadCsetIdentifierFirst s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO CString+    val' <- cstringToText val+    return val'++scannerConfigReadCsetIdentifierNth :: ScannerConfig -> IO T.Text+scannerConfigReadCsetIdentifierNth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CString+    val' <- cstringToText val+    return val'++scannerConfigReadCpairCommentSingle :: ScannerConfig -> IO T.Text+scannerConfigReadCpairCommentSingle s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CString+    val' <- cstringToText val+    return val'++scannerConfigReadCaseSensitive :: ScannerConfig -> IO Word32+scannerConfigReadCaseSensitive s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO Word32+    return val++scannerConfigReadSkipCommentMulti :: ScannerConfig -> IO Word32+scannerConfigReadSkipCommentMulti s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 36) :: IO Word32+    return val++scannerConfigReadSkipCommentSingle :: ScannerConfig -> IO Word32+scannerConfigReadSkipCommentSingle s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO Word32+    return val++scannerConfigReadScanCommentMulti :: ScannerConfig -> IO Word32+scannerConfigReadScanCommentMulti s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 44) :: IO Word32+    return val++scannerConfigReadScanIdentifier :: ScannerConfig -> IO Word32+scannerConfigReadScanIdentifier s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO Word32+    return val++scannerConfigReadScanIdentifier1char :: ScannerConfig -> IO Word32+scannerConfigReadScanIdentifier1char s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 52) :: IO Word32+    return val++scannerConfigReadScanIdentifierNULL :: ScannerConfig -> IO Word32+scannerConfigReadScanIdentifierNULL s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO Word32+    return val++scannerConfigReadScanSymbols :: ScannerConfig -> IO Word32+scannerConfigReadScanSymbols s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 60) :: IO Word32+    return val++scannerConfigReadScanBinary :: ScannerConfig -> IO Word32+scannerConfigReadScanBinary s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 64) :: IO Word32+    return val++scannerConfigReadScanOctal :: ScannerConfig -> IO Word32+scannerConfigReadScanOctal s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 68) :: IO Word32+    return val++scannerConfigReadScanFloat :: ScannerConfig -> IO Word32+scannerConfigReadScanFloat s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 72) :: IO Word32+    return val++scannerConfigReadScanHex :: ScannerConfig -> IO Word32+scannerConfigReadScanHex s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 76) :: IO Word32+    return val++scannerConfigReadScanHexDollar :: ScannerConfig -> IO Word32+scannerConfigReadScanHexDollar s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 80) :: IO Word32+    return val++scannerConfigReadScanStringSq :: ScannerConfig -> IO Word32+scannerConfigReadScanStringSq s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 84) :: IO Word32+    return val++scannerConfigReadScanStringDq :: ScannerConfig -> IO Word32+scannerConfigReadScanStringDq s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 88) :: IO Word32+    return val++scannerConfigReadNumbers2Int :: ScannerConfig -> IO Word32+scannerConfigReadNumbers2Int s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 92) :: IO Word32+    return val++scannerConfigReadInt2Float :: ScannerConfig -> IO Word32+scannerConfigReadInt2Float s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 96) :: IO Word32+    return val++scannerConfigReadIdentifier2String :: ScannerConfig -> IO Word32+scannerConfigReadIdentifier2String s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 100) :: IO Word32+    return val++scannerConfigReadChar2Token :: ScannerConfig -> IO Word32+scannerConfigReadChar2Token s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 104) :: IO Word32+    return val++scannerConfigReadSymbol2Token :: ScannerConfig -> IO Word32+scannerConfigReadSymbol2Token s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 108) :: IO Word32+    return val++scannerConfigReadScope0Fallback :: ScannerConfig -> IO Word32+scannerConfigReadScope0Fallback s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 112) :: IO Word32+    return val++scannerConfigReadStoreInt64 :: ScannerConfig -> IO Word32+scannerConfigReadStoreInt64 s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 116) :: IO Word32+    return val++-- callback ScannerMsgFunc+scannerMsgFuncClosure :: ScannerMsgFunc -> IO Closure+scannerMsgFuncClosure cb = newCClosure =<< mkScannerMsgFunc wrapped+    where wrapped = scannerMsgFuncWrapper Nothing cb++type ScannerMsgFuncC =+    Ptr Scanner ->+    CString ->+    CInt ->+    IO ()++foreign import ccall "wrapper"+    mkScannerMsgFunc :: ScannerMsgFuncC -> IO (FunPtr ScannerMsgFuncC)++type ScannerMsgFunc =+    Scanner ->+    T.Text ->+    Bool ->+    IO ()++noScannerMsgFunc :: Maybe ScannerMsgFunc+noScannerMsgFunc = Nothing++scannerMsgFuncWrapper ::+    Maybe (Ptr (FunPtr (ScannerMsgFuncC))) ->+    ScannerMsgFunc ->+    Ptr Scanner ->+    CString ->+    CInt ->+    IO ()+scannerMsgFuncWrapper funptrptr _cb scanner message error_ = do+    scanner' <- (newPtr 144 Scanner) scanner+    message' <- cstringToText message+    let error_' = (/= 0) error_+    _cb  scanner' message' error_'+    maybeReleaseFunPtr funptrptr++-- Enum SeekType++data SeekType = +      SeekTypeCur+    | SeekTypeSet+    | SeekTypeEnd+    | AnotherSeekType Int+    deriving (Show, Eq)++instance Enum SeekType where+    fromEnum SeekTypeCur = 0+    fromEnum SeekTypeSet = 1+    fromEnum SeekTypeEnd = 2+    fromEnum (AnotherSeekType k) = k++    toEnum 0 = SeekTypeCur+    toEnum 1 = SeekTypeSet+    toEnum 2 = SeekTypeEnd+    toEnum k = AnotherSeekType k++-- struct Sequence+newtype Sequence = Sequence (ForeignPtr Sequence)+noSequence :: Maybe Sequence+noSequence = Nothing++-- method Sequence::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_free" g_sequence_free :: +    Ptr Sequence ->                         -- _obj : TInterface "GLib" "Sequence"+    IO ()+++sequenceFree ::+    (MonadIO m) =>+    Sequence ->                             -- _obj+    m ()+sequenceFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_sequence_free _obj'+    touchManagedPtr _obj+    return ()++-- method Sequence::get_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_get_length" g_sequence_get_length :: +    Ptr Sequence ->                         -- _obj : TInterface "GLib" "Sequence"+    IO Int32+++sequenceGetLength ::+    (MonadIO m) =>+    Sequence ->                             -- _obj+    m Int32+sequenceGetLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_sequence_get_length _obj'+    touchManagedPtr _obj+    return result++-- struct SequenceIter+newtype SequenceIter = SequenceIter (ForeignPtr SequenceIter)+noSequenceIter :: Maybe SequenceIter+noSequenceIter = Nothing++-- method SequenceIter::compare+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_iter_compare" g_sequence_iter_compare :: +    Ptr SequenceIter ->                     -- _obj : TInterface "GLib" "SequenceIter"+    Ptr SequenceIter ->                     -- b : TInterface "GLib" "SequenceIter"+    IO Int32+++sequenceIterCompare ::+    (MonadIO m) =>+    SequenceIter ->                         -- _obj+    SequenceIter ->                         -- b+    m Int32+sequenceIterCompare _obj b = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let b' = unsafeManagedPtrGetPtr b+    result <- g_sequence_iter_compare _obj' b'+    touchManagedPtr _obj+    touchManagedPtr b+    return result++-- method SequenceIter::get_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_iter_get_position" g_sequence_iter_get_position :: +    Ptr SequenceIter ->                     -- _obj : TInterface "GLib" "SequenceIter"+    IO Int32+++sequenceIterGetPosition ::+    (MonadIO m) =>+    SequenceIter ->                         -- _obj+    m Int32+sequenceIterGetPosition _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_sequence_iter_get_position _obj'+    touchManagedPtr _obj+    return result++-- method SequenceIter::is_begin+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_iter_is_begin" g_sequence_iter_is_begin :: +    Ptr SequenceIter ->                     -- _obj : TInterface "GLib" "SequenceIter"+    IO CInt+++sequenceIterIsBegin ::+    (MonadIO m) =>+    SequenceIter ->                         -- _obj+    m Bool+sequenceIterIsBegin _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_sequence_iter_is_begin _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method SequenceIter::is_end+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_iter_is_end" g_sequence_iter_is_end :: +    Ptr SequenceIter ->                     -- _obj : TInterface "GLib" "SequenceIter"+    IO CInt+++sequenceIterIsEnd ::+    (MonadIO m) =>+    SequenceIter ->                         -- _obj+    m Bool+sequenceIterIsEnd _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_sequence_iter_is_end _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- callback SequenceIterCompareFunc+sequenceIterCompareFuncClosure :: SequenceIterCompareFunc -> IO Closure+sequenceIterCompareFuncClosure cb = newCClosure =<< mkSequenceIterCompareFunc wrapped+    where wrapped = sequenceIterCompareFuncWrapper Nothing cb++type SequenceIterCompareFuncC =+    Ptr SequenceIter ->+    Ptr SequenceIter ->+    Ptr () ->+    IO Int32++foreign import ccall "wrapper"+    mkSequenceIterCompareFunc :: SequenceIterCompareFuncC -> IO (FunPtr SequenceIterCompareFuncC)++type SequenceIterCompareFunc =+    SequenceIter ->+    SequenceIter ->+    Ptr () ->+    IO Int32++noSequenceIterCompareFunc :: Maybe SequenceIterCompareFunc+noSequenceIterCompareFunc = Nothing++sequenceIterCompareFuncWrapper ::+    Maybe (Ptr (FunPtr (SequenceIterCompareFuncC))) ->+    SequenceIterCompareFunc ->+    Ptr SequenceIter ->+    Ptr SequenceIter ->+    Ptr () ->+    IO Int32+sequenceIterCompareFuncWrapper funptrptr _cb a b data_ = do+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    a' <- (\x -> SequenceIter <$> newForeignPtr_ x) a+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    b' <- (\x -> SequenceIter <$> newForeignPtr_ x) b+    result <- _cb  a' b' data_+    maybeReleaseFunPtr funptrptr+    return result++-- Enum ShellError++data ShellError = +      ShellErrorBadQuoting+    | ShellErrorEmptyString+    | ShellErrorFailed+    | AnotherShellError Int+    deriving (Show, Eq)++instance Enum ShellError where+    fromEnum ShellErrorBadQuoting = 0+    fromEnum ShellErrorEmptyString = 1+    fromEnum ShellErrorFailed = 2+    fromEnum (AnotherShellError k) = k++    toEnum 0 = ShellErrorBadQuoting+    toEnum 1 = ShellErrorEmptyString+    toEnum 2 = ShellErrorFailed+    toEnum k = AnotherShellError k++instance GErrorClass ShellError where+    gerrorClassDomain _ = "g-shell-error-quark"++catchShellError ::+    IO a ->+    (ShellError -> GErrorMessage -> IO a) ->+    IO a+catchShellError = catchGErrorJustDomain++handleShellError ::+    (ShellError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleShellError = handleGErrorJustDomain++-- Enum SliceConfig++data SliceConfig = +      SliceConfigAlwaysMalloc+    | SliceConfigBypassMagazines+    | SliceConfigWorkingSetMsecs+    | SliceConfigColorIncrement+    | SliceConfigChunkSizes+    | SliceConfigContentionCounter+    | AnotherSliceConfig Int+    deriving (Show, Eq)++instance Enum SliceConfig where+    fromEnum SliceConfigAlwaysMalloc = 1+    fromEnum SliceConfigBypassMagazines = 2+    fromEnum SliceConfigWorkingSetMsecs = 3+    fromEnum SliceConfigColorIncrement = 4+    fromEnum SliceConfigChunkSizes = 5+    fromEnum SliceConfigContentionCounter = 6+    fromEnum (AnotherSliceConfig k) = k++    toEnum 1 = SliceConfigAlwaysMalloc+    toEnum 2 = SliceConfigBypassMagazines+    toEnum 3 = SliceConfigWorkingSetMsecs+    toEnum 4 = SliceConfigColorIncrement+    toEnum 5 = SliceConfigChunkSizes+    toEnum 6 = SliceConfigContentionCounter+    toEnum k = AnotherSliceConfig k++-- struct Source+newtype Source = Source (ForeignPtr Source)+noSource :: Maybe Source+noSource = Nothing++foreign import ccall "g_source_get_type" c_g_source_get_type :: +    IO GType++instance BoxedObject Source where+    boxedType _ = c_g_source_get_type++-- method Source::new+-- method type : Constructor+-- Args : [Arg {argName = "source_funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "struct_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "source_funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "struct_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_source_new" g_source_new :: +    Ptr SourceFuncs ->                      -- source_funcs : TInterface "GLib" "SourceFuncs"+    Word32 ->                               -- struct_size : TBasicType TUInt32+    IO (Ptr Source)+++sourceNew ::+    (MonadIO m) =>+    SourceFuncs ->                          -- source_funcs+    Word32 ->                               -- struct_size+    m Source+sourceNew source_funcs struct_size = liftIO $ do+    let source_funcs' = unsafeManagedPtrGetPtr source_funcs+    result <- g_source_new source_funcs' struct_size+    checkUnexpectedReturnNULL "g_source_new" result+    result' <- (wrapBoxed Source) result+    touchManagedPtr source_funcs+    return result'++-- method Source::add_child_source+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_add_child_source" g_source_add_child_source :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Ptr Source ->                           -- child_source : TInterface "GLib" "Source"+    IO ()+++sourceAddChildSource ::+    (MonadIO m) =>+    Source ->                               -- _obj+    Source ->                               -- child_source+    m ()+sourceAddChildSource _obj child_source = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let child_source' = unsafeManagedPtrGetPtr child_source+    g_source_add_child_source _obj' child_source'+    touchManagedPtr _obj+    touchManagedPtr child_source+    return ()++-- method Source::add_poll+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_add_poll" g_source_add_poll :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Ptr PollFD ->                           -- fd : TInterface "GLib" "PollFD"+    IO ()+++sourceAddPoll ::+    (MonadIO m) =>+    Source ->                               -- _obj+    PollFD ->                               -- fd+    m ()+sourceAddPoll _obj fd = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let fd' = unsafeManagedPtrGetPtr fd+    g_source_add_poll _obj' fd'+    touchManagedPtr _obj+    touchManagedPtr fd+    return ()++-- method Source::attach+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_source_attach" g_source_attach :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Ptr MainContext ->                      -- context : TInterface "GLib" "MainContext"+    IO Word32+++sourceAttach ::+    (MonadIO m) =>+    Source ->                               -- _obj+    Maybe (MainContext) ->                  -- context+    m Word32+sourceAttach _obj context = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeContext <- case context of+        Nothing -> return nullPtr+        Just jContext -> do+            let jContext' = unsafeManagedPtrGetPtr jContext+            return jContext'+    result <- g_source_attach _obj' maybeContext+    touchManagedPtr _obj+    whenJust context touchManagedPtr+    return result++-- method Source::destroy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_destroy" g_source_destroy :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    IO ()+++sourceDestroy ::+    (MonadIO m) =>+    Source ->                               -- _obj+    m ()+sourceDestroy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_source_destroy _obj'+    touchManagedPtr _obj+    return ()++-- method Source::get_can_recurse+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_source_get_can_recurse" g_source_get_can_recurse :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    IO CInt+++sourceGetCanRecurse ::+    (MonadIO m) =>+    Source ->                               -- _obj+    m Bool+sourceGetCanRecurse _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_source_get_can_recurse _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Source::get_context+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MainContext"+-- throws : False+-- Skip return : False++foreign import ccall "g_source_get_context" g_source_get_context :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    IO (Ptr MainContext)+++sourceGetContext ::+    (MonadIO m) =>+    Source ->                               -- _obj+    m MainContext+sourceGetContext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_source_get_context _obj'+    checkUnexpectedReturnNULL "g_source_get_context" result+    result' <- (newBoxed MainContext) result+    touchManagedPtr _obj+    return result'++-- method Source::get_current_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_get_current_time" g_source_get_current_time :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Ptr TimeVal ->                          -- timeval : TInterface "GLib" "TimeVal"+    IO ()++{-# DEPRECATED sourceGetCurrentTime ["(Since version 2.28)","use g_source_get_time() instead"]#-}+sourceGetCurrentTime ::+    (MonadIO m) =>+    Source ->                               -- _obj+    TimeVal ->                              -- timeval+    m ()+sourceGetCurrentTime _obj timeval = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let timeval' = unsafeManagedPtrGetPtr timeval+    g_source_get_current_time _obj' timeval'+    touchManagedPtr _obj+    touchManagedPtr timeval+    return ()++-- method Source::get_id+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_source_get_id" g_source_get_id :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    IO Word32+++sourceGetId ::+    (MonadIO m) =>+    Source ->                               -- _obj+    m Word32+sourceGetId _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_source_get_id _obj'+    touchManagedPtr _obj+    return result++-- method Source::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_source_get_name" g_source_get_name :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    IO CString+++sourceGetName ::+    (MonadIO m) =>+    Source ->                               -- _obj+    m T.Text+sourceGetName _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_source_get_name _obj'+    checkUnexpectedReturnNULL "g_source_get_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Source::get_priority+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_source_get_priority" g_source_get_priority :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    IO Int32+++sourceGetPriority ::+    (MonadIO m) =>+    Source ->                               -- _obj+    m Int32+sourceGetPriority _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_source_get_priority _obj'+    touchManagedPtr _obj+    return result++-- method Source::get_ready_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_source_get_ready_time" g_source_get_ready_time :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    IO Int64+++sourceGetReadyTime ::+    (MonadIO m) =>+    Source ->                               -- _obj+    m Int64+sourceGetReadyTime _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_source_get_ready_time _obj'+    touchManagedPtr _obj+    return result++-- method Source::get_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_source_get_time" g_source_get_time :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    IO Int64+++sourceGetTime ::+    (MonadIO m) =>+    Source ->                               -- _obj+    m Int64+sourceGetTime _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_source_get_time _obj'+    touchManagedPtr _obj+    return result++-- method Source::is_destroyed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_source_is_destroyed" g_source_is_destroyed :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    IO CInt+++sourceIsDestroyed ::+    (MonadIO m) =>+    Source ->                               -- _obj+    m Bool+sourceIsDestroyed _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_source_is_destroyed _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Source::modify_unix_fd+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_events", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_events", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_modify_unix_fd" g_source_modify_unix_fd :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Ptr () ->                               -- tag : TBasicType TVoid+    CUInt ->                                -- new_events : TInterface "GLib" "IOCondition"+    IO ()+++sourceModifyUnixFd ::+    (MonadIO m) =>+    Source ->                               -- _obj+    Ptr () ->                               -- tag+    [IOCondition] ->                        -- new_events+    m ()+sourceModifyUnixFd _obj tag new_events = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let new_events' = gflagsToWord new_events+    g_source_modify_unix_fd _obj' tag new_events'+    touchManagedPtr _obj+    return ()++-- method Source::query_unix_fd+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOCondition"+-- throws : False+-- Skip return : False++foreign import ccall "g_source_query_unix_fd" g_source_query_unix_fd :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Ptr () ->                               -- tag : TBasicType TVoid+    IO CUInt+++sourceQueryUnixFd ::+    (MonadIO m) =>+    Source ->                               -- _obj+    Ptr () ->                               -- tag+    m [IOCondition]+sourceQueryUnixFd _obj tag = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_source_query_unix_fd _obj' tag+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method Source::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_source_ref" g_source_ref :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    IO (Ptr Source)+++sourceRef ::+    (MonadIO m) =>+    Source ->                               -- _obj+    m Source+sourceRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_source_ref _obj'+    checkUnexpectedReturnNULL "g_source_ref" result+    result' <- (wrapBoxed Source) result+    touchManagedPtr _obj+    return result'++-- method Source::remove_child_source+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_remove_child_source" g_source_remove_child_source :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Ptr Source ->                           -- child_source : TInterface "GLib" "Source"+    IO ()+++sourceRemoveChildSource ::+    (MonadIO m) =>+    Source ->                               -- _obj+    Source ->                               -- child_source+    m ()+sourceRemoveChildSource _obj child_source = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let child_source' = unsafeManagedPtrGetPtr child_source+    g_source_remove_child_source _obj' child_source'+    touchManagedPtr _obj+    touchManagedPtr child_source+    return ()++-- method Source::remove_poll+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_remove_poll" g_source_remove_poll :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Ptr PollFD ->                           -- fd : TInterface "GLib" "PollFD"+    IO ()+++sourceRemovePoll ::+    (MonadIO m) =>+    Source ->                               -- _obj+    PollFD ->                               -- fd+    m ()+sourceRemovePoll _obj fd = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let fd' = unsafeManagedPtrGetPtr fd+    g_source_remove_poll _obj' fd'+    touchManagedPtr _obj+    touchManagedPtr fd+    return ()++-- method Source::remove_unix_fd+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_remove_unix_fd" g_source_remove_unix_fd :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Ptr () ->                               -- tag : TBasicType TVoid+    IO ()+++sourceRemoveUnixFd ::+    (MonadIO m) =>+    Source ->                               -- _obj+    Ptr () ->                               -- tag+    m ()+sourceRemoveUnixFd _obj tag = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_source_remove_unix_fd _obj' tag+    touchManagedPtr _obj+    return ()++-- method Source::set_callback+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_set_callback" g_source_set_callback :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    FunPtr SourceFuncC ->                   -- func : TInterface "GLib" "SourceFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"+    IO ()+++sourceSetCallback ::+    (MonadIO m) =>+    Source ->                               -- _obj+    SourceFunc ->                           -- func+    m ()+sourceSetCallback _obj func = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    func' <- mkSourceFunc (sourceFuncWrapper Nothing func)+    let data_ = castFunPtrToPtr func'+    let notify = safeFreeFunPtrPtr+    g_source_set_callback _obj' func' data_ notify+    touchManagedPtr _obj+    return ()++-- method Source::set_callback_indirect+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_funcs", argType = TInterface "GLib" "SourceCallbackFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_funcs", argType = TInterface "GLib" "SourceCallbackFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_set_callback_indirect" g_source_set_callback_indirect :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Ptr () ->                               -- callback_data : TBasicType TVoid+    Ptr SourceCallbackFuncs ->              -- callback_funcs : TInterface "GLib" "SourceCallbackFuncs"+    IO ()+++sourceSetCallbackIndirect ::+    (MonadIO m) =>+    Source ->                               -- _obj+    Ptr () ->                               -- callback_data+    SourceCallbackFuncs ->                  -- callback_funcs+    m ()+sourceSetCallbackIndirect _obj callback_data callback_funcs = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let callback_funcs' = unsafeManagedPtrGetPtr callback_funcs+    g_source_set_callback_indirect _obj' callback_data callback_funcs'+    touchManagedPtr _obj+    touchManagedPtr callback_funcs+    return ()++-- method Source::set_can_recurse+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_set_can_recurse" g_source_set_can_recurse :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    CInt ->                                 -- can_recurse : TBasicType TBoolean+    IO ()+++sourceSetCanRecurse ::+    (MonadIO m) =>+    Source ->                               -- _obj+    Bool ->                                 -- can_recurse+    m ()+sourceSetCanRecurse _obj can_recurse = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let can_recurse' = (fromIntegral . fromEnum) can_recurse+    g_source_set_can_recurse _obj' can_recurse'+    touchManagedPtr _obj+    return ()++-- method Source::set_funcs+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_set_funcs" g_source_set_funcs :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Ptr SourceFuncs ->                      -- funcs : TInterface "GLib" "SourceFuncs"+    IO ()+++sourceSetFuncs ::+    (MonadIO m) =>+    Source ->                               -- _obj+    SourceFuncs ->                          -- funcs+    m ()+sourceSetFuncs _obj funcs = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let funcs' = unsafeManagedPtrGetPtr funcs+    g_source_set_funcs _obj' funcs'+    touchManagedPtr _obj+    touchManagedPtr funcs+    return ()++-- method Source::set_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_set_name" g_source_set_name :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    CString ->                              -- name : TBasicType TUTF8+    IO ()+++sourceSetName ::+    (MonadIO m) =>+    Source ->                               -- _obj+    T.Text ->                               -- name+    m ()+sourceSetName _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    name' <- textToCString name+    g_source_set_name _obj' name'+    touchManagedPtr _obj+    freeMem name'+    return ()++-- method Source::set_priority+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_set_priority" g_source_set_priority :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Int32 ->                                -- priority : TBasicType TInt32+    IO ()+++sourceSetPriority ::+    (MonadIO m) =>+    Source ->                               -- _obj+    Int32 ->                                -- priority+    m ()+sourceSetPriority _obj priority = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_source_set_priority _obj' priority+    touchManagedPtr _obj+    return ()++-- method Source::set_ready_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ready_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ready_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_set_ready_time" g_source_set_ready_time :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    Int64 ->                                -- ready_time : TBasicType TInt64+    IO ()+++sourceSetReadyTime ::+    (MonadIO m) =>+    Source ->                               -- _obj+    Int64 ->                                -- ready_time+    m ()+sourceSetReadyTime _obj ready_time = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_source_set_ready_time _obj' ready_time+    touchManagedPtr _obj+    return ()++-- method Source::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_unref" g_source_unref :: +    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"+    IO ()+++sourceUnref ::+    (MonadIO m) =>+    Source ->                               -- _obj+    m ()+sourceUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_source_unref _obj'+    touchManagedPtr _obj+    return ()++-- struct SourceCallbackFuncs+newtype SourceCallbackFuncs = SourceCallbackFuncs (ForeignPtr SourceCallbackFuncs)+noSourceCallbackFuncs :: Maybe SourceCallbackFuncs+noSourceCallbackFuncs = Nothing++-- XXX Skipped getter for "SourceCallbackFuncs:ref" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "SourceCallbackFuncs:unref" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- callback SourceDummyMarshal+sourceDummyMarshalClosure :: SourceDummyMarshal -> IO Closure+sourceDummyMarshalClosure cb = newCClosure =<< mkSourceDummyMarshal wrapped+    where wrapped = sourceDummyMarshalWrapper Nothing cb++type SourceDummyMarshalC =+    IO ()++foreign import ccall "wrapper"+    mkSourceDummyMarshal :: SourceDummyMarshalC -> IO (FunPtr SourceDummyMarshalC)++type SourceDummyMarshal =+    IO ()++noSourceDummyMarshal :: Maybe SourceDummyMarshal+noSourceDummyMarshal = Nothing++sourceDummyMarshalWrapper ::+    Maybe (Ptr (FunPtr (SourceDummyMarshalC))) ->+    SourceDummyMarshal ->+    IO ()+sourceDummyMarshalWrapper funptrptr _cb = do+    _cb +    maybeReleaseFunPtr funptrptr++-- callback SourceFunc+sourceFuncClosure :: SourceFunc -> IO Closure+sourceFuncClosure cb = newCClosure =<< mkSourceFunc wrapped+    where wrapped = sourceFuncWrapper Nothing cb++type SourceFuncC =+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkSourceFunc :: SourceFuncC -> IO (FunPtr SourceFuncC)++type SourceFunc =+    IO Bool++noSourceFunc :: Maybe SourceFunc+noSourceFunc = Nothing++sourceFuncWrapper ::+    Maybe (Ptr (FunPtr (SourceFuncC))) ->+    SourceFunc ->+    Ptr () ->+    IO CInt+sourceFuncWrapper funptrptr _cb _ = do+    result <- _cb +    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- struct SourceFuncs+newtype SourceFuncs = SourceFuncs (ForeignPtr SourceFuncs)+noSourceFuncs :: Maybe SourceFuncs+noSourceFuncs = Nothing++-- XXX Skipped getter for "SourceFuncs:prepare" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "SourceFuncs:check" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "SourceFuncs:finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- callback SpawnChildSetupFunc+spawnChildSetupFuncClosure :: SpawnChildSetupFunc -> IO Closure+spawnChildSetupFuncClosure cb = newCClosure =<< mkSpawnChildSetupFunc wrapped+    where wrapped = spawnChildSetupFuncWrapper Nothing cb++type SpawnChildSetupFuncC =+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkSpawnChildSetupFunc :: SpawnChildSetupFuncC -> IO (FunPtr SpawnChildSetupFuncC)++type SpawnChildSetupFunc =+    IO ()++noSpawnChildSetupFunc :: Maybe SpawnChildSetupFunc+noSpawnChildSetupFunc = Nothing++spawnChildSetupFuncWrapper ::+    Maybe (Ptr (FunPtr (SpawnChildSetupFuncC))) ->+    SpawnChildSetupFunc ->+    Ptr () ->+    IO ()+spawnChildSetupFuncWrapper funptrptr _cb _ = do+    _cb +    maybeReleaseFunPtr funptrptr++-- Enum SpawnError++data SpawnError = +      SpawnErrorFork+    | SpawnErrorRead+    | SpawnErrorChdir+    | SpawnErrorAcces+    | SpawnErrorPerm+    | SpawnErrorTooBig+    | SpawnError2big+    | SpawnErrorNoexec+    | SpawnErrorNametoolong+    | SpawnErrorNoent+    | SpawnErrorNomem+    | SpawnErrorNotdir+    | SpawnErrorLoop+    | SpawnErrorTxtbusy+    | SpawnErrorIo+    | SpawnErrorNfile+    | SpawnErrorMfile+    | SpawnErrorInval+    | SpawnErrorIsdir+    | SpawnErrorLibbad+    | SpawnErrorFailed+    | AnotherSpawnError Int+    deriving (Show, Eq)++instance Enum SpawnError where+    fromEnum SpawnErrorFork = 0+    fromEnum SpawnErrorRead = 1+    fromEnum SpawnErrorChdir = 2+    fromEnum SpawnErrorAcces = 3+    fromEnum SpawnErrorPerm = 4+    fromEnum SpawnErrorTooBig = 5+    fromEnum SpawnError2big = 5+    fromEnum SpawnErrorNoexec = 6+    fromEnum SpawnErrorNametoolong = 7+    fromEnum SpawnErrorNoent = 8+    fromEnum SpawnErrorNomem = 9+    fromEnum SpawnErrorNotdir = 10+    fromEnum SpawnErrorLoop = 11+    fromEnum SpawnErrorTxtbusy = 12+    fromEnum SpawnErrorIo = 13+    fromEnum SpawnErrorNfile = 14+    fromEnum SpawnErrorMfile = 15+    fromEnum SpawnErrorInval = 16+    fromEnum SpawnErrorIsdir = 17+    fromEnum SpawnErrorLibbad = 18+    fromEnum SpawnErrorFailed = 19+    fromEnum (AnotherSpawnError k) = k++    toEnum 0 = SpawnErrorFork+    toEnum 1 = SpawnErrorRead+    toEnum 2 = SpawnErrorChdir+    toEnum 3 = SpawnErrorAcces+    toEnum 4 = SpawnErrorPerm+    toEnum 5 = SpawnErrorTooBig+    toEnum 6 = SpawnErrorNoexec+    toEnum 7 = SpawnErrorNametoolong+    toEnum 8 = SpawnErrorNoent+    toEnum 9 = SpawnErrorNomem+    toEnum 10 = SpawnErrorNotdir+    toEnum 11 = SpawnErrorLoop+    toEnum 12 = SpawnErrorTxtbusy+    toEnum 13 = SpawnErrorIo+    toEnum 14 = SpawnErrorNfile+    toEnum 15 = SpawnErrorMfile+    toEnum 16 = SpawnErrorInval+    toEnum 17 = SpawnErrorIsdir+    toEnum 18 = SpawnErrorLibbad+    toEnum 19 = SpawnErrorFailed+    toEnum k = AnotherSpawnError k++instance GErrorClass SpawnError where+    gerrorClassDomain _ = "g-exec-error-quark"++catchSpawnError ::+    IO a ->+    (SpawnError -> GErrorMessage -> IO a) ->+    IO a+catchSpawnError = catchGErrorJustDomain++handleSpawnError ::+    (SpawnError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleSpawnError = handleGErrorJustDomain++-- Flags SpawnFlags++data SpawnFlags = +      SpawnFlagsDefault+    | SpawnFlagsLeaveDescriptorsOpen+    | SpawnFlagsDoNotReapChild+    | SpawnFlagsSearchPath+    | SpawnFlagsStdoutToDevNull+    | SpawnFlagsStderrToDevNull+    | SpawnFlagsChildInheritsStdin+    | SpawnFlagsFileAndArgvZero+    | SpawnFlagsSearchPathFromEnvp+    | SpawnFlagsCloexecPipes+    | AnotherSpawnFlags Int+    deriving (Show, Eq)++instance Enum SpawnFlags where+    fromEnum SpawnFlagsDefault = 0+    fromEnum SpawnFlagsLeaveDescriptorsOpen = 1+    fromEnum SpawnFlagsDoNotReapChild = 2+    fromEnum SpawnFlagsSearchPath = 4+    fromEnum SpawnFlagsStdoutToDevNull = 8+    fromEnum SpawnFlagsStderrToDevNull = 16+    fromEnum SpawnFlagsChildInheritsStdin = 32+    fromEnum SpawnFlagsFileAndArgvZero = 64+    fromEnum SpawnFlagsSearchPathFromEnvp = 128+    fromEnum SpawnFlagsCloexecPipes = 256+    fromEnum (AnotherSpawnFlags k) = k++    toEnum 0 = SpawnFlagsDefault+    toEnum 1 = SpawnFlagsLeaveDescriptorsOpen+    toEnum 2 = SpawnFlagsDoNotReapChild+    toEnum 4 = SpawnFlagsSearchPath+    toEnum 8 = SpawnFlagsStdoutToDevNull+    toEnum 16 = SpawnFlagsStderrToDevNull+    toEnum 32 = SpawnFlagsChildInheritsStdin+    toEnum 64 = SpawnFlagsFileAndArgvZero+    toEnum 128 = SpawnFlagsSearchPathFromEnvp+    toEnum 256 = SpawnFlagsCloexecPipes+    toEnum k = AnotherSpawnFlags k++instance IsGFlag SpawnFlags++-- struct StatBuf+newtype StatBuf = StatBuf (ForeignPtr StatBuf)+noStatBuf :: Maybe StatBuf+noStatBuf = Nothing++-- struct String+newtype String = String (ForeignPtr String)+noString :: Maybe String+noString = Nothing++foreign import ccall "g_gstring_get_type" c_g_gstring_get_type :: +    IO GType++instance BoxedObject String where+    boxedType _ = c_g_gstring_get_type++stringReadStr :: String -> IO T.Text+stringReadStr s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++stringReadLen :: String -> IO Word64+stringReadLen s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word64+    return val++stringReadAllocatedLen :: String -> IO Word64+stringReadAllocatedLen s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Word64+    return val++-- method String::append+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_append" g_string_append :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    CString ->                              -- val : TBasicType TUTF8+    IO (Ptr String)+++stringAppend ::+    (MonadIO m) =>+    String ->                               -- _obj+    T.Text ->                               -- val+    m String+stringAppend _obj val = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    val' <- textToCString val+    result <- g_string_append _obj' val'+    checkUnexpectedReturnNULL "g_string_append" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    freeMem val'+    return result'++-- method String::append_c+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_append_c" g_string_append_c :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Int8 ->                                 -- c : TBasicType TInt8+    IO (Ptr String)+++stringAppendC ::+    (MonadIO m) =>+    String ->                               -- _obj+    Int8 ->                                 -- c+    m String+stringAppendC _obj c = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_append_c _obj' c+    checkUnexpectedReturnNULL "g_string_append_c" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::append_len+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_append_len" g_string_append_len :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    CString ->                              -- val : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO (Ptr String)+++stringAppendLen ::+    (MonadIO m) =>+    String ->                               -- _obj+    T.Text ->                               -- val+    Int64 ->                                -- len+    m String+stringAppendLen _obj val len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    val' <- textToCString val+    result <- g_string_append_len _obj' val' len+    checkUnexpectedReturnNULL "g_string_append_len" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    freeMem val'+    return result'++-- method String::append_unichar+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_append_unichar" g_string_append_unichar :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    CInt ->                                 -- wc : TBasicType TUniChar+    IO (Ptr String)+++stringAppendUnichar ::+    (MonadIO m) =>+    String ->                               -- _obj+    Char ->                                 -- wc+    m String+stringAppendUnichar _obj wc = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let wc' = (fromIntegral . ord) wc+    result <- g_string_append_unichar _obj' wc'+    checkUnexpectedReturnNULL "g_string_append_unichar" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::append_uri_escaped+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_append_uri_escaped" g_string_append_uri_escaped :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    CString ->                              -- unescaped : TBasicType TUTF8+    CString ->                              -- reserved_chars_allowed : TBasicType TUTF8+    CInt ->                                 -- allow_utf8 : TBasicType TBoolean+    IO (Ptr String)+++stringAppendUriEscaped ::+    (MonadIO m) =>+    String ->                               -- _obj+    T.Text ->                               -- unescaped+    T.Text ->                               -- reserved_chars_allowed+    Bool ->                                 -- allow_utf8+    m String+stringAppendUriEscaped _obj unescaped reserved_chars_allowed allow_utf8 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    unescaped' <- textToCString unescaped+    reserved_chars_allowed' <- textToCString reserved_chars_allowed+    let allow_utf8' = (fromIntegral . fromEnum) allow_utf8+    result <- g_string_append_uri_escaped _obj' unescaped' reserved_chars_allowed' allow_utf8'+    checkUnexpectedReturnNULL "g_string_append_uri_escaped" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    freeMem unescaped'+    freeMem reserved_chars_allowed'+    return result'++-- method String::ascii_down+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_ascii_down" g_string_ascii_down :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    IO (Ptr String)+++stringAsciiDown ::+    (MonadIO m) =>+    String ->                               -- _obj+    m String+stringAsciiDown _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_ascii_down _obj'+    checkUnexpectedReturnNULL "g_string_ascii_down" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::ascii_up+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_ascii_up" g_string_ascii_up :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    IO (Ptr String)+++stringAsciiUp ::+    (MonadIO m) =>+    String ->                               -- _obj+    m String+stringAsciiUp _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_ascii_up _obj'+    checkUnexpectedReturnNULL "g_string_ascii_up" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::assign+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_assign" g_string_assign :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    CString ->                              -- rval : TBasicType TUTF8+    IO (Ptr String)+++stringAssign ::+    (MonadIO m) =>+    String ->                               -- _obj+    T.Text ->                               -- rval+    m String+stringAssign _obj rval = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    rval' <- textToCString rval+    result <- g_string_assign _obj' rval'+    checkUnexpectedReturnNULL "g_string_assign" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    freeMem rval'+    return result'++-- method String::down+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_down" g_string_down :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    IO (Ptr String)++{-# DEPRECATED stringDown ["(Since version 2.2)","This function uses the locale-specific","    tolower() function, which is almost never the right thing.","    Use g_string_ascii_down() or g_utf8_strdown() instead."]#-}+stringDown ::+    (MonadIO m) =>+    String ->                               -- _obj+    m String+stringDown _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_down _obj'+    checkUnexpectedReturnNULL "g_string_down" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::equal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_string_equal" g_string_equal :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Ptr String ->                           -- v2 : TInterface "GLib" "String"+    IO CInt+++stringEqual ::+    (MonadIO m) =>+    String ->                               -- _obj+    String ->                               -- v2+    m Bool+stringEqual _obj v2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let v2' = unsafeManagedPtrGetPtr v2+    result <- g_string_equal _obj' v2'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr v2+    return result'++-- method String::erase+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_erase" g_string_erase :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Int64 ->                                -- pos : TBasicType TInt64+    Int64 ->                                -- len : TBasicType TInt64+    IO (Ptr String)+++stringErase ::+    (MonadIO m) =>+    String ->                               -- _obj+    Int64 ->                                -- pos+    Int64 ->                                -- len+    m String+stringErase _obj pos len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_erase _obj' pos len+    checkUnexpectedReturnNULL "g_string_erase" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_string_free" g_string_free :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    CInt ->                                 -- free_segment : TBasicType TBoolean+    IO CString+++stringFree ::+    (MonadIO m) =>+    String ->                               -- _obj+    Bool ->                                 -- free_segment+    m T.Text+stringFree _obj free_segment = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let free_segment' = (fromIntegral . fromEnum) free_segment+    result <- g_string_free _obj' free_segment'+    checkUnexpectedReturnNULL "g_string_free" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method String::free_to_bytes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Bytes"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_free_to_bytes" g_string_free_to_bytes :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    IO (Ptr Bytes)+++stringFreeToBytes ::+    (MonadIO m) =>+    String ->                               -- _obj+    m Bytes+stringFreeToBytes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_free_to_bytes _obj'+    checkUnexpectedReturnNULL "g_string_free_to_bytes" result+    result' <- (wrapBoxed Bytes) result+    touchManagedPtr _obj+    return result'++-- method String::hash+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_string_hash" g_string_hash :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    IO Word32+++stringHash ::+    (MonadIO m) =>+    String ->                               -- _obj+    m Word32+stringHash _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_hash _obj'+    touchManagedPtr _obj+    return result++-- method String::insert+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_insert" g_string_insert :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Int64 ->                                -- pos : TBasicType TInt64+    CString ->                              -- val : TBasicType TUTF8+    IO (Ptr String)+++stringInsert ::+    (MonadIO m) =>+    String ->                               -- _obj+    Int64 ->                                -- pos+    T.Text ->                               -- val+    m String+stringInsert _obj pos val = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    val' <- textToCString val+    result <- g_string_insert _obj' pos val'+    checkUnexpectedReturnNULL "g_string_insert" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    freeMem val'+    return result'++-- method String::insert_c+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_insert_c" g_string_insert_c :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Int64 ->                                -- pos : TBasicType TInt64+    Int8 ->                                 -- c : TBasicType TInt8+    IO (Ptr String)+++stringInsertC ::+    (MonadIO m) =>+    String ->                               -- _obj+    Int64 ->                                -- pos+    Int8 ->                                 -- c+    m String+stringInsertC _obj pos c = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_insert_c _obj' pos c+    checkUnexpectedReturnNULL "g_string_insert_c" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::insert_len+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_insert_len" g_string_insert_len :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Int64 ->                                -- pos : TBasicType TInt64+    CString ->                              -- val : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO (Ptr String)+++stringInsertLen ::+    (MonadIO m) =>+    String ->                               -- _obj+    Int64 ->                                -- pos+    T.Text ->                               -- val+    Int64 ->                                -- len+    m String+stringInsertLen _obj pos val len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    val' <- textToCString val+    result <- g_string_insert_len _obj' pos val' len+    checkUnexpectedReturnNULL "g_string_insert_len" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    freeMem val'+    return result'++-- method String::insert_unichar+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_insert_unichar" g_string_insert_unichar :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Int64 ->                                -- pos : TBasicType TInt64+    CInt ->                                 -- wc : TBasicType TUniChar+    IO (Ptr String)+++stringInsertUnichar ::+    (MonadIO m) =>+    String ->                               -- _obj+    Int64 ->                                -- pos+    Char ->                                 -- wc+    m String+stringInsertUnichar _obj pos wc = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let wc' = (fromIntegral . ord) wc+    result <- g_string_insert_unichar _obj' pos wc'+    checkUnexpectedReturnNULL "g_string_insert_unichar" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::overwrite+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_overwrite" g_string_overwrite :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Word64 ->                               -- pos : TBasicType TUInt64+    CString ->                              -- val : TBasicType TUTF8+    IO (Ptr String)+++stringOverwrite ::+    (MonadIO m) =>+    String ->                               -- _obj+    Word64 ->                               -- pos+    T.Text ->                               -- val+    m String+stringOverwrite _obj pos val = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    val' <- textToCString val+    result <- g_string_overwrite _obj' pos val'+    checkUnexpectedReturnNULL "g_string_overwrite" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    freeMem val'+    return result'++-- method String::overwrite_len+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_overwrite_len" g_string_overwrite_len :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Word64 ->                               -- pos : TBasicType TUInt64+    CString ->                              -- val : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO (Ptr String)+++stringOverwriteLen ::+    (MonadIO m) =>+    String ->                               -- _obj+    Word64 ->                               -- pos+    T.Text ->                               -- val+    Int64 ->                                -- len+    m String+stringOverwriteLen _obj pos val len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    val' <- textToCString val+    result <- g_string_overwrite_len _obj' pos val' len+    checkUnexpectedReturnNULL "g_string_overwrite_len" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    freeMem val'+    return result'++-- method String::prepend+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_prepend" g_string_prepend :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    CString ->                              -- val : TBasicType TUTF8+    IO (Ptr String)+++stringPrepend ::+    (MonadIO m) =>+    String ->                               -- _obj+    T.Text ->                               -- val+    m String+stringPrepend _obj val = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    val' <- textToCString val+    result <- g_string_prepend _obj' val'+    checkUnexpectedReturnNULL "g_string_prepend" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    freeMem val'+    return result'++-- method String::prepend_c+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_prepend_c" g_string_prepend_c :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Int8 ->                                 -- c : TBasicType TInt8+    IO (Ptr String)+++stringPrependC ::+    (MonadIO m) =>+    String ->                               -- _obj+    Int8 ->                                 -- c+    m String+stringPrependC _obj c = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_prepend_c _obj' c+    checkUnexpectedReturnNULL "g_string_prepend_c" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::prepend_len+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_prepend_len" g_string_prepend_len :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    CString ->                              -- val : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO (Ptr String)+++stringPrependLen ::+    (MonadIO m) =>+    String ->                               -- _obj+    T.Text ->                               -- val+    Int64 ->                                -- len+    m String+stringPrependLen _obj val len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    val' <- textToCString val+    result <- g_string_prepend_len _obj' val' len+    checkUnexpectedReturnNULL "g_string_prepend_len" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    freeMem val'+    return result'++-- method String::prepend_unichar+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_prepend_unichar" g_string_prepend_unichar :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    CInt ->                                 -- wc : TBasicType TUniChar+    IO (Ptr String)+++stringPrependUnichar ::+    (MonadIO m) =>+    String ->                               -- _obj+    Char ->                                 -- wc+    m String+stringPrependUnichar _obj wc = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let wc' = (fromIntegral . ord) wc+    result <- g_string_prepend_unichar _obj' wc'+    checkUnexpectedReturnNULL "g_string_prepend_unichar" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::set_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_set_size" g_string_set_size :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Word64 ->                               -- len : TBasicType TUInt64+    IO (Ptr String)+++stringSetSize ::+    (MonadIO m) =>+    String ->                               -- _obj+    Word64 ->                               -- len+    m String+stringSetSize _obj len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_set_size _obj' len+    checkUnexpectedReturnNULL "g_string_set_size" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::truncate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_truncate" g_string_truncate :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    Word64 ->                               -- len : TBasicType TUInt64+    IO (Ptr String)+++stringTruncate ::+    (MonadIO m) =>+    String ->                               -- _obj+    Word64 ->                               -- len+    m String+stringTruncate _obj len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_truncate _obj' len+    checkUnexpectedReturnNULL "g_string_truncate" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- method String::up+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_up" g_string_up :: +    Ptr String ->                           -- _obj : TInterface "GLib" "String"+    IO (Ptr String)++{-# DEPRECATED stringUp ["(Since version 2.2)","This function uses the locale-specific","    toupper() function, which is almost never the right thing.","    Use g_string_ascii_up() or g_utf8_strup() instead."]#-}+stringUp ::+    (MonadIO m) =>+    String ->                               -- _obj+    m String+stringUp _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_string_up _obj'+    checkUnexpectedReturnNULL "g_string_up" result+    result' <- (wrapBoxed String) result+    touchManagedPtr _obj+    return result'++-- struct StringChunk+newtype StringChunk = StringChunk (ForeignPtr StringChunk)+noStringChunk :: Maybe StringChunk+noStringChunk = Nothing++-- method StringChunk::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_string_chunk_clear" g_string_chunk_clear :: +    Ptr StringChunk ->                      -- _obj : TInterface "GLib" "StringChunk"+    IO ()+++stringChunkClear ::+    (MonadIO m) =>+    StringChunk ->                          -- _obj+    m ()+stringChunkClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_string_chunk_clear _obj'+    touchManagedPtr _obj+    return ()++-- method StringChunk::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_string_chunk_free" g_string_chunk_free :: +    Ptr StringChunk ->                      -- _obj : TInterface "GLib" "StringChunk"+    IO ()+++stringChunkFree ::+    (MonadIO m) =>+    StringChunk ->                          -- _obj+    m ()+stringChunkFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_string_chunk_free _obj'+    touchManagedPtr _obj+    return ()++-- method StringChunk::insert+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_string_chunk_insert" g_string_chunk_insert :: +    Ptr StringChunk ->                      -- _obj : TInterface "GLib" "StringChunk"+    CString ->                              -- string : TBasicType TUTF8+    IO CString+++stringChunkInsert ::+    (MonadIO m) =>+    StringChunk ->                          -- _obj+    T.Text ->                               -- string+    m T.Text+stringChunkInsert _obj string = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    string' <- textToCString string+    result <- g_string_chunk_insert _obj' string'+    checkUnexpectedReturnNULL "g_string_chunk_insert" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    freeMem string'+    return result'++-- method StringChunk::insert_const+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_string_chunk_insert_const" g_string_chunk_insert_const :: +    Ptr StringChunk ->                      -- _obj : TInterface "GLib" "StringChunk"+    CString ->                              -- string : TBasicType TUTF8+    IO CString+++stringChunkInsertConst ::+    (MonadIO m) =>+    StringChunk ->                          -- _obj+    T.Text ->                               -- string+    m T.Text+stringChunkInsertConst _obj string = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    string' <- textToCString string+    result <- g_string_chunk_insert_const _obj' string'+    checkUnexpectedReturnNULL "g_string_chunk_insert_const" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    freeMem string'+    return result'++-- method StringChunk::insert_len+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_string_chunk_insert_len" g_string_chunk_insert_len :: +    Ptr StringChunk ->                      -- _obj : TInterface "GLib" "StringChunk"+    CString ->                              -- string : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO CString+++stringChunkInsertLen ::+    (MonadIO m) =>+    StringChunk ->                          -- _obj+    T.Text ->                               -- string+    Int64 ->                                -- len+    m T.Text+stringChunkInsertLen _obj string len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    string' <- textToCString string+    result <- g_string_chunk_insert_len _obj' string' len+    checkUnexpectedReturnNULL "g_string_chunk_insert_len" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    freeMem string'+    return result'++-- struct TestCase+newtype TestCase = TestCase (ForeignPtr TestCase)+noTestCase :: Maybe TestCase+noTestCase = Nothing++-- struct TestConfig+newtype TestConfig = TestConfig (ForeignPtr TestConfig)+noTestConfig :: Maybe TestConfig+noTestConfig = Nothing++testConfigReadTestInitialized :: TestConfig -> IO Bool+testConfigReadTestInitialized s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CInt+    let val' = (/= 0) val+    return val'++testConfigReadTestQuick :: TestConfig -> IO Bool+testConfigReadTestQuick s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO CInt+    let val' = (/= 0) val+    return val'++testConfigReadTestPerf :: TestConfig -> IO Bool+testConfigReadTestPerf s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO CInt+    let val' = (/= 0) val+    return val'++testConfigReadTestVerbose :: TestConfig -> IO Bool+testConfigReadTestVerbose s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO CInt+    let val' = (/= 0) val+    return val'++testConfigReadTestQuiet :: TestConfig -> IO Bool+testConfigReadTestQuiet s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CInt+    let val' = (/= 0) val+    return val'++testConfigReadTestUndefined :: TestConfig -> IO Bool+testConfigReadTestUndefined s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO CInt+    let val' = (/= 0) val+    return val'++-- callback TestDataFunc+testDataFuncClosure :: TestDataFunc -> IO Closure+testDataFuncClosure cb = newCClosure =<< mkTestDataFunc wrapped+    where wrapped = testDataFuncWrapper Nothing cb++type TestDataFuncC =+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkTestDataFunc :: TestDataFuncC -> IO (FunPtr TestDataFuncC)++type TestDataFunc =+    IO ()++noTestDataFunc :: Maybe TestDataFunc+noTestDataFunc = Nothing++testDataFuncWrapper ::+    Maybe (Ptr (FunPtr (TestDataFuncC))) ->+    TestDataFunc ->+    Ptr () ->+    IO ()+testDataFuncWrapper funptrptr _cb _ = do+    _cb +    maybeReleaseFunPtr funptrptr++-- Enum TestFileType++data TestFileType = +      TestFileTypeDist+    | TestFileTypeBuilt+    | AnotherTestFileType Int+    deriving (Show, Eq)++instance Enum TestFileType where+    fromEnum TestFileTypeDist = 0+    fromEnum TestFileTypeBuilt = 1+    fromEnum (AnotherTestFileType k) = k++    toEnum 0 = TestFileTypeDist+    toEnum 1 = TestFileTypeBuilt+    toEnum k = AnotherTestFileType k++-- callback TestFixtureFunc+testFixtureFuncClosure :: TestFixtureFunc -> IO Closure+testFixtureFuncClosure cb = newCClosure =<< mkTestFixtureFunc wrapped+    where wrapped = testFixtureFuncWrapper Nothing cb++type TestFixtureFuncC =+    Ptr () ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkTestFixtureFunc :: TestFixtureFuncC -> IO (FunPtr TestFixtureFuncC)++type TestFixtureFunc =+    Ptr () ->+    IO ()++noTestFixtureFunc :: Maybe TestFixtureFunc+noTestFixtureFunc = Nothing++testFixtureFuncWrapper ::+    Maybe (Ptr (FunPtr (TestFixtureFuncC))) ->+    TestFixtureFunc ->+    Ptr () ->+    Ptr () ->+    IO ()+testFixtureFuncWrapper funptrptr _cb fixture _ = do+    _cb  fixture+    maybeReleaseFunPtr funptrptr++-- callback TestFunc+testFuncClosure :: TestFunc -> IO Closure+testFuncClosure cb = newCClosure =<< mkTestFunc wrapped+    where wrapped = testFuncWrapper Nothing cb++type TestFuncC =+    IO ()++foreign import ccall "wrapper"+    mkTestFunc :: TestFuncC -> IO (FunPtr TestFuncC)++type TestFunc =+    IO ()++noTestFunc :: Maybe TestFunc+noTestFunc = Nothing++testFuncWrapper ::+    Maybe (Ptr (FunPtr (TestFuncC))) ->+    TestFunc ->+    IO ()+testFuncWrapper funptrptr _cb = do+    _cb +    maybeReleaseFunPtr funptrptr++-- struct TestLogBuffer+newtype TestLogBuffer = TestLogBuffer (ForeignPtr TestLogBuffer)+noTestLogBuffer :: Maybe TestLogBuffer+noTestLogBuffer = Nothing++-- method TestLogBuffer::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_log_buffer_free" g_test_log_buffer_free :: +    Ptr TestLogBuffer ->                    -- _obj : TInterface "GLib" "TestLogBuffer"+    IO ()+++testLogBufferFree ::+    (MonadIO m) =>+    TestLogBuffer ->                        -- _obj+    m ()+testLogBufferFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_test_log_buffer_free _obj'+    touchManagedPtr _obj+    return ()++-- method TestLogBuffer::push+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_bytes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_bytes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_log_buffer_push" g_test_log_buffer_push :: +    Ptr TestLogBuffer ->                    -- _obj : TInterface "GLib" "TestLogBuffer"+    Word32 ->                               -- n_bytes : TBasicType TUInt32+    Word8 ->                                -- bytes : TBasicType TUInt8+    IO ()+++testLogBufferPush ::+    (MonadIO m) =>+    TestLogBuffer ->                        -- _obj+    Word32 ->                               -- n_bytes+    Word8 ->                                -- bytes+    m ()+testLogBufferPush _obj n_bytes bytes = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_test_log_buffer_push _obj' n_bytes bytes+    touchManagedPtr _obj+    return ()++-- callback TestLogFatalFunc+testLogFatalFuncClosure :: TestLogFatalFunc -> IO Closure+testLogFatalFuncClosure cb = newCClosure =<< mkTestLogFatalFunc wrapped+    where wrapped = testLogFatalFuncWrapper Nothing cb++type TestLogFatalFuncC =+    CString ->+    CUInt ->+    CString ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkTestLogFatalFunc :: TestLogFatalFuncC -> IO (FunPtr TestLogFatalFuncC)++type TestLogFatalFunc =+    T.Text ->+    [LogLevelFlags] ->+    T.Text ->+    IO Bool++noTestLogFatalFunc :: Maybe TestLogFatalFunc+noTestLogFatalFunc = Nothing++testLogFatalFuncWrapper ::+    Maybe (Ptr (FunPtr (TestLogFatalFuncC))) ->+    TestLogFatalFunc ->+    CString ->+    CUInt ->+    CString ->+    Ptr () ->+    IO CInt+testLogFatalFuncWrapper funptrptr _cb log_domain log_level message _ = do+    log_domain' <- cstringToText log_domain+    let log_level' = wordToGFlags log_level+    message' <- cstringToText message+    result <- _cb  log_domain' log_level' message'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- struct TestLogMsg+newtype TestLogMsg = TestLogMsg (ForeignPtr TestLogMsg)+noTestLogMsg :: Maybe TestLogMsg+noTestLogMsg = Nothing++testLogMsgReadLogType :: TestLogMsg -> IO TestLogType+testLogMsgReadLogType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++testLogMsgReadNStrings :: TestLogMsg -> IO Word32+testLogMsgReadNStrings s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Word32+    return val++testLogMsgReadStrings :: TestLogMsg -> IO T.Text+testLogMsgReadStrings s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO CString+    val' <- cstringToText val+    return val'++testLogMsgReadNNums :: TestLogMsg -> IO Word32+testLogMsgReadNNums s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Word32+    return val++testLogMsgReadNums :: TestLogMsg -> IO Int64+testLogMsgReadNums s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Int64+    return val++-- method TestLogMsg::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogMsg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogMsg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_log_msg_free" g_test_log_msg_free :: +    Ptr TestLogMsg ->                       -- _obj : TInterface "GLib" "TestLogMsg"+    IO ()+++testLogMsgFree ::+    (MonadIO m) =>+    TestLogMsg ->                           -- _obj+    m ()+testLogMsgFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_test_log_msg_free _obj'+    touchManagedPtr _obj+    return ()++-- Enum TestLogType++data TestLogType = +      TestLogTypeNone+    | TestLogTypeError+    | TestLogTypeStartBinary+    | TestLogTypeListCase+    | TestLogTypeSkipCase+    | TestLogTypeStartCase+    | TestLogTypeStopCase+    | TestLogTypeMinResult+    | TestLogTypeMaxResult+    | TestLogTypeMessage+    | TestLogTypeStartSuite+    | TestLogTypeStopSuite+    | AnotherTestLogType Int+    deriving (Show, Eq)++instance Enum TestLogType where+    fromEnum TestLogTypeNone = 0+    fromEnum TestLogTypeError = 1+    fromEnum TestLogTypeStartBinary = 2+    fromEnum TestLogTypeListCase = 3+    fromEnum TestLogTypeSkipCase = 4+    fromEnum TestLogTypeStartCase = 5+    fromEnum TestLogTypeStopCase = 6+    fromEnum TestLogTypeMinResult = 7+    fromEnum TestLogTypeMaxResult = 8+    fromEnum TestLogTypeMessage = 9+    fromEnum TestLogTypeStartSuite = 10+    fromEnum TestLogTypeStopSuite = 11+    fromEnum (AnotherTestLogType k) = k++    toEnum 0 = TestLogTypeNone+    toEnum 1 = TestLogTypeError+    toEnum 2 = TestLogTypeStartBinary+    toEnum 3 = TestLogTypeListCase+    toEnum 4 = TestLogTypeSkipCase+    toEnum 5 = TestLogTypeStartCase+    toEnum 6 = TestLogTypeStopCase+    toEnum 7 = TestLogTypeMinResult+    toEnum 8 = TestLogTypeMaxResult+    toEnum 9 = TestLogTypeMessage+    toEnum 10 = TestLogTypeStartSuite+    toEnum 11 = TestLogTypeStopSuite+    toEnum k = AnotherTestLogType k++-- Flags TestSubprocessFlags++data TestSubprocessFlags = +      TestSubprocessFlagsStdin+    | TestSubprocessFlagsStdout+    | TestSubprocessFlagsStderr+    | AnotherTestSubprocessFlags Int+    deriving (Show, Eq)++instance Enum TestSubprocessFlags where+    fromEnum TestSubprocessFlagsStdin = 1+    fromEnum TestSubprocessFlagsStdout = 2+    fromEnum TestSubprocessFlagsStderr = 4+    fromEnum (AnotherTestSubprocessFlags k) = k++    toEnum 1 = TestSubprocessFlagsStdin+    toEnum 2 = TestSubprocessFlagsStdout+    toEnum 4 = TestSubprocessFlagsStderr+    toEnum k = AnotherTestSubprocessFlags k++instance IsGFlag TestSubprocessFlags++-- struct TestSuite+newtype TestSuite = TestSuite (ForeignPtr TestSuite)+noTestSuite :: Maybe TestSuite+noTestSuite = Nothing++-- method TestSuite::add+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_case", argType = TInterface "GLib" "TestCase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_case", argType = TInterface "GLib" "TestCase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_suite_add" g_test_suite_add :: +    Ptr TestSuite ->                        -- _obj : TInterface "GLib" "TestSuite"+    Ptr TestCase ->                         -- test_case : TInterface "GLib" "TestCase"+    IO ()+++testSuiteAdd ::+    (MonadIO m) =>+    TestSuite ->                            -- _obj+    TestCase ->                             -- test_case+    m ()+testSuiteAdd _obj test_case = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let test_case' = unsafeManagedPtrGetPtr test_case+    g_test_suite_add _obj' test_case'+    touchManagedPtr _obj+    touchManagedPtr test_case+    return ()++-- method TestSuite::add_suite+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nestedsuite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nestedsuite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_suite_add_suite" g_test_suite_add_suite :: +    Ptr TestSuite ->                        -- _obj : TInterface "GLib" "TestSuite"+    Ptr TestSuite ->                        -- nestedsuite : TInterface "GLib" "TestSuite"+    IO ()+++testSuiteAddSuite ::+    (MonadIO m) =>+    TestSuite ->                            -- _obj+    TestSuite ->                            -- nestedsuite+    m ()+testSuiteAddSuite _obj nestedsuite = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let nestedsuite' = unsafeManagedPtrGetPtr nestedsuite+    g_test_suite_add_suite _obj' nestedsuite'+    touchManagedPtr _obj+    touchManagedPtr nestedsuite+    return ()++-- Flags TestTrapFlags+{-# DEPRECATED TestTrapFlags ["#GTestTrapFlags is used only with g_test_trap_fork(),","which is deprecated. g_test_trap_subprocess() uses","#GTestTrapSubprocessFlags."]#-}+data TestTrapFlags = +      TestTrapFlagsSilenceStdout+    | TestTrapFlagsSilenceStderr+    | TestTrapFlagsInheritStdin+    | AnotherTestTrapFlags Int+    deriving (Show, Eq)++instance Enum TestTrapFlags where+    fromEnum TestTrapFlagsSilenceStdout = 128+    fromEnum TestTrapFlagsSilenceStderr = 256+    fromEnum TestTrapFlagsInheritStdin = 512+    fromEnum (AnotherTestTrapFlags k) = k++    toEnum 128 = TestTrapFlagsSilenceStdout+    toEnum 256 = TestTrapFlagsSilenceStderr+    toEnum 512 = TestTrapFlagsInheritStdin+    toEnum k = AnotherTestTrapFlags k++instance IsGFlag TestTrapFlags++-- struct Thread+newtype Thread = Thread (ForeignPtr Thread)+noThread :: Maybe Thread+noThread = Nothing++foreign import ccall "g_thread_get_type" c_g_thread_get_type :: +    IO GType++instance BoxedObject Thread where+    boxedType _ = c_g_thread_get_type++-- method Thread::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Thread"+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_ref" g_thread_ref :: +    Ptr Thread ->                           -- _obj : TInterface "GLib" "Thread"+    IO (Ptr Thread)+++threadRef ::+    (MonadIO m) =>+    Thread ->                               -- _obj+    m Thread+threadRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_thread_ref _obj'+    checkUnexpectedReturnNULL "g_thread_ref" result+    result' <- (wrapBoxed Thread) result+    touchManagedPtr _obj+    return result'++-- method Thread::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_unref" g_thread_unref :: +    Ptr Thread ->                           -- _obj : TInterface "GLib" "Thread"+    IO ()+++threadUnref ::+    (MonadIO m) =>+    Thread ->                               -- _obj+    m ()+threadUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_thread_unref _obj'+    touchManagedPtr _obj+    return ()++-- Enum ThreadError++data ThreadError = +      ThreadErrorThreadErrorAgain+    | AnotherThreadError Int+    deriving (Show, Eq)++instance Enum ThreadError where+    fromEnum ThreadErrorThreadErrorAgain = 0+    fromEnum (AnotherThreadError k) = k++    toEnum 0 = ThreadErrorThreadErrorAgain+    toEnum k = AnotherThreadError k++instance GErrorClass ThreadError where+    gerrorClassDomain _ = "g_thread_error"++catchThreadError ::+    IO a ->+    (ThreadError -> GErrorMessage -> IO a) ->+    IO a+catchThreadError = catchGErrorJustDomain++handleThreadError ::+    (ThreadError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleThreadError = handleGErrorJustDomain++-- struct ThreadPool+newtype ThreadPool = ThreadPool (ForeignPtr ThreadPool)+noThreadPool :: Maybe ThreadPool+noThreadPool = Nothing++-- XXX Skipped getter for "ThreadPool:func" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++threadPoolReadUserData :: ThreadPool -> IO (Ptr ())+threadPoolReadUserData s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr ())+    return val++threadPoolReadExclusive :: ThreadPool -> IO Bool+threadPoolReadExclusive s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CInt+    let val' = (/= 0) val+    return val'++-- method ThreadPool::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "immediate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wait_", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "immediate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wait_", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_pool_free" g_thread_pool_free :: +    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"+    CInt ->                                 -- immediate : TBasicType TBoolean+    CInt ->                                 -- wait_ : TBasicType TBoolean+    IO ()+++threadPoolFree ::+    (MonadIO m) =>+    ThreadPool ->                           -- _obj+    Bool ->                                 -- immediate+    Bool ->                                 -- wait_+    m ()+threadPoolFree _obj immediate wait_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let immediate' = (fromIntegral . fromEnum) immediate+    let wait_' = (fromIntegral . fromEnum) wait_+    g_thread_pool_free _obj' immediate' wait_'+    touchManagedPtr _obj+    return ()++-- method ThreadPool::get_max_threads+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_pool_get_max_threads" g_thread_pool_get_max_threads :: +    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"+    IO Int32+++threadPoolGetMaxThreads ::+    (MonadIO m) =>+    ThreadPool ->                           -- _obj+    m Int32+threadPoolGetMaxThreads _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_thread_pool_get_max_threads _obj'+    touchManagedPtr _obj+    return result++-- method ThreadPool::get_num_threads+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_pool_get_num_threads" g_thread_pool_get_num_threads :: +    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"+    IO Word32+++threadPoolGetNumThreads ::+    (MonadIO m) =>+    ThreadPool ->                           -- _obj+    m Word32+threadPoolGetNumThreads _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_thread_pool_get_num_threads _obj'+    touchManagedPtr _obj+    return result++-- method ThreadPool::move_to_front+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_pool_move_to_front" g_thread_pool_move_to_front :: +    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"+    Ptr () ->                               -- data : TBasicType TVoid+    IO CInt+++threadPoolMoveToFront ::+    (MonadIO m) =>+    ThreadPool ->                           -- _obj+    Ptr () ->                               -- data+    m Bool+threadPoolMoveToFront _obj data_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_thread_pool_move_to_front _obj' data_+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method ThreadPool::push+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_thread_pool_push" g_thread_pool_push :: +    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"+    Ptr () ->                               -- data : TBasicType TVoid+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++threadPoolPush ::+    (MonadIO m) =>+    ThreadPool ->                           -- _obj+    Ptr () ->                               -- data+    m ()+threadPoolPush _obj data_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    onException (do+        _ <- propagateGError $ g_thread_pool_push _obj' data_+        touchManagedPtr _obj+        return ()+     ) (do+        return ()+     )++-- method ThreadPool::set_max_threads+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_thread_pool_set_max_threads" g_thread_pool_set_max_threads :: +    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"+    Int32 ->                                -- max_threads : TBasicType TInt32+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++threadPoolSetMaxThreads ::+    (MonadIO m) =>+    ThreadPool ->                           -- _obj+    Int32 ->                                -- max_threads+    m ()+threadPoolSetMaxThreads _obj max_threads = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    onException (do+        _ <- propagateGError $ g_thread_pool_set_max_threads _obj' max_threads+        touchManagedPtr _obj+        return ()+     ) (do+        return ()+     )++-- method ThreadPool::unprocessed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_pool_unprocessed" g_thread_pool_unprocessed :: +    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"+    IO Word32+++threadPoolUnprocessed ::+    (MonadIO m) =>+    ThreadPool ->                           -- _obj+    m Word32+threadPoolUnprocessed _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_thread_pool_unprocessed _obj'+    touchManagedPtr _obj+    return result++-- Enum TimeType++data TimeType = +      TimeTypeStandard+    | TimeTypeDaylight+    | TimeTypeUniversal+    | AnotherTimeType Int+    deriving (Show, Eq)++instance Enum TimeType where+    fromEnum TimeTypeStandard = 0+    fromEnum TimeTypeDaylight = 1+    fromEnum TimeTypeUniversal = 2+    fromEnum (AnotherTimeType k) = k++    toEnum 0 = TimeTypeStandard+    toEnum 1 = TimeTypeDaylight+    toEnum 2 = TimeTypeUniversal+    toEnum k = AnotherTimeType k++-- struct TimeVal+newtype TimeVal = TimeVal (ForeignPtr TimeVal)+noTimeVal :: Maybe TimeVal+noTimeVal = Nothing++timeValReadTvSec :: TimeVal -> IO Int64+timeValReadTvSec s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int64+    return val++timeValReadTvUsec :: TimeVal -> IO Int64+timeValReadTvUsec s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int64+    return val++-- method TimeVal::add+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_time_val_add" g_time_val_add :: +    Ptr TimeVal ->                          -- _obj : TInterface "GLib" "TimeVal"+    Int64 ->                                -- microseconds : TBasicType TInt64+    IO ()+++timeValAdd ::+    (MonadIO m) =>+    TimeVal ->                              -- _obj+    Int64 ->                                -- microseconds+    m ()+timeValAdd _obj microseconds = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_time_val_add _obj' microseconds+    touchManagedPtr _obj+    return ()++-- method TimeVal::to_iso8601+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_time_val_to_iso8601" g_time_val_to_iso8601 :: +    Ptr TimeVal ->                          -- _obj : TInterface "GLib" "TimeVal"+    IO CString+++timeValToIso8601 ::+    (MonadIO m) =>+    TimeVal ->                              -- _obj+    m T.Text+timeValToIso8601 _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_time_val_to_iso8601 _obj'+    checkUnexpectedReturnNULL "g_time_val_to_iso8601" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- struct TimeZone+newtype TimeZone = TimeZone (ForeignPtr TimeZone)+noTimeZone :: Maybe TimeZone+noTimeZone = Nothing++foreign import ccall "g_time_zone_get_type" c_g_time_zone_get_type :: +    IO GType++instance BoxedObject TimeZone where+    boxedType _ = c_g_time_zone_get_type++-- method TimeZone::new+-- method type : Constructor+-- Args : [Arg {argName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "TimeZone"+-- throws : False+-- Skip return : False++foreign import ccall "g_time_zone_new" g_time_zone_new :: +    CString ->                              -- identifier : TBasicType TUTF8+    IO (Ptr TimeZone)+++timeZoneNew ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- identifier+    m TimeZone+timeZoneNew identifier = liftIO $ do+    maybeIdentifier <- case identifier of+        Nothing -> return nullPtr+        Just jIdentifier -> do+            jIdentifier' <- textToCString jIdentifier+            return jIdentifier'+    result <- g_time_zone_new maybeIdentifier+    checkUnexpectedReturnNULL "g_time_zone_new" result+    result' <- (wrapBoxed TimeZone) result+    freeMem maybeIdentifier+    return result'++-- method TimeZone::new_local+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "TimeZone"+-- throws : False+-- Skip return : False++foreign import ccall "g_time_zone_new_local" g_time_zone_new_local :: +    IO (Ptr TimeZone)+++timeZoneNewLocal ::+    (MonadIO m) =>+    m TimeZone+timeZoneNewLocal  = liftIO $ do+    result <- g_time_zone_new_local+    checkUnexpectedReturnNULL "g_time_zone_new_local" result+    result' <- (wrapBoxed TimeZone) result+    return result'++-- method TimeZone::new_utc+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "TimeZone"+-- throws : False+-- Skip return : False++foreign import ccall "g_time_zone_new_utc" g_time_zone_new_utc :: +    IO (Ptr TimeZone)+++timeZoneNewUtc ::+    (MonadIO m) =>+    m TimeZone+timeZoneNewUtc  = liftIO $ do+    result <- g_time_zone_new_utc+    checkUnexpectedReturnNULL "g_time_zone_new_utc" result+    result' <- (wrapBoxed TimeZone) result+    return result'++-- method TimeZone::adjust_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_time_zone_adjust_time" g_time_zone_adjust_time :: +    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"+    CUInt ->                                -- type : TInterface "GLib" "TimeType"+    Int64 ->                                -- time_ : TBasicType TInt64+    IO Int32+++timeZoneAdjustTime ::+    (MonadIO m) =>+    TimeZone ->                             -- _obj+    TimeType ->                             -- type+    Int64 ->                                -- time_+    m Int32+timeZoneAdjustTime _obj type_ time_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let type_' = (fromIntegral . fromEnum) type_+    result <- g_time_zone_adjust_time _obj' type_' time_+    touchManagedPtr _obj+    return result++-- method TimeZone::find_interval+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_time_zone_find_interval" g_time_zone_find_interval :: +    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"+    CUInt ->                                -- type : TInterface "GLib" "TimeType"+    Int64 ->                                -- time_ : TBasicType TInt64+    IO Int32+++timeZoneFindInterval ::+    (MonadIO m) =>+    TimeZone ->                             -- _obj+    TimeType ->                             -- type+    Int64 ->                                -- time_+    m Int32+timeZoneFindInterval _obj type_ time_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let type_' = (fromIntegral . fromEnum) type_+    result <- g_time_zone_find_interval _obj' type_' time_+    touchManagedPtr _obj+    return result++-- method TimeZone::get_abbreviation+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_time_zone_get_abbreviation" g_time_zone_get_abbreviation :: +    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"+    Int32 ->                                -- interval : TBasicType TInt32+    IO CString+++timeZoneGetAbbreviation ::+    (MonadIO m) =>+    TimeZone ->                             -- _obj+    Int32 ->                                -- interval+    m T.Text+timeZoneGetAbbreviation _obj interval = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_time_zone_get_abbreviation _obj' interval+    checkUnexpectedReturnNULL "g_time_zone_get_abbreviation" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method TimeZone::get_offset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_time_zone_get_offset" g_time_zone_get_offset :: +    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"+    Int32 ->                                -- interval : TBasicType TInt32+    IO Int32+++timeZoneGetOffset ::+    (MonadIO m) =>+    TimeZone ->                             -- _obj+    Int32 ->                                -- interval+    m Int32+timeZoneGetOffset _obj interval = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_time_zone_get_offset _obj' interval+    touchManagedPtr _obj+    return result++-- method TimeZone::is_dst+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_time_zone_is_dst" g_time_zone_is_dst :: +    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"+    Int32 ->                                -- interval : TBasicType TInt32+    IO CInt+++timeZoneIsDst ::+    (MonadIO m) =>+    TimeZone ->                             -- _obj+    Int32 ->                                -- interval+    m Bool+timeZoneIsDst _obj interval = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_time_zone_is_dst _obj' interval+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method TimeZone::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "TimeZone"+-- throws : False+-- Skip return : False++foreign import ccall "g_time_zone_ref" g_time_zone_ref :: +    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"+    IO (Ptr TimeZone)+++timeZoneRef ::+    (MonadIO m) =>+    TimeZone ->                             -- _obj+    m TimeZone+timeZoneRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_time_zone_ref _obj'+    checkUnexpectedReturnNULL "g_time_zone_ref" result+    result' <- (wrapBoxed TimeZone) result+    touchManagedPtr _obj+    return result'++-- method TimeZone::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_time_zone_unref" g_time_zone_unref :: +    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"+    IO ()+++timeZoneUnref ::+    (MonadIO m) =>+    TimeZone ->                             -- _obj+    m ()+timeZoneUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_time_zone_unref _obj'+    touchManagedPtr _obj+    return ()++-- struct Timer+newtype Timer = Timer (ForeignPtr Timer)+noTimer :: Maybe Timer+noTimer = Nothing++-- method Timer::continue+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_timer_continue" g_timer_continue :: +    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"+    IO ()+++timerContinue ::+    (MonadIO m) =>+    Timer ->                                -- _obj+    m ()+timerContinue _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_timer_continue _obj'+    touchManagedPtr _obj+    return ()++-- method Timer::destroy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_timer_destroy" g_timer_destroy :: +    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"+    IO ()+++timerDestroy ::+    (MonadIO m) =>+    Timer ->                                -- _obj+    m ()+timerDestroy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_timer_destroy _obj'+    touchManagedPtr _obj+    return ()++-- method Timer::elapsed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_timer_elapsed" g_timer_elapsed :: +    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"+    Word64 ->                               -- microseconds : TBasicType TUInt64+    IO CDouble+++timerElapsed ::+    (MonadIO m) =>+    Timer ->                                -- _obj+    Word64 ->                               -- microseconds+    m Double+timerElapsed _obj microseconds = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_timer_elapsed _obj' microseconds+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method Timer::reset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_timer_reset" g_timer_reset :: +    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"+    IO ()+++timerReset ::+    (MonadIO m) =>+    Timer ->                                -- _obj+    m ()+timerReset _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_timer_reset _obj'+    touchManagedPtr _obj+    return ()++-- method Timer::start+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_timer_start" g_timer_start :: +    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"+    IO ()+++timerStart ::+    (MonadIO m) =>+    Timer ->                                -- _obj+    m ()+timerStart _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_timer_start _obj'+    touchManagedPtr _obj+    return ()++-- method Timer::stop+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_timer_stop" g_timer_stop :: +    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"+    IO ()+++timerStop ::+    (MonadIO m) =>+    Timer ->                                -- _obj+    m ()+timerStop _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_timer_stop _obj'+    touchManagedPtr _obj+    return ()++-- Enum TokenType++data TokenType = +      TokenTypeEof+    | TokenTypeLeftParen+    | TokenTypeRightParen+    | TokenTypeLeftCurly+    | TokenTypeRightCurly+    | TokenTypeLeftBrace+    | TokenTypeRightBrace+    | TokenTypeEqualSign+    | TokenTypeComma+    | TokenTypeNone+    | TokenTypeError+    | TokenTypeChar+    | TokenTypeBinary+    | TokenTypeOctal+    | TokenTypeInt+    | TokenTypeHex+    | TokenTypeFloat+    | TokenTypeString+    | TokenTypeSymbol+    | TokenTypeIdentifier+    | TokenTypeIdentifierNull+    | TokenTypeCommentSingle+    | TokenTypeCommentMulti+    | AnotherTokenType Int+    deriving (Show, Eq)++instance Enum TokenType where+    fromEnum TokenTypeEof = 0+    fromEnum TokenTypeLeftParen = 40+    fromEnum TokenTypeRightParen = 41+    fromEnum TokenTypeLeftCurly = 123+    fromEnum TokenTypeRightCurly = 125+    fromEnum TokenTypeLeftBrace = 91+    fromEnum TokenTypeRightBrace = 93+    fromEnum TokenTypeEqualSign = 61+    fromEnum TokenTypeComma = 44+    fromEnum TokenTypeNone = 256+    fromEnum TokenTypeError = 257+    fromEnum TokenTypeChar = 258+    fromEnum TokenTypeBinary = 259+    fromEnum TokenTypeOctal = 260+    fromEnum TokenTypeInt = 261+    fromEnum TokenTypeHex = 262+    fromEnum TokenTypeFloat = 263+    fromEnum TokenTypeString = 264+    fromEnum TokenTypeSymbol = 265+    fromEnum TokenTypeIdentifier = 266+    fromEnum TokenTypeIdentifierNull = 267+    fromEnum TokenTypeCommentSingle = 268+    fromEnum TokenTypeCommentMulti = 269+    fromEnum (AnotherTokenType k) = k++    toEnum 0 = TokenTypeEof+    toEnum 40 = TokenTypeLeftParen+    toEnum 41 = TokenTypeRightParen+    toEnum 44 = TokenTypeComma+    toEnum 61 = TokenTypeEqualSign+    toEnum 91 = TokenTypeLeftBrace+    toEnum 93 = TokenTypeRightBrace+    toEnum 123 = TokenTypeLeftCurly+    toEnum 125 = TokenTypeRightCurly+    toEnum 256 = TokenTypeNone+    toEnum 257 = TokenTypeError+    toEnum 258 = TokenTypeChar+    toEnum 259 = TokenTypeBinary+    toEnum 260 = TokenTypeOctal+    toEnum 261 = TokenTypeInt+    toEnum 262 = TokenTypeHex+    toEnum 263 = TokenTypeFloat+    toEnum 264 = TokenTypeString+    toEnum 265 = TokenTypeSymbol+    toEnum 266 = TokenTypeIdentifier+    toEnum 267 = TokenTypeIdentifierNull+    toEnum 268 = TokenTypeCommentSingle+    toEnum 269 = TokenTypeCommentMulti+    toEnum k = AnotherTokenType k++-- union TokenValue +newtype TokenValue = TokenValue (ForeignPtr TokenValue)+noTokenValue :: Maybe TokenValue+noTokenValue = Nothing++tokenValueReadVSymbol :: TokenValue -> IO (Ptr ())+tokenValueReadVSymbol s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())+    return val++tokenValueReadVIdentifier :: TokenValue -> IO T.Text+tokenValueReadVIdentifier s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++tokenValueReadVBinary :: TokenValue -> IO Word64+tokenValueReadVBinary s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word64+    return val++tokenValueReadVOctal :: TokenValue -> IO Word64+tokenValueReadVOctal s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word64+    return val++tokenValueReadVInt :: TokenValue -> IO Word64+tokenValueReadVInt s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word64+    return val++tokenValueReadVInt64 :: TokenValue -> IO Word64+tokenValueReadVInt64 s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word64+    return val++tokenValueReadVFloat :: TokenValue -> IO Double+tokenValueReadVFloat s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CDouble+    let val' = realToFrac val+    return val'++tokenValueReadVHex :: TokenValue -> IO Word64+tokenValueReadVHex s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word64+    return val++tokenValueReadVString :: TokenValue -> IO T.Text+tokenValueReadVString s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++tokenValueReadVComment :: TokenValue -> IO T.Text+tokenValueReadVComment s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++tokenValueReadVChar :: TokenValue -> IO Word8+tokenValueReadVChar s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word8+    return val++tokenValueReadVError :: TokenValue -> IO Word32+tokenValueReadVError s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word32+    return val++-- callback TranslateFunc+translateFuncClosure :: TranslateFunc -> IO Closure+translateFuncClosure cb = newCClosure =<< mkTranslateFunc wrapped+    where wrapped = translateFuncWrapper Nothing cb++type TranslateFuncC =+    CString ->+    Ptr () ->+    IO CString++foreign import ccall "wrapper"+    mkTranslateFunc :: TranslateFuncC -> IO (FunPtr TranslateFuncC)++type TranslateFunc =+    T.Text ->+    Ptr () ->+    IO T.Text++noTranslateFunc :: Maybe TranslateFunc+noTranslateFunc = Nothing++translateFuncWrapper ::+    Maybe (Ptr (FunPtr (TranslateFuncC))) ->+    TranslateFunc ->+    CString ->+    Ptr () ->+    IO CString+translateFuncWrapper funptrptr _cb str data_ = do+    str' <- cstringToText str+    result <- _cb  str' data_+    maybeReleaseFunPtr funptrptr+    result' <- textToCString result+    return result'++-- struct TrashStack+newtype TrashStack = TrashStack (ForeignPtr TrashStack)+noTrashStack :: Maybe TrashStack+noTrashStack = Nothing++trashStackReadNext :: TrashStack -> IO TrashStack+trashStackReadNext s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr TrashStack)+    val' <- (newPtr 8 TrashStack) val+    return val'++-- Flags TraverseFlags++data TraverseFlags = +      TraverseFlagsLeaves+    | TraverseFlagsNonLeaves+    | TraverseFlagsAll+    | TraverseFlagsMask+    | TraverseFlagsLeafs+    | TraverseFlagsNonLeafs+    | AnotherTraverseFlags Int+    deriving (Show, Eq)++instance Enum TraverseFlags where+    fromEnum TraverseFlagsLeaves = 1+    fromEnum TraverseFlagsNonLeaves = 2+    fromEnum TraverseFlagsAll = 3+    fromEnum TraverseFlagsMask = 3+    fromEnum TraverseFlagsLeafs = 1+    fromEnum TraverseFlagsNonLeafs = 2+    fromEnum (AnotherTraverseFlags k) = k++    toEnum 1 = TraverseFlagsLeaves+    toEnum 2 = TraverseFlagsNonLeaves+    toEnum 3 = TraverseFlagsAll+    toEnum k = AnotherTraverseFlags k++instance IsGFlag TraverseFlags++-- callback TraverseFunc+traverseFuncClosure :: TraverseFunc -> IO Closure+traverseFuncClosure cb = newCClosure =<< mkTraverseFunc wrapped+    where wrapped = traverseFuncWrapper Nothing cb++type TraverseFuncC =+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkTraverseFunc :: TraverseFuncC -> IO (FunPtr TraverseFuncC)++type TraverseFunc =+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO Bool++noTraverseFunc :: Maybe TraverseFunc+noTraverseFunc = Nothing++traverseFuncWrapper ::+    Maybe (Ptr (FunPtr (TraverseFuncC))) ->+    TraverseFunc ->+    Ptr () ->+    Ptr () ->+    Ptr () ->+    IO CInt+traverseFuncWrapper funptrptr _cb key value data_ = do+    result <- _cb  key value data_+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- Enum TraverseType++data TraverseType = +      TraverseTypeInOrder+    | TraverseTypePreOrder+    | TraverseTypePostOrder+    | TraverseTypeLevelOrder+    | AnotherTraverseType Int+    deriving (Show, Eq)++instance Enum TraverseType where+    fromEnum TraverseTypeInOrder = 0+    fromEnum TraverseTypePreOrder = 1+    fromEnum TraverseTypePostOrder = 2+    fromEnum TraverseTypeLevelOrder = 3+    fromEnum (AnotherTraverseType k) = k++    toEnum 0 = TraverseTypeInOrder+    toEnum 1 = TraverseTypePreOrder+    toEnum 2 = TraverseTypePostOrder+    toEnum 3 = TraverseTypeLevelOrder+    toEnum k = AnotherTraverseType k++-- struct Tree+newtype Tree = Tree (ForeignPtr Tree)+noTree :: Maybe Tree+noTree = Nothing++-- method Tree::destroy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_tree_destroy" g_tree_destroy :: +    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"+    IO ()+++treeDestroy ::+    (MonadIO m) =>+    Tree ->                                 -- _obj+    m ()+treeDestroy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_tree_destroy _obj'+    touchManagedPtr _obj+    return ()++-- method Tree::height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_tree_height" g_tree_height :: +    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"+    IO Int32+++treeHeight ::+    (MonadIO m) =>+    Tree ->                                 -- _obj+    m Int32+treeHeight _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_tree_height _obj'+    touchManagedPtr _obj+    return result++-- method Tree::insert+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_tree_insert" g_tree_insert :: +    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"+    Ptr () ->                               -- key : TBasicType TVoid+    Ptr () ->                               -- value : TBasicType TVoid+    IO ()+++treeInsert ::+    (MonadIO m) =>+    Tree ->                                 -- _obj+    Ptr () ->                               -- key+    Ptr () ->                               -- value+    m ()+treeInsert _obj key value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_tree_insert _obj' key value+    touchManagedPtr _obj+    return ()++-- method Tree::lookup_extended+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_tree_lookup_extended" g_tree_lookup_extended :: +    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"+    Ptr () ->                               -- lookup_key : TBasicType TVoid+    Ptr () ->                               -- orig_key : TBasicType TVoid+    Ptr () ->                               -- value : TBasicType TVoid+    IO CInt+++treeLookupExtended ::+    (MonadIO m) =>+    Tree ->                                 -- _obj+    Ptr () ->                               -- lookup_key+    Ptr () ->                               -- orig_key+    Ptr () ->                               -- value+    m Bool+treeLookupExtended _obj lookup_key orig_key value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_tree_lookup_extended _obj' lookup_key orig_key value+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Tree::nnodes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_tree_nnodes" g_tree_nnodes :: +    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"+    IO Int32+++treeNnodes ::+    (MonadIO m) =>+    Tree ->                                 -- _obj+    m Int32+treeNnodes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_tree_nnodes _obj'+    touchManagedPtr _obj+    return result++-- method Tree::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_tree_remove" g_tree_remove :: +    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"+    Ptr () ->                               -- key : TBasicType TVoid+    IO CInt+++treeRemove ::+    (MonadIO m) =>+    Tree ->                                 -- _obj+    Ptr () ->                               -- key+    m Bool+treeRemove _obj key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_tree_remove _obj' key+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Tree::replace+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_tree_replace" g_tree_replace :: +    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"+    Ptr () ->                               -- key : TBasicType TVoid+    Ptr () ->                               -- value : TBasicType TVoid+    IO ()+++treeReplace ::+    (MonadIO m) =>+    Tree ->                                 -- _obj+    Ptr () ->                               -- key+    Ptr () ->                               -- value+    m ()+treeReplace _obj key value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_tree_replace _obj' key value+    touchManagedPtr _obj+    return ()++-- method Tree::steal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_tree_steal" g_tree_steal :: +    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"+    Ptr () ->                               -- key : TBasicType TVoid+    IO CInt+++treeSteal ::+    (MonadIO m) =>+    Tree ->                                 -- _obj+    Ptr () ->                               -- key+    m Bool+treeSteal _obj key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_tree_steal _obj' key+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Tree::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_tree_unref" g_tree_unref :: +    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"+    IO ()+++treeUnref ::+    (MonadIO m) =>+    Tree ->                                 -- _obj+    m ()+treeUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_tree_unref _obj'+    touchManagedPtr _obj+    return ()++-- Enum UnicodeBreakType++data UnicodeBreakType = +      UnicodeBreakTypeMandatory+    | UnicodeBreakTypeCarriageReturn+    | UnicodeBreakTypeLineFeed+    | UnicodeBreakTypeCombiningMark+    | UnicodeBreakTypeSurrogate+    | UnicodeBreakTypeZeroWidthSpace+    | UnicodeBreakTypeInseparable+    | UnicodeBreakTypeNonBreakingGlue+    | UnicodeBreakTypeContingent+    | UnicodeBreakTypeSpace+    | UnicodeBreakTypeAfter+    | UnicodeBreakTypeBefore+    | UnicodeBreakTypeBeforeAndAfter+    | UnicodeBreakTypeHyphen+    | UnicodeBreakTypeNonStarter+    | UnicodeBreakTypeOpenPunctuation+    | UnicodeBreakTypeClosePunctuation+    | UnicodeBreakTypeQuotation+    | UnicodeBreakTypeExclamation+    | UnicodeBreakTypeIdeographic+    | UnicodeBreakTypeNumeric+    | UnicodeBreakTypeInfixSeparator+    | UnicodeBreakTypeSymbol+    | UnicodeBreakTypeAlphabetic+    | UnicodeBreakTypePrefix+    | UnicodeBreakTypePostfix+    | UnicodeBreakTypeComplexContext+    | UnicodeBreakTypeAmbiguous+    | UnicodeBreakTypeUnknown+    | UnicodeBreakTypeNextLine+    | UnicodeBreakTypeWordJoiner+    | UnicodeBreakTypeHangulLJamo+    | UnicodeBreakTypeHangulVJamo+    | UnicodeBreakTypeHangulTJamo+    | UnicodeBreakTypeHangulLvSyllable+    | UnicodeBreakTypeHangulLvtSyllable+    | UnicodeBreakTypeCloseParanthesis+    | UnicodeBreakTypeConditionalJapaneseStarter+    | UnicodeBreakTypeHebrewLetter+    | UnicodeBreakTypeRegionalIndicator+    | AnotherUnicodeBreakType Int+    deriving (Show, Eq)++instance Enum UnicodeBreakType where+    fromEnum UnicodeBreakTypeMandatory = 0+    fromEnum UnicodeBreakTypeCarriageReturn = 1+    fromEnum UnicodeBreakTypeLineFeed = 2+    fromEnum UnicodeBreakTypeCombiningMark = 3+    fromEnum UnicodeBreakTypeSurrogate = 4+    fromEnum UnicodeBreakTypeZeroWidthSpace = 5+    fromEnum UnicodeBreakTypeInseparable = 6+    fromEnum UnicodeBreakTypeNonBreakingGlue = 7+    fromEnum UnicodeBreakTypeContingent = 8+    fromEnum UnicodeBreakTypeSpace = 9+    fromEnum UnicodeBreakTypeAfter = 10+    fromEnum UnicodeBreakTypeBefore = 11+    fromEnum UnicodeBreakTypeBeforeAndAfter = 12+    fromEnum UnicodeBreakTypeHyphen = 13+    fromEnum UnicodeBreakTypeNonStarter = 14+    fromEnum UnicodeBreakTypeOpenPunctuation = 15+    fromEnum UnicodeBreakTypeClosePunctuation = 16+    fromEnum UnicodeBreakTypeQuotation = 17+    fromEnum UnicodeBreakTypeExclamation = 18+    fromEnum UnicodeBreakTypeIdeographic = 19+    fromEnum UnicodeBreakTypeNumeric = 20+    fromEnum UnicodeBreakTypeInfixSeparator = 21+    fromEnum UnicodeBreakTypeSymbol = 22+    fromEnum UnicodeBreakTypeAlphabetic = 23+    fromEnum UnicodeBreakTypePrefix = 24+    fromEnum UnicodeBreakTypePostfix = 25+    fromEnum UnicodeBreakTypeComplexContext = 26+    fromEnum UnicodeBreakTypeAmbiguous = 27+    fromEnum UnicodeBreakTypeUnknown = 28+    fromEnum UnicodeBreakTypeNextLine = 29+    fromEnum UnicodeBreakTypeWordJoiner = 30+    fromEnum UnicodeBreakTypeHangulLJamo = 31+    fromEnum UnicodeBreakTypeHangulVJamo = 32+    fromEnum UnicodeBreakTypeHangulTJamo = 33+    fromEnum UnicodeBreakTypeHangulLvSyllable = 34+    fromEnum UnicodeBreakTypeHangulLvtSyllable = 35+    fromEnum UnicodeBreakTypeCloseParanthesis = 36+    fromEnum UnicodeBreakTypeConditionalJapaneseStarter = 37+    fromEnum UnicodeBreakTypeHebrewLetter = 38+    fromEnum UnicodeBreakTypeRegionalIndicator = 39+    fromEnum (AnotherUnicodeBreakType k) = k++    toEnum 0 = UnicodeBreakTypeMandatory+    toEnum 1 = UnicodeBreakTypeCarriageReturn+    toEnum 2 = UnicodeBreakTypeLineFeed+    toEnum 3 = UnicodeBreakTypeCombiningMark+    toEnum 4 = UnicodeBreakTypeSurrogate+    toEnum 5 = UnicodeBreakTypeZeroWidthSpace+    toEnum 6 = UnicodeBreakTypeInseparable+    toEnum 7 = UnicodeBreakTypeNonBreakingGlue+    toEnum 8 = UnicodeBreakTypeContingent+    toEnum 9 = UnicodeBreakTypeSpace+    toEnum 10 = UnicodeBreakTypeAfter+    toEnum 11 = UnicodeBreakTypeBefore+    toEnum 12 = UnicodeBreakTypeBeforeAndAfter+    toEnum 13 = UnicodeBreakTypeHyphen+    toEnum 14 = UnicodeBreakTypeNonStarter+    toEnum 15 = UnicodeBreakTypeOpenPunctuation+    toEnum 16 = UnicodeBreakTypeClosePunctuation+    toEnum 17 = UnicodeBreakTypeQuotation+    toEnum 18 = UnicodeBreakTypeExclamation+    toEnum 19 = UnicodeBreakTypeIdeographic+    toEnum 20 = UnicodeBreakTypeNumeric+    toEnum 21 = UnicodeBreakTypeInfixSeparator+    toEnum 22 = UnicodeBreakTypeSymbol+    toEnum 23 = UnicodeBreakTypeAlphabetic+    toEnum 24 = UnicodeBreakTypePrefix+    toEnum 25 = UnicodeBreakTypePostfix+    toEnum 26 = UnicodeBreakTypeComplexContext+    toEnum 27 = UnicodeBreakTypeAmbiguous+    toEnum 28 = UnicodeBreakTypeUnknown+    toEnum 29 = UnicodeBreakTypeNextLine+    toEnum 30 = UnicodeBreakTypeWordJoiner+    toEnum 31 = UnicodeBreakTypeHangulLJamo+    toEnum 32 = UnicodeBreakTypeHangulVJamo+    toEnum 33 = UnicodeBreakTypeHangulTJamo+    toEnum 34 = UnicodeBreakTypeHangulLvSyllable+    toEnum 35 = UnicodeBreakTypeHangulLvtSyllable+    toEnum 36 = UnicodeBreakTypeCloseParanthesis+    toEnum 37 = UnicodeBreakTypeConditionalJapaneseStarter+    toEnum 38 = UnicodeBreakTypeHebrewLetter+    toEnum 39 = UnicodeBreakTypeRegionalIndicator+    toEnum k = AnotherUnicodeBreakType k++-- Enum UnicodeScript++data UnicodeScript = +      UnicodeScriptInvalidCode+    | UnicodeScriptCommon+    | UnicodeScriptInherited+    | UnicodeScriptArabic+    | UnicodeScriptArmenian+    | UnicodeScriptBengali+    | UnicodeScriptBopomofo+    | UnicodeScriptCherokee+    | UnicodeScriptCoptic+    | UnicodeScriptCyrillic+    | UnicodeScriptDeseret+    | UnicodeScriptDevanagari+    | UnicodeScriptEthiopic+    | UnicodeScriptGeorgian+    | UnicodeScriptGothic+    | UnicodeScriptGreek+    | UnicodeScriptGujarati+    | UnicodeScriptGurmukhi+    | UnicodeScriptHan+    | UnicodeScriptHangul+    | UnicodeScriptHebrew+    | UnicodeScriptHiragana+    | UnicodeScriptKannada+    | UnicodeScriptKatakana+    | UnicodeScriptKhmer+    | UnicodeScriptLao+    | UnicodeScriptLatin+    | UnicodeScriptMalayalam+    | UnicodeScriptMongolian+    | UnicodeScriptMyanmar+    | UnicodeScriptOgham+    | UnicodeScriptOldItalic+    | UnicodeScriptOriya+    | UnicodeScriptRunic+    | UnicodeScriptSinhala+    | UnicodeScriptSyriac+    | UnicodeScriptTamil+    | UnicodeScriptTelugu+    | UnicodeScriptThaana+    | UnicodeScriptThai+    | UnicodeScriptTibetan+    | UnicodeScriptCanadianAboriginal+    | UnicodeScriptYi+    | UnicodeScriptTagalog+    | UnicodeScriptHanunoo+    | UnicodeScriptBuhid+    | UnicodeScriptTagbanwa+    | UnicodeScriptBraille+    | UnicodeScriptCypriot+    | UnicodeScriptLimbu+    | UnicodeScriptOsmanya+    | UnicodeScriptShavian+    | UnicodeScriptLinearB+    | UnicodeScriptTaiLe+    | UnicodeScriptUgaritic+    | UnicodeScriptNewTaiLue+    | UnicodeScriptBuginese+    | UnicodeScriptGlagolitic+    | UnicodeScriptTifinagh+    | UnicodeScriptSylotiNagri+    | UnicodeScriptOldPersian+    | UnicodeScriptKharoshthi+    | UnicodeScriptUnknown+    | UnicodeScriptBalinese+    | UnicodeScriptCuneiform+    | UnicodeScriptPhoenician+    | UnicodeScriptPhagsPa+    | UnicodeScriptNko+    | UnicodeScriptKayahLi+    | UnicodeScriptLepcha+    | UnicodeScriptRejang+    | UnicodeScriptSundanese+    | UnicodeScriptSaurashtra+    | UnicodeScriptCham+    | UnicodeScriptOlChiki+    | UnicodeScriptVai+    | UnicodeScriptCarian+    | UnicodeScriptLycian+    | UnicodeScriptLydian+    | UnicodeScriptAvestan+    | UnicodeScriptBamum+    | UnicodeScriptEgyptianHieroglyphs+    | UnicodeScriptImperialAramaic+    | UnicodeScriptInscriptionalPahlavi+    | UnicodeScriptInscriptionalParthian+    | UnicodeScriptJavanese+    | UnicodeScriptKaithi+    | UnicodeScriptLisu+    | UnicodeScriptMeeteiMayek+    | UnicodeScriptOldSouthArabian+    | UnicodeScriptOldTurkic+    | UnicodeScriptSamaritan+    | UnicodeScriptTaiTham+    | UnicodeScriptTaiViet+    | UnicodeScriptBatak+    | UnicodeScriptBrahmi+    | UnicodeScriptMandaic+    | UnicodeScriptChakma+    | UnicodeScriptMeroiticCursive+    | UnicodeScriptMeroiticHieroglyphs+    | UnicodeScriptMiao+    | UnicodeScriptSharada+    | UnicodeScriptSoraSompeng+    | UnicodeScriptTakri+    | UnicodeScriptBassaVah+    | UnicodeScriptCaucasianAlbanian+    | UnicodeScriptDuployan+    | UnicodeScriptElbasan+    | UnicodeScriptGrantha+    | UnicodeScriptKhojki+    | UnicodeScriptKhudawadi+    | UnicodeScriptLinearA+    | UnicodeScriptMahajani+    | UnicodeScriptManichaean+    | UnicodeScriptMendeKikakui+    | UnicodeScriptModi+    | UnicodeScriptMro+    | UnicodeScriptNabataean+    | UnicodeScriptOldNorthArabian+    | UnicodeScriptOldPermic+    | UnicodeScriptPahawhHmong+    | UnicodeScriptPalmyrene+    | UnicodeScriptPauCinHau+    | UnicodeScriptPsalterPahlavi+    | UnicodeScriptSiddham+    | UnicodeScriptTirhuta+    | UnicodeScriptWarangCiti+    | AnotherUnicodeScript Int+    deriving (Show, Eq)++instance Enum UnicodeScript where+    fromEnum UnicodeScriptInvalidCode = -1+    fromEnum UnicodeScriptCommon = 0+    fromEnum UnicodeScriptInherited = 1+    fromEnum UnicodeScriptArabic = 2+    fromEnum UnicodeScriptArmenian = 3+    fromEnum UnicodeScriptBengali = 4+    fromEnum UnicodeScriptBopomofo = 5+    fromEnum UnicodeScriptCherokee = 6+    fromEnum UnicodeScriptCoptic = 7+    fromEnum UnicodeScriptCyrillic = 8+    fromEnum UnicodeScriptDeseret = 9+    fromEnum UnicodeScriptDevanagari = 10+    fromEnum UnicodeScriptEthiopic = 11+    fromEnum UnicodeScriptGeorgian = 12+    fromEnum UnicodeScriptGothic = 13+    fromEnum UnicodeScriptGreek = 14+    fromEnum UnicodeScriptGujarati = 15+    fromEnum UnicodeScriptGurmukhi = 16+    fromEnum UnicodeScriptHan = 17+    fromEnum UnicodeScriptHangul = 18+    fromEnum UnicodeScriptHebrew = 19+    fromEnum UnicodeScriptHiragana = 20+    fromEnum UnicodeScriptKannada = 21+    fromEnum UnicodeScriptKatakana = 22+    fromEnum UnicodeScriptKhmer = 23+    fromEnum UnicodeScriptLao = 24+    fromEnum UnicodeScriptLatin = 25+    fromEnum UnicodeScriptMalayalam = 26+    fromEnum UnicodeScriptMongolian = 27+    fromEnum UnicodeScriptMyanmar = 28+    fromEnum UnicodeScriptOgham = 29+    fromEnum UnicodeScriptOldItalic = 30+    fromEnum UnicodeScriptOriya = 31+    fromEnum UnicodeScriptRunic = 32+    fromEnum UnicodeScriptSinhala = 33+    fromEnum UnicodeScriptSyriac = 34+    fromEnum UnicodeScriptTamil = 35+    fromEnum UnicodeScriptTelugu = 36+    fromEnum UnicodeScriptThaana = 37+    fromEnum UnicodeScriptThai = 38+    fromEnum UnicodeScriptTibetan = 39+    fromEnum UnicodeScriptCanadianAboriginal = 40+    fromEnum UnicodeScriptYi = 41+    fromEnum UnicodeScriptTagalog = 42+    fromEnum UnicodeScriptHanunoo = 43+    fromEnum UnicodeScriptBuhid = 44+    fromEnum UnicodeScriptTagbanwa = 45+    fromEnum UnicodeScriptBraille = 46+    fromEnum UnicodeScriptCypriot = 47+    fromEnum UnicodeScriptLimbu = 48+    fromEnum UnicodeScriptOsmanya = 49+    fromEnum UnicodeScriptShavian = 50+    fromEnum UnicodeScriptLinearB = 51+    fromEnum UnicodeScriptTaiLe = 52+    fromEnum UnicodeScriptUgaritic = 53+    fromEnum UnicodeScriptNewTaiLue = 54+    fromEnum UnicodeScriptBuginese = 55+    fromEnum UnicodeScriptGlagolitic = 56+    fromEnum UnicodeScriptTifinagh = 57+    fromEnum UnicodeScriptSylotiNagri = 58+    fromEnum UnicodeScriptOldPersian = 59+    fromEnum UnicodeScriptKharoshthi = 60+    fromEnum UnicodeScriptUnknown = 61+    fromEnum UnicodeScriptBalinese = 62+    fromEnum UnicodeScriptCuneiform = 63+    fromEnum UnicodeScriptPhoenician = 64+    fromEnum UnicodeScriptPhagsPa = 65+    fromEnum UnicodeScriptNko = 66+    fromEnum UnicodeScriptKayahLi = 67+    fromEnum UnicodeScriptLepcha = 68+    fromEnum UnicodeScriptRejang = 69+    fromEnum UnicodeScriptSundanese = 70+    fromEnum UnicodeScriptSaurashtra = 71+    fromEnum UnicodeScriptCham = 72+    fromEnum UnicodeScriptOlChiki = 73+    fromEnum UnicodeScriptVai = 74+    fromEnum UnicodeScriptCarian = 75+    fromEnum UnicodeScriptLycian = 76+    fromEnum UnicodeScriptLydian = 77+    fromEnum UnicodeScriptAvestan = 78+    fromEnum UnicodeScriptBamum = 79+    fromEnum UnicodeScriptEgyptianHieroglyphs = 80+    fromEnum UnicodeScriptImperialAramaic = 81+    fromEnum UnicodeScriptInscriptionalPahlavi = 82+    fromEnum UnicodeScriptInscriptionalParthian = 83+    fromEnum UnicodeScriptJavanese = 84+    fromEnum UnicodeScriptKaithi = 85+    fromEnum UnicodeScriptLisu = 86+    fromEnum UnicodeScriptMeeteiMayek = 87+    fromEnum UnicodeScriptOldSouthArabian = 88+    fromEnum UnicodeScriptOldTurkic = 89+    fromEnum UnicodeScriptSamaritan = 90+    fromEnum UnicodeScriptTaiTham = 91+    fromEnum UnicodeScriptTaiViet = 92+    fromEnum UnicodeScriptBatak = 93+    fromEnum UnicodeScriptBrahmi = 94+    fromEnum UnicodeScriptMandaic = 95+    fromEnum UnicodeScriptChakma = 96+    fromEnum UnicodeScriptMeroiticCursive = 97+    fromEnum UnicodeScriptMeroiticHieroglyphs = 98+    fromEnum UnicodeScriptMiao = 99+    fromEnum UnicodeScriptSharada = 100+    fromEnum UnicodeScriptSoraSompeng = 101+    fromEnum UnicodeScriptTakri = 102+    fromEnum UnicodeScriptBassaVah = 103+    fromEnum UnicodeScriptCaucasianAlbanian = 104+    fromEnum UnicodeScriptDuployan = 105+    fromEnum UnicodeScriptElbasan = 106+    fromEnum UnicodeScriptGrantha = 107+    fromEnum UnicodeScriptKhojki = 108+    fromEnum UnicodeScriptKhudawadi = 109+    fromEnum UnicodeScriptLinearA = 110+    fromEnum UnicodeScriptMahajani = 111+    fromEnum UnicodeScriptManichaean = 112+    fromEnum UnicodeScriptMendeKikakui = 113+    fromEnum UnicodeScriptModi = 114+    fromEnum UnicodeScriptMro = 115+    fromEnum UnicodeScriptNabataean = 116+    fromEnum UnicodeScriptOldNorthArabian = 117+    fromEnum UnicodeScriptOldPermic = 118+    fromEnum UnicodeScriptPahawhHmong = 119+    fromEnum UnicodeScriptPalmyrene = 120+    fromEnum UnicodeScriptPauCinHau = 121+    fromEnum UnicodeScriptPsalterPahlavi = 122+    fromEnum UnicodeScriptSiddham = 123+    fromEnum UnicodeScriptTirhuta = 124+    fromEnum UnicodeScriptWarangCiti = 125+    fromEnum (AnotherUnicodeScript k) = k++    toEnum -1 = UnicodeScriptInvalidCode+    toEnum 0 = UnicodeScriptCommon+    toEnum 1 = UnicodeScriptInherited+    toEnum 2 = UnicodeScriptArabic+    toEnum 3 = UnicodeScriptArmenian+    toEnum 4 = UnicodeScriptBengali+    toEnum 5 = UnicodeScriptBopomofo+    toEnum 6 = UnicodeScriptCherokee+    toEnum 7 = UnicodeScriptCoptic+    toEnum 8 = UnicodeScriptCyrillic+    toEnum 9 = UnicodeScriptDeseret+    toEnum 10 = UnicodeScriptDevanagari+    toEnum 11 = UnicodeScriptEthiopic+    toEnum 12 = UnicodeScriptGeorgian+    toEnum 13 = UnicodeScriptGothic+    toEnum 14 = UnicodeScriptGreek+    toEnum 15 = UnicodeScriptGujarati+    toEnum 16 = UnicodeScriptGurmukhi+    toEnum 17 = UnicodeScriptHan+    toEnum 18 = UnicodeScriptHangul+    toEnum 19 = UnicodeScriptHebrew+    toEnum 20 = UnicodeScriptHiragana+    toEnum 21 = UnicodeScriptKannada+    toEnum 22 = UnicodeScriptKatakana+    toEnum 23 = UnicodeScriptKhmer+    toEnum 24 = UnicodeScriptLao+    toEnum 25 = UnicodeScriptLatin+    toEnum 26 = UnicodeScriptMalayalam+    toEnum 27 = UnicodeScriptMongolian+    toEnum 28 = UnicodeScriptMyanmar+    toEnum 29 = UnicodeScriptOgham+    toEnum 30 = UnicodeScriptOldItalic+    toEnum 31 = UnicodeScriptOriya+    toEnum 32 = UnicodeScriptRunic+    toEnum 33 = UnicodeScriptSinhala+    toEnum 34 = UnicodeScriptSyriac+    toEnum 35 = UnicodeScriptTamil+    toEnum 36 = UnicodeScriptTelugu+    toEnum 37 = UnicodeScriptThaana+    toEnum 38 = UnicodeScriptThai+    toEnum 39 = UnicodeScriptTibetan+    toEnum 40 = UnicodeScriptCanadianAboriginal+    toEnum 41 = UnicodeScriptYi+    toEnum 42 = UnicodeScriptTagalog+    toEnum 43 = UnicodeScriptHanunoo+    toEnum 44 = UnicodeScriptBuhid+    toEnum 45 = UnicodeScriptTagbanwa+    toEnum 46 = UnicodeScriptBraille+    toEnum 47 = UnicodeScriptCypriot+    toEnum 48 = UnicodeScriptLimbu+    toEnum 49 = UnicodeScriptOsmanya+    toEnum 50 = UnicodeScriptShavian+    toEnum 51 = UnicodeScriptLinearB+    toEnum 52 = UnicodeScriptTaiLe+    toEnum 53 = UnicodeScriptUgaritic+    toEnum 54 = UnicodeScriptNewTaiLue+    toEnum 55 = UnicodeScriptBuginese+    toEnum 56 = UnicodeScriptGlagolitic+    toEnum 57 = UnicodeScriptTifinagh+    toEnum 58 = UnicodeScriptSylotiNagri+    toEnum 59 = UnicodeScriptOldPersian+    toEnum 60 = UnicodeScriptKharoshthi+    toEnum 61 = UnicodeScriptUnknown+    toEnum 62 = UnicodeScriptBalinese+    toEnum 63 = UnicodeScriptCuneiform+    toEnum 64 = UnicodeScriptPhoenician+    toEnum 65 = UnicodeScriptPhagsPa+    toEnum 66 = UnicodeScriptNko+    toEnum 67 = UnicodeScriptKayahLi+    toEnum 68 = UnicodeScriptLepcha+    toEnum 69 = UnicodeScriptRejang+    toEnum 70 = UnicodeScriptSundanese+    toEnum 71 = UnicodeScriptSaurashtra+    toEnum 72 = UnicodeScriptCham+    toEnum 73 = UnicodeScriptOlChiki+    toEnum 74 = UnicodeScriptVai+    toEnum 75 = UnicodeScriptCarian+    toEnum 76 = UnicodeScriptLycian+    toEnum 77 = UnicodeScriptLydian+    toEnum 78 = UnicodeScriptAvestan+    toEnum 79 = UnicodeScriptBamum+    toEnum 80 = UnicodeScriptEgyptianHieroglyphs+    toEnum 81 = UnicodeScriptImperialAramaic+    toEnum 82 = UnicodeScriptInscriptionalPahlavi+    toEnum 83 = UnicodeScriptInscriptionalParthian+    toEnum 84 = UnicodeScriptJavanese+    toEnum 85 = UnicodeScriptKaithi+    toEnum 86 = UnicodeScriptLisu+    toEnum 87 = UnicodeScriptMeeteiMayek+    toEnum 88 = UnicodeScriptOldSouthArabian+    toEnum 89 = UnicodeScriptOldTurkic+    toEnum 90 = UnicodeScriptSamaritan+    toEnum 91 = UnicodeScriptTaiTham+    toEnum 92 = UnicodeScriptTaiViet+    toEnum 93 = UnicodeScriptBatak+    toEnum 94 = UnicodeScriptBrahmi+    toEnum 95 = UnicodeScriptMandaic+    toEnum 96 = UnicodeScriptChakma+    toEnum 97 = UnicodeScriptMeroiticCursive+    toEnum 98 = UnicodeScriptMeroiticHieroglyphs+    toEnum 99 = UnicodeScriptMiao+    toEnum 100 = UnicodeScriptSharada+    toEnum 101 = UnicodeScriptSoraSompeng+    toEnum 102 = UnicodeScriptTakri+    toEnum 103 = UnicodeScriptBassaVah+    toEnum 104 = UnicodeScriptCaucasianAlbanian+    toEnum 105 = UnicodeScriptDuployan+    toEnum 106 = UnicodeScriptElbasan+    toEnum 107 = UnicodeScriptGrantha+    toEnum 108 = UnicodeScriptKhojki+    toEnum 109 = UnicodeScriptKhudawadi+    toEnum 110 = UnicodeScriptLinearA+    toEnum 111 = UnicodeScriptMahajani+    toEnum 112 = UnicodeScriptManichaean+    toEnum 113 = UnicodeScriptMendeKikakui+    toEnum 114 = UnicodeScriptModi+    toEnum 115 = UnicodeScriptMro+    toEnum 116 = UnicodeScriptNabataean+    toEnum 117 = UnicodeScriptOldNorthArabian+    toEnum 118 = UnicodeScriptOldPermic+    toEnum 119 = UnicodeScriptPahawhHmong+    toEnum 120 = UnicodeScriptPalmyrene+    toEnum 121 = UnicodeScriptPauCinHau+    toEnum 122 = UnicodeScriptPsalterPahlavi+    toEnum 123 = UnicodeScriptSiddham+    toEnum 124 = UnicodeScriptTirhuta+    toEnum 125 = UnicodeScriptWarangCiti+    toEnum k = AnotherUnicodeScript k++-- Enum UnicodeType++data UnicodeType = +      UnicodeTypeControl+    | UnicodeTypeFormat+    | UnicodeTypeUnassigned+    | UnicodeTypePrivateUse+    | UnicodeTypeSurrogate+    | UnicodeTypeLowercaseLetter+    | UnicodeTypeModifierLetter+    | UnicodeTypeOtherLetter+    | UnicodeTypeTitlecaseLetter+    | UnicodeTypeUppercaseLetter+    | UnicodeTypeSpacingMark+    | UnicodeTypeEnclosingMark+    | UnicodeTypeNonSpacingMark+    | UnicodeTypeDecimalNumber+    | UnicodeTypeLetterNumber+    | UnicodeTypeOtherNumber+    | UnicodeTypeConnectPunctuation+    | UnicodeTypeDashPunctuation+    | UnicodeTypeClosePunctuation+    | UnicodeTypeFinalPunctuation+    | UnicodeTypeInitialPunctuation+    | UnicodeTypeOtherPunctuation+    | UnicodeTypeOpenPunctuation+    | UnicodeTypeCurrencySymbol+    | UnicodeTypeModifierSymbol+    | UnicodeTypeMathSymbol+    | UnicodeTypeOtherSymbol+    | UnicodeTypeLineSeparator+    | UnicodeTypeParagraphSeparator+    | UnicodeTypeSpaceSeparator+    | AnotherUnicodeType Int+    deriving (Show, Eq)++instance Enum UnicodeType where+    fromEnum UnicodeTypeControl = 0+    fromEnum UnicodeTypeFormat = 1+    fromEnum UnicodeTypeUnassigned = 2+    fromEnum UnicodeTypePrivateUse = 3+    fromEnum UnicodeTypeSurrogate = 4+    fromEnum UnicodeTypeLowercaseLetter = 5+    fromEnum UnicodeTypeModifierLetter = 6+    fromEnum UnicodeTypeOtherLetter = 7+    fromEnum UnicodeTypeTitlecaseLetter = 8+    fromEnum UnicodeTypeUppercaseLetter = 9+    fromEnum UnicodeTypeSpacingMark = 10+    fromEnum UnicodeTypeEnclosingMark = 11+    fromEnum UnicodeTypeNonSpacingMark = 12+    fromEnum UnicodeTypeDecimalNumber = 13+    fromEnum UnicodeTypeLetterNumber = 14+    fromEnum UnicodeTypeOtherNumber = 15+    fromEnum UnicodeTypeConnectPunctuation = 16+    fromEnum UnicodeTypeDashPunctuation = 17+    fromEnum UnicodeTypeClosePunctuation = 18+    fromEnum UnicodeTypeFinalPunctuation = 19+    fromEnum UnicodeTypeInitialPunctuation = 20+    fromEnum UnicodeTypeOtherPunctuation = 21+    fromEnum UnicodeTypeOpenPunctuation = 22+    fromEnum UnicodeTypeCurrencySymbol = 23+    fromEnum UnicodeTypeModifierSymbol = 24+    fromEnum UnicodeTypeMathSymbol = 25+    fromEnum UnicodeTypeOtherSymbol = 26+    fromEnum UnicodeTypeLineSeparator = 27+    fromEnum UnicodeTypeParagraphSeparator = 28+    fromEnum UnicodeTypeSpaceSeparator = 29+    fromEnum (AnotherUnicodeType k) = k++    toEnum 0 = UnicodeTypeControl+    toEnum 1 = UnicodeTypeFormat+    toEnum 2 = UnicodeTypeUnassigned+    toEnum 3 = UnicodeTypePrivateUse+    toEnum 4 = UnicodeTypeSurrogate+    toEnum 5 = UnicodeTypeLowercaseLetter+    toEnum 6 = UnicodeTypeModifierLetter+    toEnum 7 = UnicodeTypeOtherLetter+    toEnum 8 = UnicodeTypeTitlecaseLetter+    toEnum 9 = UnicodeTypeUppercaseLetter+    toEnum 10 = UnicodeTypeSpacingMark+    toEnum 11 = UnicodeTypeEnclosingMark+    toEnum 12 = UnicodeTypeNonSpacingMark+    toEnum 13 = UnicodeTypeDecimalNumber+    toEnum 14 = UnicodeTypeLetterNumber+    toEnum 15 = UnicodeTypeOtherNumber+    toEnum 16 = UnicodeTypeConnectPunctuation+    toEnum 17 = UnicodeTypeDashPunctuation+    toEnum 18 = UnicodeTypeClosePunctuation+    toEnum 19 = UnicodeTypeFinalPunctuation+    toEnum 20 = UnicodeTypeInitialPunctuation+    toEnum 21 = UnicodeTypeOtherPunctuation+    toEnum 22 = UnicodeTypeOpenPunctuation+    toEnum 23 = UnicodeTypeCurrencySymbol+    toEnum 24 = UnicodeTypeModifierSymbol+    toEnum 25 = UnicodeTypeMathSymbol+    toEnum 26 = UnicodeTypeOtherSymbol+    toEnum 27 = UnicodeTypeLineSeparator+    toEnum 28 = UnicodeTypeParagraphSeparator+    toEnum 29 = UnicodeTypeSpaceSeparator+    toEnum k = AnotherUnicodeType k++-- callback UnixFDSourceFunc+unixFDSourceFuncClosure :: UnixFDSourceFunc -> IO Closure+unixFDSourceFuncClosure cb = newCClosure =<< mkUnixFDSourceFunc wrapped+    where wrapped = unixFDSourceFuncWrapper Nothing cb++type UnixFDSourceFuncC =+    Int32 ->+    CUInt ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkUnixFDSourceFunc :: UnixFDSourceFuncC -> IO (FunPtr UnixFDSourceFuncC)++type UnixFDSourceFunc =+    Int32 ->+    [IOCondition] ->+    IO Bool++noUnixFDSourceFunc :: Maybe UnixFDSourceFunc+noUnixFDSourceFunc = Nothing++unixFDSourceFuncWrapper ::+    Maybe (Ptr (FunPtr (UnixFDSourceFuncC))) ->+    UnixFDSourceFunc ->+    Int32 ->+    CUInt ->+    Ptr () ->+    IO CInt+unixFDSourceFuncWrapper funptrptr _cb fd condition _ = do+    let condition' = wordToGFlags condition+    result <- _cb  fd condition'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- Enum UserDirectory++data UserDirectory = +      UserDirectoryDirectoryDesktop+    | UserDirectoryDirectoryDocuments+    | UserDirectoryDirectoryDownload+    | UserDirectoryDirectoryMusic+    | UserDirectoryDirectoryPictures+    | UserDirectoryDirectoryPublicShare+    | UserDirectoryDirectoryTemplates+    | UserDirectoryDirectoryVideos+    | UserDirectoryNDirectories+    | AnotherUserDirectory Int+    deriving (Show, Eq)++instance Enum UserDirectory where+    fromEnum UserDirectoryDirectoryDesktop = 0+    fromEnum UserDirectoryDirectoryDocuments = 1+    fromEnum UserDirectoryDirectoryDownload = 2+    fromEnum UserDirectoryDirectoryMusic = 3+    fromEnum UserDirectoryDirectoryPictures = 4+    fromEnum UserDirectoryDirectoryPublicShare = 5+    fromEnum UserDirectoryDirectoryTemplates = 6+    fromEnum UserDirectoryDirectoryVideos = 7+    fromEnum UserDirectoryNDirectories = 8+    fromEnum (AnotherUserDirectory k) = k++    toEnum 0 = UserDirectoryDirectoryDesktop+    toEnum 1 = UserDirectoryDirectoryDocuments+    toEnum 2 = UserDirectoryDirectoryDownload+    toEnum 3 = UserDirectoryDirectoryMusic+    toEnum 4 = UserDirectoryDirectoryPictures+    toEnum 5 = UserDirectoryDirectoryPublicShare+    toEnum 6 = UserDirectoryDirectoryTemplates+    toEnum 7 = UserDirectoryDirectoryVideos+    toEnum 8 = UserDirectoryNDirectories+    toEnum k = AnotherUserDirectory k++-- struct VariantBuilder+newtype VariantBuilder = VariantBuilder (ForeignPtr VariantBuilder)+noVariantBuilder :: Maybe VariantBuilder+noVariantBuilder = Nothing++foreign import ccall "g_variant_builder_get_type" c_g_variant_builder_get_type :: +    IO GType++instance BoxedObject VariantBuilder where+    boxedType _ = c_g_variant_builder_get_type++-- method VariantBuilder::new+-- method type : Constructor+-- Args : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantBuilder"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_builder_new" g_variant_builder_new :: +    Ptr VariantType ->                      -- type : TInterface "GLib" "VariantType"+    IO (Ptr VariantBuilder)+++variantBuilderNew ::+    (MonadIO m) =>+    VariantType ->                          -- type+    m VariantBuilder+variantBuilderNew type_ = liftIO $ do+    let type_' = unsafeManagedPtrGetPtr type_+    result <- g_variant_builder_new type_'+    checkUnexpectedReturnNULL "g_variant_builder_new" result+    result' <- (wrapBoxed VariantBuilder) result+    touchManagedPtr type_+    return result'++-- method VariantBuilder::add_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_builder_add_value" g_variant_builder_add_value :: +    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"+    Ptr GVariant ->                         -- value : TVariant+    IO ()+++variantBuilderAddValue ::+    (MonadIO m) =>+    VariantBuilder ->                       -- _obj+    GVariant ->                             -- value+    m ()+variantBuilderAddValue _obj value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let value' = unsafeManagedPtrGetPtr value+    g_variant_builder_add_value _obj' value'+    touchManagedPtr _obj+    return ()++-- method VariantBuilder::close+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_builder_close" g_variant_builder_close :: +    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"+    IO ()+++variantBuilderClose ::+    (MonadIO m) =>+    VariantBuilder ->                       -- _obj+    m ()+variantBuilderClose _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_variant_builder_close _obj'+    touchManagedPtr _obj+    return ()++-- method VariantBuilder::end+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TVariant+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_builder_end" g_variant_builder_end :: +    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"+    IO (Ptr GVariant)+++variantBuilderEnd ::+    (MonadIO m) =>+    VariantBuilder ->                       -- _obj+    m GVariant+variantBuilderEnd _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_builder_end _obj'+    checkUnexpectedReturnNULL "g_variant_builder_end" result+    result' <- newGVariantFromPtr result+    touchManagedPtr _obj+    return result'++-- method VariantBuilder::open+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_builder_open" g_variant_builder_open :: +    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"+    Ptr VariantType ->                      -- type : TInterface "GLib" "VariantType"+    IO ()+++variantBuilderOpen ::+    (MonadIO m) =>+    VariantBuilder ->                       -- _obj+    VariantType ->                          -- type+    m ()+variantBuilderOpen _obj type_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let type_' = unsafeManagedPtrGetPtr type_+    g_variant_builder_open _obj' type_'+    touchManagedPtr _obj+    touchManagedPtr type_+    return ()++-- method VariantBuilder::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantBuilder"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_builder_ref" g_variant_builder_ref :: +    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"+    IO (Ptr VariantBuilder)+++variantBuilderRef ::+    (MonadIO m) =>+    VariantBuilder ->                       -- _obj+    m VariantBuilder+variantBuilderRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_builder_ref _obj'+    checkUnexpectedReturnNULL "g_variant_builder_ref" result+    result' <- (wrapBoxed VariantBuilder) result+    touchManagedPtr _obj+    return result'++-- method VariantBuilder::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_builder_unref" g_variant_builder_unref :: +    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"+    IO ()+++variantBuilderUnref ::+    (MonadIO m) =>+    VariantBuilder ->                       -- _obj+    m ()+variantBuilderUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_variant_builder_unref _obj'+    touchManagedPtr _obj+    return ()++-- Enum VariantClass++data VariantClass = +      VariantClassBoolean+    | VariantClassByte+    | VariantClassInt16+    | VariantClassUint16+    | VariantClassInt32+    | VariantClassUint32+    | VariantClassInt64+    | VariantClassUint64+    | VariantClassHandle+    | VariantClassDouble+    | VariantClassString+    | VariantClassObjectPath+    | VariantClassSignature+    | VariantClassVariant+    | VariantClassMaybe+    | VariantClassArray+    | VariantClassTuple+    | VariantClassDictEntry+    | AnotherVariantClass Int+    deriving (Show, Eq)++instance Enum VariantClass where+    fromEnum VariantClassBoolean = 98+    fromEnum VariantClassByte = 121+    fromEnum VariantClassInt16 = 110+    fromEnum VariantClassUint16 = 113+    fromEnum VariantClassInt32 = 105+    fromEnum VariantClassUint32 = 117+    fromEnum VariantClassInt64 = 120+    fromEnum VariantClassUint64 = 116+    fromEnum VariantClassHandle = 104+    fromEnum VariantClassDouble = 100+    fromEnum VariantClassString = 115+    fromEnum VariantClassObjectPath = 111+    fromEnum VariantClassSignature = 103+    fromEnum VariantClassVariant = 118+    fromEnum VariantClassMaybe = 109+    fromEnum VariantClassArray = 97+    fromEnum VariantClassTuple = 40+    fromEnum VariantClassDictEntry = 123+    fromEnum (AnotherVariantClass k) = k++    toEnum 40 = VariantClassTuple+    toEnum 97 = VariantClassArray+    toEnum 98 = VariantClassBoolean+    toEnum 100 = VariantClassDouble+    toEnum 103 = VariantClassSignature+    toEnum 104 = VariantClassHandle+    toEnum 105 = VariantClassInt32+    toEnum 109 = VariantClassMaybe+    toEnum 110 = VariantClassInt16+    toEnum 111 = VariantClassObjectPath+    toEnum 113 = VariantClassUint16+    toEnum 115 = VariantClassString+    toEnum 116 = VariantClassUint64+    toEnum 117 = VariantClassUint32+    toEnum 118 = VariantClassVariant+    toEnum 120 = VariantClassInt64+    toEnum 121 = VariantClassByte+    toEnum 123 = VariantClassDictEntry+    toEnum k = AnotherVariantClass k++-- struct VariantDict+newtype VariantDict = VariantDict (ForeignPtr VariantDict)+noVariantDict :: Maybe VariantDict+noVariantDict = Nothing++foreign import ccall "g_variant_dict_get_type" c_g_variant_dict_get_type :: +    IO GType++instance BoxedObject VariantDict where+    boxedType _ = c_g_variant_dict_get_type++-- method VariantDict::new+-- method type : Constructor+-- Args : [Arg {argName = "from_asv", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "from_asv", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantDict"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_dict_new" g_variant_dict_new :: +    Ptr GVariant ->                         -- from_asv : TVariant+    IO (Ptr VariantDict)+++variantDictNew ::+    (MonadIO m) =>+    Maybe (GVariant) ->                     -- from_asv+    m VariantDict+variantDictNew from_asv = liftIO $ do+    maybeFrom_asv <- case from_asv of+        Nothing -> return nullPtr+        Just jFrom_asv -> do+            let jFrom_asv' = unsafeManagedPtrGetPtr jFrom_asv+            return jFrom_asv'+    result <- g_variant_dict_new maybeFrom_asv+    checkUnexpectedReturnNULL "g_variant_dict_new" result+    result' <- (wrapBoxed VariantDict) result+    return result'++-- method VariantDict::clear+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_dict_clear" g_variant_dict_clear :: +    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"+    IO ()+++variantDictClear ::+    (MonadIO m) =>+    VariantDict ->                          -- _obj+    m ()+variantDictClear _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_variant_dict_clear _obj'+    touchManagedPtr _obj+    return ()++-- method VariantDict::contains+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_dict_contains" g_variant_dict_contains :: +    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"+    CString ->                              -- key : TBasicType TUTF8+    IO CInt+++variantDictContains ::+    (MonadIO m) =>+    VariantDict ->                          -- _obj+    T.Text ->                               -- key+    m Bool+variantDictContains _obj key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    key' <- textToCString key+    result <- g_variant_dict_contains _obj' key'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem key'+    return result'++-- method VariantDict::end+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TVariant+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_dict_end" g_variant_dict_end :: +    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"+    IO (Ptr GVariant)+++variantDictEnd ::+    (MonadIO m) =>+    VariantDict ->                          -- _obj+    m GVariant+variantDictEnd _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_dict_end _obj'+    checkUnexpectedReturnNULL "g_variant_dict_end" result+    result' <- newGVariantFromPtr result+    touchManagedPtr _obj+    return result'++-- method VariantDict::insert_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_dict_insert_value" g_variant_dict_insert_value :: +    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"+    CString ->                              -- key : TBasicType TUTF8+    Ptr GVariant ->                         -- value : TVariant+    IO ()+++variantDictInsertValue ::+    (MonadIO m) =>+    VariantDict ->                          -- _obj+    T.Text ->                               -- key+    GVariant ->                             -- value+    m ()+variantDictInsertValue _obj key value = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    key' <- textToCString key+    let value' = unsafeManagedPtrGetPtr value+    g_variant_dict_insert_value _obj' key' value'+    touchManagedPtr _obj+    freeMem key'+    return ()++-- method VariantDict::lookup_value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TVariant+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_dict_lookup_value" g_variant_dict_lookup_value :: +    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"+    CString ->                              -- key : TBasicType TUTF8+    Ptr VariantType ->                      -- expected_type : TInterface "GLib" "VariantType"+    IO (Ptr GVariant)+++variantDictLookupValue ::+    (MonadIO m) =>+    VariantDict ->                          -- _obj+    T.Text ->                               -- key+    Maybe (VariantType) ->                  -- expected_type+    m GVariant+variantDictLookupValue _obj key expected_type = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    key' <- textToCString key+    maybeExpected_type <- case expected_type of+        Nothing -> return nullPtr+        Just jExpected_type -> do+            let jExpected_type' = unsafeManagedPtrGetPtr jExpected_type+            return jExpected_type'+    result <- g_variant_dict_lookup_value _obj' key' maybeExpected_type+    checkUnexpectedReturnNULL "g_variant_dict_lookup_value" result+    result' <- wrapGVariantPtr result+    touchManagedPtr _obj+    whenJust expected_type touchManagedPtr+    freeMem key'+    return result'++-- method VariantDict::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantDict"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_dict_ref" g_variant_dict_ref :: +    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"+    IO (Ptr VariantDict)+++variantDictRef ::+    (MonadIO m) =>+    VariantDict ->                          -- _obj+    m VariantDict+variantDictRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_dict_ref _obj'+    checkUnexpectedReturnNULL "g_variant_dict_ref" result+    result' <- (wrapBoxed VariantDict) result+    touchManagedPtr _obj+    return result'++-- method VariantDict::remove+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_dict_remove" g_variant_dict_remove :: +    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"+    CString ->                              -- key : TBasicType TUTF8+    IO CInt+++variantDictRemove ::+    (MonadIO m) =>+    VariantDict ->                          -- _obj+    T.Text ->                               -- key+    m Bool+variantDictRemove _obj key = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    key' <- textToCString key+    result <- g_variant_dict_remove _obj' key'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem key'+    return result'++-- method VariantDict::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_dict_unref" g_variant_dict_unref :: +    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"+    IO ()+++variantDictUnref ::+    (MonadIO m) =>+    VariantDict ->                          -- _obj+    m ()+variantDictUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_variant_dict_unref _obj'+    touchManagedPtr _obj+    return ()++-- Enum VariantParseError++data VariantParseError = +      VariantParseErrorFailed+    | VariantParseErrorBasicTypeExpected+    | VariantParseErrorCannotInferType+    | VariantParseErrorDefiniteTypeExpected+    | VariantParseErrorInputNotAtEnd+    | VariantParseErrorInvalidCharacter+    | VariantParseErrorInvalidFormatString+    | VariantParseErrorInvalidObjectPath+    | VariantParseErrorInvalidSignature+    | VariantParseErrorInvalidTypeString+    | VariantParseErrorNoCommonType+    | VariantParseErrorNumberOutOfRange+    | VariantParseErrorNumberTooBig+    | VariantParseErrorTypeError+    | VariantParseErrorUnexpectedToken+    | VariantParseErrorUnknownKeyword+    | VariantParseErrorUnterminatedStringConstant+    | VariantParseErrorValueExpected+    | AnotherVariantParseError Int+    deriving (Show, Eq)++instance Enum VariantParseError where+    fromEnum VariantParseErrorFailed = 0+    fromEnum VariantParseErrorBasicTypeExpected = 1+    fromEnum VariantParseErrorCannotInferType = 2+    fromEnum VariantParseErrorDefiniteTypeExpected = 3+    fromEnum VariantParseErrorInputNotAtEnd = 4+    fromEnum VariantParseErrorInvalidCharacter = 5+    fromEnum VariantParseErrorInvalidFormatString = 6+    fromEnum VariantParseErrorInvalidObjectPath = 7+    fromEnum VariantParseErrorInvalidSignature = 8+    fromEnum VariantParseErrorInvalidTypeString = 9+    fromEnum VariantParseErrorNoCommonType = 10+    fromEnum VariantParseErrorNumberOutOfRange = 11+    fromEnum VariantParseErrorNumberTooBig = 12+    fromEnum VariantParseErrorTypeError = 13+    fromEnum VariantParseErrorUnexpectedToken = 14+    fromEnum VariantParseErrorUnknownKeyword = 15+    fromEnum VariantParseErrorUnterminatedStringConstant = 16+    fromEnum VariantParseErrorValueExpected = 17+    fromEnum (AnotherVariantParseError k) = k++    toEnum 0 = VariantParseErrorFailed+    toEnum 1 = VariantParseErrorBasicTypeExpected+    toEnum 2 = VariantParseErrorCannotInferType+    toEnum 3 = VariantParseErrorDefiniteTypeExpected+    toEnum 4 = VariantParseErrorInputNotAtEnd+    toEnum 5 = VariantParseErrorInvalidCharacter+    toEnum 6 = VariantParseErrorInvalidFormatString+    toEnum 7 = VariantParseErrorInvalidObjectPath+    toEnum 8 = VariantParseErrorInvalidSignature+    toEnum 9 = VariantParseErrorInvalidTypeString+    toEnum 10 = VariantParseErrorNoCommonType+    toEnum 11 = VariantParseErrorNumberOutOfRange+    toEnum 12 = VariantParseErrorNumberTooBig+    toEnum 13 = VariantParseErrorTypeError+    toEnum 14 = VariantParseErrorUnexpectedToken+    toEnum 15 = VariantParseErrorUnknownKeyword+    toEnum 16 = VariantParseErrorUnterminatedStringConstant+    toEnum 17 = VariantParseErrorValueExpected+    toEnum k = AnotherVariantParseError k++instance GErrorClass VariantParseError where+    gerrorClassDomain _ = "g-variant-parse-error-quark"++catchVariantParseError ::+    IO a ->+    (VariantParseError -> GErrorMessage -> IO a) ->+    IO a+catchVariantParseError = catchGErrorJustDomain++handleVariantParseError ::+    (VariantParseError -> GErrorMessage -> IO a) ->+    IO a ->+    IO a+handleVariantParseError = handleGErrorJustDomain++-- struct VariantType+newtype VariantType = VariantType (ForeignPtr VariantType)+noVariantType :: Maybe VariantType+noVariantType = Nothing++foreign import ccall "g_variant_type_get_gtype" c_g_variant_type_get_gtype :: +    IO GType++instance BoxedObject VariantType where+    boxedType _ = c_g_variant_type_get_gtype++-- method VariantType::new+-- method type : Constructor+-- Args : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_new" g_variant_type_new :: +    CString ->                              -- type_string : TBasicType TUTF8+    IO (Ptr VariantType)+++variantTypeNew ::+    (MonadIO m) =>+    T.Text ->                               -- type_string+    m VariantType+variantTypeNew type_string = liftIO $ do+    type_string' <- textToCString type_string+    result <- g_variant_type_new type_string'+    checkUnexpectedReturnNULL "g_variant_type_new" result+    result' <- (wrapBoxed VariantType) result+    freeMem type_string'+    return result'++-- method VariantType::new_array+-- method type : Constructor+-- Args : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_new_array" g_variant_type_new_array :: +    Ptr VariantType ->                      -- element : TInterface "GLib" "VariantType"+    IO (Ptr VariantType)+++variantTypeNewArray ::+    (MonadIO m) =>+    VariantType ->                          -- element+    m VariantType+variantTypeNewArray element = liftIO $ do+    let element' = unsafeManagedPtrGetPtr element+    result <- g_variant_type_new_array element'+    checkUnexpectedReturnNULL "g_variant_type_new_array" result+    result' <- (wrapBoxed VariantType) result+    touchManagedPtr element+    return result'++-- method VariantType::new_dict_entry+-- method type : Constructor+-- Args : [Arg {argName = "key", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "key", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_new_dict_entry" g_variant_type_new_dict_entry :: +    Ptr VariantType ->                      -- key : TInterface "GLib" "VariantType"+    Ptr VariantType ->                      -- value : TInterface "GLib" "VariantType"+    IO (Ptr VariantType)+++variantTypeNewDictEntry ::+    (MonadIO m) =>+    VariantType ->                          -- key+    VariantType ->                          -- value+    m VariantType+variantTypeNewDictEntry key value = liftIO $ do+    let key' = unsafeManagedPtrGetPtr key+    let value' = unsafeManagedPtrGetPtr value+    result <- g_variant_type_new_dict_entry key' value'+    checkUnexpectedReturnNULL "g_variant_type_new_dict_entry" result+    result' <- (wrapBoxed VariantType) result+    touchManagedPtr key+    touchManagedPtr value+    return result'++-- method VariantType::new_maybe+-- method type : Constructor+-- Args : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_new_maybe" g_variant_type_new_maybe :: +    Ptr VariantType ->                      -- element : TInterface "GLib" "VariantType"+    IO (Ptr VariantType)+++variantTypeNewMaybe ::+    (MonadIO m) =>+    VariantType ->                          -- element+    m VariantType+variantTypeNewMaybe element = liftIO $ do+    let element' = unsafeManagedPtrGetPtr element+    result <- g_variant_type_new_maybe element'+    checkUnexpectedReturnNULL "g_variant_type_new_maybe" result+    result' <- (wrapBoxed VariantType) result+    touchManagedPtr element+    return result'++-- method VariantType::new_tuple+-- method type : Constructor+-- Args : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "GLib" "VariantType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "GLib" "VariantType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_new_tuple" g_variant_type_new_tuple :: +    Ptr (Ptr VariantType) ->                -- items : TCArray False (-1) 1 (TInterface "GLib" "VariantType")+    Int32 ->                                -- length : TBasicType TInt32+    IO (Ptr VariantType)+++variantTypeNewTuple ::+    (MonadIO m) =>+    [VariantType] ->                        -- items+    m VariantType+variantTypeNewTuple items = liftIO $ do+    let length_ = fromIntegral $ length items+    let items' = map unsafeManagedPtrGetPtr items+    items'' <- packPtrArray items'+    result <- g_variant_type_new_tuple items'' length_+    checkUnexpectedReturnNULL "g_variant_type_new_tuple" result+    result' <- (wrapBoxed VariantType) result+    mapM_ touchManagedPtr items+    freeMem items''+    return result'++-- method VariantType::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_copy" g_variant_type_copy :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO (Ptr VariantType)+++variantTypeCopy ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m VariantType+variantTypeCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_copy _obj'+    checkUnexpectedReturnNULL "g_variant_type_copy" result+    result' <- (wrapBoxed VariantType) result+    touchManagedPtr _obj+    return result'++-- method VariantType::dup_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_dup_string" g_variant_type_dup_string :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO CString+++variantTypeDupString ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m T.Text+variantTypeDupString _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_dup_string _obj'+    checkUnexpectedReturnNULL "g_variant_type_dup_string" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method VariantType::element+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_element" g_variant_type_element :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO (Ptr VariantType)+++variantTypeElement ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m VariantType+variantTypeElement _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_element _obj'+    checkUnexpectedReturnNULL "g_variant_type_element" result+    result' <- (newBoxed VariantType) result+    touchManagedPtr _obj+    return result'++-- method VariantType::equal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type2", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type2", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_equal" g_variant_type_equal :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    Ptr VariantType ->                      -- type2 : TInterface "GLib" "VariantType"+    IO CInt+++variantTypeEqual ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    VariantType ->                          -- type2+    m Bool+variantTypeEqual _obj type2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let type2' = unsafeManagedPtrGetPtr type2+    result <- g_variant_type_equal _obj' type2'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr type2+    return result'++-- method VariantType::first+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_first" g_variant_type_first :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO (Ptr VariantType)+++variantTypeFirst ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m VariantType+variantTypeFirst _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_first _obj'+    checkUnexpectedReturnNULL "g_variant_type_first" result+    result' <- (newBoxed VariantType) result+    touchManagedPtr _obj+    return result'++-- method VariantType::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_free" g_variant_type_free :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO ()+++variantTypeFree ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m ()+variantTypeFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    g_variant_type_free _obj'+    touchManagedPtr _obj+    return ()++-- method VariantType::get_string_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_get_string_length" g_variant_type_get_string_length :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO Word64+++variantTypeGetStringLength ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m Word64+variantTypeGetStringLength _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_get_string_length _obj'+    touchManagedPtr _obj+    return result++-- method VariantType::hash+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_hash" g_variant_type_hash :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO Word32+++variantTypeHash ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m Word32+variantTypeHash _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_hash _obj'+    touchManagedPtr _obj+    return result++-- method VariantType::is_array+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_is_array" g_variant_type_is_array :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO CInt+++variantTypeIsArray ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m Bool+variantTypeIsArray _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_is_array _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method VariantType::is_basic+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_is_basic" g_variant_type_is_basic :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO CInt+++variantTypeIsBasic ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m Bool+variantTypeIsBasic _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_is_basic _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method VariantType::is_container+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_is_container" g_variant_type_is_container :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO CInt+++variantTypeIsContainer ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m Bool+variantTypeIsContainer _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_is_container _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method VariantType::is_definite+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_is_definite" g_variant_type_is_definite :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO CInt+++variantTypeIsDefinite ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m Bool+variantTypeIsDefinite _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_is_definite _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method VariantType::is_dict_entry+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_is_dict_entry" g_variant_type_is_dict_entry :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO CInt+++variantTypeIsDictEntry ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m Bool+variantTypeIsDictEntry _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_is_dict_entry _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method VariantType::is_maybe+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_is_maybe" g_variant_type_is_maybe :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO CInt+++variantTypeIsMaybe ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m Bool+variantTypeIsMaybe _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_is_maybe _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method VariantType::is_subtype_of+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "supertype", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "supertype", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_is_subtype_of" g_variant_type_is_subtype_of :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    Ptr VariantType ->                      -- supertype : TInterface "GLib" "VariantType"+    IO CInt+++variantTypeIsSubtypeOf ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    VariantType ->                          -- supertype+    m Bool+variantTypeIsSubtypeOf _obj supertype = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let supertype' = unsafeManagedPtrGetPtr supertype+    result <- g_variant_type_is_subtype_of _obj' supertype'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr supertype+    return result'++-- method VariantType::is_tuple+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_is_tuple" g_variant_type_is_tuple :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO CInt+++variantTypeIsTuple ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m Bool+variantTypeIsTuple _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_is_tuple _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method VariantType::is_variant+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_is_variant" g_variant_type_is_variant :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO CInt+++variantTypeIsVariant ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m Bool+variantTypeIsVariant _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_is_variant _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method VariantType::key+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_key" g_variant_type_key :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO (Ptr VariantType)+++variantTypeKey ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m VariantType+variantTypeKey _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_key _obj'+    checkUnexpectedReturnNULL "g_variant_type_key" result+    result' <- (newBoxed VariantType) result+    touchManagedPtr _obj+    return result'++-- method VariantType::n_items+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_n_items" g_variant_type_n_items :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO Word64+++variantTypeNItems ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m Word64+variantTypeNItems _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_n_items _obj'+    touchManagedPtr _obj+    return result++-- method VariantType::next+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_next" g_variant_type_next :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO (Ptr VariantType)+++variantTypeNext ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m VariantType+variantTypeNext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_next _obj'+    checkUnexpectedReturnNULL "g_variant_type_next" result+    result' <- (newBoxed VariantType) result+    touchManagedPtr _obj+    return result'++-- method VariantType::value+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_value" g_variant_type_value :: +    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"+    IO (Ptr VariantType)+++variantTypeValue ::+    (MonadIO m) =>+    VariantType ->                          -- _obj+    m VariantType+variantTypeValue _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- g_variant_type_value _obj'+    checkUnexpectedReturnNULL "g_variant_type_value" result+    result' <- (newBoxed VariantType) result+    touchManagedPtr _obj+    return result'++-- callback VoidFunc+voidFuncClosure :: VoidFunc -> IO Closure+voidFuncClosure cb = newCClosure =<< mkVoidFunc wrapped+    where wrapped = voidFuncWrapper Nothing cb++type VoidFuncC =+    IO ()++foreign import ccall "wrapper"+    mkVoidFunc :: VoidFuncC -> IO (FunPtr VoidFuncC)++type VoidFunc =+    IO ()++noVoidFunc :: Maybe VoidFunc+noVoidFunc = Nothing++voidFuncWrapper ::+    Maybe (Ptr (FunPtr (VoidFuncC))) ->+    VoidFunc ->+    IO ()+voidFuncWrapper funptrptr _cb = do+    _cb +    maybeReleaseFunPtr funptrptr++-- constant _ANALYZER_ANALYZING++_ANALYZER_ANALYZING :: Int32+_ANALYZER_ANALYZING = 1+-- constant _ASCII_DTOSTR_BUF_SIZE++_ASCII_DTOSTR_BUF_SIZE :: Int32+_ASCII_DTOSTR_BUF_SIZE = 39+-- constant _BIG_ENDIAN++_BIG_ENDIAN :: Int32+_BIG_ENDIAN = 4321+-- constant _CAN_INLINE++_CAN_INLINE :: Int32+_CAN_INLINE = 1+-- constant _CSET_A_2_Z++_CSET_A_2_Z :: T.Text+_CSET_A_2_Z = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"+-- constant _CSET_DIGITS++_CSET_DIGITS :: T.Text+_CSET_DIGITS = "0123456789"+-- constant _CSET_a_2_z++_CSET_a_2_z :: T.Text+_CSET_a_2_z = "abcdefghijklmnopqrstuvwxyz"+-- constant _DATALIST_FLAGS_MASK++_DATALIST_FLAGS_MASK :: Int32+_DATALIST_FLAGS_MASK = 3+-- constant _DATE_BAD_DAY++_DATE_BAD_DAY :: Int32+_DATE_BAD_DAY = 0+-- constant _DATE_BAD_JULIAN++_DATE_BAD_JULIAN :: Int32+_DATE_BAD_JULIAN = 0+-- constant _DATE_BAD_YEAR++_DATE_BAD_YEAR :: Int32+_DATE_BAD_YEAR = 0+-- constant _DIR_SEPARATOR++_DIR_SEPARATOR :: Int32+_DIR_SEPARATOR = 92+-- constant _DIR_SEPARATOR_S++_DIR_SEPARATOR_S :: T.Text+_DIR_SEPARATOR_S = "\\"+-- constant _E++_E :: Double+_E = 2.718282+-- constant _GINT16_FORMAT++_GINT16_FORMAT :: T.Text+_GINT16_FORMAT = "hi"+-- constant _GINT16_MODIFIER++_GINT16_MODIFIER :: T.Text+_GINT16_MODIFIER = "h"+-- constant _GINT32_FORMAT++_GINT32_FORMAT :: T.Text+_GINT32_FORMAT = "i"+-- constant _GINT32_MODIFIER++_GINT32_MODIFIER :: T.Text+_GINT32_MODIFIER = ""+-- constant _GINT64_FORMAT++_GINT64_FORMAT :: T.Text+_GINT64_FORMAT = "li"+-- constant _GINT64_MODIFIER++_GINT64_MODIFIER :: T.Text+_GINT64_MODIFIER = "l"+-- constant _GINTPTR_FORMAT++_GINTPTR_FORMAT :: T.Text+_GINTPTR_FORMAT = "li"+-- constant _GINTPTR_MODIFIER++_GINTPTR_MODIFIER :: T.Text+_GINTPTR_MODIFIER = "l"+-- constant _GNUC_FUNCTION+{-# DEPRECATED _GNUC_FUNCTION ["(Since version 2.16)","Use G_STRFUNC() instead"]#-}+_GNUC_FUNCTION :: T.Text+_GNUC_FUNCTION = ""+-- constant _GNUC_PRETTY_FUNCTION+{-# DEPRECATED _GNUC_PRETTY_FUNCTION ["(Since version 2.16)","Use G_STRFUNC() instead"]#-}+_GNUC_PRETTY_FUNCTION :: T.Text+_GNUC_PRETTY_FUNCTION = ""+-- constant _GSIZE_FORMAT++_GSIZE_FORMAT :: T.Text+_GSIZE_FORMAT = "lu"+-- constant _GSIZE_MODIFIER++_GSIZE_MODIFIER :: T.Text+_GSIZE_MODIFIER = "l"+-- constant _GSSIZE_FORMAT++_GSSIZE_FORMAT :: T.Text+_GSSIZE_FORMAT = "li"+-- constant _GSSIZE_MODIFIER++_GSSIZE_MODIFIER :: T.Text+_GSSIZE_MODIFIER = "l"+-- constant _GUINT16_FORMAT++_GUINT16_FORMAT :: T.Text+_GUINT16_FORMAT = "hu"+-- constant _GUINT32_FORMAT++_GUINT32_FORMAT :: T.Text+_GUINT32_FORMAT = "u"+-- constant _GUINT64_FORMAT++_GUINT64_FORMAT :: T.Text+_GUINT64_FORMAT = "lu"+-- constant _GUINTPTR_FORMAT++_GUINTPTR_FORMAT :: T.Text+_GUINTPTR_FORMAT = "lu"+-- constant _HAVE_GINT64++_HAVE_GINT64 :: Int32+_HAVE_GINT64 = 1+-- constant _HAVE_GNUC_VARARGS++_HAVE_GNUC_VARARGS :: Int32+_HAVE_GNUC_VARARGS = 1+-- constant _HAVE_GNUC_VISIBILITY++_HAVE_GNUC_VISIBILITY :: Int32+_HAVE_GNUC_VISIBILITY = 1+-- constant _HAVE_GROWING_STACK++_HAVE_GROWING_STACK :: Int32+_HAVE_GROWING_STACK = 0+-- constant _HAVE_INLINE++_HAVE_INLINE :: Int32+_HAVE_INLINE = 1+-- constant _HAVE_ISO_VARARGS++_HAVE_ISO_VARARGS :: Int32+_HAVE_ISO_VARARGS = 1+-- constant _HAVE___INLINE++_HAVE___INLINE :: Int32+_HAVE___INLINE = 1+-- constant _HAVE___INLINE__++_HAVE___INLINE__ :: Int32+_HAVE___INLINE__ = 1+-- constant _HOOK_FLAG_USER_SHIFT++_HOOK_FLAG_USER_SHIFT :: Int32+_HOOK_FLAG_USER_SHIFT = 4+-- constant _IEEE754_DOUBLE_BIAS++_IEEE754_DOUBLE_BIAS :: Int32+_IEEE754_DOUBLE_BIAS = 1023+-- constant _IEEE754_FLOAT_BIAS++_IEEE754_FLOAT_BIAS :: Int32+_IEEE754_FLOAT_BIAS = 127+-- constant _KEY_FILE_DESKTOP_GROUP++_KEY_FILE_DESKTOP_GROUP :: T.Text+_KEY_FILE_DESKTOP_GROUP = "Desktop Entry"+-- constant _KEY_FILE_DESKTOP_KEY_ACTIONS++_KEY_FILE_DESKTOP_KEY_ACTIONS :: T.Text+_KEY_FILE_DESKTOP_KEY_ACTIONS = "Actions"+-- constant _KEY_FILE_DESKTOP_KEY_CATEGORIES++_KEY_FILE_DESKTOP_KEY_CATEGORIES :: T.Text+_KEY_FILE_DESKTOP_KEY_CATEGORIES = "Categories"+-- constant _KEY_FILE_DESKTOP_KEY_COMMENT++_KEY_FILE_DESKTOP_KEY_COMMENT :: T.Text+_KEY_FILE_DESKTOP_KEY_COMMENT = "Comment"+-- constant _KEY_FILE_DESKTOP_KEY_DBUS_ACTIVATABLE++_KEY_FILE_DESKTOP_KEY_DBUS_ACTIVATABLE :: T.Text+_KEY_FILE_DESKTOP_KEY_DBUS_ACTIVATABLE = "DBusActivatable"+-- constant _KEY_FILE_DESKTOP_KEY_EXEC++_KEY_FILE_DESKTOP_KEY_EXEC :: T.Text+_KEY_FILE_DESKTOP_KEY_EXEC = "Exec"+-- constant _KEY_FILE_DESKTOP_KEY_GENERIC_NAME++_KEY_FILE_DESKTOP_KEY_GENERIC_NAME :: T.Text+_KEY_FILE_DESKTOP_KEY_GENERIC_NAME = "GenericName"+-- constant _KEY_FILE_DESKTOP_KEY_HIDDEN++_KEY_FILE_DESKTOP_KEY_HIDDEN :: T.Text+_KEY_FILE_DESKTOP_KEY_HIDDEN = "Hidden"+-- constant _KEY_FILE_DESKTOP_KEY_ICON++_KEY_FILE_DESKTOP_KEY_ICON :: T.Text+_KEY_FILE_DESKTOP_KEY_ICON = "Icon"+-- constant _KEY_FILE_DESKTOP_KEY_MIME_TYPE++_KEY_FILE_DESKTOP_KEY_MIME_TYPE :: T.Text+_KEY_FILE_DESKTOP_KEY_MIME_TYPE = "MimeType"+-- constant _KEY_FILE_DESKTOP_KEY_NAME++_KEY_FILE_DESKTOP_KEY_NAME :: T.Text+_KEY_FILE_DESKTOP_KEY_NAME = "Name"+-- constant _KEY_FILE_DESKTOP_KEY_NOT_SHOW_IN++_KEY_FILE_DESKTOP_KEY_NOT_SHOW_IN :: T.Text+_KEY_FILE_DESKTOP_KEY_NOT_SHOW_IN = "NotShowIn"+-- constant _KEY_FILE_DESKTOP_KEY_NO_DISPLAY++_KEY_FILE_DESKTOP_KEY_NO_DISPLAY :: T.Text+_KEY_FILE_DESKTOP_KEY_NO_DISPLAY = "NoDisplay"+-- constant _KEY_FILE_DESKTOP_KEY_ONLY_SHOW_IN++_KEY_FILE_DESKTOP_KEY_ONLY_SHOW_IN :: T.Text+_KEY_FILE_DESKTOP_KEY_ONLY_SHOW_IN = "OnlyShowIn"+-- constant _KEY_FILE_DESKTOP_KEY_PATH++_KEY_FILE_DESKTOP_KEY_PATH :: T.Text+_KEY_FILE_DESKTOP_KEY_PATH = "Path"+-- constant _KEY_FILE_DESKTOP_KEY_STARTUP_NOTIFY++_KEY_FILE_DESKTOP_KEY_STARTUP_NOTIFY :: T.Text+_KEY_FILE_DESKTOP_KEY_STARTUP_NOTIFY = "StartupNotify"+-- constant _KEY_FILE_DESKTOP_KEY_STARTUP_WM_CLASS++_KEY_FILE_DESKTOP_KEY_STARTUP_WM_CLASS :: T.Text+_KEY_FILE_DESKTOP_KEY_STARTUP_WM_CLASS = "StartupWMClass"+-- constant _KEY_FILE_DESKTOP_KEY_TERMINAL++_KEY_FILE_DESKTOP_KEY_TERMINAL :: T.Text+_KEY_FILE_DESKTOP_KEY_TERMINAL = "Terminal"+-- constant _KEY_FILE_DESKTOP_KEY_TRY_EXEC++_KEY_FILE_DESKTOP_KEY_TRY_EXEC :: T.Text+_KEY_FILE_DESKTOP_KEY_TRY_EXEC = "TryExec"+-- constant _KEY_FILE_DESKTOP_KEY_TYPE++_KEY_FILE_DESKTOP_KEY_TYPE :: T.Text+_KEY_FILE_DESKTOP_KEY_TYPE = "Type"+-- constant _KEY_FILE_DESKTOP_KEY_URL++_KEY_FILE_DESKTOP_KEY_URL :: T.Text+_KEY_FILE_DESKTOP_KEY_URL = "URL"+-- constant _KEY_FILE_DESKTOP_KEY_VERSION++_KEY_FILE_DESKTOP_KEY_VERSION :: T.Text+_KEY_FILE_DESKTOP_KEY_VERSION = "Version"+-- constant _KEY_FILE_DESKTOP_TYPE_APPLICATION++_KEY_FILE_DESKTOP_TYPE_APPLICATION :: T.Text+_KEY_FILE_DESKTOP_TYPE_APPLICATION = "Application"+-- constant _KEY_FILE_DESKTOP_TYPE_DIRECTORY++_KEY_FILE_DESKTOP_TYPE_DIRECTORY :: T.Text+_KEY_FILE_DESKTOP_TYPE_DIRECTORY = "Directory"+-- constant _KEY_FILE_DESKTOP_TYPE_LINK++_KEY_FILE_DESKTOP_TYPE_LINK :: T.Text+_KEY_FILE_DESKTOP_TYPE_LINK = "Link"+-- constant _LITTLE_ENDIAN++_LITTLE_ENDIAN :: Int32+_LITTLE_ENDIAN = 1234+-- constant _LN10++_LN10 :: Double+_LN10 = 2.302585+-- constant _LN2++_LN2 :: Double+_LN2 = 0.693147+-- constant _LOG_2_BASE_10++_LOG_2_BASE_10 :: Double+_LOG_2_BASE_10 = 0.301030+-- constant _LOG_DOMAIN++_LOG_DOMAIN :: Int8+_LOG_DOMAIN = 0+-- constant _LOG_FATAL_MASK++_LOG_FATAL_MASK :: Int32+_LOG_FATAL_MASK = 0+-- constant _LOG_LEVEL_USER_SHIFT++_LOG_LEVEL_USER_SHIFT :: Int32+_LOG_LEVEL_USER_SHIFT = 8+-- constant _MAJOR_VERSION++_MAJOR_VERSION :: Int32+_MAJOR_VERSION = 2+-- constant _MAXINT16++_MAXINT16 :: Int16+_MAXINT16 = 32767+-- constant _MAXINT32++_MAXINT32 :: Int32+_MAXINT32 = 2147483647+-- constant _MAXINT64++_MAXINT64 :: Int64+_MAXINT64 = 9223372036854775807+-- constant _MAXINT8++_MAXINT8 :: Int8+_MAXINT8 = 127+-- constant _MAXUINT16++_MAXUINT16 :: Word16+_MAXUINT16 = 65535+-- constant _MAXUINT32++_MAXUINT32 :: Word32+_MAXUINT32 = 4294967295+-- constant _MAXUINT64++_MAXUINT64 :: Word64+_MAXUINT64 = 18446744073709551615+-- constant _MAXUINT8++_MAXUINT8 :: Word8+_MAXUINT8 = 255+-- constant _MICRO_VERSION++_MICRO_VERSION :: Int32+_MICRO_VERSION = 0+-- constant _MININT16++_MININT16 :: Int16+_MININT16 = 32768+-- constant _MININT32++_MININT32 :: Int32+_MININT32 = 2147483648+-- constant _MININT64++_MININT64 :: Int64+_MININT64 = -9223372036854775808+-- constant _MININT8++_MININT8 :: Int8+_MININT8 = 128+-- constant _MINOR_VERSION++_MINOR_VERSION :: Int32+_MINOR_VERSION = 46+-- constant _MODULE_SUFFIX++_MODULE_SUFFIX :: T.Text+_MODULE_SUFFIX = "so"+-- constant _OPTION_REMAINING++_OPTION_REMAINING :: T.Text+_OPTION_REMAINING = ""+-- constant _PDP_ENDIAN++_PDP_ENDIAN :: Int32+_PDP_ENDIAN = 3412+-- constant _PI++_PI :: Double+_PI = 3.141593+-- constant _PI_2++_PI_2 :: Double+_PI_2 = 1.570796+-- constant _PI_4++_PI_4 :: Double+_PI_4 = 0.785398+-- constant _POLLFD_FORMAT++_POLLFD_FORMAT :: T.Text+_POLLFD_FORMAT = "%#I64x"+-- constant _PRIORITY_DEFAULT++_PRIORITY_DEFAULT :: Int32+_PRIORITY_DEFAULT = 0+-- constant _PRIORITY_DEFAULT_IDLE++_PRIORITY_DEFAULT_IDLE :: Int32+_PRIORITY_DEFAULT_IDLE = 200+-- constant _PRIORITY_HIGH++_PRIORITY_HIGH :: Int32+_PRIORITY_HIGH = -100+-- constant _PRIORITY_HIGH_IDLE++_PRIORITY_HIGH_IDLE :: Int32+_PRIORITY_HIGH_IDLE = 100+-- constant _PRIORITY_LOW++_PRIORITY_LOW :: Int32+_PRIORITY_LOW = 300+-- constant _SEARCHPATH_SEPARATOR++_SEARCHPATH_SEPARATOR :: Int32+_SEARCHPATH_SEPARATOR = 59+-- constant _SEARCHPATH_SEPARATOR_S++_SEARCHPATH_SEPARATOR_S :: T.Text+_SEARCHPATH_SEPARATOR_S = ";"+-- constant _SIZEOF_LONG++_SIZEOF_LONG :: Int32+_SIZEOF_LONG = 8+-- constant _SIZEOF_SIZE_T++_SIZEOF_SIZE_T :: Int32+_SIZEOF_SIZE_T = 8+-- constant _SIZEOF_SSIZE_T++_SIZEOF_SSIZE_T :: Int32+_SIZEOF_SSIZE_T = 8+-- constant _SIZEOF_VOID_P++_SIZEOF_VOID_P :: Int32+_SIZEOF_VOID_P = 8+-- constant _SOURCE_CONTINUE++_SOURCE_CONTINUE :: Bool+_SOURCE_CONTINUE = True+-- constant _SOURCE_REMOVE++_SOURCE_REMOVE :: Bool+_SOURCE_REMOVE = False+-- constant _SQRT2++_SQRT2 :: Double+_SQRT2 = 1.414214+-- constant _STR_DELIMITERS++_STR_DELIMITERS :: T.Text+_STR_DELIMITERS = "_-|> <."+-- constant _SYSDEF_AF_INET++_SYSDEF_AF_INET :: Int32+_SYSDEF_AF_INET = 2+-- constant _SYSDEF_AF_INET6++_SYSDEF_AF_INET6 :: Int32+_SYSDEF_AF_INET6 = 10+-- constant _SYSDEF_AF_UNIX++_SYSDEF_AF_UNIX :: Int32+_SYSDEF_AF_UNIX = 1+-- constant _SYSDEF_MSG_DONTROUTE++_SYSDEF_MSG_DONTROUTE :: Int32+_SYSDEF_MSG_DONTROUTE = 4+-- constant _SYSDEF_MSG_OOB++_SYSDEF_MSG_OOB :: Int32+_SYSDEF_MSG_OOB = 1+-- constant _SYSDEF_MSG_PEEK++_SYSDEF_MSG_PEEK :: Int32+_SYSDEF_MSG_PEEK = 2+-- constant _TIME_SPAN_DAY++_TIME_SPAN_DAY :: Int64+_TIME_SPAN_DAY = 86400000000+-- constant _TIME_SPAN_HOUR++_TIME_SPAN_HOUR :: Int64+_TIME_SPAN_HOUR = 3600000000+-- constant _TIME_SPAN_MILLISECOND++_TIME_SPAN_MILLISECOND :: Int64+_TIME_SPAN_MILLISECOND = 1000+-- constant _TIME_SPAN_MINUTE++_TIME_SPAN_MINUTE :: Int64+_TIME_SPAN_MINUTE = 60000000+-- constant _TIME_SPAN_SECOND++_TIME_SPAN_SECOND :: Int64+_TIME_SPAN_SECOND = 1000000+-- constant _UNICHAR_MAX_DECOMPOSITION_LENGTH++_UNICHAR_MAX_DECOMPOSITION_LENGTH :: Int32+_UNICHAR_MAX_DECOMPOSITION_LENGTH = 18+-- constant _URI_RESERVED_CHARS_GENERIC_DELIMITERS++_URI_RESERVED_CHARS_GENERIC_DELIMITERS :: T.Text+_URI_RESERVED_CHARS_GENERIC_DELIMITERS = ":/?#[]@"+-- constant _URI_RESERVED_CHARS_SUBCOMPONENT_DELIMITERS++_URI_RESERVED_CHARS_SUBCOMPONENT_DELIMITERS :: T.Text+_URI_RESERVED_CHARS_SUBCOMPONENT_DELIMITERS = "!$&'()*+,;="+-- constant _USEC_PER_SEC++_USEC_PER_SEC :: Int32+_USEC_PER_SEC = 1000000+-- constant _VA_COPY_AS_ARRAY++_VA_COPY_AS_ARRAY :: Int32+_VA_COPY_AS_ARRAY = 1+-- constant _VERSION_MIN_REQUIRED++_VERSION_MIN_REQUIRED :: Int32+_VERSION_MIN_REQUIRED = 2+-- constant _WIN32_MSG_HANDLE++_WIN32_MSG_HANDLE :: Int32+_WIN32_MSG_HANDLE = 19981206+-- function g_access+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_access" g_access :: +    CString ->                              -- filename : TBasicType TUTF8+    Int32 ->                                -- mode : TBasicType TInt32+    IO Int32+++access ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    Int32 ->                                -- mode+    m Int32+access filename mode = liftIO $ do+    filename' <- textToCString filename+    result <- g_access filename' mode+    freeMem filename'+    return result++-- function g_ascii_digit_value+-- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_digit_value" g_ascii_digit_value :: +    Int8 ->                                 -- c : TBasicType TInt8+    IO Int32+++asciiDigitValue ::+    (MonadIO m) =>+    Int8 ->                                 -- c+    m Int32+asciiDigitValue c = liftIO $ do+    result <- g_ascii_digit_value c+    return result++-- function g_ascii_dtostr+-- Args : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_dtostr" g_ascii_dtostr :: +    CString ->                              -- buffer : TBasicType TUTF8+    Int32 ->                                -- buf_len : TBasicType TInt32+    CDouble ->                              -- d : TBasicType TDouble+    IO CString+++asciiDtostr ::+    (MonadIO m) =>+    T.Text ->                               -- buffer+    Int32 ->                                -- buf_len+    Double ->                               -- d+    m T.Text+asciiDtostr buffer buf_len d = liftIO $ do+    buffer' <- textToCString buffer+    let d' = realToFrac d+    result <- g_ascii_dtostr buffer' buf_len d'+    checkUnexpectedReturnNULL "g_ascii_dtostr" result+    result' <- cstringToText result+    freeMem result+    freeMem buffer'+    return result'++-- function g_ascii_formatd+-- Args : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_formatd" g_ascii_formatd :: +    CString ->                              -- buffer : TBasicType TUTF8+    Int32 ->                                -- buf_len : TBasicType TInt32+    CString ->                              -- format : TBasicType TUTF8+    CDouble ->                              -- d : TBasicType TDouble+    IO CString+++asciiFormatd ::+    (MonadIO m) =>+    T.Text ->                               -- buffer+    Int32 ->                                -- buf_len+    T.Text ->                               -- format+    Double ->                               -- d+    m T.Text+asciiFormatd buffer buf_len format d = liftIO $ do+    buffer' <- textToCString buffer+    format' <- textToCString format+    let d' = realToFrac d+    result <- g_ascii_formatd buffer' buf_len format' d'+    checkUnexpectedReturnNULL "g_ascii_formatd" result+    result' <- cstringToText result+    freeMem result+    freeMem buffer'+    freeMem format'+    return result'++-- function g_ascii_strcasecmp+-- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_strcasecmp" g_ascii_strcasecmp :: +    CString ->                              -- s1 : TBasicType TUTF8+    CString ->                              -- s2 : TBasicType TUTF8+    IO Int32+++asciiStrcasecmp ::+    (MonadIO m) =>+    T.Text ->                               -- s1+    T.Text ->                               -- s2+    m Int32+asciiStrcasecmp s1 s2 = liftIO $ do+    s1' <- textToCString s1+    s2' <- textToCString s2+    result <- g_ascii_strcasecmp s1' s2'+    freeMem s1'+    freeMem s2'+    return result++-- function g_ascii_strdown+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_strdown" g_ascii_strdown :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO CString+++asciiStrdown ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    m T.Text+asciiStrdown str len = liftIO $ do+    str' <- textToCString str+    result <- g_ascii_strdown str' len+    checkUnexpectedReturnNULL "g_ascii_strdown" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_ascii_strncasecmp+-- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_strncasecmp" g_ascii_strncasecmp :: +    CString ->                              -- s1 : TBasicType TUTF8+    CString ->                              -- s2 : TBasicType TUTF8+    Word64 ->                               -- n : TBasicType TUInt64+    IO Int32+++asciiStrncasecmp ::+    (MonadIO m) =>+    T.Text ->                               -- s1+    T.Text ->                               -- s2+    Word64 ->                               -- n+    m Int32+asciiStrncasecmp s1 s2 n = liftIO $ do+    s1' <- textToCString s1+    s2' <- textToCString s2+    result <- g_ascii_strncasecmp s1' s2' n+    freeMem s1'+    freeMem s2'+    return result++-- function g_ascii_strtod+-- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_strtod" g_ascii_strtod :: +    CString ->                              -- nptr : TBasicType TUTF8+    CString ->                              -- endptr : TBasicType TUTF8+    IO CDouble+++asciiStrtod ::+    (MonadIO m) =>+    T.Text ->                               -- nptr+    T.Text ->                               -- endptr+    m Double+asciiStrtod nptr endptr = liftIO $ do+    nptr' <- textToCString nptr+    endptr' <- textToCString endptr+    result <- g_ascii_strtod nptr' endptr'+    let result' = realToFrac result+    freeMem nptr'+    freeMem endptr'+    return result'++-- function g_ascii_strtoll+-- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_strtoll" g_ascii_strtoll :: +    CString ->                              -- nptr : TBasicType TUTF8+    CString ->                              -- endptr : TBasicType TUTF8+    Word32 ->                               -- base : TBasicType TUInt32+    IO Int64+++asciiStrtoll ::+    (MonadIO m) =>+    T.Text ->                               -- nptr+    T.Text ->                               -- endptr+    Word32 ->                               -- base+    m Int64+asciiStrtoll nptr endptr base = liftIO $ do+    nptr' <- textToCString nptr+    endptr' <- textToCString endptr+    result <- g_ascii_strtoll nptr' endptr' base+    freeMem nptr'+    freeMem endptr'+    return result++-- function g_ascii_strtoull+-- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_strtoull" g_ascii_strtoull :: +    CString ->                              -- nptr : TBasicType TUTF8+    CString ->                              -- endptr : TBasicType TUTF8+    Word32 ->                               -- base : TBasicType TUInt32+    IO Word64+++asciiStrtoull ::+    (MonadIO m) =>+    T.Text ->                               -- nptr+    T.Text ->                               -- endptr+    Word32 ->                               -- base+    m Word64+asciiStrtoull nptr endptr base = liftIO $ do+    nptr' <- textToCString nptr+    endptr' <- textToCString endptr+    result <- g_ascii_strtoull nptr' endptr' base+    freeMem nptr'+    freeMem endptr'+    return result++-- function g_ascii_strup+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_strup" g_ascii_strup :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO CString+++asciiStrup ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    m T.Text+asciiStrup str len = liftIO $ do+    str' <- textToCString str+    result <- g_ascii_strup str' len+    checkUnexpectedReturnNULL "g_ascii_strup" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_ascii_tolower+-- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt8+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_tolower" g_ascii_tolower :: +    Int8 ->                                 -- c : TBasicType TInt8+    IO Int8+++asciiTolower ::+    (MonadIO m) =>+    Int8 ->                                 -- c+    m Int8+asciiTolower c = liftIO $ do+    result <- g_ascii_tolower c+    return result++-- function g_ascii_toupper+-- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt8+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_toupper" g_ascii_toupper :: +    Int8 ->                                 -- c : TBasicType TInt8+    IO Int8+++asciiToupper ::+    (MonadIO m) =>+    Int8 ->                                 -- c+    m Int8+asciiToupper c = liftIO $ do+    result <- g_ascii_toupper c+    return result++-- function g_ascii_xdigit_value+-- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_ascii_xdigit_value" g_ascii_xdigit_value :: +    Int8 ->                                 -- c : TBasicType TInt8+    IO Int32+++asciiXdigitValue ::+    (MonadIO m) =>+    Int8 ->                                 -- c+    m Int32+asciiXdigitValue c = liftIO $ do+    result <- g_ascii_xdigit_value c+    return result++-- function g_assert_warning+-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_assert_warning" g_assert_warning :: +    CString ->                              -- log_domain : TBasicType TUTF8+    CString ->                              -- file : TBasicType TUTF8+    Int32 ->                                -- line : TBasicType TInt32+    CString ->                              -- pretty_function : TBasicType TUTF8+    CString ->                              -- expression : TBasicType TUTF8+    IO ()+++assertWarning ::+    (MonadIO m) =>+    T.Text ->                               -- log_domain+    T.Text ->                               -- file+    Int32 ->                                -- line+    T.Text ->                               -- pretty_function+    T.Text ->                               -- expression+    m ()+assertWarning log_domain file line pretty_function expression = liftIO $ do+    log_domain' <- textToCString log_domain+    file' <- textToCString file+    pretty_function' <- textToCString pretty_function+    expression' <- textToCString expression+    g_assert_warning log_domain' file' line pretty_function' expression'+    freeMem log_domain'+    freeMem file'+    freeMem pretty_function'+    freeMem expression'+    return ()++-- function g_assertion_message+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_assertion_message" g_assertion_message :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- file : TBasicType TUTF8+    Int32 ->                                -- line : TBasicType TInt32+    CString ->                              -- func : TBasicType TUTF8+    CString ->                              -- message : TBasicType TUTF8+    IO ()+++assertionMessage ::+    (MonadIO m) =>+    T.Text ->                               -- domain+    T.Text ->                               -- file+    Int32 ->                                -- line+    T.Text ->                               -- func+    T.Text ->                               -- message+    m ()+assertionMessage domain file line func message = liftIO $ do+    domain' <- textToCString domain+    file' <- textToCString file+    func' <- textToCString func+    message' <- textToCString message+    g_assertion_message domain' file' line func' message'+    freeMem domain'+    freeMem file'+    freeMem func'+    freeMem message'+    return ()++-- function g_assertion_message_cmpstr+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cmp", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cmp", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_assertion_message_cmpstr" g_assertion_message_cmpstr :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- file : TBasicType TUTF8+    Int32 ->                                -- line : TBasicType TInt32+    CString ->                              -- func : TBasicType TUTF8+    CString ->                              -- expr : TBasicType TUTF8+    CString ->                              -- arg1 : TBasicType TUTF8+    CString ->                              -- cmp : TBasicType TUTF8+    CString ->                              -- arg2 : TBasicType TUTF8+    IO ()+++assertionMessageCmpstr ::+    (MonadIO m) =>+    T.Text ->                               -- domain+    T.Text ->                               -- file+    Int32 ->                                -- line+    T.Text ->                               -- func+    T.Text ->                               -- expr+    T.Text ->                               -- arg1+    T.Text ->                               -- cmp+    T.Text ->                               -- arg2+    m ()+assertionMessageCmpstr domain file line func expr arg1 cmp arg2 = liftIO $ do+    domain' <- textToCString domain+    file' <- textToCString file+    func' <- textToCString func+    expr' <- textToCString expr+    arg1' <- textToCString arg1+    cmp' <- textToCString cmp+    arg2' <- textToCString arg2+    g_assertion_message_cmpstr domain' file' line func' expr' arg1' cmp' arg2'+    freeMem domain'+    freeMem file'+    freeMem func'+    freeMem expr'+    freeMem arg1'+    freeMem cmp'+    freeMem arg2'+    return ()++-- function g_assertion_message_error+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_assertion_message_error" g_assertion_message_error :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- file : TBasicType TUTF8+    Int32 ->                                -- line : TBasicType TInt32+    CString ->                              -- func : TBasicType TUTF8+    CString ->                              -- expr : TBasicType TUTF8+    Ptr GError ->                           -- error : TError+    Word32 ->                               -- error_domain : TBasicType TUInt32+    Int32 ->                                -- error_code : TBasicType TInt32+    IO ()+++assertionMessageError ::+    (MonadIO m) =>+    T.Text ->                               -- domain+    T.Text ->                               -- file+    Int32 ->                                -- line+    T.Text ->                               -- func+    T.Text ->                               -- expr+    GError ->                               -- error+    Word32 ->                               -- error_domain+    Int32 ->                                -- error_code+    m ()+assertionMessageError domain file line func expr error_ error_domain error_code = liftIO $ do+    domain' <- textToCString domain+    file' <- textToCString file+    func' <- textToCString func+    expr' <- textToCString expr+    let error_' = unsafeManagedPtrGetPtr error_+    g_assertion_message_error domain' file' line func' expr' error_' error_domain error_code+    touchManagedPtr error_+    freeMem domain'+    freeMem file'+    freeMem func'+    freeMem expr'+    return ()++-- function g_assertion_message_expr+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_assertion_message_expr" g_assertion_message_expr :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- file : TBasicType TUTF8+    Int32 ->                                -- line : TBasicType TInt32+    CString ->                              -- func : TBasicType TUTF8+    CString ->                              -- expr : TBasicType TUTF8+    IO ()+++assertionMessageExpr ::+    (MonadIO m) =>+    T.Text ->                               -- domain+    T.Text ->                               -- file+    Int32 ->                                -- line+    T.Text ->                               -- func+    T.Text ->                               -- expr+    m ()+assertionMessageExpr domain file line func expr = liftIO $ do+    domain' <- textToCString domain+    file' <- textToCString file+    func' <- textToCString func+    expr' <- textToCString expr+    g_assertion_message_expr domain' file' line func' expr'+    freeMem domain'+    freeMem file'+    freeMem func'+    freeMem expr'+    return ()++-- function g_atexit+-- Args : [Arg {argName = "func", argType = TInterface "GLib" "VoidFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "func", argType = TInterface "GLib" "VoidFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_atexit" g_atexit :: +    FunPtr VoidFuncC ->                     -- func : TInterface "GLib" "VoidFunc"+    IO ()++{-# DEPRECATED atexit ["(Since version 2.32)","It is best to avoid g_atexit()."]#-}+atexit ::+    (MonadIO m) =>+    VoidFunc ->                             -- func+    m ()+atexit func = liftIO $ do+    ptrfunc <- callocMem :: IO (Ptr (FunPtr VoidFuncC))+    func' <- mkVoidFunc (voidFuncWrapper (Just ptrfunc) func)+    poke ptrfunc func'+    g_atexit func'+    return ()++-- function g_atomic_int_add+-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_int_add" g_atomic_int_add :: +    Int32 ->                                -- atomic : TBasicType TInt32+    Int32 ->                                -- val : TBasicType TInt32+    IO Int32+++atomicIntAdd ::+    (MonadIO m) =>+    Int32 ->                                -- atomic+    Int32 ->                                -- val+    m Int32+atomicIntAdd atomic val = liftIO $ do+    result <- g_atomic_int_add atomic val+    return result++-- function g_atomic_int_and+-- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_int_and" g_atomic_int_and :: +    Word32 ->                               -- atomic : TBasicType TUInt32+    Word32 ->                               -- val : TBasicType TUInt32+    IO Word32+++atomicIntAnd ::+    (MonadIO m) =>+    Word32 ->                               -- atomic+    Word32 ->                               -- val+    m Word32+atomicIntAnd atomic val = liftIO $ do+    result <- g_atomic_int_and atomic val+    return result++-- function g_atomic_int_compare_and_exchange+-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_int_compare_and_exchange" g_atomic_int_compare_and_exchange :: +    Int32 ->                                -- atomic : TBasicType TInt32+    Int32 ->                                -- oldval : TBasicType TInt32+    Int32 ->                                -- newval : TBasicType TInt32+    IO CInt+++atomicIntCompareAndExchange ::+    (MonadIO m) =>+    Int32 ->                                -- atomic+    Int32 ->                                -- oldval+    Int32 ->                                -- newval+    m Bool+atomicIntCompareAndExchange atomic oldval newval = liftIO $ do+    result <- g_atomic_int_compare_and_exchange atomic oldval newval+    let result' = (/= 0) result+    return result'++-- function g_atomic_int_dec_and_test+-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_int_dec_and_test" g_atomic_int_dec_and_test :: +    Int32 ->                                -- atomic : TBasicType TInt32+    IO CInt+++atomicIntDecAndTest ::+    (MonadIO m) =>+    Int32 ->                                -- atomic+    m Bool+atomicIntDecAndTest atomic = liftIO $ do+    result <- g_atomic_int_dec_and_test atomic+    let result' = (/= 0) result+    return result'++-- function g_atomic_int_exchange_and_add+-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_int_exchange_and_add" g_atomic_int_exchange_and_add :: +    Int32 ->                                -- atomic : TBasicType TInt32+    Int32 ->                                -- val : TBasicType TInt32+    IO Int32++{-# DEPRECATED atomicIntExchangeAndAdd ["(Since version 2.30)","Use g_atomic_int_add() instead."]#-}+atomicIntExchangeAndAdd ::+    (MonadIO m) =>+    Int32 ->                                -- atomic+    Int32 ->                                -- val+    m Int32+atomicIntExchangeAndAdd atomic val = liftIO $ do+    result <- g_atomic_int_exchange_and_add atomic val+    return result++-- function g_atomic_int_get+-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_int_get" g_atomic_int_get :: +    Int32 ->                                -- atomic : TBasicType TInt32+    IO Int32+++atomicIntGet ::+    (MonadIO m) =>+    Int32 ->                                -- atomic+    m Int32+atomicIntGet atomic = liftIO $ do+    result <- g_atomic_int_get atomic+    return result++-- function g_atomic_int_inc+-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_int_inc" g_atomic_int_inc :: +    Int32 ->                                -- atomic : TBasicType TInt32+    IO ()+++atomicIntInc ::+    (MonadIO m) =>+    Int32 ->                                -- atomic+    m ()+atomicIntInc atomic = liftIO $ do+    g_atomic_int_inc atomic+    return ()++-- function g_atomic_int_or+-- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_int_or" g_atomic_int_or :: +    Word32 ->                               -- atomic : TBasicType TUInt32+    Word32 ->                               -- val : TBasicType TUInt32+    IO Word32+++atomicIntOr ::+    (MonadIO m) =>+    Word32 ->                               -- atomic+    Word32 ->                               -- val+    m Word32+atomicIntOr atomic val = liftIO $ do+    result <- g_atomic_int_or atomic val+    return result++-- function g_atomic_int_set+-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_int_set" g_atomic_int_set :: +    Int32 ->                                -- atomic : TBasicType TInt32+    Int32 ->                                -- newval : TBasicType TInt32+    IO ()+++atomicIntSet ::+    (MonadIO m) =>+    Int32 ->                                -- atomic+    Int32 ->                                -- newval+    m ()+atomicIntSet atomic newval = liftIO $ do+    g_atomic_int_set atomic newval+    return ()++-- function g_atomic_int_xor+-- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_int_xor" g_atomic_int_xor :: +    Word32 ->                               -- atomic : TBasicType TUInt32+    Word32 ->                               -- val : TBasicType TUInt32+    IO Word32+++atomicIntXor ::+    (MonadIO m) =>+    Word32 ->                               -- atomic+    Word32 ->                               -- val+    m Word32+atomicIntXor atomic val = liftIO $ do+    result <- g_atomic_int_xor atomic val+    return result++-- function g_atomic_pointer_add+-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_pointer_add" g_atomic_pointer_add :: +    Ptr () ->                               -- atomic : TBasicType TVoid+    Int64 ->                                -- val : TBasicType TInt64+    IO Int64+++atomicPointerAdd ::+    (MonadIO m) =>+    Ptr () ->                               -- atomic+    Int64 ->                                -- val+    m Int64+atomicPointerAdd atomic val = liftIO $ do+    result <- g_atomic_pointer_add atomic val+    return result++-- function g_atomic_pointer_and+-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_pointer_and" g_atomic_pointer_and :: +    Ptr () ->                               -- atomic : TBasicType TVoid+    Word64 ->                               -- val : TBasicType TUInt64+    IO Word64+++atomicPointerAnd ::+    (MonadIO m) =>+    Ptr () ->                               -- atomic+    Word64 ->                               -- val+    m Word64+atomicPointerAnd atomic val = liftIO $ do+    result <- g_atomic_pointer_and atomic val+    return result++-- function g_atomic_pointer_compare_and_exchange+-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_pointer_compare_and_exchange" g_atomic_pointer_compare_and_exchange :: +    Ptr () ->                               -- atomic : TBasicType TVoid+    Ptr () ->                               -- oldval : TBasicType TVoid+    Ptr () ->                               -- newval : TBasicType TVoid+    IO CInt+++atomicPointerCompareAndExchange ::+    (MonadIO m) =>+    Ptr () ->                               -- atomic+    Ptr () ->                               -- oldval+    Ptr () ->                               -- newval+    m Bool+atomicPointerCompareAndExchange atomic oldval newval = liftIO $ do+    result <- g_atomic_pointer_compare_and_exchange atomic oldval newval+    let result' = (/= 0) result+    return result'++-- function g_atomic_pointer_or+-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_pointer_or" g_atomic_pointer_or :: +    Ptr () ->                               -- atomic : TBasicType TVoid+    Word64 ->                               -- val : TBasicType TUInt64+    IO Word64+++atomicPointerOr ::+    (MonadIO m) =>+    Ptr () ->                               -- atomic+    Word64 ->                               -- val+    m Word64+atomicPointerOr atomic val = liftIO $ do+    result <- g_atomic_pointer_or atomic val+    return result++-- function g_atomic_pointer_set+-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_pointer_set" g_atomic_pointer_set :: +    Ptr () ->                               -- atomic : TBasicType TVoid+    Ptr () ->                               -- newval : TBasicType TVoid+    IO ()+++atomicPointerSet ::+    (MonadIO m) =>+    Ptr () ->                               -- atomic+    Ptr () ->                               -- newval+    m ()+atomicPointerSet atomic newval = liftIO $ do+    g_atomic_pointer_set atomic newval+    return ()++-- function g_atomic_pointer_xor+-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_atomic_pointer_xor" g_atomic_pointer_xor :: +    Ptr () ->                               -- atomic : TBasicType TVoid+    Word64 ->                               -- val : TBasicType TUInt64+    IO Word64+++atomicPointerXor ::+    (MonadIO m) =>+    Ptr () ->                               -- atomic+    Word64 ->                               -- val+    m Word64+atomicPointerXor atomic val = liftIO $ do+    result <- g_atomic_pointer_xor atomic val+    return result++-- function g_base64_decode+-- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 1 (TBasicType TUInt8)+-- throws : False+-- Skip return : False++foreign import ccall "g_base64_decode" g_base64_decode :: +    CString ->                              -- text : TBasicType TUTF8+    Ptr Word64 ->                           -- out_len : TBasicType TUInt64+    IO (Ptr Word8)+++base64Decode ::+    (MonadIO m) =>+    T.Text ->                               -- text+    m ByteString+base64Decode text = liftIO $ do+    text' <- textToCString text+    out_len <- allocMem :: IO (Ptr Word64)+    result <- g_base64_decode text' out_len+    out_len' <- peek out_len+    checkUnexpectedReturnNULL "g_base64_decode" result+    result' <- (unpackByteStringWithLength out_len') result+    freeMem result+    freeMem text'+    freeMem out_len+    return result'++-- function g_base64_decode_inplace+-- Args : [Arg {argName = "text", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "text", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TUInt8+-- throws : False+-- Skip return : False++foreign import ccall "g_base64_decode_inplace" g_base64_decode_inplace :: +    Ptr (Ptr Word8) ->                      -- text : TCArray False (-1) 1 (TBasicType TUInt8)+    Ptr Word64 ->                           -- out_len : TBasicType TUInt64+    IO Word8+++base64DecodeInplace ::+    (MonadIO m) =>+    ByteString ->                           -- text+    m (Word8,ByteString)+base64DecodeInplace text = liftIO $ do+    let out_len = fromIntegral $ B.length text+    text' <- packByteString text+    text'' <- allocMem :: IO (Ptr (Ptr Word8))+    poke text'' text'+    out_len' <- allocMem :: IO (Ptr Word64)+    poke out_len' out_len+    result <- g_base64_decode_inplace text'' out_len'+    out_len'' <- peek out_len'+    text''' <- peek text''+    text'''' <- (unpackByteStringWithLength out_len'') text'''+    freeMem text'''+    freeMem text''+    freeMem out_len'+    return (result, text'''')++-- function g_base64_encode+-- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_base64_encode" g_base64_encode :: +    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)+    Word64 ->                               -- len : TBasicType TUInt64+    IO CString+++base64Encode ::+    (MonadIO m) =>+    ByteString ->                           -- data+    m T.Text+base64Encode data_ = liftIO $ do+    let len = fromIntegral $ B.length data_+    data_' <- packByteString data_+    result <- g_base64_encode data_' len+    checkUnexpectedReturnNULL "g_base64_encode" result+    result' <- cstringToText result+    freeMem result+    freeMem data_'+    return result'++-- function g_basename+-- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_basename" g_basename :: +    CString ->                              -- file_name : TBasicType TUTF8+    IO CString++{-# DEPRECATED basename ["(Since version 2.2)","Use g_path_get_basename() instead, but notice","    that g_path_get_basename() allocates new memory for the","    returned string, unlike this function which returns a pointer","    into the argument."]#-}+basename ::+    (MonadIO m) =>+    T.Text ->                               -- file_name+    m T.Text+basename file_name = liftIO $ do+    file_name' <- textToCString file_name+    result <- g_basename file_name'+    checkUnexpectedReturnNULL "g_basename" result+    result' <- cstringToText result+    freeMem file_name'+    return result'++-- function g_bit_lock+-- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bit_lock" g_bit_lock :: +    Int32 ->                                -- address : TBasicType TInt32+    Int32 ->                                -- lock_bit : TBasicType TInt32+    IO ()+++bitLock ::+    (MonadIO m) =>+    Int32 ->                                -- address+    Int32 ->                                -- lock_bit+    m ()+bitLock address lock_bit = liftIO $ do+    g_bit_lock address lock_bit+    return ()++-- function g_bit_nth_lsf+-- Args : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_bit_nth_lsf" g_bit_nth_lsf :: +    Word64 ->                               -- mask : TBasicType TUInt64+    Int32 ->                                -- nth_bit : TBasicType TInt32+    IO Int32+++bitNthLsf ::+    (MonadIO m) =>+    Word64 ->                               -- mask+    Int32 ->                                -- nth_bit+    m Int32+bitNthLsf mask nth_bit = liftIO $ do+    result <- g_bit_nth_lsf mask nth_bit+    return result++-- function g_bit_nth_msf+-- Args : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_bit_nth_msf" g_bit_nth_msf :: +    Word64 ->                               -- mask : TBasicType TUInt64+    Int32 ->                                -- nth_bit : TBasicType TInt32+    IO Int32+++bitNthMsf ::+    (MonadIO m) =>+    Word64 ->                               -- mask+    Int32 ->                                -- nth_bit+    m Int32+bitNthMsf mask nth_bit = liftIO $ do+    result <- g_bit_nth_msf mask nth_bit+    return result++-- function g_bit_storage+-- Args : [Arg {argName = "number", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "number", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_bit_storage" g_bit_storage :: +    Word64 ->                               -- number : TBasicType TUInt64+    IO Word32+++bitStorage ::+    (MonadIO m) =>+    Word64 ->                               -- number+    m Word32+bitStorage number = liftIO $ do+    result <- g_bit_storage number+    return result++-- function g_bit_trylock+-- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_bit_trylock" g_bit_trylock :: +    Int32 ->                                -- address : TBasicType TInt32+    Int32 ->                                -- lock_bit : TBasicType TInt32+    IO CInt+++bitTrylock ::+    (MonadIO m) =>+    Int32 ->                                -- address+    Int32 ->                                -- lock_bit+    m Bool+bitTrylock address lock_bit = liftIO $ do+    result <- g_bit_trylock address lock_bit+    let result' = (/= 0) result+    return result'++-- function g_bit_unlock+-- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_bit_unlock" g_bit_unlock :: +    Int32 ->                                -- address : TBasicType TInt32+    Int32 ->                                -- lock_bit : TBasicType TInt32+    IO ()+++bitUnlock ::+    (MonadIO m) =>+    Int32 ->                                -- address+    Int32 ->                                -- lock_bit+    m ()+bitUnlock address lock_bit = liftIO $ do+    g_bit_unlock address lock_bit+    return ()++-- function g_bookmark_file_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_bookmark_file_error_quark" g_bookmark_file_error_quark :: +    IO Word32+++bookmarkFileErrorQuark ::+    (MonadIO m) =>+    m Word32+bookmarkFileErrorQuark  = liftIO $ do+    result <- g_bookmark_file_error_quark+    return result++-- function g_build_filenamev+-- Args : [Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_build_filenamev" g_build_filenamev :: +    Ptr CString ->                          -- args : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO CString+++buildFilenamev ::+    (MonadIO m) =>+    [T.Text] ->                             -- args+    m T.Text+buildFilenamev args = liftIO $ do+    args' <- packZeroTerminatedUTF8CArray args+    result <- g_build_filenamev args'+    checkUnexpectedReturnNULL "g_build_filenamev" result+    result' <- cstringToText result+    freeMem result+    mapZeroTerminatedCArray freeMem args'+    freeMem args'+    return result'++-- function g_build_pathv+-- Args : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_build_pathv" g_build_pathv :: +    CString ->                              -- separator : TBasicType TUTF8+    Ptr CString ->                          -- args : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO CString+++buildPathv ::+    (MonadIO m) =>+    T.Text ->                               -- separator+    [T.Text] ->                             -- args+    m T.Text+buildPathv separator args = liftIO $ do+    separator' <- textToCString separator+    args' <- packZeroTerminatedUTF8CArray args+    result <- g_build_pathv separator' args'+    checkUnexpectedReturnNULL "g_build_pathv" result+    result' <- cstringToText result+    freeMem result+    freeMem separator'+    mapZeroTerminatedCArray freeMem args'+    freeMem args'+    return result'++-- function g_byte_array_free+-- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt8+-- throws : False+-- Skip return : False++foreign import ccall "g_byte_array_free" g_byte_array_free :: +    Ptr GByteArray ->                       -- array : TByteArray+    CInt ->                                 -- free_segment : TBasicType TBoolean+    IO Word8+++byteArrayFree ::+    (MonadIO m) =>+    ByteString ->                           -- array+    Bool ->                                 -- free_segment+    m Word8+byteArrayFree array free_segment = liftIO $ do+    array' <- packGByteArray array+    let free_segment' = (fromIntegral . fromEnum) free_segment+    result <- g_byte_array_free array' free_segment'+    unrefGByteArray array'+    return result++-- function g_byte_array_free_to_bytes+-- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TInterface "GLib" "Bytes"+-- throws : False+-- Skip return : False++foreign import ccall "g_byte_array_free_to_bytes" g_byte_array_free_to_bytes :: +    Ptr GByteArray ->                       -- array : TByteArray+    IO (Ptr Bytes)+++byteArrayFreeToBytes ::+    (MonadIO m) =>+    ByteString ->                           -- array+    m Bytes+byteArrayFreeToBytes array = liftIO $ do+    array' <- packGByteArray array+    result <- g_byte_array_free_to_bytes array'+    checkUnexpectedReturnNULL "g_byte_array_free_to_bytes" result+    result' <- (wrapBoxed Bytes) result+    return result'++-- function g_byte_array_new+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TByteArray+-- throws : False+-- Skip return : False++foreign import ccall "g_byte_array_new" g_byte_array_new :: +    IO (Ptr GByteArray)+++byteArrayNew ::+    (MonadIO m) =>+    m ByteString+byteArrayNew  = liftIO $ do+    result <- g_byte_array_new+    checkUnexpectedReturnNULL "g_byte_array_new" result+    result' <- unpackGByteArray result+    unrefGByteArray result+    return result'++-- function g_byte_array_new_take+-- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TByteArray+-- throws : False+-- Skip return : False++foreign import ccall "g_byte_array_new_take" g_byte_array_new_take :: +    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)+    Word64 ->                               -- len : TBasicType TUInt64+    IO (Ptr GByteArray)+++byteArrayNewTake ::+    (MonadIO m) =>+    ByteString ->                           -- data+    m ByteString+byteArrayNewTake data_ = liftIO $ do+    let len = fromIntegral $ B.length data_+    data_' <- packByteString data_+    result <- g_byte_array_new_take data_' len+    checkUnexpectedReturnNULL "g_byte_array_new_take" result+    result' <- unpackGByteArray result+    unrefGByteArray result+    return result'++-- function g_byte_array_unref+-- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_byte_array_unref" g_byte_array_unref :: +    Ptr GByteArray ->                       -- array : TByteArray+    IO ()+++byteArrayUnref ::+    (MonadIO m) =>+    ByteString ->                           -- array+    m ()+byteArrayUnref array = liftIO $ do+    array' <- packGByteArray array+    g_byte_array_unref array'+    unrefGByteArray array'+    return ()++-- function g_chdir+-- Args : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_chdir" g_chdir :: +    CString ->                              -- path : TBasicType TUTF8+    IO Int32+++chdir ::+    (MonadIO m) =>+    T.Text ->                               -- path+    m Int32+chdir path = liftIO $ do+    path' <- textToCString path+    result <- g_chdir path'+    freeMem path'+    return result++-- function glib_check_version+-- Args : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "glib_check_version" glib_check_version :: +    Word32 ->                               -- required_major : TBasicType TUInt32+    Word32 ->                               -- required_minor : TBasicType TUInt32+    Word32 ->                               -- required_micro : TBasicType TUInt32+    IO CString+++checkVersion ::+    (MonadIO m) =>+    Word32 ->                               -- required_major+    Word32 ->                               -- required_minor+    Word32 ->                               -- required_micro+    m T.Text+checkVersion required_major required_minor required_micro = liftIO $ do+    result <- glib_check_version required_major required_minor required_micro+    checkUnexpectedReturnNULL "glib_check_version" result+    result' <- cstringToText result+    return result'++-- function g_checksum_type_get_length+-- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_checksum_type_get_length" g_checksum_type_get_length :: +    CUInt ->                                -- checksum_type : TInterface "GLib" "ChecksumType"+    IO Int64+++checksumTypeGetLength ::+    (MonadIO m) =>+    ChecksumType ->                         -- checksum_type+    m Int64+checksumTypeGetLength checksum_type = liftIO $ do+    let checksum_type' = (fromIntegral . fromEnum) checksum_type+    result <- g_checksum_type_get_length checksum_type'+    return result++-- function g_child_watch_add_full+-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "ChildWatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "ChildWatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_child_watch_add_full" g_child_watch_add_full :: +    Int32 ->                                -- priority : TBasicType TInt32+    Int32 ->                                -- pid : TBasicType TInt32+    FunPtr ChildWatchFuncC ->               -- function : TInterface "GLib" "ChildWatchFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"+    IO Word32+++childWatchAdd ::+    (MonadIO m) =>+    Int32 ->                                -- priority+    Int32 ->                                -- pid+    ChildWatchFunc ->                       -- function+    m Word32+childWatchAdd priority pid function = liftIO $ do+    function' <- mkChildWatchFunc (childWatchFuncWrapper Nothing function)+    let data_ = castFunPtrToPtr function'+    let notify = safeFreeFunPtrPtr+    result <- g_child_watch_add_full priority pid function' data_ notify+    return result++-- function g_child_watch_source_new+-- Args : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_child_watch_source_new" g_child_watch_source_new :: +    Int32 ->                                -- pid : TBasicType TInt32+    IO (Ptr Source)+++childWatchSourceNew ::+    (MonadIO m) =>+    Int32 ->                                -- pid+    m Source+childWatchSourceNew pid = liftIO $ do+    result <- g_child_watch_source_new pid+    checkUnexpectedReturnNULL "g_child_watch_source_new" result+    result' <- (wrapBoxed Source) result+    return result'++-- function g_clear_error+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : True+-- Skip return : False++foreign import ccall "g_clear_error" g_clear_error :: +    Ptr (Ptr GError) ->                     -- error+    IO ()+++clearError ::+    (MonadIO m) =>+    m ()+clearError  = liftIO $ do+    onException (do+        propagateGError $ g_clear_error+        return ()+     ) (do+        return ()+     )++-- function g_close+-- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_close" g_close :: +    Int32 ->                                -- fd : TBasicType TInt32+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++close ::+    (MonadIO m) =>+    Int32 ->                                -- fd+    m ()+close fd = liftIO $ do+    onException (do+        _ <- propagateGError $ g_close fd+        return ()+     ) (do+        return ()+     )++-- function g_compute_checksum_for_bytes+-- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_compute_checksum_for_bytes" g_compute_checksum_for_bytes :: +    CUInt ->                                -- checksum_type : TInterface "GLib" "ChecksumType"+    Ptr Bytes ->                            -- data : TInterface "GLib" "Bytes"+    IO CString+++computeChecksumForBytes ::+    (MonadIO m) =>+    ChecksumType ->                         -- checksum_type+    Bytes ->                                -- data+    m T.Text+computeChecksumForBytes checksum_type data_ = liftIO $ do+    let checksum_type' = (fromIntegral . fromEnum) checksum_type+    let data_' = unsafeManagedPtrGetPtr data_+    result <- g_compute_checksum_for_bytes checksum_type' data_'+    checkUnexpectedReturnNULL "g_compute_checksum_for_bytes" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr data_+    return result'++-- function g_compute_checksum_for_data+-- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_compute_checksum_for_data" g_compute_checksum_for_data :: +    CUInt ->                                -- checksum_type : TInterface "GLib" "ChecksumType"+    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)+    Word64 ->                               -- length : TBasicType TUInt64+    IO CString+++computeChecksumForData ::+    (MonadIO m) =>+    ChecksumType ->                         -- checksum_type+    ByteString ->                           -- data+    m T.Text+computeChecksumForData checksum_type data_ = liftIO $ do+    let length_ = fromIntegral $ B.length data_+    let checksum_type' = (fromIntegral . fromEnum) checksum_type+    data_' <- packByteString data_+    result <- g_compute_checksum_for_data checksum_type' data_' length_+    checkUnexpectedReturnNULL "g_compute_checksum_for_data" result+    result' <- cstringToText result+    freeMem result+    freeMem data_'+    return result'++-- function g_compute_checksum_for_string+-- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_compute_checksum_for_string" g_compute_checksum_for_string :: +    CUInt ->                                -- checksum_type : TInterface "GLib" "ChecksumType"+    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- length : TBasicType TInt64+    IO CString+++computeChecksumForString ::+    (MonadIO m) =>+    ChecksumType ->                         -- checksum_type+    T.Text ->                               -- str+    Int64 ->                                -- length+    m T.Text+computeChecksumForString checksum_type str length_ = liftIO $ do+    let checksum_type' = (fromIntegral . fromEnum) checksum_type+    str' <- textToCString str+    result <- g_compute_checksum_for_string checksum_type' str' length_+    checkUnexpectedReturnNULL "g_compute_checksum_for_string" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_compute_hmac_for_data+-- Args : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_compute_hmac_for_data" g_compute_hmac_for_data :: +    CUInt ->                                -- digest_type : TInterface "GLib" "ChecksumType"+    Ptr Word8 ->                            -- key : TCArray False (-1) 2 (TBasicType TUInt8)+    Word64 ->                               -- key_len : TBasicType TUInt64+    Word8 ->                                -- data : TBasicType TUInt8+    Word64 ->                               -- length : TBasicType TUInt64+    IO CString+++computeHmacForData ::+    (MonadIO m) =>+    ChecksumType ->                         -- digest_type+    ByteString ->                           -- key+    Word8 ->                                -- data+    Word64 ->                               -- length+    m T.Text+computeHmacForData digest_type key data_ length_ = liftIO $ do+    let key_len = fromIntegral $ B.length key+    let digest_type' = (fromIntegral . fromEnum) digest_type+    key' <- packByteString key+    result <- g_compute_hmac_for_data digest_type' key' key_len data_ length_+    checkUnexpectedReturnNULL "g_compute_hmac_for_data" result+    result' <- cstringToText result+    freeMem result+    freeMem key'+    return result'++-- function g_compute_hmac_for_string+-- Args : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_compute_hmac_for_string" g_compute_hmac_for_string :: +    CUInt ->                                -- digest_type : TInterface "GLib" "ChecksumType"+    Ptr Word8 ->                            -- key : TCArray False (-1) 2 (TBasicType TUInt8)+    Word64 ->                               -- key_len : TBasicType TUInt64+    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- length : TBasicType TInt64+    IO CString+++computeHmacForString ::+    (MonadIO m) =>+    ChecksumType ->                         -- digest_type+    ByteString ->                           -- key+    T.Text ->                               -- str+    Int64 ->                                -- length+    m T.Text+computeHmacForString digest_type key str length_ = liftIO $ do+    let key_len = fromIntegral $ B.length key+    let digest_type' = (fromIntegral . fromEnum) digest_type+    key' <- packByteString key+    str' <- textToCString str+    result <- g_compute_hmac_for_string digest_type' key' key_len str' length_+    checkUnexpectedReturnNULL "g_compute_hmac_for_string" result+    result' <- cstringToText result+    freeMem result+    freeMem key'+    freeMem str'+    return result'++-- function g_convert+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_convert" g_convert :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    CString ->                              -- to_codeset : TBasicType TUTF8+    CString ->                              -- from_codeset : TBasicType TUTF8+    Ptr Word64 ->                           -- bytes_read : TBasicType TUInt64+    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CString+++convert ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    T.Text ->                               -- to_codeset+    T.Text ->                               -- from_codeset+    m (T.Text,Word64,Word64)+convert str len to_codeset from_codeset = liftIO $ do+    str' <- textToCString str+    to_codeset' <- textToCString to_codeset+    from_codeset' <- textToCString from_codeset+    bytes_read <- allocMem :: IO (Ptr Word64)+    bytes_written <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_convert str' len to_codeset' from_codeset' bytes_read bytes_written+        checkUnexpectedReturnNULL "g_convert" result+        result' <- cstringToText result+        freeMem result+        bytes_read' <- peek bytes_read+        bytes_written' <- peek bytes_written+        freeMem str'+        freeMem to_codeset'+        freeMem from_codeset'+        freeMem bytes_read+        freeMem bytes_written+        return (result', bytes_read', bytes_written')+     ) (do+        freeMem str'+        freeMem to_codeset'+        freeMem from_codeset'+        freeMem bytes_read+        freeMem bytes_written+     )++-- function g_convert_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_convert_error_quark" g_convert_error_quark :: +    IO Word32+++convertErrorQuark ::+    (MonadIO m) =>+    m Word32+convertErrorQuark  = liftIO $ do+    result <- g_convert_error_quark+    return result++-- function g_convert_with_fallback+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fallback", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fallback", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_convert_with_fallback" g_convert_with_fallback :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    CString ->                              -- to_codeset : TBasicType TUTF8+    CString ->                              -- from_codeset : TBasicType TUTF8+    CString ->                              -- fallback : TBasicType TUTF8+    Word64 ->                               -- bytes_read : TBasicType TUInt64+    Word64 ->                               -- bytes_written : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CString+++convertWithFallback ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    T.Text ->                               -- to_codeset+    T.Text ->                               -- from_codeset+    T.Text ->                               -- fallback+    Word64 ->                               -- bytes_read+    Word64 ->                               -- bytes_written+    m T.Text+convertWithFallback str len to_codeset from_codeset fallback bytes_read bytes_written = liftIO $ do+    str' <- textToCString str+    to_codeset' <- textToCString to_codeset+    from_codeset' <- textToCString from_codeset+    fallback' <- textToCString fallback+    onException (do+        result <- propagateGError $ g_convert_with_fallback str' len to_codeset' from_codeset' fallback' bytes_read bytes_written+        checkUnexpectedReturnNULL "g_convert_with_fallback" result+        result' <- cstringToText result+        freeMem result+        freeMem str'+        freeMem to_codeset'+        freeMem from_codeset'+        freeMem fallback'+        return result'+     ) (do+        freeMem str'+        freeMem to_codeset'+        freeMem from_codeset'+        freeMem fallback'+     )++-- function g_convert_with_iconv+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_convert_with_iconv" g_convert_with_iconv :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    Ptr IConv ->                            -- converter : TInterface "GLib" "IConv"+    Word64 ->                               -- bytes_read : TBasicType TUInt64+    Word64 ->                               -- bytes_written : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CString+++convertWithIconv ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    IConv ->                                -- converter+    Word64 ->                               -- bytes_read+    Word64 ->                               -- bytes_written+    m T.Text+convertWithIconv str len converter bytes_read bytes_written = liftIO $ do+    str' <- textToCString str+    let converter' = unsafeManagedPtrGetPtr converter+    onException (do+        result <- propagateGError $ g_convert_with_iconv str' len converter' bytes_read bytes_written+        checkUnexpectedReturnNULL "g_convert_with_iconv" result+        result' <- cstringToText result+        freeMem result+        touchManagedPtr converter+        freeMem str'+        return result'+     ) (do+        freeMem str'+     )++-- function g_datalist_clear+-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_datalist_clear" g_datalist_clear :: +    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"+    IO ()+++datalistClear ::+    (MonadIO m) =>+    Data ->                                 -- datalist+    m ()+datalistClear datalist = liftIO $ do+    let datalist' = unsafeManagedPtrGetPtr datalist+    g_datalist_clear datalist'+    touchManagedPtr datalist+    return ()++-- function g_datalist_get_flags+-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_datalist_get_flags" g_datalist_get_flags :: +    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"+    IO Word32+++datalistGetFlags ::+    (MonadIO m) =>+    Data ->                                 -- datalist+    m Word32+datalistGetFlags datalist = liftIO $ do+    let datalist' = unsafeManagedPtrGetPtr datalist+    result <- g_datalist_get_flags datalist'+    touchManagedPtr datalist+    return result++-- function g_datalist_id_replace_data+-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_datalist_id_replace_data" g_datalist_id_replace_data :: +    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"+    Word32 ->                               -- key_id : TBasicType TUInt32+    Ptr () ->                               -- oldval : TBasicType TVoid+    Ptr () ->                               -- newval : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- destroy : TInterface "GLib" "DestroyNotify"+    FunPtr DestroyNotifyC ->                -- old_destroy : TInterface "GLib" "DestroyNotify"+    IO CInt+++datalistIdReplaceData ::+    (MonadIO m) =>+    Data ->                                 -- datalist+    Word32 ->                               -- key_id+    Maybe (Ptr ()) ->                       -- oldval+    Maybe (Ptr ()) ->                       -- newval+    Maybe (DestroyNotify) ->                -- destroy+    Maybe (DestroyNotify) ->                -- old_destroy+    m Bool+datalistIdReplaceData datalist key_id oldval newval destroy old_destroy = liftIO $ do+    let datalist' = unsafeManagedPtrGetPtr datalist+    maybeOldval <- case oldval of+        Nothing -> return nullPtr+        Just jOldval -> do+            return jOldval+    maybeNewval <- case newval of+        Nothing -> return nullPtr+        Just jNewval -> do+            return jNewval+    ptrdestroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))+    maybeDestroy <- case destroy of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jDestroy -> do+            jDestroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy) jDestroy)+            poke ptrdestroy jDestroy'+            return jDestroy'+    ptrold_destroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))+    maybeOld_destroy <- case old_destroy of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jOld_destroy -> do+            jOld_destroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrold_destroy) jOld_destroy)+            poke ptrold_destroy jOld_destroy'+            return jOld_destroy'+    result <- g_datalist_id_replace_data datalist' key_id maybeOldval maybeNewval maybeDestroy maybeOld_destroy+    let result' = (/= 0) result+    touchManagedPtr datalist+    return result'++-- function g_datalist_id_set_data_full+-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_datalist_id_set_data_full" g_datalist_id_set_data_full :: +    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"+    Word32 ->                               -- key_id : TBasicType TUInt32+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- destroy_func : TInterface "GLib" "DestroyNotify"+    IO ()+++datalistIdSetDataFull ::+    (MonadIO m) =>+    Data ->                                 -- datalist+    Word32 ->                               -- key_id+    Maybe (Ptr ()) ->                       -- data+    DestroyNotify ->                        -- destroy_func+    m ()+datalistIdSetDataFull datalist key_id data_ destroy_func = liftIO $ do+    let datalist' = unsafeManagedPtrGetPtr datalist+    maybeData_ <- case data_ of+        Nothing -> return nullPtr+        Just jData_ -> do+            return jData_+    ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))+    destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func)+    poke ptrdestroy_func destroy_func'+    g_datalist_id_set_data_full datalist' key_id maybeData_ destroy_func'+    touchManagedPtr datalist+    return ()++-- function g_datalist_init+-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_datalist_init" g_datalist_init :: +    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"+    IO ()+++datalistInit ::+    (MonadIO m) =>+    Data ->                                 -- datalist+    m ()+datalistInit datalist = liftIO $ do+    let datalist' = unsafeManagedPtrGetPtr datalist+    g_datalist_init datalist'+    touchManagedPtr datalist+    return ()++-- function g_datalist_set_flags+-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_datalist_set_flags" g_datalist_set_flags :: +    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"+    Word32 ->                               -- flags : TBasicType TUInt32+    IO ()+++datalistSetFlags ::+    (MonadIO m) =>+    Data ->                                 -- datalist+    Word32 ->                               -- flags+    m ()+datalistSetFlags datalist flags = liftIO $ do+    let datalist' = unsafeManagedPtrGetPtr datalist+    g_datalist_set_flags datalist' flags+    touchManagedPtr datalist+    return ()++-- function g_datalist_unset_flags+-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_datalist_unset_flags" g_datalist_unset_flags :: +    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"+    Word32 ->                               -- flags : TBasicType TUInt32+    IO ()+++datalistUnsetFlags ::+    (MonadIO m) =>+    Data ->                                 -- datalist+    Word32 ->                               -- flags+    m ()+datalistUnsetFlags datalist flags = liftIO $ do+    let datalist' = unsafeManagedPtrGetPtr datalist+    g_datalist_unset_flags datalist' flags+    touchManagedPtr datalist+    return ()++-- function g_dataset_destroy+-- Args : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_dataset_destroy" g_dataset_destroy :: +    Ptr () ->                               -- dataset_location : TBasicType TVoid+    IO ()+++datasetDestroy ::+    (MonadIO m) =>+    Ptr () ->                               -- dataset_location+    m ()+datasetDestroy dataset_location = liftIO $ do+    g_dataset_destroy dataset_location+    return ()++-- function g_dataset_id_set_data_full+-- Args : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_dataset_id_set_data_full" g_dataset_id_set_data_full :: +    Ptr () ->                               -- dataset_location : TBasicType TVoid+    Word32 ->                               -- key_id : TBasicType TUInt32+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- destroy_func : TInterface "GLib" "DestroyNotify"+    IO ()+++datasetIdSetDataFull ::+    (MonadIO m) =>+    Ptr () ->                               -- dataset_location+    Word32 ->                               -- key_id+    Ptr () ->                               -- data+    DestroyNotify ->                        -- destroy_func+    m ()+datasetIdSetDataFull dataset_location key_id data_ destroy_func = liftIO $ do+    ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))+    destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func)+    poke ptrdestroy_func destroy_func'+    g_dataset_id_set_data_full dataset_location key_id data_ destroy_func'+    return ()++-- function g_date_get_days_in_month+-- Args : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt8+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_days_in_month" g_date_get_days_in_month :: +    CUInt ->                                -- month : TInterface "GLib" "DateMonth"+    Word16 ->                               -- year : TBasicType TUInt16+    IO Word8+++dateGetDaysInMonth ::+    (MonadIO m) =>+    DateMonth ->                            -- month+    Word16 ->                               -- year+    m Word8+dateGetDaysInMonth month year = liftIO $ do+    let month' = (fromIntegral . fromEnum) month+    result <- g_date_get_days_in_month month' year+    return result++-- function g_date_get_monday_weeks_in_year+-- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt8+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_monday_weeks_in_year" g_date_get_monday_weeks_in_year :: +    Word16 ->                               -- year : TBasicType TUInt16+    IO Word8+++dateGetMondayWeeksInYear ::+    (MonadIO m) =>+    Word16 ->                               -- year+    m Word8+dateGetMondayWeeksInYear year = liftIO $ do+    result <- g_date_get_monday_weeks_in_year year+    return result++-- function g_date_get_sunday_weeks_in_year+-- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt8+-- throws : False+-- Skip return : False++foreign import ccall "g_date_get_sunday_weeks_in_year" g_date_get_sunday_weeks_in_year :: +    Word16 ->                               -- year : TBasicType TUInt16+    IO Word8+++dateGetSundayWeeksInYear ::+    (MonadIO m) =>+    Word16 ->                               -- year+    m Word8+dateGetSundayWeeksInYear year = liftIO $ do+    result <- g_date_get_sunday_weeks_in_year year+    return result++-- function g_date_is_leap_year+-- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_is_leap_year" g_date_is_leap_year :: +    Word16 ->                               -- year : TBasicType TUInt16+    IO CInt+++dateIsLeapYear ::+    (MonadIO m) =>+    Word16 ->                               -- year+    m Bool+dateIsLeapYear year = liftIO $ do+    result <- g_date_is_leap_year year+    let result' = (/= 0) result+    return result'++-- function g_date_strftime+-- Args : [Arg {argName = "s", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "slen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "s", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "slen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_date_strftime" g_date_strftime :: +    CString ->                              -- s : TBasicType TUTF8+    Word64 ->                               -- slen : TBasicType TUInt64+    CString ->                              -- format : TBasicType TUTF8+    Ptr Date ->                             -- date : TInterface "GLib" "Date"+    IO Word64+++dateStrftime ::+    (MonadIO m) =>+    T.Text ->                               -- s+    Word64 ->                               -- slen+    T.Text ->                               -- format+    Date ->                                 -- date+    m Word64+dateStrftime s slen format date = liftIO $ do+    s' <- textToCString s+    format' <- textToCString format+    let date' = unsafeManagedPtrGetPtr date+    result <- g_date_strftime s' slen format' date'+    touchManagedPtr date+    freeMem s'+    freeMem format'+    return result++-- function g_date_time_compare+-- Args : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_compare" g_date_time_compare :: +    Ptr () ->                               -- dt1 : TBasicType TVoid+    Ptr () ->                               -- dt2 : TBasicType TVoid+    IO Int32+++dateTimeCompare ::+    (MonadIO m) =>+    Ptr () ->                               -- dt1+    Ptr () ->                               -- dt2+    m Int32+dateTimeCompare dt1 dt2 = liftIO $ do+    result <- g_date_time_compare dt1 dt2+    return result++-- function g_date_time_equal+-- Args : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_equal" g_date_time_equal :: +    Ptr () ->                               -- dt1 : TBasicType TVoid+    Ptr () ->                               -- dt2 : TBasicType TVoid+    IO CInt+++dateTimeEqual ::+    (MonadIO m) =>+    Ptr () ->                               -- dt1+    Ptr () ->                               -- dt2+    m Bool+dateTimeEqual dt1 dt2 = liftIO $ do+    result <- g_date_time_equal dt1 dt2+    let result' = (/= 0) result+    return result'++-- function g_date_time_hash+-- Args : [Arg {argName = "datetime", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "datetime", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_date_time_hash" g_date_time_hash :: +    Ptr () ->                               -- datetime : TBasicType TVoid+    IO Word32+++dateTimeHash ::+    (MonadIO m) =>+    Ptr () ->                               -- datetime+    m Word32+dateTimeHash datetime = liftIO $ do+    result <- g_date_time_hash datetime+    return result++-- function g_date_valid_day+-- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_valid_day" g_date_valid_day :: +    Word8 ->                                -- day : TBasicType TUInt8+    IO CInt+++dateValidDay ::+    (MonadIO m) =>+    Word8 ->                                -- day+    m Bool+dateValidDay day = liftIO $ do+    result <- g_date_valid_day day+    let result' = (/= 0) result+    return result'++-- function g_date_valid_dmy+-- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_valid_dmy" g_date_valid_dmy :: +    Word8 ->                                -- day : TBasicType TUInt8+    CUInt ->                                -- month : TInterface "GLib" "DateMonth"+    Word16 ->                               -- year : TBasicType TUInt16+    IO CInt+++dateValidDmy ::+    (MonadIO m) =>+    Word8 ->                                -- day+    DateMonth ->                            -- month+    Word16 ->                               -- year+    m Bool+dateValidDmy day month year = liftIO $ do+    let month' = (fromIntegral . fromEnum) month+    result <- g_date_valid_dmy day month' year+    let result' = (/= 0) result+    return result'++-- function g_date_valid_julian+-- Args : [Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_valid_julian" g_date_valid_julian :: +    Word32 ->                               -- julian_date : TBasicType TUInt32+    IO CInt+++dateValidJulian ::+    (MonadIO m) =>+    Word32 ->                               -- julian_date+    m Bool+dateValidJulian julian_date = liftIO $ do+    result <- g_date_valid_julian julian_date+    let result' = (/= 0) result+    return result'++-- function g_date_valid_month+-- Args : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_valid_month" g_date_valid_month :: +    CUInt ->                                -- month : TInterface "GLib" "DateMonth"+    IO CInt+++dateValidMonth ::+    (MonadIO m) =>+    DateMonth ->                            -- month+    m Bool+dateValidMonth month = liftIO $ do+    let month' = (fromIntegral . fromEnum) month+    result <- g_date_valid_month month'+    let result' = (/= 0) result+    return result'++-- function g_date_valid_weekday+-- Args : [Arg {argName = "weekday", argType = TInterface "GLib" "DateWeekday", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "weekday", argType = TInterface "GLib" "DateWeekday", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_valid_weekday" g_date_valid_weekday :: +    CUInt ->                                -- weekday : TInterface "GLib" "DateWeekday"+    IO CInt+++dateValidWeekday ::+    (MonadIO m) =>+    DateWeekday ->                          -- weekday+    m Bool+dateValidWeekday weekday = liftIO $ do+    let weekday' = (fromIntegral . fromEnum) weekday+    result <- g_date_valid_weekday weekday'+    let result' = (/= 0) result+    return result'++-- function g_date_valid_year+-- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_date_valid_year" g_date_valid_year :: +    Word16 ->                               -- year : TBasicType TUInt16+    IO CInt+++dateValidYear ::+    (MonadIO m) =>+    Word16 ->                               -- year+    m Bool+dateValidYear year = liftIO $ do+    result <- g_date_valid_year year+    let result' = (/= 0) result+    return result'++-- function g_dcgettext+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "category", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "category", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_dcgettext" g_dcgettext :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- msgid : TBasicType TUTF8+    Int32 ->                                -- category : TBasicType TInt32+    IO CString+++dcgettext ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- domain+    T.Text ->                               -- msgid+    Int32 ->                                -- category+    m T.Text+dcgettext domain msgid category = liftIO $ do+    maybeDomain <- case domain of+        Nothing -> return nullPtr+        Just jDomain -> do+            jDomain' <- textToCString jDomain+            return jDomain'+    msgid' <- textToCString msgid+    result <- g_dcgettext maybeDomain msgid' category+    checkUnexpectedReturnNULL "g_dcgettext" result+    result' <- cstringToText result+    freeMem maybeDomain+    freeMem msgid'+    return result'++-- function g_dgettext+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_dgettext" g_dgettext :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- msgid : TBasicType TUTF8+    IO CString+++dgettext ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- domain+    T.Text ->                               -- msgid+    m T.Text+dgettext domain msgid = liftIO $ do+    maybeDomain <- case domain of+        Nothing -> return nullPtr+        Just jDomain -> do+            jDomain' <- textToCString jDomain+            return jDomain'+    msgid' <- textToCString msgid+    result <- g_dgettext maybeDomain msgid'+    checkUnexpectedReturnNULL "g_dgettext" result+    result' <- cstringToText result+    freeMem maybeDomain+    freeMem msgid'+    return result'++-- function g_dir_make_tmp+-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TFileName+-- throws : True+-- Skip return : False++foreign import ccall "g_dir_make_tmp" g_dir_make_tmp :: +    CString ->                              -- tmpl : TBasicType TFileName+    Ptr (Ptr GError) ->                     -- error+    IO CString+++dirMakeTmp ::+    (MonadIO m) =>+    Maybe ([Char]) ->                       -- tmpl+    m [Char]+dirMakeTmp tmpl = liftIO $ do+    maybeTmpl <- case tmpl of+        Nothing -> return nullPtr+        Just jTmpl -> do+            jTmpl' <- stringToCString jTmpl+            return jTmpl'+    onException (do+        result <- propagateGError $ g_dir_make_tmp maybeTmpl+        checkUnexpectedReturnNULL "g_dir_make_tmp" result+        result' <- cstringToString result+        freeMem result+        freeMem maybeTmpl+        return result'+     ) (do+        freeMem maybeTmpl+     )++-- function g_direct_equal+-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_direct_equal" g_direct_equal :: +    Ptr () ->                               -- v1 : TBasicType TVoid+    Ptr () ->                               -- v2 : TBasicType TVoid+    IO CInt+++directEqual ::+    (MonadIO m) =>+    Maybe (Ptr ()) ->                       -- v1+    Maybe (Ptr ()) ->                       -- v2+    m Bool+directEqual v1 v2 = liftIO $ do+    maybeV1 <- case v1 of+        Nothing -> return nullPtr+        Just jV1 -> do+            return jV1+    maybeV2 <- case v2 of+        Nothing -> return nullPtr+        Just jV2 -> do+            return jV2+    result <- g_direct_equal maybeV1 maybeV2+    let result' = (/= 0) result+    return result'++-- function g_direct_hash+-- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_direct_hash" g_direct_hash :: +    Ptr () ->                               -- v : TBasicType TVoid+    IO Word32+++directHash ::+    (MonadIO m) =>+    Maybe (Ptr ()) ->                       -- v+    m Word32+directHash v = liftIO $ do+    maybeV <- case v of+        Nothing -> return nullPtr+        Just jV -> do+            return jV+    result <- g_direct_hash maybeV+    return result++-- function g_dngettext+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid_plural", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid_plural", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_dngettext" g_dngettext :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- msgid : TBasicType TUTF8+    CString ->                              -- msgid_plural : TBasicType TUTF8+    Word64 ->                               -- n : TBasicType TUInt64+    IO CString+++dngettext ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- domain+    T.Text ->                               -- msgid+    T.Text ->                               -- msgid_plural+    Word64 ->                               -- n+    m T.Text+dngettext domain msgid msgid_plural n = liftIO $ do+    maybeDomain <- case domain of+        Nothing -> return nullPtr+        Just jDomain -> do+            jDomain' <- textToCString jDomain+            return jDomain'+    msgid' <- textToCString msgid+    msgid_plural' <- textToCString msgid_plural+    result <- g_dngettext maybeDomain msgid' msgid_plural' n+    checkUnexpectedReturnNULL "g_dngettext" result+    result' <- cstringToText result+    freeMem maybeDomain+    freeMem msgid'+    freeMem msgid_plural'+    return result'++-- function g_double_equal+-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_double_equal" g_double_equal :: +    Ptr () ->                               -- v1 : TBasicType TVoid+    Ptr () ->                               -- v2 : TBasicType TVoid+    IO CInt+++doubleEqual ::+    (MonadIO m) =>+    Ptr () ->                               -- v1+    Ptr () ->                               -- v2+    m Bool+doubleEqual v1 v2 = liftIO $ do+    result <- g_double_equal v1 v2+    let result' = (/= 0) result+    return result'++-- function g_double_hash+-- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_double_hash" g_double_hash :: +    Ptr () ->                               -- v : TBasicType TVoid+    IO Word32+++doubleHash ::+    (MonadIO m) =>+    Ptr () ->                               -- v+    m Word32+doubleHash v = liftIO $ do+    result <- g_double_hash v+    return result++-- function g_dpgettext+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgctxtid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgidoffset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgctxtid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgidoffset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_dpgettext" g_dpgettext :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- msgctxtid : TBasicType TUTF8+    Word64 ->                               -- msgidoffset : TBasicType TUInt64+    IO CString+++dpgettext ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- domain+    T.Text ->                               -- msgctxtid+    Word64 ->                               -- msgidoffset+    m T.Text+dpgettext domain msgctxtid msgidoffset = liftIO $ do+    maybeDomain <- case domain of+        Nothing -> return nullPtr+        Just jDomain -> do+            jDomain' <- textToCString jDomain+            return jDomain'+    msgctxtid' <- textToCString msgctxtid+    result <- g_dpgettext maybeDomain msgctxtid' msgidoffset+    checkUnexpectedReturnNULL "g_dpgettext" result+    result' <- cstringToText result+    freeMem maybeDomain+    freeMem msgctxtid'+    return result'++-- function g_dpgettext2+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_dpgettext2" g_dpgettext2 :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- context : TBasicType TUTF8+    CString ->                              -- msgid : TBasicType TUTF8+    IO CString+++dpgettext2 ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- domain+    T.Text ->                               -- context+    T.Text ->                               -- msgid+    m T.Text+dpgettext2 domain context msgid = liftIO $ do+    maybeDomain <- case domain of+        Nothing -> return nullPtr+        Just jDomain -> do+            jDomain' <- textToCString jDomain+            return jDomain'+    context' <- textToCString context+    msgid' <- textToCString msgid+    result <- g_dpgettext2 maybeDomain context' msgid'+    checkUnexpectedReturnNULL "g_dpgettext2" result+    result' <- cstringToText result+    freeMem maybeDomain+    freeMem context'+    freeMem msgid'+    return result'++-- function g_environ_getenv+-- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_environ_getenv" g_environ_getenv :: +    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)+    CString ->                              -- variable : TBasicType TUTF8+    IO CString+++environGetenv ::+    (MonadIO m) =>+    Maybe ([T.Text]) ->                     -- envp+    T.Text ->                               -- variable+    m T.Text+environGetenv envp variable = liftIO $ do+    maybeEnvp <- case envp of+        Nothing -> return nullPtr+        Just jEnvp -> do+            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp+            return jEnvp'+    variable' <- textToCString variable+    result <- g_environ_getenv maybeEnvp variable'+    checkUnexpectedReturnNULL "g_environ_getenv" result+    result' <- cstringToText result+    mapZeroTerminatedCArray freeMem maybeEnvp+    freeMem maybeEnvp+    freeMem variable'+    return result'++-- function g_environ_setenv+-- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_environ_setenv" g_environ_setenv :: +    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)+    CString ->                              -- variable : TBasicType TUTF8+    CString ->                              -- value : TBasicType TUTF8+    CInt ->                                 -- overwrite : TBasicType TBoolean+    IO (Ptr CString)+++environSetenv ::+    (MonadIO m) =>+    Maybe ([T.Text]) ->                     -- envp+    T.Text ->                               -- variable+    T.Text ->                               -- value+    Bool ->                                 -- overwrite+    m [T.Text]+environSetenv envp variable value overwrite = liftIO $ do+    maybeEnvp <- case envp of+        Nothing -> return nullPtr+        Just jEnvp -> do+            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp+            return jEnvp'+    variable' <- textToCString variable+    value' <- textToCString value+    let overwrite' = (fromIntegral . fromEnum) overwrite+    result <- g_environ_setenv maybeEnvp variable' value' overwrite'+    checkUnexpectedReturnNULL "g_environ_setenv" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    freeMem variable'+    freeMem value'+    return result'++-- function g_environ_unsetenv+-- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_environ_unsetenv" g_environ_unsetenv :: +    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)+    CString ->                              -- variable : TBasicType TUTF8+    IO (Ptr CString)+++environUnsetenv ::+    (MonadIO m) =>+    Maybe ([T.Text]) ->                     -- envp+    T.Text ->                               -- variable+    m [T.Text]+environUnsetenv envp variable = liftIO $ do+    maybeEnvp <- case envp of+        Nothing -> return nullPtr+        Just jEnvp -> do+            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp+            return jEnvp'+    variable' <- textToCString variable+    result <- g_environ_unsetenv maybeEnvp variable'+    checkUnexpectedReturnNULL "g_environ_unsetenv" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    freeMem variable'+    return result'++-- function g_file_error_from_errno+-- Args : [Arg {argName = "err_no", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "err_no", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "FileError"+-- throws : False+-- Skip return : False++foreign import ccall "g_file_error_from_errno" g_file_error_from_errno :: +    Int32 ->                                -- err_no : TBasicType TInt32+    IO CUInt+++fileErrorFromErrno ::+    (MonadIO m) =>+    Int32 ->                                -- err_no+    m FileError+fileErrorFromErrno err_no = liftIO $ do+    result <- g_file_error_from_errno err_no+    let result' = (toEnum . fromIntegral) result+    return result'++-- function g_file_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_file_error_quark" g_file_error_quark :: +    IO Word32+++fileErrorQuark ::+    (MonadIO m) =>+    m Word32+fileErrorQuark  = liftIO $ do+    result <- g_file_error_quark+    return result++-- function g_file_get_contents+-- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_file_get_contents" g_file_get_contents :: +    CString ->                              -- filename : TBasicType TFileName+    Ptr (Ptr Word8) ->                      -- contents : TCArray False (-1) 2 (TBasicType TUInt8)+    Ptr Word64 ->                           -- length : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++fileGetContents ::+    (MonadIO m) =>+    [Char] ->                               -- filename+    m (ByteString)+fileGetContents filename = liftIO $ do+    filename' <- stringToCString filename+    contents <- allocMem :: IO (Ptr (Ptr Word8))+    length_ <- allocMem :: IO (Ptr Word64)+    onException (do+        _ <- propagateGError $ g_file_get_contents filename' contents length_+        length_' <- peek length_+        contents' <- peek contents+        contents'' <- (unpackByteStringWithLength length_') contents'+        freeMem contents'+        freeMem filename'+        freeMem contents+        freeMem length_+        return contents''+     ) (do+        freeMem filename'+        freeMem contents+        freeMem length_+     )++-- function g_file_open_tmp+-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_used", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : True+-- Skip return : False++foreign import ccall "g_file_open_tmp" g_file_open_tmp :: +    CString ->                              -- tmpl : TBasicType TFileName+    Ptr CString ->                          -- name_used : TBasicType TFileName+    Ptr (Ptr GError) ->                     -- error+    IO Int32+++fileOpenTmp ::+    (MonadIO m) =>+    Maybe ([Char]) ->                       -- tmpl+    m (Int32,[Char])+fileOpenTmp tmpl = liftIO $ do+    maybeTmpl <- case tmpl of+        Nothing -> return nullPtr+        Just jTmpl -> do+            jTmpl' <- stringToCString jTmpl+            return jTmpl'+    name_used <- allocMem :: IO (Ptr CString)+    onException (do+        result <- propagateGError $ g_file_open_tmp maybeTmpl name_used+        name_used' <- peek name_used+        name_used'' <- cstringToString name_used'+        freeMem name_used'+        freeMem maybeTmpl+        freeMem name_used+        return (result, name_used'')+     ) (do+        freeMem maybeTmpl+        freeMem name_used+     )++-- function g_file_read_link+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_file_read_link" g_file_read_link :: +    CString ->                              -- filename : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++fileReadLink ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    m T.Text+fileReadLink filename = liftIO $ do+    filename' <- textToCString filename+    onException (do+        result <- propagateGError $ g_file_read_link filename'+        checkUnexpectedReturnNULL "g_file_read_link" result+        result' <- cstringToText result+        freeMem result+        freeMem filename'+        return result'+     ) (do+        freeMem filename'+     )++-- function g_file_set_contents+-- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_file_set_contents" g_file_set_contents :: +    CString ->                              -- filename : TBasicType TFileName+    Ptr Word8 ->                            -- contents : TCArray False (-1) 2 (TBasicType TUInt8)+    Int64 ->                                -- length : TBasicType TInt64+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++fileSetContents ::+    (MonadIO m) =>+    [Char] ->                               -- filename+    ByteString ->                           -- contents+    m ()+fileSetContents filename contents = liftIO $ do+    let length_ = fromIntegral $ B.length contents+    filename' <- stringToCString filename+    contents' <- packByteString contents+    onException (do+        _ <- propagateGError $ g_file_set_contents filename' contents' length_+        freeMem filename'+        freeMem contents'+        return ()+     ) (do+        freeMem filename'+        freeMem contents'+     )++-- function g_file_test+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test", argType = TInterface "GLib" "FileTest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test", argType = TInterface "GLib" "FileTest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_file_test" g_file_test :: +    CString ->                              -- filename : TBasicType TUTF8+    CUInt ->                                -- test : TInterface "GLib" "FileTest"+    IO CInt+++fileTest ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    [FileTest] ->                           -- test+    m Bool+fileTest filename test = liftIO $ do+    filename' <- textToCString filename+    let test' = gflagsToWord test+    result <- g_file_test filename' test'+    let result' = (/= 0) result+    freeMem filename'+    return result'++-- function g_filename_display_basename+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_filename_display_basename" g_filename_display_basename :: +    CString ->                              -- filename : TBasicType TUTF8+    IO CString+++filenameDisplayBasename ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    m T.Text+filenameDisplayBasename filename = liftIO $ do+    filename' <- textToCString filename+    result <- g_filename_display_basename filename'+    checkUnexpectedReturnNULL "g_filename_display_basename" result+    result' <- cstringToText result+    freeMem result+    freeMem filename'+    return result'++-- function g_filename_display_name+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_filename_display_name" g_filename_display_name :: +    CString ->                              -- filename : TBasicType TUTF8+    IO CString+++filenameDisplayName ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    m T.Text+filenameDisplayName filename = liftIO $ do+    filename' <- textToCString filename+    result <- g_filename_display_name filename'+    checkUnexpectedReturnNULL "g_filename_display_name" result+    result' <- cstringToText result+    freeMem result+    freeMem filename'+    return result'++-- function g_filename_from_uri+-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TFileName+-- throws : True+-- Skip return : False++foreign import ccall "g_filename_from_uri" g_filename_from_uri :: +    CString ->                              -- uri : TBasicType TUTF8+    Ptr CString ->                          -- hostname : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++filenameFromUri ::+    (MonadIO m) =>+    T.Text ->                               -- uri+    m ([Char],T.Text)+filenameFromUri uri = liftIO $ do+    uri' <- textToCString uri+    hostname <- allocMem :: IO (Ptr CString)+    onException (do+        result <- propagateGError $ g_filename_from_uri uri' hostname+        checkUnexpectedReturnNULL "g_filename_from_uri" result+        result' <- cstringToString result+        freeMem result+        hostname' <- peek hostname+        hostname'' <- cstringToText hostname'+        freeMem hostname'+        freeMem uri'+        freeMem hostname+        return (result', hostname'')+     ) (do+        freeMem uri'+        freeMem hostname+     )++-- function g_filename_from_utf8+-- Args : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 3 (TBasicType TUInt8)+-- throws : True+-- Skip return : False++foreign import ccall "g_filename_from_utf8" g_filename_from_utf8 :: +    CString ->                              -- utf8string : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    Ptr Word64 ->                           -- bytes_read : TBasicType TUInt64+    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr Word8)+++filenameFromUtf8 ::+    (MonadIO m) =>+    T.Text ->                               -- utf8string+    Int64 ->                                -- len+    m (ByteString,Word64)+filenameFromUtf8 utf8string len = liftIO $ do+    utf8string' <- textToCString utf8string+    bytes_read <- allocMem :: IO (Ptr Word64)+    bytes_written <- allocMem :: IO (Ptr Word64)+    onException (do+        result <- propagateGError $ g_filename_from_utf8 utf8string' len bytes_read bytes_written+        bytes_written' <- peek bytes_written+        checkUnexpectedReturnNULL "g_filename_from_utf8" result+        result' <- (unpackByteStringWithLength bytes_written') result+        freeMem result+        bytes_read' <- peek bytes_read+        freeMem utf8string'+        freeMem bytes_read+        freeMem bytes_written+        return (result', bytes_read')+     ) (do+        freeMem utf8string'+        freeMem bytes_read+        freeMem bytes_written+     )++-- function g_filename_to_uri+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_filename_to_uri" g_filename_to_uri :: +    CString ->                              -- filename : TBasicType TUTF8+    CString ->                              -- hostname : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++filenameToUri ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    Maybe (T.Text) ->                       -- hostname+    m T.Text+filenameToUri filename hostname = liftIO $ do+    filename' <- textToCString filename+    maybeHostname <- case hostname of+        Nothing -> return nullPtr+        Just jHostname -> do+            jHostname' <- textToCString jHostname+            return jHostname'+    onException (do+        result <- propagateGError $ g_filename_to_uri filename' maybeHostname+        checkUnexpectedReturnNULL "g_filename_to_uri" result+        result' <- cstringToText result+        freeMem result+        freeMem filename'+        freeMem maybeHostname+        return result'+     ) (do+        freeMem filename'+        freeMem maybeHostname+     )++-- function g_filename_to_utf8+-- Args : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_filename_to_utf8" g_filename_to_utf8 :: +    CString ->                              -- opsysstring : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    Word64 ->                               -- bytes_read : TBasicType TUInt64+    Word64 ->                               -- bytes_written : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CString+++filenameToUtf8 ::+    (MonadIO m) =>+    T.Text ->                               -- opsysstring+    Int64 ->                                -- len+    Word64 ->                               -- bytes_read+    Word64 ->                               -- bytes_written+    m T.Text+filenameToUtf8 opsysstring len bytes_read bytes_written = liftIO $ do+    opsysstring' <- textToCString opsysstring+    onException (do+        result <- propagateGError $ g_filename_to_utf8 opsysstring' len bytes_read bytes_written+        checkUnexpectedReturnNULL "g_filename_to_utf8" result+        result' <- cstringToText result+        freeMem result+        freeMem opsysstring'+        return result'+     ) (do+        freeMem opsysstring'+     )++-- function g_find_program_in_path+-- Args : [Arg {argName = "program", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "program", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_find_program_in_path" g_find_program_in_path :: +    CString ->                              -- program : TBasicType TUTF8+    IO CString+++findProgramInPath ::+    (MonadIO m) =>+    T.Text ->                               -- program+    m T.Text+findProgramInPath program = liftIO $ do+    program' <- textToCString program+    result <- g_find_program_in_path program'+    checkUnexpectedReturnNULL "g_find_program_in_path" result+    result' <- cstringToText result+    freeMem result+    freeMem program'+    return result'++-- function g_format_size+-- Args : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_format_size" g_format_size :: +    Word64 ->                               -- size : TBasicType TUInt64+    IO CString+++formatSize ::+    (MonadIO m) =>+    Word64 ->                               -- size+    m T.Text+formatSize size = liftIO $ do+    result <- g_format_size size+    checkUnexpectedReturnNULL "g_format_size" result+    result' <- cstringToText result+    freeMem result+    return result'++-- function g_format_size_for_display+-- Args : [Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_format_size_for_display" g_format_size_for_display :: +    Int64 ->                                -- size : TBasicType TInt64+    IO CString++{-# DEPRECATED formatSizeForDisplay ["(Since version 2.30)","This function is broken due to its use of SI","    suffixes to denote IEC units. Use g_format_size() instead."]#-}+formatSizeForDisplay ::+    (MonadIO m) =>+    Int64 ->                                -- size+    m T.Text+formatSizeForDisplay size = liftIO $ do+    result <- g_format_size_for_display size+    checkUnexpectedReturnNULL "g_format_size_for_display" result+    result' <- cstringToText result+    freeMem result+    return result'++-- function g_format_size_full+-- Args : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "FormatSizeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "FormatSizeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_format_size_full" g_format_size_full :: +    Word64 ->                               -- size : TBasicType TUInt64+    CUInt ->                                -- flags : TInterface "GLib" "FormatSizeFlags"+    IO CString+++formatSizeFull ::+    (MonadIO m) =>+    Word64 ->                               -- size+    [FormatSizeFlags] ->                    -- flags+    m T.Text+formatSizeFull size flags = liftIO $ do+    let flags' = gflagsToWord flags+    result <- g_format_size_full size flags'+    checkUnexpectedReturnNULL "g_format_size_full" result+    result' <- cstringToText result+    freeMem result+    return result'++-- function g_free+-- Args : [Arg {argName = "mem", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "mem", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_free" g_free :: +    Ptr () ->                               -- mem : TBasicType TVoid+    IO ()+++free ::+    (MonadIO m) =>+    Maybe (Ptr ()) ->                       -- mem+    m ()+free mem = liftIO $ do+    maybeMem <- case mem of+        Nothing -> return nullPtr+        Just jMem -> do+            return jMem+    g_free maybeMem+    return ()++-- function g_get_application_name+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_application_name" g_get_application_name :: +    IO CString+++getApplicationName ::+    (MonadIO m) =>+    m T.Text+getApplicationName  = liftIO $ do+    result <- g_get_application_name+    checkUnexpectedReturnNULL "g_get_application_name" result+    result' <- cstringToText result+    return result'++-- function g_get_charset+-- Args : [Arg {argName = "charset", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_get_charset" g_get_charset :: +    Ptr CString ->                          -- charset : TBasicType TUTF8+    IO CInt+++getCharset ::+    (MonadIO m) =>+    m (Bool,T.Text)+getCharset  = liftIO $ do+    charset <- allocMem :: IO (Ptr CString)+    result <- g_get_charset charset+    let result' = (/= 0) result+    charset' <- peek charset+    charset'' <- cstringToText charset'+    freeMem charset+    return (result', charset'')++-- function g_get_codeset+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_codeset" g_get_codeset :: +    IO CString+++getCodeset ::+    (MonadIO m) =>+    m T.Text+getCodeset  = liftIO $ do+    result <- g_get_codeset+    checkUnexpectedReturnNULL "g_get_codeset" result+    result' <- cstringToText result+    freeMem result+    return result'++-- function g_get_current_dir+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_current_dir" g_get_current_dir :: +    IO CString+++getCurrentDir ::+    (MonadIO m) =>+    m T.Text+getCurrentDir  = liftIO $ do+    result <- g_get_current_dir+    checkUnexpectedReturnNULL "g_get_current_dir" result+    result' <- cstringToText result+    freeMem result+    return result'++-- function g_get_current_time+-- Args : [Arg {argName = "result", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "result", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_get_current_time" g_get_current_time :: +    Ptr TimeVal ->                          -- result : TInterface "GLib" "TimeVal"+    IO ()+++getCurrentTime ::+    (MonadIO m) =>+    TimeVal ->                              -- result+    m ()+getCurrentTime result_ = liftIO $ do+    let result_' = unsafeManagedPtrGetPtr result_+    g_get_current_time result_'+    touchManagedPtr result_+    return ()++-- function g_get_environ+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_get_environ" g_get_environ :: +    IO (Ptr CString)+++getEnviron ::+    (MonadIO m) =>+    m [T.Text]+getEnviron  = liftIO $ do+    result <- g_get_environ+    checkUnexpectedReturnNULL "g_get_environ" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    return result'++-- function g_get_filename_charsets+-- Args : [Arg {argName = "charsets", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "charsets", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_get_filename_charsets" g_get_filename_charsets :: +    CString ->                              -- charsets : TBasicType TUTF8+    IO CInt+++getFilenameCharsets ::+    (MonadIO m) =>+    T.Text ->                               -- charsets+    m Bool+getFilenameCharsets charsets = liftIO $ do+    charsets' <- textToCString charsets+    result <- g_get_filename_charsets charsets'+    let result' = (/= 0) result+    freeMem charsets'+    return result'++-- function g_get_home_dir+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_home_dir" g_get_home_dir :: +    IO CString+++getHomeDir ::+    (MonadIO m) =>+    m T.Text+getHomeDir  = liftIO $ do+    result <- g_get_home_dir+    checkUnexpectedReturnNULL "g_get_home_dir" result+    result' <- cstringToText result+    return result'++-- function g_get_host_name+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_host_name" g_get_host_name :: +    IO CString+++getHostName ::+    (MonadIO m) =>+    m T.Text+getHostName  = liftIO $ do+    result <- g_get_host_name+    checkUnexpectedReturnNULL "g_get_host_name" result+    result' <- cstringToText result+    return result'++-- function g_get_language_names+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_get_language_names" g_get_language_names :: +    IO (Ptr CString)+++getLanguageNames ::+    (MonadIO m) =>+    m [T.Text]+getLanguageNames  = liftIO $ do+    result <- g_get_language_names+    checkUnexpectedReturnNULL "g_get_language_names" result+    result' <- unpackZeroTerminatedUTF8CArray result+    return result'++-- function g_get_locale_variants+-- Args : [Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_get_locale_variants" g_get_locale_variants :: +    CString ->                              -- locale : TBasicType TUTF8+    IO (Ptr CString)+++getLocaleVariants ::+    (MonadIO m) =>+    T.Text ->                               -- locale+    m [T.Text]+getLocaleVariants locale = liftIO $ do+    locale' <- textToCString locale+    result <- g_get_locale_variants locale'+    checkUnexpectedReturnNULL "g_get_locale_variants" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    freeMem locale'+    return result'++-- function g_get_monotonic_time+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_get_monotonic_time" g_get_monotonic_time :: +    IO Int64+++getMonotonicTime ::+    (MonadIO m) =>+    m Int64+getMonotonicTime  = liftIO $ do+    result <- g_get_monotonic_time+    return result++-- function g_get_num_processors+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_get_num_processors" g_get_num_processors :: +    IO Word32+++getNumProcessors ::+    (MonadIO m) =>+    m Word32+getNumProcessors  = liftIO $ do+    result <- g_get_num_processors+    return result++-- function g_get_prgname+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_prgname" g_get_prgname :: +    IO CString+++getPrgname ::+    (MonadIO m) =>+    m T.Text+getPrgname  = liftIO $ do+    result <- g_get_prgname+    checkUnexpectedReturnNULL "g_get_prgname" result+    result' <- cstringToText result+    return result'++-- function g_get_real_name+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_real_name" g_get_real_name :: +    IO CString+++getRealName ::+    (MonadIO m) =>+    m T.Text+getRealName  = liftIO $ do+    result <- g_get_real_name+    checkUnexpectedReturnNULL "g_get_real_name" result+    result' <- cstringToText result+    return result'++-- function g_get_real_time+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_get_real_time" g_get_real_time :: +    IO Int64+++getRealTime ::+    (MonadIO m) =>+    m Int64+getRealTime  = liftIO $ do+    result <- g_get_real_time+    return result++-- function g_get_system_config_dirs+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_get_system_config_dirs" g_get_system_config_dirs :: +    IO (Ptr CString)+++getSystemConfigDirs ::+    (MonadIO m) =>+    m [T.Text]+getSystemConfigDirs  = liftIO $ do+    result <- g_get_system_config_dirs+    checkUnexpectedReturnNULL "g_get_system_config_dirs" result+    result' <- unpackZeroTerminatedUTF8CArray result+    return result'++-- function g_get_system_data_dirs+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_get_system_data_dirs" g_get_system_data_dirs :: +    IO (Ptr CString)+++getSystemDataDirs ::+    (MonadIO m) =>+    m [T.Text]+getSystemDataDirs  = liftIO $ do+    result <- g_get_system_data_dirs+    checkUnexpectedReturnNULL "g_get_system_data_dirs" result+    result' <- unpackZeroTerminatedUTF8CArray result+    return result'++-- function g_get_tmp_dir+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_tmp_dir" g_get_tmp_dir :: +    IO CString+++getTmpDir ::+    (MonadIO m) =>+    m T.Text+getTmpDir  = liftIO $ do+    result <- g_get_tmp_dir+    checkUnexpectedReturnNULL "g_get_tmp_dir" result+    result' <- cstringToText result+    return result'++-- function g_get_user_cache_dir+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_user_cache_dir" g_get_user_cache_dir :: +    IO CString+++getUserCacheDir ::+    (MonadIO m) =>+    m T.Text+getUserCacheDir  = liftIO $ do+    result <- g_get_user_cache_dir+    checkUnexpectedReturnNULL "g_get_user_cache_dir" result+    result' <- cstringToText result+    return result'++-- function g_get_user_config_dir+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_user_config_dir" g_get_user_config_dir :: +    IO CString+++getUserConfigDir ::+    (MonadIO m) =>+    m T.Text+getUserConfigDir  = liftIO $ do+    result <- g_get_user_config_dir+    checkUnexpectedReturnNULL "g_get_user_config_dir" result+    result' <- cstringToText result+    return result'++-- function g_get_user_data_dir+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_user_data_dir" g_get_user_data_dir :: +    IO CString+++getUserDataDir ::+    (MonadIO m) =>+    m T.Text+getUserDataDir  = liftIO $ do+    result <- g_get_user_data_dir+    checkUnexpectedReturnNULL "g_get_user_data_dir" result+    result' <- cstringToText result+    return result'++-- function g_get_user_name+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_user_name" g_get_user_name :: +    IO CString+++getUserName ::+    (MonadIO m) =>+    m T.Text+getUserName  = liftIO $ do+    result <- g_get_user_name+    checkUnexpectedReturnNULL "g_get_user_name" result+    result' <- cstringToText result+    return result'++-- function g_get_user_runtime_dir+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_user_runtime_dir" g_get_user_runtime_dir :: +    IO CString+++getUserRuntimeDir ::+    (MonadIO m) =>+    m T.Text+getUserRuntimeDir  = liftIO $ do+    result <- g_get_user_runtime_dir+    checkUnexpectedReturnNULL "g_get_user_runtime_dir" result+    result' <- cstringToText result+    return result'++-- function g_get_user_special_dir+-- Args : [Arg {argName = "directory", argType = TInterface "GLib" "UserDirectory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "directory", argType = TInterface "GLib" "UserDirectory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_get_user_special_dir" g_get_user_special_dir :: +    CUInt ->                                -- directory : TInterface "GLib" "UserDirectory"+    IO CString+++getUserSpecialDir ::+    (MonadIO m) =>+    UserDirectory ->                        -- directory+    m T.Text+getUserSpecialDir directory = liftIO $ do+    let directory' = (fromIntegral . fromEnum) directory+    result <- g_get_user_special_dir directory'+    checkUnexpectedReturnNULL "g_get_user_special_dir" result+    result' <- cstringToText result+    return result'++-- function g_getenv+-- Args : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_getenv" g_getenv :: +    CString ->                              -- variable : TBasicType TUTF8+    IO CString+++getenv ::+    (MonadIO m) =>+    T.Text ->                               -- variable+    m T.Text+getenv variable = liftIO $ do+    variable' <- textToCString variable+    result <- g_getenv variable'+    checkUnexpectedReturnNULL "g_getenv" result+    result' <- cstringToText result+    freeMem variable'+    return result'++-- function g_hash_table_add+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_add" g_hash_table_add :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    Ptr () ->                               -- key : TBasicType TVoid+    IO CInt+++hashTableAdd ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    Ptr () ->                               -- key+    m Bool+hashTableAdd hash_table key = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    result <- g_hash_table_add hash_table'''' key+    let result' = (/= 0) result+    unrefGHashTable hash_table''''+    return result'++-- function g_hash_table_contains+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_contains" g_hash_table_contains :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    Ptr () ->                               -- key : TBasicType TVoid+    IO CInt+++hashTableContains ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    Ptr () ->                               -- key+    m Bool+hashTableContains hash_table key = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    result <- g_hash_table_contains hash_table'''' key+    let result' = (/= 0) result+    unrefGHashTable hash_table''''+    return result'++-- function g_hash_table_destroy+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_destroy" g_hash_table_destroy :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    IO ()+++hashTableDestroy ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    m ()+hashTableDestroy hash_table = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    g_hash_table_destroy hash_table''''+    unrefGHashTable hash_table''''+    return ()++-- function g_hash_table_insert+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_insert" g_hash_table_insert :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    Ptr () ->                               -- key : TBasicType TVoid+    Ptr () ->                               -- value : TBasicType TVoid+    IO CInt+++hashTableInsert ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    Ptr () ->                               -- key+    Ptr () ->                               -- value+    m Bool+hashTableInsert hash_table key value = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    result <- g_hash_table_insert hash_table'''' key value+    let result' = (/= 0) result+    unrefGHashTable hash_table''''+    return result'++-- function g_hash_table_lookup_extended+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_lookup_extended" g_hash_table_lookup_extended :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    Ptr () ->                               -- lookup_key : TBasicType TVoid+    Ptr () ->                               -- orig_key : TBasicType TVoid+    Ptr () ->                               -- value : TBasicType TVoid+    IO CInt+++hashTableLookupExtended ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    Ptr () ->                               -- lookup_key+    Maybe (Ptr ()) ->                       -- orig_key+    Maybe (Ptr ()) ->                       -- value+    m Bool+hashTableLookupExtended hash_table lookup_key orig_key value = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    maybeOrig_key <- case orig_key of+        Nothing -> return nullPtr+        Just jOrig_key -> do+            return jOrig_key+    maybeValue <- case value of+        Nothing -> return nullPtr+        Just jValue -> do+            return jValue+    result <- g_hash_table_lookup_extended hash_table'''' lookup_key maybeOrig_key maybeValue+    let result' = (/= 0) result+    unrefGHashTable hash_table''''+    return result'++-- function g_hash_table_remove+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_remove" g_hash_table_remove :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    Ptr () ->                               -- key : TBasicType TVoid+    IO CInt+++hashTableRemove ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    Ptr () ->                               -- key+    m Bool+hashTableRemove hash_table key = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    result <- g_hash_table_remove hash_table'''' key+    let result' = (/= 0) result+    unrefGHashTable hash_table''''+    return result'++-- function g_hash_table_remove_all+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_remove_all" g_hash_table_remove_all :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    IO ()+++hashTableRemoveAll ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    m ()+hashTableRemoveAll hash_table = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    g_hash_table_remove_all hash_table''''+    unrefGHashTable hash_table''''+    return ()++-- function g_hash_table_replace+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_replace" g_hash_table_replace :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    Ptr () ->                               -- key : TBasicType TVoid+    Ptr () ->                               -- value : TBasicType TVoid+    IO CInt+++hashTableReplace ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    Ptr () ->                               -- key+    Ptr () ->                               -- value+    m Bool+hashTableReplace hash_table key value = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    result <- g_hash_table_replace hash_table'''' key value+    let result' = (/= 0) result+    unrefGHashTable hash_table''''+    return result'++-- function g_hash_table_size+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_size" g_hash_table_size :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    IO Word32+++hashTableSize ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    m Word32+hashTableSize hash_table = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    result <- g_hash_table_size hash_table''''+    unrefGHashTable hash_table''''+    return result++-- function g_hash_table_steal+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_steal" g_hash_table_steal :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    Ptr () ->                               -- key : TBasicType TVoid+    IO CInt+++hashTableSteal ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    Ptr () ->                               -- key+    m Bool+hashTableSteal hash_table key = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    result <- g_hash_table_steal hash_table'''' key+    let result' = (/= 0) result+    unrefGHashTable hash_table''''+    return result'++-- function g_hash_table_steal_all+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_steal_all" g_hash_table_steal_all :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    IO ()+++hashTableStealAll ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    m ()+hashTableStealAll hash_table = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    g_hash_table_steal_all hash_table''''+    unrefGHashTable hash_table''''+    return ()++-- function g_hash_table_unref+-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hash_table_unref" g_hash_table_unref :: +    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)+    IO ()+++hashTableUnref ::+    (MonadIO m) =>+    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table+    m ()+hashTableUnref hash_table = liftIO $ do+    let hash_table' = Map.toList hash_table+    let hash_table'' = mapFirst ptrPackPtr hash_table'+    let hash_table''' = mapSecond ptrPackPtr hash_table''+    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''+    g_hash_table_unref hash_table''''+    unrefGHashTable hash_table''''+    return ()++-- function g_hook_destroy+-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hook_destroy" g_hook_destroy :: +    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"+    Word64 ->                               -- hook_id : TBasicType TUInt64+    IO CInt+++hookDestroy ::+    (MonadIO m) =>+    HookList ->                             -- hook_list+    Word64 ->                               -- hook_id+    m Bool+hookDestroy hook_list hook_id = liftIO $ do+    let hook_list' = unsafeManagedPtrGetPtr hook_list+    result <- g_hook_destroy hook_list' hook_id+    let result' = (/= 0) result+    touchManagedPtr hook_list+    return result'++-- function g_hook_destroy_link+-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hook_destroy_link" g_hook_destroy_link :: +    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"+    Ptr Hook ->                             -- hook : TInterface "GLib" "Hook"+    IO ()+++hookDestroyLink ::+    (MonadIO m) =>+    HookList ->                             -- hook_list+    Hook ->                                 -- hook+    m ()+hookDestroyLink hook_list hook = liftIO $ do+    let hook_list' = unsafeManagedPtrGetPtr hook_list+    let hook' = unsafeManagedPtrGetPtr hook+    g_hook_destroy_link hook_list' hook'+    touchManagedPtr hook_list+    touchManagedPtr hook+    return ()++-- function g_hook_free+-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hook_free" g_hook_free :: +    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"+    Ptr Hook ->                             -- hook : TInterface "GLib" "Hook"+    IO ()+++hookFree ::+    (MonadIO m) =>+    HookList ->                             -- hook_list+    Hook ->                                 -- hook+    m ()+hookFree hook_list hook = liftIO $ do+    let hook_list' = unsafeManagedPtrGetPtr hook_list+    let hook' = unsafeManagedPtrGetPtr hook+    g_hook_free hook_list' hook'+    touchManagedPtr hook_list+    touchManagedPtr hook+    return ()++-- function g_hook_insert_before+-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hook_insert_before" g_hook_insert_before :: +    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"+    Ptr Hook ->                             -- sibling : TInterface "GLib" "Hook"+    Ptr Hook ->                             -- hook : TInterface "GLib" "Hook"+    IO ()+++hookInsertBefore ::+    (MonadIO m) =>+    HookList ->                             -- hook_list+    Hook ->                                 -- sibling+    Hook ->                                 -- hook+    m ()+hookInsertBefore hook_list sibling hook = liftIO $ do+    let hook_list' = unsafeManagedPtrGetPtr hook_list+    let sibling' = unsafeManagedPtrGetPtr sibling+    let hook' = unsafeManagedPtrGetPtr hook+    g_hook_insert_before hook_list' sibling' hook'+    touchManagedPtr hook_list+    touchManagedPtr sibling+    touchManagedPtr hook+    return ()++-- function g_hook_prepend+-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hook_prepend" g_hook_prepend :: +    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"+    Ptr Hook ->                             -- hook : TInterface "GLib" "Hook"+    IO ()+++hookPrepend ::+    (MonadIO m) =>+    HookList ->                             -- hook_list+    Hook ->                                 -- hook+    m ()+hookPrepend hook_list hook = liftIO $ do+    let hook_list' = unsafeManagedPtrGetPtr hook_list+    let hook' = unsafeManagedPtrGetPtr hook+    g_hook_prepend hook_list' hook'+    touchManagedPtr hook_list+    touchManagedPtr hook+    return ()++-- function g_hook_unref+-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_hook_unref" g_hook_unref :: +    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"+    Ptr Hook ->                             -- hook : TInterface "GLib" "Hook"+    IO ()+++hookUnref ::+    (MonadIO m) =>+    HookList ->                             -- hook_list+    Hook ->                                 -- hook+    m ()+hookUnref hook_list hook = liftIO $ do+    let hook_list' = unsafeManagedPtrGetPtr hook_list+    let hook' = unsafeManagedPtrGetPtr hook+    g_hook_unref hook_list' hook'+    touchManagedPtr hook_list+    touchManagedPtr hook+    return ()++-- function g_hostname_is_ascii_encoded+-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hostname_is_ascii_encoded" g_hostname_is_ascii_encoded :: +    CString ->                              -- hostname : TBasicType TUTF8+    IO CInt+++hostnameIsAsciiEncoded ::+    (MonadIO m) =>+    T.Text ->                               -- hostname+    m Bool+hostnameIsAsciiEncoded hostname = liftIO $ do+    hostname' <- textToCString hostname+    result <- g_hostname_is_ascii_encoded hostname'+    let result' = (/= 0) result+    freeMem hostname'+    return result'++-- function g_hostname_is_ip_address+-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hostname_is_ip_address" g_hostname_is_ip_address :: +    CString ->                              -- hostname : TBasicType TUTF8+    IO CInt+++hostnameIsIpAddress ::+    (MonadIO m) =>+    T.Text ->                               -- hostname+    m Bool+hostnameIsIpAddress hostname = liftIO $ do+    hostname' <- textToCString hostname+    result <- g_hostname_is_ip_address hostname'+    let result' = (/= 0) result+    freeMem hostname'+    return result'++-- function g_hostname_is_non_ascii+-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_hostname_is_non_ascii" g_hostname_is_non_ascii :: +    CString ->                              -- hostname : TBasicType TUTF8+    IO CInt+++hostnameIsNonAscii ::+    (MonadIO m) =>+    T.Text ->                               -- hostname+    m Bool+hostnameIsNonAscii hostname = liftIO $ do+    hostname' <- textToCString hostname+    result <- g_hostname_is_non_ascii hostname'+    let result' = (/= 0) result+    freeMem hostname'+    return result'++-- function g_hostname_to_ascii+-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_hostname_to_ascii" g_hostname_to_ascii :: +    CString ->                              -- hostname : TBasicType TUTF8+    IO CString+++hostnameToAscii ::+    (MonadIO m) =>+    T.Text ->                               -- hostname+    m T.Text+hostnameToAscii hostname = liftIO $ do+    hostname' <- textToCString hostname+    result <- g_hostname_to_ascii hostname'+    checkUnexpectedReturnNULL "g_hostname_to_ascii" result+    result' <- cstringToText result+    freeMem result+    freeMem hostname'+    return result'++-- function g_hostname_to_unicode+-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_hostname_to_unicode" g_hostname_to_unicode :: +    CString ->                              -- hostname : TBasicType TUTF8+    IO CString+++hostnameToUnicode ::+    (MonadIO m) =>+    T.Text ->                               -- hostname+    m T.Text+hostnameToUnicode hostname = liftIO $ do+    hostname' <- textToCString hostname+    result <- g_hostname_to_unicode hostname'+    checkUnexpectedReturnNULL "g_hostname_to_unicode" result+    result' <- cstringToText result+    freeMem result+    freeMem hostname'+    return result'++-- function g_iconv+-- Args : [Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_iconv" g_iconv :: +    Ptr IConv ->                            -- converter : TInterface "GLib" "IConv"+    CString ->                              -- inbuf : TBasicType TUTF8+    Word64 ->                               -- inbytes_left : TBasicType TUInt64+    CString ->                              -- outbuf : TBasicType TUTF8+    Word64 ->                               -- outbytes_left : TBasicType TUInt64+    IO Word64+++iconv ::+    (MonadIO m) =>+    IConv ->                                -- converter+    T.Text ->                               -- inbuf+    Word64 ->                               -- inbytes_left+    T.Text ->                               -- outbuf+    Word64 ->                               -- outbytes_left+    m Word64+iconv converter inbuf inbytes_left outbuf outbytes_left = liftIO $ do+    let converter' = unsafeManagedPtrGetPtr converter+    inbuf' <- textToCString inbuf+    outbuf' <- textToCString outbuf+    result <- g_iconv converter' inbuf' inbytes_left outbuf' outbytes_left+    touchManagedPtr converter+    freeMem inbuf'+    freeMem outbuf'+    return result++-- function g_idle_add_full+-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_idle_add_full" g_idle_add_full :: +    Int32 ->                                -- priority : TBasicType TInt32+    FunPtr SourceFuncC ->                   -- function : TInterface "GLib" "SourceFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"+    IO Word32+++idleAdd ::+    (MonadIO m) =>+    Int32 ->                                -- priority+    SourceFunc ->                           -- function+    m Word32+idleAdd priority function = liftIO $ do+    function' <- mkSourceFunc (sourceFuncWrapper Nothing function)+    let data_ = castFunPtrToPtr function'+    let notify = safeFreeFunPtrPtr+    result <- g_idle_add_full priority function' data_ notify+    return result++-- function g_idle_remove_by_data+-- Args : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_idle_remove_by_data" g_idle_remove_by_data :: +    Ptr () ->                               -- data : TBasicType TVoid+    IO CInt+++idleRemoveByData ::+    (MonadIO m) =>+    Ptr () ->                               -- data+    m Bool+idleRemoveByData data_ = liftIO $ do+    result <- g_idle_remove_by_data data_+    let result' = (/= 0) result+    return result'++-- function g_idle_source_new+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_idle_source_new" g_idle_source_new :: +    IO (Ptr Source)+++idleSourceNew ::+    (MonadIO m) =>+    m Source+idleSourceNew  = liftIO $ do+    result <- g_idle_source_new+    checkUnexpectedReturnNULL "g_idle_source_new" result+    result' <- (wrapBoxed Source) result+    return result'++-- function g_int64_equal+-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_int64_equal" g_int64_equal :: +    Ptr () ->                               -- v1 : TBasicType TVoid+    Ptr () ->                               -- v2 : TBasicType TVoid+    IO CInt+++int64Equal ::+    (MonadIO m) =>+    Ptr () ->                               -- v1+    Ptr () ->                               -- v2+    m Bool+int64Equal v1 v2 = liftIO $ do+    result <- g_int64_equal v1 v2+    let result' = (/= 0) result+    return result'++-- function g_int64_hash+-- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_int64_hash" g_int64_hash :: +    Ptr () ->                               -- v : TBasicType TVoid+    IO Word32+++int64Hash ::+    (MonadIO m) =>+    Ptr () ->                               -- v+    m Word32+int64Hash v = liftIO $ do+    result <- g_int64_hash v+    return result++-- function g_int_equal+-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_int_equal" g_int_equal :: +    Ptr () ->                               -- v1 : TBasicType TVoid+    Ptr () ->                               -- v2 : TBasicType TVoid+    IO CInt+++intEqual ::+    (MonadIO m) =>+    Ptr () ->                               -- v1+    Ptr () ->                               -- v2+    m Bool+intEqual v1 v2 = liftIO $ do+    result <- g_int_equal v1 v2+    let result' = (/= 0) result+    return result'++-- function g_int_hash+-- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_int_hash" g_int_hash :: +    Ptr () ->                               -- v : TBasicType TVoid+    IO Word32+++intHash ::+    (MonadIO m) =>+    Ptr () ->                               -- v+    m Word32+intHash v = liftIO $ do+    result <- g_int_hash v+    return result++-- function g_intern_static_string+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_intern_static_string" g_intern_static_string :: +    CString ->                              -- string : TBasicType TUTF8+    IO CString+++internStaticString ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- string+    m T.Text+internStaticString string = liftIO $ do+    maybeString <- case string of+        Nothing -> return nullPtr+        Just jString -> do+            jString' <- textToCString jString+            return jString'+    result <- g_intern_static_string maybeString+    checkUnexpectedReturnNULL "g_intern_static_string" result+    result' <- cstringToText result+    freeMem maybeString+    return result'++-- function g_intern_string+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_intern_string" g_intern_string :: +    CString ->                              -- string : TBasicType TUTF8+    IO CString+++internString ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- string+    m T.Text+internString string = liftIO $ do+    maybeString <- case string of+        Nothing -> return nullPtr+        Just jString -> do+            jString' <- textToCString jString+            return jString'+    result <- g_intern_string maybeString+    checkUnexpectedReturnNULL "g_intern_string" result+    result' <- cstringToText result+    freeMem maybeString+    return result'++-- function g_io_add_watch_full+-- Args : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "IOFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "IOFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_io_add_watch_full" g_io_add_watch_full :: +    Ptr IOChannel ->                        -- channel : TInterface "GLib" "IOChannel"+    Int32 ->                                -- priority : TBasicType TInt32+    CUInt ->                                -- condition : TInterface "GLib" "IOCondition"+    FunPtr IOFuncC ->                       -- func : TInterface "GLib" "IOFunc"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"+    IO Word32+++ioAddWatch ::+    (MonadIO m) =>+    IOChannel ->                            -- channel+    Int32 ->                                -- priority+    [IOCondition] ->                        -- condition+    IOFunc ->                               -- func+    m Word32+ioAddWatch channel priority condition func = liftIO $ do+    let channel' = unsafeManagedPtrGetPtr channel+    let condition' = gflagsToWord condition+    func' <- mkIOFunc (iOFuncWrapper Nothing func)+    let user_data = castFunPtrToPtr func'+    let notify = safeFreeFunPtrPtr+    result <- g_io_add_watch_full channel' priority condition' func' user_data notify+    touchManagedPtr channel+    return result++-- function g_io_channel_error_from_errno+-- Args : [Arg {argName = "en", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "en", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "IOChannelError"+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_error_from_errno" g_io_channel_error_from_errno :: +    Int32 ->                                -- en : TBasicType TInt32+    IO CUInt+++ioChannelErrorFromErrno ::+    (MonadIO m) =>+    Int32 ->                                -- en+    m IOChannelError+ioChannelErrorFromErrno en = liftIO $ do+    result <- g_io_channel_error_from_errno en+    let result' = (toEnum . fromIntegral) result+    return result'++-- function g_io_channel_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_io_channel_error_quark" g_io_channel_error_quark :: +    IO Word32+++ioChannelErrorQuark ::+    (MonadIO m) =>+    m Word32+ioChannelErrorQuark  = liftIO $ do+    result <- g_io_channel_error_quark+    return result++-- function g_io_create_watch+-- Args : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_io_create_watch" g_io_create_watch :: +    Ptr IOChannel ->                        -- channel : TInterface "GLib" "IOChannel"+    CUInt ->                                -- condition : TInterface "GLib" "IOCondition"+    IO (Ptr Source)+++ioCreateWatch ::+    (MonadIO m) =>+    IOChannel ->                            -- channel+    [IOCondition] ->                        -- condition+    m Source+ioCreateWatch channel condition = liftIO $ do+    let channel' = unsafeManagedPtrGetPtr channel+    let condition' = gflagsToWord condition+    result <- g_io_create_watch channel' condition'+    checkUnexpectedReturnNULL "g_io_create_watch" result+    result' <- (wrapBoxed Source) result+    touchManagedPtr channel+    return result'++-- function g_key_file_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_key_file_error_quark" g_key_file_error_quark :: +    IO Word32+++keyFileErrorQuark ::+    (MonadIO m) =>+    m Word32+keyFileErrorQuark  = liftIO $ do+    result <- g_key_file_error_quark+    return result++-- function g_listenv+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_listenv" g_listenv :: +    IO (Ptr CString)+++listenv ::+    (MonadIO m) =>+    m [T.Text]+listenv  = liftIO $ do+    result <- g_listenv+    checkUnexpectedReturnNULL "g_listenv" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    return result'++-- function g_locale_from_utf8+-- Args : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_locale_from_utf8" g_locale_from_utf8 :: +    CString ->                              -- utf8string : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    Word64 ->                               -- bytes_read : TBasicType TUInt64+    Word64 ->                               -- bytes_written : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CString+++localeFromUtf8 ::+    (MonadIO m) =>+    T.Text ->                               -- utf8string+    Int64 ->                                -- len+    Word64 ->                               -- bytes_read+    Word64 ->                               -- bytes_written+    m T.Text+localeFromUtf8 utf8string len bytes_read bytes_written = liftIO $ do+    utf8string' <- textToCString utf8string+    onException (do+        result <- propagateGError $ g_locale_from_utf8 utf8string' len bytes_read bytes_written+        checkUnexpectedReturnNULL "g_locale_from_utf8" result+        result' <- cstringToText result+        freeMem result+        freeMem utf8string'+        return result'+     ) (do+        freeMem utf8string'+     )++-- function g_locale_to_utf8+-- Args : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_locale_to_utf8" g_locale_to_utf8 :: +    CString ->                              -- opsysstring : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    Word64 ->                               -- bytes_read : TBasicType TUInt64+    Word64 ->                               -- bytes_written : TBasicType TUInt64+    Ptr (Ptr GError) ->                     -- error+    IO CString+++localeToUtf8 ::+    (MonadIO m) =>+    T.Text ->                               -- opsysstring+    Int64 ->                                -- len+    Word64 ->                               -- bytes_read+    Word64 ->                               -- bytes_written+    m T.Text+localeToUtf8 opsysstring len bytes_read bytes_written = liftIO $ do+    opsysstring' <- textToCString opsysstring+    onException (do+        result <- propagateGError $ g_locale_to_utf8 opsysstring' len bytes_read bytes_written+        checkUnexpectedReturnNULL "g_locale_to_utf8" result+        result' <- cstringToText result+        freeMem result+        freeMem opsysstring'+        return result'+     ) (do+        freeMem opsysstring'+     )++-- function g_log_default_handler+-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unused_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unused_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_log_default_handler" g_log_default_handler :: +    CString ->                              -- log_domain : TBasicType TUTF8+    CUInt ->                                -- log_level : TInterface "GLib" "LogLevelFlags"+    CString ->                              -- message : TBasicType TUTF8+    Ptr () ->                               -- unused_data : TBasicType TVoid+    IO ()+++logDefaultHandler ::+    (MonadIO m) =>+    T.Text ->                               -- log_domain+    [LogLevelFlags] ->                      -- log_level+    T.Text ->                               -- message+    Ptr () ->                               -- unused_data+    m ()+logDefaultHandler log_domain log_level message unused_data = liftIO $ do+    log_domain' <- textToCString log_domain+    let log_level' = gflagsToWord log_level+    message' <- textToCString message+    g_log_default_handler log_domain' log_level' message' unused_data+    freeMem log_domain'+    freeMem message'+    return ()++-- function g_log_remove_handler+-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_log_remove_handler" g_log_remove_handler :: +    CString ->                              -- log_domain : TBasicType TUTF8+    Word32 ->                               -- handler_id : TBasicType TUInt32+    IO ()+++logRemoveHandler ::+    (MonadIO m) =>+    T.Text ->                               -- log_domain+    Word32 ->                               -- handler_id+    m ()+logRemoveHandler log_domain handler_id = liftIO $ do+    log_domain' <- textToCString log_domain+    g_log_remove_handler log_domain' handler_id+    freeMem log_domain'+    return ()++-- function g_log_set_always_fatal+-- Args : [Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "LogLevelFlags"+-- throws : False+-- Skip return : False++foreign import ccall "g_log_set_always_fatal" g_log_set_always_fatal :: +    CUInt ->                                -- fatal_mask : TInterface "GLib" "LogLevelFlags"+    IO CUInt+++logSetAlwaysFatal ::+    (MonadIO m) =>+    [LogLevelFlags] ->                      -- fatal_mask+    m [LogLevelFlags]+logSetAlwaysFatal fatal_mask = liftIO $ do+    let fatal_mask' = gflagsToWord fatal_mask+    result <- g_log_set_always_fatal fatal_mask'+    let result' = wordToGFlags result+    return result'++-- function g_log_set_fatal_mask+-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "LogLevelFlags"+-- throws : False+-- Skip return : False++foreign import ccall "g_log_set_fatal_mask" g_log_set_fatal_mask :: +    CString ->                              -- log_domain : TBasicType TUTF8+    CUInt ->                                -- fatal_mask : TInterface "GLib" "LogLevelFlags"+    IO CUInt+++logSetFatalMask ::+    (MonadIO m) =>+    T.Text ->                               -- log_domain+    [LogLevelFlags] ->                      -- fatal_mask+    m [LogLevelFlags]+logSetFatalMask log_domain fatal_mask = liftIO $ do+    log_domain' <- textToCString log_domain+    let fatal_mask' = gflagsToWord fatal_mask+    result <- g_log_set_fatal_mask log_domain' fatal_mask'+    let result' = wordToGFlags result+    freeMem log_domain'+    return result'++-- function g_log_set_handler_full+-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_levels", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_func", argType = TInterface "GLib" "LogFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_levels", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_func", argType = TInterface "GLib" "LogFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_log_set_handler_full" g_log_set_handler_full :: +    CString ->                              -- log_domain : TBasicType TUTF8+    CUInt ->                                -- log_levels : TInterface "GLib" "LogLevelFlags"+    FunPtr LogFuncC ->                      -- log_func : TInterface "GLib" "LogFunc"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- destroy : TInterface "GLib" "DestroyNotify"+    IO Word32+++logSetHandler ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- log_domain+    [LogLevelFlags] ->                      -- log_levels+    LogFunc ->                              -- log_func+    m Word32+logSetHandler log_domain log_levels log_func = liftIO $ do+    maybeLog_domain <- case log_domain of+        Nothing -> return nullPtr+        Just jLog_domain -> do+            jLog_domain' <- textToCString jLog_domain+            return jLog_domain'+    let log_levels' = gflagsToWord log_levels+    log_func' <- mkLogFunc (logFuncWrapper Nothing log_func)+    let user_data = castFunPtrToPtr log_func'+    let destroy = safeFreeFunPtrPtr+    result <- g_log_set_handler_full maybeLog_domain log_levels' log_func' user_data destroy+    freeMem maybeLog_domain+    return result++-- function g_main_context_default+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "MainContext"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_default" g_main_context_default :: +    IO (Ptr MainContext)+++mainContextDefault ::+    (MonadIO m) =>+    m MainContext+mainContextDefault  = liftIO $ do+    result <- g_main_context_default+    checkUnexpectedReturnNULL "g_main_context_default" result+    result' <- (newBoxed MainContext) result+    return result'++-- function g_main_context_get_thread_default+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "MainContext"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_get_thread_default" g_main_context_get_thread_default :: +    IO (Ptr MainContext)+++mainContextGetThreadDefault ::+    (MonadIO m) =>+    m MainContext+mainContextGetThreadDefault  = liftIO $ do+    result <- g_main_context_get_thread_default+    checkUnexpectedReturnNULL "g_main_context_get_thread_default" result+    result' <- (newBoxed MainContext) result+    return result'++-- function g_main_context_ref_thread_default+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "MainContext"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_context_ref_thread_default" g_main_context_ref_thread_default :: +    IO (Ptr MainContext)+++mainContextRefThreadDefault ::+    (MonadIO m) =>+    m MainContext+mainContextRefThreadDefault  = liftIO $ do+    result <- g_main_context_ref_thread_default+    checkUnexpectedReturnNULL "g_main_context_ref_thread_default" result+    result' <- (wrapBoxed MainContext) result+    return result'++-- function g_main_current_source+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_main_current_source" g_main_current_source :: +    IO (Ptr Source)+++mainCurrentSource ::+    (MonadIO m) =>+    m Source+mainCurrentSource  = liftIO $ do+    result <- g_main_current_source+    checkUnexpectedReturnNULL "g_main_current_source" result+    result' <- (newBoxed Source) result+    return result'++-- function g_main_depth+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_main_depth" g_main_depth :: +    IO Int32+++mainDepth ::+    (MonadIO m) =>+    m Int32+mainDepth  = liftIO $ do+    result <- g_main_depth+    return result++-- function g_markup_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_markup_error_quark" g_markup_error_quark :: +    IO Word32+++markupErrorQuark ::+    (MonadIO m) =>+    m Word32+markupErrorQuark  = liftIO $ do+    result <- g_markup_error_quark+    return result++-- function g_markup_escape_text+-- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_markup_escape_text" g_markup_escape_text :: +    CString ->                              -- text : TBasicType TUTF8+    Int64 ->                                -- length : TBasicType TInt64+    IO CString+++markupEscapeText ::+    (MonadIO m) =>+    T.Text ->                               -- text+    Int64 ->                                -- length+    m T.Text+markupEscapeText text length_ = liftIO $ do+    text' <- textToCString text+    result <- g_markup_escape_text text' length_+    checkUnexpectedReturnNULL "g_markup_escape_text" result+    result' <- cstringToText result+    freeMem result+    freeMem text'+    return result'++-- function g_mem_is_system_malloc+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_mem_is_system_malloc" g_mem_is_system_malloc :: +    IO CInt++{-# DEPRECATED memIsSystemMalloc ["(Since version 2.46)","GLib always uses the system malloc, so this function always","returns %TRUE."]#-}+memIsSystemMalloc ::+    (MonadIO m) =>+    m Bool+memIsSystemMalloc  = liftIO $ do+    result <- g_mem_is_system_malloc+    let result' = (/= 0) result+    return result'++-- function g_mem_profile+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_mem_profile" g_mem_profile :: +    IO ()++{-# DEPRECATED memProfile ["(Since version 2.46)","Use other memory profiling tools instead"]#-}+memProfile ::+    (MonadIO m) =>+    m ()+memProfile  = liftIO $ do+    g_mem_profile+    return ()++-- function g_mem_set_vtable+-- Args : [Arg {argName = "vtable", argType = TInterface "GLib" "MemVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "vtable", argType = TInterface "GLib" "MemVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_mem_set_vtable" g_mem_set_vtable :: +    Ptr MemVTable ->                        -- vtable : TInterface "GLib" "MemVTable"+    IO ()++{-# DEPRECATED memSetVtable ["(Since version 2.46)","Use other memory profiling tools instead"]#-}+memSetVtable ::+    (MonadIO m) =>+    MemVTable ->                            -- vtable+    m ()+memSetVtable vtable = liftIO $ do+    let vtable' = unsafeManagedPtrGetPtr vtable+    g_mem_set_vtable vtable'+    touchManagedPtr vtable+    return ()++-- function g_mkdir_with_parents+-- Args : [Arg {argName = "pathname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pathname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_mkdir_with_parents" g_mkdir_with_parents :: +    CString ->                              -- pathname : TBasicType TUTF8+    Int32 ->                                -- mode : TBasicType TInt32+    IO Int32+++mkdirWithParents ::+    (MonadIO m) =>+    T.Text ->                               -- pathname+    Int32 ->                                -- mode+    m Int32+mkdirWithParents pathname mode = liftIO $ do+    pathname' <- textToCString pathname+    result <- g_mkdir_with_parents pathname' mode+    freeMem pathname'+    return result++-- function g_mkdtemp+-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_mkdtemp" g_mkdtemp :: +    CString ->                              -- tmpl : TBasicType TFileName+    IO CString+++mkdtemp ::+    (MonadIO m) =>+    [Char] ->                               -- tmpl+    m T.Text+mkdtemp tmpl = liftIO $ do+    tmpl' <- stringToCString tmpl+    result <- g_mkdtemp tmpl'+    checkUnexpectedReturnNULL "g_mkdtemp" result+    result' <- cstringToText result+    freeMem result+    freeMem tmpl'+    return result'++-- function g_mkdtemp_full+-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_mkdtemp_full" g_mkdtemp_full :: +    CString ->                              -- tmpl : TBasicType TFileName+    Int32 ->                                -- mode : TBasicType TInt32+    IO CString+++mkdtempFull ::+    (MonadIO m) =>+    [Char] ->                               -- tmpl+    Int32 ->                                -- mode+    m T.Text+mkdtempFull tmpl mode = liftIO $ do+    tmpl' <- stringToCString tmpl+    result <- g_mkdtemp_full tmpl' mode+    checkUnexpectedReturnNULL "g_mkdtemp_full" result+    result' <- cstringToText result+    freeMem result+    freeMem tmpl'+    return result'++-- function g_mkstemp+-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_mkstemp" g_mkstemp :: +    CString ->                              -- tmpl : TBasicType TFileName+    IO Int32+++mkstemp ::+    (MonadIO m) =>+    [Char] ->                               -- tmpl+    m Int32+mkstemp tmpl = liftIO $ do+    tmpl' <- stringToCString tmpl+    result <- g_mkstemp tmpl'+    freeMem tmpl'+    return result++-- function g_mkstemp_full+-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_mkstemp_full" g_mkstemp_full :: +    CString ->                              -- tmpl : TBasicType TFileName+    Int32 ->                                -- flags : TBasicType TInt32+    Int32 ->                                -- mode : TBasicType TInt32+    IO Int32+++mkstempFull ::+    (MonadIO m) =>+    [Char] ->                               -- tmpl+    Int32 ->                                -- flags+    Int32 ->                                -- mode+    m Int32+mkstempFull tmpl flags mode = liftIO $ do+    tmpl' <- stringToCString tmpl+    result <- g_mkstemp_full tmpl' flags mode+    freeMem tmpl'+    return result++-- function g_nullify_pointer+-- Args : [Arg {argName = "nullify_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "nullify_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_nullify_pointer" g_nullify_pointer :: +    Ptr () ->                               -- nullify_location : TBasicType TVoid+    IO ()+++nullifyPointer ::+    (MonadIO m) =>+    Ptr () ->                               -- nullify_location+    m ()+nullifyPointer nullify_location = liftIO $ do+    g_nullify_pointer nullify_location+    return ()++-- function g_on_error_query+-- Args : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_on_error_query" g_on_error_query :: +    CString ->                              -- prg_name : TBasicType TUTF8+    IO ()+++onErrorQuery ::+    (MonadIO m) =>+    T.Text ->                               -- prg_name+    m ()+onErrorQuery prg_name = liftIO $ do+    prg_name' <- textToCString prg_name+    g_on_error_query prg_name'+    freeMem prg_name'+    return ()++-- function g_on_error_stack_trace+-- Args : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_on_error_stack_trace" g_on_error_stack_trace :: +    CString ->                              -- prg_name : TBasicType TUTF8+    IO ()+++onErrorStackTrace ::+    (MonadIO m) =>+    T.Text ->                               -- prg_name+    m ()+onErrorStackTrace prg_name = liftIO $ do+    prg_name' <- textToCString prg_name+    g_on_error_stack_trace prg_name'+    freeMem prg_name'+    return ()++-- function g_once_init_enter+-- Args : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_once_init_enter" g_once_init_enter :: +    Ptr () ->                               -- location : TBasicType TVoid+    IO CInt+++onceInitEnter ::+    (MonadIO m) =>+    Ptr () ->                               -- location+    m Bool+onceInitEnter location = liftIO $ do+    result <- g_once_init_enter location+    let result' = (/= 0) result+    return result'++-- function g_once_init_leave+-- Args : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_once_init_leave" g_once_init_leave :: +    Ptr () ->                               -- location : TBasicType TVoid+    Word64 ->                               -- result : TBasicType TUInt64+    IO ()+++onceInitLeave ::+    (MonadIO m) =>+    Ptr () ->                               -- location+    Word64 ->                               -- result+    m ()+onceInitLeave location result_ = liftIO $ do+    g_once_init_leave location result_+    return ()++-- function g_option_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_option_error_quark" g_option_error_quark :: +    IO Word32+++optionErrorQuark ::+    (MonadIO m) =>+    m Word32+optionErrorQuark  = liftIO $ do+    result <- g_option_error_quark+    return result++-- function g_parse_debug_string+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 2 (TInterface "GLib" "DebugKey"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nkeys", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "nkeys", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 2 (TInterface "GLib" "DebugKey"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_parse_debug_string" g_parse_debug_string :: +    CString ->                              -- string : TBasicType TUTF8+    Ptr DebugKey ->                         -- keys : TCArray False (-1) 2 (TInterface "GLib" "DebugKey")+    Word32 ->                               -- nkeys : TBasicType TUInt32+    IO Word32+++parseDebugString ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- string+    [DebugKey] ->                           -- keys+    m Word32+parseDebugString string keys = liftIO $ do+    let nkeys = fromIntegral $ length keys+    maybeString <- case string of+        Nothing -> return nullPtr+        Just jString -> do+            jString' <- textToCString jString+            return jString'+    let keys' = map unsafeManagedPtrGetPtr keys+    keys'' <- packBlockArray 16 keys'+    result <- g_parse_debug_string maybeString keys'' nkeys+    mapM_ touchManagedPtr keys+    freeMem maybeString+    freeMem keys''+    return result++-- function g_path_get_basename+-- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_path_get_basename" g_path_get_basename :: +    CString ->                              -- file_name : TBasicType TUTF8+    IO CString+++pathGetBasename ::+    (MonadIO m) =>+    T.Text ->                               -- file_name+    m T.Text+pathGetBasename file_name = liftIO $ do+    file_name' <- textToCString file_name+    result <- g_path_get_basename file_name'+    checkUnexpectedReturnNULL "g_path_get_basename" result+    result' <- cstringToText result+    freeMem result+    freeMem file_name'+    return result'++-- function g_path_get_dirname+-- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_path_get_dirname" g_path_get_dirname :: +    CString ->                              -- file_name : TBasicType TUTF8+    IO CString+++pathGetDirname ::+    (MonadIO m) =>+    T.Text ->                               -- file_name+    m T.Text+pathGetDirname file_name = liftIO $ do+    file_name' <- textToCString file_name+    result <- g_path_get_dirname file_name'+    checkUnexpectedReturnNULL "g_path_get_dirname" result+    result' <- cstringToText result+    freeMem result+    freeMem file_name'+    return result'++-- function g_path_is_absolute+-- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_path_is_absolute" g_path_is_absolute :: +    CString ->                              -- file_name : TBasicType TUTF8+    IO CInt+++pathIsAbsolute ::+    (MonadIO m) =>+    T.Text ->                               -- file_name+    m Bool+pathIsAbsolute file_name = liftIO $ do+    file_name' <- textToCString file_name+    result <- g_path_is_absolute file_name'+    let result' = (/= 0) result+    freeMem file_name'+    return result'++-- function g_path_skip_root+-- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_path_skip_root" g_path_skip_root :: +    CString ->                              -- file_name : TBasicType TUTF8+    IO CString+++pathSkipRoot ::+    (MonadIO m) =>+    T.Text ->                               -- file_name+    m T.Text+pathSkipRoot file_name = liftIO $ do+    file_name' <- textToCString file_name+    result <- g_path_skip_root file_name'+    checkUnexpectedReturnNULL "g_path_skip_root" result+    result' <- cstringToText result+    freeMem file_name'+    return result'++-- function g_pattern_match+-- Args : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_reversed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_reversed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_pattern_match" g_pattern_match :: +    Ptr PatternSpec ->                      -- pspec : TInterface "GLib" "PatternSpec"+    Word32 ->                               -- string_length : TBasicType TUInt32+    CString ->                              -- string : TBasicType TUTF8+    CString ->                              -- string_reversed : TBasicType TUTF8+    IO CInt+++patternMatch ::+    (MonadIO m) =>+    PatternSpec ->                          -- pspec+    Word32 ->                               -- string_length+    T.Text ->                               -- string+    Maybe (T.Text) ->                       -- string_reversed+    m Bool+patternMatch pspec string_length string string_reversed = liftIO $ do+    let pspec' = unsafeManagedPtrGetPtr pspec+    string' <- textToCString string+    maybeString_reversed <- case string_reversed of+        Nothing -> return nullPtr+        Just jString_reversed -> do+            jString_reversed' <- textToCString jString_reversed+            return jString_reversed'+    result <- g_pattern_match pspec' string_length string' maybeString_reversed+    let result' = (/= 0) result+    touchManagedPtr pspec+    freeMem string'+    freeMem maybeString_reversed+    return result'++-- function g_pattern_match_simple+-- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_pattern_match_simple" g_pattern_match_simple :: +    CString ->                              -- pattern : TBasicType TUTF8+    CString ->                              -- string : TBasicType TUTF8+    IO CInt+++patternMatchSimple ::+    (MonadIO m) =>+    T.Text ->                               -- pattern+    T.Text ->                               -- string+    m Bool+patternMatchSimple pattern string = liftIO $ do+    pattern' <- textToCString pattern+    string' <- textToCString string+    result <- g_pattern_match_simple pattern' string'+    let result' = (/= 0) result+    freeMem pattern'+    freeMem string'+    return result'++-- function g_pattern_match_string+-- Args : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_pattern_match_string" g_pattern_match_string :: +    Ptr PatternSpec ->                      -- pspec : TInterface "GLib" "PatternSpec"+    CString ->                              -- string : TBasicType TUTF8+    IO CInt+++patternMatchString ::+    (MonadIO m) =>+    PatternSpec ->                          -- pspec+    T.Text ->                               -- string+    m Bool+patternMatchString pspec string = liftIO $ do+    let pspec' = unsafeManagedPtrGetPtr pspec+    string' <- textToCString string+    result <- g_pattern_match_string pspec' string'+    let result' = (/= 0) result+    touchManagedPtr pspec+    freeMem string'+    return result'++-- function g_pointer_bit_lock+-- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_pointer_bit_lock" g_pointer_bit_lock :: +    Ptr () ->                               -- address : TBasicType TVoid+    Int32 ->                                -- lock_bit : TBasicType TInt32+    IO ()+++pointerBitLock ::+    (MonadIO m) =>+    Ptr () ->                               -- address+    Int32 ->                                -- lock_bit+    m ()+pointerBitLock address lock_bit = liftIO $ do+    g_pointer_bit_lock address lock_bit+    return ()++-- function g_pointer_bit_trylock+-- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_pointer_bit_trylock" g_pointer_bit_trylock :: +    Ptr () ->                               -- address : TBasicType TVoid+    Int32 ->                                -- lock_bit : TBasicType TInt32+    IO CInt+++pointerBitTrylock ::+    (MonadIO m) =>+    Ptr () ->                               -- address+    Int32 ->                                -- lock_bit+    m Bool+pointerBitTrylock address lock_bit = liftIO $ do+    result <- g_pointer_bit_trylock address lock_bit+    let result' = (/= 0) result+    return result'++-- function g_pointer_bit_unlock+-- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_pointer_bit_unlock" g_pointer_bit_unlock :: +    Ptr () ->                               -- address : TBasicType TVoid+    Int32 ->                                -- lock_bit : TBasicType TInt32+    IO ()+++pointerBitUnlock ::+    (MonadIO m) =>+    Ptr () ->                               -- address+    Int32 ->                                -- lock_bit+    m ()+pointerBitUnlock address lock_bit = liftIO $ do+    g_pointer_bit_unlock address lock_bit+    return ()++-- function g_poll+-- Args : [Arg {argName = "fds", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nfds", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "fds", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nfds", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_poll" g_poll :: +    Ptr PollFD ->                           -- fds : TInterface "GLib" "PollFD"+    Word32 ->                               -- nfds : TBasicType TUInt32+    Int32 ->                                -- timeout : TBasicType TInt32+    IO Int32+++poll ::+    (MonadIO m) =>+    PollFD ->                               -- fds+    Word32 ->                               -- nfds+    Int32 ->                                -- timeout+    m Int32+poll fds nfds timeout = liftIO $ do+    let fds' = unsafeManagedPtrGetPtr fds+    result <- g_poll fds' nfds timeout+    touchManagedPtr fds+    return result++-- function g_propagate_error+-- Args : [Arg {argName = "dest", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "dest", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_propagate_error" g_propagate_error :: +    Ptr GError ->                           -- dest : TError+    Ptr GError ->                           -- src : TError+    IO ()+++propagateError ::+    (MonadIO m) =>+    GError ->                               -- dest+    GError ->                               -- src+    m ()+propagateError dest src = liftIO $ do+    let dest' = unsafeManagedPtrGetPtr dest+    let src' = unsafeManagedPtrGetPtr src+    g_propagate_error dest' src'+    touchManagedPtr dest+    touchManagedPtr src+    return ()++-- function g_quark_from_static_string+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_quark_from_static_string" g_quark_from_static_string :: +    CString ->                              -- string : TBasicType TUTF8+    IO Word32+++quarkFromStaticString ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- string+    m Word32+quarkFromStaticString string = liftIO $ do+    maybeString <- case string of+        Nothing -> return nullPtr+        Just jString -> do+            jString' <- textToCString jString+            return jString'+    result <- g_quark_from_static_string maybeString+    freeMem maybeString+    return result++-- function g_quark_from_string+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_quark_from_string" g_quark_from_string :: +    CString ->                              -- string : TBasicType TUTF8+    IO Word32+++quarkFromString ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- string+    m Word32+quarkFromString string = liftIO $ do+    maybeString <- case string of+        Nothing -> return nullPtr+        Just jString -> do+            jString' <- textToCString jString+            return jString'+    result <- g_quark_from_string maybeString+    freeMem maybeString+    return result++-- function g_quark_to_string+-- Args : [Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_quark_to_string" g_quark_to_string :: +    Word32 ->                               -- quark : TBasicType TUInt32+    IO CString+++quarkToString ::+    (MonadIO m) =>+    Word32 ->                               -- quark+    m T.Text+quarkToString quark = liftIO $ do+    result <- g_quark_to_string quark+    checkUnexpectedReturnNULL "g_quark_to_string" result+    result' <- cstringToText result+    return result'++-- function g_quark_try_string+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_quark_try_string" g_quark_try_string :: +    CString ->                              -- string : TBasicType TUTF8+    IO Word32+++quarkTryString ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- string+    m Word32+quarkTryString string = liftIO $ do+    maybeString <- case string of+        Nothing -> return nullPtr+        Just jString -> do+            jString' <- textToCString jString+            return jString'+    result <- g_quark_try_string maybeString+    freeMem maybeString+    return result++-- function g_random_double+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_random_double" g_random_double :: +    IO CDouble+++randomDouble ::+    (MonadIO m) =>+    m Double+randomDouble  = liftIO $ do+    result <- g_random_double+    let result' = realToFrac result+    return result'++-- function g_random_double_range+-- Args : [Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_random_double_range" g_random_double_range :: +    CDouble ->                              -- begin : TBasicType TDouble+    CDouble ->                              -- end : TBasicType TDouble+    IO CDouble+++randomDoubleRange ::+    (MonadIO m) =>+    Double ->                               -- begin+    Double ->                               -- end+    m Double+randomDoubleRange begin end = liftIO $ do+    let begin' = realToFrac begin+    let end' = realToFrac end+    result <- g_random_double_range begin' end'+    let result' = realToFrac result+    return result'++-- function g_random_int+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_random_int" g_random_int :: +    IO Word32+++randomInt ::+    (MonadIO m) =>+    m Word32+randomInt  = liftIO $ do+    result <- g_random_int+    return result++-- function g_random_int_range+-- Args : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_random_int_range" g_random_int_range :: +    Int32 ->                                -- begin : TBasicType TInt32+    Int32 ->                                -- end : TBasicType TInt32+    IO Int32+++randomIntRange ::+    (MonadIO m) =>+    Int32 ->                                -- begin+    Int32 ->                                -- end+    m Int32+randomIntRange begin end = liftIO $ do+    result <- g_random_int_range begin end+    return result++-- function g_random_set_seed+-- Args : [Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_random_set_seed" g_random_set_seed :: +    Word32 ->                               -- seed : TBasicType TUInt32+    IO ()+++randomSetSeed ::+    (MonadIO m) =>+    Word32 ->                               -- seed+    m ()+randomSetSeed seed = liftIO $ do+    g_random_set_seed seed+    return ()++-- function g_regex_check_replacement+-- Args : [Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_references", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_regex_check_replacement" g_regex_check_replacement :: +    CString ->                              -- replacement : TBasicType TUTF8+    Ptr CInt ->                             -- has_references : TBasicType TBoolean+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++regexCheckReplacement ::+    (MonadIO m) =>+    T.Text ->                               -- replacement+    m (Bool)+regexCheckReplacement replacement = liftIO $ do+    replacement' <- textToCString replacement+    has_references <- allocMem :: IO (Ptr CInt)+    onException (do+        _ <- propagateGError $ g_regex_check_replacement replacement' has_references+        has_references' <- peek has_references+        let has_references'' = (/= 0) has_references'+        freeMem replacement'+        freeMem has_references+        return has_references''+     ) (do+        freeMem replacement'+        freeMem has_references+     )++-- function g_regex_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_error_quark" g_regex_error_quark :: +    IO Word32+++regexErrorQuark ::+    (MonadIO m) =>+    m Word32+regexErrorQuark  = liftIO $ do+    result <- g_regex_error_quark+    return result++-- function g_regex_escape_nul+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_escape_nul" g_regex_escape_nul :: +    CString ->                              -- string : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    IO CString+++regexEscapeNul ::+    (MonadIO m) =>+    T.Text ->                               -- string+    Int32 ->                                -- length+    m T.Text+regexEscapeNul string length_ = liftIO $ do+    string' <- textToCString string+    result <- g_regex_escape_nul string' length_+    checkUnexpectedReturnNULL "g_regex_escape_nul" result+    result' <- cstringToText result+    freeMem result+    freeMem string'+    return result'++-- function g_regex_escape_string+-- Args : [Arg {argName = "string", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "string", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_escape_string" g_regex_escape_string :: +    Ptr CString ->                          -- string : TCArray False (-1) 1 (TBasicType TUTF8)+    Int32 ->                                -- length : TBasicType TInt32+    IO CString+++regexEscapeString ::+    (MonadIO m) =>+    [T.Text] ->                             -- string+    m T.Text+regexEscapeString string = liftIO $ do+    let length_ = fromIntegral $ length string+    string' <- packUTF8CArray string+    result <- g_regex_escape_string string' length_+    checkUnexpectedReturnNULL "g_regex_escape_string" result+    result' <- cstringToText result+    freeMem result+    (mapCArrayWithLength length_) freeMem string'+    freeMem string'+    return result'++-- function g_regex_match_simple+-- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_match_simple" g_regex_match_simple :: +    CString ->                              -- pattern : TBasicType TUTF8+    CString ->                              -- string : TBasicType TUTF8+    CUInt ->                                -- compile_options : TInterface "GLib" "RegexCompileFlags"+    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"+    IO CInt+++regexMatchSimple ::+    (MonadIO m) =>+    T.Text ->                               -- pattern+    T.Text ->                               -- string+    [RegexCompileFlags] ->                  -- compile_options+    [RegexMatchFlags] ->                    -- match_options+    m Bool+regexMatchSimple pattern string compile_options match_options = liftIO $ do+    pattern' <- textToCString pattern+    string' <- textToCString string+    let compile_options' = gflagsToWord compile_options+    let match_options' = gflagsToWord match_options+    result <- g_regex_match_simple pattern' string' compile_options' match_options'+    let result' = (/= 0) result+    freeMem pattern'+    freeMem string'+    return result'++-- function g_regex_split_simple+-- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_regex_split_simple" g_regex_split_simple :: +    CString ->                              -- pattern : TBasicType TUTF8+    CString ->                              -- string : TBasicType TUTF8+    CUInt ->                                -- compile_options : TInterface "GLib" "RegexCompileFlags"+    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"+    IO (Ptr CString)+++regexSplitSimple ::+    (MonadIO m) =>+    T.Text ->                               -- pattern+    T.Text ->                               -- string+    [RegexCompileFlags] ->                  -- compile_options+    [RegexMatchFlags] ->                    -- match_options+    m [T.Text]+regexSplitSimple pattern string compile_options match_options = liftIO $ do+    pattern' <- textToCString pattern+    string' <- textToCString string+    let compile_options' = gflagsToWord compile_options+    let match_options' = gflagsToWord match_options+    result <- g_regex_split_simple pattern' string' compile_options' match_options'+    checkUnexpectedReturnNULL "g_regex_split_simple" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    freeMem pattern'+    freeMem string'+    return result'++-- function g_reload_user_special_dirs_cache+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_reload_user_special_dirs_cache" g_reload_user_special_dirs_cache :: +    IO ()+++reloadUserSpecialDirsCache ::+    (MonadIO m) =>+    m ()+reloadUserSpecialDirsCache  = liftIO $ do+    g_reload_user_special_dirs_cache+    return ()++-- function g_return_if_fail_warning+-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_return_if_fail_warning" g_return_if_fail_warning :: +    CString ->                              -- log_domain : TBasicType TUTF8+    CString ->                              -- pretty_function : TBasicType TUTF8+    CString ->                              -- expression : TBasicType TUTF8+    IO ()+++returnIfFailWarning ::+    (MonadIO m) =>+    T.Text ->                               -- log_domain+    T.Text ->                               -- pretty_function+    T.Text ->                               -- expression+    m ()+returnIfFailWarning log_domain pretty_function expression = liftIO $ do+    log_domain' <- textToCString log_domain+    pretty_function' <- textToCString pretty_function+    expression' <- textToCString expression+    g_return_if_fail_warning log_domain' pretty_function' expression'+    freeMem log_domain'+    freeMem pretty_function'+    freeMem expression'+    return ()++-- function g_rmdir+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_rmdir" g_rmdir :: +    CString ->                              -- filename : TBasicType TUTF8+    IO Int32+++rmdir ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    m Int32+rmdir filename = liftIO $ do+    filename' <- textToCString filename+    result <- g_rmdir filename'+    freeMem filename'+    return result++-- function g_sequence_move+-- Args : [Arg {argName = "src", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "src", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_move" g_sequence_move :: +    Ptr SequenceIter ->                     -- src : TInterface "GLib" "SequenceIter"+    Ptr SequenceIter ->                     -- dest : TInterface "GLib" "SequenceIter"+    IO ()+++sequenceMove ::+    (MonadIO m) =>+    SequenceIter ->                         -- src+    SequenceIter ->                         -- dest+    m ()+sequenceMove src dest = liftIO $ do+    let src' = unsafeManagedPtrGetPtr src+    let dest' = unsafeManagedPtrGetPtr dest+    g_sequence_move src' dest'+    touchManagedPtr src+    touchManagedPtr dest+    return ()++-- function g_sequence_move_range+-- Args : [Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_move_range" g_sequence_move_range :: +    Ptr SequenceIter ->                     -- dest : TInterface "GLib" "SequenceIter"+    Ptr SequenceIter ->                     -- begin : TInterface "GLib" "SequenceIter"+    Ptr SequenceIter ->                     -- end : TInterface "GLib" "SequenceIter"+    IO ()+++sequenceMoveRange ::+    (MonadIO m) =>+    SequenceIter ->                         -- dest+    SequenceIter ->                         -- begin+    SequenceIter ->                         -- end+    m ()+sequenceMoveRange dest begin end = liftIO $ do+    let dest' = unsafeManagedPtrGetPtr dest+    let begin' = unsafeManagedPtrGetPtr begin+    let end' = unsafeManagedPtrGetPtr end+    g_sequence_move_range dest' begin' end'+    touchManagedPtr dest+    touchManagedPtr begin+    touchManagedPtr end+    return ()++-- function g_sequence_remove+-- Args : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_remove" g_sequence_remove :: +    Ptr SequenceIter ->                     -- iter : TInterface "GLib" "SequenceIter"+    IO ()+++sequenceRemove ::+    (MonadIO m) =>+    SequenceIter ->                         -- iter+    m ()+sequenceRemove iter = liftIO $ do+    let iter' = unsafeManagedPtrGetPtr iter+    g_sequence_remove iter'+    touchManagedPtr iter+    return ()++-- function g_sequence_remove_range+-- Args : [Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_remove_range" g_sequence_remove_range :: +    Ptr SequenceIter ->                     -- begin : TInterface "GLib" "SequenceIter"+    Ptr SequenceIter ->                     -- end : TInterface "GLib" "SequenceIter"+    IO ()+++sequenceRemoveRange ::+    (MonadIO m) =>+    SequenceIter ->                         -- begin+    SequenceIter ->                         -- end+    m ()+sequenceRemoveRange begin end = liftIO $ do+    let begin' = unsafeManagedPtrGetPtr begin+    let end' = unsafeManagedPtrGetPtr end+    g_sequence_remove_range begin' end'+    touchManagedPtr begin+    touchManagedPtr end+    return ()++-- function g_sequence_set+-- Args : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_set" g_sequence_set :: +    Ptr SequenceIter ->                     -- iter : TInterface "GLib" "SequenceIter"+    Ptr () ->                               -- data : TBasicType TVoid+    IO ()+++sequenceSet ::+    (MonadIO m) =>+    SequenceIter ->                         -- iter+    Ptr () ->                               -- data+    m ()+sequenceSet iter data_ = liftIO $ do+    let iter' = unsafeManagedPtrGetPtr iter+    g_sequence_set iter' data_+    touchManagedPtr iter+    return ()++-- function g_sequence_swap+-- Args : [Arg {argName = "a", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "a", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_sequence_swap" g_sequence_swap :: +    Ptr SequenceIter ->                     -- a : TInterface "GLib" "SequenceIter"+    Ptr SequenceIter ->                     -- b : TInterface "GLib" "SequenceIter"+    IO ()+++sequenceSwap ::+    (MonadIO m) =>+    SequenceIter ->                         -- a+    SequenceIter ->                         -- b+    m ()+sequenceSwap a b = liftIO $ do+    let a' = unsafeManagedPtrGetPtr a+    let b' = unsafeManagedPtrGetPtr b+    g_sequence_swap a' b'+    touchManagedPtr a+    touchManagedPtr b+    return ()++-- function g_set_application_name+-- Args : [Arg {argName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_set_application_name" g_set_application_name :: +    CString ->                              -- application_name : TBasicType TUTF8+    IO ()+++setApplicationName ::+    (MonadIO m) =>+    T.Text ->                               -- application_name+    m ()+setApplicationName application_name = liftIO $ do+    application_name' <- textToCString application_name+    g_set_application_name application_name'+    freeMem application_name'+    return ()++-- function g_set_error_literal+-- Args : [Arg {argName = "err", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "err", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_set_error_literal" g_set_error_literal :: +    Ptr GError ->                           -- err : TError+    Word32 ->                               -- domain : TBasicType TUInt32+    Int32 ->                                -- code : TBasicType TInt32+    CString ->                              -- message : TBasicType TUTF8+    IO ()+++setErrorLiteral ::+    (MonadIO m) =>+    Maybe (GError) ->                       -- err+    Word32 ->                               -- domain+    Int32 ->                                -- code+    T.Text ->                               -- message+    m ()+setErrorLiteral err domain code message = liftIO $ do+    maybeErr <- case err of+        Nothing -> return nullPtr+        Just jErr -> do+            let jErr' = unsafeManagedPtrGetPtr jErr+            return jErr'+    message' <- textToCString message+    g_set_error_literal maybeErr domain code message'+    whenJust err touchManagedPtr+    freeMem message'+    return ()++-- function g_set_prgname+-- Args : [Arg {argName = "prgname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "prgname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_set_prgname" g_set_prgname :: +    CString ->                              -- prgname : TBasicType TUTF8+    IO ()+++setPrgname ::+    (MonadIO m) =>+    T.Text ->                               -- prgname+    m ()+setPrgname prgname = liftIO $ do+    prgname' <- textToCString prgname+    g_set_prgname prgname'+    freeMem prgname'+    return ()++-- function g_setenv+-- Args : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_setenv" g_setenv :: +    CString ->                              -- variable : TBasicType TUTF8+    CString ->                              -- value : TBasicType TUTF8+    CInt ->                                 -- overwrite : TBasicType TBoolean+    IO CInt+++setenv ::+    (MonadIO m) =>+    T.Text ->                               -- variable+    T.Text ->                               -- value+    Bool ->                                 -- overwrite+    m Bool+setenv variable value overwrite = liftIO $ do+    variable' <- textToCString variable+    value' <- textToCString value+    let overwrite' = (fromIntegral . fromEnum) overwrite+    result <- g_setenv variable' value' overwrite'+    let result' = (/= 0) result+    freeMem variable'+    freeMem value'+    return result'++-- function g_shell_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_shell_error_quark" g_shell_error_quark :: +    IO Word32+++shellErrorQuark ::+    (MonadIO m) =>+    m Word32+shellErrorQuark  = liftIO $ do+    result <- g_shell_error_quark+    return result++-- function g_shell_parse_argv+-- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argcp", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argvp", argType = TCArray True (-1) 1 (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_shell_parse_argv" g_shell_parse_argv :: +    CString ->                              -- command_line : TBasicType TUTF8+    Ptr Int32 ->                            -- argcp : TBasicType TInt32+    Ptr (Ptr CString) ->                    -- argvp : TCArray True (-1) 1 (TBasicType TUTF8)+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++shellParseArgv ::+    (MonadIO m) =>+    T.Text ->                               -- command_line+    m (Int32,[T.Text])+shellParseArgv command_line = liftIO $ do+    command_line' <- textToCString command_line+    argcp <- allocMem :: IO (Ptr Int32)+    argvp <- allocMem :: IO (Ptr (Ptr CString))+    onException (do+        _ <- propagateGError $ g_shell_parse_argv command_line' argcp argvp+        argcp' <- peek argcp+        argvp' <- peek argvp+        argvp'' <- unpackZeroTerminatedUTF8CArray argvp'+        mapZeroTerminatedCArray freeMem argvp'+        freeMem argvp'+        freeMem command_line'+        freeMem argcp+        freeMem argvp+        return (argcp', argvp'')+     ) (do+        freeMem command_line'+        freeMem argcp+        freeMem argvp+     )++-- function g_shell_quote+-- Args : [Arg {argName = "unquoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "unquoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_shell_quote" g_shell_quote :: +    CString ->                              -- unquoted_string : TBasicType TUTF8+    IO CString+++shellQuote ::+    (MonadIO m) =>+    T.Text ->                               -- unquoted_string+    m T.Text+shellQuote unquoted_string = liftIO $ do+    unquoted_string' <- textToCString unquoted_string+    result <- g_shell_quote unquoted_string'+    checkUnexpectedReturnNULL "g_shell_quote" result+    result' <- cstringToText result+    freeMem result+    freeMem unquoted_string'+    return result'++-- function g_shell_unquote+-- Args : [Arg {argName = "quoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "quoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : True+-- Skip return : False++foreign import ccall "g_shell_unquote" g_shell_unquote :: +    CString ->                              -- quoted_string : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CString+++shellUnquote ::+    (MonadIO m) =>+    T.Text ->                               -- quoted_string+    m T.Text+shellUnquote quoted_string = liftIO $ do+    quoted_string' <- textToCString quoted_string+    onException (do+        result <- propagateGError $ g_shell_unquote quoted_string'+        checkUnexpectedReturnNULL "g_shell_unquote" result+        result' <- cstringToText result+        freeMem result+        freeMem quoted_string'+        return result'+     ) (do+        freeMem quoted_string'+     )++-- function g_slice_free1+-- Args : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_block", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_block", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_slice_free1" g_slice_free1 :: +    Word64 ->                               -- block_size : TBasicType TUInt64+    Ptr () ->                               -- mem_block : TBasicType TVoid+    IO ()+++sliceFree1 ::+    (MonadIO m) =>+    Word64 ->                               -- block_size+    Ptr () ->                               -- mem_block+    m ()+sliceFree1 block_size mem_block = liftIO $ do+    g_slice_free1 block_size mem_block+    return ()++-- function g_slice_free_chain_with_offset+-- Args : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_chain", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "next_offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_chain", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "next_offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_slice_free_chain_with_offset" g_slice_free_chain_with_offset :: +    Word64 ->                               -- block_size : TBasicType TUInt64+    Ptr () ->                               -- mem_chain : TBasicType TVoid+    Word64 ->                               -- next_offset : TBasicType TUInt64+    IO ()+++sliceFreeChainWithOffset ::+    (MonadIO m) =>+    Word64 ->                               -- block_size+    Ptr () ->                               -- mem_chain+    Word64 ->                               -- next_offset+    m ()+sliceFreeChainWithOffset block_size mem_chain next_offset = liftIO $ do+    g_slice_free_chain_with_offset block_size mem_chain next_offset+    return ()++-- function g_slice_get_config+-- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_slice_get_config" g_slice_get_config :: +    CUInt ->                                -- ckey : TInterface "GLib" "SliceConfig"+    IO Int64+++sliceGetConfig ::+    (MonadIO m) =>+    SliceConfig ->                          -- ckey+    m Int64+sliceGetConfig ckey = liftIO $ do+    let ckey' = (fromIntegral . fromEnum) ckey+    result <- g_slice_get_config ckey'+    return result++-- function g_slice_get_config_state+-- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_slice_get_config_state" g_slice_get_config_state :: +    CUInt ->                                -- ckey : TInterface "GLib" "SliceConfig"+    Int64 ->                                -- address : TBasicType TInt64+    Word32 ->                               -- n_values : TBasicType TUInt32+    IO Int64+++sliceGetConfigState ::+    (MonadIO m) =>+    SliceConfig ->                          -- ckey+    Int64 ->                                -- address+    Word32 ->                               -- n_values+    m Int64+sliceGetConfigState ckey address n_values = liftIO $ do+    let ckey' = (fromIntegral . fromEnum) ckey+    result <- g_slice_get_config_state ckey' address n_values+    return result++-- function g_slice_set_config+-- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_slice_set_config" g_slice_set_config :: +    CUInt ->                                -- ckey : TInterface "GLib" "SliceConfig"+    Int64 ->                                -- value : TBasicType TInt64+    IO ()+++sliceSetConfig ::+    (MonadIO m) =>+    SliceConfig ->                          -- ckey+    Int64 ->                                -- value+    m ()+sliceSetConfig ckey value = liftIO $ do+    let ckey' = (fromIntegral . fromEnum) ckey+    g_slice_set_config ckey' value+    return ()++-- function g_source_remove+-- Args : [Arg {argName = "tag", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tag", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_source_remove" g_source_remove :: +    Word32 ->                               -- tag : TBasicType TUInt32+    IO CInt+++sourceRemove ::+    (MonadIO m) =>+    Word32 ->                               -- tag+    m Bool+sourceRemove tag = liftIO $ do+    result <- g_source_remove tag+    let result' = (/= 0) result+    return result'++-- function g_source_remove_by_funcs_user_data+-- Args : [Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_source_remove_by_funcs_user_data" g_source_remove_by_funcs_user_data :: +    Ptr SourceFuncs ->                      -- funcs : TInterface "GLib" "SourceFuncs"+    Ptr () ->                               -- user_data : TBasicType TVoid+    IO CInt+++sourceRemoveByFuncsUserData ::+    (MonadIO m) =>+    SourceFuncs ->                          -- funcs+    Ptr () ->                               -- user_data+    m Bool+sourceRemoveByFuncsUserData funcs user_data = liftIO $ do+    let funcs' = unsafeManagedPtrGetPtr funcs+    result <- g_source_remove_by_funcs_user_data funcs' user_data+    let result' = (/= 0) result+    touchManagedPtr funcs+    return result'++-- function g_source_remove_by_user_data+-- Args : [Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_source_remove_by_user_data" g_source_remove_by_user_data :: +    Ptr () ->                               -- user_data : TBasicType TVoid+    IO CInt+++sourceRemoveByUserData ::+    (MonadIO m) =>+    Ptr () ->                               -- user_data+    m Bool+sourceRemoveByUserData user_data = liftIO $ do+    result <- g_source_remove_by_user_data user_data+    let result' = (/= 0) result+    return result'++-- function g_source_set_name_by_id+-- Args : [Arg {argName = "tag", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "tag", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_source_set_name_by_id" g_source_set_name_by_id :: +    Word32 ->                               -- tag : TBasicType TUInt32+    CString ->                              -- name : TBasicType TUTF8+    IO ()+++sourceSetNameById ::+    (MonadIO m) =>+    Word32 ->                               -- tag+    T.Text ->                               -- name+    m ()+sourceSetNameById tag name = liftIO $ do+    name' <- textToCString name+    g_source_set_name_by_id tag name'+    freeMem name'+    return ()++-- function g_spaced_primes_closest+-- Args : [Arg {argName = "num", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "num", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_spaced_primes_closest" g_spaced_primes_closest :: +    Word32 ->                               -- num : TBasicType TUInt32+    IO Word32+++spacedPrimesClosest ::+    (MonadIO m) =>+    Word32 ->                               -- num+    m Word32+spacedPrimesClosest num = liftIO $ do+    result <- g_spaced_primes_closest num+    return result++-- function g_spawn_async+-- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_pid", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_spawn_async" g_spawn_async :: +    CString ->                              -- working_directory : TBasicType TUTF8+    Ptr CString ->                          -- argv : TCArray True (-1) (-1) (TBasicType TUTF8)+    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)+    CUInt ->                                -- flags : TInterface "GLib" "SpawnFlags"+    FunPtr SpawnChildSetupFuncC ->          -- child_setup : TInterface "GLib" "SpawnChildSetupFunc"+    Ptr () ->                               -- user_data : TBasicType TVoid+    Ptr Int32 ->                            -- child_pid : TBasicType TInt32+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++spawnAsync ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- working_directory+    [T.Text] ->                             -- argv+    Maybe ([T.Text]) ->                     -- envp+    [SpawnFlags] ->                         -- flags+    Maybe (SpawnChildSetupFunc) ->          -- child_setup+    m (Int32)+spawnAsync working_directory argv envp flags child_setup = liftIO $ do+    maybeWorking_directory <- case working_directory of+        Nothing -> return nullPtr+        Just jWorking_directory -> do+            jWorking_directory' <- textToCString jWorking_directory+            return jWorking_directory'+    argv' <- packZeroTerminatedUTF8CArray argv+    maybeEnvp <- case envp of+        Nothing -> return nullPtr+        Just jEnvp -> do+            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp+            return jEnvp'+    let flags' = gflagsToWord flags+    ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC))+    maybeChild_setup <- case child_setup of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jChild_setup -> do+            jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup)+            poke ptrchild_setup jChild_setup'+            return jChild_setup'+    child_pid <- allocMem :: IO (Ptr Int32)+    let user_data = nullPtr+    onException (do+        _ <- propagateGError $ g_spawn_async maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data child_pid+        child_pid' <- peek child_pid+        freeMem maybeWorking_directory+        mapZeroTerminatedCArray freeMem argv'+        freeMem argv'+        mapZeroTerminatedCArray freeMem maybeEnvp+        freeMem maybeEnvp+        freeMem child_pid+        return child_pid'+     ) (do+        freeMem maybeWorking_directory+        mapZeroTerminatedCArray freeMem argv'+        freeMem argv'+        mapZeroTerminatedCArray freeMem maybeEnvp+        freeMem maybeEnvp+        freeMem child_pid+     )++-- function g_spawn_async_with_pipes+-- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_pid", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_input", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_output", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_spawn_async_with_pipes" g_spawn_async_with_pipes :: +    CString ->                              -- working_directory : TBasicType TUTF8+    Ptr CString ->                          -- argv : TCArray True (-1) (-1) (TBasicType TUTF8)+    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)+    CUInt ->                                -- flags : TInterface "GLib" "SpawnFlags"+    FunPtr SpawnChildSetupFuncC ->          -- child_setup : TInterface "GLib" "SpawnChildSetupFunc"+    Ptr () ->                               -- user_data : TBasicType TVoid+    Ptr Int32 ->                            -- child_pid : TBasicType TInt32+    Ptr Int32 ->                            -- standard_input : TBasicType TInt32+    Ptr Int32 ->                            -- standard_output : TBasicType TInt32+    Ptr Int32 ->                            -- standard_error : TBasicType TInt32+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++spawnAsyncWithPipes ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- working_directory+    [T.Text] ->                             -- argv+    Maybe ([T.Text]) ->                     -- envp+    [SpawnFlags] ->                         -- flags+    Maybe (SpawnChildSetupFunc) ->          -- child_setup+    m (Int32,Int32,Int32,Int32)+spawnAsyncWithPipes working_directory argv envp flags child_setup = liftIO $ do+    maybeWorking_directory <- case working_directory of+        Nothing -> return nullPtr+        Just jWorking_directory -> do+            jWorking_directory' <- textToCString jWorking_directory+            return jWorking_directory'+    argv' <- packZeroTerminatedUTF8CArray argv+    maybeEnvp <- case envp of+        Nothing -> return nullPtr+        Just jEnvp -> do+            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp+            return jEnvp'+    let flags' = gflagsToWord flags+    ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC))+    maybeChild_setup <- case child_setup of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jChild_setup -> do+            jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup)+            poke ptrchild_setup jChild_setup'+            return jChild_setup'+    child_pid <- allocMem :: IO (Ptr Int32)+    standard_input <- allocMem :: IO (Ptr Int32)+    standard_output <- allocMem :: IO (Ptr Int32)+    standard_error <- allocMem :: IO (Ptr Int32)+    let user_data = nullPtr+    onException (do+        _ <- propagateGError $ g_spawn_async_with_pipes maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data child_pid standard_input standard_output standard_error+        child_pid' <- peek child_pid+        standard_input' <- peek standard_input+        standard_output' <- peek standard_output+        standard_error' <- peek standard_error+        freeMem maybeWorking_directory+        mapZeroTerminatedCArray freeMem argv'+        freeMem argv'+        mapZeroTerminatedCArray freeMem maybeEnvp+        freeMem maybeEnvp+        freeMem child_pid+        freeMem standard_input+        freeMem standard_output+        freeMem standard_error+        return (child_pid', standard_input', standard_output', standard_error')+     ) (do+        freeMem maybeWorking_directory+        mapZeroTerminatedCArray freeMem argv'+        freeMem argv'+        mapZeroTerminatedCArray freeMem maybeEnvp+        freeMem maybeEnvp+        freeMem child_pid+        freeMem standard_input+        freeMem standard_output+        freeMem standard_error+     )++-- function g_spawn_check_exit_status+-- Args : [Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_spawn_check_exit_status" g_spawn_check_exit_status :: +    Int32 ->                                -- exit_status : TBasicType TInt32+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++spawnCheckExitStatus ::+    (MonadIO m) =>+    Int32 ->                                -- exit_status+    m ()+spawnCheckExitStatus exit_status = liftIO $ do+    onException (do+        _ <- propagateGError $ g_spawn_check_exit_status exit_status+        return ()+     ) (do+        return ()+     )++-- function g_spawn_close_pid+-- Args : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_spawn_close_pid" g_spawn_close_pid :: +    Int32 ->                                -- pid : TBasicType TInt32+    IO ()+++spawnClosePid ::+    (MonadIO m) =>+    Int32 ->                                -- pid+    m ()+spawnClosePid pid = liftIO $ do+    g_spawn_close_pid pid+    return ()++-- function g_spawn_command_line_async+-- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_spawn_command_line_async" g_spawn_command_line_async :: +    CString ->                              -- command_line : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++spawnCommandLineAsync ::+    (MonadIO m) =>+    T.Text ->                               -- command_line+    m ()+spawnCommandLineAsync command_line = liftIO $ do+    command_line' <- textToCString command_line+    onException (do+        _ <- propagateGError $ g_spawn_command_line_async command_line'+        freeMem command_line'+        return ()+     ) (do+        freeMem command_line'+     )++-- function g_spawn_command_line_sync+-- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "standard_output", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_spawn_command_line_sync" g_spawn_command_line_sync :: +    CString ->                              -- command_line : TBasicType TUTF8+    Ptr (Ptr Word8) ->                      -- standard_output : TCArray True (-1) (-1) (TBasicType TUInt8)+    Ptr (Ptr Word8) ->                      -- standard_error : TCArray True (-1) (-1) (TBasicType TUInt8)+    Ptr Int32 ->                            -- exit_status : TBasicType TInt32+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++spawnCommandLineSync ::+    (MonadIO m) =>+    T.Text ->                               -- command_line+    m (ByteString,ByteString,Int32)+spawnCommandLineSync command_line = liftIO $ do+    command_line' <- textToCString command_line+    standard_output <- allocMem :: IO (Ptr (Ptr Word8))+    standard_error <- allocMem :: IO (Ptr (Ptr Word8))+    exit_status <- allocMem :: IO (Ptr Int32)+    onException (do+        _ <- propagateGError $ g_spawn_command_line_sync command_line' standard_output standard_error exit_status+        standard_output' <- peek standard_output+        standard_output'' <- unpackZeroTerminatedByteString standard_output'+        freeMem standard_output'+        standard_error' <- peek standard_error+        standard_error'' <- unpackZeroTerminatedByteString standard_error'+        freeMem standard_error'+        exit_status' <- peek exit_status+        freeMem command_line'+        freeMem standard_output+        freeMem standard_error+        freeMem exit_status+        return (standard_output'', standard_error'', exit_status')+     ) (do+        freeMem command_line'+        freeMem standard_output+        freeMem standard_error+        freeMem exit_status+     )++-- function g_spawn_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_spawn_error_quark" g_spawn_error_quark :: +    IO Word32+++spawnErrorQuark ::+    (MonadIO m) =>+    m Word32+spawnErrorQuark  = liftIO $ do+    result <- g_spawn_error_quark+    return result++-- function g_spawn_exit_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_spawn_exit_error_quark" g_spawn_exit_error_quark :: +    IO Word32+++spawnExitErrorQuark ::+    (MonadIO m) =>+    m Word32+spawnExitErrorQuark  = liftIO $ do+    result <- g_spawn_exit_error_quark+    return result++-- function g_spawn_sync+-- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "standard_output", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_spawn_sync" g_spawn_sync :: +    CString ->                              -- working_directory : TBasicType TUTF8+    Ptr CString ->                          -- argv : TCArray True (-1) (-1) (TBasicType TUTF8)+    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)+    CUInt ->                                -- flags : TInterface "GLib" "SpawnFlags"+    FunPtr SpawnChildSetupFuncC ->          -- child_setup : TInterface "GLib" "SpawnChildSetupFunc"+    Ptr () ->                               -- user_data : TBasicType TVoid+    Ptr (Ptr Word8) ->                      -- standard_output : TCArray True (-1) (-1) (TBasicType TUInt8)+    Ptr (Ptr Word8) ->                      -- standard_error : TCArray True (-1) (-1) (TBasicType TUInt8)+    Ptr Int32 ->                            -- exit_status : TBasicType TInt32+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++spawnSync ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- working_directory+    [T.Text] ->                             -- argv+    Maybe ([T.Text]) ->                     -- envp+    [SpawnFlags] ->                         -- flags+    Maybe (SpawnChildSetupFunc) ->          -- child_setup+    m (ByteString,ByteString,Int32)+spawnSync working_directory argv envp flags child_setup = liftIO $ do+    maybeWorking_directory <- case working_directory of+        Nothing -> return nullPtr+        Just jWorking_directory -> do+            jWorking_directory' <- textToCString jWorking_directory+            return jWorking_directory'+    argv' <- packZeroTerminatedUTF8CArray argv+    maybeEnvp <- case envp of+        Nothing -> return nullPtr+        Just jEnvp -> do+            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp+            return jEnvp'+    let flags' = gflagsToWord flags+    ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC))+    maybeChild_setup <- case child_setup of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jChild_setup -> do+            jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup)+            poke ptrchild_setup jChild_setup'+            return jChild_setup'+    standard_output <- allocMem :: IO (Ptr (Ptr Word8))+    standard_error <- allocMem :: IO (Ptr (Ptr Word8))+    exit_status <- allocMem :: IO (Ptr Int32)+    let user_data = nullPtr+    onException (do+        _ <- propagateGError $ g_spawn_sync maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data standard_output standard_error exit_status+        standard_output' <- peek standard_output+        standard_output'' <- unpackZeroTerminatedByteString standard_output'+        freeMem standard_output'+        standard_error' <- peek standard_error+        standard_error'' <- unpackZeroTerminatedByteString standard_error'+        freeMem standard_error'+        exit_status' <- peek exit_status+        freeMem maybeWorking_directory+        mapZeroTerminatedCArray freeMem argv'+        freeMem argv'+        mapZeroTerminatedCArray freeMem maybeEnvp+        freeMem maybeEnvp+        freeMem standard_output+        freeMem standard_error+        freeMem exit_status+        return (standard_output'', standard_error'', exit_status')+     ) (do+        freeMem maybeWorking_directory+        mapZeroTerminatedCArray freeMem argv'+        freeMem argv'+        mapZeroTerminatedCArray freeMem maybeEnvp+        freeMem maybeEnvp+        freeMem standard_output+        freeMem standard_error+        freeMem exit_status+     )++-- function g_stpcpy+-- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_stpcpy" g_stpcpy :: +    CString ->                              -- dest : TBasicType TUTF8+    CString ->                              -- src : TBasicType TUTF8+    IO CString+++stpcpy ::+    (MonadIO m) =>+    T.Text ->                               -- dest+    T.Text ->                               -- src+    m T.Text+stpcpy dest src = liftIO $ do+    dest' <- textToCString dest+    src' <- textToCString src+    result <- g_stpcpy dest' src'+    checkUnexpectedReturnNULL "g_stpcpy" result+    result' <- cstringToText result+    freeMem result+    freeMem dest'+    freeMem src'+    return result'++-- function g_str_equal+-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_str_equal" g_str_equal :: +    Ptr () ->                               -- v1 : TBasicType TVoid+    Ptr () ->                               -- v2 : TBasicType TVoid+    IO CInt+++strEqual ::+    (MonadIO m) =>+    Ptr () ->                               -- v1+    Ptr () ->                               -- v2+    m Bool+strEqual v1 v2 = liftIO $ do+    result <- g_str_equal v1 v2+    let result' = (/= 0) result+    return result'++-- function g_str_has_prefix+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_str_has_prefix" g_str_has_prefix :: +    CString ->                              -- str : TBasicType TUTF8+    CString ->                              -- prefix : TBasicType TUTF8+    IO CInt+++strHasPrefix ::+    (MonadIO m) =>+    T.Text ->                               -- str+    T.Text ->                               -- prefix+    m Bool+strHasPrefix str prefix = liftIO $ do+    str' <- textToCString str+    prefix' <- textToCString prefix+    result <- g_str_has_prefix str' prefix'+    let result' = (/= 0) result+    freeMem str'+    freeMem prefix'+    return result'++-- function g_str_has_suffix+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suffix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suffix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_str_has_suffix" g_str_has_suffix :: +    CString ->                              -- str : TBasicType TUTF8+    CString ->                              -- suffix : TBasicType TUTF8+    IO CInt+++strHasSuffix ::+    (MonadIO m) =>+    T.Text ->                               -- str+    T.Text ->                               -- suffix+    m Bool+strHasSuffix str suffix = liftIO $ do+    str' <- textToCString str+    suffix' <- textToCString suffix+    result <- g_str_has_suffix str' suffix'+    let result' = (/= 0) result+    freeMem str'+    freeMem suffix'+    return result'++-- function g_str_hash+-- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_str_hash" g_str_hash :: +    Ptr () ->                               -- v : TBasicType TVoid+    IO Word32+++strHash ::+    (MonadIO m) =>+    Ptr () ->                               -- v+    m Word32+strHash v = liftIO $ do+    result <- g_str_hash v+    return result++-- function g_str_is_ascii+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_str_is_ascii" g_str_is_ascii :: +    CString ->                              -- str : TBasicType TUTF8+    IO CInt+++strIsAscii ::+    (MonadIO m) =>+    T.Text ->                               -- str+    m Bool+strIsAscii str = liftIO $ do+    str' <- textToCString str+    result <- g_str_is_ascii str'+    let result' = (/= 0) result+    freeMem str'+    return result'++-- function g_str_match_string+-- Args : [Arg {argName = "search_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "potential_hit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_alternates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "search_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "potential_hit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_alternates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_str_match_string" g_str_match_string :: +    CString ->                              -- search_term : TBasicType TUTF8+    CString ->                              -- potential_hit : TBasicType TUTF8+    CInt ->                                 -- accept_alternates : TBasicType TBoolean+    IO CInt+++strMatchString ::+    (MonadIO m) =>+    T.Text ->                               -- search_term+    T.Text ->                               -- potential_hit+    Bool ->                                 -- accept_alternates+    m Bool+strMatchString search_term potential_hit accept_alternates = liftIO $ do+    search_term' <- textToCString search_term+    potential_hit' <- textToCString potential_hit+    let accept_alternates' = (fromIntegral . fromEnum) accept_alternates+    result <- g_str_match_string search_term' potential_hit' accept_alternates'+    let result' = (/= 0) result+    freeMem search_term'+    freeMem potential_hit'+    return result'++-- function g_str_to_ascii+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_str_to_ascii" g_str_to_ascii :: +    CString ->                              -- str : TBasicType TUTF8+    CString ->                              -- from_locale : TBasicType TUTF8+    IO CString+++strToAscii ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Maybe (T.Text) ->                       -- from_locale+    m T.Text+strToAscii str from_locale = liftIO $ do+    str' <- textToCString str+    maybeFrom_locale <- case from_locale of+        Nothing -> return nullPtr+        Just jFrom_locale -> do+            jFrom_locale' <- textToCString jFrom_locale+            return jFrom_locale'+    result <- g_str_to_ascii str' maybeFrom_locale+    checkUnexpectedReturnNULL "g_str_to_ascii" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    freeMem maybeFrom_locale+    return result'++-- function g_str_tokenize_and_fold+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translit_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ascii_alternates", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translit_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_str_tokenize_and_fold" g_str_tokenize_and_fold :: +    CString ->                              -- string : TBasicType TUTF8+    CString ->                              -- translit_locale : TBasicType TUTF8+    Ptr (Ptr CString) ->                    -- ascii_alternates : TCArray True (-1) (-1) (TBasicType TUTF8)+    IO (Ptr CString)+++strTokenizeAndFold ::+    (MonadIO m) =>+    T.Text ->                               -- string+    Maybe (T.Text) ->                       -- translit_locale+    m ([T.Text],[T.Text])+strTokenizeAndFold string translit_locale = liftIO $ do+    string' <- textToCString string+    maybeTranslit_locale <- case translit_locale of+        Nothing -> return nullPtr+        Just jTranslit_locale -> do+            jTranslit_locale' <- textToCString jTranslit_locale+            return jTranslit_locale'+    ascii_alternates <- allocMem :: IO (Ptr (Ptr CString))+    result <- g_str_tokenize_and_fold string' maybeTranslit_locale ascii_alternates+    checkUnexpectedReturnNULL "g_str_tokenize_and_fold" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    ascii_alternates' <- peek ascii_alternates+    ascii_alternates'' <- unpackZeroTerminatedUTF8CArray ascii_alternates'+    mapZeroTerminatedCArray freeMem ascii_alternates'+    freeMem ascii_alternates'+    freeMem string'+    freeMem maybeTranslit_locale+    freeMem ascii_alternates+    return (result', ascii_alternates'')++-- function g_strcanon+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "valid_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitutor", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "valid_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitutor", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strcanon" g_strcanon :: +    CString ->                              -- string : TBasicType TUTF8+    CString ->                              -- valid_chars : TBasicType TUTF8+    Int8 ->                                 -- substitutor : TBasicType TInt8+    IO CString+++strcanon ::+    (MonadIO m) =>+    T.Text ->                               -- string+    T.Text ->                               -- valid_chars+    Int8 ->                                 -- substitutor+    m T.Text+strcanon string valid_chars substitutor = liftIO $ do+    string' <- textToCString string+    valid_chars' <- textToCString valid_chars+    result <- g_strcanon string' valid_chars' substitutor+    checkUnexpectedReturnNULL "g_strcanon" result+    result' <- cstringToText result+    freeMem result+    freeMem string'+    freeMem valid_chars'+    return result'++-- function g_strcasecmp+-- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_strcasecmp" g_strcasecmp :: +    CString ->                              -- s1 : TBasicType TUTF8+    CString ->                              -- s2 : TBasicType TUTF8+    IO Int32++{-# DEPRECATED strcasecmp ["(Since version 2.2)","See g_strncasecmp() for a discussion of why this","    function is deprecated and how to replace it."]#-}+strcasecmp ::+    (MonadIO m) =>+    T.Text ->                               -- s1+    T.Text ->                               -- s2+    m Int32+strcasecmp s1 s2 = liftIO $ do+    s1' <- textToCString s1+    s2' <- textToCString s2+    result <- g_strcasecmp s1' s2'+    freeMem s1'+    freeMem s2'+    return result++-- function g_strchomp+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strchomp" g_strchomp :: +    CString ->                              -- string : TBasicType TUTF8+    IO CString+++strchomp ::+    (MonadIO m) =>+    T.Text ->                               -- string+    m T.Text+strchomp string = liftIO $ do+    string' <- textToCString string+    result <- g_strchomp string'+    checkUnexpectedReturnNULL "g_strchomp" result+    result' <- cstringToText result+    freeMem result+    freeMem string'+    return result'++-- function g_strchug+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strchug" g_strchug :: +    CString ->                              -- string : TBasicType TUTF8+    IO CString+++strchug ::+    (MonadIO m) =>+    T.Text ->                               -- string+    m T.Text+strchug string = liftIO $ do+    string' <- textToCString string+    result <- g_strchug string'+    checkUnexpectedReturnNULL "g_strchug" result+    result' <- cstringToText result+    freeMem result+    freeMem string'+    return result'++-- function g_strcmp0+-- Args : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_strcmp0" g_strcmp0 :: +    CString ->                              -- str1 : TBasicType TUTF8+    CString ->                              -- str2 : TBasicType TUTF8+    IO Int32+++strcmp0 ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- str1+    Maybe (T.Text) ->                       -- str2+    m Int32+strcmp0 str1 str2 = liftIO $ do+    maybeStr1 <- case str1 of+        Nothing -> return nullPtr+        Just jStr1 -> do+            jStr1' <- textToCString jStr1+            return jStr1'+    maybeStr2 <- case str2 of+        Nothing -> return nullPtr+        Just jStr2 -> do+            jStr2' <- textToCString jStr2+            return jStr2'+    result <- g_strcmp0 maybeStr1 maybeStr2+    freeMem maybeStr1+    freeMem maybeStr2+    return result++-- function g_strcompress+-- Args : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strcompress" g_strcompress :: +    CString ->                              -- source : TBasicType TUTF8+    IO CString+++strcompress ::+    (MonadIO m) =>+    T.Text ->                               -- source+    m T.Text+strcompress source = liftIO $ do+    source' <- textToCString source+    result <- g_strcompress source'+    checkUnexpectedReturnNULL "g_strcompress" result+    result' <- cstringToText result+    freeMem result+    freeMem source'+    return result'++-- function g_strdelimit+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "delimiters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_delimiter", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "delimiters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_delimiter", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strdelimit" g_strdelimit :: +    CString ->                              -- string : TBasicType TUTF8+    CString ->                              -- delimiters : TBasicType TUTF8+    Int8 ->                                 -- new_delimiter : TBasicType TInt8+    IO CString+++strdelimit ::+    (MonadIO m) =>+    T.Text ->                               -- string+    Maybe (T.Text) ->                       -- delimiters+    Int8 ->                                 -- new_delimiter+    m T.Text+strdelimit string delimiters new_delimiter = liftIO $ do+    string' <- textToCString string+    maybeDelimiters <- case delimiters of+        Nothing -> return nullPtr+        Just jDelimiters -> do+            jDelimiters' <- textToCString jDelimiters+            return jDelimiters'+    result <- g_strdelimit string' maybeDelimiters new_delimiter+    checkUnexpectedReturnNULL "g_strdelimit" result+    result' <- cstringToText result+    freeMem result+    freeMem string'+    freeMem maybeDelimiters+    return result'++-- function g_strdown+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strdown" g_strdown :: +    CString ->                              -- string : TBasicType TUTF8+    IO CString++{-# DEPRECATED strdown ["(Since version 2.2)","This function is totally broken for the reasons discussed","in the g_strncasecmp() docs - use g_ascii_strdown() or g_utf8_strdown()","instead."]#-}+strdown ::+    (MonadIO m) =>+    T.Text ->                               -- string+    m T.Text+strdown string = liftIO $ do+    string' <- textToCString string+    result <- g_strdown string'+    checkUnexpectedReturnNULL "g_strdown" result+    result' <- cstringToText result+    freeMem result+    freeMem string'+    return result'++-- function g_strdup+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strdup" g_strdup :: +    CString ->                              -- str : TBasicType TUTF8+    IO CString+++strdup ::+    (MonadIO m) =>+    T.Text ->                               -- str+    m T.Text+strdup str = liftIO $ do+    str' <- textToCString str+    result <- g_strdup str'+    checkUnexpectedReturnNULL "g_strdup" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_strerror+-- Args : [Arg {argName = "errnum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "errnum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strerror" g_strerror :: +    Int32 ->                                -- errnum : TBasicType TInt32+    IO CString+++strerror ::+    (MonadIO m) =>+    Int32 ->                                -- errnum+    m T.Text+strerror errnum = liftIO $ do+    result <- g_strerror errnum+    checkUnexpectedReturnNULL "g_strerror" result+    result' <- cstringToText result+    return result'++-- function g_strescape+-- Args : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exceptions", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exceptions", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strescape" g_strescape :: +    CString ->                              -- source : TBasicType TUTF8+    CString ->                              -- exceptions : TBasicType TUTF8+    IO CString+++strescape ::+    (MonadIO m) =>+    T.Text ->                               -- source+    T.Text ->                               -- exceptions+    m T.Text+strescape source exceptions = liftIO $ do+    source' <- textToCString source+    exceptions' <- textToCString exceptions+    result <- g_strescape source' exceptions'+    checkUnexpectedReturnNULL "g_strescape" result+    result' <- cstringToText result+    freeMem result+    freeMem source'+    freeMem exceptions'+    return result'++-- function g_strfreev+-- Args : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_strfreev" g_strfreev :: +    CString ->                              -- str_array : TBasicType TUTF8+    IO ()+++strfreev ::+    (MonadIO m) =>+    T.Text ->                               -- str_array+    m ()+strfreev str_array = liftIO $ do+    str_array' <- textToCString str_array+    g_strfreev str_array'+    freeMem str_array'+    return ()++-- function g_string_new+-- Args : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_new" g_string_new :: +    CString ->                              -- init : TBasicType TUTF8+    IO (Ptr String)+++stringNew ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- init+    m String+stringNew init = liftIO $ do+    maybeInit <- case init of+        Nothing -> return nullPtr+        Just jInit -> do+            jInit' <- textToCString jInit+            return jInit'+    result <- g_string_new maybeInit+    checkUnexpectedReturnNULL "g_string_new" result+    result' <- (wrapBoxed String) result+    freeMem maybeInit+    return result'++-- function g_string_new_len+-- Args : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_new_len" g_string_new_len :: +    CString ->                              -- init : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO (Ptr String)+++stringNewLen ::+    (MonadIO m) =>+    T.Text ->                               -- init+    Int64 ->                                -- len+    m String+stringNewLen init len = liftIO $ do+    init' <- textToCString init+    result <- g_string_new_len init' len+    checkUnexpectedReturnNULL "g_string_new_len" result+    result' <- (wrapBoxed String) result+    freeMem init'+    return result'++-- function g_string_sized_new+-- Args : [Arg {argName = "dfl_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "dfl_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "g_string_sized_new" g_string_sized_new :: +    Word64 ->                               -- dfl_size : TBasicType TUInt64+    IO (Ptr String)+++stringSizedNew ::+    (MonadIO m) =>+    Word64 ->                               -- dfl_size+    m String+stringSizedNew dfl_size = liftIO $ do+    result <- g_string_sized_new dfl_size+    checkUnexpectedReturnNULL "g_string_sized_new" result+    result' <- (wrapBoxed String) result+    return result'++-- function g_strip_context+-- Args : [Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strip_context" g_strip_context :: +    CString ->                              -- msgid : TBasicType TUTF8+    CString ->                              -- msgval : TBasicType TUTF8+    IO CString+++stripContext ::+    (MonadIO m) =>+    T.Text ->                               -- msgid+    T.Text ->                               -- msgval+    m T.Text+stripContext msgid msgval = liftIO $ do+    msgid' <- textToCString msgid+    msgval' <- textToCString msgval+    result <- g_strip_context msgid' msgval'+    checkUnexpectedReturnNULL "g_strip_context" result+    result' <- cstringToText result+    freeMem msgid'+    freeMem msgval'+    return result'++-- function g_strjoinv+-- Args : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strjoinv" g_strjoinv :: +    CString ->                              -- separator : TBasicType TUTF8+    CString ->                              -- str_array : TBasicType TUTF8+    IO CString+++strjoinv ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- separator+    T.Text ->                               -- str_array+    m T.Text+strjoinv separator str_array = liftIO $ do+    maybeSeparator <- case separator of+        Nothing -> return nullPtr+        Just jSeparator -> do+            jSeparator' <- textToCString jSeparator+            return jSeparator'+    str_array' <- textToCString str_array+    result <- g_strjoinv maybeSeparator str_array'+    checkUnexpectedReturnNULL "g_strjoinv" result+    result' <- cstringToText result+    freeMem result+    freeMem maybeSeparator+    freeMem str_array'+    return result'++-- function g_strlcat+-- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_strlcat" g_strlcat :: +    CString ->                              -- dest : TBasicType TUTF8+    CString ->                              -- src : TBasicType TUTF8+    Word64 ->                               -- dest_size : TBasicType TUInt64+    IO Word64+++strlcat ::+    (MonadIO m) =>+    T.Text ->                               -- dest+    T.Text ->                               -- src+    Word64 ->                               -- dest_size+    m Word64+strlcat dest src dest_size = liftIO $ do+    dest' <- textToCString dest+    src' <- textToCString src+    result <- g_strlcat dest' src' dest_size+    freeMem dest'+    freeMem src'+    return result++-- function g_strlcpy+-- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_strlcpy" g_strlcpy :: +    CString ->                              -- dest : TBasicType TUTF8+    CString ->                              -- src : TBasicType TUTF8+    Word64 ->                               -- dest_size : TBasicType TUInt64+    IO Word64+++strlcpy ::+    (MonadIO m) =>+    T.Text ->                               -- dest+    T.Text ->                               -- src+    Word64 ->                               -- dest_size+    m Word64+strlcpy dest src dest_size = liftIO $ do+    dest' <- textToCString dest+    src' <- textToCString src+    result <- g_strlcpy dest' src' dest_size+    freeMem dest'+    freeMem src'+    return result++-- function g_strncasecmp+-- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_strncasecmp" g_strncasecmp :: +    CString ->                              -- s1 : TBasicType TUTF8+    CString ->                              -- s2 : TBasicType TUTF8+    Word32 ->                               -- n : TBasicType TUInt32+    IO Int32++{-# DEPRECATED strncasecmp ["(Since version 2.2)","The problem with g_strncasecmp() is that it does","    the comparison by calling toupper()/tolower(). These functions","    are locale-specific and operate on single bytes. However, it is","    impossible to handle things correctly from an internationalization","    standpoint by operating on bytes, since characters may be multibyte.","    Thus g_strncasecmp() is broken if your string is guaranteed to be","    ASCII, since it is locale-sensitive, and it's broken if your string","    is localized, since it doesn't work on many encodings at all,","    including UTF-8, EUC-JP, etc.","","    There are therefore two replacement techniques: g_ascii_strncasecmp(),","    which only works on ASCII and is not locale-sensitive, and","    g_utf8_casefold() followed by strcmp() on the resulting strings,","    which is good for case-insensitive sorting of UTF-8."]#-}+strncasecmp ::+    (MonadIO m) =>+    T.Text ->                               -- s1+    T.Text ->                               -- s2+    Word32 ->                               -- n+    m Int32+strncasecmp s1 s2 n = liftIO $ do+    s1' <- textToCString s1+    s2' <- textToCString s2+    result <- g_strncasecmp s1' s2' n+    freeMem s1'+    freeMem s2'+    return result++-- function g_strndup+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strndup" g_strndup :: +    CString ->                              -- str : TBasicType TUTF8+    Word64 ->                               -- n : TBasicType TUInt64+    IO CString+++strndup ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Word64 ->                               -- n+    m T.Text+strndup str n = liftIO $ do+    str' <- textToCString str+    result <- g_strndup str' n+    checkUnexpectedReturnNULL "g_strndup" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_strnfill+-- Args : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_char", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_char", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strnfill" g_strnfill :: +    Word64 ->                               -- length : TBasicType TUInt64+    Int8 ->                                 -- fill_char : TBasicType TInt8+    IO CString+++strnfill ::+    (MonadIO m) =>+    Word64 ->                               -- length+    Int8 ->                                 -- fill_char+    m T.Text+strnfill length_ fill_char = liftIO $ do+    result <- g_strnfill length_ fill_char+    checkUnexpectedReturnNULL "g_strnfill" result+    result' <- cstringToText result+    freeMem result+    return result'++-- function g_strreverse+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strreverse" g_strreverse :: +    CString ->                              -- string : TBasicType TUTF8+    IO CString+++strreverse ::+    (MonadIO m) =>+    T.Text ->                               -- string+    m T.Text+strreverse string = liftIO $ do+    string' <- textToCString string+    result <- g_strreverse string'+    checkUnexpectedReturnNULL "g_strreverse" result+    result' <- cstringToText result+    freeMem result+    freeMem string'+    return result'++-- function g_strrstr+-- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strrstr" g_strrstr :: +    CString ->                              -- haystack : TBasicType TUTF8+    CString ->                              -- needle : TBasicType TUTF8+    IO CString+++strrstr ::+    (MonadIO m) =>+    T.Text ->                               -- haystack+    T.Text ->                               -- needle+    m T.Text+strrstr haystack needle = liftIO $ do+    haystack' <- textToCString haystack+    needle' <- textToCString needle+    result <- g_strrstr haystack' needle'+    checkUnexpectedReturnNULL "g_strrstr" result+    result' <- cstringToText result+    freeMem result+    freeMem haystack'+    freeMem needle'+    return result'++-- function g_strrstr_len+-- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strrstr_len" g_strrstr_len :: +    CString ->                              -- haystack : TBasicType TUTF8+    Int64 ->                                -- haystack_len : TBasicType TInt64+    CString ->                              -- needle : TBasicType TUTF8+    IO CString+++strrstrLen ::+    (MonadIO m) =>+    T.Text ->                               -- haystack+    Int64 ->                                -- haystack_len+    T.Text ->                               -- needle+    m T.Text+strrstrLen haystack haystack_len needle = liftIO $ do+    haystack' <- textToCString haystack+    needle' <- textToCString needle+    result <- g_strrstr_len haystack' haystack_len needle'+    checkUnexpectedReturnNULL "g_strrstr_len" result+    result' <- cstringToText result+    freeMem result+    freeMem haystack'+    freeMem needle'+    return result'++-- function g_strsignal+-- Args : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strsignal" g_strsignal :: +    Int32 ->                                -- signum : TBasicType TInt32+    IO CString+++strsignal ::+    (MonadIO m) =>+    Int32 ->                                -- signum+    m T.Text+strsignal signum = liftIO $ do+    result <- g_strsignal signum+    checkUnexpectedReturnNULL "g_strsignal" result+    result' <- cstringToText result+    return result'++-- function g_strstr_len+-- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strstr_len" g_strstr_len :: +    CString ->                              -- haystack : TBasicType TUTF8+    Int64 ->                                -- haystack_len : TBasicType TInt64+    CString ->                              -- needle : TBasicType TUTF8+    IO CString+++strstrLen ::+    (MonadIO m) =>+    T.Text ->                               -- haystack+    Int64 ->                                -- haystack_len+    T.Text ->                               -- needle+    m T.Text+strstrLen haystack haystack_len needle = liftIO $ do+    haystack' <- textToCString haystack+    needle' <- textToCString needle+    result <- g_strstr_len haystack' haystack_len needle'+    checkUnexpectedReturnNULL "g_strstr_len" result+    result' <- cstringToText result+    freeMem result+    freeMem haystack'+    freeMem needle'+    return result'++-- function g_strtod+-- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_strtod" g_strtod :: +    CString ->                              -- nptr : TBasicType TUTF8+    CString ->                              -- endptr : TBasicType TUTF8+    IO CDouble+++strtod ::+    (MonadIO m) =>+    T.Text ->                               -- nptr+    T.Text ->                               -- endptr+    m Double+strtod nptr endptr = liftIO $ do+    nptr' <- textToCString nptr+    endptr' <- textToCString endptr+    result <- g_strtod nptr' endptr'+    let result' = realToFrac result+    freeMem nptr'+    freeMem endptr'+    return result'++-- function g_strup+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_strup" g_strup :: +    CString ->                              -- string : TBasicType TUTF8+    IO CString++{-# DEPRECATED strup ["(Since version 2.2)","This function is totally broken for the reasons","    discussed in the g_strncasecmp() docs - use g_ascii_strup()","    or g_utf8_strup() instead."]#-}+strup ::+    (MonadIO m) =>+    T.Text ->                               -- string+    m T.Text+strup string = liftIO $ do+    string' <- textToCString string+    result <- g_strup string'+    checkUnexpectedReturnNULL "g_strup" result+    result' <- cstringToText result+    freeMem result+    freeMem string'+    return result'++-- function g_strv_contains+-- Args : [Arg {argName = "strv", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "strv", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_strv_contains" g_strv_contains :: +    CString ->                              -- strv : TBasicType TUTF8+    CString ->                              -- str : TBasicType TUTF8+    IO CInt+++strvContains ::+    (MonadIO m) =>+    T.Text ->                               -- strv+    T.Text ->                               -- str+    m Bool+strvContains strv str = liftIO $ do+    strv' <- textToCString strv+    str' <- textToCString str+    result <- g_strv_contains strv' str'+    let result' = (/= 0) result+    freeMem strv'+    freeMem str'+    return result'++-- function g_strv_get_type+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TGType+-- throws : False+-- Skip return : False++foreign import ccall "g_strv_get_type" g_strv_get_type :: +    IO CGType+++strvGetType ::+    (MonadIO m) =>+    m GType+strvGetType  = liftIO $ do+    result <- g_strv_get_type+    let result' = GType result+    return result'++-- function g_strv_length+-- Args : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_strv_length" g_strv_length :: +    CString ->                              -- str_array : TBasicType TUTF8+    IO Word32+++strvLength ::+    (MonadIO m) =>+    T.Text ->                               -- str_array+    m Word32+strvLength str_array = liftIO $ do+    str_array' <- textToCString str_array+    result <- g_strv_length str_array'+    freeMem str_array'+    return result++-- function g_test_add_data_func+-- Args : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_add_data_func" g_test_add_data_func :: +    CString ->                              -- testpath : TBasicType TUTF8+    Ptr () ->                               -- test_data : TBasicType TVoid+    FunPtr TestDataFuncC ->                 -- test_func : TInterface "GLib" "TestDataFunc"+    IO ()+++testAddDataFunc ::+    (MonadIO m) =>+    T.Text ->                               -- testpath+    Ptr () ->                               -- test_data+    TestDataFunc ->                         -- test_func+    m ()+testAddDataFunc testpath test_data test_func = liftIO $ do+    testpath' <- textToCString testpath+    ptrtest_func <- callocMem :: IO (Ptr (FunPtr TestDataFuncC))+    test_func' <- mkTestDataFunc (testDataFuncWrapper (Just ptrtest_func) test_func)+    poke ptrtest_func test_func'+    g_test_add_data_func testpath' test_data test_func'+    freeMem testpath'+    return ()++-- function g_test_add_func+-- Args : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_add_func" g_test_add_func :: +    CString ->                              -- testpath : TBasicType TUTF8+    FunPtr TestFuncC ->                     -- test_func : TInterface "GLib" "TestFunc"+    IO ()+++testAddFunc ::+    (MonadIO m) =>+    T.Text ->                               -- testpath+    TestFunc ->                             -- test_func+    m ()+testAddFunc testpath test_func = liftIO $ do+    testpath' <- textToCString testpath+    ptrtest_func <- callocMem :: IO (Ptr (FunPtr TestFuncC))+    test_func' <- mkTestFunc (testFuncWrapper (Just ptrtest_func) test_func)+    poke ptrtest_func test_func'+    g_test_add_func testpath' test_func'+    freeMem testpath'+    return ()++-- function g_test_assert_expected_messages_internal+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_assert_expected_messages_internal" g_test_assert_expected_messages_internal :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- file : TBasicType TUTF8+    Int32 ->                                -- line : TBasicType TInt32+    CString ->                              -- func : TBasicType TUTF8+    IO ()+++testAssertExpectedMessagesInternal ::+    (MonadIO m) =>+    T.Text ->                               -- domain+    T.Text ->                               -- file+    Int32 ->                                -- line+    T.Text ->                               -- func+    m ()+testAssertExpectedMessagesInternal domain file line func = liftIO $ do+    domain' <- textToCString domain+    file' <- textToCString file+    func' <- textToCString func+    g_test_assert_expected_messages_internal domain' file' line func'+    freeMem domain'+    freeMem file'+    freeMem func'+    return ()++-- function g_test_bug+-- Args : [Arg {argName = "bug_uri_snippet", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "bug_uri_snippet", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_bug" g_test_bug :: +    CString ->                              -- bug_uri_snippet : TBasicType TUTF8+    IO ()+++testBug ::+    (MonadIO m) =>+    T.Text ->                               -- bug_uri_snippet+    m ()+testBug bug_uri_snippet = liftIO $ do+    bug_uri_snippet' <- textToCString bug_uri_snippet+    g_test_bug bug_uri_snippet'+    freeMem bug_uri_snippet'+    return ()++-- function g_test_bug_base+-- Args : [Arg {argName = "uri_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "uri_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_bug_base" g_test_bug_base :: +    CString ->                              -- uri_pattern : TBasicType TUTF8+    IO ()+++testBugBase ::+    (MonadIO m) =>+    T.Text ->                               -- uri_pattern+    m ()+testBugBase uri_pattern = liftIO $ do+    uri_pattern' <- textToCString uri_pattern+    g_test_bug_base uri_pattern'+    freeMem uri_pattern'+    return ()++-- function g_test_expect_message+-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_expect_message" g_test_expect_message :: +    CString ->                              -- log_domain : TBasicType TUTF8+    CUInt ->                                -- log_level : TInterface "GLib" "LogLevelFlags"+    CString ->                              -- pattern : TBasicType TUTF8+    IO ()+++testExpectMessage ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- log_domain+    [LogLevelFlags] ->                      -- log_level+    T.Text ->                               -- pattern+    m ()+testExpectMessage log_domain log_level pattern = liftIO $ do+    maybeLog_domain <- case log_domain of+        Nothing -> return nullPtr+        Just jLog_domain -> do+            jLog_domain' <- textToCString jLog_domain+            return jLog_domain'+    let log_level' = gflagsToWord log_level+    pattern' <- textToCString pattern+    g_test_expect_message maybeLog_domain log_level' pattern'+    freeMem maybeLog_domain+    freeMem pattern'+    return ()++-- function g_test_fail+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_fail" g_test_fail :: +    IO ()+++testFail ::+    (MonadIO m) =>+    m ()+testFail  = liftIO $ do+    g_test_fail+    return ()++-- function g_test_failed+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_test_failed" g_test_failed :: +    IO CInt+++testFailed ::+    (MonadIO m) =>+    m Bool+testFailed  = liftIO $ do+    result <- g_test_failed+    let result' = (/= 0) result+    return result'++-- function g_test_get_dir+-- Args : [Arg {argName = "file_type", argType = TInterface "GLib" "TestFileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "file_type", argType = TInterface "GLib" "TestFileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_test_get_dir" g_test_get_dir :: +    CUInt ->                                -- file_type : TInterface "GLib" "TestFileType"+    IO CString+++testGetDir ::+    (MonadIO m) =>+    TestFileType ->                         -- file_type+    m T.Text+testGetDir file_type = liftIO $ do+    let file_type' = (fromIntegral . fromEnum) file_type+    result <- g_test_get_dir file_type'+    checkUnexpectedReturnNULL "g_test_get_dir" result+    result' <- cstringToText result+    return result'++-- function g_test_incomplete+-- Args : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_incomplete" g_test_incomplete :: +    CString ->                              -- msg : TBasicType TUTF8+    IO ()+++testIncomplete ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- msg+    m ()+testIncomplete msg = liftIO $ do+    maybeMsg <- case msg of+        Nothing -> return nullPtr+        Just jMsg -> do+            jMsg' <- textToCString jMsg+            return jMsg'+    g_test_incomplete maybeMsg+    freeMem maybeMsg+    return ()++-- function g_test_log_type_name+-- Args : [Arg {argName = "log_type", argType = TInterface "GLib" "TestLogType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "log_type", argType = TInterface "GLib" "TestLogType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_test_log_type_name" g_test_log_type_name :: +    CUInt ->                                -- log_type : TInterface "GLib" "TestLogType"+    IO CString+++testLogTypeName ::+    (MonadIO m) =>+    TestLogType ->                          -- log_type+    m T.Text+testLogTypeName log_type = liftIO $ do+    let log_type' = (fromIntegral . fromEnum) log_type+    result <- g_test_log_type_name log_type'+    checkUnexpectedReturnNULL "g_test_log_type_name" result+    result' <- cstringToText result+    return result'++-- function g_test_queue_destroy+-- Args : [Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_queue_destroy" g_test_queue_destroy :: +    FunPtr DestroyNotifyC ->                -- destroy_func : TInterface "GLib" "DestroyNotify"+    Ptr () ->                               -- destroy_data : TBasicType TVoid+    IO ()+++testQueueDestroy ::+    (MonadIO m) =>+    DestroyNotify ->                        -- destroy_func+    Ptr () ->                               -- destroy_data+    m ()+testQueueDestroy destroy_func destroy_data = liftIO $ do+    ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))+    destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func)+    poke ptrdestroy_func destroy_func'+    g_test_queue_destroy destroy_func' destroy_data+    return ()++-- function g_test_queue_free+-- Args : [Arg {argName = "gfree_pointer", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "gfree_pointer", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_queue_free" g_test_queue_free :: +    Ptr () ->                               -- gfree_pointer : TBasicType TVoid+    IO ()+++testQueueFree ::+    (MonadIO m) =>+    Ptr () ->                               -- gfree_pointer+    m ()+testQueueFree gfree_pointer = liftIO $ do+    g_test_queue_free gfree_pointer+    return ()++-- function g_test_rand_double+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_test_rand_double" g_test_rand_double :: +    IO CDouble+++testRandDouble ::+    (MonadIO m) =>+    m Double+testRandDouble  = liftIO $ do+    result <- g_test_rand_double+    let result' = realToFrac result+    return result'++-- function g_test_rand_double_range+-- Args : [Arg {argName = "range_start", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "range_start", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_test_rand_double_range" g_test_rand_double_range :: +    CDouble ->                              -- range_start : TBasicType TDouble+    CDouble ->                              -- range_end : TBasicType TDouble+    IO CDouble+++testRandDoubleRange ::+    (MonadIO m) =>+    Double ->                               -- range_start+    Double ->                               -- range_end+    m Double+testRandDoubleRange range_start range_end = liftIO $ do+    let range_start' = realToFrac range_start+    let range_end' = realToFrac range_end+    result <- g_test_rand_double_range range_start' range_end'+    let result' = realToFrac result+    return result'++-- function g_test_rand_int+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_test_rand_int" g_test_rand_int :: +    IO Int32+++testRandInt ::+    (MonadIO m) =>+    m Int32+testRandInt  = liftIO $ do+    result <- g_test_rand_int+    return result++-- function g_test_rand_int_range+-- Args : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_test_rand_int_range" g_test_rand_int_range :: +    Int32 ->                                -- begin : TBasicType TInt32+    Int32 ->                                -- end : TBasicType TInt32+    IO Int32+++testRandIntRange ::+    (MonadIO m) =>+    Int32 ->                                -- begin+    Int32 ->                                -- end+    m Int32+testRandIntRange begin end = liftIO $ do+    result <- g_test_rand_int_range begin end+    return result++-- function g_test_run+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_test_run" g_test_run :: +    IO Int32+++testRun ::+    (MonadIO m) =>+    m Int32+testRun  = liftIO $ do+    result <- g_test_run+    return result++-- function g_test_run_suite+-- Args : [Arg {argName = "suite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "suite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_test_run_suite" g_test_run_suite :: +    Ptr TestSuite ->                        -- suite : TInterface "GLib" "TestSuite"+    IO Int32+++testRunSuite ::+    (MonadIO m) =>+    TestSuite ->                            -- suite+    m Int32+testRunSuite suite = liftIO $ do+    let suite' = unsafeManagedPtrGetPtr suite+    result <- g_test_run_suite suite'+    touchManagedPtr suite+    return result++-- function g_test_set_nonfatal_assertions+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_set_nonfatal_assertions" g_test_set_nonfatal_assertions :: +    IO ()+++testSetNonfatalAssertions ::+    (MonadIO m) =>+    m ()+testSetNonfatalAssertions  = liftIO $ do+    g_test_set_nonfatal_assertions+    return ()++-- function g_test_skip+-- Args : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_skip" g_test_skip :: +    CString ->                              -- msg : TBasicType TUTF8+    IO ()+++testSkip ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- msg+    m ()+testSkip msg = liftIO $ do+    maybeMsg <- case msg of+        Nothing -> return nullPtr+        Just jMsg -> do+            jMsg' <- textToCString jMsg+            return jMsg'+    g_test_skip maybeMsg+    freeMem maybeMsg+    return ()++-- function g_test_subprocess+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_test_subprocess" g_test_subprocess :: +    IO CInt+++testSubprocess ::+    (MonadIO m) =>+    m Bool+testSubprocess  = liftIO $ do+    result <- g_test_subprocess+    let result' = (/= 0) result+    return result'++-- function g_test_timer_elapsed+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_test_timer_elapsed" g_test_timer_elapsed :: +    IO CDouble+++testTimerElapsed ::+    (MonadIO m) =>+    m Double+testTimerElapsed  = liftIO $ do+    result <- g_test_timer_elapsed+    let result' = realToFrac result+    return result'++-- function g_test_timer_last+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "g_test_timer_last" g_test_timer_last :: +    IO CDouble+++testTimerLast ::+    (MonadIO m) =>+    m Double+testTimerLast  = liftIO $ do+    result <- g_test_timer_last+    let result' = realToFrac result+    return result'++-- function g_test_timer_start+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_timer_start" g_test_timer_start :: +    IO ()+++testTimerStart ::+    (MonadIO m) =>+    m ()+testTimerStart  = liftIO $ do+    g_test_timer_start+    return ()++-- function g_test_trap_assertions+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "assertion_flags", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "assertion_flags", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_trap_assertions" g_test_trap_assertions :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- file : TBasicType TUTF8+    Int32 ->                                -- line : TBasicType TInt32+    CString ->                              -- func : TBasicType TUTF8+    Word64 ->                               -- assertion_flags : TBasicType TUInt64+    CString ->                              -- pattern : TBasicType TUTF8+    IO ()+++testTrapAssertions ::+    (MonadIO m) =>+    T.Text ->                               -- domain+    T.Text ->                               -- file+    Int32 ->                                -- line+    T.Text ->                               -- func+    Word64 ->                               -- assertion_flags+    T.Text ->                               -- pattern+    m ()+testTrapAssertions domain file line func assertion_flags pattern = liftIO $ do+    domain' <- textToCString domain+    file' <- textToCString file+    func' <- textToCString func+    pattern' <- textToCString pattern+    g_test_trap_assertions domain' file' line func' assertion_flags pattern'+    freeMem domain'+    freeMem file'+    freeMem func'+    freeMem pattern'+    return ()++-- function g_test_trap_fork+-- Args : [Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_trap_flags", argType = TInterface "GLib" "TestTrapFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_trap_flags", argType = TInterface "GLib" "TestTrapFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_test_trap_fork" g_test_trap_fork :: +    Word64 ->                               -- usec_timeout : TBasicType TUInt64+    CUInt ->                                -- test_trap_flags : TInterface "GLib" "TestTrapFlags"+    IO CInt++{-# DEPRECATED testTrapFork ["This function is implemented only on Unix platforms,","and is not always reliable due to problems inherent in","fork-without-exec. Use g_test_trap_subprocess() instead."]#-}+testTrapFork ::+    (MonadIO m) =>+    Word64 ->                               -- usec_timeout+    [TestTrapFlags] ->                      -- test_trap_flags+    m Bool+testTrapFork usec_timeout test_trap_flags = liftIO $ do+    let test_trap_flags' = gflagsToWord test_trap_flags+    result <- g_test_trap_fork usec_timeout test_trap_flags'+    let result' = (/= 0) result+    return result'++-- function g_test_trap_has_passed+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_test_trap_has_passed" g_test_trap_has_passed :: +    IO CInt+++testTrapHasPassed ::+    (MonadIO m) =>+    m Bool+testTrapHasPassed  = liftIO $ do+    result <- g_test_trap_has_passed+    let result' = (/= 0) result+    return result'++-- function g_test_trap_reached_timeout+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_test_trap_reached_timeout" g_test_trap_reached_timeout :: +    IO CInt+++testTrapReachedTimeout ::+    (MonadIO m) =>+    m Bool+testTrapReachedTimeout  = liftIO $ do+    result <- g_test_trap_reached_timeout+    let result' = (/= 0) result+    return result'++-- function g_test_trap_subprocess+-- Args : [Arg {argName = "test_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_flags", argType = TInterface "GLib" "TestSubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "test_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_flags", argType = TInterface "GLib" "TestSubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_test_trap_subprocess" g_test_trap_subprocess :: +    CString ->                              -- test_path : TBasicType TUTF8+    Word64 ->                               -- usec_timeout : TBasicType TUInt64+    CUInt ->                                -- test_flags : TInterface "GLib" "TestSubprocessFlags"+    IO ()+++testTrapSubprocess ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- test_path+    Word64 ->                               -- usec_timeout+    [TestSubprocessFlags] ->                -- test_flags+    m ()+testTrapSubprocess test_path usec_timeout test_flags = liftIO $ do+    maybeTest_path <- case test_path of+        Nothing -> return nullPtr+        Just jTest_path -> do+            jTest_path' <- textToCString jTest_path+            return jTest_path'+    let test_flags' = gflagsToWord test_flags+    g_test_trap_subprocess maybeTest_path usec_timeout test_flags'+    freeMem maybeTest_path+    return ()++-- function g_thread_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_error_quark" g_thread_error_quark :: +    IO Word32+++threadErrorQuark ::+    (MonadIO m) =>+    m Word32+threadErrorQuark  = liftIO $ do+    result <- g_thread_error_quark+    return result++-- function g_thread_exit+-- Args : [Arg {argName = "retval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "retval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_exit" g_thread_exit :: +    Ptr () ->                               -- retval : TBasicType TVoid+    IO ()+++threadExit ::+    (MonadIO m) =>+    Ptr () ->                               -- retval+    m ()+threadExit retval = liftIO $ do+    g_thread_exit retval+    return ()++-- function g_thread_pool_get_max_idle_time+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_pool_get_max_idle_time" g_thread_pool_get_max_idle_time :: +    IO Word32+++threadPoolGetMaxIdleTime ::+    (MonadIO m) =>+    m Word32+threadPoolGetMaxIdleTime  = liftIO $ do+    result <- g_thread_pool_get_max_idle_time+    return result++-- function g_thread_pool_get_max_unused_threads+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_pool_get_max_unused_threads" g_thread_pool_get_max_unused_threads :: +    IO Int32+++threadPoolGetMaxUnusedThreads ::+    (MonadIO m) =>+    m Int32+threadPoolGetMaxUnusedThreads  = liftIO $ do+    result <- g_thread_pool_get_max_unused_threads+    return result++-- function g_thread_pool_get_num_unused_threads+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_pool_get_num_unused_threads" g_thread_pool_get_num_unused_threads :: +    IO Word32+++threadPoolGetNumUnusedThreads ::+    (MonadIO m) =>+    m Word32+threadPoolGetNumUnusedThreads  = liftIO $ do+    result <- g_thread_pool_get_num_unused_threads+    return result++-- function g_thread_pool_set_max_idle_time+-- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_pool_set_max_idle_time" g_thread_pool_set_max_idle_time :: +    Word32 ->                               -- interval : TBasicType TUInt32+    IO ()+++threadPoolSetMaxIdleTime ::+    (MonadIO m) =>+    Word32 ->                               -- interval+    m ()+threadPoolSetMaxIdleTime interval = liftIO $ do+    g_thread_pool_set_max_idle_time interval+    return ()++-- function g_thread_pool_set_max_unused_threads+-- Args : [Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_pool_set_max_unused_threads" g_thread_pool_set_max_unused_threads :: +    Int32 ->                                -- max_threads : TBasicType TInt32+    IO ()+++threadPoolSetMaxUnusedThreads ::+    (MonadIO m) =>+    Int32 ->                                -- max_threads+    m ()+threadPoolSetMaxUnusedThreads max_threads = liftIO $ do+    g_thread_pool_set_max_unused_threads max_threads+    return ()++-- function g_thread_pool_stop_unused_threads+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_pool_stop_unused_threads" g_thread_pool_stop_unused_threads :: +    IO ()+++threadPoolStopUnusedThreads ::+    (MonadIO m) =>+    m ()+threadPoolStopUnusedThreads  = liftIO $ do+    g_thread_pool_stop_unused_threads+    return ()++-- function g_thread_self+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GLib" "Thread"+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_self" g_thread_self :: +    IO (Ptr Thread)+++threadSelf ::+    (MonadIO m) =>+    m Thread+threadSelf  = liftIO $ do+    result <- g_thread_self+    checkUnexpectedReturnNULL "g_thread_self" result+    result' <- (wrapBoxed Thread) result+    return result'++-- function g_thread_yield+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_thread_yield" g_thread_yield :: +    IO ()+++threadYield ::+    (MonadIO m) =>+    m ()+threadYield  = liftIO $ do+    g_thread_yield+    return ()++-- function g_time_val_from_iso8601+-- Args : [Arg {argName = "iso_date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "iso_date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_time_val_from_iso8601" g_time_val_from_iso8601 :: +    CString ->                              -- iso_date : TBasicType TUTF8+    Ptr TimeVal ->                          -- time_ : TInterface "GLib" "TimeVal"+    IO CInt+++timeValFromIso8601 ::+    (MonadIO m) =>+    T.Text ->                               -- iso_date+    m (Bool,TimeVal)+timeValFromIso8601 iso_date = liftIO $ do+    iso_date' <- textToCString iso_date+    time_ <- callocBytes 16 :: IO (Ptr TimeVal)+    result <- g_time_val_from_iso8601 iso_date' time_+    let result' = (/= 0) result+    time_' <- (wrapPtr TimeVal) time_+    freeMem iso_date'+    return (result', time_')++-- function g_timeout_add_full+-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_timeout_add_full" g_timeout_add_full :: +    Int32 ->                                -- priority : TBasicType TInt32+    Word32 ->                               -- interval : TBasicType TUInt32+    FunPtr SourceFuncC ->                   -- function : TInterface "GLib" "SourceFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"+    IO Word32+++timeoutAdd ::+    (MonadIO m) =>+    Int32 ->                                -- priority+    Word32 ->                               -- interval+    SourceFunc ->                           -- function+    m Word32+timeoutAdd priority interval function = liftIO $ do+    function' <- mkSourceFunc (sourceFuncWrapper Nothing function)+    let data_ = castFunPtrToPtr function'+    let notify = safeFreeFunPtrPtr+    result <- g_timeout_add_full priority interval function' data_ notify+    return result++-- function g_timeout_add_seconds_full+-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_timeout_add_seconds_full" g_timeout_add_seconds_full :: +    Int32 ->                                -- priority : TBasicType TInt32+    Word32 ->                               -- interval : TBasicType TUInt32+    FunPtr SourceFuncC ->                   -- function : TInterface "GLib" "SourceFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"+    IO Word32+++timeoutAddSeconds ::+    (MonadIO m) =>+    Int32 ->                                -- priority+    Word32 ->                               -- interval+    SourceFunc ->                           -- function+    m Word32+timeoutAddSeconds priority interval function = liftIO $ do+    function' <- mkSourceFunc (sourceFuncWrapper Nothing function)+    let data_ = castFunPtrToPtr function'+    let notify = safeFreeFunPtrPtr+    result <- g_timeout_add_seconds_full priority interval function' data_ notify+    return result++-- function g_timeout_source_new+-- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_timeout_source_new" g_timeout_source_new :: +    Word32 ->                               -- interval : TBasicType TUInt32+    IO (Ptr Source)+++timeoutSourceNew ::+    (MonadIO m) =>+    Word32 ->                               -- interval+    m Source+timeoutSourceNew interval = liftIO $ do+    result <- g_timeout_source_new interval+    checkUnexpectedReturnNULL "g_timeout_source_new" result+    result' <- (wrapBoxed Source) result+    return result'++-- function g_timeout_source_new_seconds+-- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_timeout_source_new_seconds" g_timeout_source_new_seconds :: +    Word32 ->                               -- interval : TBasicType TUInt32+    IO (Ptr Source)+++timeoutSourceNewSeconds ::+    (MonadIO m) =>+    Word32 ->                               -- interval+    m Source+timeoutSourceNewSeconds interval = liftIO $ do+    result <- g_timeout_source_new_seconds interval+    checkUnexpectedReturnNULL "g_timeout_source_new_seconds" result+    result' <- (wrapBoxed Source) result+    return result'++-- function g_trash_stack_height+-- Args : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_trash_stack_height" g_trash_stack_height :: +    Ptr TrashStack ->                       -- stack_p : TInterface "GLib" "TrashStack"+    IO Word32+++trashStackHeight ::+    (MonadIO m) =>+    TrashStack ->                           -- stack_p+    m Word32+trashStackHeight stack_p = liftIO $ do+    let stack_p' = unsafeManagedPtrGetPtr stack_p+    result <- g_trash_stack_height stack_p'+    touchManagedPtr stack_p+    return result++-- function g_trash_stack_push+-- Args : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_trash_stack_push" g_trash_stack_push :: +    Ptr TrashStack ->                       -- stack_p : TInterface "GLib" "TrashStack"+    Ptr () ->                               -- data_p : TBasicType TVoid+    IO ()+++trashStackPush ::+    (MonadIO m) =>+    TrashStack ->                           -- stack_p+    Ptr () ->                               -- data_p+    m ()+trashStackPush stack_p data_p = liftIO $ do+    let stack_p' = unsafeManagedPtrGetPtr stack_p+    g_trash_stack_push stack_p' data_p+    touchManagedPtr stack_p+    return ()++-- function g_unichar_break_type+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "UnicodeBreakType"+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_break_type" g_unichar_break_type :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CUInt+++unicharBreakType ::+    (MonadIO m) =>+    Char ->                                 -- c+    m UnicodeBreakType+unicharBreakType c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_break_type c'+    let result' = (toEnum . fromIntegral) result+    return result'++-- function g_unichar_combining_class+-- Args : [Arg {argName = "uc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "uc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_combining_class" g_unichar_combining_class :: +    CInt ->                                 -- uc : TBasicType TUniChar+    IO Int32+++unicharCombiningClass ::+    (MonadIO m) =>+    Char ->                                 -- uc+    m Int32+unicharCombiningClass uc = liftIO $ do+    let uc' = (fromIntegral . ord) uc+    result <- g_unichar_combining_class uc'+    return result++-- function g_unichar_compose+-- Args : [Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_compose" g_unichar_compose :: +    CInt ->                                 -- a : TBasicType TUniChar+    CInt ->                                 -- b : TBasicType TUniChar+    CInt ->                                 -- ch : TBasicType TUniChar+    IO CInt+++unicharCompose ::+    (MonadIO m) =>+    Char ->                                 -- a+    Char ->                                 -- b+    Char ->                                 -- ch+    m Bool+unicharCompose a b ch = liftIO $ do+    let a' = (fromIntegral . ord) a+    let b' = (fromIntegral . ord) b+    let ch' = (fromIntegral . ord) ch+    result <- g_unichar_compose a' b' ch'+    let result' = (/= 0) result+    return result'++-- function g_unichar_decompose+-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_decompose" g_unichar_decompose :: +    CInt ->                                 -- ch : TBasicType TUniChar+    CInt ->                                 -- a : TBasicType TUniChar+    CInt ->                                 -- b : TBasicType TUniChar+    IO CInt+++unicharDecompose ::+    (MonadIO m) =>+    Char ->                                 -- ch+    Char ->                                 -- a+    Char ->                                 -- b+    m Bool+unicharDecompose ch a b = liftIO $ do+    let ch' = (fromIntegral . ord) ch+    let a' = (fromIntegral . ord) a+    let b' = (fromIntegral . ord) b+    result <- g_unichar_decompose ch' a' b'+    let result' = (/= 0) result+    return result'++-- function g_unichar_digit_value+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_digit_value" g_unichar_digit_value :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO Int32+++unicharDigitValue ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Int32+unicharDigitValue c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_digit_value c'+    return result++-- function g_unichar_get_mirror_char+-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_get_mirror_char" g_unichar_get_mirror_char :: +    CInt ->                                 -- ch : TBasicType TUniChar+    CInt ->                                 -- mirrored_ch : TBasicType TUniChar+    IO CInt+++unicharGetMirrorChar ::+    (MonadIO m) =>+    Char ->                                 -- ch+    Char ->                                 -- mirrored_ch+    m Bool+unicharGetMirrorChar ch mirrored_ch = liftIO $ do+    let ch' = (fromIntegral . ord) ch+    let mirrored_ch' = (fromIntegral . ord) mirrored_ch+    result <- g_unichar_get_mirror_char ch' mirrored_ch'+    let result' = (/= 0) result+    return result'++-- function g_unichar_get_script+-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "UnicodeScript"+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_get_script" g_unichar_get_script :: +    CInt ->                                 -- ch : TBasicType TUniChar+    IO CUInt+++unicharGetScript ::+    (MonadIO m) =>+    Char ->                                 -- ch+    m UnicodeScript+unicharGetScript ch = liftIO $ do+    let ch' = (fromIntegral . ord) ch+    result <- g_unichar_get_script ch'+    let result' = (toEnum . fromIntegral) result+    return result'++-- function g_unichar_isalnum+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_isalnum" g_unichar_isalnum :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIsalnum ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIsalnum c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_isalnum c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_isalpha+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_isalpha" g_unichar_isalpha :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIsalpha ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIsalpha c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_isalpha c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_iscntrl+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_iscntrl" g_unichar_iscntrl :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIscntrl ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIscntrl c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_iscntrl c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_isdefined+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_isdefined" g_unichar_isdefined :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIsdefined ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIsdefined c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_isdefined c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_isdigit+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_isdigit" g_unichar_isdigit :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIsdigit ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIsdigit c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_isdigit c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_isgraph+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_isgraph" g_unichar_isgraph :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIsgraph ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIsgraph c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_isgraph c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_islower+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_islower" g_unichar_islower :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIslower ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIslower c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_islower c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_ismark+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_ismark" g_unichar_ismark :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIsmark ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIsmark c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_ismark c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_isprint+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_isprint" g_unichar_isprint :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIsprint ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIsprint c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_isprint c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_ispunct+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_ispunct" g_unichar_ispunct :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIspunct ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIspunct c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_ispunct c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_isspace+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_isspace" g_unichar_isspace :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIsspace ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIsspace c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_isspace c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_istitle+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_istitle" g_unichar_istitle :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIstitle ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIstitle c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_istitle c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_isupper+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_isupper" g_unichar_isupper :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIsupper ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIsupper c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_isupper c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_iswide+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_iswide" g_unichar_iswide :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIswide ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIswide c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_iswide c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_iswide_cjk+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_iswide_cjk" g_unichar_iswide_cjk :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIswideCjk ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIswideCjk c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_iswide_cjk c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_isxdigit+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_isxdigit" g_unichar_isxdigit :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIsxdigit ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIsxdigit c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_isxdigit c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_iszerowidth+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_iszerowidth" g_unichar_iszerowidth :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharIszerowidth ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Bool+unicharIszerowidth c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_iszerowidth c'+    let result' = (/= 0) result+    return result'++-- function g_unichar_to_utf8+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_to_utf8" g_unichar_to_utf8 :: +    CInt ->                                 -- c : TBasicType TUniChar+    CString ->                              -- outbuf : TBasicType TUTF8+    IO Int32+++unicharToUtf8 ::+    (MonadIO m) =>+    Char ->                                 -- c+    T.Text ->                               -- outbuf+    m Int32+unicharToUtf8 c outbuf = liftIO $ do+    let c' = (fromIntegral . ord) c+    outbuf' <- textToCString outbuf+    result <- g_unichar_to_utf8 c' outbuf'+    freeMem outbuf'+    return result++-- function g_unichar_tolower+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUniChar+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_tolower" g_unichar_tolower :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharTolower ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Char+unicharTolower c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_tolower c'+    let result' = (chr . fromIntegral) result+    return result'++-- function g_unichar_totitle+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUniChar+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_totitle" g_unichar_totitle :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharTotitle ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Char+unicharTotitle c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_totitle c'+    let result' = (chr . fromIntegral) result+    return result'++-- function g_unichar_toupper+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUniChar+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_toupper" g_unichar_toupper :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CInt+++unicharToupper ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Char+unicharToupper c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_toupper c'+    let result' = (chr . fromIntegral) result+    return result'++-- function g_unichar_type+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "UnicodeType"+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_type" g_unichar_type :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO CUInt+++unicharType ::+    (MonadIO m) =>+    Char ->                                 -- c+    m UnicodeType+unicharType c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_type c'+    let result' = (toEnum . fromIntegral) result+    return result'++-- function g_unichar_validate+-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_validate" g_unichar_validate :: +    CInt ->                                 -- ch : TBasicType TUniChar+    IO CInt+++unicharValidate ::+    (MonadIO m) =>+    Char ->                                 -- ch+    m Bool+unicharValidate ch = liftIO $ do+    let ch' = (fromIntegral . ord) ch+    result <- g_unichar_validate ch'+    let result' = (/= 0) result+    return result'++-- function g_unichar_xdigit_value+-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_unichar_xdigit_value" g_unichar_xdigit_value :: +    CInt ->                                 -- c : TBasicType TUniChar+    IO Int32+++unicharXdigitValue ::+    (MonadIO m) =>+    Char ->                                 -- c+    m Int32+unicharXdigitValue c = liftIO $ do+    let c' = (fromIntegral . ord) c+    result <- g_unichar_xdigit_value c'+    return result++-- function g_unicode_canonical_decomposition+-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUniChar+-- throws : False+-- Skip return : False++foreign import ccall "g_unicode_canonical_decomposition" g_unicode_canonical_decomposition :: +    CInt ->                                 -- ch : TBasicType TUniChar+    Word64 ->                               -- result_len : TBasicType TUInt64+    IO CInt++{-# DEPRECATED unicodeCanonicalDecomposition ["(Since version 2.30)","Use the more flexible g_unichar_fully_decompose()","  instead."]#-}+unicodeCanonicalDecomposition ::+    (MonadIO m) =>+    Char ->                                 -- ch+    Word64 ->                               -- result_len+    m Char+unicodeCanonicalDecomposition ch result_len = liftIO $ do+    let ch' = (fromIntegral . ord) ch+    result <- g_unicode_canonical_decomposition ch' result_len+    let result' = (chr . fromIntegral) result+    return result'++-- function g_unicode_canonical_ordering+-- Args : [Arg {argName = "string", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_unicode_canonical_ordering" g_unicode_canonical_ordering :: +    CInt ->                                 -- string : TBasicType TUniChar+    Word64 ->                               -- len : TBasicType TUInt64+    IO ()+++unicodeCanonicalOrdering ::+    (MonadIO m) =>+    Char ->                                 -- string+    Word64 ->                               -- len+    m ()+unicodeCanonicalOrdering string len = liftIO $ do+    let string' = (fromIntegral . ord) string+    g_unicode_canonical_ordering string' len+    return ()++-- function g_unicode_script_from_iso15924+-- Args : [Arg {argName = "iso15924", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "iso15924", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "UnicodeScript"+-- throws : False+-- Skip return : False++foreign import ccall "g_unicode_script_from_iso15924" g_unicode_script_from_iso15924 :: +    Word32 ->                               -- iso15924 : TBasicType TUInt32+    IO CUInt+++unicodeScriptFromIso15924 ::+    (MonadIO m) =>+    Word32 ->                               -- iso15924+    m UnicodeScript+unicodeScriptFromIso15924 iso15924 = liftIO $ do+    result <- g_unicode_script_from_iso15924 iso15924+    let result' = (toEnum . fromIntegral) result+    return result'++-- function g_unicode_script_to_iso15924+-- Args : [Arg {argName = "script", argType = TInterface "GLib" "UnicodeScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "script", argType = TInterface "GLib" "UnicodeScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_unicode_script_to_iso15924" g_unicode_script_to_iso15924 :: +    CUInt ->                                -- script : TInterface "GLib" "UnicodeScript"+    IO Word32+++unicodeScriptToIso15924 ::+    (MonadIO m) =>+    UnicodeScript ->                        -- script+    m Word32+unicodeScriptToIso15924 script = liftIO $ do+    let script' = (fromIntegral . fromEnum) script+    result <- g_unicode_script_to_iso15924 script'+    return result++-- function g_unix_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_unix_error_quark" g_unix_error_quark :: +    IO Word32+++unixErrorQuark ::+    (MonadIO m) =>+    m Word32+unixErrorQuark  = liftIO $ do+    result <- g_unix_error_quark+    return result++-- function g_unix_fd_add_full+-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "UnixFDSourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "UnixFDSourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_unix_fd_add_full" g_unix_fd_add_full :: +    Int32 ->                                -- priority : TBasicType TInt32+    Int32 ->                                -- fd : TBasicType TInt32+    CUInt ->                                -- condition : TInterface "GLib" "IOCondition"+    FunPtr UnixFDSourceFuncC ->             -- function : TInterface "GLib" "UnixFDSourceFunc"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"+    IO Word32+++unixFdAddFull ::+    (MonadIO m) =>+    Int32 ->                                -- priority+    Int32 ->                                -- fd+    [IOCondition] ->                        -- condition+    UnixFDSourceFunc ->                     -- function+    m Word32+unixFdAddFull priority fd condition function = liftIO $ do+    let condition' = gflagsToWord condition+    function' <- mkUnixFDSourceFunc (unixFDSourceFuncWrapper Nothing function)+    let user_data = castFunPtrToPtr function'+    let notify = safeFreeFunPtrPtr+    result <- g_unix_fd_add_full priority fd condition' function' user_data notify+    return result++-- function g_unix_fd_source_new+-- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_unix_fd_source_new" g_unix_fd_source_new :: +    Int32 ->                                -- fd : TBasicType TInt32+    CUInt ->                                -- condition : TInterface "GLib" "IOCondition"+    IO (Ptr Source)+++unixFdSourceNew ::+    (MonadIO m) =>+    Int32 ->                                -- fd+    [IOCondition] ->                        -- condition+    m Source+unixFdSourceNew fd condition = liftIO $ do+    let condition' = gflagsToWord condition+    result <- g_unix_fd_source_new fd condition'+    checkUnexpectedReturnNULL "g_unix_fd_source_new" result+    result' <- (wrapBoxed Source) result+    return result'++-- function g_unix_open_pipe+-- Args : [Arg {argName = "fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_unix_open_pipe" g_unix_open_pipe :: +    Int32 ->                                -- fds : TBasicType TInt32+    Int32 ->                                -- flags : TBasicType TInt32+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++unixOpenPipe ::+    (MonadIO m) =>+    Int32 ->                                -- fds+    Int32 ->                                -- flags+    m ()+unixOpenPipe fds flags = liftIO $ do+    onException (do+        _ <- propagateGError $ g_unix_open_pipe fds flags+        return ()+     ) (do+        return ()+     )++-- function g_unix_set_fd_nonblocking+-- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nonblock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nonblock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "g_unix_set_fd_nonblocking" g_unix_set_fd_nonblocking :: +    Int32 ->                                -- fd : TBasicType TInt32+    CInt ->                                 -- nonblock : TBasicType TBoolean+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++unixSetFdNonblocking ::+    (MonadIO m) =>+    Int32 ->                                -- fd+    Bool ->                                 -- nonblock+    m ()+unixSetFdNonblocking fd nonblock = liftIO $ do+    let nonblock' = (fromIntegral . fromEnum) nonblock+    onException (do+        _ <- propagateGError $ g_unix_set_fd_nonblocking fd nonblock'+        return ()+     ) (do+        return ()+     )++-- function g_unix_signal_add_full+-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_unix_signal_add_full" g_unix_signal_add_full :: +    Int32 ->                                -- priority : TBasicType TInt32+    Int32 ->                                -- signum : TBasicType TInt32+    FunPtr SourceFuncC ->                   -- handler : TInterface "GLib" "SourceFunc"+    Ptr () ->                               -- user_data : TBasicType TVoid+    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"+    IO Word32+++unixSignalAdd ::+    (MonadIO m) =>+    Int32 ->                                -- priority+    Int32 ->                                -- signum+    SourceFunc ->                           -- handler+    m Word32+unixSignalAdd priority signum handler = liftIO $ do+    handler' <- mkSourceFunc (sourceFuncWrapper Nothing handler)+    let user_data = castFunPtrToPtr handler'+    let notify = safeFreeFunPtrPtr+    result <- g_unix_signal_add_full priority signum handler' user_data notify+    return result++-- function g_unix_signal_source_new+-- Args : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Source"+-- throws : False+-- Skip return : False++foreign import ccall "g_unix_signal_source_new" g_unix_signal_source_new :: +    Int32 ->                                -- signum : TBasicType TInt32+    IO (Ptr Source)+++unixSignalSourceNew ::+    (MonadIO m) =>+    Int32 ->                                -- signum+    m Source+unixSignalSourceNew signum = liftIO $ do+    result <- g_unix_signal_source_new signum+    checkUnexpectedReturnNULL "g_unix_signal_source_new" result+    result' <- (wrapBoxed Source) result+    return result'++-- function g_unlink+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_unlink" g_unlink :: +    CString ->                              -- filename : TBasicType TUTF8+    IO Int32+++unlink ::+    (MonadIO m) =>+    T.Text ->                               -- filename+    m Int32+unlink filename = liftIO $ do+    filename' <- textToCString filename+    result <- g_unlink filename'+    freeMem filename'+    return result++-- function g_unsetenv+-- Args : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_unsetenv" g_unsetenv :: +    CString ->                              -- variable : TBasicType TUTF8+    IO ()+++unsetenv ::+    (MonadIO m) =>+    T.Text ->                               -- variable+    m ()+unsetenv variable = liftIO $ do+    variable' <- textToCString variable+    g_unsetenv variable'+    freeMem variable'+    return ()++-- function g_uri_escape_string+-- Args : [Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_uri_escape_string" g_uri_escape_string :: +    CString ->                              -- unescaped : TBasicType TUTF8+    CString ->                              -- reserved_chars_allowed : TBasicType TUTF8+    CInt ->                                 -- allow_utf8 : TBasicType TBoolean+    IO CString+++uriEscapeString ::+    (MonadIO m) =>+    T.Text ->                               -- unescaped+    Maybe (T.Text) ->                       -- reserved_chars_allowed+    Bool ->                                 -- allow_utf8+    m T.Text+uriEscapeString unescaped reserved_chars_allowed allow_utf8 = liftIO $ do+    unescaped' <- textToCString unescaped+    maybeReserved_chars_allowed <- case reserved_chars_allowed of+        Nothing -> return nullPtr+        Just jReserved_chars_allowed -> do+            jReserved_chars_allowed' <- textToCString jReserved_chars_allowed+            return jReserved_chars_allowed'+    let allow_utf8' = (fromIntegral . fromEnum) allow_utf8+    result <- g_uri_escape_string unescaped' maybeReserved_chars_allowed allow_utf8'+    checkUnexpectedReturnNULL "g_uri_escape_string" result+    result' <- cstringToText result+    freeMem result+    freeMem unescaped'+    freeMem maybeReserved_chars_allowed+    return result'++-- function g_uri_list_extract_uris+-- Args : [Arg {argName = "uri_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "uri_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "g_uri_list_extract_uris" g_uri_list_extract_uris :: +    CString ->                              -- uri_list : TBasicType TUTF8+    IO (Ptr CString)+++uriListExtractUris ::+    (MonadIO m) =>+    T.Text ->                               -- uri_list+    m [T.Text]+uriListExtractUris uri_list = liftIO $ do+    uri_list' <- textToCString uri_list+    result <- g_uri_list_extract_uris uri_list'+    checkUnexpectedReturnNULL "g_uri_list_extract_uris" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    freeMem uri_list'+    return result'++-- function g_uri_parse_scheme+-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_uri_parse_scheme" g_uri_parse_scheme :: +    CString ->                              -- uri : TBasicType TUTF8+    IO CString+++uriParseScheme ::+    (MonadIO m) =>+    T.Text ->                               -- uri+    m T.Text+uriParseScheme uri = liftIO $ do+    uri' <- textToCString uri+    result <- g_uri_parse_scheme uri'+    checkUnexpectedReturnNULL "g_uri_parse_scheme" result+    result' <- cstringToText result+    freeMem result+    freeMem uri'+    return result'++-- function g_uri_unescape_segment+-- Args : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escaped_string_end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escaped_string_end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_uri_unescape_segment" g_uri_unescape_segment :: +    CString ->                              -- escaped_string : TBasicType TUTF8+    CString ->                              -- escaped_string_end : TBasicType TUTF8+    CString ->                              -- illegal_characters : TBasicType TUTF8+    IO CString+++uriUnescapeSegment ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- escaped_string+    Maybe (T.Text) ->                       -- escaped_string_end+    Maybe (T.Text) ->                       -- illegal_characters+    m T.Text+uriUnescapeSegment escaped_string escaped_string_end illegal_characters = liftIO $ do+    maybeEscaped_string <- case escaped_string of+        Nothing -> return nullPtr+        Just jEscaped_string -> do+            jEscaped_string' <- textToCString jEscaped_string+            return jEscaped_string'+    maybeEscaped_string_end <- case escaped_string_end of+        Nothing -> return nullPtr+        Just jEscaped_string_end -> do+            jEscaped_string_end' <- textToCString jEscaped_string_end+            return jEscaped_string_end'+    maybeIllegal_characters <- case illegal_characters of+        Nothing -> return nullPtr+        Just jIllegal_characters -> do+            jIllegal_characters' <- textToCString jIllegal_characters+            return jIllegal_characters'+    result <- g_uri_unescape_segment maybeEscaped_string maybeEscaped_string_end maybeIllegal_characters+    checkUnexpectedReturnNULL "g_uri_unescape_segment" result+    result' <- cstringToText result+    freeMem result+    freeMem maybeEscaped_string+    freeMem maybeEscaped_string_end+    freeMem maybeIllegal_characters+    return result'++-- function g_uri_unescape_string+-- Args : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_uri_unescape_string" g_uri_unescape_string :: +    CString ->                              -- escaped_string : TBasicType TUTF8+    CString ->                              -- illegal_characters : TBasicType TUTF8+    IO CString+++uriUnescapeString ::+    (MonadIO m) =>+    T.Text ->                               -- escaped_string+    Maybe (T.Text) ->                       -- illegal_characters+    m T.Text+uriUnescapeString escaped_string illegal_characters = liftIO $ do+    escaped_string' <- textToCString escaped_string+    maybeIllegal_characters <- case illegal_characters of+        Nothing -> return nullPtr+        Just jIllegal_characters -> do+            jIllegal_characters' <- textToCString jIllegal_characters+            return jIllegal_characters'+    result <- g_uri_unescape_string escaped_string' maybeIllegal_characters+    checkUnexpectedReturnNULL "g_uri_unescape_string" result+    result' <- cstringToText result+    freeMem result+    freeMem escaped_string'+    freeMem maybeIllegal_characters+    return result'++-- function g_usleep+-- Args : [Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_usleep" g_usleep :: +    Word64 ->                               -- microseconds : TBasicType TUInt64+    IO ()+++usleep ::+    (MonadIO m) =>+    Word64 ->                               -- microseconds+    m ()+usleep microseconds = liftIO $ do+    g_usleep microseconds+    return ()++-- function g_utf8_casefold+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_casefold" g_utf8_casefold :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO CString+++utf8Casefold ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    m T.Text+utf8Casefold str len = liftIO $ do+    str' <- textToCString str+    result <- g_utf8_casefold str' len+    checkUnexpectedReturnNULL "g_utf8_casefold" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_utf8_collate+-- Args : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_collate" g_utf8_collate :: +    CString ->                              -- str1 : TBasicType TUTF8+    CString ->                              -- str2 : TBasicType TUTF8+    IO Int32+++utf8Collate ::+    (MonadIO m) =>+    T.Text ->                               -- str1+    T.Text ->                               -- str2+    m Int32+utf8Collate str1 str2 = liftIO $ do+    str1' <- textToCString str1+    str2' <- textToCString str2+    result <- g_utf8_collate str1' str2'+    freeMem str1'+    freeMem str2'+    return result++-- function g_utf8_collate_key+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_collate_key" g_utf8_collate_key :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO CString+++utf8CollateKey ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    m T.Text+utf8CollateKey str len = liftIO $ do+    str' <- textToCString str+    result <- g_utf8_collate_key str' len+    checkUnexpectedReturnNULL "g_utf8_collate_key" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_utf8_collate_key_for_filename+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_collate_key_for_filename" g_utf8_collate_key_for_filename :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO CString+++utf8CollateKeyForFilename ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    m T.Text+utf8CollateKeyForFilename str len = liftIO $ do+    str' <- textToCString str+    result <- g_utf8_collate_key_for_filename str' len+    checkUnexpectedReturnNULL "g_utf8_collate_key_for_filename" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_utf8_find_next_char+-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_find_next_char" g_utf8_find_next_char :: +    CString ->                              -- p : TBasicType TUTF8+    CString ->                              -- end : TBasicType TUTF8+    IO CString+++utf8FindNextChar ::+    (MonadIO m) =>+    T.Text ->                               -- p+    T.Text ->                               -- end+    m T.Text+utf8FindNextChar p end = liftIO $ do+    p' <- textToCString p+    end' <- textToCString end+    result <- g_utf8_find_next_char p' end'+    checkUnexpectedReturnNULL "g_utf8_find_next_char" result+    result' <- cstringToText result+    freeMem result+    freeMem p'+    freeMem end'+    return result'++-- function g_utf8_find_prev_char+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_find_prev_char" g_utf8_find_prev_char :: +    CString ->                              -- str : TBasicType TUTF8+    CString ->                              -- p : TBasicType TUTF8+    IO CString+++utf8FindPrevChar ::+    (MonadIO m) =>+    T.Text ->                               -- str+    T.Text ->                               -- p+    m T.Text+utf8FindPrevChar str p = liftIO $ do+    str' <- textToCString str+    p' <- textToCString p+    result <- g_utf8_find_prev_char str' p'+    checkUnexpectedReturnNULL "g_utf8_find_prev_char" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    freeMem p'+    return result'++-- function g_utf8_get_char+-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUniChar+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_get_char" g_utf8_get_char :: +    CString ->                              -- p : TBasicType TUTF8+    IO CInt+++utf8GetChar ::+    (MonadIO m) =>+    T.Text ->                               -- p+    m Char+utf8GetChar p = liftIO $ do+    p' <- textToCString p+    result <- g_utf8_get_char p'+    let result' = (chr . fromIntegral) result+    freeMem p'+    return result'++-- function g_utf8_get_char_validated+-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUniChar+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_get_char_validated" g_utf8_get_char_validated :: +    CString ->                              -- p : TBasicType TUTF8+    Int64 ->                                -- max_len : TBasicType TInt64+    IO CInt+++utf8GetCharValidated ::+    (MonadIO m) =>+    T.Text ->                               -- p+    Int64 ->                                -- max_len+    m Char+utf8GetCharValidated p max_len = liftIO $ do+    p' <- textToCString p+    result <- g_utf8_get_char_validated p' max_len+    let result' = (chr . fromIntegral) result+    freeMem p'+    return result'++-- function g_utf8_normalize+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "GLib" "NormalizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "GLib" "NormalizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_normalize" g_utf8_normalize :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    CUInt ->                                -- mode : TInterface "GLib" "NormalizeMode"+    IO CString+++utf8Normalize ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    NormalizeMode ->                        -- mode+    m T.Text+utf8Normalize str len mode = liftIO $ do+    str' <- textToCString str+    let mode' = (fromIntegral . fromEnum) mode+    result <- g_utf8_normalize str' len mode'+    checkUnexpectedReturnNULL "g_utf8_normalize" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_utf8_offset_to_pointer+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_offset_to_pointer" g_utf8_offset_to_pointer :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- offset : TBasicType TInt64+    IO CString+++utf8OffsetToPointer ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- offset+    m T.Text+utf8OffsetToPointer str offset = liftIO $ do+    str' <- textToCString str+    result <- g_utf8_offset_to_pointer str' offset+    checkUnexpectedReturnNULL "g_utf8_offset_to_pointer" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_utf8_pointer_to_offset+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_pointer_to_offset" g_utf8_pointer_to_offset :: +    CString ->                              -- str : TBasicType TUTF8+    CString ->                              -- pos : TBasicType TUTF8+    IO Int64+++utf8PointerToOffset ::+    (MonadIO m) =>+    T.Text ->                               -- str+    T.Text ->                               -- pos+    m Int64+utf8PointerToOffset str pos = liftIO $ do+    str' <- textToCString str+    pos' <- textToCString pos+    result <- g_utf8_pointer_to_offset str' pos'+    freeMem str'+    freeMem pos'+    return result++-- function g_utf8_prev_char+-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_prev_char" g_utf8_prev_char :: +    CString ->                              -- p : TBasicType TUTF8+    IO CString+++utf8PrevChar ::+    (MonadIO m) =>+    T.Text ->                               -- p+    m T.Text+utf8PrevChar p = liftIO $ do+    p' <- textToCString p+    result <- g_utf8_prev_char p'+    checkUnexpectedReturnNULL "g_utf8_prev_char" result+    result' <- cstringToText result+    freeMem result+    freeMem p'+    return result'++-- function g_utf8_strchr+-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_strchr" g_utf8_strchr :: +    CString ->                              -- p : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    CInt ->                                 -- c : TBasicType TUniChar+    IO CString+++utf8Strchr ::+    (MonadIO m) =>+    T.Text ->                               -- p+    Int64 ->                                -- len+    Char ->                                 -- c+    m T.Text+utf8Strchr p len c = liftIO $ do+    p' <- textToCString p+    let c' = (fromIntegral . ord) c+    result <- g_utf8_strchr p' len c'+    checkUnexpectedReturnNULL "g_utf8_strchr" result+    result' <- cstringToText result+    freeMem result+    freeMem p'+    return result'++-- function g_utf8_strdown+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_strdown" g_utf8_strdown :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO CString+++utf8Strdown ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    m T.Text+utf8Strdown str len = liftIO $ do+    str' <- textToCString str+    result <- g_utf8_strdown str' len+    checkUnexpectedReturnNULL "g_utf8_strdown" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_utf8_strlen+-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt64+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_strlen" g_utf8_strlen :: +    CString ->                              -- p : TBasicType TUTF8+    Int64 ->                                -- max : TBasicType TInt64+    IO Int64+++utf8Strlen ::+    (MonadIO m) =>+    T.Text ->                               -- p+    Int64 ->                                -- max+    m Int64+utf8Strlen p max = liftIO $ do+    p' <- textToCString p+    result <- g_utf8_strlen p' max+    freeMem p'+    return result++-- function g_utf8_strncpy+-- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_strncpy" g_utf8_strncpy :: +    CString ->                              -- dest : TBasicType TUTF8+    CString ->                              -- src : TBasicType TUTF8+    Word64 ->                               -- n : TBasicType TUInt64+    IO CString+++utf8Strncpy ::+    (MonadIO m) =>+    T.Text ->                               -- dest+    T.Text ->                               -- src+    Word64 ->                               -- n+    m T.Text+utf8Strncpy dest src n = liftIO $ do+    dest' <- textToCString dest+    src' <- textToCString src+    result <- g_utf8_strncpy dest' src' n+    checkUnexpectedReturnNULL "g_utf8_strncpy" result+    result' <- cstringToText result+    freeMem result+    freeMem dest'+    freeMem src'+    return result'++-- function g_utf8_strrchr+-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_strrchr" g_utf8_strrchr :: +    CString ->                              -- p : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    CInt ->                                 -- c : TBasicType TUniChar+    IO CString+++utf8Strrchr ::+    (MonadIO m) =>+    T.Text ->                               -- p+    Int64 ->                                -- len+    Char ->                                 -- c+    m T.Text+utf8Strrchr p len c = liftIO $ do+    p' <- textToCString p+    let c' = (fromIntegral . ord) c+    result <- g_utf8_strrchr p' len c'+    checkUnexpectedReturnNULL "g_utf8_strrchr" result+    result' <- cstringToText result+    freeMem result+    freeMem p'+    return result'++-- function g_utf8_strreverse+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_strreverse" g_utf8_strreverse :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO CString+++utf8Strreverse ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    m T.Text+utf8Strreverse str len = liftIO $ do+    str' <- textToCString str+    result <- g_utf8_strreverse str' len+    checkUnexpectedReturnNULL "g_utf8_strreverse" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_utf8_strup+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_strup" g_utf8_strup :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- len : TBasicType TInt64+    IO CString+++utf8Strup ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- len+    m T.Text+utf8Strup str len = liftIO $ do+    str' <- textToCString str+    result <- g_utf8_strup str' len+    checkUnexpectedReturnNULL "g_utf8_strup" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_utf8_substring+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_substring" g_utf8_substring :: +    CString ->                              -- str : TBasicType TUTF8+    Int64 ->                                -- start_pos : TBasicType TInt64+    Int64 ->                                -- end_pos : TBasicType TInt64+    IO CString+++utf8Substring ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Int64 ->                                -- start_pos+    Int64 ->                                -- end_pos+    m T.Text+utf8Substring str start_pos end_pos = liftIO $ do+    str' <- textToCString str+    result <- g_utf8_substring str' start_pos end_pos+    checkUnexpectedReturnNULL "g_utf8_substring" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function g_utf8_validate+-- Args : [Arg {argName = "str", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "str", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_utf8_validate" g_utf8_validate :: +    Ptr Word8 ->                            -- str : TCArray False (-1) 1 (TBasicType TUInt8)+    Int64 ->                                -- max_len : TBasicType TInt64+    Ptr CString ->                          -- end : TBasicType TUTF8+    IO CInt+++utf8Validate ::+    (MonadIO m) =>+    ByteString ->                           -- str+    m (Bool,T.Text)+utf8Validate str = liftIO $ do+    let max_len = fromIntegral $ B.length str+    str' <- packByteString str+    end <- allocMem :: IO (Ptr CString)+    result <- g_utf8_validate str' max_len end+    let result' = (/= 0) result+    end' <- peek end+    end'' <- cstringToText end'+    freeMem str'+    freeMem end+    return (result', end'')++-- function g_variant_get_gtype+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TGType+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_get_gtype" g_variant_get_gtype :: +    IO CGType+++variantGetGtype ::+    (MonadIO m) =>+    m GType+variantGetGtype  = liftIO $ do+    result <- g_variant_get_gtype+    let result' = GType result+    return result'++-- function g_variant_is_object_path+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_is_object_path" g_variant_is_object_path :: +    CString ->                              -- string : TBasicType TUTF8+    IO CInt+++variantIsObjectPath ::+    (MonadIO m) =>+    T.Text ->                               -- string+    m Bool+variantIsObjectPath string = liftIO $ do+    string' <- textToCString string+    result <- g_variant_is_object_path string'+    let result' = (/= 0) result+    freeMem string'+    return result'++-- function g_variant_is_signature+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_is_signature" g_variant_is_signature :: +    CString ->                              -- string : TBasicType TUTF8+    IO CInt+++variantIsSignature ::+    (MonadIO m) =>+    T.Text ->                               -- string+    m Bool+variantIsSignature string = liftIO $ do+    string' <- textToCString string+    result <- g_variant_is_signature string'+    let result' = (/= 0) result+    freeMem string'+    return result'++-- function g_variant_parse+-- Args : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TVariant+-- throws : True+-- Skip return : False++foreign import ccall "g_variant_parse" g_variant_parse :: +    Ptr VariantType ->                      -- type : TInterface "GLib" "VariantType"+    CString ->                              -- text : TBasicType TUTF8+    CString ->                              -- limit : TBasicType TUTF8+    CString ->                              -- endptr : TBasicType TUTF8+    Ptr (Ptr GError) ->                     -- error+    IO (Ptr GVariant)+++variantParse ::+    (MonadIO m) =>+    Maybe (VariantType) ->                  -- type+    T.Text ->                               -- text+    Maybe (T.Text) ->                       -- limit+    Maybe (T.Text) ->                       -- endptr+    m GVariant+variantParse type_ text limit endptr = liftIO $ do+    maybeType_ <- case type_ of+        Nothing -> return nullPtr+        Just jType_ -> do+            let jType_' = unsafeManagedPtrGetPtr jType_+            return jType_'+    text' <- textToCString text+    maybeLimit <- case limit of+        Nothing -> return nullPtr+        Just jLimit -> do+            jLimit' <- textToCString jLimit+            return jLimit'+    maybeEndptr <- case endptr of+        Nothing -> return nullPtr+        Just jEndptr -> do+            jEndptr' <- textToCString jEndptr+            return jEndptr'+    onException (do+        result <- propagateGError $ g_variant_parse maybeType_ text' maybeLimit maybeEndptr+        checkUnexpectedReturnNULL "g_variant_parse" result+        result' <- wrapGVariantPtr result+        whenJust type_ touchManagedPtr+        freeMem text'+        freeMem maybeLimit+        freeMem maybeEndptr+        return result'+     ) (do+        freeMem text'+        freeMem maybeLimit+        freeMem maybeEndptr+     )++-- function g_variant_parse_error_print_context+-- Args : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_parse_error_print_context" g_variant_parse_error_print_context :: +    Ptr GError ->                           -- error : TError+    CString ->                              -- source_str : TBasicType TUTF8+    IO CString+++variantParseErrorPrintContext ::+    (MonadIO m) =>+    GError ->                               -- error+    T.Text ->                               -- source_str+    m T.Text+variantParseErrorPrintContext error_ source_str = liftIO $ do+    let error_' = unsafeManagedPtrGetPtr error_+    source_str' <- textToCString source_str+    result <- g_variant_parse_error_print_context error_' source_str'+    checkUnexpectedReturnNULL "g_variant_parse_error_print_context" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr error_+    freeMem source_str'+    return result'++-- function g_variant_parse_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_parse_error_quark" g_variant_parse_error_quark :: +    IO Word32+++variantParseErrorQuark ::+    (MonadIO m) =>+    m Word32+variantParseErrorQuark  = liftIO $ do+    result <- g_variant_parse_error_quark+    return result++-- function g_variant_parser_get_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_parser_get_error_quark" g_variant_parser_get_error_quark :: +    IO Word32++{-# DEPRECATED variantParserGetErrorQuark ["Use g_variant_parse_error_quark() instead."]#-}+variantParserGetErrorQuark ::+    (MonadIO m) =>+    m Word32+variantParserGetErrorQuark  = liftIO $ do+    result <- g_variant_parser_get_error_quark+    return result++-- function g_variant_type_checked_+-- Args : [Arg {argName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "VariantType"+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_checked_" g_variant_type_checked_ :: +    CString ->                              -- arg0 : TBasicType TUTF8+    IO (Ptr VariantType)+++variantTypeChecked_ ::+    (MonadIO m) =>+    T.Text ->                               -- arg0+    m VariantType+variantTypeChecked_ arg0 = liftIO $ do+    arg0' <- textToCString arg0+    result <- g_variant_type_checked_ arg0'+    checkUnexpectedReturnNULL "g_variant_type_checked_" result+    result' <- (newBoxed VariantType) result+    freeMem arg0'+    return result'++-- function g_variant_type_string_is_valid+-- Args : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_string_is_valid" g_variant_type_string_is_valid :: +    CString ->                              -- type_string : TBasicType TUTF8+    IO CInt+++variantTypeStringIsValid ::+    (MonadIO m) =>+    T.Text ->                               -- type_string+    m Bool+variantTypeStringIsValid type_string = liftIO $ do+    type_string' <- textToCString type_string+    result <- g_variant_type_string_is_valid type_string'+    let result' = (/= 0) result+    freeMem type_string'+    return result'++-- function g_variant_type_string_scan+-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "g_variant_type_string_scan" g_variant_type_string_scan :: +    CString ->                              -- string : TBasicType TUTF8+    CString ->                              -- limit : TBasicType TUTF8+    Ptr CString ->                          -- endptr : TBasicType TUTF8+    IO CInt+++variantTypeStringScan ::+    (MonadIO m) =>+    T.Text ->                               -- string+    Maybe (T.Text) ->                       -- limit+    m (Bool,T.Text)+variantTypeStringScan string limit = liftIO $ do+    string' <- textToCString string+    maybeLimit <- case limit of+        Nothing -> return nullPtr+        Just jLimit -> do+            jLimit' <- textToCString jLimit+            return jLimit'+    endptr <- allocMem :: IO (Ptr CString)+    result <- g_variant_type_string_scan string' maybeLimit endptr+    let result' = (/= 0) result+    endptr' <- peek endptr+    endptr'' <- cstringToText endptr'+    freeMem endptr'+    freeMem string'+    freeMem maybeLimit+    freeMem endptr+    return (result', endptr'')++-- function g_warn_message+-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warnexpr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warnexpr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "g_warn_message" g_warn_message :: +    CString ->                              -- domain : TBasicType TUTF8+    CString ->                              -- file : TBasicType TUTF8+    Int32 ->                                -- line : TBasicType TInt32+    CString ->                              -- func : TBasicType TUTF8+    CString ->                              -- warnexpr : TBasicType TUTF8+    IO ()+++warnMessage ::+    (MonadIO m) =>+    T.Text ->                               -- domain+    T.Text ->                               -- file+    Int32 ->                                -- line+    T.Text ->                               -- func+    T.Text ->                               -- warnexpr+    m ()+warnMessage domain file line func warnexpr = liftIO $ do+    domain' <- textToCString domain+    file' <- textToCString file+    func' <- textToCString func+    warnexpr' <- textToCString warnexpr+    g_warn_message domain' file' line func' warnexpr'+    freeMem domain'+    freeMem file'+    freeMem func'+    freeMem warnexpr'+    return ()++-- callback IOFuncsIoReadFieldCallback+iOFuncsIoReadFieldCallbackClosure :: IOFuncsIoReadFieldCallback -> IO Closure+iOFuncsIoReadFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoReadFieldCallback wrapped+    where wrapped = iOFuncsIoReadFieldCallbackWrapper Nothing cb++type IOFuncsIoReadFieldCallbackC =+    Ptr IOChannel ->+    CString ->+    Word64 ->+    Word64 ->+    IO CUInt++foreign import ccall "wrapper"+    mkIOFuncsIoReadFieldCallback :: IOFuncsIoReadFieldCallbackC -> IO (FunPtr IOFuncsIoReadFieldCallbackC)++type IOFuncsIoReadFieldCallback =+    IOChannel ->+    T.Text ->+    Word64 ->+    Word64 ->+    IO IOStatus++noIOFuncsIoReadFieldCallback :: Maybe IOFuncsIoReadFieldCallback+noIOFuncsIoReadFieldCallback = Nothing++iOFuncsIoReadFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (IOFuncsIoReadFieldCallbackC))) ->+    IOFuncsIoReadFieldCallback ->+    Ptr IOChannel ->+    CString ->+    Word64 ->+    Word64 ->+    IO CUInt+iOFuncsIoReadFieldCallbackWrapper funptrptr _cb channel buf count bytes_read = do+    channel' <- (newBoxed IOChannel) channel+    buf' <- cstringToText buf+    result <- _cb  channel' buf' count bytes_read+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback IOFuncsIoWriteFieldCallback+iOFuncsIoWriteFieldCallbackClosure :: IOFuncsIoWriteFieldCallback -> IO Closure+iOFuncsIoWriteFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoWriteFieldCallback wrapped+    where wrapped = iOFuncsIoWriteFieldCallbackWrapper Nothing cb++type IOFuncsIoWriteFieldCallbackC =+    Ptr IOChannel ->+    CString ->+    Word64 ->+    Word64 ->+    IO CUInt++foreign import ccall "wrapper"+    mkIOFuncsIoWriteFieldCallback :: IOFuncsIoWriteFieldCallbackC -> IO (FunPtr IOFuncsIoWriteFieldCallbackC)++type IOFuncsIoWriteFieldCallback =+    IOChannel ->+    T.Text ->+    Word64 ->+    Word64 ->+    IO IOStatus++noIOFuncsIoWriteFieldCallback :: Maybe IOFuncsIoWriteFieldCallback+noIOFuncsIoWriteFieldCallback = Nothing++iOFuncsIoWriteFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (IOFuncsIoWriteFieldCallbackC))) ->+    IOFuncsIoWriteFieldCallback ->+    Ptr IOChannel ->+    CString ->+    Word64 ->+    Word64 ->+    IO CUInt+iOFuncsIoWriteFieldCallbackWrapper funptrptr _cb channel buf count bytes_written = do+    channel' <- (newBoxed IOChannel) channel+    buf' <- cstringToText buf+    result <- _cb  channel' buf' count bytes_written+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback IOFuncsIoSeekFieldCallback+iOFuncsIoSeekFieldCallbackClosure :: IOFuncsIoSeekFieldCallback -> IO Closure+iOFuncsIoSeekFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoSeekFieldCallback wrapped+    where wrapped = iOFuncsIoSeekFieldCallbackWrapper Nothing cb++type IOFuncsIoSeekFieldCallbackC =+    Ptr IOChannel ->+    Int64 ->+    CUInt ->+    IO CUInt++foreign import ccall "wrapper"+    mkIOFuncsIoSeekFieldCallback :: IOFuncsIoSeekFieldCallbackC -> IO (FunPtr IOFuncsIoSeekFieldCallbackC)++type IOFuncsIoSeekFieldCallback =+    IOChannel ->+    Int64 ->+    SeekType ->+    IO IOStatus++noIOFuncsIoSeekFieldCallback :: Maybe IOFuncsIoSeekFieldCallback+noIOFuncsIoSeekFieldCallback = Nothing++iOFuncsIoSeekFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (IOFuncsIoSeekFieldCallbackC))) ->+    IOFuncsIoSeekFieldCallback ->+    Ptr IOChannel ->+    Int64 ->+    CUInt ->+    IO CUInt+iOFuncsIoSeekFieldCallbackWrapper funptrptr _cb channel offset type_ = do+    channel' <- (newBoxed IOChannel) channel+    let type_' = (toEnum . fromIntegral) type_+    result <- _cb  channel' offset type_'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback IOFuncsIoCloseFieldCallback+iOFuncsIoCloseFieldCallbackClosure :: IOFuncsIoCloseFieldCallback -> IO Closure+iOFuncsIoCloseFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoCloseFieldCallback wrapped+    where wrapped = iOFuncsIoCloseFieldCallbackWrapper Nothing cb++type IOFuncsIoCloseFieldCallbackC =+    Ptr IOChannel ->+    IO CUInt++foreign import ccall "wrapper"+    mkIOFuncsIoCloseFieldCallback :: IOFuncsIoCloseFieldCallbackC -> IO (FunPtr IOFuncsIoCloseFieldCallbackC)++type IOFuncsIoCloseFieldCallback =+    IOChannel ->+    IO IOStatus++noIOFuncsIoCloseFieldCallback :: Maybe IOFuncsIoCloseFieldCallback+noIOFuncsIoCloseFieldCallback = Nothing++iOFuncsIoCloseFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (IOFuncsIoCloseFieldCallbackC))) ->+    IOFuncsIoCloseFieldCallback ->+    Ptr IOChannel ->+    IO CUInt+iOFuncsIoCloseFieldCallbackWrapper funptrptr _cb channel = do+    channel' <- (newBoxed IOChannel) channel+    result <- _cb  channel'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback IOFuncsIoCreateWatchFieldCallback+iOFuncsIoCreateWatchFieldCallbackClosure :: IOFuncsIoCreateWatchFieldCallback -> IO Closure+iOFuncsIoCreateWatchFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoCreateWatchFieldCallback wrapped+    where wrapped = iOFuncsIoCreateWatchFieldCallbackWrapper Nothing cb++type IOFuncsIoCreateWatchFieldCallbackC =+    Ptr IOChannel ->+    CUInt ->+    IO (Ptr Source)++foreign import ccall "wrapper"+    mkIOFuncsIoCreateWatchFieldCallback :: IOFuncsIoCreateWatchFieldCallbackC -> IO (FunPtr IOFuncsIoCreateWatchFieldCallbackC)++type IOFuncsIoCreateWatchFieldCallback =+    IOChannel ->+    [IOCondition] ->+    IO Source++noIOFuncsIoCreateWatchFieldCallback :: Maybe IOFuncsIoCreateWatchFieldCallback+noIOFuncsIoCreateWatchFieldCallback = Nothing++iOFuncsIoCreateWatchFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (IOFuncsIoCreateWatchFieldCallbackC))) ->+    IOFuncsIoCreateWatchFieldCallback ->+    Ptr IOChannel ->+    CUInt ->+    IO (Ptr Source)+iOFuncsIoCreateWatchFieldCallbackWrapper funptrptr _cb channel condition = do+    channel' <- (newBoxed IOChannel) channel+    let condition' = wordToGFlags condition+    result <- _cb  channel' condition'+    maybeReleaseFunPtr funptrptr+    result' <- copyBoxed result+    return result'++-- callback IOFuncsIoFreeFieldCallback+iOFuncsIoFreeFieldCallbackClosure :: IOFuncsIoFreeFieldCallback -> IO Closure+iOFuncsIoFreeFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoFreeFieldCallback wrapped+    where wrapped = iOFuncsIoFreeFieldCallbackWrapper Nothing cb++type IOFuncsIoFreeFieldCallbackC =+    Ptr IOChannel ->+    IO ()++foreign import ccall "wrapper"+    mkIOFuncsIoFreeFieldCallback :: IOFuncsIoFreeFieldCallbackC -> IO (FunPtr IOFuncsIoFreeFieldCallbackC)++type IOFuncsIoFreeFieldCallback =+    IOChannel ->+    IO ()++noIOFuncsIoFreeFieldCallback :: Maybe IOFuncsIoFreeFieldCallback+noIOFuncsIoFreeFieldCallback = Nothing++iOFuncsIoFreeFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (IOFuncsIoFreeFieldCallbackC))) ->+    IOFuncsIoFreeFieldCallback ->+    Ptr IOChannel ->+    IO ()+iOFuncsIoFreeFieldCallbackWrapper funptrptr _cb channel = do+    channel' <- (newBoxed IOChannel) channel+    _cb  channel'+    maybeReleaseFunPtr funptrptr++-- callback IOFuncsIoSetFlagsFieldCallback+iOFuncsIoSetFlagsFieldCallbackClosure :: IOFuncsIoSetFlagsFieldCallback -> IO Closure+iOFuncsIoSetFlagsFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoSetFlagsFieldCallback wrapped+    where wrapped = iOFuncsIoSetFlagsFieldCallbackWrapper Nothing cb++type IOFuncsIoSetFlagsFieldCallbackC =+    Ptr IOChannel ->+    CUInt ->+    IO CUInt++foreign import ccall "wrapper"+    mkIOFuncsIoSetFlagsFieldCallback :: IOFuncsIoSetFlagsFieldCallbackC -> IO (FunPtr IOFuncsIoSetFlagsFieldCallbackC)++type IOFuncsIoSetFlagsFieldCallback =+    IOChannel ->+    [IOFlags] ->+    IO IOStatus++noIOFuncsIoSetFlagsFieldCallback :: Maybe IOFuncsIoSetFlagsFieldCallback+noIOFuncsIoSetFlagsFieldCallback = Nothing++iOFuncsIoSetFlagsFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (IOFuncsIoSetFlagsFieldCallbackC))) ->+    IOFuncsIoSetFlagsFieldCallback ->+    Ptr IOChannel ->+    CUInt ->+    IO CUInt+iOFuncsIoSetFlagsFieldCallbackWrapper funptrptr _cb channel flags = do+    channel' <- (newBoxed IOChannel) channel+    let flags' = wordToGFlags flags+    result <- _cb  channel' flags'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback IOFuncsIoGetFlagsFieldCallback+iOFuncsIoGetFlagsFieldCallbackClosure :: IOFuncsIoGetFlagsFieldCallback -> IO Closure+iOFuncsIoGetFlagsFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoGetFlagsFieldCallback wrapped+    where wrapped = iOFuncsIoGetFlagsFieldCallbackWrapper Nothing cb++type IOFuncsIoGetFlagsFieldCallbackC =+    Ptr IOChannel ->+    IO CUInt++foreign import ccall "wrapper"+    mkIOFuncsIoGetFlagsFieldCallback :: IOFuncsIoGetFlagsFieldCallbackC -> IO (FunPtr IOFuncsIoGetFlagsFieldCallbackC)++type IOFuncsIoGetFlagsFieldCallback =+    IOChannel ->+    IO [IOFlags]++noIOFuncsIoGetFlagsFieldCallback :: Maybe IOFuncsIoGetFlagsFieldCallback+noIOFuncsIoGetFlagsFieldCallback = Nothing++iOFuncsIoGetFlagsFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (IOFuncsIoGetFlagsFieldCallbackC))) ->+    IOFuncsIoGetFlagsFieldCallback ->+    Ptr IOChannel ->+    IO CUInt+iOFuncsIoGetFlagsFieldCallbackWrapper funptrptr _cb channel = do+    channel' <- (newBoxed IOChannel) channel+    result <- _cb  channel'+    maybeReleaseFunPtr funptrptr+    let result' = gflagsToWord result+    return result'++-- callback MarkupParserStartElementFieldCallback+markupParserStartElementFieldCallbackClosure :: MarkupParserStartElementFieldCallback -> IO Closure+markupParserStartElementFieldCallbackClosure cb = newCClosure =<< mkMarkupParserStartElementFieldCallback wrapped+    where wrapped = markupParserStartElementFieldCallbackWrapper Nothing cb++type MarkupParserStartElementFieldCallbackC =+    Ptr MarkupParseContext ->+    CString ->+    CString ->+    CString ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkMarkupParserStartElementFieldCallback :: MarkupParserStartElementFieldCallbackC -> IO (FunPtr MarkupParserStartElementFieldCallbackC)++type MarkupParserStartElementFieldCallback =+    MarkupParseContext ->+    T.Text ->+    T.Text ->+    T.Text ->+    IO ()++noMarkupParserStartElementFieldCallback :: Maybe MarkupParserStartElementFieldCallback+noMarkupParserStartElementFieldCallback = Nothing++markupParserStartElementFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (MarkupParserStartElementFieldCallbackC))) ->+    MarkupParserStartElementFieldCallback ->+    Ptr MarkupParseContext ->+    CString ->+    CString ->+    CString ->+    Ptr () ->+    IO ()+markupParserStartElementFieldCallbackWrapper funptrptr _cb context element_name attribute_names attribute_values _ = do+    context' <- (newBoxed MarkupParseContext) context+    element_name' <- cstringToText element_name+    attribute_names' <- cstringToText attribute_names+    attribute_values' <- cstringToText attribute_values+    _cb  context' element_name' attribute_names' attribute_values'+    maybeReleaseFunPtr funptrptr++-- callback MarkupParserEndElementFieldCallback+markupParserEndElementFieldCallbackClosure :: MarkupParserEndElementFieldCallback -> IO Closure+markupParserEndElementFieldCallbackClosure cb = newCClosure =<< mkMarkupParserEndElementFieldCallback wrapped+    where wrapped = markupParserEndElementFieldCallbackWrapper Nothing cb++type MarkupParserEndElementFieldCallbackC =+    Ptr MarkupParseContext ->+    CString ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkMarkupParserEndElementFieldCallback :: MarkupParserEndElementFieldCallbackC -> IO (FunPtr MarkupParserEndElementFieldCallbackC)++type MarkupParserEndElementFieldCallback =+    MarkupParseContext ->+    T.Text ->+    IO ()++noMarkupParserEndElementFieldCallback :: Maybe MarkupParserEndElementFieldCallback+noMarkupParserEndElementFieldCallback = Nothing++markupParserEndElementFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (MarkupParserEndElementFieldCallbackC))) ->+    MarkupParserEndElementFieldCallback ->+    Ptr MarkupParseContext ->+    CString ->+    Ptr () ->+    IO ()+markupParserEndElementFieldCallbackWrapper funptrptr _cb context element_name _ = do+    context' <- (newBoxed MarkupParseContext) context+    element_name' <- cstringToText element_name+    _cb  context' element_name'+    maybeReleaseFunPtr funptrptr++-- callback MarkupParserTextFieldCallback+markupParserTextFieldCallbackClosure :: MarkupParserTextFieldCallback -> IO Closure+markupParserTextFieldCallbackClosure cb = newCClosure =<< mkMarkupParserTextFieldCallback wrapped+    where wrapped = markupParserTextFieldCallbackWrapper Nothing cb++type MarkupParserTextFieldCallbackC =+    Ptr MarkupParseContext ->+    CString ->+    Word64 ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkMarkupParserTextFieldCallback :: MarkupParserTextFieldCallbackC -> IO (FunPtr MarkupParserTextFieldCallbackC)++type MarkupParserTextFieldCallback =+    MarkupParseContext ->+    T.Text ->+    Word64 ->+    IO ()++noMarkupParserTextFieldCallback :: Maybe MarkupParserTextFieldCallback+noMarkupParserTextFieldCallback = Nothing++markupParserTextFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (MarkupParserTextFieldCallbackC))) ->+    MarkupParserTextFieldCallback ->+    Ptr MarkupParseContext ->+    CString ->+    Word64 ->+    Ptr () ->+    IO ()+markupParserTextFieldCallbackWrapper funptrptr _cb context text text_len _ = do+    context' <- (newBoxed MarkupParseContext) context+    text' <- cstringToText text+    _cb  context' text' text_len+    maybeReleaseFunPtr funptrptr++-- callback MarkupParserPassthroughFieldCallback+markupParserPassthroughFieldCallbackClosure :: MarkupParserPassthroughFieldCallback -> IO Closure+markupParserPassthroughFieldCallbackClosure cb = newCClosure =<< mkMarkupParserPassthroughFieldCallback wrapped+    where wrapped = markupParserPassthroughFieldCallbackWrapper Nothing cb++type MarkupParserPassthroughFieldCallbackC =+    Ptr MarkupParseContext ->+    CString ->+    Word64 ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkMarkupParserPassthroughFieldCallback :: MarkupParserPassthroughFieldCallbackC -> IO (FunPtr MarkupParserPassthroughFieldCallbackC)++type MarkupParserPassthroughFieldCallback =+    MarkupParseContext ->+    T.Text ->+    Word64 ->+    IO ()++noMarkupParserPassthroughFieldCallback :: Maybe MarkupParserPassthroughFieldCallback+noMarkupParserPassthroughFieldCallback = Nothing++markupParserPassthroughFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (MarkupParserPassthroughFieldCallbackC))) ->+    MarkupParserPassthroughFieldCallback ->+    Ptr MarkupParseContext ->+    CString ->+    Word64 ->+    Ptr () ->+    IO ()+markupParserPassthroughFieldCallbackWrapper funptrptr _cb context passthrough_text text_len _ = do+    context' <- (newBoxed MarkupParseContext) context+    passthrough_text' <- cstringToText passthrough_text+    _cb  context' passthrough_text' text_len+    maybeReleaseFunPtr funptrptr++-- callback MarkupParserErrorFieldCallback+markupParserErrorFieldCallbackClosure :: MarkupParserErrorFieldCallback -> IO Closure+markupParserErrorFieldCallbackClosure cb = newCClosure =<< mkMarkupParserErrorFieldCallback wrapped+    where wrapped = markupParserErrorFieldCallbackWrapper Nothing cb++type MarkupParserErrorFieldCallbackC =+    Ptr MarkupParseContext ->+    Ptr GError ->+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkMarkupParserErrorFieldCallback :: MarkupParserErrorFieldCallbackC -> IO (FunPtr MarkupParserErrorFieldCallbackC)++type MarkupParserErrorFieldCallback =+    MarkupParseContext ->+    GError ->+    IO ()++noMarkupParserErrorFieldCallback :: Maybe MarkupParserErrorFieldCallback+noMarkupParserErrorFieldCallback = Nothing++markupParserErrorFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (MarkupParserErrorFieldCallbackC))) ->+    MarkupParserErrorFieldCallback ->+    Ptr MarkupParseContext ->+    Ptr GError ->+    Ptr () ->+    IO ()+markupParserErrorFieldCallbackWrapper funptrptr _cb context error_ _ = do+    context' <- (newBoxed MarkupParseContext) context+    error_' <- (newBoxed GError) error_+    _cb  context' error_'+    maybeReleaseFunPtr funptrptr++-- callback MemVTableFreeFieldCallback+memVTableFreeFieldCallbackClosure :: MemVTableFreeFieldCallback -> IO Closure+memVTableFreeFieldCallbackClosure cb = newCClosure =<< mkMemVTableFreeFieldCallback wrapped+    where wrapped = memVTableFreeFieldCallbackWrapper Nothing cb++type MemVTableFreeFieldCallbackC =+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkMemVTableFreeFieldCallback :: MemVTableFreeFieldCallbackC -> IO (FunPtr MemVTableFreeFieldCallbackC)++type MemVTableFreeFieldCallback =+    Ptr () ->+    IO ()++noMemVTableFreeFieldCallback :: Maybe MemVTableFreeFieldCallback+noMemVTableFreeFieldCallback = Nothing++memVTableFreeFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (MemVTableFreeFieldCallbackC))) ->+    MemVTableFreeFieldCallback ->+    Ptr () ->+    IO ()+memVTableFreeFieldCallbackWrapper funptrptr _cb mem = do+    _cb  mem+    maybeReleaseFunPtr funptrptr++-- callback SourceCallbackFuncsRefFieldCallback+sourceCallbackFuncsRefFieldCallbackClosure :: SourceCallbackFuncsRefFieldCallback -> IO Closure+sourceCallbackFuncsRefFieldCallbackClosure cb = newCClosure =<< mkSourceCallbackFuncsRefFieldCallback wrapped+    where wrapped = sourceCallbackFuncsRefFieldCallbackWrapper Nothing cb++type SourceCallbackFuncsRefFieldCallbackC =+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkSourceCallbackFuncsRefFieldCallback :: SourceCallbackFuncsRefFieldCallbackC -> IO (FunPtr SourceCallbackFuncsRefFieldCallbackC)++type SourceCallbackFuncsRefFieldCallback =+    Ptr () ->+    IO ()++noSourceCallbackFuncsRefFieldCallback :: Maybe SourceCallbackFuncsRefFieldCallback+noSourceCallbackFuncsRefFieldCallback = Nothing++sourceCallbackFuncsRefFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (SourceCallbackFuncsRefFieldCallbackC))) ->+    SourceCallbackFuncsRefFieldCallback ->+    Ptr () ->+    IO ()+sourceCallbackFuncsRefFieldCallbackWrapper funptrptr _cb cb_data = do+    _cb  cb_data+    maybeReleaseFunPtr funptrptr++-- callback SourceCallbackFuncsUnrefFieldCallback+sourceCallbackFuncsUnrefFieldCallbackClosure :: SourceCallbackFuncsUnrefFieldCallback -> IO Closure+sourceCallbackFuncsUnrefFieldCallbackClosure cb = newCClosure =<< mkSourceCallbackFuncsUnrefFieldCallback wrapped+    where wrapped = sourceCallbackFuncsUnrefFieldCallbackWrapper Nothing cb++type SourceCallbackFuncsUnrefFieldCallbackC =+    Ptr () ->+    IO ()++foreign import ccall "wrapper"+    mkSourceCallbackFuncsUnrefFieldCallback :: SourceCallbackFuncsUnrefFieldCallbackC -> IO (FunPtr SourceCallbackFuncsUnrefFieldCallbackC)++type SourceCallbackFuncsUnrefFieldCallback =+    Ptr () ->+    IO ()++noSourceCallbackFuncsUnrefFieldCallback :: Maybe SourceCallbackFuncsUnrefFieldCallback+noSourceCallbackFuncsUnrefFieldCallback = Nothing++sourceCallbackFuncsUnrefFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (SourceCallbackFuncsUnrefFieldCallbackC))) ->+    SourceCallbackFuncsUnrefFieldCallback ->+    Ptr () ->+    IO ()+sourceCallbackFuncsUnrefFieldCallbackWrapper funptrptr _cb cb_data = do+    _cb  cb_data+    maybeReleaseFunPtr funptrptr++-- callback SourceFuncsPrepareFieldCallback+sourceFuncsPrepareFieldCallbackClosure :: SourceFuncsPrepareFieldCallback -> IO Closure+sourceFuncsPrepareFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsPrepareFieldCallback wrapped+    where wrapped = sourceFuncsPrepareFieldCallbackWrapper Nothing cb++type SourceFuncsPrepareFieldCallbackC =+    Ptr Source ->+    Int32 ->+    IO CInt++foreign import ccall "wrapper"+    mkSourceFuncsPrepareFieldCallback :: SourceFuncsPrepareFieldCallbackC -> IO (FunPtr SourceFuncsPrepareFieldCallbackC)++type SourceFuncsPrepareFieldCallback =+    Source ->+    Int32 ->+    IO Bool++noSourceFuncsPrepareFieldCallback :: Maybe SourceFuncsPrepareFieldCallback+noSourceFuncsPrepareFieldCallback = Nothing++sourceFuncsPrepareFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (SourceFuncsPrepareFieldCallbackC))) ->+    SourceFuncsPrepareFieldCallback ->+    Ptr Source ->+    Int32 ->+    IO CInt+sourceFuncsPrepareFieldCallbackWrapper funptrptr _cb source timeout_ = do+    source' <- (newBoxed Source) source+    result <- _cb  source' timeout_+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback SourceFuncsCheckFieldCallback+sourceFuncsCheckFieldCallbackClosure :: SourceFuncsCheckFieldCallback -> IO Closure+sourceFuncsCheckFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsCheckFieldCallback wrapped+    where wrapped = sourceFuncsCheckFieldCallbackWrapper Nothing cb++type SourceFuncsCheckFieldCallbackC =+    Ptr Source ->+    IO CInt++foreign import ccall "wrapper"+    mkSourceFuncsCheckFieldCallback :: SourceFuncsCheckFieldCallbackC -> IO (FunPtr SourceFuncsCheckFieldCallbackC)++type SourceFuncsCheckFieldCallback =+    Source ->+    IO Bool++noSourceFuncsCheckFieldCallback :: Maybe SourceFuncsCheckFieldCallback+noSourceFuncsCheckFieldCallback = Nothing++sourceFuncsCheckFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (SourceFuncsCheckFieldCallbackC))) ->+    SourceFuncsCheckFieldCallback ->+    Ptr Source ->+    IO CInt+sourceFuncsCheckFieldCallbackWrapper funptrptr _cb source = do+    source' <- (newBoxed Source) source+    result <- _cb  source'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback SourceFuncsFinalizeFieldCallback+sourceFuncsFinalizeFieldCallbackClosure :: SourceFuncsFinalizeFieldCallback -> IO Closure+sourceFuncsFinalizeFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsFinalizeFieldCallback wrapped+    where wrapped = sourceFuncsFinalizeFieldCallbackWrapper Nothing cb++type SourceFuncsFinalizeFieldCallbackC =+    Ptr Source ->+    IO ()++foreign import ccall "wrapper"+    mkSourceFuncsFinalizeFieldCallback :: SourceFuncsFinalizeFieldCallbackC -> IO (FunPtr SourceFuncsFinalizeFieldCallbackC)++type SourceFuncsFinalizeFieldCallback =+    Source ->+    IO ()++noSourceFuncsFinalizeFieldCallback :: Maybe SourceFuncsFinalizeFieldCallback+noSourceFuncsFinalizeFieldCallback = Nothing++sourceFuncsFinalizeFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (SourceFuncsFinalizeFieldCallbackC))) ->+    SourceFuncsFinalizeFieldCallback ->+    Ptr Source ->+    IO ()+sourceFuncsFinalizeFieldCallbackWrapper funptrptr _cb source = do+    source' <- (newBoxed Source) source+    _cb  source'+    maybeReleaseFunPtr funptrptr
− GI/GLib/Callbacks.hs 
@@ -1,2557 +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.GLib.Callbacks-    ( -- -- * Signals--- ** ChildWatchFunc-    ChildWatchFunc                          ,-    ChildWatchFuncC                         ,-    childWatchFuncClosure                   ,-    childWatchFuncWrapper                   ,-    mkChildWatchFunc                        ,-    noChildWatchFunc                        ,----- ** CompareDataFunc-    CompareDataFunc                         ,-    CompareDataFuncC                        ,-    compareDataFuncClosure                  ,-    compareDataFuncWrapper                  ,-    mkCompareDataFunc                       ,-    noCompareDataFunc                       ,----- ** CompareFunc-    CompareFunc                             ,-    CompareFuncC                            ,-    compareFuncClosure                      ,-    compareFuncWrapper                      ,-    mkCompareFunc                           ,-    noCompareFunc                           ,----- ** DataForeachFunc-    DataForeachFunc                         ,-    DataForeachFuncC                        ,-    dataForeachFuncClosure                  ,-    dataForeachFuncWrapper                  ,-    mkDataForeachFunc                       ,-    noDataForeachFunc                       ,----- ** DestroyNotify-    DestroyNotify                           ,-    DestroyNotifyC                          ,-    destroyNotifyClosure                    ,-    destroyNotifyWrapper                    ,-    mkDestroyNotify                         ,-    noDestroyNotify                         ,----- ** EqualFunc-    EqualFunc                               ,-    EqualFuncC                              ,-    equalFuncClosure                        ,-    equalFuncWrapper                        ,-    mkEqualFunc                             ,-    noEqualFunc                             ,----- ** FreeFunc-    FreeFunc                                ,-    FreeFuncC                               ,-    freeFuncClosure                         ,-    freeFuncWrapper                         ,-    mkFreeFunc                              ,-    noFreeFunc                              ,----- ** Func-    Func                                    ,-    FuncC                                   ,-    funcClosure                             ,-    funcWrapper                             ,-    mkFunc                                  ,-    noFunc                                  ,----- ** HFunc-    HFunc                                   ,-    HFuncC                                  ,-    hFuncClosure                            ,-    hFuncWrapper                            ,-    mkHFunc                                 ,-    noHFunc                                 ,----- ** HRFunc-    HRFunc                                  ,-    HRFuncC                                 ,-    hRFuncClosure                           ,-    hRFuncWrapper                           ,-    mkHRFunc                                ,-    noHRFunc                                ,----- ** HashFunc-    HashFunc                                ,-    HashFuncC                               ,-    hashFuncClosure                         ,-    hashFuncWrapper                         ,-    mkHashFunc                              ,-    noHashFunc                              ,----- ** HookCheckFunc-    HookCheckFunc                           ,-    HookCheckFuncC                          ,-    hookCheckFuncClosure                    ,-    hookCheckFuncWrapper                    ,-    mkHookCheckFunc                         ,-    noHookCheckFunc                         ,----- ** HookCheckMarshaller-    HookCheckMarshaller                     ,-    HookCheckMarshallerC                    ,-    hookCheckMarshallerClosure              ,-    hookCheckMarshallerWrapper              ,-    mkHookCheckMarshaller                   ,-    noHookCheckMarshaller                   ,----- ** HookCompareFunc-    HookCompareFunc                         ,-    HookCompareFuncC                        ,-    hookCompareFuncClosure                  ,-    hookCompareFuncWrapper                  ,-    mkHookCompareFunc                       ,-    noHookCompareFunc                       ,----- ** HookFinalizeFunc-    HookFinalizeFunc                        ,-    HookFinalizeFuncC                       ,-    hookFinalizeFuncClosure                 ,-    hookFinalizeFuncWrapper                 ,-    mkHookFinalizeFunc                      ,-    noHookFinalizeFunc                      ,----- ** HookFindFunc-    HookFindFunc                            ,-    HookFindFuncC                           ,-    hookFindFuncClosure                     ,-    hookFindFuncWrapper                     ,-    mkHookFindFunc                          ,-    noHookFindFunc                          ,----- ** HookFunc-    HookFunc                                ,-    HookFuncC                               ,-    hookFuncClosure                         ,-    hookFuncWrapper                         ,-    mkHookFunc                              ,-    noHookFunc                              ,----- ** HookMarshaller-    HookMarshaller                          ,-    HookMarshallerC                         ,-    hookMarshallerClosure                   ,-    hookMarshallerWrapper                   ,-    mkHookMarshaller                        ,-    noHookMarshaller                        ,----- ** IOFunc-    IOFunc                                  ,-    IOFuncC                                 ,-    iOFuncClosure                           ,-    iOFuncWrapper                           ,-    mkIOFunc                                ,-    noIOFunc                                ,----- ** IOFuncsIoCloseFieldCallback-    IOFuncsIoCloseFieldCallback             ,-    IOFuncsIoCloseFieldCallbackC            ,-    iOFuncsIoCloseFieldCallbackClosure      ,-    iOFuncsIoCloseFieldCallbackWrapper      ,-    mkIOFuncsIoCloseFieldCallback           ,-    noIOFuncsIoCloseFieldCallback           ,----- ** IOFuncsIoCreateWatchFieldCallback-    IOFuncsIoCreateWatchFieldCallback       ,-    IOFuncsIoCreateWatchFieldCallbackC      ,-    iOFuncsIoCreateWatchFieldCallbackClosure,-    iOFuncsIoCreateWatchFieldCallbackWrapper,-    mkIOFuncsIoCreateWatchFieldCallback     ,-    noIOFuncsIoCreateWatchFieldCallback     ,----- ** IOFuncsIoFreeFieldCallback-    IOFuncsIoFreeFieldCallback              ,-    IOFuncsIoFreeFieldCallbackC             ,-    iOFuncsIoFreeFieldCallbackClosure       ,-    iOFuncsIoFreeFieldCallbackWrapper       ,-    mkIOFuncsIoFreeFieldCallback            ,-    noIOFuncsIoFreeFieldCallback            ,----- ** IOFuncsIoGetFlagsFieldCallback-    IOFuncsIoGetFlagsFieldCallback          ,-    IOFuncsIoGetFlagsFieldCallbackC         ,-    iOFuncsIoGetFlagsFieldCallbackClosure   ,-    iOFuncsIoGetFlagsFieldCallbackWrapper   ,-    mkIOFuncsIoGetFlagsFieldCallback        ,-    noIOFuncsIoGetFlagsFieldCallback        ,----- ** IOFuncsIoReadFieldCallback-    IOFuncsIoReadFieldCallback              ,-    IOFuncsIoReadFieldCallbackC             ,-    iOFuncsIoReadFieldCallbackClosure       ,-    iOFuncsIoReadFieldCallbackWrapper       ,-    mkIOFuncsIoReadFieldCallback            ,-    noIOFuncsIoReadFieldCallback            ,----- ** IOFuncsIoSeekFieldCallback-    IOFuncsIoSeekFieldCallback              ,-    IOFuncsIoSeekFieldCallbackC             ,-    iOFuncsIoSeekFieldCallbackClosure       ,-    iOFuncsIoSeekFieldCallbackWrapper       ,-    mkIOFuncsIoSeekFieldCallback            ,-    noIOFuncsIoSeekFieldCallback            ,----- ** IOFuncsIoSetFlagsFieldCallback-    IOFuncsIoSetFlagsFieldCallback          ,-    IOFuncsIoSetFlagsFieldCallbackC         ,-    iOFuncsIoSetFlagsFieldCallbackClosure   ,-    iOFuncsIoSetFlagsFieldCallbackWrapper   ,-    mkIOFuncsIoSetFlagsFieldCallback        ,-    noIOFuncsIoSetFlagsFieldCallback        ,----- ** IOFuncsIoWriteFieldCallback-    IOFuncsIoWriteFieldCallback             ,-    IOFuncsIoWriteFieldCallbackC            ,-    iOFuncsIoWriteFieldCallbackClosure      ,-    iOFuncsIoWriteFieldCallbackWrapper      ,-    mkIOFuncsIoWriteFieldCallback           ,-    noIOFuncsIoWriteFieldCallback           ,----- ** LogFunc-    LogFunc                                 ,-    LogFuncC                                ,-    logFuncClosure                          ,-    logFuncWrapper                          ,-    mkLogFunc                               ,-    noLogFunc                               ,----- ** MarkupParserEndElementFieldCallback-    MarkupParserEndElementFieldCallback     ,-    MarkupParserEndElementFieldCallbackC    ,-    markupParserEndElementFieldCallbackClosure,-    markupParserEndElementFieldCallbackWrapper,-    mkMarkupParserEndElementFieldCallback   ,-    noMarkupParserEndElementFieldCallback   ,----- ** MarkupParserErrorFieldCallback-    MarkupParserErrorFieldCallback          ,-    MarkupParserErrorFieldCallbackC         ,-    markupParserErrorFieldCallbackClosure   ,-    markupParserErrorFieldCallbackWrapper   ,-    mkMarkupParserErrorFieldCallback        ,-    noMarkupParserErrorFieldCallback        ,----- ** MarkupParserPassthroughFieldCallback-    MarkupParserPassthroughFieldCallback    ,-    MarkupParserPassthroughFieldCallbackC   ,-    markupParserPassthroughFieldCallbackClosure,-    markupParserPassthroughFieldCallbackWrapper,-    mkMarkupParserPassthroughFieldCallback  ,-    noMarkupParserPassthroughFieldCallback  ,----- ** MarkupParserStartElementFieldCallback-    MarkupParserStartElementFieldCallback   ,-    MarkupParserStartElementFieldCallbackC  ,-    markupParserStartElementFieldCallbackClosure,-    markupParserStartElementFieldCallbackWrapper,-    mkMarkupParserStartElementFieldCallback ,-    noMarkupParserStartElementFieldCallback ,----- ** MarkupParserTextFieldCallback-    MarkupParserTextFieldCallback           ,-    MarkupParserTextFieldCallbackC          ,-    markupParserTextFieldCallbackClosure    ,-    markupParserTextFieldCallbackWrapper    ,-    mkMarkupParserTextFieldCallback         ,-    noMarkupParserTextFieldCallback         ,----- ** MemVTableFreeFieldCallback-    MemVTableFreeFieldCallback              ,-    MemVTableFreeFieldCallbackC             ,-    memVTableFreeFieldCallbackClosure       ,-    memVTableFreeFieldCallbackWrapper       ,-    mkMemVTableFreeFieldCallback            ,-    noMemVTableFreeFieldCallback            ,----- ** NodeForeachFunc-    NodeForeachFunc                         ,-    NodeForeachFuncC                        ,-    mkNodeForeachFunc                       ,-    noNodeForeachFunc                       ,-    nodeForeachFuncClosure                  ,-    nodeForeachFuncWrapper                  ,----- ** NodeTraverseFunc-    NodeTraverseFunc                        ,-    NodeTraverseFuncC                       ,-    mkNodeTraverseFunc                      ,-    noNodeTraverseFunc                      ,-    nodeTraverseFuncClosure                 ,-    nodeTraverseFuncWrapper                 ,----- ** OptionArgFunc-    OptionArgFunc                           ,-    OptionArgFuncC                          ,-    mkOptionArgFunc                         ,-    noOptionArgFunc                         ,-    optionArgFuncClosure                    ,-    optionArgFuncWrapper                    ,----- ** OptionErrorFunc-    OptionErrorFunc                         ,-    OptionErrorFuncC                        ,-    mkOptionErrorFunc                       ,-    noOptionErrorFunc                       ,-    optionErrorFuncClosure                  ,-    optionErrorFuncWrapper                  ,----- ** OptionParseFunc-    OptionParseFunc                         ,-    OptionParseFuncC                        ,-    mkOptionParseFunc                       ,-    noOptionParseFunc                       ,-    optionParseFuncClosure                  ,-    optionParseFuncWrapper                  ,----- ** PollFunc-    PollFunc                                ,-    PollFuncC                               ,-    mkPollFunc                              ,-    noPollFunc                              ,-    pollFuncClosure                         ,-    pollFuncWrapper                         ,----- ** PrintFunc-    PrintFunc                               ,-    PrintFuncC                              ,-    mkPrintFunc                             ,-    noPrintFunc                             ,-    printFuncClosure                        ,-    printFuncWrapper                        ,----- ** RegexEvalCallback-    RegexEvalCallback                       ,-    RegexEvalCallbackC                      ,-    mkRegexEvalCallback                     ,-    noRegexEvalCallback                     ,-    regexEvalCallbackClosure                ,-    regexEvalCallbackWrapper                ,----- ** ScannerMsgFunc-    ScannerMsgFunc                          ,-    ScannerMsgFuncC                         ,-    mkScannerMsgFunc                        ,-    noScannerMsgFunc                        ,-    scannerMsgFuncClosure                   ,-    scannerMsgFuncWrapper                   ,----- ** SequenceIterCompareFunc-    SequenceIterCompareFunc                 ,-    SequenceIterCompareFuncC                ,-    mkSequenceIterCompareFunc               ,-    noSequenceIterCompareFunc               ,-    sequenceIterCompareFuncClosure          ,-    sequenceIterCompareFuncWrapper          ,----- ** SourceCallbackFuncsRefFieldCallback-    SourceCallbackFuncsRefFieldCallback     ,-    SourceCallbackFuncsRefFieldCallbackC    ,-    mkSourceCallbackFuncsRefFieldCallback   ,-    noSourceCallbackFuncsRefFieldCallback   ,-    sourceCallbackFuncsRefFieldCallbackClosure,-    sourceCallbackFuncsRefFieldCallbackWrapper,----- ** SourceCallbackFuncsUnrefFieldCallback-    SourceCallbackFuncsUnrefFieldCallback   ,-    SourceCallbackFuncsUnrefFieldCallbackC  ,-    mkSourceCallbackFuncsUnrefFieldCallback ,-    noSourceCallbackFuncsUnrefFieldCallback ,-    sourceCallbackFuncsUnrefFieldCallbackClosure,-    sourceCallbackFuncsUnrefFieldCallbackWrapper,----- ** SourceDummyMarshal-    SourceDummyMarshal                      ,-    SourceDummyMarshalC                     ,-    mkSourceDummyMarshal                    ,-    noSourceDummyMarshal                    ,-    sourceDummyMarshalClosure               ,-    sourceDummyMarshalWrapper               ,----- ** SourceFunc-    SourceFunc                              ,-    SourceFuncC                             ,-    mkSourceFunc                            ,-    noSourceFunc                            ,-    sourceFuncClosure                       ,-    sourceFuncWrapper                       ,----- ** SourceFuncsCheckFieldCallback-    SourceFuncsCheckFieldCallback           ,-    SourceFuncsCheckFieldCallbackC          ,-    mkSourceFuncsCheckFieldCallback         ,-    noSourceFuncsCheckFieldCallback         ,-    sourceFuncsCheckFieldCallbackClosure    ,-    sourceFuncsCheckFieldCallbackWrapper    ,----- ** SourceFuncsFinalizeFieldCallback-    SourceFuncsFinalizeFieldCallback        ,-    SourceFuncsFinalizeFieldCallbackC       ,-    mkSourceFuncsFinalizeFieldCallback      ,-    noSourceFuncsFinalizeFieldCallback      ,-    sourceFuncsFinalizeFieldCallbackClosure ,-    sourceFuncsFinalizeFieldCallbackWrapper ,----- ** SourceFuncsPrepareFieldCallback-    SourceFuncsPrepareFieldCallback         ,-    SourceFuncsPrepareFieldCallbackC        ,-    mkSourceFuncsPrepareFieldCallback       ,-    noSourceFuncsPrepareFieldCallback       ,-    sourceFuncsPrepareFieldCallbackClosure  ,-    sourceFuncsPrepareFieldCallbackWrapper  ,----- ** SpawnChildSetupFunc-    SpawnChildSetupFunc                     ,-    SpawnChildSetupFuncC                    ,-    mkSpawnChildSetupFunc                   ,-    noSpawnChildSetupFunc                   ,-    spawnChildSetupFuncClosure              ,-    spawnChildSetupFuncWrapper              ,----- ** TestDataFunc-    TestDataFunc                            ,-    TestDataFuncC                           ,-    mkTestDataFunc                          ,-    noTestDataFunc                          ,-    testDataFuncClosure                     ,-    testDataFuncWrapper                     ,----- ** TestFixtureFunc-    TestFixtureFunc                         ,-    TestFixtureFuncC                        ,-    mkTestFixtureFunc                       ,-    noTestFixtureFunc                       ,-    testFixtureFuncClosure                  ,-    testFixtureFuncWrapper                  ,----- ** TestFunc-    TestFunc                                ,-    TestFuncC                               ,-    mkTestFunc                              ,-    noTestFunc                              ,-    testFuncClosure                         ,-    testFuncWrapper                         ,----- ** TestLogFatalFunc-    TestLogFatalFunc                        ,-    TestLogFatalFuncC                       ,-    mkTestLogFatalFunc                      ,-    noTestLogFatalFunc                      ,-    testLogFatalFuncClosure                 ,-    testLogFatalFuncWrapper                 ,----- ** TranslateFunc-    TranslateFunc                           ,-    TranslateFuncC                          ,-    mkTranslateFunc                         ,-    noTranslateFunc                         ,-    translateFuncClosure                    ,-    translateFuncWrapper                    ,----- ** TraverseFunc-    TraverseFunc                            ,-    TraverseFuncC                           ,-    mkTraverseFunc                          ,-    noTraverseFunc                          ,-    traverseFuncClosure                     ,-    traverseFuncWrapper                     ,----- ** UnixFDSourceFunc-    UnixFDSourceFunc                        ,-    UnixFDSourceFuncC                       ,-    mkUnixFDSourceFunc                      ,-    noUnixFDSourceFunc                      ,-    unixFDSourceFuncClosure                 ,-    unixFDSourceFuncWrapper                 ,----- ** VoidFunc-    VoidFunc                                ,-    VoidFuncC                               ,-    mkVoidFunc                              ,-    noVoidFunc                              ,-    voidFuncClosure                         ,-    voidFuncWrapper                         ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types----- callback VoidFunc-voidFuncClosure :: VoidFunc -> IO Closure-voidFuncClosure cb = newCClosure =<< mkVoidFunc wrapped-    where wrapped = voidFuncWrapper Nothing cb--type VoidFuncC =-    IO ()--foreign import ccall "wrapper"-    mkVoidFunc :: VoidFuncC -> IO (FunPtr VoidFuncC)--type VoidFunc =-    IO ()--noVoidFunc :: Maybe VoidFunc-noVoidFunc = Nothing--voidFuncWrapper ::-    Maybe (Ptr (FunPtr (VoidFuncC))) ->-    VoidFunc ->-    IO ()-voidFuncWrapper funptrptr _cb = do-    _cb -    maybeReleaseFunPtr funptrptr---- callback UnixFDSourceFunc-unixFDSourceFuncClosure :: UnixFDSourceFunc -> IO Closure-unixFDSourceFuncClosure cb = newCClosure =<< mkUnixFDSourceFunc wrapped-    where wrapped = unixFDSourceFuncWrapper Nothing cb--type UnixFDSourceFuncC =-    Int32 ->-    CUInt ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkUnixFDSourceFunc :: UnixFDSourceFuncC -> IO (FunPtr UnixFDSourceFuncC)--type UnixFDSourceFunc =-    Int32 ->-    [IOCondition] ->-    IO Bool--noUnixFDSourceFunc :: Maybe UnixFDSourceFunc-noUnixFDSourceFunc = Nothing--unixFDSourceFuncWrapper ::-    Maybe (Ptr (FunPtr (UnixFDSourceFuncC))) ->-    UnixFDSourceFunc ->-    Int32 ->-    CUInt ->-    Ptr () ->-    IO CInt-unixFDSourceFuncWrapper funptrptr _cb fd condition _ = do-    let condition' = wordToGFlags condition-    result <- _cb  fd condition'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback TraverseFunc-traverseFuncClosure :: TraverseFunc -> IO Closure-traverseFuncClosure cb = newCClosure =<< mkTraverseFunc wrapped-    where wrapped = traverseFuncWrapper Nothing cb--type TraverseFuncC =-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkTraverseFunc :: TraverseFuncC -> IO (FunPtr TraverseFuncC)--type TraverseFunc =-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO Bool--noTraverseFunc :: Maybe TraverseFunc-noTraverseFunc = Nothing--traverseFuncWrapper ::-    Maybe (Ptr (FunPtr (TraverseFuncC))) ->-    TraverseFunc ->-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO CInt-traverseFuncWrapper funptrptr _cb key value data_ = do-    result <- _cb  key value data_-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback TranslateFunc-translateFuncClosure :: TranslateFunc -> IO Closure-translateFuncClosure cb = newCClosure =<< mkTranslateFunc wrapped-    where wrapped = translateFuncWrapper Nothing cb--type TranslateFuncC =-    CString ->-    Ptr () ->-    IO CString--foreign import ccall "wrapper"-    mkTranslateFunc :: TranslateFuncC -> IO (FunPtr TranslateFuncC)--type TranslateFunc =-    T.Text ->-    Ptr () ->-    IO T.Text--noTranslateFunc :: Maybe TranslateFunc-noTranslateFunc = Nothing--translateFuncWrapper ::-    Maybe (Ptr (FunPtr (TranslateFuncC))) ->-    TranslateFunc ->-    CString ->-    Ptr () ->-    IO CString-translateFuncWrapper funptrptr _cb str data_ = do-    str' <- cstringToText str-    result <- _cb  str' data_-    maybeReleaseFunPtr funptrptr-    result' <- textToCString result-    return result'---- callback TestLogFatalFunc-testLogFatalFuncClosure :: TestLogFatalFunc -> IO Closure-testLogFatalFuncClosure cb = newCClosure =<< mkTestLogFatalFunc wrapped-    where wrapped = testLogFatalFuncWrapper Nothing cb--type TestLogFatalFuncC =-    CString ->-    CUInt ->-    CString ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkTestLogFatalFunc :: TestLogFatalFuncC -> IO (FunPtr TestLogFatalFuncC)--type TestLogFatalFunc =-    T.Text ->-    [LogLevelFlags] ->-    T.Text ->-    IO Bool--noTestLogFatalFunc :: Maybe TestLogFatalFunc-noTestLogFatalFunc = Nothing--testLogFatalFuncWrapper ::-    Maybe (Ptr (FunPtr (TestLogFatalFuncC))) ->-    TestLogFatalFunc ->-    CString ->-    CUInt ->-    CString ->-    Ptr () ->-    IO CInt-testLogFatalFuncWrapper funptrptr _cb log_domain log_level message _ = do-    log_domain' <- cstringToText log_domain-    let log_level' = wordToGFlags log_level-    message' <- cstringToText message-    result <- _cb  log_domain' log_level' message'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback TestFunc-testFuncClosure :: TestFunc -> IO Closure-testFuncClosure cb = newCClosure =<< mkTestFunc wrapped-    where wrapped = testFuncWrapper Nothing cb--type TestFuncC =-    IO ()--foreign import ccall "wrapper"-    mkTestFunc :: TestFuncC -> IO (FunPtr TestFuncC)--type TestFunc =-    IO ()--noTestFunc :: Maybe TestFunc-noTestFunc = Nothing--testFuncWrapper ::-    Maybe (Ptr (FunPtr (TestFuncC))) ->-    TestFunc ->-    IO ()-testFuncWrapper funptrptr _cb = do-    _cb -    maybeReleaseFunPtr funptrptr---- callback TestFixtureFunc-testFixtureFuncClosure :: TestFixtureFunc -> IO Closure-testFixtureFuncClosure cb = newCClosure =<< mkTestFixtureFunc wrapped-    where wrapped = testFixtureFuncWrapper Nothing cb--type TestFixtureFuncC =-    Ptr () ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkTestFixtureFunc :: TestFixtureFuncC -> IO (FunPtr TestFixtureFuncC)--type TestFixtureFunc =-    Ptr () ->-    IO ()--noTestFixtureFunc :: Maybe TestFixtureFunc-noTestFixtureFunc = Nothing--testFixtureFuncWrapper ::-    Maybe (Ptr (FunPtr (TestFixtureFuncC))) ->-    TestFixtureFunc ->-    Ptr () ->-    Ptr () ->-    IO ()-testFixtureFuncWrapper funptrptr _cb fixture _ = do-    _cb  fixture-    maybeReleaseFunPtr funptrptr---- callback TestDataFunc-testDataFuncClosure :: TestDataFunc -> IO Closure-testDataFuncClosure cb = newCClosure =<< mkTestDataFunc wrapped-    where wrapped = testDataFuncWrapper Nothing cb--type TestDataFuncC =-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkTestDataFunc :: TestDataFuncC -> IO (FunPtr TestDataFuncC)--type TestDataFunc =-    IO ()--noTestDataFunc :: Maybe TestDataFunc-noTestDataFunc = Nothing--testDataFuncWrapper ::-    Maybe (Ptr (FunPtr (TestDataFuncC))) ->-    TestDataFunc ->-    Ptr () ->-    IO ()-testDataFuncWrapper funptrptr _cb _ = do-    _cb -    maybeReleaseFunPtr funptrptr---- callback SpawnChildSetupFunc-spawnChildSetupFuncClosure :: SpawnChildSetupFunc -> IO Closure-spawnChildSetupFuncClosure cb = newCClosure =<< mkSpawnChildSetupFunc wrapped-    where wrapped = spawnChildSetupFuncWrapper Nothing cb--type SpawnChildSetupFuncC =-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkSpawnChildSetupFunc :: SpawnChildSetupFuncC -> IO (FunPtr SpawnChildSetupFuncC)--type SpawnChildSetupFunc =-    IO ()--noSpawnChildSetupFunc :: Maybe SpawnChildSetupFunc-noSpawnChildSetupFunc = Nothing--spawnChildSetupFuncWrapper ::-    Maybe (Ptr (FunPtr (SpawnChildSetupFuncC))) ->-    SpawnChildSetupFunc ->-    Ptr () ->-    IO ()-spawnChildSetupFuncWrapper funptrptr _cb _ = do-    _cb -    maybeReleaseFunPtr funptrptr---- callback SourceFuncsPrepareFieldCallback-sourceFuncsPrepareFieldCallbackClosure :: SourceFuncsPrepareFieldCallback -> IO Closure-sourceFuncsPrepareFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsPrepareFieldCallback wrapped-    where wrapped = sourceFuncsPrepareFieldCallbackWrapper Nothing cb--type SourceFuncsPrepareFieldCallbackC =-    Ptr Source ->-    Int32 ->-    IO CInt--foreign import ccall "wrapper"-    mkSourceFuncsPrepareFieldCallback :: SourceFuncsPrepareFieldCallbackC -> IO (FunPtr SourceFuncsPrepareFieldCallbackC)--type SourceFuncsPrepareFieldCallback =-    Source ->-    Int32 ->-    IO Bool--noSourceFuncsPrepareFieldCallback :: Maybe SourceFuncsPrepareFieldCallback-noSourceFuncsPrepareFieldCallback = Nothing--sourceFuncsPrepareFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (SourceFuncsPrepareFieldCallbackC))) ->-    SourceFuncsPrepareFieldCallback ->-    Ptr Source ->-    Int32 ->-    IO CInt-sourceFuncsPrepareFieldCallbackWrapper funptrptr _cb source timeout_ = do-    source' <- (newBoxed Source) source-    result <- _cb  source' timeout_-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback SourceFuncsFinalizeFieldCallback-sourceFuncsFinalizeFieldCallbackClosure :: SourceFuncsFinalizeFieldCallback -> IO Closure-sourceFuncsFinalizeFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsFinalizeFieldCallback wrapped-    where wrapped = sourceFuncsFinalizeFieldCallbackWrapper Nothing cb--type SourceFuncsFinalizeFieldCallbackC =-    Ptr Source ->-    IO ()--foreign import ccall "wrapper"-    mkSourceFuncsFinalizeFieldCallback :: SourceFuncsFinalizeFieldCallbackC -> IO (FunPtr SourceFuncsFinalizeFieldCallbackC)--type SourceFuncsFinalizeFieldCallback =-    Source ->-    IO ()--noSourceFuncsFinalizeFieldCallback :: Maybe SourceFuncsFinalizeFieldCallback-noSourceFuncsFinalizeFieldCallback = Nothing--sourceFuncsFinalizeFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (SourceFuncsFinalizeFieldCallbackC))) ->-    SourceFuncsFinalizeFieldCallback ->-    Ptr Source ->-    IO ()-sourceFuncsFinalizeFieldCallbackWrapper funptrptr _cb source = do-    source' <- (newBoxed Source) source-    _cb  source'-    maybeReleaseFunPtr funptrptr---- callback SourceFuncsCheckFieldCallback-sourceFuncsCheckFieldCallbackClosure :: SourceFuncsCheckFieldCallback -> IO Closure-sourceFuncsCheckFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsCheckFieldCallback wrapped-    where wrapped = sourceFuncsCheckFieldCallbackWrapper Nothing cb--type SourceFuncsCheckFieldCallbackC =-    Ptr Source ->-    IO CInt--foreign import ccall "wrapper"-    mkSourceFuncsCheckFieldCallback :: SourceFuncsCheckFieldCallbackC -> IO (FunPtr SourceFuncsCheckFieldCallbackC)--type SourceFuncsCheckFieldCallback =-    Source ->-    IO Bool--noSourceFuncsCheckFieldCallback :: Maybe SourceFuncsCheckFieldCallback-noSourceFuncsCheckFieldCallback = Nothing--sourceFuncsCheckFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (SourceFuncsCheckFieldCallbackC))) ->-    SourceFuncsCheckFieldCallback ->-    Ptr Source ->-    IO CInt-sourceFuncsCheckFieldCallbackWrapper funptrptr _cb source = do-    source' <- (newBoxed Source) source-    result <- _cb  source'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback SourceFunc-sourceFuncClosure :: SourceFunc -> IO Closure-sourceFuncClosure cb = newCClosure =<< mkSourceFunc wrapped-    where wrapped = sourceFuncWrapper Nothing cb--type SourceFuncC =-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkSourceFunc :: SourceFuncC -> IO (FunPtr SourceFuncC)--type SourceFunc =-    IO Bool--noSourceFunc :: Maybe SourceFunc-noSourceFunc = Nothing--sourceFuncWrapper ::-    Maybe (Ptr (FunPtr (SourceFuncC))) ->-    SourceFunc ->-    Ptr () ->-    IO CInt-sourceFuncWrapper funptrptr _cb _ = do-    result <- _cb -    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback SourceDummyMarshal-sourceDummyMarshalClosure :: SourceDummyMarshal -> IO Closure-sourceDummyMarshalClosure cb = newCClosure =<< mkSourceDummyMarshal wrapped-    where wrapped = sourceDummyMarshalWrapper Nothing cb--type SourceDummyMarshalC =-    IO ()--foreign import ccall "wrapper"-    mkSourceDummyMarshal :: SourceDummyMarshalC -> IO (FunPtr SourceDummyMarshalC)--type SourceDummyMarshal =-    IO ()--noSourceDummyMarshal :: Maybe SourceDummyMarshal-noSourceDummyMarshal = Nothing--sourceDummyMarshalWrapper ::-    Maybe (Ptr (FunPtr (SourceDummyMarshalC))) ->-    SourceDummyMarshal ->-    IO ()-sourceDummyMarshalWrapper funptrptr _cb = do-    _cb -    maybeReleaseFunPtr funptrptr---- callback SourceCallbackFuncsUnrefFieldCallback-sourceCallbackFuncsUnrefFieldCallbackClosure :: SourceCallbackFuncsUnrefFieldCallback -> IO Closure-sourceCallbackFuncsUnrefFieldCallbackClosure cb = newCClosure =<< mkSourceCallbackFuncsUnrefFieldCallback wrapped-    where wrapped = sourceCallbackFuncsUnrefFieldCallbackWrapper Nothing cb--type SourceCallbackFuncsUnrefFieldCallbackC =-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkSourceCallbackFuncsUnrefFieldCallback :: SourceCallbackFuncsUnrefFieldCallbackC -> IO (FunPtr SourceCallbackFuncsUnrefFieldCallbackC)--type SourceCallbackFuncsUnrefFieldCallback =-    Ptr () ->-    IO ()--noSourceCallbackFuncsUnrefFieldCallback :: Maybe SourceCallbackFuncsUnrefFieldCallback-noSourceCallbackFuncsUnrefFieldCallback = Nothing--sourceCallbackFuncsUnrefFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (SourceCallbackFuncsUnrefFieldCallbackC))) ->-    SourceCallbackFuncsUnrefFieldCallback ->-    Ptr () ->-    IO ()-sourceCallbackFuncsUnrefFieldCallbackWrapper funptrptr _cb cb_data = do-    _cb  cb_data-    maybeReleaseFunPtr funptrptr---- callback SourceCallbackFuncsRefFieldCallback-sourceCallbackFuncsRefFieldCallbackClosure :: SourceCallbackFuncsRefFieldCallback -> IO Closure-sourceCallbackFuncsRefFieldCallbackClosure cb = newCClosure =<< mkSourceCallbackFuncsRefFieldCallback wrapped-    where wrapped = sourceCallbackFuncsRefFieldCallbackWrapper Nothing cb--type SourceCallbackFuncsRefFieldCallbackC =-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkSourceCallbackFuncsRefFieldCallback :: SourceCallbackFuncsRefFieldCallbackC -> IO (FunPtr SourceCallbackFuncsRefFieldCallbackC)--type SourceCallbackFuncsRefFieldCallback =-    Ptr () ->-    IO ()--noSourceCallbackFuncsRefFieldCallback :: Maybe SourceCallbackFuncsRefFieldCallback-noSourceCallbackFuncsRefFieldCallback = Nothing--sourceCallbackFuncsRefFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (SourceCallbackFuncsRefFieldCallbackC))) ->-    SourceCallbackFuncsRefFieldCallback ->-    Ptr () ->-    IO ()-sourceCallbackFuncsRefFieldCallbackWrapper funptrptr _cb cb_data = do-    _cb  cb_data-    maybeReleaseFunPtr funptrptr---- callback SequenceIterCompareFunc-sequenceIterCompareFuncClosure :: SequenceIterCompareFunc -> IO Closure-sequenceIterCompareFuncClosure cb = newCClosure =<< mkSequenceIterCompareFunc wrapped-    where wrapped = sequenceIterCompareFuncWrapper Nothing cb--type SequenceIterCompareFuncC =-    Ptr SequenceIter ->-    Ptr SequenceIter ->-    Ptr () ->-    IO Int32--foreign import ccall "wrapper"-    mkSequenceIterCompareFunc :: SequenceIterCompareFuncC -> IO (FunPtr SequenceIterCompareFuncC)--type SequenceIterCompareFunc =-    SequenceIter ->-    SequenceIter ->-    Ptr () ->-    IO Int32--noSequenceIterCompareFunc :: Maybe SequenceIterCompareFunc-noSequenceIterCompareFunc = Nothing--sequenceIterCompareFuncWrapper ::-    Maybe (Ptr (FunPtr (SequenceIterCompareFuncC))) ->-    SequenceIterCompareFunc ->-    Ptr SequenceIter ->-    Ptr SequenceIter ->-    Ptr () ->-    IO Int32-sequenceIterCompareFuncWrapper funptrptr _cb a b data_ = do-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    a' <- (\x -> SequenceIter <$> newForeignPtr_ x) a-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    b' <- (\x -> SequenceIter <$> newForeignPtr_ x) b-    result <- _cb  a' b' data_-    maybeReleaseFunPtr funptrptr-    return result---- callback ScannerMsgFunc-scannerMsgFuncClosure :: ScannerMsgFunc -> IO Closure-scannerMsgFuncClosure cb = newCClosure =<< mkScannerMsgFunc wrapped-    where wrapped = scannerMsgFuncWrapper Nothing cb--type ScannerMsgFuncC =-    Ptr Scanner ->-    CString ->-    CInt ->-    IO ()--foreign import ccall "wrapper"-    mkScannerMsgFunc :: ScannerMsgFuncC -> IO (FunPtr ScannerMsgFuncC)--type ScannerMsgFunc =-    Scanner ->-    T.Text ->-    Bool ->-    IO ()--noScannerMsgFunc :: Maybe ScannerMsgFunc-noScannerMsgFunc = Nothing--scannerMsgFuncWrapper ::-    Maybe (Ptr (FunPtr (ScannerMsgFuncC))) ->-    ScannerMsgFunc ->-    Ptr Scanner ->-    CString ->-    CInt ->-    IO ()-scannerMsgFuncWrapper funptrptr _cb scanner message error_ = do-    scanner' <- (newPtr 144 Scanner) scanner-    message' <- cstringToText message-    let error_' = (/= 0) error_-    _cb  scanner' message' error_'-    maybeReleaseFunPtr funptrptr---- callback RegexEvalCallback-regexEvalCallbackClosure :: RegexEvalCallback -> IO Closure-regexEvalCallbackClosure cb = newCClosure =<< mkRegexEvalCallback wrapped-    where wrapped = regexEvalCallbackWrapper Nothing cb--type RegexEvalCallbackC =-    Ptr MatchInfo ->-    Ptr String ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkRegexEvalCallback :: RegexEvalCallbackC -> IO (FunPtr RegexEvalCallbackC)--type RegexEvalCallback =-    MatchInfo ->-    String ->-    IO Bool--noRegexEvalCallback :: Maybe RegexEvalCallback-noRegexEvalCallback = Nothing--regexEvalCallbackWrapper ::-    Maybe (Ptr (FunPtr (RegexEvalCallbackC))) ->-    RegexEvalCallback ->-    Ptr MatchInfo ->-    Ptr String ->-    Ptr () ->-    IO CInt-regexEvalCallbackWrapper funptrptr _cb match_info result_ _ = do-    match_info' <- (newBoxed MatchInfo) match_info-    result_' <- (newBoxed String) result_-    result <- _cb  match_info' result_'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback PrintFunc-printFuncClosure :: PrintFunc -> IO Closure-printFuncClosure cb = newCClosure =<< mkPrintFunc wrapped-    where wrapped = printFuncWrapper Nothing cb--type PrintFuncC =-    CString ->-    IO ()--foreign import ccall "wrapper"-    mkPrintFunc :: PrintFuncC -> IO (FunPtr PrintFuncC)--type PrintFunc =-    T.Text ->-    IO ()--noPrintFunc :: Maybe PrintFunc-noPrintFunc = Nothing--printFuncWrapper ::-    Maybe (Ptr (FunPtr (PrintFuncC))) ->-    PrintFunc ->-    CString ->-    IO ()-printFuncWrapper funptrptr _cb string = do-    string' <- cstringToText string-    _cb  string'-    maybeReleaseFunPtr funptrptr---- callback PollFunc-pollFuncClosure :: PollFunc -> IO Closure-pollFuncClosure cb = newCClosure =<< mkPollFunc wrapped-    where wrapped = pollFuncWrapper Nothing cb--type PollFuncC =-    Ptr PollFD ->-    Word32 ->-    Int32 ->-    IO Int32--foreign import ccall "wrapper"-    mkPollFunc :: PollFuncC -> IO (FunPtr PollFuncC)--type PollFunc =-    PollFD ->-    Word32 ->-    Int32 ->-    IO Int32--noPollFunc :: Maybe PollFunc-noPollFunc = Nothing--pollFuncWrapper ::-    Maybe (Ptr (FunPtr (PollFuncC))) ->-    PollFunc ->-    Ptr PollFD ->-    Word32 ->-    Int32 ->-    IO Int32-pollFuncWrapper funptrptr _cb ufds nfsd timeout_ = do-    ufds' <- (newBoxed PollFD) ufds-    result <- _cb  ufds' nfsd timeout_-    maybeReleaseFunPtr funptrptr-    return result---- callback OptionParseFunc-optionParseFuncClosure :: OptionParseFunc -> IO Closure-optionParseFuncClosure cb = newCClosure =<< mkOptionParseFunc wrapped-    where wrapped = optionParseFuncWrapper Nothing cb--type OptionParseFuncC =-    Ptr OptionContext ->-    Ptr OptionGroup ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkOptionParseFunc :: OptionParseFuncC -> IO (FunPtr OptionParseFuncC)--type OptionParseFunc =-    OptionContext ->-    OptionGroup ->-    Ptr () ->-    IO Bool--noOptionParseFunc :: Maybe OptionParseFunc-noOptionParseFunc = Nothing--optionParseFuncWrapper ::-    Maybe (Ptr (FunPtr (OptionParseFuncC))) ->-    OptionParseFunc ->-    Ptr OptionContext ->-    Ptr OptionGroup ->-    Ptr () ->-    IO CInt-optionParseFuncWrapper funptrptr _cb context group data_ = do-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    context' <- (\x -> OptionContext <$> newForeignPtr_ x) context-    group' <- (newBoxed OptionGroup) group-    result <- _cb  context' group' data_-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback OptionErrorFunc-optionErrorFuncClosure :: OptionErrorFunc -> IO Closure-optionErrorFuncClosure cb = newCClosure =<< mkOptionErrorFunc wrapped-    where wrapped = optionErrorFuncWrapper Nothing cb--type OptionErrorFuncC =-    Ptr OptionContext ->-    Ptr OptionGroup ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkOptionErrorFunc :: OptionErrorFuncC -> IO (FunPtr OptionErrorFuncC)--type OptionErrorFunc =-    OptionContext ->-    OptionGroup ->-    Ptr () ->-    IO ()--noOptionErrorFunc :: Maybe OptionErrorFunc-noOptionErrorFunc = Nothing--optionErrorFuncWrapper ::-    Maybe (Ptr (FunPtr (OptionErrorFuncC))) ->-    OptionErrorFunc ->-    Ptr OptionContext ->-    Ptr OptionGroup ->-    Ptr () ->-    IO ()-optionErrorFuncWrapper funptrptr _cb context group data_ = do-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    context' <- (\x -> OptionContext <$> newForeignPtr_ x) context-    group' <- (newBoxed OptionGroup) group-    _cb  context' group' data_-    maybeReleaseFunPtr funptrptr---- callback OptionArgFunc-optionArgFuncClosure :: OptionArgFunc -> IO Closure-optionArgFuncClosure cb = newCClosure =<< mkOptionArgFunc wrapped-    where wrapped = optionArgFuncWrapper Nothing cb--type OptionArgFuncC =-    CString ->-    CString ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkOptionArgFunc :: OptionArgFuncC -> IO (FunPtr OptionArgFuncC)--type OptionArgFunc =-    T.Text ->-    T.Text ->-    Ptr () ->-    IO Bool--noOptionArgFunc :: Maybe OptionArgFunc-noOptionArgFunc = Nothing--optionArgFuncWrapper ::-    Maybe (Ptr (FunPtr (OptionArgFuncC))) ->-    OptionArgFunc ->-    CString ->-    CString ->-    Ptr () ->-    IO CInt-optionArgFuncWrapper funptrptr _cb option_name value data_ = do-    option_name' <- cstringToText option_name-    value' <- cstringToText value-    result <- _cb  option_name' value' data_-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback NodeTraverseFunc-nodeTraverseFuncClosure :: NodeTraverseFunc -> IO Closure-nodeTraverseFuncClosure cb = newCClosure =<< mkNodeTraverseFunc wrapped-    where wrapped = nodeTraverseFuncWrapper Nothing cb--type NodeTraverseFuncC =-    Ptr Node ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkNodeTraverseFunc :: NodeTraverseFuncC -> IO (FunPtr NodeTraverseFuncC)--type NodeTraverseFunc =-    Node ->-    Ptr () ->-    IO Bool--noNodeTraverseFunc :: Maybe NodeTraverseFunc-noNodeTraverseFunc = Nothing--nodeTraverseFuncWrapper ::-    Maybe (Ptr (FunPtr (NodeTraverseFuncC))) ->-    NodeTraverseFunc ->-    Ptr Node ->-    Ptr () ->-    IO CInt-nodeTraverseFuncWrapper funptrptr _cb node data_ = do-    node' <- (newPtr 40 Node) node-    result <- _cb  node' data_-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback NodeForeachFunc-nodeForeachFuncClosure :: NodeForeachFunc -> IO Closure-nodeForeachFuncClosure cb = newCClosure =<< mkNodeForeachFunc wrapped-    where wrapped = nodeForeachFuncWrapper Nothing cb--type NodeForeachFuncC =-    Ptr Node ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkNodeForeachFunc :: NodeForeachFuncC -> IO (FunPtr NodeForeachFuncC)--type NodeForeachFunc =-    Node ->-    Ptr () ->-    IO ()--noNodeForeachFunc :: Maybe NodeForeachFunc-noNodeForeachFunc = Nothing--nodeForeachFuncWrapper ::-    Maybe (Ptr (FunPtr (NodeForeachFuncC))) ->-    NodeForeachFunc ->-    Ptr Node ->-    Ptr () ->-    IO ()-nodeForeachFuncWrapper funptrptr _cb node data_ = do-    node' <- (newPtr 40 Node) node-    _cb  node' data_-    maybeReleaseFunPtr funptrptr---- callback MemVTableFreeFieldCallback-memVTableFreeFieldCallbackClosure :: MemVTableFreeFieldCallback -> IO Closure-memVTableFreeFieldCallbackClosure cb = newCClosure =<< mkMemVTableFreeFieldCallback wrapped-    where wrapped = memVTableFreeFieldCallbackWrapper Nothing cb--type MemVTableFreeFieldCallbackC =-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkMemVTableFreeFieldCallback :: MemVTableFreeFieldCallbackC -> IO (FunPtr MemVTableFreeFieldCallbackC)--type MemVTableFreeFieldCallback =-    Ptr () ->-    IO ()--noMemVTableFreeFieldCallback :: Maybe MemVTableFreeFieldCallback-noMemVTableFreeFieldCallback = Nothing--memVTableFreeFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (MemVTableFreeFieldCallbackC))) ->-    MemVTableFreeFieldCallback ->-    Ptr () ->-    IO ()-memVTableFreeFieldCallbackWrapper funptrptr _cb mem = do-    _cb  mem-    maybeReleaseFunPtr funptrptr---- callback MarkupParserTextFieldCallback-markupParserTextFieldCallbackClosure :: MarkupParserTextFieldCallback -> IO Closure-markupParserTextFieldCallbackClosure cb = newCClosure =<< mkMarkupParserTextFieldCallback wrapped-    where wrapped = markupParserTextFieldCallbackWrapper Nothing cb--type MarkupParserTextFieldCallbackC =-    Ptr MarkupParseContext ->-    CString ->-    Word64 ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkMarkupParserTextFieldCallback :: MarkupParserTextFieldCallbackC -> IO (FunPtr MarkupParserTextFieldCallbackC)--type MarkupParserTextFieldCallback =-    MarkupParseContext ->-    T.Text ->-    Word64 ->-    IO ()--noMarkupParserTextFieldCallback :: Maybe MarkupParserTextFieldCallback-noMarkupParserTextFieldCallback = Nothing--markupParserTextFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (MarkupParserTextFieldCallbackC))) ->-    MarkupParserTextFieldCallback ->-    Ptr MarkupParseContext ->-    CString ->-    Word64 ->-    Ptr () ->-    IO ()-markupParserTextFieldCallbackWrapper funptrptr _cb context text text_len _ = do-    context' <- (newBoxed MarkupParseContext) context-    text' <- cstringToText text-    _cb  context' text' text_len-    maybeReleaseFunPtr funptrptr---- callback MarkupParserStartElementFieldCallback-markupParserStartElementFieldCallbackClosure :: MarkupParserStartElementFieldCallback -> IO Closure-markupParserStartElementFieldCallbackClosure cb = newCClosure =<< mkMarkupParserStartElementFieldCallback wrapped-    where wrapped = markupParserStartElementFieldCallbackWrapper Nothing cb--type MarkupParserStartElementFieldCallbackC =-    Ptr MarkupParseContext ->-    CString ->-    CString ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkMarkupParserStartElementFieldCallback :: MarkupParserStartElementFieldCallbackC -> IO (FunPtr MarkupParserStartElementFieldCallbackC)--type MarkupParserStartElementFieldCallback =-    MarkupParseContext ->-    T.Text ->-    T.Text ->-    T.Text ->-    IO ()--noMarkupParserStartElementFieldCallback :: Maybe MarkupParserStartElementFieldCallback-noMarkupParserStartElementFieldCallback = Nothing--markupParserStartElementFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (MarkupParserStartElementFieldCallbackC))) ->-    MarkupParserStartElementFieldCallback ->-    Ptr MarkupParseContext ->-    CString ->-    CString ->-    CString ->-    Ptr () ->-    IO ()-markupParserStartElementFieldCallbackWrapper funptrptr _cb context element_name attribute_names attribute_values _ = do-    context' <- (newBoxed MarkupParseContext) context-    element_name' <- cstringToText element_name-    attribute_names' <- cstringToText attribute_names-    attribute_values' <- cstringToText attribute_values-    _cb  context' element_name' attribute_names' attribute_values'-    maybeReleaseFunPtr funptrptr---- callback MarkupParserPassthroughFieldCallback-markupParserPassthroughFieldCallbackClosure :: MarkupParserPassthroughFieldCallback -> IO Closure-markupParserPassthroughFieldCallbackClosure cb = newCClosure =<< mkMarkupParserPassthroughFieldCallback wrapped-    where wrapped = markupParserPassthroughFieldCallbackWrapper Nothing cb--type MarkupParserPassthroughFieldCallbackC =-    Ptr MarkupParseContext ->-    CString ->-    Word64 ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkMarkupParserPassthroughFieldCallback :: MarkupParserPassthroughFieldCallbackC -> IO (FunPtr MarkupParserPassthroughFieldCallbackC)--type MarkupParserPassthroughFieldCallback =-    MarkupParseContext ->-    T.Text ->-    Word64 ->-    IO ()--noMarkupParserPassthroughFieldCallback :: Maybe MarkupParserPassthroughFieldCallback-noMarkupParserPassthroughFieldCallback = Nothing--markupParserPassthroughFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (MarkupParserPassthroughFieldCallbackC))) ->-    MarkupParserPassthroughFieldCallback ->-    Ptr MarkupParseContext ->-    CString ->-    Word64 ->-    Ptr () ->-    IO ()-markupParserPassthroughFieldCallbackWrapper funptrptr _cb context passthrough_text text_len _ = do-    context' <- (newBoxed MarkupParseContext) context-    passthrough_text' <- cstringToText passthrough_text-    _cb  context' passthrough_text' text_len-    maybeReleaseFunPtr funptrptr---- callback MarkupParserErrorFieldCallback-markupParserErrorFieldCallbackClosure :: MarkupParserErrorFieldCallback -> IO Closure-markupParserErrorFieldCallbackClosure cb = newCClosure =<< mkMarkupParserErrorFieldCallback wrapped-    where wrapped = markupParserErrorFieldCallbackWrapper Nothing cb--type MarkupParserErrorFieldCallbackC =-    Ptr MarkupParseContext ->-    Ptr GError ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkMarkupParserErrorFieldCallback :: MarkupParserErrorFieldCallbackC -> IO (FunPtr MarkupParserErrorFieldCallbackC)--type MarkupParserErrorFieldCallback =-    MarkupParseContext ->-    GError ->-    IO ()--noMarkupParserErrorFieldCallback :: Maybe MarkupParserErrorFieldCallback-noMarkupParserErrorFieldCallback = Nothing--markupParserErrorFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (MarkupParserErrorFieldCallbackC))) ->-    MarkupParserErrorFieldCallback ->-    Ptr MarkupParseContext ->-    Ptr GError ->-    Ptr () ->-    IO ()-markupParserErrorFieldCallbackWrapper funptrptr _cb context error_ _ = do-    context' <- (newBoxed MarkupParseContext) context-    error_' <- (newBoxed GError) error_-    _cb  context' error_'-    maybeReleaseFunPtr funptrptr---- callback MarkupParserEndElementFieldCallback-markupParserEndElementFieldCallbackClosure :: MarkupParserEndElementFieldCallback -> IO Closure-markupParserEndElementFieldCallbackClosure cb = newCClosure =<< mkMarkupParserEndElementFieldCallback wrapped-    where wrapped = markupParserEndElementFieldCallbackWrapper Nothing cb--type MarkupParserEndElementFieldCallbackC =-    Ptr MarkupParseContext ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkMarkupParserEndElementFieldCallback :: MarkupParserEndElementFieldCallbackC -> IO (FunPtr MarkupParserEndElementFieldCallbackC)--type MarkupParserEndElementFieldCallback =-    MarkupParseContext ->-    T.Text ->-    IO ()--noMarkupParserEndElementFieldCallback :: Maybe MarkupParserEndElementFieldCallback-noMarkupParserEndElementFieldCallback = Nothing--markupParserEndElementFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (MarkupParserEndElementFieldCallbackC))) ->-    MarkupParserEndElementFieldCallback ->-    Ptr MarkupParseContext ->-    CString ->-    Ptr () ->-    IO ()-markupParserEndElementFieldCallbackWrapper funptrptr _cb context element_name _ = do-    context' <- (newBoxed MarkupParseContext) context-    element_name' <- cstringToText element_name-    _cb  context' element_name'-    maybeReleaseFunPtr funptrptr---- callback LogFunc-logFuncClosure :: LogFunc -> IO Closure-logFuncClosure cb = newCClosure =<< mkLogFunc wrapped-    where wrapped = logFuncWrapper Nothing cb--type LogFuncC =-    CString ->-    CUInt ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkLogFunc :: LogFuncC -> IO (FunPtr LogFuncC)--type LogFunc =-    T.Text ->-    [LogLevelFlags] ->-    T.Text ->-    IO ()--noLogFunc :: Maybe LogFunc-noLogFunc = Nothing--logFuncWrapper ::-    Maybe (Ptr (FunPtr (LogFuncC))) ->-    LogFunc ->-    CString ->-    CUInt ->-    CString ->-    Ptr () ->-    IO ()-logFuncWrapper funptrptr _cb log_domain log_level message _ = do-    log_domain' <- cstringToText log_domain-    let log_level' = wordToGFlags log_level-    message' <- cstringToText message-    _cb  log_domain' log_level' message'-    maybeReleaseFunPtr funptrptr---- callback IOFuncsIoWriteFieldCallback-iOFuncsIoWriteFieldCallbackClosure :: IOFuncsIoWriteFieldCallback -> IO Closure-iOFuncsIoWriteFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoWriteFieldCallback wrapped-    where wrapped = iOFuncsIoWriteFieldCallbackWrapper Nothing cb--type IOFuncsIoWriteFieldCallbackC =-    Ptr IOChannel ->-    CString ->-    Word64 ->-    Word64 ->-    IO CUInt--foreign import ccall "wrapper"-    mkIOFuncsIoWriteFieldCallback :: IOFuncsIoWriteFieldCallbackC -> IO (FunPtr IOFuncsIoWriteFieldCallbackC)--type IOFuncsIoWriteFieldCallback =-    IOChannel ->-    T.Text ->-    Word64 ->-    Word64 ->-    IO IOStatus--noIOFuncsIoWriteFieldCallback :: Maybe IOFuncsIoWriteFieldCallback-noIOFuncsIoWriteFieldCallback = Nothing--iOFuncsIoWriteFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (IOFuncsIoWriteFieldCallbackC))) ->-    IOFuncsIoWriteFieldCallback ->-    Ptr IOChannel ->-    CString ->-    Word64 ->-    Word64 ->-    IO CUInt-iOFuncsIoWriteFieldCallbackWrapper funptrptr _cb channel buf count bytes_written = do-    channel' <- (newBoxed IOChannel) channel-    buf' <- cstringToText buf-    result <- _cb  channel' buf' count bytes_written-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback IOFuncsIoSetFlagsFieldCallback-iOFuncsIoSetFlagsFieldCallbackClosure :: IOFuncsIoSetFlagsFieldCallback -> IO Closure-iOFuncsIoSetFlagsFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoSetFlagsFieldCallback wrapped-    where wrapped = iOFuncsIoSetFlagsFieldCallbackWrapper Nothing cb--type IOFuncsIoSetFlagsFieldCallbackC =-    Ptr IOChannel ->-    CUInt ->-    IO CUInt--foreign import ccall "wrapper"-    mkIOFuncsIoSetFlagsFieldCallback :: IOFuncsIoSetFlagsFieldCallbackC -> IO (FunPtr IOFuncsIoSetFlagsFieldCallbackC)--type IOFuncsIoSetFlagsFieldCallback =-    IOChannel ->-    [IOFlags] ->-    IO IOStatus--noIOFuncsIoSetFlagsFieldCallback :: Maybe IOFuncsIoSetFlagsFieldCallback-noIOFuncsIoSetFlagsFieldCallback = Nothing--iOFuncsIoSetFlagsFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (IOFuncsIoSetFlagsFieldCallbackC))) ->-    IOFuncsIoSetFlagsFieldCallback ->-    Ptr IOChannel ->-    CUInt ->-    IO CUInt-iOFuncsIoSetFlagsFieldCallbackWrapper funptrptr _cb channel flags = do-    channel' <- (newBoxed IOChannel) channel-    let flags' = wordToGFlags flags-    result <- _cb  channel' flags'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback IOFuncsIoSeekFieldCallback-iOFuncsIoSeekFieldCallbackClosure :: IOFuncsIoSeekFieldCallback -> IO Closure-iOFuncsIoSeekFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoSeekFieldCallback wrapped-    where wrapped = iOFuncsIoSeekFieldCallbackWrapper Nothing cb--type IOFuncsIoSeekFieldCallbackC =-    Ptr IOChannel ->-    Int64 ->-    CUInt ->-    IO CUInt--foreign import ccall "wrapper"-    mkIOFuncsIoSeekFieldCallback :: IOFuncsIoSeekFieldCallbackC -> IO (FunPtr IOFuncsIoSeekFieldCallbackC)--type IOFuncsIoSeekFieldCallback =-    IOChannel ->-    Int64 ->-    SeekType ->-    IO IOStatus--noIOFuncsIoSeekFieldCallback :: Maybe IOFuncsIoSeekFieldCallback-noIOFuncsIoSeekFieldCallback = Nothing--iOFuncsIoSeekFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (IOFuncsIoSeekFieldCallbackC))) ->-    IOFuncsIoSeekFieldCallback ->-    Ptr IOChannel ->-    Int64 ->-    CUInt ->-    IO CUInt-iOFuncsIoSeekFieldCallbackWrapper funptrptr _cb channel offset type_ = do-    channel' <- (newBoxed IOChannel) channel-    let type_' = (toEnum . fromIntegral) type_-    result <- _cb  channel' offset type_'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback IOFuncsIoReadFieldCallback-iOFuncsIoReadFieldCallbackClosure :: IOFuncsIoReadFieldCallback -> IO Closure-iOFuncsIoReadFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoReadFieldCallback wrapped-    where wrapped = iOFuncsIoReadFieldCallbackWrapper Nothing cb--type IOFuncsIoReadFieldCallbackC =-    Ptr IOChannel ->-    CString ->-    Word64 ->-    Word64 ->-    IO CUInt--foreign import ccall "wrapper"-    mkIOFuncsIoReadFieldCallback :: IOFuncsIoReadFieldCallbackC -> IO (FunPtr IOFuncsIoReadFieldCallbackC)--type IOFuncsIoReadFieldCallback =-    IOChannel ->-    T.Text ->-    Word64 ->-    Word64 ->-    IO IOStatus--noIOFuncsIoReadFieldCallback :: Maybe IOFuncsIoReadFieldCallback-noIOFuncsIoReadFieldCallback = Nothing--iOFuncsIoReadFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (IOFuncsIoReadFieldCallbackC))) ->-    IOFuncsIoReadFieldCallback ->-    Ptr IOChannel ->-    CString ->-    Word64 ->-    Word64 ->-    IO CUInt-iOFuncsIoReadFieldCallbackWrapper funptrptr _cb channel buf count bytes_read = do-    channel' <- (newBoxed IOChannel) channel-    buf' <- cstringToText buf-    result <- _cb  channel' buf' count bytes_read-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback IOFuncsIoGetFlagsFieldCallback-iOFuncsIoGetFlagsFieldCallbackClosure :: IOFuncsIoGetFlagsFieldCallback -> IO Closure-iOFuncsIoGetFlagsFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoGetFlagsFieldCallback wrapped-    where wrapped = iOFuncsIoGetFlagsFieldCallbackWrapper Nothing cb--type IOFuncsIoGetFlagsFieldCallbackC =-    Ptr IOChannel ->-    IO CUInt--foreign import ccall "wrapper"-    mkIOFuncsIoGetFlagsFieldCallback :: IOFuncsIoGetFlagsFieldCallbackC -> IO (FunPtr IOFuncsIoGetFlagsFieldCallbackC)--type IOFuncsIoGetFlagsFieldCallback =-    IOChannel ->-    IO [IOFlags]--noIOFuncsIoGetFlagsFieldCallback :: Maybe IOFuncsIoGetFlagsFieldCallback-noIOFuncsIoGetFlagsFieldCallback = Nothing--iOFuncsIoGetFlagsFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (IOFuncsIoGetFlagsFieldCallbackC))) ->-    IOFuncsIoGetFlagsFieldCallback ->-    Ptr IOChannel ->-    IO CUInt-iOFuncsIoGetFlagsFieldCallbackWrapper funptrptr _cb channel = do-    channel' <- (newBoxed IOChannel) channel-    result <- _cb  channel'-    maybeReleaseFunPtr funptrptr-    let result' = gflagsToWord result-    return result'---- callback IOFuncsIoFreeFieldCallback-iOFuncsIoFreeFieldCallbackClosure :: IOFuncsIoFreeFieldCallback -> IO Closure-iOFuncsIoFreeFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoFreeFieldCallback wrapped-    where wrapped = iOFuncsIoFreeFieldCallbackWrapper Nothing cb--type IOFuncsIoFreeFieldCallbackC =-    Ptr IOChannel ->-    IO ()--foreign import ccall "wrapper"-    mkIOFuncsIoFreeFieldCallback :: IOFuncsIoFreeFieldCallbackC -> IO (FunPtr IOFuncsIoFreeFieldCallbackC)--type IOFuncsIoFreeFieldCallback =-    IOChannel ->-    IO ()--noIOFuncsIoFreeFieldCallback :: Maybe IOFuncsIoFreeFieldCallback-noIOFuncsIoFreeFieldCallback = Nothing--iOFuncsIoFreeFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (IOFuncsIoFreeFieldCallbackC))) ->-    IOFuncsIoFreeFieldCallback ->-    Ptr IOChannel ->-    IO ()-iOFuncsIoFreeFieldCallbackWrapper funptrptr _cb channel = do-    channel' <- (newBoxed IOChannel) channel-    _cb  channel'-    maybeReleaseFunPtr funptrptr---- callback IOFuncsIoCreateWatchFieldCallback-iOFuncsIoCreateWatchFieldCallbackClosure :: IOFuncsIoCreateWatchFieldCallback -> IO Closure-iOFuncsIoCreateWatchFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoCreateWatchFieldCallback wrapped-    where wrapped = iOFuncsIoCreateWatchFieldCallbackWrapper Nothing cb--type IOFuncsIoCreateWatchFieldCallbackC =-    Ptr IOChannel ->-    CUInt ->-    IO (Ptr Source)--foreign import ccall "wrapper"-    mkIOFuncsIoCreateWatchFieldCallback :: IOFuncsIoCreateWatchFieldCallbackC -> IO (FunPtr IOFuncsIoCreateWatchFieldCallbackC)--type IOFuncsIoCreateWatchFieldCallback =-    IOChannel ->-    [IOCondition] ->-    IO Source--noIOFuncsIoCreateWatchFieldCallback :: Maybe IOFuncsIoCreateWatchFieldCallback-noIOFuncsIoCreateWatchFieldCallback = Nothing--iOFuncsIoCreateWatchFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (IOFuncsIoCreateWatchFieldCallbackC))) ->-    IOFuncsIoCreateWatchFieldCallback ->-    Ptr IOChannel ->-    CUInt ->-    IO (Ptr Source)-iOFuncsIoCreateWatchFieldCallbackWrapper funptrptr _cb channel condition = do-    channel' <- (newBoxed IOChannel) channel-    let condition' = wordToGFlags condition-    result <- _cb  channel' condition'-    maybeReleaseFunPtr funptrptr-    result' <- copyBoxed result-    return result'---- callback IOFuncsIoCloseFieldCallback-iOFuncsIoCloseFieldCallbackClosure :: IOFuncsIoCloseFieldCallback -> IO Closure-iOFuncsIoCloseFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoCloseFieldCallback wrapped-    where wrapped = iOFuncsIoCloseFieldCallbackWrapper Nothing cb--type IOFuncsIoCloseFieldCallbackC =-    Ptr IOChannel ->-    IO CUInt--foreign import ccall "wrapper"-    mkIOFuncsIoCloseFieldCallback :: IOFuncsIoCloseFieldCallbackC -> IO (FunPtr IOFuncsIoCloseFieldCallbackC)--type IOFuncsIoCloseFieldCallback =-    IOChannel ->-    IO IOStatus--noIOFuncsIoCloseFieldCallback :: Maybe IOFuncsIoCloseFieldCallback-noIOFuncsIoCloseFieldCallback = Nothing--iOFuncsIoCloseFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (IOFuncsIoCloseFieldCallbackC))) ->-    IOFuncsIoCloseFieldCallback ->-    Ptr IOChannel ->-    IO CUInt-iOFuncsIoCloseFieldCallbackWrapper funptrptr _cb channel = do-    channel' <- (newBoxed IOChannel) channel-    result <- _cb  channel'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback IOFunc-iOFuncClosure :: IOFunc -> IO Closure-iOFuncClosure cb = newCClosure =<< mkIOFunc wrapped-    where wrapped = iOFuncWrapper Nothing cb--type IOFuncC =-    Ptr IOChannel ->-    CUInt ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkIOFunc :: IOFuncC -> IO (FunPtr IOFuncC)--type IOFunc =-    IOChannel ->-    [IOCondition] ->-    Ptr () ->-    IO Bool--noIOFunc :: Maybe IOFunc-noIOFunc = Nothing--iOFuncWrapper ::-    Maybe (Ptr (FunPtr (IOFuncC))) ->-    IOFunc ->-    Ptr IOChannel ->-    CUInt ->-    Ptr () ->-    IO CInt-iOFuncWrapper funptrptr _cb source condition data_ = do-    source' <- (newBoxed IOChannel) source-    let condition' = wordToGFlags condition-    result <- _cb  source' condition' data_-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback HookMarshaller-hookMarshallerClosure :: HookMarshaller -> IO Closure-hookMarshallerClosure cb = newCClosure =<< mkHookMarshaller wrapped-    where wrapped = hookMarshallerWrapper Nothing cb--type HookMarshallerC =-    Ptr Hook ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkHookMarshaller :: HookMarshallerC -> IO (FunPtr HookMarshallerC)--type HookMarshaller =-    Hook ->-    Ptr () ->-    IO ()--noHookMarshaller :: Maybe HookMarshaller-noHookMarshaller = Nothing--hookMarshallerWrapper ::-    Maybe (Ptr (FunPtr (HookMarshallerC))) ->-    HookMarshaller ->-    Ptr Hook ->-    Ptr () ->-    IO ()-hookMarshallerWrapper funptrptr _cb hook marshal_data = do-    hook' <- (newPtr 64 Hook) hook-    _cb  hook' marshal_data-    maybeReleaseFunPtr funptrptr---- callback HookFunc-hookFuncClosure :: HookFunc -> IO Closure-hookFuncClosure cb = newCClosure =<< mkHookFunc wrapped-    where wrapped = hookFuncWrapper Nothing cb--type HookFuncC =-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkHookFunc :: HookFuncC -> IO (FunPtr HookFuncC)--type HookFunc =-    Ptr () ->-    IO ()--noHookFunc :: Maybe HookFunc-noHookFunc = Nothing--hookFuncWrapper ::-    Maybe (Ptr (FunPtr (HookFuncC))) ->-    HookFunc ->-    Ptr () ->-    IO ()-hookFuncWrapper funptrptr _cb data_ = do-    _cb  data_-    maybeReleaseFunPtr funptrptr---- callback HookFindFunc-hookFindFuncClosure :: HookFindFunc -> IO Closure-hookFindFuncClosure cb = newCClosure =<< mkHookFindFunc wrapped-    where wrapped = hookFindFuncWrapper Nothing cb--type HookFindFuncC =-    Ptr Hook ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkHookFindFunc :: HookFindFuncC -> IO (FunPtr HookFindFuncC)--type HookFindFunc =-    Hook ->-    Ptr () ->-    IO Bool--noHookFindFunc :: Maybe HookFindFunc-noHookFindFunc = Nothing--hookFindFuncWrapper ::-    Maybe (Ptr (FunPtr (HookFindFuncC))) ->-    HookFindFunc ->-    Ptr Hook ->-    Ptr () ->-    IO CInt-hookFindFuncWrapper funptrptr _cb hook data_ = do-    hook' <- (newPtr 64 Hook) hook-    result <- _cb  hook' data_-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback HookFinalizeFunc-hookFinalizeFuncClosure :: HookFinalizeFunc -> IO Closure-hookFinalizeFuncClosure cb = newCClosure =<< mkHookFinalizeFunc wrapped-    where wrapped = hookFinalizeFuncWrapper Nothing cb--type HookFinalizeFuncC =-    Ptr HookList ->-    Ptr Hook ->-    IO ()--foreign import ccall "wrapper"-    mkHookFinalizeFunc :: HookFinalizeFuncC -> IO (FunPtr HookFinalizeFuncC)--type HookFinalizeFunc =-    HookList ->-    Hook ->-    IO ()--noHookFinalizeFunc :: Maybe HookFinalizeFunc-noHookFinalizeFunc = Nothing--hookFinalizeFuncWrapper ::-    Maybe (Ptr (FunPtr (HookFinalizeFuncC))) ->-    HookFinalizeFunc ->-    Ptr HookList ->-    Ptr Hook ->-    IO ()-hookFinalizeFuncWrapper funptrptr _cb hook_list hook = do-    hook_list' <- (newPtr 56 HookList) hook_list-    hook' <- (newPtr 64 Hook) hook-    _cb  hook_list' hook'-    maybeReleaseFunPtr funptrptr---- callback HookCompareFunc-hookCompareFuncClosure :: HookCompareFunc -> IO Closure-hookCompareFuncClosure cb = newCClosure =<< mkHookCompareFunc wrapped-    where wrapped = hookCompareFuncWrapper Nothing cb--type HookCompareFuncC =-    Ptr Hook ->-    Ptr Hook ->-    IO Int32--foreign import ccall "wrapper"-    mkHookCompareFunc :: HookCompareFuncC -> IO (FunPtr HookCompareFuncC)--type HookCompareFunc =-    Hook ->-    Hook ->-    IO Int32--noHookCompareFunc :: Maybe HookCompareFunc-noHookCompareFunc = Nothing--hookCompareFuncWrapper ::-    Maybe (Ptr (FunPtr (HookCompareFuncC))) ->-    HookCompareFunc ->-    Ptr Hook ->-    Ptr Hook ->-    IO Int32-hookCompareFuncWrapper funptrptr _cb new_hook sibling = do-    new_hook' <- (newPtr 64 Hook) new_hook-    sibling' <- (newPtr 64 Hook) sibling-    result <- _cb  new_hook' sibling'-    maybeReleaseFunPtr funptrptr-    return result---- callback HookCheckMarshaller-hookCheckMarshallerClosure :: HookCheckMarshaller -> IO Closure-hookCheckMarshallerClosure cb = newCClosure =<< mkHookCheckMarshaller wrapped-    where wrapped = hookCheckMarshallerWrapper Nothing cb--type HookCheckMarshallerC =-    Ptr Hook ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkHookCheckMarshaller :: HookCheckMarshallerC -> IO (FunPtr HookCheckMarshallerC)--type HookCheckMarshaller =-    Hook ->-    Ptr () ->-    IO Bool--noHookCheckMarshaller :: Maybe HookCheckMarshaller-noHookCheckMarshaller = Nothing--hookCheckMarshallerWrapper ::-    Maybe (Ptr (FunPtr (HookCheckMarshallerC))) ->-    HookCheckMarshaller ->-    Ptr Hook ->-    Ptr () ->-    IO CInt-hookCheckMarshallerWrapper funptrptr _cb hook marshal_data = do-    hook' <- (newPtr 64 Hook) hook-    result <- _cb  hook' marshal_data-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback HookCheckFunc-hookCheckFuncClosure :: HookCheckFunc -> IO Closure-hookCheckFuncClosure cb = newCClosure =<< mkHookCheckFunc wrapped-    where wrapped = hookCheckFuncWrapper Nothing cb--type HookCheckFuncC =-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkHookCheckFunc :: HookCheckFuncC -> IO (FunPtr HookCheckFuncC)--type HookCheckFunc =-    Ptr () ->-    IO Bool--noHookCheckFunc :: Maybe HookCheckFunc-noHookCheckFunc = Nothing--hookCheckFuncWrapper ::-    Maybe (Ptr (FunPtr (HookCheckFuncC))) ->-    HookCheckFunc ->-    Ptr () ->-    IO CInt-hookCheckFuncWrapper funptrptr _cb data_ = do-    result <- _cb  data_-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback HashFunc-hashFuncClosure :: HashFunc -> IO Closure-hashFuncClosure cb = newCClosure =<< mkHashFunc wrapped-    where wrapped = hashFuncWrapper Nothing cb--type HashFuncC =-    Ptr () ->-    IO Word32--foreign import ccall "wrapper"-    mkHashFunc :: HashFuncC -> IO (FunPtr HashFuncC)--type HashFunc =-    Ptr () ->-    IO Word32--noHashFunc :: Maybe HashFunc-noHashFunc = Nothing--hashFuncWrapper ::-    Maybe (Ptr (FunPtr (HashFuncC))) ->-    HashFunc ->-    Ptr () ->-    IO Word32-hashFuncWrapper funptrptr _cb key = do-    result <- _cb  key-    maybeReleaseFunPtr funptrptr-    return result---- callback HRFunc-hRFuncClosure :: HRFunc -> IO Closure-hRFuncClosure cb = newCClosure =<< mkHRFunc wrapped-    where wrapped = hRFuncWrapper Nothing cb--type HRFuncC =-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkHRFunc :: HRFuncC -> IO (FunPtr HRFuncC)--type HRFunc =-    Ptr () ->-    Ptr () ->-    IO Bool--noHRFunc :: Maybe HRFunc-noHRFunc = Nothing--hRFuncWrapper ::-    Maybe (Ptr (FunPtr (HRFuncC))) ->-    HRFunc ->-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO CInt-hRFuncWrapper funptrptr _cb key value _ = do-    result <- _cb  key value-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback HFunc-hFuncClosure :: HFunc -> IO Closure-hFuncClosure cb = newCClosure =<< mkHFunc wrapped-    where wrapped = hFuncWrapper Nothing cb--type HFuncC =-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkHFunc :: HFuncC -> IO (FunPtr HFuncC)--type HFunc =-    Ptr () ->-    Ptr () ->-    IO ()--noHFunc :: Maybe HFunc-noHFunc = Nothing--hFuncWrapper ::-    Maybe (Ptr (FunPtr (HFuncC))) ->-    HFunc ->-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO ()-hFuncWrapper funptrptr _cb key value _ = do-    _cb  key value-    maybeReleaseFunPtr funptrptr---- callback Func-funcClosure :: Func -> IO Closure-funcClosure cb = newCClosure =<< mkFunc wrapped-    where wrapped = funcWrapper Nothing cb--type FuncC =-    Ptr () ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkFunc :: FuncC -> IO (FunPtr FuncC)--type Func =-    Ptr () ->-    IO ()--noFunc :: Maybe Func-noFunc = Nothing--funcWrapper ::-    Maybe (Ptr (FunPtr (FuncC))) ->-    Func ->-    Ptr () ->-    Ptr () ->-    IO ()-funcWrapper funptrptr _cb data_ _ = do-    _cb  data_-    maybeReleaseFunPtr funptrptr---- callback FreeFunc-freeFuncClosure :: FreeFunc -> IO Closure-freeFuncClosure cb = newCClosure =<< mkFreeFunc wrapped-    where wrapped = freeFuncWrapper Nothing cb--type FreeFuncC =-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkFreeFunc :: FreeFuncC -> IO (FunPtr FreeFuncC)--type FreeFunc =-    Ptr () ->-    IO ()--noFreeFunc :: Maybe FreeFunc-noFreeFunc = Nothing--freeFuncWrapper ::-    Maybe (Ptr (FunPtr (FreeFuncC))) ->-    FreeFunc ->-    Ptr () ->-    IO ()-freeFuncWrapper funptrptr _cb data_ = do-    _cb  data_-    maybeReleaseFunPtr funptrptr---- callback EqualFunc-equalFuncClosure :: EqualFunc -> IO Closure-equalFuncClosure cb = newCClosure =<< mkEqualFunc wrapped-    where wrapped = equalFuncWrapper Nothing cb--type EqualFuncC =-    Ptr () ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkEqualFunc :: EqualFuncC -> IO (FunPtr EqualFuncC)--type EqualFunc =-    Ptr () ->-    Ptr () ->-    IO Bool--noEqualFunc :: Maybe EqualFunc-noEqualFunc = Nothing--equalFuncWrapper ::-    Maybe (Ptr (FunPtr (EqualFuncC))) ->-    EqualFunc ->-    Ptr () ->-    Ptr () ->-    IO CInt-equalFuncWrapper funptrptr _cb a b = do-    result <- _cb  a b-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback DestroyNotify-destroyNotifyClosure :: DestroyNotify -> IO Closure-destroyNotifyClosure cb = newCClosure =<< mkDestroyNotify wrapped-    where wrapped = destroyNotifyWrapper Nothing cb--type DestroyNotifyC =-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkDestroyNotify :: DestroyNotifyC -> IO (FunPtr DestroyNotifyC)--type DestroyNotify =-    Ptr () ->-    IO ()--noDestroyNotify :: Maybe DestroyNotify-noDestroyNotify = Nothing--destroyNotifyWrapper ::-    Maybe (Ptr (FunPtr (DestroyNotifyC))) ->-    DestroyNotify ->-    Ptr () ->-    IO ()-destroyNotifyWrapper funptrptr _cb data_ = do-    _cb  data_-    maybeReleaseFunPtr funptrptr---- callback DataForeachFunc-dataForeachFuncClosure :: DataForeachFunc -> IO Closure-dataForeachFuncClosure cb = newCClosure =<< mkDataForeachFunc wrapped-    where wrapped = dataForeachFuncWrapper Nothing cb--type DataForeachFuncC =-    Word32 ->-    Ptr () ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkDataForeachFunc :: DataForeachFuncC -> IO (FunPtr DataForeachFuncC)--type DataForeachFunc =-    Word32 ->-    Ptr () ->-    IO ()--noDataForeachFunc :: Maybe DataForeachFunc-noDataForeachFunc = Nothing--dataForeachFuncWrapper ::-    Maybe (Ptr (FunPtr (DataForeachFuncC))) ->-    DataForeachFunc ->-    Word32 ->-    Ptr () ->-    Ptr () ->-    IO ()-dataForeachFuncWrapper funptrptr _cb key_id data_ _ = do-    _cb  key_id data_-    maybeReleaseFunPtr funptrptr---- callback CompareFunc-compareFuncClosure :: CompareFunc -> IO Closure-compareFuncClosure cb = newCClosure =<< mkCompareFunc wrapped-    where wrapped = compareFuncWrapper Nothing cb--type CompareFuncC =-    Ptr () ->-    Ptr () ->-    IO Int32--foreign import ccall "wrapper"-    mkCompareFunc :: CompareFuncC -> IO (FunPtr CompareFuncC)--type CompareFunc =-    Ptr () ->-    Ptr () ->-    IO Int32--noCompareFunc :: Maybe CompareFunc-noCompareFunc = Nothing--compareFuncWrapper ::-    Maybe (Ptr (FunPtr (CompareFuncC))) ->-    CompareFunc ->-    Ptr () ->-    Ptr () ->-    IO Int32-compareFuncWrapper funptrptr _cb a b = do-    result <- _cb  a b-    maybeReleaseFunPtr funptrptr-    return result---- callback CompareDataFunc-compareDataFuncClosure :: CompareDataFunc -> IO Closure-compareDataFuncClosure cb = newCClosure =<< mkCompareDataFunc wrapped-    where wrapped = compareDataFuncWrapper Nothing cb--type CompareDataFuncC =-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO Int32--foreign import ccall "wrapper"-    mkCompareDataFunc :: CompareDataFuncC -> IO (FunPtr CompareDataFuncC)--type CompareDataFunc =-    Ptr () ->-    Ptr () ->-    IO Int32--noCompareDataFunc :: Maybe CompareDataFunc-noCompareDataFunc = Nothing--compareDataFuncWrapper ::-    Maybe (Ptr (FunPtr (CompareDataFuncC))) ->-    CompareDataFunc ->-    Ptr () ->-    Ptr () ->-    Ptr () ->-    IO Int32-compareDataFuncWrapper funptrptr _cb a b _ = do-    result <- _cb  a b-    maybeReleaseFunPtr funptrptr-    return result---- callback ChildWatchFunc-childWatchFuncClosure :: ChildWatchFunc -> IO Closure-childWatchFuncClosure cb = newCClosure =<< mkChildWatchFunc wrapped-    where wrapped = childWatchFuncWrapper Nothing cb--type ChildWatchFuncC =-    Int32 ->-    Int32 ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkChildWatchFunc :: ChildWatchFuncC -> IO (FunPtr ChildWatchFuncC)--type ChildWatchFunc =-    Int32 ->-    Int32 ->-    IO ()--noChildWatchFunc :: Maybe ChildWatchFunc-noChildWatchFunc = Nothing--childWatchFuncWrapper ::-    Maybe (Ptr (FunPtr (ChildWatchFuncC))) ->-    ChildWatchFunc ->-    Int32 ->-    Int32 ->-    Ptr () ->-    IO ()-childWatchFuncWrapper funptrptr _cb pid status _ = do-    _cb  pid status-    maybeReleaseFunPtr funptrptr--
− GI/GLib/Constants.hs 
@@ -1,544 +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.GLib.Constants-    ( -    pattern WIN32_MSG_HANDLE                ,-    pattern VERSION_MIN_REQUIRED            ,-    pattern VA_COPY_AS_ARRAY                ,-    pattern USEC_PER_SEC                    ,-    pattern URI_RESERVED_CHARS_SUBCOMPONENT_DELIMITERS,-    pattern URI_RESERVED_CHARS_GENERIC_DELIMITERS,-    pattern UNICHAR_MAX_DECOMPOSITION_LENGTH,-    pattern TIME_SPAN_SECOND                ,-    pattern TIME_SPAN_MINUTE                ,-    pattern TIME_SPAN_MILLISECOND           ,-    pattern TIME_SPAN_HOUR                  ,-    pattern TIME_SPAN_DAY                   ,-    pattern SYSDEF_MSG_PEEK                 ,-    pattern SYSDEF_MSG_OOB                  ,-    pattern SYSDEF_MSG_DONTROUTE            ,-    pattern SYSDEF_AF_UNIX                  ,-    pattern SYSDEF_AF_INET6                 ,-    pattern SYSDEF_AF_INET                  ,-    pattern STR_DELIMITERS                  ,-    pattern SQRT2                           ,-    pattern SOURCE_REMOVE                   ,-    pattern SOURCE_CONTINUE                 ,-    pattern SIZEOF_VOID_P                   ,-    pattern SIZEOF_SSIZE_T                  ,-    pattern SIZEOF_SIZE_T                   ,-    pattern SIZEOF_LONG                     ,-    pattern SEARCHPATH_SEPARATOR_S          ,-    pattern SEARCHPATH_SEPARATOR            ,-    pattern PRIORITY_LOW                    ,-    pattern PRIORITY_HIGH_IDLE              ,-    pattern PRIORITY_HIGH                   ,-    pattern PRIORITY_DEFAULT_IDLE           ,-    pattern PRIORITY_DEFAULT                ,-    pattern POLLFD_FORMAT                   ,-    pattern PI_4                            ,-    pattern PI_2                            ,-    pattern PI                              ,-    pattern PDP_ENDIAN                      ,-    pattern OPTION_REMAINING                ,-    pattern MODULE_SUFFIX                   ,-    pattern MINOR_VERSION                   ,-    pattern MININT8                         ,-    pattern MININT64                        ,-    pattern MININT32                        ,-    pattern MININT16                        ,-    pattern MICRO_VERSION                   ,-    pattern MAXUINT8                        ,-    pattern MAXUINT64                       ,-    pattern MAXUINT32                       ,-    pattern MAXUINT16                       ,-    pattern MAXINT8                         ,-    pattern MAXINT64                        ,-    pattern MAXINT32                        ,-    pattern MAXINT16                        ,-    pattern MAJOR_VERSION                   ,-    pattern LOG_LEVEL_USER_SHIFT            ,-    pattern LOG_FATAL_MASK                  ,-    pattern LOG_DOMAIN                      ,-    pattern LOG_2_BASE_10                   ,-    pattern LN2                             ,-    pattern LN10                            ,-    pattern LITTLE_ENDIAN                   ,-    pattern KEY_FILE_DESKTOP_TYPE_LINK      ,-    pattern KEY_FILE_DESKTOP_TYPE_DIRECTORY ,-    pattern KEY_FILE_DESKTOP_TYPE_APPLICATION,-    pattern KEY_FILE_DESKTOP_KEY_VERSION    ,-    pattern KEY_FILE_DESKTOP_KEY_URL        ,-    pattern KEY_FILE_DESKTOP_KEY_TYPE       ,-    pattern KEY_FILE_DESKTOP_KEY_TRY_EXEC   ,-    pattern KEY_FILE_DESKTOP_KEY_TERMINAL   ,-    pattern KEY_FILE_DESKTOP_KEY_STARTUP_WM_CLASS,-    pattern KEY_FILE_DESKTOP_KEY_STARTUP_NOTIFY,-    pattern KEY_FILE_DESKTOP_KEY_PATH       ,-    pattern KEY_FILE_DESKTOP_KEY_ONLY_SHOW_IN,-    pattern KEY_FILE_DESKTOP_KEY_NO_DISPLAY ,-    pattern KEY_FILE_DESKTOP_KEY_NOT_SHOW_IN,-    pattern KEY_FILE_DESKTOP_KEY_NAME       ,-    pattern KEY_FILE_DESKTOP_KEY_MIME_TYPE  ,-    pattern KEY_FILE_DESKTOP_KEY_ICON       ,-    pattern KEY_FILE_DESKTOP_KEY_HIDDEN     ,-    pattern KEY_FILE_DESKTOP_KEY_GENERIC_NAME,-    pattern KEY_FILE_DESKTOP_KEY_EXEC       ,-    pattern KEY_FILE_DESKTOP_KEY_DBUS_ACTIVATABLE,-    pattern KEY_FILE_DESKTOP_KEY_COMMENT    ,-    pattern KEY_FILE_DESKTOP_KEY_CATEGORIES ,-    pattern KEY_FILE_DESKTOP_KEY_ACTIONS    ,-    pattern KEY_FILE_DESKTOP_GROUP          ,-    pattern IEEE754_FLOAT_BIAS              ,-    pattern IEEE754_DOUBLE_BIAS             ,-    pattern HOOK_FLAG_USER_SHIFT            ,-    pattern HAVE___INLINE__                 ,-    pattern HAVE___INLINE                   ,-    pattern HAVE_ISO_VARARGS                ,-    pattern HAVE_INLINE                     ,-    pattern HAVE_GROWING_STACK              ,-    pattern HAVE_GNUC_VISIBILITY            ,-    pattern HAVE_GNUC_VARARGS               ,-    pattern HAVE_GINT64                     ,-    pattern GUINTPTR_FORMAT                 ,-    pattern GUINT64_FORMAT                  ,-    pattern GUINT32_FORMAT                  ,-    pattern GUINT16_FORMAT                  ,-    pattern GSSIZE_MODIFIER                 ,-    pattern GSSIZE_FORMAT                   ,-    pattern GSIZE_MODIFIER                  ,-    pattern GSIZE_FORMAT                    ,-    pattern GNUC_PRETTY_FUNCTION            ,-    pattern GNUC_FUNCTION                   ,-    pattern GINTPTR_MODIFIER                ,-    pattern GINTPTR_FORMAT                  ,-    pattern GINT64_MODIFIER                 ,-    pattern GINT64_FORMAT                   ,-    pattern GINT32_MODIFIER                 ,-    pattern GINT32_FORMAT                   ,-    pattern GINT16_MODIFIER                 ,-    pattern GINT16_FORMAT                   ,-    pattern E                               ,-    pattern DIR_SEPARATOR_S                 ,-    pattern DIR_SEPARATOR                   ,-    pattern DATE_BAD_YEAR                   ,-    pattern DATE_BAD_JULIAN                 ,-    pattern DATE_BAD_DAY                    ,-    pattern DATALIST_FLAGS_MASK             ,-    pattern CSET_a_2_z                      ,-    pattern CSET_DIGITS                     ,-    pattern CSET_A_2_Z                      ,-    pattern CAN_INLINE                      ,-    pattern BIG_ENDIAN                      ,-    pattern ASCII_DTOSTR_BUF_SIZE           ,-    pattern ANALYZER_ANALYZING              ,--    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks---pattern WIN32_MSG_HANDLE = 19981206 :: Int32---pattern VERSION_MIN_REQUIRED = 2 :: Int32---pattern VA_COPY_AS_ARRAY = 1 :: Int32---pattern USEC_PER_SEC = 1000000 :: Int32---pattern URI_RESERVED_CHARS_SUBCOMPONENT_DELIMITERS = "!$&'()*+,;=" :: T.Text---pattern URI_RESERVED_CHARS_GENERIC_DELIMITERS = ":/?#[]@" :: T.Text---pattern UNICHAR_MAX_DECOMPOSITION_LENGTH = 18 :: Int32---pattern TIME_SPAN_SECOND = 1000000 :: Int64---pattern TIME_SPAN_MINUTE = 60000000 :: Int64---pattern TIME_SPAN_MILLISECOND = 1000 :: Int64---pattern TIME_SPAN_HOUR = 3600000000 :: Int64---pattern TIME_SPAN_DAY = 86400000000 :: Int64---pattern SYSDEF_MSG_PEEK = 2 :: Int32---pattern SYSDEF_MSG_OOB = 1 :: Int32---pattern SYSDEF_MSG_DONTROUTE = 4 :: Int32---pattern SYSDEF_AF_UNIX = 1 :: Int32---pattern SYSDEF_AF_INET6 = 10 :: Int32---pattern SYSDEF_AF_INET = 2 :: Int32---pattern STR_DELIMITERS = "_-|> <." :: T.Text---pattern SQRT2 = 1.414214 :: Double---pattern SOURCE_REMOVE = False :: Bool---pattern SOURCE_CONTINUE = True :: Bool---pattern SIZEOF_VOID_P = 8 :: Int32---pattern SIZEOF_SSIZE_T = 8 :: Int32---pattern SIZEOF_SIZE_T = 8 :: Int32---pattern SIZEOF_LONG = 8 :: Int32---pattern SEARCHPATH_SEPARATOR_S = ";" :: T.Text---pattern SEARCHPATH_SEPARATOR = 59 :: Int32---pattern PRIORITY_LOW = 300 :: Int32---pattern PRIORITY_HIGH_IDLE = 100 :: Int32---pattern PRIORITY_HIGH = -100 :: Int32---pattern PRIORITY_DEFAULT_IDLE = 200 :: Int32---pattern PRIORITY_DEFAULT = 0 :: Int32---pattern POLLFD_FORMAT = "%#I64x" :: T.Text---pattern PI_4 = 0.785398 :: Double---pattern PI_2 = 1.570796 :: Double---pattern PI = 3.141593 :: Double---pattern PDP_ENDIAN = 3412 :: Int32---pattern OPTION_REMAINING = "" :: T.Text---pattern MODULE_SUFFIX = "so" :: T.Text---pattern MINOR_VERSION = 44 :: Int32---pattern MININT8 = 128 :: Int8---pattern MININT64 = -9223372036854775808 :: Int64---pattern MININT32 = 2147483648 :: Int32---pattern MININT16 = 32768 :: Int16---pattern MICRO_VERSION = 1 :: Int32---pattern MAXUINT8 = 255 :: Word8---pattern MAXUINT64 = 18446744073709551615 :: Word64---pattern MAXUINT32 = 4294967295 :: Word32---pattern MAXUINT16 = 65535 :: Word16---pattern MAXINT8 = 127 :: Int8---pattern MAXINT64 = 9223372036854775807 :: Int64---pattern MAXINT32 = 2147483647 :: Int32---pattern MAXINT16 = 32767 :: Int16---pattern MAJOR_VERSION = 2 :: Int32---pattern LOG_LEVEL_USER_SHIFT = 8 :: Int32---pattern LOG_FATAL_MASK = 0 :: Int32---pattern LOG_DOMAIN = 0 :: Int8---pattern LOG_2_BASE_10 = 0.301030 :: Double---pattern LN2 = 0.693147 :: Double---pattern LN10 = 2.302585 :: Double---pattern LITTLE_ENDIAN = 1234 :: Int32---pattern KEY_FILE_DESKTOP_TYPE_LINK = "Link" :: T.Text---pattern KEY_FILE_DESKTOP_TYPE_DIRECTORY = "Directory" :: T.Text---pattern KEY_FILE_DESKTOP_TYPE_APPLICATION = "Application" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_VERSION = "Version" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_URL = "URL" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_TYPE = "Type" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_TRY_EXEC = "TryExec" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_TERMINAL = "Terminal" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_STARTUP_WM_CLASS = "StartupWMClass" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_STARTUP_NOTIFY = "StartupNotify" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_PATH = "Path" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_ONLY_SHOW_IN = "OnlyShowIn" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_NO_DISPLAY = "NoDisplay" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_NOT_SHOW_IN = "NotShowIn" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_NAME = "Name" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_MIME_TYPE = "MimeType" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_ICON = "Icon" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_HIDDEN = "Hidden" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_GENERIC_NAME = "GenericName" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_EXEC = "Exec" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_DBUS_ACTIVATABLE = "DBusActivatable" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_COMMENT = "Comment" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_CATEGORIES = "Categories" :: T.Text---pattern KEY_FILE_DESKTOP_KEY_ACTIONS = "Actions" :: T.Text---pattern KEY_FILE_DESKTOP_GROUP = "Desktop Entry" :: T.Text---pattern IEEE754_FLOAT_BIAS = 127 :: Int32---pattern IEEE754_DOUBLE_BIAS = 1023 :: Int32---pattern HOOK_FLAG_USER_SHIFT = 4 :: Int32---pattern HAVE___INLINE__ = 1 :: Int32---pattern HAVE___INLINE = 1 :: Int32---pattern HAVE_ISO_VARARGS = 1 :: Int32---pattern HAVE_INLINE = 1 :: Int32---pattern HAVE_GROWING_STACK = 0 :: Int32---pattern HAVE_GNUC_VISIBILITY = 1 :: Int32---pattern HAVE_GNUC_VARARGS = 1 :: Int32---pattern HAVE_GINT64 = 1 :: Int32---pattern GUINTPTR_FORMAT = "lu" :: T.Text---pattern GUINT64_FORMAT = "lu" :: T.Text---pattern GUINT32_FORMAT = "u" :: T.Text---pattern GUINT16_FORMAT = "hu" :: T.Text---pattern GSSIZE_MODIFIER = "l" :: T.Text---pattern GSSIZE_FORMAT = "li" :: T.Text---pattern GSIZE_MODIFIER = "l" :: T.Text---pattern GSIZE_FORMAT = "lu" :: T.Text--{-# DEPRECATED GNUC_PRETTY_FUNCTION ["(Since version 2.16)","Use G_STRFUNC() instead"]#-}-pattern GNUC_PRETTY_FUNCTION = "" :: T.Text--{-# DEPRECATED GNUC_FUNCTION ["(Since version 2.16)","Use G_STRFUNC() instead"]#-}-pattern GNUC_FUNCTION = "" :: T.Text---pattern GINTPTR_MODIFIER = "l" :: T.Text---pattern GINTPTR_FORMAT = "li" :: T.Text---pattern GINT64_MODIFIER = "l" :: T.Text---pattern GINT64_FORMAT = "li" :: T.Text---pattern GINT32_MODIFIER = "" :: T.Text---pattern GINT32_FORMAT = "i" :: T.Text---pattern GINT16_MODIFIER = "h" :: T.Text---pattern GINT16_FORMAT = "hi" :: T.Text---pattern E = 2.718282 :: Double---pattern DIR_SEPARATOR_S = "\\" :: T.Text---pattern DIR_SEPARATOR = 92 :: Int32---pattern DATE_BAD_YEAR = 0 :: Int32---pattern DATE_BAD_JULIAN = 0 :: Int32---pattern DATE_BAD_DAY = 0 :: Int32---pattern DATALIST_FLAGS_MASK = 3 :: Int32---pattern CSET_a_2_z = "abcdefghijklmnopqrstuvwxyz" :: T.Text---pattern CSET_DIGITS = "0123456789" :: T.Text---pattern CSET_A_2_Z = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" :: T.Text---pattern CAN_INLINE = 1 :: Int32---pattern BIG_ENDIAN = 4321 :: Int32---pattern ASCII_DTOSTR_BUF_SIZE = 39 :: Int32---pattern ANALYZER_ANALYZING = 1 :: Int32--
− GI/GLib/Enums.hs 
@@ -1,2151 +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.GLib.Enums-    ( -    catchVariantParseError                  ,-    handleVariantParseError                 ,-    catchThreadError                        ,-    handleThreadError                       ,-    catchSpawnError                         ,-    handleSpawnError                        ,-    catchShellError                         ,-    handleShellError                        ,-    catchRegexError                         ,-    handleRegexError                        ,-    catchOptionError                        ,-    handleOptionError                       ,-    catchMarkupError                        ,-    handleMarkupError                       ,-    catchKeyFileError                       ,-    handleKeyFileError                      ,-    catchIOChannelError                     ,-    handleIOChannelError                    ,-    catchFileError                          ,-    handleFileError                         ,-    catchConvertError                       ,-    handleConvertError                      ,-    catchBookmarkFileError                  ,-    handleBookmarkFileError                 ,---- * Exported types-    VariantParseError(..)                   ,-    VariantClass(..)                        ,-    UserDirectory(..)                       ,-    UnicodeType(..)                         ,-    UnicodeScript(..)                       ,-    UnicodeBreakType(..)                    ,-    TraverseType(..)                        ,-    TokenType(..)                           ,-    TimeType(..)                            ,-    ThreadError(..)                         ,-    TestLogType(..)                         ,-    TestFileType(..)                        ,-    SpawnError(..)                          ,-    SliceConfig(..)                         ,-    ShellError(..)                          ,-    SeekType(..)                            ,-    RegexError(..)                          ,-    OptionError(..)                         ,-    OptionArg(..)                           ,-    OnceStatus(..)                          ,-    NormalizeMode(..)                       ,-    MarkupError(..)                         ,-    KeyFileError(..)                        ,-    IOStatus(..)                            ,-    IOError(..)                             ,-    IOChannelError(..)                      ,-    FileError(..)                           ,-    ErrorType(..)                           ,-    DateWeekday(..)                         ,-    DateMonth(..)                           ,-    DateDMY(..)                             ,-    ConvertError(..)                        ,-    ChecksumType(..)                        ,-    BookmarkFileError(..)                   ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Enum VariantParseError--data VariantParseError = -      VariantParseErrorFailed-    | VariantParseErrorBasicTypeExpected-    | VariantParseErrorCannotInferType-    | VariantParseErrorDefiniteTypeExpected-    | VariantParseErrorInputNotAtEnd-    | VariantParseErrorInvalidCharacter-    | VariantParseErrorInvalidFormatString-    | VariantParseErrorInvalidObjectPath-    | VariantParseErrorInvalidSignature-    | VariantParseErrorInvalidTypeString-    | VariantParseErrorNoCommonType-    | VariantParseErrorNumberOutOfRange-    | VariantParseErrorNumberTooBig-    | VariantParseErrorTypeError-    | VariantParseErrorUnexpectedToken-    | VariantParseErrorUnknownKeyword-    | VariantParseErrorUnterminatedStringConstant-    | VariantParseErrorValueExpected-    | AnotherVariantParseError Int-    deriving (Show, Eq)--instance Enum VariantParseError where-    fromEnum VariantParseErrorFailed = 0-    fromEnum VariantParseErrorBasicTypeExpected = 1-    fromEnum VariantParseErrorCannotInferType = 2-    fromEnum VariantParseErrorDefiniteTypeExpected = 3-    fromEnum VariantParseErrorInputNotAtEnd = 4-    fromEnum VariantParseErrorInvalidCharacter = 5-    fromEnum VariantParseErrorInvalidFormatString = 6-    fromEnum VariantParseErrorInvalidObjectPath = 7-    fromEnum VariantParseErrorInvalidSignature = 8-    fromEnum VariantParseErrorInvalidTypeString = 9-    fromEnum VariantParseErrorNoCommonType = 10-    fromEnum VariantParseErrorNumberOutOfRange = 11-    fromEnum VariantParseErrorNumberTooBig = 12-    fromEnum VariantParseErrorTypeError = 13-    fromEnum VariantParseErrorUnexpectedToken = 14-    fromEnum VariantParseErrorUnknownKeyword = 15-    fromEnum VariantParseErrorUnterminatedStringConstant = 16-    fromEnum VariantParseErrorValueExpected = 17-    fromEnum (AnotherVariantParseError k) = k--    toEnum 0 = VariantParseErrorFailed-    toEnum 1 = VariantParseErrorBasicTypeExpected-    toEnum 2 = VariantParseErrorCannotInferType-    toEnum 3 = VariantParseErrorDefiniteTypeExpected-    toEnum 4 = VariantParseErrorInputNotAtEnd-    toEnum 5 = VariantParseErrorInvalidCharacter-    toEnum 6 = VariantParseErrorInvalidFormatString-    toEnum 7 = VariantParseErrorInvalidObjectPath-    toEnum 8 = VariantParseErrorInvalidSignature-    toEnum 9 = VariantParseErrorInvalidTypeString-    toEnum 10 = VariantParseErrorNoCommonType-    toEnum 11 = VariantParseErrorNumberOutOfRange-    toEnum 12 = VariantParseErrorNumberTooBig-    toEnum 13 = VariantParseErrorTypeError-    toEnum 14 = VariantParseErrorUnexpectedToken-    toEnum 15 = VariantParseErrorUnknownKeyword-    toEnum 16 = VariantParseErrorUnterminatedStringConstant-    toEnum 17 = VariantParseErrorValueExpected-    toEnum k = AnotherVariantParseError k--instance GErrorClass VariantParseError where-    gerrorClassDomain _ = "g-variant-parse-error-quark"--catchVariantParseError ::-    IO a ->-    (VariantParseError -> GErrorMessage -> IO a) ->-    IO a-catchVariantParseError = catchGErrorJustDomain--handleVariantParseError ::-    (VariantParseError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleVariantParseError = handleGErrorJustDomain---- Enum VariantClass--data VariantClass = -      VariantClassBoolean-    | VariantClassByte-    | VariantClassInt16-    | VariantClassUint16-    | VariantClassInt32-    | VariantClassUint32-    | VariantClassInt64-    | VariantClassUint64-    | VariantClassHandle-    | VariantClassDouble-    | VariantClassString-    | VariantClassObjectPath-    | VariantClassSignature-    | VariantClassVariant-    | VariantClassMaybe-    | VariantClassArray-    | VariantClassTuple-    | VariantClassDictEntry-    | AnotherVariantClass Int-    deriving (Show, Eq)--instance Enum VariantClass where-    fromEnum VariantClassBoolean = 98-    fromEnum VariantClassByte = 121-    fromEnum VariantClassInt16 = 110-    fromEnum VariantClassUint16 = 113-    fromEnum VariantClassInt32 = 105-    fromEnum VariantClassUint32 = 117-    fromEnum VariantClassInt64 = 120-    fromEnum VariantClassUint64 = 116-    fromEnum VariantClassHandle = 104-    fromEnum VariantClassDouble = 100-    fromEnum VariantClassString = 115-    fromEnum VariantClassObjectPath = 111-    fromEnum VariantClassSignature = 103-    fromEnum VariantClassVariant = 118-    fromEnum VariantClassMaybe = 109-    fromEnum VariantClassArray = 97-    fromEnum VariantClassTuple = 40-    fromEnum VariantClassDictEntry = 123-    fromEnum (AnotherVariantClass k) = k--    toEnum 40 = VariantClassTuple-    toEnum 97 = VariantClassArray-    toEnum 98 = VariantClassBoolean-    toEnum 100 = VariantClassDouble-    toEnum 103 = VariantClassSignature-    toEnum 104 = VariantClassHandle-    toEnum 105 = VariantClassInt32-    toEnum 109 = VariantClassMaybe-    toEnum 110 = VariantClassInt16-    toEnum 111 = VariantClassObjectPath-    toEnum 113 = VariantClassUint16-    toEnum 115 = VariantClassString-    toEnum 116 = VariantClassUint64-    toEnum 117 = VariantClassUint32-    toEnum 118 = VariantClassVariant-    toEnum 120 = VariantClassInt64-    toEnum 121 = VariantClassByte-    toEnum 123 = VariantClassDictEntry-    toEnum k = AnotherVariantClass k---- Enum UserDirectory--data UserDirectory = -      UserDirectoryDirectoryDesktop-    | UserDirectoryDirectoryDocuments-    | UserDirectoryDirectoryDownload-    | UserDirectoryDirectoryMusic-    | UserDirectoryDirectoryPictures-    | UserDirectoryDirectoryPublicShare-    | UserDirectoryDirectoryTemplates-    | UserDirectoryDirectoryVideos-    | UserDirectoryNDirectories-    | AnotherUserDirectory Int-    deriving (Show, Eq)--instance Enum UserDirectory where-    fromEnum UserDirectoryDirectoryDesktop = 0-    fromEnum UserDirectoryDirectoryDocuments = 1-    fromEnum UserDirectoryDirectoryDownload = 2-    fromEnum UserDirectoryDirectoryMusic = 3-    fromEnum UserDirectoryDirectoryPictures = 4-    fromEnum UserDirectoryDirectoryPublicShare = 5-    fromEnum UserDirectoryDirectoryTemplates = 6-    fromEnum UserDirectoryDirectoryVideos = 7-    fromEnum UserDirectoryNDirectories = 8-    fromEnum (AnotherUserDirectory k) = k--    toEnum 0 = UserDirectoryDirectoryDesktop-    toEnum 1 = UserDirectoryDirectoryDocuments-    toEnum 2 = UserDirectoryDirectoryDownload-    toEnum 3 = UserDirectoryDirectoryMusic-    toEnum 4 = UserDirectoryDirectoryPictures-    toEnum 5 = UserDirectoryDirectoryPublicShare-    toEnum 6 = UserDirectoryDirectoryTemplates-    toEnum 7 = UserDirectoryDirectoryVideos-    toEnum 8 = UserDirectoryNDirectories-    toEnum k = AnotherUserDirectory k---- Enum UnicodeType--data UnicodeType = -      UnicodeTypeControl-    | UnicodeTypeFormat-    | UnicodeTypeUnassigned-    | UnicodeTypePrivateUse-    | UnicodeTypeSurrogate-    | UnicodeTypeLowercaseLetter-    | UnicodeTypeModifierLetter-    | UnicodeTypeOtherLetter-    | UnicodeTypeTitlecaseLetter-    | UnicodeTypeUppercaseLetter-    | UnicodeTypeSpacingMark-    | UnicodeTypeEnclosingMark-    | UnicodeTypeNonSpacingMark-    | UnicodeTypeDecimalNumber-    | UnicodeTypeLetterNumber-    | UnicodeTypeOtherNumber-    | UnicodeTypeConnectPunctuation-    | UnicodeTypeDashPunctuation-    | UnicodeTypeClosePunctuation-    | UnicodeTypeFinalPunctuation-    | UnicodeTypeInitialPunctuation-    | UnicodeTypeOtherPunctuation-    | UnicodeTypeOpenPunctuation-    | UnicodeTypeCurrencySymbol-    | UnicodeTypeModifierSymbol-    | UnicodeTypeMathSymbol-    | UnicodeTypeOtherSymbol-    | UnicodeTypeLineSeparator-    | UnicodeTypeParagraphSeparator-    | UnicodeTypeSpaceSeparator-    | AnotherUnicodeType Int-    deriving (Show, Eq)--instance Enum UnicodeType where-    fromEnum UnicodeTypeControl = 0-    fromEnum UnicodeTypeFormat = 1-    fromEnum UnicodeTypeUnassigned = 2-    fromEnum UnicodeTypePrivateUse = 3-    fromEnum UnicodeTypeSurrogate = 4-    fromEnum UnicodeTypeLowercaseLetter = 5-    fromEnum UnicodeTypeModifierLetter = 6-    fromEnum UnicodeTypeOtherLetter = 7-    fromEnum UnicodeTypeTitlecaseLetter = 8-    fromEnum UnicodeTypeUppercaseLetter = 9-    fromEnum UnicodeTypeSpacingMark = 10-    fromEnum UnicodeTypeEnclosingMark = 11-    fromEnum UnicodeTypeNonSpacingMark = 12-    fromEnum UnicodeTypeDecimalNumber = 13-    fromEnum UnicodeTypeLetterNumber = 14-    fromEnum UnicodeTypeOtherNumber = 15-    fromEnum UnicodeTypeConnectPunctuation = 16-    fromEnum UnicodeTypeDashPunctuation = 17-    fromEnum UnicodeTypeClosePunctuation = 18-    fromEnum UnicodeTypeFinalPunctuation = 19-    fromEnum UnicodeTypeInitialPunctuation = 20-    fromEnum UnicodeTypeOtherPunctuation = 21-    fromEnum UnicodeTypeOpenPunctuation = 22-    fromEnum UnicodeTypeCurrencySymbol = 23-    fromEnum UnicodeTypeModifierSymbol = 24-    fromEnum UnicodeTypeMathSymbol = 25-    fromEnum UnicodeTypeOtherSymbol = 26-    fromEnum UnicodeTypeLineSeparator = 27-    fromEnum UnicodeTypeParagraphSeparator = 28-    fromEnum UnicodeTypeSpaceSeparator = 29-    fromEnum (AnotherUnicodeType k) = k--    toEnum 0 = UnicodeTypeControl-    toEnum 1 = UnicodeTypeFormat-    toEnum 2 = UnicodeTypeUnassigned-    toEnum 3 = UnicodeTypePrivateUse-    toEnum 4 = UnicodeTypeSurrogate-    toEnum 5 = UnicodeTypeLowercaseLetter-    toEnum 6 = UnicodeTypeModifierLetter-    toEnum 7 = UnicodeTypeOtherLetter-    toEnum 8 = UnicodeTypeTitlecaseLetter-    toEnum 9 = UnicodeTypeUppercaseLetter-    toEnum 10 = UnicodeTypeSpacingMark-    toEnum 11 = UnicodeTypeEnclosingMark-    toEnum 12 = UnicodeTypeNonSpacingMark-    toEnum 13 = UnicodeTypeDecimalNumber-    toEnum 14 = UnicodeTypeLetterNumber-    toEnum 15 = UnicodeTypeOtherNumber-    toEnum 16 = UnicodeTypeConnectPunctuation-    toEnum 17 = UnicodeTypeDashPunctuation-    toEnum 18 = UnicodeTypeClosePunctuation-    toEnum 19 = UnicodeTypeFinalPunctuation-    toEnum 20 = UnicodeTypeInitialPunctuation-    toEnum 21 = UnicodeTypeOtherPunctuation-    toEnum 22 = UnicodeTypeOpenPunctuation-    toEnum 23 = UnicodeTypeCurrencySymbol-    toEnum 24 = UnicodeTypeModifierSymbol-    toEnum 25 = UnicodeTypeMathSymbol-    toEnum 26 = UnicodeTypeOtherSymbol-    toEnum 27 = UnicodeTypeLineSeparator-    toEnum 28 = UnicodeTypeParagraphSeparator-    toEnum 29 = UnicodeTypeSpaceSeparator-    toEnum k = AnotherUnicodeType k---- Enum UnicodeScript--data UnicodeScript = -      UnicodeScriptInvalidCode-    | UnicodeScriptCommon-    | UnicodeScriptInherited-    | UnicodeScriptArabic-    | UnicodeScriptArmenian-    | UnicodeScriptBengali-    | UnicodeScriptBopomofo-    | UnicodeScriptCherokee-    | UnicodeScriptCoptic-    | UnicodeScriptCyrillic-    | UnicodeScriptDeseret-    | UnicodeScriptDevanagari-    | UnicodeScriptEthiopic-    | UnicodeScriptGeorgian-    | UnicodeScriptGothic-    | UnicodeScriptGreek-    | UnicodeScriptGujarati-    | UnicodeScriptGurmukhi-    | UnicodeScriptHan-    | UnicodeScriptHangul-    | UnicodeScriptHebrew-    | UnicodeScriptHiragana-    | UnicodeScriptKannada-    | UnicodeScriptKatakana-    | UnicodeScriptKhmer-    | UnicodeScriptLao-    | UnicodeScriptLatin-    | UnicodeScriptMalayalam-    | UnicodeScriptMongolian-    | UnicodeScriptMyanmar-    | UnicodeScriptOgham-    | UnicodeScriptOldItalic-    | UnicodeScriptOriya-    | UnicodeScriptRunic-    | UnicodeScriptSinhala-    | UnicodeScriptSyriac-    | UnicodeScriptTamil-    | UnicodeScriptTelugu-    | UnicodeScriptThaana-    | UnicodeScriptThai-    | UnicodeScriptTibetan-    | UnicodeScriptCanadianAboriginal-    | UnicodeScriptYi-    | UnicodeScriptTagalog-    | UnicodeScriptHanunoo-    | UnicodeScriptBuhid-    | UnicodeScriptTagbanwa-    | UnicodeScriptBraille-    | UnicodeScriptCypriot-    | UnicodeScriptLimbu-    | UnicodeScriptOsmanya-    | UnicodeScriptShavian-    | UnicodeScriptLinearB-    | UnicodeScriptTaiLe-    | UnicodeScriptUgaritic-    | UnicodeScriptNewTaiLue-    | UnicodeScriptBuginese-    | UnicodeScriptGlagolitic-    | UnicodeScriptTifinagh-    | UnicodeScriptSylotiNagri-    | UnicodeScriptOldPersian-    | UnicodeScriptKharoshthi-    | UnicodeScriptUnknown-    | UnicodeScriptBalinese-    | UnicodeScriptCuneiform-    | UnicodeScriptPhoenician-    | UnicodeScriptPhagsPa-    | UnicodeScriptNko-    | UnicodeScriptKayahLi-    | UnicodeScriptLepcha-    | UnicodeScriptRejang-    | UnicodeScriptSundanese-    | UnicodeScriptSaurashtra-    | UnicodeScriptCham-    | UnicodeScriptOlChiki-    | UnicodeScriptVai-    | UnicodeScriptCarian-    | UnicodeScriptLycian-    | UnicodeScriptLydian-    | UnicodeScriptAvestan-    | UnicodeScriptBamum-    | UnicodeScriptEgyptianHieroglyphs-    | UnicodeScriptImperialAramaic-    | UnicodeScriptInscriptionalPahlavi-    | UnicodeScriptInscriptionalParthian-    | UnicodeScriptJavanese-    | UnicodeScriptKaithi-    | UnicodeScriptLisu-    | UnicodeScriptMeeteiMayek-    | UnicodeScriptOldSouthArabian-    | UnicodeScriptOldTurkic-    | UnicodeScriptSamaritan-    | UnicodeScriptTaiTham-    | UnicodeScriptTaiViet-    | UnicodeScriptBatak-    | UnicodeScriptBrahmi-    | UnicodeScriptMandaic-    | UnicodeScriptChakma-    | UnicodeScriptMeroiticCursive-    | UnicodeScriptMeroiticHieroglyphs-    | UnicodeScriptMiao-    | UnicodeScriptSharada-    | UnicodeScriptSoraSompeng-    | UnicodeScriptTakri-    | UnicodeScriptBassaVah-    | UnicodeScriptCaucasianAlbanian-    | UnicodeScriptDuployan-    | UnicodeScriptElbasan-    | UnicodeScriptGrantha-    | UnicodeScriptKhojki-    | UnicodeScriptKhudawadi-    | UnicodeScriptLinearA-    | UnicodeScriptMahajani-    | UnicodeScriptManichaean-    | UnicodeScriptMendeKikakui-    | UnicodeScriptModi-    | UnicodeScriptMro-    | UnicodeScriptNabataean-    | UnicodeScriptOldNorthArabian-    | UnicodeScriptOldPermic-    | UnicodeScriptPahawhHmong-    | UnicodeScriptPalmyrene-    | UnicodeScriptPauCinHau-    | UnicodeScriptPsalterPahlavi-    | UnicodeScriptSiddham-    | UnicodeScriptTirhuta-    | UnicodeScriptWarangCiti-    | AnotherUnicodeScript Int-    deriving (Show, Eq)--instance Enum UnicodeScript where-    fromEnum UnicodeScriptInvalidCode = -1-    fromEnum UnicodeScriptCommon = 0-    fromEnum UnicodeScriptInherited = 1-    fromEnum UnicodeScriptArabic = 2-    fromEnum UnicodeScriptArmenian = 3-    fromEnum UnicodeScriptBengali = 4-    fromEnum UnicodeScriptBopomofo = 5-    fromEnum UnicodeScriptCherokee = 6-    fromEnum UnicodeScriptCoptic = 7-    fromEnum UnicodeScriptCyrillic = 8-    fromEnum UnicodeScriptDeseret = 9-    fromEnum UnicodeScriptDevanagari = 10-    fromEnum UnicodeScriptEthiopic = 11-    fromEnum UnicodeScriptGeorgian = 12-    fromEnum UnicodeScriptGothic = 13-    fromEnum UnicodeScriptGreek = 14-    fromEnum UnicodeScriptGujarati = 15-    fromEnum UnicodeScriptGurmukhi = 16-    fromEnum UnicodeScriptHan = 17-    fromEnum UnicodeScriptHangul = 18-    fromEnum UnicodeScriptHebrew = 19-    fromEnum UnicodeScriptHiragana = 20-    fromEnum UnicodeScriptKannada = 21-    fromEnum UnicodeScriptKatakana = 22-    fromEnum UnicodeScriptKhmer = 23-    fromEnum UnicodeScriptLao = 24-    fromEnum UnicodeScriptLatin = 25-    fromEnum UnicodeScriptMalayalam = 26-    fromEnum UnicodeScriptMongolian = 27-    fromEnum UnicodeScriptMyanmar = 28-    fromEnum UnicodeScriptOgham = 29-    fromEnum UnicodeScriptOldItalic = 30-    fromEnum UnicodeScriptOriya = 31-    fromEnum UnicodeScriptRunic = 32-    fromEnum UnicodeScriptSinhala = 33-    fromEnum UnicodeScriptSyriac = 34-    fromEnum UnicodeScriptTamil = 35-    fromEnum UnicodeScriptTelugu = 36-    fromEnum UnicodeScriptThaana = 37-    fromEnum UnicodeScriptThai = 38-    fromEnum UnicodeScriptTibetan = 39-    fromEnum UnicodeScriptCanadianAboriginal = 40-    fromEnum UnicodeScriptYi = 41-    fromEnum UnicodeScriptTagalog = 42-    fromEnum UnicodeScriptHanunoo = 43-    fromEnum UnicodeScriptBuhid = 44-    fromEnum UnicodeScriptTagbanwa = 45-    fromEnum UnicodeScriptBraille = 46-    fromEnum UnicodeScriptCypriot = 47-    fromEnum UnicodeScriptLimbu = 48-    fromEnum UnicodeScriptOsmanya = 49-    fromEnum UnicodeScriptShavian = 50-    fromEnum UnicodeScriptLinearB = 51-    fromEnum UnicodeScriptTaiLe = 52-    fromEnum UnicodeScriptUgaritic = 53-    fromEnum UnicodeScriptNewTaiLue = 54-    fromEnum UnicodeScriptBuginese = 55-    fromEnum UnicodeScriptGlagolitic = 56-    fromEnum UnicodeScriptTifinagh = 57-    fromEnum UnicodeScriptSylotiNagri = 58-    fromEnum UnicodeScriptOldPersian = 59-    fromEnum UnicodeScriptKharoshthi = 60-    fromEnum UnicodeScriptUnknown = 61-    fromEnum UnicodeScriptBalinese = 62-    fromEnum UnicodeScriptCuneiform = 63-    fromEnum UnicodeScriptPhoenician = 64-    fromEnum UnicodeScriptPhagsPa = 65-    fromEnum UnicodeScriptNko = 66-    fromEnum UnicodeScriptKayahLi = 67-    fromEnum UnicodeScriptLepcha = 68-    fromEnum UnicodeScriptRejang = 69-    fromEnum UnicodeScriptSundanese = 70-    fromEnum UnicodeScriptSaurashtra = 71-    fromEnum UnicodeScriptCham = 72-    fromEnum UnicodeScriptOlChiki = 73-    fromEnum UnicodeScriptVai = 74-    fromEnum UnicodeScriptCarian = 75-    fromEnum UnicodeScriptLycian = 76-    fromEnum UnicodeScriptLydian = 77-    fromEnum UnicodeScriptAvestan = 78-    fromEnum UnicodeScriptBamum = 79-    fromEnum UnicodeScriptEgyptianHieroglyphs = 80-    fromEnum UnicodeScriptImperialAramaic = 81-    fromEnum UnicodeScriptInscriptionalPahlavi = 82-    fromEnum UnicodeScriptInscriptionalParthian = 83-    fromEnum UnicodeScriptJavanese = 84-    fromEnum UnicodeScriptKaithi = 85-    fromEnum UnicodeScriptLisu = 86-    fromEnum UnicodeScriptMeeteiMayek = 87-    fromEnum UnicodeScriptOldSouthArabian = 88-    fromEnum UnicodeScriptOldTurkic = 89-    fromEnum UnicodeScriptSamaritan = 90-    fromEnum UnicodeScriptTaiTham = 91-    fromEnum UnicodeScriptTaiViet = 92-    fromEnum UnicodeScriptBatak = 93-    fromEnum UnicodeScriptBrahmi = 94-    fromEnum UnicodeScriptMandaic = 95-    fromEnum UnicodeScriptChakma = 96-    fromEnum UnicodeScriptMeroiticCursive = 97-    fromEnum UnicodeScriptMeroiticHieroglyphs = 98-    fromEnum UnicodeScriptMiao = 99-    fromEnum UnicodeScriptSharada = 100-    fromEnum UnicodeScriptSoraSompeng = 101-    fromEnum UnicodeScriptTakri = 102-    fromEnum UnicodeScriptBassaVah = 103-    fromEnum UnicodeScriptCaucasianAlbanian = 104-    fromEnum UnicodeScriptDuployan = 105-    fromEnum UnicodeScriptElbasan = 106-    fromEnum UnicodeScriptGrantha = 107-    fromEnum UnicodeScriptKhojki = 108-    fromEnum UnicodeScriptKhudawadi = 109-    fromEnum UnicodeScriptLinearA = 110-    fromEnum UnicodeScriptMahajani = 111-    fromEnum UnicodeScriptManichaean = 112-    fromEnum UnicodeScriptMendeKikakui = 113-    fromEnum UnicodeScriptModi = 114-    fromEnum UnicodeScriptMro = 115-    fromEnum UnicodeScriptNabataean = 116-    fromEnum UnicodeScriptOldNorthArabian = 117-    fromEnum UnicodeScriptOldPermic = 118-    fromEnum UnicodeScriptPahawhHmong = 119-    fromEnum UnicodeScriptPalmyrene = 120-    fromEnum UnicodeScriptPauCinHau = 121-    fromEnum UnicodeScriptPsalterPahlavi = 122-    fromEnum UnicodeScriptSiddham = 123-    fromEnum UnicodeScriptTirhuta = 124-    fromEnum UnicodeScriptWarangCiti = 125-    fromEnum (AnotherUnicodeScript k) = k--    toEnum -1 = UnicodeScriptInvalidCode-    toEnum 0 = UnicodeScriptCommon-    toEnum 1 = UnicodeScriptInherited-    toEnum 2 = UnicodeScriptArabic-    toEnum 3 = UnicodeScriptArmenian-    toEnum 4 = UnicodeScriptBengali-    toEnum 5 = UnicodeScriptBopomofo-    toEnum 6 = UnicodeScriptCherokee-    toEnum 7 = UnicodeScriptCoptic-    toEnum 8 = UnicodeScriptCyrillic-    toEnum 9 = UnicodeScriptDeseret-    toEnum 10 = UnicodeScriptDevanagari-    toEnum 11 = UnicodeScriptEthiopic-    toEnum 12 = UnicodeScriptGeorgian-    toEnum 13 = UnicodeScriptGothic-    toEnum 14 = UnicodeScriptGreek-    toEnum 15 = UnicodeScriptGujarati-    toEnum 16 = UnicodeScriptGurmukhi-    toEnum 17 = UnicodeScriptHan-    toEnum 18 = UnicodeScriptHangul-    toEnum 19 = UnicodeScriptHebrew-    toEnum 20 = UnicodeScriptHiragana-    toEnum 21 = UnicodeScriptKannada-    toEnum 22 = UnicodeScriptKatakana-    toEnum 23 = UnicodeScriptKhmer-    toEnum 24 = UnicodeScriptLao-    toEnum 25 = UnicodeScriptLatin-    toEnum 26 = UnicodeScriptMalayalam-    toEnum 27 = UnicodeScriptMongolian-    toEnum 28 = UnicodeScriptMyanmar-    toEnum 29 = UnicodeScriptOgham-    toEnum 30 = UnicodeScriptOldItalic-    toEnum 31 = UnicodeScriptOriya-    toEnum 32 = UnicodeScriptRunic-    toEnum 33 = UnicodeScriptSinhala-    toEnum 34 = UnicodeScriptSyriac-    toEnum 35 = UnicodeScriptTamil-    toEnum 36 = UnicodeScriptTelugu-    toEnum 37 = UnicodeScriptThaana-    toEnum 38 = UnicodeScriptThai-    toEnum 39 = UnicodeScriptTibetan-    toEnum 40 = UnicodeScriptCanadianAboriginal-    toEnum 41 = UnicodeScriptYi-    toEnum 42 = UnicodeScriptTagalog-    toEnum 43 = UnicodeScriptHanunoo-    toEnum 44 = UnicodeScriptBuhid-    toEnum 45 = UnicodeScriptTagbanwa-    toEnum 46 = UnicodeScriptBraille-    toEnum 47 = UnicodeScriptCypriot-    toEnum 48 = UnicodeScriptLimbu-    toEnum 49 = UnicodeScriptOsmanya-    toEnum 50 = UnicodeScriptShavian-    toEnum 51 = UnicodeScriptLinearB-    toEnum 52 = UnicodeScriptTaiLe-    toEnum 53 = UnicodeScriptUgaritic-    toEnum 54 = UnicodeScriptNewTaiLue-    toEnum 55 = UnicodeScriptBuginese-    toEnum 56 = UnicodeScriptGlagolitic-    toEnum 57 = UnicodeScriptTifinagh-    toEnum 58 = UnicodeScriptSylotiNagri-    toEnum 59 = UnicodeScriptOldPersian-    toEnum 60 = UnicodeScriptKharoshthi-    toEnum 61 = UnicodeScriptUnknown-    toEnum 62 = UnicodeScriptBalinese-    toEnum 63 = UnicodeScriptCuneiform-    toEnum 64 = UnicodeScriptPhoenician-    toEnum 65 = UnicodeScriptPhagsPa-    toEnum 66 = UnicodeScriptNko-    toEnum 67 = UnicodeScriptKayahLi-    toEnum 68 = UnicodeScriptLepcha-    toEnum 69 = UnicodeScriptRejang-    toEnum 70 = UnicodeScriptSundanese-    toEnum 71 = UnicodeScriptSaurashtra-    toEnum 72 = UnicodeScriptCham-    toEnum 73 = UnicodeScriptOlChiki-    toEnum 74 = UnicodeScriptVai-    toEnum 75 = UnicodeScriptCarian-    toEnum 76 = UnicodeScriptLycian-    toEnum 77 = UnicodeScriptLydian-    toEnum 78 = UnicodeScriptAvestan-    toEnum 79 = UnicodeScriptBamum-    toEnum 80 = UnicodeScriptEgyptianHieroglyphs-    toEnum 81 = UnicodeScriptImperialAramaic-    toEnum 82 = UnicodeScriptInscriptionalPahlavi-    toEnum 83 = UnicodeScriptInscriptionalParthian-    toEnum 84 = UnicodeScriptJavanese-    toEnum 85 = UnicodeScriptKaithi-    toEnum 86 = UnicodeScriptLisu-    toEnum 87 = UnicodeScriptMeeteiMayek-    toEnum 88 = UnicodeScriptOldSouthArabian-    toEnum 89 = UnicodeScriptOldTurkic-    toEnum 90 = UnicodeScriptSamaritan-    toEnum 91 = UnicodeScriptTaiTham-    toEnum 92 = UnicodeScriptTaiViet-    toEnum 93 = UnicodeScriptBatak-    toEnum 94 = UnicodeScriptBrahmi-    toEnum 95 = UnicodeScriptMandaic-    toEnum 96 = UnicodeScriptChakma-    toEnum 97 = UnicodeScriptMeroiticCursive-    toEnum 98 = UnicodeScriptMeroiticHieroglyphs-    toEnum 99 = UnicodeScriptMiao-    toEnum 100 = UnicodeScriptSharada-    toEnum 101 = UnicodeScriptSoraSompeng-    toEnum 102 = UnicodeScriptTakri-    toEnum 103 = UnicodeScriptBassaVah-    toEnum 104 = UnicodeScriptCaucasianAlbanian-    toEnum 105 = UnicodeScriptDuployan-    toEnum 106 = UnicodeScriptElbasan-    toEnum 107 = UnicodeScriptGrantha-    toEnum 108 = UnicodeScriptKhojki-    toEnum 109 = UnicodeScriptKhudawadi-    toEnum 110 = UnicodeScriptLinearA-    toEnum 111 = UnicodeScriptMahajani-    toEnum 112 = UnicodeScriptManichaean-    toEnum 113 = UnicodeScriptMendeKikakui-    toEnum 114 = UnicodeScriptModi-    toEnum 115 = UnicodeScriptMro-    toEnum 116 = UnicodeScriptNabataean-    toEnum 117 = UnicodeScriptOldNorthArabian-    toEnum 118 = UnicodeScriptOldPermic-    toEnum 119 = UnicodeScriptPahawhHmong-    toEnum 120 = UnicodeScriptPalmyrene-    toEnum 121 = UnicodeScriptPauCinHau-    toEnum 122 = UnicodeScriptPsalterPahlavi-    toEnum 123 = UnicodeScriptSiddham-    toEnum 124 = UnicodeScriptTirhuta-    toEnum 125 = UnicodeScriptWarangCiti-    toEnum k = AnotherUnicodeScript k---- Enum UnicodeBreakType--data UnicodeBreakType = -      UnicodeBreakTypeMandatory-    | UnicodeBreakTypeCarriageReturn-    | UnicodeBreakTypeLineFeed-    | UnicodeBreakTypeCombiningMark-    | UnicodeBreakTypeSurrogate-    | UnicodeBreakTypeZeroWidthSpace-    | UnicodeBreakTypeInseparable-    | UnicodeBreakTypeNonBreakingGlue-    | UnicodeBreakTypeContingent-    | UnicodeBreakTypeSpace-    | UnicodeBreakTypeAfter-    | UnicodeBreakTypeBefore-    | UnicodeBreakTypeBeforeAndAfter-    | UnicodeBreakTypeHyphen-    | UnicodeBreakTypeNonStarter-    | UnicodeBreakTypeOpenPunctuation-    | UnicodeBreakTypeClosePunctuation-    | UnicodeBreakTypeQuotation-    | UnicodeBreakTypeExclamation-    | UnicodeBreakTypeIdeographic-    | UnicodeBreakTypeNumeric-    | UnicodeBreakTypeInfixSeparator-    | UnicodeBreakTypeSymbol-    | UnicodeBreakTypeAlphabetic-    | UnicodeBreakTypePrefix-    | UnicodeBreakTypePostfix-    | UnicodeBreakTypeComplexContext-    | UnicodeBreakTypeAmbiguous-    | UnicodeBreakTypeUnknown-    | UnicodeBreakTypeNextLine-    | UnicodeBreakTypeWordJoiner-    | UnicodeBreakTypeHangulLJamo-    | UnicodeBreakTypeHangulVJamo-    | UnicodeBreakTypeHangulTJamo-    | UnicodeBreakTypeHangulLvSyllable-    | UnicodeBreakTypeHangulLvtSyllable-    | UnicodeBreakTypeCloseParanthesis-    | UnicodeBreakTypeConditionalJapaneseStarter-    | UnicodeBreakTypeHebrewLetter-    | UnicodeBreakTypeRegionalIndicator-    | AnotherUnicodeBreakType Int-    deriving (Show, Eq)--instance Enum UnicodeBreakType where-    fromEnum UnicodeBreakTypeMandatory = 0-    fromEnum UnicodeBreakTypeCarriageReturn = 1-    fromEnum UnicodeBreakTypeLineFeed = 2-    fromEnum UnicodeBreakTypeCombiningMark = 3-    fromEnum UnicodeBreakTypeSurrogate = 4-    fromEnum UnicodeBreakTypeZeroWidthSpace = 5-    fromEnum UnicodeBreakTypeInseparable = 6-    fromEnum UnicodeBreakTypeNonBreakingGlue = 7-    fromEnum UnicodeBreakTypeContingent = 8-    fromEnum UnicodeBreakTypeSpace = 9-    fromEnum UnicodeBreakTypeAfter = 10-    fromEnum UnicodeBreakTypeBefore = 11-    fromEnum UnicodeBreakTypeBeforeAndAfter = 12-    fromEnum UnicodeBreakTypeHyphen = 13-    fromEnum UnicodeBreakTypeNonStarter = 14-    fromEnum UnicodeBreakTypeOpenPunctuation = 15-    fromEnum UnicodeBreakTypeClosePunctuation = 16-    fromEnum UnicodeBreakTypeQuotation = 17-    fromEnum UnicodeBreakTypeExclamation = 18-    fromEnum UnicodeBreakTypeIdeographic = 19-    fromEnum UnicodeBreakTypeNumeric = 20-    fromEnum UnicodeBreakTypeInfixSeparator = 21-    fromEnum UnicodeBreakTypeSymbol = 22-    fromEnum UnicodeBreakTypeAlphabetic = 23-    fromEnum UnicodeBreakTypePrefix = 24-    fromEnum UnicodeBreakTypePostfix = 25-    fromEnum UnicodeBreakTypeComplexContext = 26-    fromEnum UnicodeBreakTypeAmbiguous = 27-    fromEnum UnicodeBreakTypeUnknown = 28-    fromEnum UnicodeBreakTypeNextLine = 29-    fromEnum UnicodeBreakTypeWordJoiner = 30-    fromEnum UnicodeBreakTypeHangulLJamo = 31-    fromEnum UnicodeBreakTypeHangulVJamo = 32-    fromEnum UnicodeBreakTypeHangulTJamo = 33-    fromEnum UnicodeBreakTypeHangulLvSyllable = 34-    fromEnum UnicodeBreakTypeHangulLvtSyllable = 35-    fromEnum UnicodeBreakTypeCloseParanthesis = 36-    fromEnum UnicodeBreakTypeConditionalJapaneseStarter = 37-    fromEnum UnicodeBreakTypeHebrewLetter = 38-    fromEnum UnicodeBreakTypeRegionalIndicator = 39-    fromEnum (AnotherUnicodeBreakType k) = k--    toEnum 0 = UnicodeBreakTypeMandatory-    toEnum 1 = UnicodeBreakTypeCarriageReturn-    toEnum 2 = UnicodeBreakTypeLineFeed-    toEnum 3 = UnicodeBreakTypeCombiningMark-    toEnum 4 = UnicodeBreakTypeSurrogate-    toEnum 5 = UnicodeBreakTypeZeroWidthSpace-    toEnum 6 = UnicodeBreakTypeInseparable-    toEnum 7 = UnicodeBreakTypeNonBreakingGlue-    toEnum 8 = UnicodeBreakTypeContingent-    toEnum 9 = UnicodeBreakTypeSpace-    toEnum 10 = UnicodeBreakTypeAfter-    toEnum 11 = UnicodeBreakTypeBefore-    toEnum 12 = UnicodeBreakTypeBeforeAndAfter-    toEnum 13 = UnicodeBreakTypeHyphen-    toEnum 14 = UnicodeBreakTypeNonStarter-    toEnum 15 = UnicodeBreakTypeOpenPunctuation-    toEnum 16 = UnicodeBreakTypeClosePunctuation-    toEnum 17 = UnicodeBreakTypeQuotation-    toEnum 18 = UnicodeBreakTypeExclamation-    toEnum 19 = UnicodeBreakTypeIdeographic-    toEnum 20 = UnicodeBreakTypeNumeric-    toEnum 21 = UnicodeBreakTypeInfixSeparator-    toEnum 22 = UnicodeBreakTypeSymbol-    toEnum 23 = UnicodeBreakTypeAlphabetic-    toEnum 24 = UnicodeBreakTypePrefix-    toEnum 25 = UnicodeBreakTypePostfix-    toEnum 26 = UnicodeBreakTypeComplexContext-    toEnum 27 = UnicodeBreakTypeAmbiguous-    toEnum 28 = UnicodeBreakTypeUnknown-    toEnum 29 = UnicodeBreakTypeNextLine-    toEnum 30 = UnicodeBreakTypeWordJoiner-    toEnum 31 = UnicodeBreakTypeHangulLJamo-    toEnum 32 = UnicodeBreakTypeHangulVJamo-    toEnum 33 = UnicodeBreakTypeHangulTJamo-    toEnum 34 = UnicodeBreakTypeHangulLvSyllable-    toEnum 35 = UnicodeBreakTypeHangulLvtSyllable-    toEnum 36 = UnicodeBreakTypeCloseParanthesis-    toEnum 37 = UnicodeBreakTypeConditionalJapaneseStarter-    toEnum 38 = UnicodeBreakTypeHebrewLetter-    toEnum 39 = UnicodeBreakTypeRegionalIndicator-    toEnum k = AnotherUnicodeBreakType k---- Enum TraverseType--data TraverseType = -      TraverseTypeInOrder-    | TraverseTypePreOrder-    | TraverseTypePostOrder-    | TraverseTypeLevelOrder-    | AnotherTraverseType Int-    deriving (Show, Eq)--instance Enum TraverseType where-    fromEnum TraverseTypeInOrder = 0-    fromEnum TraverseTypePreOrder = 1-    fromEnum TraverseTypePostOrder = 2-    fromEnum TraverseTypeLevelOrder = 3-    fromEnum (AnotherTraverseType k) = k--    toEnum 0 = TraverseTypeInOrder-    toEnum 1 = TraverseTypePreOrder-    toEnum 2 = TraverseTypePostOrder-    toEnum 3 = TraverseTypeLevelOrder-    toEnum k = AnotherTraverseType k---- Enum TokenType--data TokenType = -      TokenTypeEof-    | TokenTypeLeftParen-    | TokenTypeRightParen-    | TokenTypeLeftCurly-    | TokenTypeRightCurly-    | TokenTypeLeftBrace-    | TokenTypeRightBrace-    | TokenTypeEqualSign-    | TokenTypeComma-    | TokenTypeNone-    | TokenTypeError-    | TokenTypeChar-    | TokenTypeBinary-    | TokenTypeOctal-    | TokenTypeInt-    | TokenTypeHex-    | TokenTypeFloat-    | TokenTypeString-    | TokenTypeSymbol-    | TokenTypeIdentifier-    | TokenTypeIdentifierNull-    | TokenTypeCommentSingle-    | TokenTypeCommentMulti-    | AnotherTokenType Int-    deriving (Show, Eq)--instance Enum TokenType where-    fromEnum TokenTypeEof = 0-    fromEnum TokenTypeLeftParen = 40-    fromEnum TokenTypeRightParen = 41-    fromEnum TokenTypeLeftCurly = 123-    fromEnum TokenTypeRightCurly = 125-    fromEnum TokenTypeLeftBrace = 91-    fromEnum TokenTypeRightBrace = 93-    fromEnum TokenTypeEqualSign = 61-    fromEnum TokenTypeComma = 44-    fromEnum TokenTypeNone = 256-    fromEnum TokenTypeError = 257-    fromEnum TokenTypeChar = 258-    fromEnum TokenTypeBinary = 259-    fromEnum TokenTypeOctal = 260-    fromEnum TokenTypeInt = 261-    fromEnum TokenTypeHex = 262-    fromEnum TokenTypeFloat = 263-    fromEnum TokenTypeString = 264-    fromEnum TokenTypeSymbol = 265-    fromEnum TokenTypeIdentifier = 266-    fromEnum TokenTypeIdentifierNull = 267-    fromEnum TokenTypeCommentSingle = 268-    fromEnum TokenTypeCommentMulti = 269-    fromEnum (AnotherTokenType k) = k--    toEnum 0 = TokenTypeEof-    toEnum 40 = TokenTypeLeftParen-    toEnum 41 = TokenTypeRightParen-    toEnum 44 = TokenTypeComma-    toEnum 61 = TokenTypeEqualSign-    toEnum 91 = TokenTypeLeftBrace-    toEnum 93 = TokenTypeRightBrace-    toEnum 123 = TokenTypeLeftCurly-    toEnum 125 = TokenTypeRightCurly-    toEnum 256 = TokenTypeNone-    toEnum 257 = TokenTypeError-    toEnum 258 = TokenTypeChar-    toEnum 259 = TokenTypeBinary-    toEnum 260 = TokenTypeOctal-    toEnum 261 = TokenTypeInt-    toEnum 262 = TokenTypeHex-    toEnum 263 = TokenTypeFloat-    toEnum 264 = TokenTypeString-    toEnum 265 = TokenTypeSymbol-    toEnum 266 = TokenTypeIdentifier-    toEnum 267 = TokenTypeIdentifierNull-    toEnum 268 = TokenTypeCommentSingle-    toEnum 269 = TokenTypeCommentMulti-    toEnum k = AnotherTokenType k---- Enum TimeType--data TimeType = -      TimeTypeStandard-    | TimeTypeDaylight-    | TimeTypeUniversal-    | AnotherTimeType Int-    deriving (Show, Eq)--instance Enum TimeType where-    fromEnum TimeTypeStandard = 0-    fromEnum TimeTypeDaylight = 1-    fromEnum TimeTypeUniversal = 2-    fromEnum (AnotherTimeType k) = k--    toEnum 0 = TimeTypeStandard-    toEnum 1 = TimeTypeDaylight-    toEnum 2 = TimeTypeUniversal-    toEnum k = AnotherTimeType k---- Enum ThreadError--data ThreadError = -      ThreadErrorThreadErrorAgain-    | AnotherThreadError Int-    deriving (Show, Eq)--instance Enum ThreadError where-    fromEnum ThreadErrorThreadErrorAgain = 0-    fromEnum (AnotherThreadError k) = k--    toEnum 0 = ThreadErrorThreadErrorAgain-    toEnum k = AnotherThreadError k--instance GErrorClass ThreadError where-    gerrorClassDomain _ = "g_thread_error"--catchThreadError ::-    IO a ->-    (ThreadError -> GErrorMessage -> IO a) ->-    IO a-catchThreadError = catchGErrorJustDomain--handleThreadError ::-    (ThreadError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleThreadError = handleGErrorJustDomain---- Enum TestLogType--data TestLogType = -      TestLogTypeNone-    | TestLogTypeError-    | TestLogTypeStartBinary-    | TestLogTypeListCase-    | TestLogTypeSkipCase-    | TestLogTypeStartCase-    | TestLogTypeStopCase-    | TestLogTypeMinResult-    | TestLogTypeMaxResult-    | TestLogTypeMessage-    | TestLogTypeStartSuite-    | TestLogTypeStopSuite-    | AnotherTestLogType Int-    deriving (Show, Eq)--instance Enum TestLogType where-    fromEnum TestLogTypeNone = 0-    fromEnum TestLogTypeError = 1-    fromEnum TestLogTypeStartBinary = 2-    fromEnum TestLogTypeListCase = 3-    fromEnum TestLogTypeSkipCase = 4-    fromEnum TestLogTypeStartCase = 5-    fromEnum TestLogTypeStopCase = 6-    fromEnum TestLogTypeMinResult = 7-    fromEnum TestLogTypeMaxResult = 8-    fromEnum TestLogTypeMessage = 9-    fromEnum TestLogTypeStartSuite = 10-    fromEnum TestLogTypeStopSuite = 11-    fromEnum (AnotherTestLogType k) = k--    toEnum 0 = TestLogTypeNone-    toEnum 1 = TestLogTypeError-    toEnum 2 = TestLogTypeStartBinary-    toEnum 3 = TestLogTypeListCase-    toEnum 4 = TestLogTypeSkipCase-    toEnum 5 = TestLogTypeStartCase-    toEnum 6 = TestLogTypeStopCase-    toEnum 7 = TestLogTypeMinResult-    toEnum 8 = TestLogTypeMaxResult-    toEnum 9 = TestLogTypeMessage-    toEnum 10 = TestLogTypeStartSuite-    toEnum 11 = TestLogTypeStopSuite-    toEnum k = AnotherTestLogType k---- Enum TestFileType--data TestFileType = -      TestFileTypeDist-    | TestFileTypeBuilt-    | AnotherTestFileType Int-    deriving (Show, Eq)--instance Enum TestFileType where-    fromEnum TestFileTypeDist = 0-    fromEnum TestFileTypeBuilt = 1-    fromEnum (AnotherTestFileType k) = k--    toEnum 0 = TestFileTypeDist-    toEnum 1 = TestFileTypeBuilt-    toEnum k = AnotherTestFileType k---- Enum SpawnError--data SpawnError = -      SpawnErrorFork-    | SpawnErrorRead-    | SpawnErrorChdir-    | SpawnErrorAcces-    | SpawnErrorPerm-    | SpawnErrorTooBig-    | SpawnError2big-    | SpawnErrorNoexec-    | SpawnErrorNametoolong-    | SpawnErrorNoent-    | SpawnErrorNomem-    | SpawnErrorNotdir-    | SpawnErrorLoop-    | SpawnErrorTxtbusy-    | SpawnErrorIo-    | SpawnErrorNfile-    | SpawnErrorMfile-    | SpawnErrorInval-    | SpawnErrorIsdir-    | SpawnErrorLibbad-    | SpawnErrorFailed-    | AnotherSpawnError Int-    deriving (Show, Eq)--instance Enum SpawnError where-    fromEnum SpawnErrorFork = 0-    fromEnum SpawnErrorRead = 1-    fromEnum SpawnErrorChdir = 2-    fromEnum SpawnErrorAcces = 3-    fromEnum SpawnErrorPerm = 4-    fromEnum SpawnErrorTooBig = 5-    fromEnum SpawnError2big = 5-    fromEnum SpawnErrorNoexec = 6-    fromEnum SpawnErrorNametoolong = 7-    fromEnum SpawnErrorNoent = 8-    fromEnum SpawnErrorNomem = 9-    fromEnum SpawnErrorNotdir = 10-    fromEnum SpawnErrorLoop = 11-    fromEnum SpawnErrorTxtbusy = 12-    fromEnum SpawnErrorIo = 13-    fromEnum SpawnErrorNfile = 14-    fromEnum SpawnErrorMfile = 15-    fromEnum SpawnErrorInval = 16-    fromEnum SpawnErrorIsdir = 17-    fromEnum SpawnErrorLibbad = 18-    fromEnum SpawnErrorFailed = 19-    fromEnum (AnotherSpawnError k) = k--    toEnum 0 = SpawnErrorFork-    toEnum 1 = SpawnErrorRead-    toEnum 2 = SpawnErrorChdir-    toEnum 3 = SpawnErrorAcces-    toEnum 4 = SpawnErrorPerm-    toEnum 5 = SpawnErrorTooBig-    toEnum 6 = SpawnErrorNoexec-    toEnum 7 = SpawnErrorNametoolong-    toEnum 8 = SpawnErrorNoent-    toEnum 9 = SpawnErrorNomem-    toEnum 10 = SpawnErrorNotdir-    toEnum 11 = SpawnErrorLoop-    toEnum 12 = SpawnErrorTxtbusy-    toEnum 13 = SpawnErrorIo-    toEnum 14 = SpawnErrorNfile-    toEnum 15 = SpawnErrorMfile-    toEnum 16 = SpawnErrorInval-    toEnum 17 = SpawnErrorIsdir-    toEnum 18 = SpawnErrorLibbad-    toEnum 19 = SpawnErrorFailed-    toEnum k = AnotherSpawnError k--instance GErrorClass SpawnError where-    gerrorClassDomain _ = "g-exec-error-quark"--catchSpawnError ::-    IO a ->-    (SpawnError -> GErrorMessage -> IO a) ->-    IO a-catchSpawnError = catchGErrorJustDomain--handleSpawnError ::-    (SpawnError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleSpawnError = handleGErrorJustDomain---- Enum SliceConfig--data SliceConfig = -      SliceConfigAlwaysMalloc-    | SliceConfigBypassMagazines-    | SliceConfigWorkingSetMsecs-    | SliceConfigColorIncrement-    | SliceConfigChunkSizes-    | SliceConfigContentionCounter-    | AnotherSliceConfig Int-    deriving (Show, Eq)--instance Enum SliceConfig where-    fromEnum SliceConfigAlwaysMalloc = 1-    fromEnum SliceConfigBypassMagazines = 2-    fromEnum SliceConfigWorkingSetMsecs = 3-    fromEnum SliceConfigColorIncrement = 4-    fromEnum SliceConfigChunkSizes = 5-    fromEnum SliceConfigContentionCounter = 6-    fromEnum (AnotherSliceConfig k) = k--    toEnum 1 = SliceConfigAlwaysMalloc-    toEnum 2 = SliceConfigBypassMagazines-    toEnum 3 = SliceConfigWorkingSetMsecs-    toEnum 4 = SliceConfigColorIncrement-    toEnum 5 = SliceConfigChunkSizes-    toEnum 6 = SliceConfigContentionCounter-    toEnum k = AnotherSliceConfig k---- Enum ShellError--data ShellError = -      ShellErrorBadQuoting-    | ShellErrorEmptyString-    | ShellErrorFailed-    | AnotherShellError Int-    deriving (Show, Eq)--instance Enum ShellError where-    fromEnum ShellErrorBadQuoting = 0-    fromEnum ShellErrorEmptyString = 1-    fromEnum ShellErrorFailed = 2-    fromEnum (AnotherShellError k) = k--    toEnum 0 = ShellErrorBadQuoting-    toEnum 1 = ShellErrorEmptyString-    toEnum 2 = ShellErrorFailed-    toEnum k = AnotherShellError k--instance GErrorClass ShellError where-    gerrorClassDomain _ = "g-shell-error-quark"--catchShellError ::-    IO a ->-    (ShellError -> GErrorMessage -> IO a) ->-    IO a-catchShellError = catchGErrorJustDomain--handleShellError ::-    (ShellError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleShellError = handleGErrorJustDomain---- Enum SeekType--data SeekType = -      SeekTypeCur-    | SeekTypeSet-    | SeekTypeEnd-    | AnotherSeekType Int-    deriving (Show, Eq)--instance Enum SeekType where-    fromEnum SeekTypeCur = 0-    fromEnum SeekTypeSet = 1-    fromEnum SeekTypeEnd = 2-    fromEnum (AnotherSeekType k) = k--    toEnum 0 = SeekTypeCur-    toEnum 1 = SeekTypeSet-    toEnum 2 = SeekTypeEnd-    toEnum k = AnotherSeekType k---- Enum RegexError--data RegexError = -      RegexErrorCompile-    | RegexErrorOptimize-    | RegexErrorReplace-    | RegexErrorMatch-    | RegexErrorInternal-    | RegexErrorStrayBackslash-    | RegexErrorMissingControlChar-    | RegexErrorUnrecognizedEscape-    | RegexErrorQuantifiersOutOfOrder-    | RegexErrorQuantifierTooBig-    | RegexErrorUnterminatedCharacterClass-    | RegexErrorInvalidEscapeInCharacterClass-    | RegexErrorRangeOutOfOrder-    | RegexErrorNothingToRepeat-    | RegexErrorUnrecognizedCharacter-    | RegexErrorPosixNamedClassOutsideClass-    | RegexErrorUnmatchedParenthesis-    | RegexErrorInexistentSubpatternReference-    | RegexErrorUnterminatedComment-    | RegexErrorExpressionTooLarge-    | RegexErrorMemoryError-    | RegexErrorVariableLengthLookbehind-    | RegexErrorMalformedCondition-    | RegexErrorTooManyConditionalBranches-    | RegexErrorAssertionExpected-    | RegexErrorUnknownPosixClassName-    | RegexErrorPosixCollatingElementsNotSupported-    | RegexErrorHexCodeTooLarge-    | RegexErrorInvalidCondition-    | RegexErrorSingleByteMatchInLookbehind-    | RegexErrorInfiniteLoop-    | RegexErrorMissingSubpatternNameTerminator-    | RegexErrorDuplicateSubpatternName-    | RegexErrorMalformedProperty-    | RegexErrorUnknownProperty-    | RegexErrorSubpatternNameTooLong-    | RegexErrorTooManySubpatterns-    | RegexErrorInvalidOctalValue-    | RegexErrorTooManyBranchesInDefine-    | RegexErrorDefineRepetion-    | RegexErrorInconsistentNewlineOptions-    | RegexErrorMissingBackReference-    | RegexErrorInvalidRelativeReference-    | RegexErrorBacktrackingControlVerbArgumentForbidden-    | RegexErrorUnknownBacktrackingControlVerb-    | RegexErrorNumberTooBig-    | RegexErrorMissingSubpatternName-    | RegexErrorMissingDigit-    | RegexErrorInvalidDataCharacter-    | RegexErrorExtraSubpatternName-    | RegexErrorBacktrackingControlVerbArgumentRequired-    | RegexErrorInvalidControlChar-    | RegexErrorMissingName-    | RegexErrorNotSupportedInClass-    | RegexErrorTooManyForwardReferences-    | RegexErrorNameTooLong-    | RegexErrorCharacterValueTooLarge-    | AnotherRegexError Int-    deriving (Show, Eq)--instance Enum RegexError where-    fromEnum RegexErrorCompile = 0-    fromEnum RegexErrorOptimize = 1-    fromEnum RegexErrorReplace = 2-    fromEnum RegexErrorMatch = 3-    fromEnum RegexErrorInternal = 4-    fromEnum RegexErrorStrayBackslash = 101-    fromEnum RegexErrorMissingControlChar = 102-    fromEnum RegexErrorUnrecognizedEscape = 103-    fromEnum RegexErrorQuantifiersOutOfOrder = 104-    fromEnum RegexErrorQuantifierTooBig = 105-    fromEnum RegexErrorUnterminatedCharacterClass = 106-    fromEnum RegexErrorInvalidEscapeInCharacterClass = 107-    fromEnum RegexErrorRangeOutOfOrder = 108-    fromEnum RegexErrorNothingToRepeat = 109-    fromEnum RegexErrorUnrecognizedCharacter = 112-    fromEnum RegexErrorPosixNamedClassOutsideClass = 113-    fromEnum RegexErrorUnmatchedParenthesis = 114-    fromEnum RegexErrorInexistentSubpatternReference = 115-    fromEnum RegexErrorUnterminatedComment = 118-    fromEnum RegexErrorExpressionTooLarge = 120-    fromEnum RegexErrorMemoryError = 121-    fromEnum RegexErrorVariableLengthLookbehind = 125-    fromEnum RegexErrorMalformedCondition = 126-    fromEnum RegexErrorTooManyConditionalBranches = 127-    fromEnum RegexErrorAssertionExpected = 128-    fromEnum RegexErrorUnknownPosixClassName = 130-    fromEnum RegexErrorPosixCollatingElementsNotSupported = 131-    fromEnum RegexErrorHexCodeTooLarge = 134-    fromEnum RegexErrorInvalidCondition = 135-    fromEnum RegexErrorSingleByteMatchInLookbehind = 136-    fromEnum RegexErrorInfiniteLoop = 140-    fromEnum RegexErrorMissingSubpatternNameTerminator = 142-    fromEnum RegexErrorDuplicateSubpatternName = 143-    fromEnum RegexErrorMalformedProperty = 146-    fromEnum RegexErrorUnknownProperty = 147-    fromEnum RegexErrorSubpatternNameTooLong = 148-    fromEnum RegexErrorTooManySubpatterns = 149-    fromEnum RegexErrorInvalidOctalValue = 151-    fromEnum RegexErrorTooManyBranchesInDefine = 154-    fromEnum RegexErrorDefineRepetion = 155-    fromEnum RegexErrorInconsistentNewlineOptions = 156-    fromEnum RegexErrorMissingBackReference = 157-    fromEnum RegexErrorInvalidRelativeReference = 158-    fromEnum RegexErrorBacktrackingControlVerbArgumentForbidden = 159-    fromEnum RegexErrorUnknownBacktrackingControlVerb = 160-    fromEnum RegexErrorNumberTooBig = 161-    fromEnum RegexErrorMissingSubpatternName = 162-    fromEnum RegexErrorMissingDigit = 163-    fromEnum RegexErrorInvalidDataCharacter = 164-    fromEnum RegexErrorExtraSubpatternName = 165-    fromEnum RegexErrorBacktrackingControlVerbArgumentRequired = 166-    fromEnum RegexErrorInvalidControlChar = 168-    fromEnum RegexErrorMissingName = 169-    fromEnum RegexErrorNotSupportedInClass = 171-    fromEnum RegexErrorTooManyForwardReferences = 172-    fromEnum RegexErrorNameTooLong = 175-    fromEnum RegexErrorCharacterValueTooLarge = 176-    fromEnum (AnotherRegexError k) = k--    toEnum 0 = RegexErrorCompile-    toEnum 1 = RegexErrorOptimize-    toEnum 2 = RegexErrorReplace-    toEnum 3 = RegexErrorMatch-    toEnum 4 = RegexErrorInternal-    toEnum 101 = RegexErrorStrayBackslash-    toEnum 102 = RegexErrorMissingControlChar-    toEnum 103 = RegexErrorUnrecognizedEscape-    toEnum 104 = RegexErrorQuantifiersOutOfOrder-    toEnum 105 = RegexErrorQuantifierTooBig-    toEnum 106 = RegexErrorUnterminatedCharacterClass-    toEnum 107 = RegexErrorInvalidEscapeInCharacterClass-    toEnum 108 = RegexErrorRangeOutOfOrder-    toEnum 109 = RegexErrorNothingToRepeat-    toEnum 112 = RegexErrorUnrecognizedCharacter-    toEnum 113 = RegexErrorPosixNamedClassOutsideClass-    toEnum 114 = RegexErrorUnmatchedParenthesis-    toEnum 115 = RegexErrorInexistentSubpatternReference-    toEnum 118 = RegexErrorUnterminatedComment-    toEnum 120 = RegexErrorExpressionTooLarge-    toEnum 121 = RegexErrorMemoryError-    toEnum 125 = RegexErrorVariableLengthLookbehind-    toEnum 126 = RegexErrorMalformedCondition-    toEnum 127 = RegexErrorTooManyConditionalBranches-    toEnum 128 = RegexErrorAssertionExpected-    toEnum 130 = RegexErrorUnknownPosixClassName-    toEnum 131 = RegexErrorPosixCollatingElementsNotSupported-    toEnum 134 = RegexErrorHexCodeTooLarge-    toEnum 135 = RegexErrorInvalidCondition-    toEnum 136 = RegexErrorSingleByteMatchInLookbehind-    toEnum 140 = RegexErrorInfiniteLoop-    toEnum 142 = RegexErrorMissingSubpatternNameTerminator-    toEnum 143 = RegexErrorDuplicateSubpatternName-    toEnum 146 = RegexErrorMalformedProperty-    toEnum 147 = RegexErrorUnknownProperty-    toEnum 148 = RegexErrorSubpatternNameTooLong-    toEnum 149 = RegexErrorTooManySubpatterns-    toEnum 151 = RegexErrorInvalidOctalValue-    toEnum 154 = RegexErrorTooManyBranchesInDefine-    toEnum 155 = RegexErrorDefineRepetion-    toEnum 156 = RegexErrorInconsistentNewlineOptions-    toEnum 157 = RegexErrorMissingBackReference-    toEnum 158 = RegexErrorInvalidRelativeReference-    toEnum 159 = RegexErrorBacktrackingControlVerbArgumentForbidden-    toEnum 160 = RegexErrorUnknownBacktrackingControlVerb-    toEnum 161 = RegexErrorNumberTooBig-    toEnum 162 = RegexErrorMissingSubpatternName-    toEnum 163 = RegexErrorMissingDigit-    toEnum 164 = RegexErrorInvalidDataCharacter-    toEnum 165 = RegexErrorExtraSubpatternName-    toEnum 166 = RegexErrorBacktrackingControlVerbArgumentRequired-    toEnum 168 = RegexErrorInvalidControlChar-    toEnum 169 = RegexErrorMissingName-    toEnum 171 = RegexErrorNotSupportedInClass-    toEnum 172 = RegexErrorTooManyForwardReferences-    toEnum 175 = RegexErrorNameTooLong-    toEnum 176 = RegexErrorCharacterValueTooLarge-    toEnum k = AnotherRegexError k--instance GErrorClass RegexError where-    gerrorClassDomain _ = "g-regex-error-quark"--catchRegexError ::-    IO a ->-    (RegexError -> GErrorMessage -> IO a) ->-    IO a-catchRegexError = catchGErrorJustDomain--handleRegexError ::-    (RegexError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleRegexError = handleGErrorJustDomain---- Enum OptionError--data OptionError = -      OptionErrorUnknownOption-    | OptionErrorBadValue-    | OptionErrorFailed-    | AnotherOptionError Int-    deriving (Show, Eq)--instance Enum OptionError where-    fromEnum OptionErrorUnknownOption = 0-    fromEnum OptionErrorBadValue = 1-    fromEnum OptionErrorFailed = 2-    fromEnum (AnotherOptionError k) = k--    toEnum 0 = OptionErrorUnknownOption-    toEnum 1 = OptionErrorBadValue-    toEnum 2 = OptionErrorFailed-    toEnum k = AnotherOptionError k--instance GErrorClass OptionError where-    gerrorClassDomain _ = "g-option-context-error-quark"--catchOptionError ::-    IO a ->-    (OptionError -> GErrorMessage -> IO a) ->-    IO a-catchOptionError = catchGErrorJustDomain--handleOptionError ::-    (OptionError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleOptionError = handleGErrorJustDomain---- Enum OptionArg--data OptionArg = -      OptionArgNone-    | OptionArgString-    | OptionArgInt-    | OptionArgCallback-    | OptionArgFilename-    | OptionArgStringArray-    | OptionArgFilenameArray-    | OptionArgDouble-    | OptionArgInt64-    | AnotherOptionArg Int-    deriving (Show, Eq)--instance Enum OptionArg where-    fromEnum OptionArgNone = 0-    fromEnum OptionArgString = 1-    fromEnum OptionArgInt = 2-    fromEnum OptionArgCallback = 3-    fromEnum OptionArgFilename = 4-    fromEnum OptionArgStringArray = 5-    fromEnum OptionArgFilenameArray = 6-    fromEnum OptionArgDouble = 7-    fromEnum OptionArgInt64 = 8-    fromEnum (AnotherOptionArg k) = k--    toEnum 0 = OptionArgNone-    toEnum 1 = OptionArgString-    toEnum 2 = OptionArgInt-    toEnum 3 = OptionArgCallback-    toEnum 4 = OptionArgFilename-    toEnum 5 = OptionArgStringArray-    toEnum 6 = OptionArgFilenameArray-    toEnum 7 = OptionArgDouble-    toEnum 8 = OptionArgInt64-    toEnum k = AnotherOptionArg k---- Enum OnceStatus--data OnceStatus = -      OnceStatusNotcalled-    | OnceStatusProgress-    | OnceStatusReady-    | AnotherOnceStatus Int-    deriving (Show, Eq)--instance Enum OnceStatus where-    fromEnum OnceStatusNotcalled = 0-    fromEnum OnceStatusProgress = 1-    fromEnum OnceStatusReady = 2-    fromEnum (AnotherOnceStatus k) = k--    toEnum 0 = OnceStatusNotcalled-    toEnum 1 = OnceStatusProgress-    toEnum 2 = OnceStatusReady-    toEnum k = AnotherOnceStatus k---- Enum NormalizeMode--data NormalizeMode = -      NormalizeModeDefault-    | NormalizeModeNfd-    | NormalizeModeDefaultCompose-    | NormalizeModeNfc-    | NormalizeModeAll-    | NormalizeModeNfkd-    | NormalizeModeAllCompose-    | NormalizeModeNfkc-    | AnotherNormalizeMode Int-    deriving (Show, Eq)--instance Enum NormalizeMode where-    fromEnum NormalizeModeDefault = 0-    fromEnum NormalizeModeNfd = 0-    fromEnum NormalizeModeDefaultCompose = 1-    fromEnum NormalizeModeNfc = 1-    fromEnum NormalizeModeAll = 2-    fromEnum NormalizeModeNfkd = 2-    fromEnum NormalizeModeAllCompose = 3-    fromEnum NormalizeModeNfkc = 3-    fromEnum (AnotherNormalizeMode k) = k--    toEnum 0 = NormalizeModeDefault-    toEnum 1 = NormalizeModeDefaultCompose-    toEnum 2 = NormalizeModeAll-    toEnum 3 = NormalizeModeAllCompose-    toEnum k = AnotherNormalizeMode k---- Enum MarkupError--data MarkupError = -      MarkupErrorBadUtf8-    | MarkupErrorEmpty-    | MarkupErrorParse-    | MarkupErrorUnknownElement-    | MarkupErrorUnknownAttribute-    | MarkupErrorInvalidContent-    | MarkupErrorMissingAttribute-    | AnotherMarkupError Int-    deriving (Show, Eq)--instance Enum MarkupError where-    fromEnum MarkupErrorBadUtf8 = 0-    fromEnum MarkupErrorEmpty = 1-    fromEnum MarkupErrorParse = 2-    fromEnum MarkupErrorUnknownElement = 3-    fromEnum MarkupErrorUnknownAttribute = 4-    fromEnum MarkupErrorInvalidContent = 5-    fromEnum MarkupErrorMissingAttribute = 6-    fromEnum (AnotherMarkupError k) = k--    toEnum 0 = MarkupErrorBadUtf8-    toEnum 1 = MarkupErrorEmpty-    toEnum 2 = MarkupErrorParse-    toEnum 3 = MarkupErrorUnknownElement-    toEnum 4 = MarkupErrorUnknownAttribute-    toEnum 5 = MarkupErrorInvalidContent-    toEnum 6 = MarkupErrorMissingAttribute-    toEnum k = AnotherMarkupError k--instance GErrorClass MarkupError where-    gerrorClassDomain _ = "g-markup-error-quark"--catchMarkupError ::-    IO a ->-    (MarkupError -> GErrorMessage -> IO a) ->-    IO a-catchMarkupError = catchGErrorJustDomain--handleMarkupError ::-    (MarkupError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleMarkupError = handleGErrorJustDomain---- Enum KeyFileError--data KeyFileError = -      KeyFileErrorUnknownEncoding-    | KeyFileErrorParse-    | KeyFileErrorNotFound-    | KeyFileErrorKeyNotFound-    | KeyFileErrorGroupNotFound-    | KeyFileErrorInvalidValue-    | AnotherKeyFileError Int-    deriving (Show, Eq)--instance Enum KeyFileError where-    fromEnum KeyFileErrorUnknownEncoding = 0-    fromEnum KeyFileErrorParse = 1-    fromEnum KeyFileErrorNotFound = 2-    fromEnum KeyFileErrorKeyNotFound = 3-    fromEnum KeyFileErrorGroupNotFound = 4-    fromEnum KeyFileErrorInvalidValue = 5-    fromEnum (AnotherKeyFileError k) = k--    toEnum 0 = KeyFileErrorUnknownEncoding-    toEnum 1 = KeyFileErrorParse-    toEnum 2 = KeyFileErrorNotFound-    toEnum 3 = KeyFileErrorKeyNotFound-    toEnum 4 = KeyFileErrorGroupNotFound-    toEnum 5 = KeyFileErrorInvalidValue-    toEnum k = AnotherKeyFileError k--instance GErrorClass KeyFileError where-    gerrorClassDomain _ = "g-key-file-error-quark"--catchKeyFileError ::-    IO a ->-    (KeyFileError -> GErrorMessage -> IO a) ->-    IO a-catchKeyFileError = catchGErrorJustDomain--handleKeyFileError ::-    (KeyFileError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleKeyFileError = handleGErrorJustDomain---- Enum IOStatus--data IOStatus = -      IOStatusError-    | IOStatusNormal-    | IOStatusEof-    | IOStatusAgain-    | AnotherIOStatus Int-    deriving (Show, Eq)--instance Enum IOStatus where-    fromEnum IOStatusError = 0-    fromEnum IOStatusNormal = 1-    fromEnum IOStatusEof = 2-    fromEnum IOStatusAgain = 3-    fromEnum (AnotherIOStatus k) = k--    toEnum 0 = IOStatusError-    toEnum 1 = IOStatusNormal-    toEnum 2 = IOStatusEof-    toEnum 3 = IOStatusAgain-    toEnum k = AnotherIOStatus k---- Enum IOError--data IOError = -      IOErrorNone-    | IOErrorAgain-    | IOErrorInval-    | IOErrorUnknown-    | AnotherIOError Int-    deriving (Show, Eq)--instance Enum IOError where-    fromEnum IOErrorNone = 0-    fromEnum IOErrorAgain = 1-    fromEnum IOErrorInval = 2-    fromEnum IOErrorUnknown = 3-    fromEnum (AnotherIOError k) = k--    toEnum 0 = IOErrorNone-    toEnum 1 = IOErrorAgain-    toEnum 2 = IOErrorInval-    toEnum 3 = IOErrorUnknown-    toEnum k = AnotherIOError k---- Enum IOChannelError--data IOChannelError = -      IOChannelErrorFbig-    | IOChannelErrorInval-    | IOChannelErrorIo-    | IOChannelErrorIsdir-    | IOChannelErrorNospc-    | IOChannelErrorNxio-    | IOChannelErrorOverflow-    | IOChannelErrorPipe-    | IOChannelErrorFailed-    | AnotherIOChannelError Int-    deriving (Show, Eq)--instance Enum IOChannelError where-    fromEnum IOChannelErrorFbig = 0-    fromEnum IOChannelErrorInval = 1-    fromEnum IOChannelErrorIo = 2-    fromEnum IOChannelErrorIsdir = 3-    fromEnum IOChannelErrorNospc = 4-    fromEnum IOChannelErrorNxio = 5-    fromEnum IOChannelErrorOverflow = 6-    fromEnum IOChannelErrorPipe = 7-    fromEnum IOChannelErrorFailed = 8-    fromEnum (AnotherIOChannelError k) = k--    toEnum 0 = IOChannelErrorFbig-    toEnum 1 = IOChannelErrorInval-    toEnum 2 = IOChannelErrorIo-    toEnum 3 = IOChannelErrorIsdir-    toEnum 4 = IOChannelErrorNospc-    toEnum 5 = IOChannelErrorNxio-    toEnum 6 = IOChannelErrorOverflow-    toEnum 7 = IOChannelErrorPipe-    toEnum 8 = IOChannelErrorFailed-    toEnum k = AnotherIOChannelError k--instance GErrorClass IOChannelError where-    gerrorClassDomain _ = "g-io-channel-error-quark"--catchIOChannelError ::-    IO a ->-    (IOChannelError -> GErrorMessage -> IO a) ->-    IO a-catchIOChannelError = catchGErrorJustDomain--handleIOChannelError ::-    (IOChannelError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleIOChannelError = handleGErrorJustDomain---- Enum FileError--data FileError = -      FileErrorExist-    | FileErrorIsdir-    | FileErrorAcces-    | FileErrorNametoolong-    | FileErrorNoent-    | FileErrorNotdir-    | FileErrorNxio-    | FileErrorNodev-    | FileErrorRofs-    | FileErrorTxtbsy-    | FileErrorFault-    | FileErrorLoop-    | FileErrorNospc-    | FileErrorNomem-    | FileErrorMfile-    | FileErrorNfile-    | FileErrorBadf-    | FileErrorInval-    | FileErrorPipe-    | FileErrorAgain-    | FileErrorIntr-    | FileErrorIo-    | FileErrorPerm-    | FileErrorNosys-    | FileErrorFailed-    | AnotherFileError Int-    deriving (Show, Eq)--instance Enum FileError where-    fromEnum FileErrorExist = 0-    fromEnum FileErrorIsdir = 1-    fromEnum FileErrorAcces = 2-    fromEnum FileErrorNametoolong = 3-    fromEnum FileErrorNoent = 4-    fromEnum FileErrorNotdir = 5-    fromEnum FileErrorNxio = 6-    fromEnum FileErrorNodev = 7-    fromEnum FileErrorRofs = 8-    fromEnum FileErrorTxtbsy = 9-    fromEnum FileErrorFault = 10-    fromEnum FileErrorLoop = 11-    fromEnum FileErrorNospc = 12-    fromEnum FileErrorNomem = 13-    fromEnum FileErrorMfile = 14-    fromEnum FileErrorNfile = 15-    fromEnum FileErrorBadf = 16-    fromEnum FileErrorInval = 17-    fromEnum FileErrorPipe = 18-    fromEnum FileErrorAgain = 19-    fromEnum FileErrorIntr = 20-    fromEnum FileErrorIo = 21-    fromEnum FileErrorPerm = 22-    fromEnum FileErrorNosys = 23-    fromEnum FileErrorFailed = 24-    fromEnum (AnotherFileError k) = k--    toEnum 0 = FileErrorExist-    toEnum 1 = FileErrorIsdir-    toEnum 2 = FileErrorAcces-    toEnum 3 = FileErrorNametoolong-    toEnum 4 = FileErrorNoent-    toEnum 5 = FileErrorNotdir-    toEnum 6 = FileErrorNxio-    toEnum 7 = FileErrorNodev-    toEnum 8 = FileErrorRofs-    toEnum 9 = FileErrorTxtbsy-    toEnum 10 = FileErrorFault-    toEnum 11 = FileErrorLoop-    toEnum 12 = FileErrorNospc-    toEnum 13 = FileErrorNomem-    toEnum 14 = FileErrorMfile-    toEnum 15 = FileErrorNfile-    toEnum 16 = FileErrorBadf-    toEnum 17 = FileErrorInval-    toEnum 18 = FileErrorPipe-    toEnum 19 = FileErrorAgain-    toEnum 20 = FileErrorIntr-    toEnum 21 = FileErrorIo-    toEnum 22 = FileErrorPerm-    toEnum 23 = FileErrorNosys-    toEnum 24 = FileErrorFailed-    toEnum k = AnotherFileError k--instance GErrorClass FileError where-    gerrorClassDomain _ = "g-file-error-quark"--catchFileError ::-    IO a ->-    (FileError -> GErrorMessage -> IO a) ->-    IO a-catchFileError = catchGErrorJustDomain--handleFileError ::-    (FileError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleFileError = handleGErrorJustDomain---- Enum ErrorType--data ErrorType = -      ErrorTypeUnknown-    | ErrorTypeUnexpEof-    | ErrorTypeUnexpEofInString-    | ErrorTypeUnexpEofInComment-    | ErrorTypeNonDigitInConst-    | ErrorTypeDigitRadix-    | ErrorTypeFloatRadix-    | ErrorTypeFloatMalformed-    | AnotherErrorType Int-    deriving (Show, Eq)--instance Enum ErrorType where-    fromEnum ErrorTypeUnknown = 0-    fromEnum ErrorTypeUnexpEof = 1-    fromEnum ErrorTypeUnexpEofInString = 2-    fromEnum ErrorTypeUnexpEofInComment = 3-    fromEnum ErrorTypeNonDigitInConst = 4-    fromEnum ErrorTypeDigitRadix = 5-    fromEnum ErrorTypeFloatRadix = 6-    fromEnum ErrorTypeFloatMalformed = 7-    fromEnum (AnotherErrorType k) = k--    toEnum 0 = ErrorTypeUnknown-    toEnum 1 = ErrorTypeUnexpEof-    toEnum 2 = ErrorTypeUnexpEofInString-    toEnum 3 = ErrorTypeUnexpEofInComment-    toEnum 4 = ErrorTypeNonDigitInConst-    toEnum 5 = ErrorTypeDigitRadix-    toEnum 6 = ErrorTypeFloatRadix-    toEnum 7 = ErrorTypeFloatMalformed-    toEnum k = AnotherErrorType k---- Enum DateWeekday--data DateWeekday = -      DateWeekdayBadWeekday-    | DateWeekdayMonday-    | DateWeekdayTuesday-    | DateWeekdayWednesday-    | DateWeekdayThursday-    | DateWeekdayFriday-    | DateWeekdaySaturday-    | DateWeekdaySunday-    | AnotherDateWeekday Int-    deriving (Show, Eq)--instance Enum DateWeekday where-    fromEnum DateWeekdayBadWeekday = 0-    fromEnum DateWeekdayMonday = 1-    fromEnum DateWeekdayTuesday = 2-    fromEnum DateWeekdayWednesday = 3-    fromEnum DateWeekdayThursday = 4-    fromEnum DateWeekdayFriday = 5-    fromEnum DateWeekdaySaturday = 6-    fromEnum DateWeekdaySunday = 7-    fromEnum (AnotherDateWeekday k) = k--    toEnum 0 = DateWeekdayBadWeekday-    toEnum 1 = DateWeekdayMonday-    toEnum 2 = DateWeekdayTuesday-    toEnum 3 = DateWeekdayWednesday-    toEnum 4 = DateWeekdayThursday-    toEnum 5 = DateWeekdayFriday-    toEnum 6 = DateWeekdaySaturday-    toEnum 7 = DateWeekdaySunday-    toEnum k = AnotherDateWeekday k---- Enum DateMonth--data DateMonth = -      DateMonthBadMonth-    | DateMonthJanuary-    | DateMonthFebruary-    | DateMonthMarch-    | DateMonthApril-    | DateMonthMay-    | DateMonthJune-    | DateMonthJuly-    | DateMonthAugust-    | DateMonthSeptember-    | DateMonthOctober-    | DateMonthNovember-    | DateMonthDecember-    | AnotherDateMonth Int-    deriving (Show, Eq)--instance Enum DateMonth where-    fromEnum DateMonthBadMonth = 0-    fromEnum DateMonthJanuary = 1-    fromEnum DateMonthFebruary = 2-    fromEnum DateMonthMarch = 3-    fromEnum DateMonthApril = 4-    fromEnum DateMonthMay = 5-    fromEnum DateMonthJune = 6-    fromEnum DateMonthJuly = 7-    fromEnum DateMonthAugust = 8-    fromEnum DateMonthSeptember = 9-    fromEnum DateMonthOctober = 10-    fromEnum DateMonthNovember = 11-    fromEnum DateMonthDecember = 12-    fromEnum (AnotherDateMonth k) = k--    toEnum 0 = DateMonthBadMonth-    toEnum 1 = DateMonthJanuary-    toEnum 2 = DateMonthFebruary-    toEnum 3 = DateMonthMarch-    toEnum 4 = DateMonthApril-    toEnum 5 = DateMonthMay-    toEnum 6 = DateMonthJune-    toEnum 7 = DateMonthJuly-    toEnum 8 = DateMonthAugust-    toEnum 9 = DateMonthSeptember-    toEnum 10 = DateMonthOctober-    toEnum 11 = DateMonthNovember-    toEnum 12 = DateMonthDecember-    toEnum k = AnotherDateMonth k---- Enum DateDMY--data DateDMY = -      DateDMYDay-    | DateDMYMonth-    | DateDMYYear-    | AnotherDateDMY Int-    deriving (Show, Eq)--instance Enum DateDMY where-    fromEnum DateDMYDay = 0-    fromEnum DateDMYMonth = 1-    fromEnum DateDMYYear = 2-    fromEnum (AnotherDateDMY k) = k--    toEnum 0 = DateDMYDay-    toEnum 1 = DateDMYMonth-    toEnum 2 = DateDMYYear-    toEnum k = AnotherDateDMY k---- Enum ConvertError--data ConvertError = -      ConvertErrorNoConversion-    | ConvertErrorIllegalSequence-    | ConvertErrorFailed-    | ConvertErrorPartialInput-    | ConvertErrorBadUri-    | ConvertErrorNotAbsolutePath-    | ConvertErrorNoMemory-    | AnotherConvertError Int-    deriving (Show, Eq)--instance Enum ConvertError where-    fromEnum ConvertErrorNoConversion = 0-    fromEnum ConvertErrorIllegalSequence = 1-    fromEnum ConvertErrorFailed = 2-    fromEnum ConvertErrorPartialInput = 3-    fromEnum ConvertErrorBadUri = 4-    fromEnum ConvertErrorNotAbsolutePath = 5-    fromEnum ConvertErrorNoMemory = 6-    fromEnum (AnotherConvertError k) = k--    toEnum 0 = ConvertErrorNoConversion-    toEnum 1 = ConvertErrorIllegalSequence-    toEnum 2 = ConvertErrorFailed-    toEnum 3 = ConvertErrorPartialInput-    toEnum 4 = ConvertErrorBadUri-    toEnum 5 = ConvertErrorNotAbsolutePath-    toEnum 6 = ConvertErrorNoMemory-    toEnum k = AnotherConvertError k--instance GErrorClass ConvertError where-    gerrorClassDomain _ = "g_convert_error"--catchConvertError ::-    IO a ->-    (ConvertError -> GErrorMessage -> IO a) ->-    IO a-catchConvertError = catchGErrorJustDomain--handleConvertError ::-    (ConvertError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleConvertError = handleGErrorJustDomain---- Enum ChecksumType--data ChecksumType = -      ChecksumTypeMd5-    | ChecksumTypeSha1-    | ChecksumTypeSha256-    | ChecksumTypeSha512-    | AnotherChecksumType Int-    deriving (Show, Eq)--instance Enum ChecksumType where-    fromEnum ChecksumTypeMd5 = 0-    fromEnum ChecksumTypeSha1 = 1-    fromEnum ChecksumTypeSha256 = 2-    fromEnum ChecksumTypeSha512 = 3-    fromEnum (AnotherChecksumType k) = k--    toEnum 0 = ChecksumTypeMd5-    toEnum 1 = ChecksumTypeSha1-    toEnum 2 = ChecksumTypeSha256-    toEnum 3 = ChecksumTypeSha512-    toEnum k = AnotherChecksumType k---- Enum BookmarkFileError--data BookmarkFileError = -      BookmarkFileErrorInvalidUri-    | BookmarkFileErrorInvalidValue-    | BookmarkFileErrorAppNotRegistered-    | BookmarkFileErrorUriNotFound-    | BookmarkFileErrorRead-    | BookmarkFileErrorUnknownEncoding-    | BookmarkFileErrorWrite-    | BookmarkFileErrorFileNotFound-    | AnotherBookmarkFileError Int-    deriving (Show, Eq)--instance Enum BookmarkFileError where-    fromEnum BookmarkFileErrorInvalidUri = 0-    fromEnum BookmarkFileErrorInvalidValue = 1-    fromEnum BookmarkFileErrorAppNotRegistered = 2-    fromEnum BookmarkFileErrorUriNotFound = 3-    fromEnum BookmarkFileErrorRead = 4-    fromEnum BookmarkFileErrorUnknownEncoding = 5-    fromEnum BookmarkFileErrorWrite = 6-    fromEnum BookmarkFileErrorFileNotFound = 7-    fromEnum (AnotherBookmarkFileError k) = k--    toEnum 0 = BookmarkFileErrorInvalidUri-    toEnum 1 = BookmarkFileErrorInvalidValue-    toEnum 2 = BookmarkFileErrorAppNotRegistered-    toEnum 3 = BookmarkFileErrorUriNotFound-    toEnum 4 = BookmarkFileErrorRead-    toEnum 5 = BookmarkFileErrorUnknownEncoding-    toEnum 6 = BookmarkFileErrorWrite-    toEnum 7 = BookmarkFileErrorFileNotFound-    toEnum k = AnotherBookmarkFileError k--instance GErrorClass BookmarkFileError where-    gerrorClassDomain _ = "g-bookmark-file-error-quark"--catchBookmarkFileError ::-    IO a ->-    (BookmarkFileError -> GErrorMessage -> IO a) ->-    IO a-catchBookmarkFileError = catchGErrorJustDomain--handleBookmarkFileError ::-    (BookmarkFileError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleBookmarkFileError = handleGErrorJustDomain--
− GI/GLib/Flags.hs 
@@ -1,630 +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.GLib.Flags-    ( ---- * Exported types-    TraverseFlags(..)                       ,-    TestTrapFlags(..)                       ,-    TestSubprocessFlags(..)                 ,-    SpawnFlags(..)                          ,-    RegexMatchFlags(..)                     ,-    RegexCompileFlags(..)                   ,-    OptionFlags(..)                         ,-    MarkupParseFlags(..)                    ,-    MarkupCollectType(..)                   ,-    LogLevelFlags(..)                       ,-    KeyFileFlags(..)                        ,-    IOFlags(..)                             ,-    IOCondition(..)                         ,-    HookFlagMask(..)                        ,-    FormatSizeFlags(..)                     ,-    FileTest(..)                            ,-    AsciiType(..)                           ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Flags TraverseFlags--data TraverseFlags = -      TraverseFlagsLeaves-    | TraverseFlagsNonLeaves-    | TraverseFlagsAll-    | TraverseFlagsMask-    | TraverseFlagsLeafs-    | TraverseFlagsNonLeafs-    | AnotherTraverseFlags Int-    deriving (Show, Eq)--instance Enum TraverseFlags where-    fromEnum TraverseFlagsLeaves = 1-    fromEnum TraverseFlagsNonLeaves = 2-    fromEnum TraverseFlagsAll = 3-    fromEnum TraverseFlagsMask = 3-    fromEnum TraverseFlagsLeafs = 1-    fromEnum TraverseFlagsNonLeafs = 2-    fromEnum (AnotherTraverseFlags k) = k--    toEnum 1 = TraverseFlagsLeaves-    toEnum 2 = TraverseFlagsNonLeaves-    toEnum 3 = TraverseFlagsAll-    toEnum k = AnotherTraverseFlags k--instance IsGFlag TraverseFlags---- Flags TestTrapFlags-{-# DEPRECATED TestTrapFlags ["#GTestTrapFlags is used only with g_test_trap_fork(),","which is deprecated. g_test_trap_subprocess() uses","#GTestTrapSubprocessFlags."]#-}-data TestTrapFlags = -      TestTrapFlagsSilenceStdout-    | TestTrapFlagsSilenceStderr-    | TestTrapFlagsInheritStdin-    | AnotherTestTrapFlags Int-    deriving (Show, Eq)--instance Enum TestTrapFlags where-    fromEnum TestTrapFlagsSilenceStdout = 128-    fromEnum TestTrapFlagsSilenceStderr = 256-    fromEnum TestTrapFlagsInheritStdin = 512-    fromEnum (AnotherTestTrapFlags k) = k--    toEnum 128 = TestTrapFlagsSilenceStdout-    toEnum 256 = TestTrapFlagsSilenceStderr-    toEnum 512 = TestTrapFlagsInheritStdin-    toEnum k = AnotherTestTrapFlags k--instance IsGFlag TestTrapFlags---- Flags TestSubprocessFlags--data TestSubprocessFlags = -      TestSubprocessFlagsStdin-    | TestSubprocessFlagsStdout-    | TestSubprocessFlagsStderr-    | AnotherTestSubprocessFlags Int-    deriving (Show, Eq)--instance Enum TestSubprocessFlags where-    fromEnum TestSubprocessFlagsStdin = 1-    fromEnum TestSubprocessFlagsStdout = 2-    fromEnum TestSubprocessFlagsStderr = 4-    fromEnum (AnotherTestSubprocessFlags k) = k--    toEnum 1 = TestSubprocessFlagsStdin-    toEnum 2 = TestSubprocessFlagsStdout-    toEnum 4 = TestSubprocessFlagsStderr-    toEnum k = AnotherTestSubprocessFlags k--instance IsGFlag TestSubprocessFlags---- Flags SpawnFlags--data SpawnFlags = -      SpawnFlagsDefault-    | SpawnFlagsLeaveDescriptorsOpen-    | SpawnFlagsDoNotReapChild-    | SpawnFlagsSearchPath-    | SpawnFlagsStdoutToDevNull-    | SpawnFlagsStderrToDevNull-    | SpawnFlagsChildInheritsStdin-    | SpawnFlagsFileAndArgvZero-    | SpawnFlagsSearchPathFromEnvp-    | SpawnFlagsCloexecPipes-    | AnotherSpawnFlags Int-    deriving (Show, Eq)--instance Enum SpawnFlags where-    fromEnum SpawnFlagsDefault = 0-    fromEnum SpawnFlagsLeaveDescriptorsOpen = 1-    fromEnum SpawnFlagsDoNotReapChild = 2-    fromEnum SpawnFlagsSearchPath = 4-    fromEnum SpawnFlagsStdoutToDevNull = 8-    fromEnum SpawnFlagsStderrToDevNull = 16-    fromEnum SpawnFlagsChildInheritsStdin = 32-    fromEnum SpawnFlagsFileAndArgvZero = 64-    fromEnum SpawnFlagsSearchPathFromEnvp = 128-    fromEnum SpawnFlagsCloexecPipes = 256-    fromEnum (AnotherSpawnFlags k) = k--    toEnum 0 = SpawnFlagsDefault-    toEnum 1 = SpawnFlagsLeaveDescriptorsOpen-    toEnum 2 = SpawnFlagsDoNotReapChild-    toEnum 4 = SpawnFlagsSearchPath-    toEnum 8 = SpawnFlagsStdoutToDevNull-    toEnum 16 = SpawnFlagsStderrToDevNull-    toEnum 32 = SpawnFlagsChildInheritsStdin-    toEnum 64 = SpawnFlagsFileAndArgvZero-    toEnum 128 = SpawnFlagsSearchPathFromEnvp-    toEnum 256 = SpawnFlagsCloexecPipes-    toEnum k = AnotherSpawnFlags k--instance IsGFlag SpawnFlags---- Flags RegexMatchFlags--data RegexMatchFlags = -      RegexMatchFlagsAnchored-    | RegexMatchFlagsNotbol-    | RegexMatchFlagsNoteol-    | RegexMatchFlagsNotempty-    | RegexMatchFlagsPartial-    | RegexMatchFlagsNewlineCr-    | RegexMatchFlagsNewlineLf-    | RegexMatchFlagsNewlineCrlf-    | RegexMatchFlagsNewlineAny-    | RegexMatchFlagsNewlineAnycrlf-    | RegexMatchFlagsBsrAnycrlf-    | RegexMatchFlagsBsrAny-    | RegexMatchFlagsPartialSoft-    | RegexMatchFlagsPartialHard-    | RegexMatchFlagsNotemptyAtstart-    | AnotherRegexMatchFlags Int-    deriving (Show, Eq)--instance Enum RegexMatchFlags where-    fromEnum RegexMatchFlagsAnchored = 16-    fromEnum RegexMatchFlagsNotbol = 128-    fromEnum RegexMatchFlagsNoteol = 256-    fromEnum RegexMatchFlagsNotempty = 1024-    fromEnum RegexMatchFlagsPartial = 32768-    fromEnum RegexMatchFlagsNewlineCr = 1048576-    fromEnum RegexMatchFlagsNewlineLf = 2097152-    fromEnum RegexMatchFlagsNewlineCrlf = 3145728-    fromEnum RegexMatchFlagsNewlineAny = 4194304-    fromEnum RegexMatchFlagsNewlineAnycrlf = 5242880-    fromEnum RegexMatchFlagsBsrAnycrlf = 8388608-    fromEnum RegexMatchFlagsBsrAny = 16777216-    fromEnum RegexMatchFlagsPartialSoft = 32768-    fromEnum RegexMatchFlagsPartialHard = 134217728-    fromEnum RegexMatchFlagsNotemptyAtstart = 268435456-    fromEnum (AnotherRegexMatchFlags k) = k--    toEnum 16 = RegexMatchFlagsAnchored-    toEnum 128 = RegexMatchFlagsNotbol-    toEnum 256 = RegexMatchFlagsNoteol-    toEnum 1024 = RegexMatchFlagsNotempty-    toEnum 32768 = RegexMatchFlagsPartial-    toEnum 1048576 = RegexMatchFlagsNewlineCr-    toEnum 2097152 = RegexMatchFlagsNewlineLf-    toEnum 3145728 = RegexMatchFlagsNewlineCrlf-    toEnum 4194304 = RegexMatchFlagsNewlineAny-    toEnum 5242880 = RegexMatchFlagsNewlineAnycrlf-    toEnum 8388608 = RegexMatchFlagsBsrAnycrlf-    toEnum 16777216 = RegexMatchFlagsBsrAny-    toEnum 134217728 = RegexMatchFlagsPartialHard-    toEnum 268435456 = RegexMatchFlagsNotemptyAtstart-    toEnum k = AnotherRegexMatchFlags k--instance IsGFlag RegexMatchFlags---- Flags RegexCompileFlags--data RegexCompileFlags = -      RegexCompileFlagsCaseless-    | RegexCompileFlagsMultiline-    | RegexCompileFlagsDotall-    | RegexCompileFlagsExtended-    | RegexCompileFlagsAnchored-    | RegexCompileFlagsDollarEndonly-    | RegexCompileFlagsUngreedy-    | RegexCompileFlagsRaw-    | RegexCompileFlagsNoAutoCapture-    | RegexCompileFlagsOptimize-    | RegexCompileFlagsFirstline-    | RegexCompileFlagsDupnames-    | RegexCompileFlagsNewlineCr-    | RegexCompileFlagsNewlineLf-    | RegexCompileFlagsNewlineCrlf-    | RegexCompileFlagsNewlineAnycrlf-    | RegexCompileFlagsBsrAnycrlf-    | RegexCompileFlagsJavascriptCompat-    | AnotherRegexCompileFlags Int-    deriving (Show, Eq)--instance Enum RegexCompileFlags where-    fromEnum RegexCompileFlagsCaseless = 1-    fromEnum RegexCompileFlagsMultiline = 2-    fromEnum RegexCompileFlagsDotall = 4-    fromEnum RegexCompileFlagsExtended = 8-    fromEnum RegexCompileFlagsAnchored = 16-    fromEnum RegexCompileFlagsDollarEndonly = 32-    fromEnum RegexCompileFlagsUngreedy = 512-    fromEnum RegexCompileFlagsRaw = 2048-    fromEnum RegexCompileFlagsNoAutoCapture = 4096-    fromEnum RegexCompileFlagsOptimize = 8192-    fromEnum RegexCompileFlagsFirstline = 262144-    fromEnum RegexCompileFlagsDupnames = 524288-    fromEnum RegexCompileFlagsNewlineCr = 1048576-    fromEnum RegexCompileFlagsNewlineLf = 2097152-    fromEnum RegexCompileFlagsNewlineCrlf = 3145728-    fromEnum RegexCompileFlagsNewlineAnycrlf = 5242880-    fromEnum RegexCompileFlagsBsrAnycrlf = 8388608-    fromEnum RegexCompileFlagsJavascriptCompat = 33554432-    fromEnum (AnotherRegexCompileFlags k) = k--    toEnum 1 = RegexCompileFlagsCaseless-    toEnum 2 = RegexCompileFlagsMultiline-    toEnum 4 = RegexCompileFlagsDotall-    toEnum 8 = RegexCompileFlagsExtended-    toEnum 16 = RegexCompileFlagsAnchored-    toEnum 32 = RegexCompileFlagsDollarEndonly-    toEnum 512 = RegexCompileFlagsUngreedy-    toEnum 2048 = RegexCompileFlagsRaw-    toEnum 4096 = RegexCompileFlagsNoAutoCapture-    toEnum 8192 = RegexCompileFlagsOptimize-    toEnum 262144 = RegexCompileFlagsFirstline-    toEnum 524288 = RegexCompileFlagsDupnames-    toEnum 1048576 = RegexCompileFlagsNewlineCr-    toEnum 2097152 = RegexCompileFlagsNewlineLf-    toEnum 3145728 = RegexCompileFlagsNewlineCrlf-    toEnum 5242880 = RegexCompileFlagsNewlineAnycrlf-    toEnum 8388608 = RegexCompileFlagsBsrAnycrlf-    toEnum 33554432 = RegexCompileFlagsJavascriptCompat-    toEnum k = AnotherRegexCompileFlags k--instance IsGFlag RegexCompileFlags---- Flags OptionFlags--data OptionFlags = -      OptionFlagsNone-    | OptionFlagsHidden-    | OptionFlagsInMain-    | OptionFlagsReverse-    | OptionFlagsNoArg-    | OptionFlagsFilename-    | OptionFlagsOptionalArg-    | OptionFlagsNoalias-    | AnotherOptionFlags Int-    deriving (Show, Eq)--instance Enum OptionFlags where-    fromEnum OptionFlagsNone = 0-    fromEnum OptionFlagsHidden = 1-    fromEnum OptionFlagsInMain = 2-    fromEnum OptionFlagsReverse = 4-    fromEnum OptionFlagsNoArg = 8-    fromEnum OptionFlagsFilename = 16-    fromEnum OptionFlagsOptionalArg = 32-    fromEnum OptionFlagsNoalias = 64-    fromEnum (AnotherOptionFlags k) = k--    toEnum 0 = OptionFlagsNone-    toEnum 1 = OptionFlagsHidden-    toEnum 2 = OptionFlagsInMain-    toEnum 4 = OptionFlagsReverse-    toEnum 8 = OptionFlagsNoArg-    toEnum 16 = OptionFlagsFilename-    toEnum 32 = OptionFlagsOptionalArg-    toEnum 64 = OptionFlagsNoalias-    toEnum k = AnotherOptionFlags k--instance IsGFlag OptionFlags---- Flags MarkupParseFlags--data MarkupParseFlags = -      MarkupParseFlagsDoNotUseThisUnsupportedFlag-    | MarkupParseFlagsTreatCdataAsText-    | MarkupParseFlagsPrefixErrorPosition-    | MarkupParseFlagsIgnoreQualified-    | AnotherMarkupParseFlags Int-    deriving (Show, Eq)--instance Enum MarkupParseFlags where-    fromEnum MarkupParseFlagsDoNotUseThisUnsupportedFlag = 1-    fromEnum MarkupParseFlagsTreatCdataAsText = 2-    fromEnum MarkupParseFlagsPrefixErrorPosition = 4-    fromEnum MarkupParseFlagsIgnoreQualified = 8-    fromEnum (AnotherMarkupParseFlags k) = k--    toEnum 1 = MarkupParseFlagsDoNotUseThisUnsupportedFlag-    toEnum 2 = MarkupParseFlagsTreatCdataAsText-    toEnum 4 = MarkupParseFlagsPrefixErrorPosition-    toEnum 8 = MarkupParseFlagsIgnoreQualified-    toEnum k = AnotherMarkupParseFlags k--instance IsGFlag MarkupParseFlags---- Flags MarkupCollectType--data MarkupCollectType = -      MarkupCollectTypeInvalid-    | MarkupCollectTypeString-    | MarkupCollectTypeStrdup-    | MarkupCollectTypeBoolean-    | MarkupCollectTypeTristate-    | MarkupCollectTypeOptional-    | AnotherMarkupCollectType Int-    deriving (Show, Eq)--instance Enum MarkupCollectType where-    fromEnum MarkupCollectTypeInvalid = 0-    fromEnum MarkupCollectTypeString = 1-    fromEnum MarkupCollectTypeStrdup = 2-    fromEnum MarkupCollectTypeBoolean = 3-    fromEnum MarkupCollectTypeTristate = 4-    fromEnum MarkupCollectTypeOptional = 65536-    fromEnum (AnotherMarkupCollectType k) = k--    toEnum 0 = MarkupCollectTypeInvalid-    toEnum 1 = MarkupCollectTypeString-    toEnum 2 = MarkupCollectTypeStrdup-    toEnum 3 = MarkupCollectTypeBoolean-    toEnum 4 = MarkupCollectTypeTristate-    toEnum 65536 = MarkupCollectTypeOptional-    toEnum k = AnotherMarkupCollectType k--instance IsGFlag MarkupCollectType---- Flags LogLevelFlags--data LogLevelFlags = -      LogLevelFlagsFlagRecursion-    | LogLevelFlagsFlagFatal-    | LogLevelFlagsLevelError-    | LogLevelFlagsLevelCritical-    | LogLevelFlagsLevelWarning-    | LogLevelFlagsLevelMessage-    | LogLevelFlagsLevelInfo-    | LogLevelFlagsLevelDebug-    | LogLevelFlagsLevelMask-    | AnotherLogLevelFlags Int-    deriving (Show, Eq)--instance Enum LogLevelFlags where-    fromEnum LogLevelFlagsFlagRecursion = 1-    fromEnum LogLevelFlagsFlagFatal = 2-    fromEnum LogLevelFlagsLevelError = 4-    fromEnum LogLevelFlagsLevelCritical = 8-    fromEnum LogLevelFlagsLevelWarning = 16-    fromEnum LogLevelFlagsLevelMessage = 32-    fromEnum LogLevelFlagsLevelInfo = 64-    fromEnum LogLevelFlagsLevelDebug = 128-    fromEnum LogLevelFlagsLevelMask = -4-    fromEnum (AnotherLogLevelFlags k) = k--    toEnum -4 = LogLevelFlagsLevelMask-    toEnum 1 = LogLevelFlagsFlagRecursion-    toEnum 2 = LogLevelFlagsFlagFatal-    toEnum 4 = LogLevelFlagsLevelError-    toEnum 8 = LogLevelFlagsLevelCritical-    toEnum 16 = LogLevelFlagsLevelWarning-    toEnum 32 = LogLevelFlagsLevelMessage-    toEnum 64 = LogLevelFlagsLevelInfo-    toEnum 128 = LogLevelFlagsLevelDebug-    toEnum k = AnotherLogLevelFlags k--instance IsGFlag LogLevelFlags---- Flags KeyFileFlags--data KeyFileFlags = -      KeyFileFlagsNone-    | KeyFileFlagsKeepComments-    | KeyFileFlagsKeepTranslations-    | AnotherKeyFileFlags Int-    deriving (Show, Eq)--instance Enum KeyFileFlags where-    fromEnum KeyFileFlagsNone = 0-    fromEnum KeyFileFlagsKeepComments = 1-    fromEnum KeyFileFlagsKeepTranslations = 2-    fromEnum (AnotherKeyFileFlags k) = k--    toEnum 0 = KeyFileFlagsNone-    toEnum 1 = KeyFileFlagsKeepComments-    toEnum 2 = KeyFileFlagsKeepTranslations-    toEnum k = AnotherKeyFileFlags k--instance IsGFlag KeyFileFlags---- Flags IOFlags--data IOFlags = -      IOFlagsAppend-    | IOFlagsNonblock-    | IOFlagsIsReadable-    | IOFlagsIsWritable-    | IOFlagsIsWriteable-    | IOFlagsIsSeekable-    | IOFlagsMask-    | IOFlagsGetMask-    | IOFlagsSetMask-    | AnotherIOFlags Int-    deriving (Show, Eq)--instance Enum IOFlags where-    fromEnum IOFlagsAppend = 1-    fromEnum IOFlagsNonblock = 2-    fromEnum IOFlagsIsReadable = 4-    fromEnum IOFlagsIsWritable = 8-    fromEnum IOFlagsIsWriteable = 8-    fromEnum IOFlagsIsSeekable = 16-    fromEnum IOFlagsMask = 31-    fromEnum IOFlagsGetMask = 31-    fromEnum IOFlagsSetMask = 3-    fromEnum (AnotherIOFlags k) = k--    toEnum 1 = IOFlagsAppend-    toEnum 2 = IOFlagsNonblock-    toEnum 3 = IOFlagsSetMask-    toEnum 4 = IOFlagsIsReadable-    toEnum 8 = IOFlagsIsWritable-    toEnum 16 = IOFlagsIsSeekable-    toEnum 31 = IOFlagsMask-    toEnum k = AnotherIOFlags k--instance IsGFlag IOFlags---- Flags IOCondition--data IOCondition = -      IOConditionIn-    | IOConditionOut-    | IOConditionPri-    | IOConditionErr-    | IOConditionHup-    | IOConditionNval-    | AnotherIOCondition Int-    deriving (Show, Eq)--instance Enum IOCondition where-    fromEnum IOConditionIn = 1-    fromEnum IOConditionOut = 4-    fromEnum IOConditionPri = 2-    fromEnum IOConditionErr = 8-    fromEnum IOConditionHup = 16-    fromEnum IOConditionNval = 32-    fromEnum (AnotherIOCondition k) = k--    toEnum 1 = IOConditionIn-    toEnum 2 = IOConditionPri-    toEnum 4 = IOConditionOut-    toEnum 8 = IOConditionErr-    toEnum 16 = IOConditionHup-    toEnum 32 = IOConditionNval-    toEnum k = AnotherIOCondition k--foreign import ccall "g_io_condition_get_type" c_g_io_condition_get_type :: -    IO GType--instance BoxedEnum IOCondition where-    boxedEnumType _ = c_g_io_condition_get_type--instance IsGFlag IOCondition---- Flags HookFlagMask--data HookFlagMask = -      HookFlagMaskActive-    | HookFlagMaskInCall-    | HookFlagMaskMask-    | AnotherHookFlagMask Int-    deriving (Show, Eq)--instance Enum HookFlagMask where-    fromEnum HookFlagMaskActive = 1-    fromEnum HookFlagMaskInCall = 2-    fromEnum HookFlagMaskMask = 15-    fromEnum (AnotherHookFlagMask k) = k--    toEnum 1 = HookFlagMaskActive-    toEnum 2 = HookFlagMaskInCall-    toEnum 15 = HookFlagMaskMask-    toEnum k = AnotherHookFlagMask k--instance IsGFlag HookFlagMask---- Flags FormatSizeFlags--data FormatSizeFlags = -      FormatSizeFlagsDefault-    | FormatSizeFlagsLongFormat-    | FormatSizeFlagsIecUnits-    | AnotherFormatSizeFlags Int-    deriving (Show, Eq)--instance Enum FormatSizeFlags where-    fromEnum FormatSizeFlagsDefault = 0-    fromEnum FormatSizeFlagsLongFormat = 1-    fromEnum FormatSizeFlagsIecUnits = 2-    fromEnum (AnotherFormatSizeFlags k) = k--    toEnum 0 = FormatSizeFlagsDefault-    toEnum 1 = FormatSizeFlagsLongFormat-    toEnum 2 = FormatSizeFlagsIecUnits-    toEnum k = AnotherFormatSizeFlags k--instance IsGFlag FormatSizeFlags---- Flags FileTest--data FileTest = -      FileTestIsRegular-    | FileTestIsSymlink-    | FileTestIsDir-    | FileTestIsExecutable-    | FileTestExists-    | AnotherFileTest Int-    deriving (Show, Eq)--instance Enum FileTest where-    fromEnum FileTestIsRegular = 1-    fromEnum FileTestIsSymlink = 2-    fromEnum FileTestIsDir = 4-    fromEnum FileTestIsExecutable = 8-    fromEnum FileTestExists = 16-    fromEnum (AnotherFileTest k) = k--    toEnum 1 = FileTestIsRegular-    toEnum 2 = FileTestIsSymlink-    toEnum 4 = FileTestIsDir-    toEnum 8 = FileTestIsExecutable-    toEnum 16 = FileTestExists-    toEnum k = AnotherFileTest k--instance IsGFlag FileTest---- Flags AsciiType--data AsciiType = -      AsciiTypeAlnum-    | AsciiTypeAlpha-    | AsciiTypeCntrl-    | AsciiTypeDigit-    | AsciiTypeGraph-    | AsciiTypeLower-    | AsciiTypePrint-    | AsciiTypePunct-    | AsciiTypeSpace-    | AsciiTypeUpper-    | AsciiTypeXdigit-    | AnotherAsciiType Int-    deriving (Show, Eq)--instance Enum AsciiType where-    fromEnum AsciiTypeAlnum = 1-    fromEnum AsciiTypeAlpha = 2-    fromEnum AsciiTypeCntrl = 4-    fromEnum AsciiTypeDigit = 8-    fromEnum AsciiTypeGraph = 16-    fromEnum AsciiTypeLower = 32-    fromEnum AsciiTypePrint = 64-    fromEnum AsciiTypePunct = 128-    fromEnum AsciiTypeSpace = 256-    fromEnum AsciiTypeUpper = 512-    fromEnum AsciiTypeXdigit = 1024-    fromEnum (AnotherAsciiType k) = k--    toEnum 1 = AsciiTypeAlnum-    toEnum 2 = AsciiTypeAlpha-    toEnum 4 = AsciiTypeCntrl-    toEnum 8 = AsciiTypeDigit-    toEnum 16 = AsciiTypeGraph-    toEnum 32 = AsciiTypeLower-    toEnum 64 = AsciiTypePrint-    toEnum 128 = AsciiTypePunct-    toEnum 256 = AsciiTypeSpace-    toEnum 512 = AsciiTypeUpper-    toEnum 1024 = AsciiTypeXdigit-    toEnum k = AnotherAsciiType k--instance IsGFlag AsciiType--
− GI/GLib/Functions.hs 
@@ -1,14276 +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.GLib.Functions-    ( -- -- * Methods--- ** access-    access                                  ,----- ** asciiDigitValue-    asciiDigitValue                         ,----- ** asciiDtostr-    asciiDtostr                             ,----- ** asciiFormatd-    asciiFormatd                            ,----- ** asciiStrcasecmp-    asciiStrcasecmp                         ,----- ** asciiStrdown-    asciiStrdown                            ,----- ** asciiStrncasecmp-    asciiStrncasecmp                        ,----- ** asciiStrtod-    asciiStrtod                             ,----- ** asciiStrtoll-    asciiStrtoll                            ,----- ** asciiStrtoull-    asciiStrtoull                           ,----- ** asciiStrup-    asciiStrup                              ,----- ** asciiTolower-    asciiTolower                            ,----- ** asciiToupper-    asciiToupper                            ,----- ** asciiXdigitValue-    asciiXdigitValue                        ,----- ** assertWarning-    assertWarning                           ,----- ** assertionMessage-    assertionMessage                        ,----- ** assertionMessageCmpstr-    assertionMessageCmpstr                  ,----- ** assertionMessageError-    assertionMessageError                   ,----- ** assertionMessageExpr-    assertionMessageExpr                    ,----- ** atexit-    atexit                                  ,----- ** atomicIntAdd-    atomicIntAdd                            ,----- ** atomicIntAnd-    atomicIntAnd                            ,----- ** atomicIntCompareAndExchange-    atomicIntCompareAndExchange             ,----- ** atomicIntDecAndTest-    atomicIntDecAndTest                     ,----- ** atomicIntExchangeAndAdd-    atomicIntExchangeAndAdd                 ,----- ** atomicIntGet-    atomicIntGet                            ,----- ** atomicIntInc-    atomicIntInc                            ,----- ** atomicIntOr-    atomicIntOr                             ,----- ** atomicIntSet-    atomicIntSet                            ,----- ** atomicIntXor-    atomicIntXor                            ,----- ** atomicPointerAdd-    atomicPointerAdd                        ,----- ** atomicPointerAnd-    atomicPointerAnd                        ,----- ** atomicPointerCompareAndExchange-    atomicPointerCompareAndExchange         ,----- ** atomicPointerOr-    atomicPointerOr                         ,----- ** atomicPointerSet-    atomicPointerSet                        ,----- ** atomicPointerXor-    atomicPointerXor                        ,----- ** base64Decode-    base64Decode                            ,----- ** base64DecodeInplace-    base64DecodeInplace                     ,----- ** base64Encode-    base64Encode                            ,----- ** basename-    basename                                ,----- ** bitLock-    bitLock                                 ,----- ** bitNthLsf-    bitNthLsf                               ,----- ** bitNthMsf-    bitNthMsf                               ,----- ** bitStorage-    bitStorage                              ,----- ** bitTrylock-    bitTrylock                              ,----- ** bitUnlock-    bitUnlock                               ,----- ** bookmarkFileErrorQuark-    bookmarkFileErrorQuark                  ,----- ** buildFilenamev-    buildFilenamev                          ,----- ** buildPathv-    buildPathv                              ,----- ** byteArrayFree-    byteArrayFree                           ,----- ** byteArrayFreeToBytes-    byteArrayFreeToBytes                    ,----- ** byteArrayNew-    byteArrayNew                            ,----- ** byteArrayNewTake-    byteArrayNewTake                        ,----- ** byteArrayUnref-    byteArrayUnref                          ,----- ** chdir-    chdir                                   ,----- ** checkVersion-    checkVersion                            ,----- ** checksumTypeGetLength-    checksumTypeGetLength                   ,----- ** childWatchAdd-    childWatchAdd                           ,----- ** childWatchSourceNew-    childWatchSourceNew                     ,----- ** clearError-    clearError                              ,----- ** close-    close                                   ,----- ** computeChecksumForBytes-    computeChecksumForBytes                 ,----- ** computeChecksumForData-    computeChecksumForData                  ,----- ** computeChecksumForString-    computeChecksumForString                ,----- ** computeHmacForData-    computeHmacForData                      ,----- ** computeHmacForString-    computeHmacForString                    ,----- ** convert-    convert                                 ,----- ** convertErrorQuark-    convertErrorQuark                       ,----- ** convertWithFallback-    convertWithFallback                     ,----- ** convertWithIconv-    convertWithIconv                        ,----- ** datalistClear-    datalistClear                           ,----- ** datalistGetFlags-    datalistGetFlags                        ,----- ** datalistIdReplaceData-    datalistIdReplaceData                   ,----- ** datalistIdSetDataFull-    datalistIdSetDataFull                   ,----- ** datalistInit-    datalistInit                            ,----- ** datalistSetFlags-    datalistSetFlags                        ,----- ** datalistUnsetFlags-    datalistUnsetFlags                      ,----- ** datasetDestroy-    datasetDestroy                          ,----- ** datasetIdSetDataFull-    datasetIdSetDataFull                    ,----- ** dateGetDaysInMonth-    dateGetDaysInMonth                      ,----- ** dateGetMondayWeeksInYear-    dateGetMondayWeeksInYear                ,----- ** dateGetSundayWeeksInYear-    dateGetSundayWeeksInYear                ,----- ** dateIsLeapYear-    dateIsLeapYear                          ,----- ** dateStrftime-    dateStrftime                            ,----- ** dateTimeCompare-    dateTimeCompare                         ,----- ** dateTimeEqual-    dateTimeEqual                           ,----- ** dateTimeHash-    dateTimeHash                            ,----- ** dateValidDay-    dateValidDay                            ,----- ** dateValidDmy-    dateValidDmy                            ,----- ** dateValidJulian-    dateValidJulian                         ,----- ** dateValidMonth-    dateValidMonth                          ,----- ** dateValidWeekday-    dateValidWeekday                        ,----- ** dateValidYear-    dateValidYear                           ,----- ** dcgettext-    dcgettext                               ,----- ** dgettext-    dgettext                                ,----- ** dirMakeTmp-    dirMakeTmp                              ,----- ** directEqual-    directEqual                             ,----- ** directHash-    directHash                              ,----- ** dngettext-    dngettext                               ,----- ** doubleEqual-    doubleEqual                             ,----- ** doubleHash-    doubleHash                              ,----- ** dpgettext-    dpgettext                               ,----- ** dpgettext2-    dpgettext2                              ,----- ** environGetenv-    environGetenv                           ,----- ** environSetenv-    environSetenv                           ,----- ** environUnsetenv-    environUnsetenv                         ,----- ** fileErrorFromErrno-    fileErrorFromErrno                      ,----- ** fileErrorQuark-    fileErrorQuark                          ,----- ** fileGetContents-    fileGetContents                         ,----- ** fileOpenTmp-    fileOpenTmp                             ,----- ** fileReadLink-    fileReadLink                            ,----- ** fileSetContents-    fileSetContents                         ,----- ** fileTest-    fileTest                                ,----- ** filenameDisplayBasename-    filenameDisplayBasename                 ,----- ** filenameDisplayName-    filenameDisplayName                     ,----- ** filenameFromUri-    filenameFromUri                         ,----- ** filenameFromUtf8-    filenameFromUtf8                        ,----- ** filenameToUri-    filenameToUri                           ,----- ** filenameToUtf8-    filenameToUtf8                          ,----- ** findProgramInPath-    findProgramInPath                       ,----- ** formatSize-    formatSize                              ,----- ** formatSizeForDisplay-    formatSizeForDisplay                    ,----- ** formatSizeFull-    formatSizeFull                          ,----- ** free-    free                                    ,----- ** getApplicationName-    getApplicationName                      ,----- ** getCharset-    getCharset                              ,----- ** getCodeset-    getCodeset                              ,----- ** getCurrentDir-    getCurrentDir                           ,----- ** getCurrentTime-    getCurrentTime                          ,----- ** getEnviron-    getEnviron                              ,----- ** getFilenameCharsets-    getFilenameCharsets                     ,----- ** getHomeDir-    getHomeDir                              ,----- ** getHostName-    getHostName                             ,----- ** getLanguageNames-    getLanguageNames                        ,----- ** getLocaleVariants-    getLocaleVariants                       ,----- ** getMonotonicTime-    getMonotonicTime                        ,----- ** getNumProcessors-    getNumProcessors                        ,----- ** getPrgname-    getPrgname                              ,----- ** getRealName-    getRealName                             ,----- ** getRealTime-    getRealTime                             ,----- ** getSystemConfigDirs-    getSystemConfigDirs                     ,----- ** getSystemDataDirs-    getSystemDataDirs                       ,----- ** getTmpDir-    getTmpDir                               ,----- ** getUserCacheDir-    getUserCacheDir                         ,----- ** getUserConfigDir-    getUserConfigDir                        ,----- ** getUserDataDir-    getUserDataDir                          ,----- ** getUserName-    getUserName                             ,----- ** getUserRuntimeDir-    getUserRuntimeDir                       ,----- ** getUserSpecialDir-    getUserSpecialDir                       ,----- ** getenv-    getenv                                  ,----- ** hashTableAdd-    hashTableAdd                            ,----- ** hashTableContains-    hashTableContains                       ,----- ** hashTableDestroy-    hashTableDestroy                        ,----- ** hashTableInsert-    hashTableInsert                         ,----- ** hashTableLookupExtended-    hashTableLookupExtended                 ,----- ** hashTableRemove-    hashTableRemove                         ,----- ** hashTableRemoveAll-    hashTableRemoveAll                      ,----- ** hashTableReplace-    hashTableReplace                        ,----- ** hashTableSize-    hashTableSize                           ,----- ** hashTableSteal-    hashTableSteal                          ,----- ** hashTableStealAll-    hashTableStealAll                       ,----- ** hashTableUnref-    hashTableUnref                          ,----- ** hookDestroy-    hookDestroy                             ,----- ** hookDestroyLink-    hookDestroyLink                         ,----- ** hookFree-    hookFree                                ,----- ** hookInsertBefore-    hookInsertBefore                        ,----- ** hookPrepend-    hookPrepend                             ,----- ** hookUnref-    hookUnref                               ,----- ** hostnameIsAsciiEncoded-    hostnameIsAsciiEncoded                  ,----- ** hostnameIsIpAddress-    hostnameIsIpAddress                     ,----- ** hostnameIsNonAscii-    hostnameIsNonAscii                      ,----- ** hostnameToAscii-    hostnameToAscii                         ,----- ** hostnameToUnicode-    hostnameToUnicode                       ,----- ** iconv-    iconv                                   ,----- ** idleAdd-    idleAdd                                 ,----- ** idleRemoveByData-    idleRemoveByData                        ,----- ** idleSourceNew-    idleSourceNew                           ,----- ** int64Equal-    int64Equal                              ,----- ** int64Hash-    int64Hash                               ,----- ** intEqual-    intEqual                                ,----- ** intHash-    intHash                                 ,----- ** internStaticString-    internStaticString                      ,----- ** internString-    internString                            ,----- ** ioAddWatch-    ioAddWatch                              ,----- ** ioChannelErrorFromErrno-    ioChannelErrorFromErrno                 ,----- ** ioChannelErrorQuark-    ioChannelErrorQuark                     ,----- ** ioCreateWatch-    ioCreateWatch                           ,----- ** keyFileErrorQuark-    keyFileErrorQuark                       ,----- ** listenv-    listenv                                 ,----- ** localeFromUtf8-    localeFromUtf8                          ,----- ** localeToUtf8-    localeToUtf8                            ,----- ** logDefaultHandler-    logDefaultHandler                       ,----- ** logRemoveHandler-    logRemoveHandler                        ,----- ** logSetAlwaysFatal-    logSetAlwaysFatal                       ,----- ** logSetFatalMask-    logSetFatalMask                         ,----- ** mainContextDefault-    mainContextDefault                      ,----- ** mainContextGetThreadDefault-    mainContextGetThreadDefault             ,----- ** mainContextRefThreadDefault-    mainContextRefThreadDefault             ,----- ** mainCurrentSource-    mainCurrentSource                       ,----- ** mainDepth-    mainDepth                               ,----- ** markupErrorQuark-    markupErrorQuark                        ,----- ** markupEscapeText-    markupEscapeText                        ,----- ** memIsSystemMalloc-    memIsSystemMalloc                       ,----- ** memProfile-    memProfile                              ,----- ** memSetVtable-    memSetVtable                            ,----- ** mkdirWithParents-    mkdirWithParents                        ,----- ** mkdtemp-    mkdtemp                                 ,----- ** mkdtempFull-    mkdtempFull                             ,----- ** mkstemp-    mkstemp                                 ,----- ** mkstempFull-    mkstempFull                             ,----- ** nullifyPointer-    nullifyPointer                          ,----- ** onErrorQuery-    onErrorQuery                            ,----- ** onErrorStackTrace-    onErrorStackTrace                       ,----- ** onceInitEnter-    onceInitEnter                           ,----- ** onceInitLeave-    onceInitLeave                           ,----- ** optionErrorQuark-    optionErrorQuark                        ,----- ** parseDebugString-    parseDebugString                        ,----- ** pathGetBasename-    pathGetBasename                         ,----- ** pathGetDirname-    pathGetDirname                          ,----- ** pathIsAbsolute-    pathIsAbsolute                          ,----- ** pathSkipRoot-    pathSkipRoot                            ,----- ** patternMatch-    patternMatch                            ,----- ** patternMatchSimple-    patternMatchSimple                      ,----- ** patternMatchString-    patternMatchString                      ,----- ** pointerBitLock-    pointerBitLock                          ,----- ** pointerBitTrylock-    pointerBitTrylock                       ,----- ** pointerBitUnlock-    pointerBitUnlock                        ,----- ** poll-    poll                                    ,----- ** propagateError-    propagateError                          ,----- ** quarkFromStaticString-    quarkFromStaticString                   ,----- ** quarkFromString-    quarkFromString                         ,----- ** quarkToString-    quarkToString                           ,----- ** quarkTryString-    quarkTryString                          ,----- ** randomDouble-    randomDouble                            ,----- ** randomDoubleRange-    randomDoubleRange                       ,----- ** randomInt-    randomInt                               ,----- ** randomIntRange-    randomIntRange                          ,----- ** randomSetSeed-    randomSetSeed                           ,----- ** regexCheckReplacement-    regexCheckReplacement                   ,----- ** regexErrorQuark-    regexErrorQuark                         ,----- ** regexEscapeNul-    regexEscapeNul                          ,----- ** regexEscapeString-    regexEscapeString                       ,----- ** regexMatchSimple-    regexMatchSimple                        ,----- ** regexSplitSimple-    regexSplitSimple                        ,----- ** reloadUserSpecialDirsCache-    reloadUserSpecialDirsCache              ,----- ** returnIfFailWarning-    returnIfFailWarning                     ,----- ** rmdir-    rmdir                                   ,----- ** sequenceMove-    sequenceMove                            ,----- ** sequenceMoveRange-    sequenceMoveRange                       ,----- ** sequenceRemove-    sequenceRemove                          ,----- ** sequenceRemoveRange-    sequenceRemoveRange                     ,----- ** sequenceSet-    sequenceSet                             ,----- ** sequenceSwap-    sequenceSwap                            ,----- ** setApplicationName-    setApplicationName                      ,----- ** setErrorLiteral-    setErrorLiteral                         ,----- ** setPrgname-    setPrgname                              ,----- ** setenv-    setenv                                  ,----- ** shellErrorQuark-    shellErrorQuark                         ,----- ** shellParseArgv-    shellParseArgv                          ,----- ** shellQuote-    shellQuote                              ,----- ** shellUnquote-    shellUnquote                            ,----- ** sliceFree1-    sliceFree1                              ,----- ** sliceFreeChainWithOffset-    sliceFreeChainWithOffset                ,----- ** sliceGetConfig-    sliceGetConfig                          ,----- ** sliceGetConfigState-    sliceGetConfigState                     ,----- ** sliceSetConfig-    sliceSetConfig                          ,----- ** sourceRemove-    sourceRemove                            ,----- ** sourceRemoveByFuncsUserData-    sourceRemoveByFuncsUserData             ,----- ** sourceRemoveByUserData-    sourceRemoveByUserData                  ,----- ** sourceSetNameById-    sourceSetNameById                       ,----- ** spacedPrimesClosest-    spacedPrimesClosest                     ,----- ** spawnAsync-    spawnAsync                              ,----- ** spawnAsyncWithPipes-    spawnAsyncWithPipes                     ,----- ** spawnCheckExitStatus-    spawnCheckExitStatus                    ,----- ** spawnClosePid-    spawnClosePid                           ,----- ** spawnCommandLineAsync-    spawnCommandLineAsync                   ,----- ** spawnCommandLineSync-    spawnCommandLineSync                    ,----- ** spawnErrorQuark-    spawnErrorQuark                         ,----- ** spawnExitErrorQuark-    spawnExitErrorQuark                     ,----- ** spawnSync-    spawnSync                               ,----- ** stpcpy-    stpcpy                                  ,----- ** strEqual-    strEqual                                ,----- ** strHasPrefix-    strHasPrefix                            ,----- ** strHasSuffix-    strHasSuffix                            ,----- ** strHash-    strHash                                 ,----- ** strIsAscii-    strIsAscii                              ,----- ** strMatchString-    strMatchString                          ,----- ** strToAscii-    strToAscii                              ,----- ** strTokenizeAndFold-    strTokenizeAndFold                      ,----- ** strcanon-    strcanon                                ,----- ** strcasecmp-    strcasecmp                              ,----- ** strchomp-    strchomp                                ,----- ** strchug-    strchug                                 ,----- ** strcmp0-    strcmp0                                 ,----- ** strcompress-    strcompress                             ,----- ** strdelimit-    strdelimit                              ,----- ** strdown-    strdown                                 ,----- ** strdup-    strdup                                  ,----- ** strerror-    strerror                                ,----- ** strescape-    strescape                               ,----- ** strfreev-    strfreev                                ,----- ** stringNew-    stringNew                               ,----- ** stringNewLen-    stringNewLen                            ,----- ** stringSizedNew-    stringSizedNew                          ,----- ** stripContext-    stripContext                            ,----- ** strjoinv-    strjoinv                                ,----- ** strlcat-    strlcat                                 ,----- ** strlcpy-    strlcpy                                 ,----- ** strncasecmp-    strncasecmp                             ,----- ** strndup-    strndup                                 ,----- ** strnfill-    strnfill                                ,----- ** strreverse-    strreverse                              ,----- ** strrstr-    strrstr                                 ,----- ** strrstrLen-    strrstrLen                              ,----- ** strsignal-    strsignal                               ,----- ** strstrLen-    strstrLen                               ,----- ** strtod-    strtod                                  ,----- ** strup-    strup                                   ,----- ** strvContains-    strvContains                            ,----- ** strvGetType-    strvGetType                             ,----- ** strvLength-    strvLength                              ,----- ** testAddDataFunc-    testAddDataFunc                         ,----- ** testAddFunc-    testAddFunc                             ,----- ** testAssertExpectedMessagesInternal-    testAssertExpectedMessagesInternal      ,----- ** testBug-    testBug                                 ,----- ** testBugBase-    testBugBase                             ,----- ** testExpectMessage-    testExpectMessage                       ,----- ** testFail-    testFail                                ,----- ** testFailed-    testFailed                              ,----- ** testGetDir-    testGetDir                              ,----- ** testIncomplete-    testIncomplete                          ,----- ** testLogTypeName-    testLogTypeName                         ,----- ** testQueueDestroy-    testQueueDestroy                        ,----- ** testQueueFree-    testQueueFree                           ,----- ** testRandDouble-    testRandDouble                          ,----- ** testRandDoubleRange-    testRandDoubleRange                     ,----- ** testRandInt-    testRandInt                             ,----- ** testRandIntRange-    testRandIntRange                        ,----- ** testRun-    testRun                                 ,----- ** testRunSuite-    testRunSuite                            ,----- ** testSetNonfatalAssertions-    testSetNonfatalAssertions               ,----- ** testSkip-    testSkip                                ,----- ** testSubprocess-    testSubprocess                          ,----- ** testTimerElapsed-    testTimerElapsed                        ,----- ** testTimerLast-    testTimerLast                           ,----- ** testTimerStart-    testTimerStart                          ,----- ** testTrapAssertions-    testTrapAssertions                      ,----- ** testTrapFork-    testTrapFork                            ,----- ** testTrapHasPassed-    testTrapHasPassed                       ,----- ** testTrapReachedTimeout-    testTrapReachedTimeout                  ,----- ** testTrapSubprocess-    testTrapSubprocess                      ,----- ** threadErrorQuark-    threadErrorQuark                        ,----- ** threadExit-    threadExit                              ,----- ** threadPoolGetMaxIdleTime-    threadPoolGetMaxIdleTime                ,----- ** threadPoolGetMaxUnusedThreads-    threadPoolGetMaxUnusedThreads           ,----- ** threadPoolGetNumUnusedThreads-    threadPoolGetNumUnusedThreads           ,----- ** threadPoolSetMaxIdleTime-    threadPoolSetMaxIdleTime                ,----- ** threadPoolSetMaxUnusedThreads-    threadPoolSetMaxUnusedThreads           ,----- ** threadPoolStopUnusedThreads-    threadPoolStopUnusedThreads             ,----- ** threadSelf-    threadSelf                              ,----- ** threadYield-    threadYield                             ,----- ** timeValFromIso8601-    timeValFromIso8601                      ,----- ** timeoutAdd-    timeoutAdd                              ,----- ** timeoutAddSeconds-    timeoutAddSeconds                       ,----- ** timeoutSourceNew-    timeoutSourceNew                        ,----- ** timeoutSourceNewSeconds-    timeoutSourceNewSeconds                 ,----- ** trashStackHeight-    trashStackHeight                        ,----- ** trashStackPush-    trashStackPush                          ,----- ** unicharBreakType-    unicharBreakType                        ,----- ** unicharCombiningClass-    unicharCombiningClass                   ,----- ** unicharCompose-    unicharCompose                          ,----- ** unicharDecompose-    unicharDecompose                        ,----- ** unicharDigitValue-    unicharDigitValue                       ,----- ** unicharGetMirrorChar-    unicharGetMirrorChar                    ,----- ** unicharGetScript-    unicharGetScript                        ,----- ** unicharIsalnum-    unicharIsalnum                          ,----- ** unicharIsalpha-    unicharIsalpha                          ,----- ** unicharIscntrl-    unicharIscntrl                          ,----- ** unicharIsdefined-    unicharIsdefined                        ,----- ** unicharIsdigit-    unicharIsdigit                          ,----- ** unicharIsgraph-    unicharIsgraph                          ,----- ** unicharIslower-    unicharIslower                          ,----- ** unicharIsmark-    unicharIsmark                           ,----- ** unicharIsprint-    unicharIsprint                          ,----- ** unicharIspunct-    unicharIspunct                          ,----- ** unicharIsspace-    unicharIsspace                          ,----- ** unicharIstitle-    unicharIstitle                          ,----- ** unicharIsupper-    unicharIsupper                          ,----- ** unicharIswide-    unicharIswide                           ,----- ** unicharIswideCjk-    unicharIswideCjk                        ,----- ** unicharIsxdigit-    unicharIsxdigit                         ,----- ** unicharIszerowidth-    unicharIszerowidth                      ,----- ** unicharToUtf8-    unicharToUtf8                           ,----- ** unicharTolower-    unicharTolower                          ,----- ** unicharTotitle-    unicharTotitle                          ,----- ** unicharToupper-    unicharToupper                          ,----- ** unicharType-    unicharType                             ,----- ** unicharValidate-    unicharValidate                         ,----- ** unicharXdigitValue-    unicharXdigitValue                      ,----- ** unicodeCanonicalDecomposition-    unicodeCanonicalDecomposition           ,----- ** unicodeCanonicalOrdering-    unicodeCanonicalOrdering                ,----- ** unicodeScriptFromIso15924-    unicodeScriptFromIso15924               ,----- ** unicodeScriptToIso15924-    unicodeScriptToIso15924                 ,----- ** unixErrorQuark-    unixErrorQuark                          ,----- ** unixFdAddFull-    unixFdAddFull                           ,----- ** unixFdSourceNew-    unixFdSourceNew                         ,----- ** unixOpenPipe-    unixOpenPipe                            ,----- ** unixSetFdNonblocking-    unixSetFdNonblocking                    ,----- ** unixSignalAdd-    unixSignalAdd                           ,----- ** unixSignalSourceNew-    unixSignalSourceNew                     ,----- ** unlink-    unlink                                  ,----- ** unsetenv-    unsetenv                                ,----- ** uriEscapeString-    uriEscapeString                         ,----- ** uriListExtractUris-    uriListExtractUris                      ,----- ** uriParseScheme-    uriParseScheme                          ,----- ** uriUnescapeSegment-    uriUnescapeSegment                      ,----- ** uriUnescapeString-    uriUnescapeString                       ,----- ** usleep-    usleep                                  ,----- ** utf8Casefold-    utf8Casefold                            ,----- ** utf8Collate-    utf8Collate                             ,----- ** utf8CollateKey-    utf8CollateKey                          ,----- ** utf8CollateKeyForFilename-    utf8CollateKeyForFilename               ,----- ** utf8FindNextChar-    utf8FindNextChar                        ,----- ** utf8FindPrevChar-    utf8FindPrevChar                        ,----- ** utf8GetChar-    utf8GetChar                             ,----- ** utf8GetCharValidated-    utf8GetCharValidated                    ,----- ** utf8Normalize-    utf8Normalize                           ,----- ** utf8OffsetToPointer-    utf8OffsetToPointer                     ,----- ** utf8PointerToOffset-    utf8PointerToOffset                     ,----- ** utf8PrevChar-    utf8PrevChar                            ,----- ** utf8Strchr-    utf8Strchr                              ,----- ** utf8Strdown-    utf8Strdown                             ,----- ** utf8Strlen-    utf8Strlen                              ,----- ** utf8Strncpy-    utf8Strncpy                             ,----- ** utf8Strrchr-    utf8Strrchr                             ,----- ** utf8Strreverse-    utf8Strreverse                          ,----- ** utf8Strup-    utf8Strup                               ,----- ** utf8Substring-    utf8Substring                           ,----- ** utf8Validate-    utf8Validate                            ,----- ** variantGetGtype-    variantGetGtype                         ,----- ** variantIsObjectPath-    variantIsObjectPath                     ,----- ** variantIsSignature-    variantIsSignature                      ,----- ** variantParse-    variantParse                            ,----- ** variantParseErrorPrintContext-    variantParseErrorPrintContext           ,----- ** variantParseErrorQuark-    variantParseErrorQuark                  ,----- ** variantParserGetErrorQuark-    variantParserGetErrorQuark              ,----- ** variantTypeChecked_-    variantTypeChecked_                     ,----- ** variantTypeStringIsValid-    variantTypeStringIsValid                ,----- ** variantTypeStringScan-    variantTypeStringScan                   ,----- ** warnMessage-    warnMessage                             ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks---- function g_warn_message--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warnexpr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warnexpr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_warn_message" g_warn_message :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- file : TBasicType TUTF8-    Int32 ->                                -- line : TBasicType TInt32-    CString ->                              -- func : TBasicType TUTF8-    CString ->                              -- warnexpr : TBasicType TUTF8-    IO ()---warnMessage ::-    (MonadIO m) =>-    T.Text ->                               -- domain-    T.Text ->                               -- file-    Int32 ->                                -- line-    T.Text ->                               -- func-    T.Text ->                               -- warnexpr-    m ()-warnMessage domain file line func warnexpr = liftIO $ do-    domain' <- textToCString domain-    file' <- textToCString file-    func' <- textToCString func-    warnexpr' <- textToCString warnexpr-    g_warn_message domain' file' line func' warnexpr'-    freeMem domain'-    freeMem file'-    freeMem func'-    freeMem warnexpr'-    return ()----- function g_variant_type_string_scan--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_string_scan" g_variant_type_string_scan :: -    CString ->                              -- string : TBasicType TUTF8-    CString ->                              -- limit : TBasicType TUTF8-    Ptr CString ->                          -- endptr : TBasicType TUTF8-    IO CInt---variantTypeStringScan ::-    (MonadIO m) =>-    T.Text ->                               -- string-    Maybe (T.Text) ->                       -- limit-    m (Bool,T.Text)-variantTypeStringScan string limit = liftIO $ do-    string' <- textToCString string-    maybeLimit <- case limit of-        Nothing -> return nullPtr-        Just jLimit -> do-            jLimit' <- textToCString jLimit-            return jLimit'-    endptr <- allocMem :: IO (Ptr CString)-    result <- g_variant_type_string_scan string' maybeLimit endptr-    let result' = (/= 0) result-    endptr' <- peek endptr-    endptr'' <- cstringToText endptr'-    freeMem endptr'-    freeMem string'-    freeMem maybeLimit-    freeMem endptr-    return (result', endptr'')----- function g_variant_type_string_is_valid--- Args : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_string_is_valid" g_variant_type_string_is_valid :: -    CString ->                              -- type_string : TBasicType TUTF8-    IO CInt---variantTypeStringIsValid ::-    (MonadIO m) =>-    T.Text ->                               -- type_string-    m Bool-variantTypeStringIsValid type_string = liftIO $ do-    type_string' <- textToCString type_string-    result <- g_variant_type_string_is_valid type_string'-    let result' = (/= 0) result-    freeMem type_string'-    return result'----- function g_variant_type_checked_--- Args : [Arg {argName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_checked_" g_variant_type_checked_ :: -    CString ->                              -- arg0 : TBasicType TUTF8-    IO (Ptr VariantType)---variantTypeChecked_ ::-    (MonadIO m) =>-    T.Text ->                               -- arg0-    m VariantType-variantTypeChecked_ arg0 = liftIO $ do-    arg0' <- textToCString arg0-    result <- g_variant_type_checked_ arg0'-    checkUnexpectedReturnNULL "g_variant_type_checked_" result-    result' <- (newBoxed VariantType) result-    freeMem arg0'-    return result'----- function g_variant_parser_get_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_variant_parser_get_error_quark" g_variant_parser_get_error_quark :: -    IO Word32--{-# DEPRECATED variantParserGetErrorQuark ["Use g_variant_parse_error_quark() instead."]#-}-variantParserGetErrorQuark ::-    (MonadIO m) =>-    m Word32-variantParserGetErrorQuark  = liftIO $ do-    result <- g_variant_parser_get_error_quark-    return result----- function g_variant_parse_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_variant_parse_error_quark" g_variant_parse_error_quark :: -    IO Word32---variantParseErrorQuark ::-    (MonadIO m) =>-    m Word32-variantParseErrorQuark  = liftIO $ do-    result <- g_variant_parse_error_quark-    return result----- function g_variant_parse_error_print_context--- Args : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_variant_parse_error_print_context" g_variant_parse_error_print_context :: -    Ptr GError ->                           -- error : TError-    CString ->                              -- source_str : TBasicType TUTF8-    IO CString---variantParseErrorPrintContext ::-    (MonadIO m) =>-    GError ->                               -- error-    T.Text ->                               -- source_str-    m T.Text-variantParseErrorPrintContext error_ source_str = liftIO $ do-    let error_' = unsafeManagedPtrGetPtr error_-    source_str' <- textToCString source_str-    result <- g_variant_parse_error_print_context error_' source_str'-    checkUnexpectedReturnNULL "g_variant_parse_error_print_context" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr error_-    freeMem source_str'-    return result'----- function g_variant_parse--- Args : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TVariant--- throws : True--- Skip return : False--foreign import ccall "g_variant_parse" g_variant_parse :: -    Ptr VariantType ->                      -- type : TInterface "GLib" "VariantType"-    CString ->                              -- text : TBasicType TUTF8-    CString ->                              -- limit : TBasicType TUTF8-    CString ->                              -- endptr : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---variantParse ::-    (MonadIO m) =>-    Maybe (VariantType) ->                  -- type-    T.Text ->                               -- text-    Maybe (T.Text) ->                       -- limit-    Maybe (T.Text) ->                       -- endptr-    m GVariant-variantParse type_ text limit endptr = liftIO $ do-    maybeType_ <- case type_ of-        Nothing -> return nullPtr-        Just jType_ -> do-            let jType_' = unsafeManagedPtrGetPtr jType_-            return jType_'-    text' <- textToCString text-    maybeLimit <- case limit of-        Nothing -> return nullPtr-        Just jLimit -> do-            jLimit' <- textToCString jLimit-            return jLimit'-    maybeEndptr <- case endptr of-        Nothing -> return nullPtr-        Just jEndptr -> do-            jEndptr' <- textToCString jEndptr-            return jEndptr'-    onException (do-        result <- propagateGError $ g_variant_parse maybeType_ text' maybeLimit maybeEndptr-        checkUnexpectedReturnNULL "g_variant_parse" result-        result' <- wrapGVariantPtr result-        whenJust type_ touchManagedPtr-        freeMem text'-        freeMem maybeLimit-        freeMem maybeEndptr-        return result'-     ) (do-        freeMem text'-        freeMem maybeLimit-        freeMem maybeEndptr-     )----- function g_variant_is_signature--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_is_signature" g_variant_is_signature :: -    CString ->                              -- string : TBasicType TUTF8-    IO CInt---variantIsSignature ::-    (MonadIO m) =>-    T.Text ->                               -- string-    m Bool-variantIsSignature string = liftIO $ do-    string' <- textToCString string-    result <- g_variant_is_signature string'-    let result' = (/= 0) result-    freeMem string'-    return result'----- function g_variant_is_object_path--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_is_object_path" g_variant_is_object_path :: -    CString ->                              -- string : TBasicType TUTF8-    IO CInt---variantIsObjectPath ::-    (MonadIO m) =>-    T.Text ->                               -- string-    m Bool-variantIsObjectPath string = liftIO $ do-    string' <- textToCString string-    result <- g_variant_is_object_path string'-    let result' = (/= 0) result-    freeMem string'-    return result'----- function g_variant_get_gtype--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TGType--- throws : False--- Skip return : False--foreign import ccall "g_variant_get_gtype" g_variant_get_gtype :: -    IO CGType---variantGetGtype ::-    (MonadIO m) =>-    m GType-variantGetGtype  = liftIO $ do-    result <- g_variant_get_gtype-    let result' = GType result-    return result'----- function g_utf8_validate--- Args : [Arg {argName = "str", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "str", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_utf8_validate" g_utf8_validate :: -    Ptr Word8 ->                            -- str : TCArray False (-1) 1 (TBasicType TUInt8)-    Int64 ->                                -- max_len : TBasicType TInt64-    Ptr CString ->                          -- end : TBasicType TUTF8-    IO CInt---utf8Validate ::-    (MonadIO m) =>-    ByteString ->                           -- str-    m (Bool,T.Text)-utf8Validate str = liftIO $ do-    let max_len = fromIntegral $ B.length str-    str' <- packByteString str-    end <- allocMem :: IO (Ptr CString)-    result <- g_utf8_validate str' max_len end-    let result' = (/= 0) result-    end' <- peek end-    end'' <- cstringToText end'-    freeMem str'-    freeMem end-    return (result', end'')----- function g_utf8_substring--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_substring" g_utf8_substring :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- start_pos : TBasicType TInt64-    Int64 ->                                -- end_pos : TBasicType TInt64-    IO CString---utf8Substring ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- start_pos-    Int64 ->                                -- end_pos-    m T.Text-utf8Substring str start_pos end_pos = liftIO $ do-    str' <- textToCString str-    result <- g_utf8_substring str' start_pos end_pos-    checkUnexpectedReturnNULL "g_utf8_substring" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_utf8_strup--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_strup" g_utf8_strup :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO CString---utf8Strup ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    m T.Text-utf8Strup str len = liftIO $ do-    str' <- textToCString str-    result <- g_utf8_strup str' len-    checkUnexpectedReturnNULL "g_utf8_strup" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_utf8_strreverse--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_strreverse" g_utf8_strreverse :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO CString---utf8Strreverse ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    m T.Text-utf8Strreverse str len = liftIO $ do-    str' <- textToCString str-    result <- g_utf8_strreverse str' len-    checkUnexpectedReturnNULL "g_utf8_strreverse" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_utf8_strrchr--- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_strrchr" g_utf8_strrchr :: -    CString ->                              -- p : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    CInt ->                                 -- c : TBasicType TUniChar-    IO CString---utf8Strrchr ::-    (MonadIO m) =>-    T.Text ->                               -- p-    Int64 ->                                -- len-    Char ->                                 -- c-    m T.Text-utf8Strrchr p len c = liftIO $ do-    p' <- textToCString p-    let c' = (fromIntegral . ord) c-    result <- g_utf8_strrchr p' len c'-    checkUnexpectedReturnNULL "g_utf8_strrchr" result-    result' <- cstringToText result-    freeMem result-    freeMem p'-    return result'----- function g_utf8_strncpy--- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_strncpy" g_utf8_strncpy :: -    CString ->                              -- dest : TBasicType TUTF8-    CString ->                              -- src : TBasicType TUTF8-    Word64 ->                               -- n : TBasicType TUInt64-    IO CString---utf8Strncpy ::-    (MonadIO m) =>-    T.Text ->                               -- dest-    T.Text ->                               -- src-    Word64 ->                               -- n-    m T.Text-utf8Strncpy dest src n = liftIO $ do-    dest' <- textToCString dest-    src' <- textToCString src-    result <- g_utf8_strncpy dest' src' n-    checkUnexpectedReturnNULL "g_utf8_strncpy" result-    result' <- cstringToText result-    freeMem result-    freeMem dest'-    freeMem src'-    return result'----- function g_utf8_strlen--- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_utf8_strlen" g_utf8_strlen :: -    CString ->                              -- p : TBasicType TUTF8-    Int64 ->                                -- max : TBasicType TInt64-    IO Int64---utf8Strlen ::-    (MonadIO m) =>-    T.Text ->                               -- p-    Int64 ->                                -- max-    m Int64-utf8Strlen p max = liftIO $ do-    p' <- textToCString p-    result <- g_utf8_strlen p' max-    freeMem p'-    return result----- function g_utf8_strdown--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_strdown" g_utf8_strdown :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO CString---utf8Strdown ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    m T.Text-utf8Strdown str len = liftIO $ do-    str' <- textToCString str-    result <- g_utf8_strdown str' len-    checkUnexpectedReturnNULL "g_utf8_strdown" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_utf8_strchr--- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_strchr" g_utf8_strchr :: -    CString ->                              -- p : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    CInt ->                                 -- c : TBasicType TUniChar-    IO CString---utf8Strchr ::-    (MonadIO m) =>-    T.Text ->                               -- p-    Int64 ->                                -- len-    Char ->                                 -- c-    m T.Text-utf8Strchr p len c = liftIO $ do-    p' <- textToCString p-    let c' = (fromIntegral . ord) c-    result <- g_utf8_strchr p' len c'-    checkUnexpectedReturnNULL "g_utf8_strchr" result-    result' <- cstringToText result-    freeMem result-    freeMem p'-    return result'----- function g_utf8_prev_char--- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_prev_char" g_utf8_prev_char :: -    CString ->                              -- p : TBasicType TUTF8-    IO CString---utf8PrevChar ::-    (MonadIO m) =>-    T.Text ->                               -- p-    m T.Text-utf8PrevChar p = liftIO $ do-    p' <- textToCString p-    result <- g_utf8_prev_char p'-    checkUnexpectedReturnNULL "g_utf8_prev_char" result-    result' <- cstringToText result-    freeMem result-    freeMem p'-    return result'----- function g_utf8_pointer_to_offset--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_utf8_pointer_to_offset" g_utf8_pointer_to_offset :: -    CString ->                              -- str : TBasicType TUTF8-    CString ->                              -- pos : TBasicType TUTF8-    IO Int64---utf8PointerToOffset ::-    (MonadIO m) =>-    T.Text ->                               -- str-    T.Text ->                               -- pos-    m Int64-utf8PointerToOffset str pos = liftIO $ do-    str' <- textToCString str-    pos' <- textToCString pos-    result <- g_utf8_pointer_to_offset str' pos'-    freeMem str'-    freeMem pos'-    return result----- function g_utf8_offset_to_pointer--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_offset_to_pointer" g_utf8_offset_to_pointer :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- offset : TBasicType TInt64-    IO CString---utf8OffsetToPointer ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- offset-    m T.Text-utf8OffsetToPointer str offset = liftIO $ do-    str' <- textToCString str-    result <- g_utf8_offset_to_pointer str' offset-    checkUnexpectedReturnNULL "g_utf8_offset_to_pointer" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_utf8_normalize--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "GLib" "NormalizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "GLib" "NormalizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_normalize" g_utf8_normalize :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    CUInt ->                                -- mode : TInterface "GLib" "NormalizeMode"-    IO CString---utf8Normalize ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    NormalizeMode ->                        -- mode-    m T.Text-utf8Normalize str len mode = liftIO $ do-    str' <- textToCString str-    let mode' = (fromIntegral . fromEnum) mode-    result <- g_utf8_normalize str' len mode'-    checkUnexpectedReturnNULL "g_utf8_normalize" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_utf8_get_char_validated--- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUniChar--- throws : False--- Skip return : False--foreign import ccall "g_utf8_get_char_validated" g_utf8_get_char_validated :: -    CString ->                              -- p : TBasicType TUTF8-    Int64 ->                                -- max_len : TBasicType TInt64-    IO CInt---utf8GetCharValidated ::-    (MonadIO m) =>-    T.Text ->                               -- p-    Int64 ->                                -- max_len-    m Char-utf8GetCharValidated p max_len = liftIO $ do-    p' <- textToCString p-    result <- g_utf8_get_char_validated p' max_len-    let result' = (chr . fromIntegral) result-    freeMem p'-    return result'----- function g_utf8_get_char--- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUniChar--- throws : False--- Skip return : False--foreign import ccall "g_utf8_get_char" g_utf8_get_char :: -    CString ->                              -- p : TBasicType TUTF8-    IO CInt---utf8GetChar ::-    (MonadIO m) =>-    T.Text ->                               -- p-    m Char-utf8GetChar p = liftIO $ do-    p' <- textToCString p-    result <- g_utf8_get_char p'-    let result' = (chr . fromIntegral) result-    freeMem p'-    return result'----- function g_utf8_find_prev_char--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_find_prev_char" g_utf8_find_prev_char :: -    CString ->                              -- str : TBasicType TUTF8-    CString ->                              -- p : TBasicType TUTF8-    IO CString---utf8FindPrevChar ::-    (MonadIO m) =>-    T.Text ->                               -- str-    T.Text ->                               -- p-    m T.Text-utf8FindPrevChar str p = liftIO $ do-    str' <- textToCString str-    p' <- textToCString p-    result <- g_utf8_find_prev_char str' p'-    checkUnexpectedReturnNULL "g_utf8_find_prev_char" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    freeMem p'-    return result'----- function g_utf8_find_next_char--- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_find_next_char" g_utf8_find_next_char :: -    CString ->                              -- p : TBasicType TUTF8-    CString ->                              -- end : TBasicType TUTF8-    IO CString---utf8FindNextChar ::-    (MonadIO m) =>-    T.Text ->                               -- p-    T.Text ->                               -- end-    m T.Text-utf8FindNextChar p end = liftIO $ do-    p' <- textToCString p-    end' <- textToCString end-    result <- g_utf8_find_next_char p' end'-    checkUnexpectedReturnNULL "g_utf8_find_next_char" result-    result' <- cstringToText result-    freeMem result-    freeMem p'-    freeMem end'-    return result'----- function g_utf8_collate_key_for_filename--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_collate_key_for_filename" g_utf8_collate_key_for_filename :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO CString---utf8CollateKeyForFilename ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    m T.Text-utf8CollateKeyForFilename str len = liftIO $ do-    str' <- textToCString str-    result <- g_utf8_collate_key_for_filename str' len-    checkUnexpectedReturnNULL "g_utf8_collate_key_for_filename" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_utf8_collate_key--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_collate_key" g_utf8_collate_key :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO CString---utf8CollateKey ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    m T.Text-utf8CollateKey str len = liftIO $ do-    str' <- textToCString str-    result <- g_utf8_collate_key str' len-    checkUnexpectedReturnNULL "g_utf8_collate_key" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_utf8_collate--- Args : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_utf8_collate" g_utf8_collate :: -    CString ->                              -- str1 : TBasicType TUTF8-    CString ->                              -- str2 : TBasicType TUTF8-    IO Int32---utf8Collate ::-    (MonadIO m) =>-    T.Text ->                               -- str1-    T.Text ->                               -- str2-    m Int32-utf8Collate str1 str2 = liftIO $ do-    str1' <- textToCString str1-    str2' <- textToCString str2-    result <- g_utf8_collate str1' str2'-    freeMem str1'-    freeMem str2'-    return result----- function g_utf8_casefold--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_utf8_casefold" g_utf8_casefold :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO CString---utf8Casefold ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    m T.Text-utf8Casefold str len = liftIO $ do-    str' <- textToCString str-    result <- g_utf8_casefold str' len-    checkUnexpectedReturnNULL "g_utf8_casefold" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_usleep--- Args : [Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_usleep" g_usleep :: -    Word64 ->                               -- microseconds : TBasicType TUInt64-    IO ()---usleep ::-    (MonadIO m) =>-    Word64 ->                               -- microseconds-    m ()-usleep microseconds = liftIO $ do-    g_usleep microseconds-    return ()----- function g_uri_unescape_string--- Args : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_uri_unescape_string" g_uri_unescape_string :: -    CString ->                              -- escaped_string : TBasicType TUTF8-    CString ->                              -- illegal_characters : TBasicType TUTF8-    IO CString---uriUnescapeString ::-    (MonadIO m) =>-    T.Text ->                               -- escaped_string-    Maybe (T.Text) ->                       -- illegal_characters-    m T.Text-uriUnescapeString escaped_string illegal_characters = liftIO $ do-    escaped_string' <- textToCString escaped_string-    maybeIllegal_characters <- case illegal_characters of-        Nothing -> return nullPtr-        Just jIllegal_characters -> do-            jIllegal_characters' <- textToCString jIllegal_characters-            return jIllegal_characters'-    result <- g_uri_unescape_string escaped_string' maybeIllegal_characters-    checkUnexpectedReturnNULL "g_uri_unescape_string" result-    result' <- cstringToText result-    freeMem result-    freeMem escaped_string'-    freeMem maybeIllegal_characters-    return result'----- function g_uri_unescape_segment--- Args : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escaped_string_end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escaped_string_end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_uri_unescape_segment" g_uri_unescape_segment :: -    CString ->                              -- escaped_string : TBasicType TUTF8-    CString ->                              -- escaped_string_end : TBasicType TUTF8-    CString ->                              -- illegal_characters : TBasicType TUTF8-    IO CString---uriUnescapeSegment ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- escaped_string-    Maybe (T.Text) ->                       -- escaped_string_end-    Maybe (T.Text) ->                       -- illegal_characters-    m T.Text-uriUnescapeSegment escaped_string escaped_string_end illegal_characters = liftIO $ do-    maybeEscaped_string <- case escaped_string of-        Nothing -> return nullPtr-        Just jEscaped_string -> do-            jEscaped_string' <- textToCString jEscaped_string-            return jEscaped_string'-    maybeEscaped_string_end <- case escaped_string_end of-        Nothing -> return nullPtr-        Just jEscaped_string_end -> do-            jEscaped_string_end' <- textToCString jEscaped_string_end-            return jEscaped_string_end'-    maybeIllegal_characters <- case illegal_characters of-        Nothing -> return nullPtr-        Just jIllegal_characters -> do-            jIllegal_characters' <- textToCString jIllegal_characters-            return jIllegal_characters'-    result <- g_uri_unescape_segment maybeEscaped_string maybeEscaped_string_end maybeIllegal_characters-    checkUnexpectedReturnNULL "g_uri_unescape_segment" result-    result' <- cstringToText result-    freeMem result-    freeMem maybeEscaped_string-    freeMem maybeEscaped_string_end-    freeMem maybeIllegal_characters-    return result'----- function g_uri_parse_scheme--- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_uri_parse_scheme" g_uri_parse_scheme :: -    CString ->                              -- uri : TBasicType TUTF8-    IO CString---uriParseScheme ::-    (MonadIO m) =>-    T.Text ->                               -- uri-    m T.Text-uriParseScheme uri = liftIO $ do-    uri' <- textToCString uri-    result <- g_uri_parse_scheme uri'-    checkUnexpectedReturnNULL "g_uri_parse_scheme" result-    result' <- cstringToText result-    freeMem result-    freeMem uri'-    return result'----- function g_uri_list_extract_uris--- Args : [Arg {argName = "uri_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "uri_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_uri_list_extract_uris" g_uri_list_extract_uris :: -    CString ->                              -- uri_list : TBasicType TUTF8-    IO (Ptr CString)---uriListExtractUris ::-    (MonadIO m) =>-    T.Text ->                               -- uri_list-    m [T.Text]-uriListExtractUris uri_list = liftIO $ do-    uri_list' <- textToCString uri_list-    result <- g_uri_list_extract_uris uri_list'-    checkUnexpectedReturnNULL "g_uri_list_extract_uris" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    freeMem uri_list'-    return result'----- function g_uri_escape_string--- Args : [Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_uri_escape_string" g_uri_escape_string :: -    CString ->                              -- unescaped : TBasicType TUTF8-    CString ->                              -- reserved_chars_allowed : TBasicType TUTF8-    CInt ->                                 -- allow_utf8 : TBasicType TBoolean-    IO CString---uriEscapeString ::-    (MonadIO m) =>-    T.Text ->                               -- unescaped-    Maybe (T.Text) ->                       -- reserved_chars_allowed-    Bool ->                                 -- allow_utf8-    m T.Text-uriEscapeString unescaped reserved_chars_allowed allow_utf8 = liftIO $ do-    unescaped' <- textToCString unescaped-    maybeReserved_chars_allowed <- case reserved_chars_allowed of-        Nothing -> return nullPtr-        Just jReserved_chars_allowed -> do-            jReserved_chars_allowed' <- textToCString jReserved_chars_allowed-            return jReserved_chars_allowed'-    let allow_utf8' = (fromIntegral . fromEnum) allow_utf8-    result <- g_uri_escape_string unescaped' maybeReserved_chars_allowed allow_utf8'-    checkUnexpectedReturnNULL "g_uri_escape_string" result-    result' <- cstringToText result-    freeMem result-    freeMem unescaped'-    freeMem maybeReserved_chars_allowed-    return result'----- function g_unsetenv--- Args : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_unsetenv" g_unsetenv :: -    CString ->                              -- variable : TBasicType TUTF8-    IO ()---unsetenv ::-    (MonadIO m) =>-    T.Text ->                               -- variable-    m ()-unsetenv variable = liftIO $ do-    variable' <- textToCString variable-    g_unsetenv variable'-    freeMem variable'-    return ()----- function g_unlink--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_unlink" g_unlink :: -    CString ->                              -- filename : TBasicType TUTF8-    IO Int32---unlink ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    m Int32-unlink filename = liftIO $ do-    filename' <- textToCString filename-    result <- g_unlink filename'-    freeMem filename'-    return result----- function g_unix_signal_source_new--- Args : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_unix_signal_source_new" g_unix_signal_source_new :: -    Int32 ->                                -- signum : TBasicType TInt32-    IO (Ptr Source)---unixSignalSourceNew ::-    (MonadIO m) =>-    Int32 ->                                -- signum-    m Source-unixSignalSourceNew signum = liftIO $ do-    result <- g_unix_signal_source_new signum-    checkUnexpectedReturnNULL "g_unix_signal_source_new" result-    result' <- (wrapBoxed Source) result-    return result'----- function g_unix_signal_add_full--- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_unix_signal_add_full" g_unix_signal_add_full :: -    Int32 ->                                -- priority : TBasicType TInt32-    Int32 ->                                -- signum : TBasicType TInt32-    FunPtr SourceFuncC ->                   -- handler : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---unixSignalAdd ::-    (MonadIO m) =>-    Int32 ->                                -- priority-    Int32 ->                                -- signum-    SourceFunc ->                           -- handler-    m Word32-unixSignalAdd priority signum handler = liftIO $ do-    handler' <- mkSourceFunc (sourceFuncWrapper Nothing handler)-    let user_data = castFunPtrToPtr handler'-    let notify = safeFreeFunPtrPtr-    result <- g_unix_signal_add_full priority signum handler' user_data notify-    return result----- function g_unix_set_fd_nonblocking--- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nonblock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nonblock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_unix_set_fd_nonblocking" g_unix_set_fd_nonblocking :: -    Int32 ->                                -- fd : TBasicType TInt32-    CInt ->                                 -- nonblock : TBasicType TBoolean-    Ptr (Ptr GError) ->                     -- error-    IO CInt---unixSetFdNonblocking ::-    (MonadIO m) =>-    Int32 ->                                -- fd-    Bool ->                                 -- nonblock-    m ()-unixSetFdNonblocking fd nonblock = liftIO $ do-    let nonblock' = (fromIntegral . fromEnum) nonblock-    onException (do-        _ <- propagateGError $ g_unix_set_fd_nonblocking fd nonblock'-        return ()-     ) (do-        return ()-     )----- function g_unix_open_pipe--- Args : [Arg {argName = "fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_unix_open_pipe" g_unix_open_pipe :: -    Int32 ->                                -- fds : TBasicType TInt32-    Int32 ->                                -- flags : TBasicType TInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt---unixOpenPipe ::-    (MonadIO m) =>-    Int32 ->                                -- fds-    Int32 ->                                -- flags-    m ()-unixOpenPipe fds flags = liftIO $ do-    onException (do-        _ <- propagateGError $ g_unix_open_pipe fds flags-        return ()-     ) (do-        return ()-     )----- function g_unix_fd_source_new--- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_source_new" g_unix_fd_source_new :: -    Int32 ->                                -- fd : TBasicType TInt32-    CUInt ->                                -- condition : TInterface "GLib" "IOCondition"-    IO (Ptr Source)---unixFdSourceNew ::-    (MonadIO m) =>-    Int32 ->                                -- fd-    [IOCondition] ->                        -- condition-    m Source-unixFdSourceNew fd condition = liftIO $ do-    let condition' = gflagsToWord condition-    result <- g_unix_fd_source_new fd condition'-    checkUnexpectedReturnNULL "g_unix_fd_source_new" result-    result' <- (wrapBoxed Source) result-    return result'----- function g_unix_fd_add_full--- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "UnixFDSourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "UnixFDSourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_add_full" g_unix_fd_add_full :: -    Int32 ->                                -- priority : TBasicType TInt32-    Int32 ->                                -- fd : TBasicType TInt32-    CUInt ->                                -- condition : TInterface "GLib" "IOCondition"-    FunPtr UnixFDSourceFuncC ->             -- function : TInterface "GLib" "UnixFDSourceFunc"-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---unixFdAddFull ::-    (MonadIO m) =>-    Int32 ->                                -- priority-    Int32 ->                                -- fd-    [IOCondition] ->                        -- condition-    UnixFDSourceFunc ->                     -- function-    m Word32-unixFdAddFull priority fd condition function = liftIO $ do-    let condition' = gflagsToWord condition-    function' <- mkUnixFDSourceFunc (unixFDSourceFuncWrapper Nothing function)-    let user_data = castFunPtrToPtr function'-    let notify = safeFreeFunPtrPtr-    result <- g_unix_fd_add_full priority fd condition' function' user_data notify-    return result----- function g_unix_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_unix_error_quark" g_unix_error_quark :: -    IO Word32---unixErrorQuark ::-    (MonadIO m) =>-    m Word32-unixErrorQuark  = liftIO $ do-    result <- g_unix_error_quark-    return result----- function g_unicode_script_to_iso15924--- Args : [Arg {argName = "script", argType = TInterface "GLib" "UnicodeScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "script", argType = TInterface "GLib" "UnicodeScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_unicode_script_to_iso15924" g_unicode_script_to_iso15924 :: -    CUInt ->                                -- script : TInterface "GLib" "UnicodeScript"-    IO Word32---unicodeScriptToIso15924 ::-    (MonadIO m) =>-    UnicodeScript ->                        -- script-    m Word32-unicodeScriptToIso15924 script = liftIO $ do-    let script' = (fromIntegral . fromEnum) script-    result <- g_unicode_script_to_iso15924 script'-    return result----- function g_unicode_script_from_iso15924--- Args : [Arg {argName = "iso15924", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "iso15924", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "UnicodeScript"--- throws : False--- Skip return : False--foreign import ccall "g_unicode_script_from_iso15924" g_unicode_script_from_iso15924 :: -    Word32 ->                               -- iso15924 : TBasicType TUInt32-    IO CUInt---unicodeScriptFromIso15924 ::-    (MonadIO m) =>-    Word32 ->                               -- iso15924-    m UnicodeScript-unicodeScriptFromIso15924 iso15924 = liftIO $ do-    result <- g_unicode_script_from_iso15924 iso15924-    let result' = (toEnum . fromIntegral) result-    return result'----- function g_unicode_canonical_ordering--- Args : [Arg {argName = "string", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_unicode_canonical_ordering" g_unicode_canonical_ordering :: -    CInt ->                                 -- string : TBasicType TUniChar-    Word64 ->                               -- len : TBasicType TUInt64-    IO ()---unicodeCanonicalOrdering ::-    (MonadIO m) =>-    Char ->                                 -- string-    Word64 ->                               -- len-    m ()-unicodeCanonicalOrdering string len = liftIO $ do-    let string' = (fromIntegral . ord) string-    g_unicode_canonical_ordering string' len-    return ()----- function g_unicode_canonical_decomposition--- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUniChar--- throws : False--- Skip return : False--foreign import ccall "g_unicode_canonical_decomposition" g_unicode_canonical_decomposition :: -    CInt ->                                 -- ch : TBasicType TUniChar-    Word64 ->                               -- result_len : TBasicType TUInt64-    IO CInt--{-# DEPRECATED unicodeCanonicalDecomposition ["(Since version 2.30)","Use the more flexible g_unichar_fully_decompose()","  instead."]#-}-unicodeCanonicalDecomposition ::-    (MonadIO m) =>-    Char ->                                 -- ch-    Word64 ->                               -- result_len-    m Char-unicodeCanonicalDecomposition ch result_len = liftIO $ do-    let ch' = (fromIntegral . ord) ch-    result <- g_unicode_canonical_decomposition ch' result_len-    let result' = (chr . fromIntegral) result-    return result'----- function g_unichar_xdigit_value--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_unichar_xdigit_value" g_unichar_xdigit_value :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO Int32---unicharXdigitValue ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Int32-unicharXdigitValue c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_xdigit_value c'-    return result----- function g_unichar_validate--- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_validate" g_unichar_validate :: -    CInt ->                                 -- ch : TBasicType TUniChar-    IO CInt---unicharValidate ::-    (MonadIO m) =>-    Char ->                                 -- ch-    m Bool-unicharValidate ch = liftIO $ do-    let ch' = (fromIntegral . ord) ch-    result <- g_unichar_validate ch'-    let result' = (/= 0) result-    return result'----- function g_unichar_type--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "UnicodeType"--- throws : False--- Skip return : False--foreign import ccall "g_unichar_type" g_unichar_type :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CUInt---unicharType ::-    (MonadIO m) =>-    Char ->                                 -- c-    m UnicodeType-unicharType c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_type c'-    let result' = (toEnum . fromIntegral) result-    return result'----- function g_unichar_toupper--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUniChar--- throws : False--- Skip return : False--foreign import ccall "g_unichar_toupper" g_unichar_toupper :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharToupper ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Char-unicharToupper c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_toupper c'-    let result' = (chr . fromIntegral) result-    return result'----- function g_unichar_totitle--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUniChar--- throws : False--- Skip return : False--foreign import ccall "g_unichar_totitle" g_unichar_totitle :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharTotitle ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Char-unicharTotitle c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_totitle c'-    let result' = (chr . fromIntegral) result-    return result'----- function g_unichar_tolower--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUniChar--- throws : False--- Skip return : False--foreign import ccall "g_unichar_tolower" g_unichar_tolower :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharTolower ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Char-unicharTolower c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_tolower c'-    let result' = (chr . fromIntegral) result-    return result'----- function g_unichar_to_utf8--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_unichar_to_utf8" g_unichar_to_utf8 :: -    CInt ->                                 -- c : TBasicType TUniChar-    CString ->                              -- outbuf : TBasicType TUTF8-    IO Int32---unicharToUtf8 ::-    (MonadIO m) =>-    Char ->                                 -- c-    T.Text ->                               -- outbuf-    m Int32-unicharToUtf8 c outbuf = liftIO $ do-    let c' = (fromIntegral . ord) c-    outbuf' <- textToCString outbuf-    result <- g_unichar_to_utf8 c' outbuf'-    freeMem outbuf'-    return result----- function g_unichar_iszerowidth--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_iszerowidth" g_unichar_iszerowidth :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIszerowidth ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIszerowidth c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_iszerowidth c'-    let result' = (/= 0) result-    return result'----- function g_unichar_isxdigit--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_isxdigit" g_unichar_isxdigit :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIsxdigit ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIsxdigit c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_isxdigit c'-    let result' = (/= 0) result-    return result'----- function g_unichar_iswide_cjk--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_iswide_cjk" g_unichar_iswide_cjk :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIswideCjk ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIswideCjk c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_iswide_cjk c'-    let result' = (/= 0) result-    return result'----- function g_unichar_iswide--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_iswide" g_unichar_iswide :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIswide ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIswide c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_iswide c'-    let result' = (/= 0) result-    return result'----- function g_unichar_isupper--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_isupper" g_unichar_isupper :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIsupper ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIsupper c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_isupper c'-    let result' = (/= 0) result-    return result'----- function g_unichar_istitle--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_istitle" g_unichar_istitle :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIstitle ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIstitle c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_istitle c'-    let result' = (/= 0) result-    return result'----- function g_unichar_isspace--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_isspace" g_unichar_isspace :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIsspace ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIsspace c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_isspace c'-    let result' = (/= 0) result-    return result'----- function g_unichar_ispunct--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_ispunct" g_unichar_ispunct :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIspunct ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIspunct c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_ispunct c'-    let result' = (/= 0) result-    return result'----- function g_unichar_isprint--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_isprint" g_unichar_isprint :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIsprint ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIsprint c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_isprint c'-    let result' = (/= 0) result-    return result'----- function g_unichar_ismark--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_ismark" g_unichar_ismark :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIsmark ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIsmark c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_ismark c'-    let result' = (/= 0) result-    return result'----- function g_unichar_islower--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_islower" g_unichar_islower :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIslower ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIslower c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_islower c'-    let result' = (/= 0) result-    return result'----- function g_unichar_isgraph--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_isgraph" g_unichar_isgraph :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIsgraph ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIsgraph c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_isgraph c'-    let result' = (/= 0) result-    return result'----- function g_unichar_isdigit--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_isdigit" g_unichar_isdigit :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIsdigit ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIsdigit c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_isdigit c'-    let result' = (/= 0) result-    return result'----- function g_unichar_isdefined--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_isdefined" g_unichar_isdefined :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIsdefined ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIsdefined c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_isdefined c'-    let result' = (/= 0) result-    return result'----- function g_unichar_iscntrl--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_iscntrl" g_unichar_iscntrl :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIscntrl ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIscntrl c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_iscntrl c'-    let result' = (/= 0) result-    return result'----- function g_unichar_isalpha--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_isalpha" g_unichar_isalpha :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIsalpha ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIsalpha c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_isalpha c'-    let result' = (/= 0) result-    return result'----- function g_unichar_isalnum--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_isalnum" g_unichar_isalnum :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CInt---unicharIsalnum ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Bool-unicharIsalnum c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_isalnum c'-    let result' = (/= 0) result-    return result'----- function g_unichar_get_script--- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "UnicodeScript"--- throws : False--- Skip return : False--foreign import ccall "g_unichar_get_script" g_unichar_get_script :: -    CInt ->                                 -- ch : TBasicType TUniChar-    IO CUInt---unicharGetScript ::-    (MonadIO m) =>-    Char ->                                 -- ch-    m UnicodeScript-unicharGetScript ch = liftIO $ do-    let ch' = (fromIntegral . ord) ch-    result <- g_unichar_get_script ch'-    let result' = (toEnum . fromIntegral) result-    return result'----- function g_unichar_get_mirror_char--- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_get_mirror_char" g_unichar_get_mirror_char :: -    CInt ->                                 -- ch : TBasicType TUniChar-    CInt ->                                 -- mirrored_ch : TBasicType TUniChar-    IO CInt---unicharGetMirrorChar ::-    (MonadIO m) =>-    Char ->                                 -- ch-    Char ->                                 -- mirrored_ch-    m Bool-unicharGetMirrorChar ch mirrored_ch = liftIO $ do-    let ch' = (fromIntegral . ord) ch-    let mirrored_ch' = (fromIntegral . ord) mirrored_ch-    result <- g_unichar_get_mirror_char ch' mirrored_ch'-    let result' = (/= 0) result-    return result'----- function g_unichar_digit_value--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_unichar_digit_value" g_unichar_digit_value :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO Int32---unicharDigitValue ::-    (MonadIO m) =>-    Char ->                                 -- c-    m Int32-unicharDigitValue c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_digit_value c'-    return result----- function g_unichar_decompose--- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_decompose" g_unichar_decompose :: -    CInt ->                                 -- ch : TBasicType TUniChar-    CInt ->                                 -- a : TBasicType TUniChar-    CInt ->                                 -- b : TBasicType TUniChar-    IO CInt---unicharDecompose ::-    (MonadIO m) =>-    Char ->                                 -- ch-    Char ->                                 -- a-    Char ->                                 -- b-    m Bool-unicharDecompose ch a b = liftIO $ do-    let ch' = (fromIntegral . ord) ch-    let a' = (fromIntegral . ord) a-    let b' = (fromIntegral . ord) b-    result <- g_unichar_decompose ch' a' b'-    let result' = (/= 0) result-    return result'----- function g_unichar_compose--- Args : [Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_unichar_compose" g_unichar_compose :: -    CInt ->                                 -- a : TBasicType TUniChar-    CInt ->                                 -- b : TBasicType TUniChar-    CInt ->                                 -- ch : TBasicType TUniChar-    IO CInt---unicharCompose ::-    (MonadIO m) =>-    Char ->                                 -- a-    Char ->                                 -- b-    Char ->                                 -- ch-    m Bool-unicharCompose a b ch = liftIO $ do-    let a' = (fromIntegral . ord) a-    let b' = (fromIntegral . ord) b-    let ch' = (fromIntegral . ord) ch-    result <- g_unichar_compose a' b' ch'-    let result' = (/= 0) result-    return result'----- function g_unichar_combining_class--- Args : [Arg {argName = "uc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "uc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_unichar_combining_class" g_unichar_combining_class :: -    CInt ->                                 -- uc : TBasicType TUniChar-    IO Int32---unicharCombiningClass ::-    (MonadIO m) =>-    Char ->                                 -- uc-    m Int32-unicharCombiningClass uc = liftIO $ do-    let uc' = (fromIntegral . ord) uc-    result <- g_unichar_combining_class uc'-    return result----- function g_unichar_break_type--- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "UnicodeBreakType"--- throws : False--- Skip return : False--foreign import ccall "g_unichar_break_type" g_unichar_break_type :: -    CInt ->                                 -- c : TBasicType TUniChar-    IO CUInt---unicharBreakType ::-    (MonadIO m) =>-    Char ->                                 -- c-    m UnicodeBreakType-unicharBreakType c = liftIO $ do-    let c' = (fromIntegral . ord) c-    result <- g_unichar_break_type c'-    let result' = (toEnum . fromIntegral) result-    return result'----- function g_trash_stack_push--- Args : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_trash_stack_push" g_trash_stack_push :: -    Ptr TrashStack ->                       -- stack_p : TInterface "GLib" "TrashStack"-    Ptr () ->                               -- data_p : TBasicType TVoid-    IO ()---trashStackPush ::-    (MonadIO m) =>-    TrashStack ->                           -- stack_p-    Ptr () ->                               -- data_p-    m ()-trashStackPush stack_p data_p = liftIO $ do-    let stack_p' = unsafeManagedPtrGetPtr stack_p-    g_trash_stack_push stack_p' data_p-    touchManagedPtr stack_p-    return ()----- function g_trash_stack_height--- Args : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_trash_stack_height" g_trash_stack_height :: -    Ptr TrashStack ->                       -- stack_p : TInterface "GLib" "TrashStack"-    IO Word32---trashStackHeight ::-    (MonadIO m) =>-    TrashStack ->                           -- stack_p-    m Word32-trashStackHeight stack_p = liftIO $ do-    let stack_p' = unsafeManagedPtrGetPtr stack_p-    result <- g_trash_stack_height stack_p'-    touchManagedPtr stack_p-    return result----- function g_timeout_source_new_seconds--- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_timeout_source_new_seconds" g_timeout_source_new_seconds :: -    Word32 ->                               -- interval : TBasicType TUInt32-    IO (Ptr Source)---timeoutSourceNewSeconds ::-    (MonadIO m) =>-    Word32 ->                               -- interval-    m Source-timeoutSourceNewSeconds interval = liftIO $ do-    result <- g_timeout_source_new_seconds interval-    checkUnexpectedReturnNULL "g_timeout_source_new_seconds" result-    result' <- (wrapBoxed Source) result-    return result'----- function g_timeout_source_new--- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_timeout_source_new" g_timeout_source_new :: -    Word32 ->                               -- interval : TBasicType TUInt32-    IO (Ptr Source)---timeoutSourceNew ::-    (MonadIO m) =>-    Word32 ->                               -- interval-    m Source-timeoutSourceNew interval = liftIO $ do-    result <- g_timeout_source_new interval-    checkUnexpectedReturnNULL "g_timeout_source_new" result-    result' <- (wrapBoxed Source) result-    return result'----- function g_timeout_add_seconds_full--- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_timeout_add_seconds_full" g_timeout_add_seconds_full :: -    Int32 ->                                -- priority : TBasicType TInt32-    Word32 ->                               -- interval : TBasicType TUInt32-    FunPtr SourceFuncC ->                   -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---timeoutAddSeconds ::-    (MonadIO m) =>-    Int32 ->                                -- priority-    Word32 ->                               -- interval-    SourceFunc ->                           -- function-    m Word32-timeoutAddSeconds priority interval function = liftIO $ do-    function' <- mkSourceFunc (sourceFuncWrapper Nothing function)-    let data_ = castFunPtrToPtr function'-    let notify = safeFreeFunPtrPtr-    result <- g_timeout_add_seconds_full priority interval function' data_ notify-    return result----- function g_timeout_add_full--- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_timeout_add_full" g_timeout_add_full :: -    Int32 ->                                -- priority : TBasicType TInt32-    Word32 ->                               -- interval : TBasicType TUInt32-    FunPtr SourceFuncC ->                   -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---timeoutAdd ::-    (MonadIO m) =>-    Int32 ->                                -- priority-    Word32 ->                               -- interval-    SourceFunc ->                           -- function-    m Word32-timeoutAdd priority interval function = liftIO $ do-    function' <- mkSourceFunc (sourceFuncWrapper Nothing function)-    let data_ = castFunPtrToPtr function'-    let notify = safeFreeFunPtrPtr-    result <- g_timeout_add_full priority interval function' data_ notify-    return result----- function g_time_val_from_iso8601--- Args : [Arg {argName = "iso_date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "iso_date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_time_val_from_iso8601" g_time_val_from_iso8601 :: -    CString ->                              -- iso_date : TBasicType TUTF8-    Ptr TimeVal ->                          -- time_ : TInterface "GLib" "TimeVal"-    IO CInt---timeValFromIso8601 ::-    (MonadIO m) =>-    T.Text ->                               -- iso_date-    m (Bool,TimeVal)-timeValFromIso8601 iso_date = liftIO $ do-    iso_date' <- textToCString iso_date-    time_ <- callocBytes 16 :: IO (Ptr TimeVal)-    result <- g_time_val_from_iso8601 iso_date' time_-    let result' = (/= 0) result-    time_' <- (wrapPtr TimeVal) time_-    freeMem iso_date'-    return (result', time_')----- function g_thread_yield--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_thread_yield" g_thread_yield :: -    IO ()---threadYield ::-    (MonadIO m) =>-    m ()-threadYield  = liftIO $ do-    g_thread_yield-    return ()----- function g_thread_self--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "Thread"--- throws : False--- Skip return : False--foreign import ccall "g_thread_self" g_thread_self :: -    IO (Ptr Thread)---threadSelf ::-    (MonadIO m) =>-    m Thread-threadSelf  = liftIO $ do-    result <- g_thread_self-    checkUnexpectedReturnNULL "g_thread_self" result-    result' <- (wrapBoxed Thread) result-    return result'----- function g_thread_pool_stop_unused_threads--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_thread_pool_stop_unused_threads" g_thread_pool_stop_unused_threads :: -    IO ()---threadPoolStopUnusedThreads ::-    (MonadIO m) =>-    m ()-threadPoolStopUnusedThreads  = liftIO $ do-    g_thread_pool_stop_unused_threads-    return ()----- function g_thread_pool_set_max_unused_threads--- Args : [Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_thread_pool_set_max_unused_threads" g_thread_pool_set_max_unused_threads :: -    Int32 ->                                -- max_threads : TBasicType TInt32-    IO ()---threadPoolSetMaxUnusedThreads ::-    (MonadIO m) =>-    Int32 ->                                -- max_threads-    m ()-threadPoolSetMaxUnusedThreads max_threads = liftIO $ do-    g_thread_pool_set_max_unused_threads max_threads-    return ()----- function g_thread_pool_set_max_idle_time--- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_thread_pool_set_max_idle_time" g_thread_pool_set_max_idle_time :: -    Word32 ->                               -- interval : TBasicType TUInt32-    IO ()---threadPoolSetMaxIdleTime ::-    (MonadIO m) =>-    Word32 ->                               -- interval-    m ()-threadPoolSetMaxIdleTime interval = liftIO $ do-    g_thread_pool_set_max_idle_time interval-    return ()----- function g_thread_pool_get_num_unused_threads--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_thread_pool_get_num_unused_threads" g_thread_pool_get_num_unused_threads :: -    IO Word32---threadPoolGetNumUnusedThreads ::-    (MonadIO m) =>-    m Word32-threadPoolGetNumUnusedThreads  = liftIO $ do-    result <- g_thread_pool_get_num_unused_threads-    return result----- function g_thread_pool_get_max_unused_threads--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_thread_pool_get_max_unused_threads" g_thread_pool_get_max_unused_threads :: -    IO Int32---threadPoolGetMaxUnusedThreads ::-    (MonadIO m) =>-    m Int32-threadPoolGetMaxUnusedThreads  = liftIO $ do-    result <- g_thread_pool_get_max_unused_threads-    return result----- function g_thread_pool_get_max_idle_time--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_thread_pool_get_max_idle_time" g_thread_pool_get_max_idle_time :: -    IO Word32---threadPoolGetMaxIdleTime ::-    (MonadIO m) =>-    m Word32-threadPoolGetMaxIdleTime  = liftIO $ do-    result <- g_thread_pool_get_max_idle_time-    return result----- function g_thread_exit--- Args : [Arg {argName = "retval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "retval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_thread_exit" g_thread_exit :: -    Ptr () ->                               -- retval : TBasicType TVoid-    IO ()---threadExit ::-    (MonadIO m) =>-    Ptr () ->                               -- retval-    m ()-threadExit retval = liftIO $ do-    g_thread_exit retval-    return ()----- function g_thread_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_thread_error_quark" g_thread_error_quark :: -    IO Word32---threadErrorQuark ::-    (MonadIO m) =>-    m Word32-threadErrorQuark  = liftIO $ do-    result <- g_thread_error_quark-    return result----- function g_test_trap_subprocess--- Args : [Arg {argName = "test_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_flags", argType = TInterface "GLib" "TestSubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "test_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_flags", argType = TInterface "GLib" "TestSubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_trap_subprocess" g_test_trap_subprocess :: -    CString ->                              -- test_path : TBasicType TUTF8-    Word64 ->                               -- usec_timeout : TBasicType TUInt64-    CUInt ->                                -- test_flags : TInterface "GLib" "TestSubprocessFlags"-    IO ()---testTrapSubprocess ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- test_path-    Word64 ->                               -- usec_timeout-    [TestSubprocessFlags] ->                -- test_flags-    m ()-testTrapSubprocess test_path usec_timeout test_flags = liftIO $ do-    maybeTest_path <- case test_path of-        Nothing -> return nullPtr-        Just jTest_path -> do-            jTest_path' <- textToCString jTest_path-            return jTest_path'-    let test_flags' = gflagsToWord test_flags-    g_test_trap_subprocess maybeTest_path usec_timeout test_flags'-    freeMem maybeTest_path-    return ()----- function g_test_trap_reached_timeout--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_test_trap_reached_timeout" g_test_trap_reached_timeout :: -    IO CInt---testTrapReachedTimeout ::-    (MonadIO m) =>-    m Bool-testTrapReachedTimeout  = liftIO $ do-    result <- g_test_trap_reached_timeout-    let result' = (/= 0) result-    return result'----- function g_test_trap_has_passed--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_test_trap_has_passed" g_test_trap_has_passed :: -    IO CInt---testTrapHasPassed ::-    (MonadIO m) =>-    m Bool-testTrapHasPassed  = liftIO $ do-    result <- g_test_trap_has_passed-    let result' = (/= 0) result-    return result'----- function g_test_trap_fork--- Args : [Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_trap_flags", argType = TInterface "GLib" "TestTrapFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_trap_flags", argType = TInterface "GLib" "TestTrapFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_test_trap_fork" g_test_trap_fork :: -    Word64 ->                               -- usec_timeout : TBasicType TUInt64-    CUInt ->                                -- test_trap_flags : TInterface "GLib" "TestTrapFlags"-    IO CInt--{-# DEPRECATED testTrapFork ["This function is implemented only on Unix platforms,","and is not always reliable due to problems inherent in","fork-without-exec. Use g_test_trap_subprocess() instead."]#-}-testTrapFork ::-    (MonadIO m) =>-    Word64 ->                               -- usec_timeout-    [TestTrapFlags] ->                      -- test_trap_flags-    m Bool-testTrapFork usec_timeout test_trap_flags = liftIO $ do-    let test_trap_flags' = gflagsToWord test_trap_flags-    result <- g_test_trap_fork usec_timeout test_trap_flags'-    let result' = (/= 0) result-    return result'----- function g_test_trap_assertions--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "assertion_flags", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "assertion_flags", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_trap_assertions" g_test_trap_assertions :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- file : TBasicType TUTF8-    Int32 ->                                -- line : TBasicType TInt32-    CString ->                              -- func : TBasicType TUTF8-    Word64 ->                               -- assertion_flags : TBasicType TUInt64-    CString ->                              -- pattern : TBasicType TUTF8-    IO ()---testTrapAssertions ::-    (MonadIO m) =>-    T.Text ->                               -- domain-    T.Text ->                               -- file-    Int32 ->                                -- line-    T.Text ->                               -- func-    Word64 ->                               -- assertion_flags-    T.Text ->                               -- pattern-    m ()-testTrapAssertions domain file line func assertion_flags pattern = liftIO $ do-    domain' <- textToCString domain-    file' <- textToCString file-    func' <- textToCString func-    pattern' <- textToCString pattern-    g_test_trap_assertions domain' file' line func' assertion_flags pattern'-    freeMem domain'-    freeMem file'-    freeMem func'-    freeMem pattern'-    return ()----- function g_test_timer_start--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_timer_start" g_test_timer_start :: -    IO ()---testTimerStart ::-    (MonadIO m) =>-    m ()-testTimerStart  = liftIO $ do-    g_test_timer_start-    return ()----- function g_test_timer_last--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_test_timer_last" g_test_timer_last :: -    IO CDouble---testTimerLast ::-    (MonadIO m) =>-    m Double-testTimerLast  = liftIO $ do-    result <- g_test_timer_last-    let result' = realToFrac result-    return result'----- function g_test_timer_elapsed--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_test_timer_elapsed" g_test_timer_elapsed :: -    IO CDouble---testTimerElapsed ::-    (MonadIO m) =>-    m Double-testTimerElapsed  = liftIO $ do-    result <- g_test_timer_elapsed-    let result' = realToFrac result-    return result'----- function g_test_subprocess--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_test_subprocess" g_test_subprocess :: -    IO CInt---testSubprocess ::-    (MonadIO m) =>-    m Bool-testSubprocess  = liftIO $ do-    result <- g_test_subprocess-    let result' = (/= 0) result-    return result'----- function g_test_skip--- Args : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_skip" g_test_skip :: -    CString ->                              -- msg : TBasicType TUTF8-    IO ()---testSkip ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- msg-    m ()-testSkip msg = liftIO $ do-    maybeMsg <- case msg of-        Nothing -> return nullPtr-        Just jMsg -> do-            jMsg' <- textToCString jMsg-            return jMsg'-    g_test_skip maybeMsg-    freeMem maybeMsg-    return ()----- function g_test_set_nonfatal_assertions--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_set_nonfatal_assertions" g_test_set_nonfatal_assertions :: -    IO ()---testSetNonfatalAssertions ::-    (MonadIO m) =>-    m ()-testSetNonfatalAssertions  = liftIO $ do-    g_test_set_nonfatal_assertions-    return ()----- function g_test_run_suite--- Args : [Arg {argName = "suite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "suite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_test_run_suite" g_test_run_suite :: -    Ptr TestSuite ->                        -- suite : TInterface "GLib" "TestSuite"-    IO Int32---testRunSuite ::-    (MonadIO m) =>-    TestSuite ->                            -- suite-    m Int32-testRunSuite suite = liftIO $ do-    let suite' = unsafeManagedPtrGetPtr suite-    result <- g_test_run_suite suite'-    touchManagedPtr suite-    return result----- function g_test_run--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_test_run" g_test_run :: -    IO Int32---testRun ::-    (MonadIO m) =>-    m Int32-testRun  = liftIO $ do-    result <- g_test_run-    return result----- function g_test_rand_int_range--- Args : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_test_rand_int_range" g_test_rand_int_range :: -    Int32 ->                                -- begin : TBasicType TInt32-    Int32 ->                                -- end : TBasicType TInt32-    IO Int32---testRandIntRange ::-    (MonadIO m) =>-    Int32 ->                                -- begin-    Int32 ->                                -- end-    m Int32-testRandIntRange begin end = liftIO $ do-    result <- g_test_rand_int_range begin end-    return result----- function g_test_rand_int--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_test_rand_int" g_test_rand_int :: -    IO Int32---testRandInt ::-    (MonadIO m) =>-    m Int32-testRandInt  = liftIO $ do-    result <- g_test_rand_int-    return result----- function g_test_rand_double_range--- Args : [Arg {argName = "range_start", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "range_start", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_test_rand_double_range" g_test_rand_double_range :: -    CDouble ->                              -- range_start : TBasicType TDouble-    CDouble ->                              -- range_end : TBasicType TDouble-    IO CDouble---testRandDoubleRange ::-    (MonadIO m) =>-    Double ->                               -- range_start-    Double ->                               -- range_end-    m Double-testRandDoubleRange range_start range_end = liftIO $ do-    let range_start' = realToFrac range_start-    let range_end' = realToFrac range_end-    result <- g_test_rand_double_range range_start' range_end'-    let result' = realToFrac result-    return result'----- function g_test_rand_double--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_test_rand_double" g_test_rand_double :: -    IO CDouble---testRandDouble ::-    (MonadIO m) =>-    m Double-testRandDouble  = liftIO $ do-    result <- g_test_rand_double-    let result' = realToFrac result-    return result'----- function g_test_queue_free--- Args : [Arg {argName = "gfree_pointer", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "gfree_pointer", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_queue_free" g_test_queue_free :: -    Ptr () ->                               -- gfree_pointer : TBasicType TVoid-    IO ()---testQueueFree ::-    (MonadIO m) =>-    Ptr () ->                               -- gfree_pointer-    m ()-testQueueFree gfree_pointer = liftIO $ do-    g_test_queue_free gfree_pointer-    return ()----- function g_test_queue_destroy--- Args : [Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_queue_destroy" g_test_queue_destroy :: -    FunPtr DestroyNotifyC ->                -- destroy_func : TInterface "GLib" "DestroyNotify"-    Ptr () ->                               -- destroy_data : TBasicType TVoid-    IO ()---testQueueDestroy ::-    (MonadIO m) =>-    DestroyNotify ->                        -- destroy_func-    Ptr () ->                               -- destroy_data-    m ()-testQueueDestroy destroy_func destroy_data = liftIO $ do-    ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))-    destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func)-    poke ptrdestroy_func destroy_func'-    g_test_queue_destroy destroy_func' destroy_data-    return ()----- function g_test_log_type_name--- Args : [Arg {argName = "log_type", argType = TInterface "GLib" "TestLogType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "log_type", argType = TInterface "GLib" "TestLogType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_test_log_type_name" g_test_log_type_name :: -    CUInt ->                                -- log_type : TInterface "GLib" "TestLogType"-    IO CString---testLogTypeName ::-    (MonadIO m) =>-    TestLogType ->                          -- log_type-    m T.Text-testLogTypeName log_type = liftIO $ do-    let log_type' = (fromIntegral . fromEnum) log_type-    result <- g_test_log_type_name log_type'-    checkUnexpectedReturnNULL "g_test_log_type_name" result-    result' <- cstringToText result-    return result'----- function g_test_incomplete--- Args : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_incomplete" g_test_incomplete :: -    CString ->                              -- msg : TBasicType TUTF8-    IO ()---testIncomplete ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- msg-    m ()-testIncomplete msg = liftIO $ do-    maybeMsg <- case msg of-        Nothing -> return nullPtr-        Just jMsg -> do-            jMsg' <- textToCString jMsg-            return jMsg'-    g_test_incomplete maybeMsg-    freeMem maybeMsg-    return ()----- function g_test_get_dir--- Args : [Arg {argName = "file_type", argType = TInterface "GLib" "TestFileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "file_type", argType = TInterface "GLib" "TestFileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_test_get_dir" g_test_get_dir :: -    CUInt ->                                -- file_type : TInterface "GLib" "TestFileType"-    IO CString---testGetDir ::-    (MonadIO m) =>-    TestFileType ->                         -- file_type-    m T.Text-testGetDir file_type = liftIO $ do-    let file_type' = (fromIntegral . fromEnum) file_type-    result <- g_test_get_dir file_type'-    checkUnexpectedReturnNULL "g_test_get_dir" result-    result' <- cstringToText result-    return result'----- function g_test_failed--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_test_failed" g_test_failed :: -    IO CInt---testFailed ::-    (MonadIO m) =>-    m Bool-testFailed  = liftIO $ do-    result <- g_test_failed-    let result' = (/= 0) result-    return result'----- function g_test_fail--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_fail" g_test_fail :: -    IO ()---testFail ::-    (MonadIO m) =>-    m ()-testFail  = liftIO $ do-    g_test_fail-    return ()----- function g_test_expect_message--- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_expect_message" g_test_expect_message :: -    CString ->                              -- log_domain : TBasicType TUTF8-    CUInt ->                                -- log_level : TInterface "GLib" "LogLevelFlags"-    CString ->                              -- pattern : TBasicType TUTF8-    IO ()---testExpectMessage ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- log_domain-    [LogLevelFlags] ->                      -- log_level-    T.Text ->                               -- pattern-    m ()-testExpectMessage log_domain log_level pattern = liftIO $ do-    maybeLog_domain <- case log_domain of-        Nothing -> return nullPtr-        Just jLog_domain -> do-            jLog_domain' <- textToCString jLog_domain-            return jLog_domain'-    let log_level' = gflagsToWord log_level-    pattern' <- textToCString pattern-    g_test_expect_message maybeLog_domain log_level' pattern'-    freeMem maybeLog_domain-    freeMem pattern'-    return ()----- function g_test_bug_base--- Args : [Arg {argName = "uri_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "uri_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_bug_base" g_test_bug_base :: -    CString ->                              -- uri_pattern : TBasicType TUTF8-    IO ()---testBugBase ::-    (MonadIO m) =>-    T.Text ->                               -- uri_pattern-    m ()-testBugBase uri_pattern = liftIO $ do-    uri_pattern' <- textToCString uri_pattern-    g_test_bug_base uri_pattern'-    freeMem uri_pattern'-    return ()----- function g_test_bug--- Args : [Arg {argName = "bug_uri_snippet", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "bug_uri_snippet", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_bug" g_test_bug :: -    CString ->                              -- bug_uri_snippet : TBasicType TUTF8-    IO ()---testBug ::-    (MonadIO m) =>-    T.Text ->                               -- bug_uri_snippet-    m ()-testBug bug_uri_snippet = liftIO $ do-    bug_uri_snippet' <- textToCString bug_uri_snippet-    g_test_bug bug_uri_snippet'-    freeMem bug_uri_snippet'-    return ()----- function g_test_assert_expected_messages_internal--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_assert_expected_messages_internal" g_test_assert_expected_messages_internal :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- file : TBasicType TUTF8-    Int32 ->                                -- line : TBasicType TInt32-    CString ->                              -- func : TBasicType TUTF8-    IO ()---testAssertExpectedMessagesInternal ::-    (MonadIO m) =>-    T.Text ->                               -- domain-    T.Text ->                               -- file-    Int32 ->                                -- line-    T.Text ->                               -- func-    m ()-testAssertExpectedMessagesInternal domain file line func = liftIO $ do-    domain' <- textToCString domain-    file' <- textToCString file-    func' <- textToCString func-    g_test_assert_expected_messages_internal domain' file' line func'-    freeMem domain'-    freeMem file'-    freeMem func'-    return ()----- function g_test_add_func--- Args : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_add_func" g_test_add_func :: -    CString ->                              -- testpath : TBasicType TUTF8-    FunPtr TestFuncC ->                     -- test_func : TInterface "GLib" "TestFunc"-    IO ()---testAddFunc ::-    (MonadIO m) =>-    T.Text ->                               -- testpath-    TestFunc ->                             -- test_func-    m ()-testAddFunc testpath test_func = liftIO $ do-    testpath' <- textToCString testpath-    ptrtest_func <- callocMem :: IO (Ptr (FunPtr TestFuncC))-    test_func' <- mkTestFunc (testFuncWrapper (Just ptrtest_func) test_func)-    poke ptrtest_func test_func'-    g_test_add_func testpath' test_func'-    freeMem testpath'-    return ()----- function g_test_add_data_func--- Args : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_add_data_func" g_test_add_data_func :: -    CString ->                              -- testpath : TBasicType TUTF8-    Ptr () ->                               -- test_data : TBasicType TVoid-    FunPtr TestDataFuncC ->                 -- test_func : TInterface "GLib" "TestDataFunc"-    IO ()---testAddDataFunc ::-    (MonadIO m) =>-    T.Text ->                               -- testpath-    Ptr () ->                               -- test_data-    TestDataFunc ->                         -- test_func-    m ()-testAddDataFunc testpath test_data test_func = liftIO $ do-    testpath' <- textToCString testpath-    ptrtest_func <- callocMem :: IO (Ptr (FunPtr TestDataFuncC))-    test_func' <- mkTestDataFunc (testDataFuncWrapper (Just ptrtest_func) test_func)-    poke ptrtest_func test_func'-    g_test_add_data_func testpath' test_data test_func'-    freeMem testpath'-    return ()----- function g_strv_length--- Args : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_strv_length" g_strv_length :: -    CString ->                              -- str_array : TBasicType TUTF8-    IO Word32---strvLength ::-    (MonadIO m) =>-    T.Text ->                               -- str_array-    m Word32-strvLength str_array = liftIO $ do-    str_array' <- textToCString str_array-    result <- g_strv_length str_array'-    freeMem str_array'-    return result----- function g_strv_get_type--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TGType--- throws : False--- Skip return : False--foreign import ccall "g_strv_get_type" g_strv_get_type :: -    IO CGType---strvGetType ::-    (MonadIO m) =>-    m GType-strvGetType  = liftIO $ do-    result <- g_strv_get_type-    let result' = GType result-    return result'----- function g_strv_contains--- Args : [Arg {argName = "strv", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "strv", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_strv_contains" g_strv_contains :: -    CString ->                              -- strv : TBasicType TUTF8-    CString ->                              -- str : TBasicType TUTF8-    IO CInt---strvContains ::-    (MonadIO m) =>-    T.Text ->                               -- strv-    T.Text ->                               -- str-    m Bool-strvContains strv str = liftIO $ do-    strv' <- textToCString strv-    str' <- textToCString str-    result <- g_strv_contains strv' str'-    let result' = (/= 0) result-    freeMem strv'-    freeMem str'-    return result'----- function g_strup--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strup" g_strup :: -    CString ->                              -- string : TBasicType TUTF8-    IO CString--{-# DEPRECATED strup ["(Since version 2.2)","This function is totally broken for the reasons","    discussed in the g_strncasecmp() docs - use g_ascii_strup()","    or g_utf8_strup() instead."]#-}-strup ::-    (MonadIO m) =>-    T.Text ->                               -- string-    m T.Text-strup string = liftIO $ do-    string' <- textToCString string-    result <- g_strup string'-    checkUnexpectedReturnNULL "g_strup" result-    result' <- cstringToText result-    freeMem result-    freeMem string'-    return result'----- function g_strtod--- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_strtod" g_strtod :: -    CString ->                              -- nptr : TBasicType TUTF8-    CString ->                              -- endptr : TBasicType TUTF8-    IO CDouble---strtod ::-    (MonadIO m) =>-    T.Text ->                               -- nptr-    T.Text ->                               -- endptr-    m Double-strtod nptr endptr = liftIO $ do-    nptr' <- textToCString nptr-    endptr' <- textToCString endptr-    result <- g_strtod nptr' endptr'-    let result' = realToFrac result-    freeMem nptr'-    freeMem endptr'-    return result'----- function g_strstr_len--- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strstr_len" g_strstr_len :: -    CString ->                              -- haystack : TBasicType TUTF8-    Int64 ->                                -- haystack_len : TBasicType TInt64-    CString ->                              -- needle : TBasicType TUTF8-    IO CString---strstrLen ::-    (MonadIO m) =>-    T.Text ->                               -- haystack-    Int64 ->                                -- haystack_len-    T.Text ->                               -- needle-    m T.Text-strstrLen haystack haystack_len needle = liftIO $ do-    haystack' <- textToCString haystack-    needle' <- textToCString needle-    result <- g_strstr_len haystack' haystack_len needle'-    checkUnexpectedReturnNULL "g_strstr_len" result-    result' <- cstringToText result-    freeMem result-    freeMem haystack'-    freeMem needle'-    return result'----- function g_strsignal--- Args : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strsignal" g_strsignal :: -    Int32 ->                                -- signum : TBasicType TInt32-    IO CString---strsignal ::-    (MonadIO m) =>-    Int32 ->                                -- signum-    m T.Text-strsignal signum = liftIO $ do-    result <- g_strsignal signum-    checkUnexpectedReturnNULL "g_strsignal" result-    result' <- cstringToText result-    return result'----- function g_strrstr_len--- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strrstr_len" g_strrstr_len :: -    CString ->                              -- haystack : TBasicType TUTF8-    Int64 ->                                -- haystack_len : TBasicType TInt64-    CString ->                              -- needle : TBasicType TUTF8-    IO CString---strrstrLen ::-    (MonadIO m) =>-    T.Text ->                               -- haystack-    Int64 ->                                -- haystack_len-    T.Text ->                               -- needle-    m T.Text-strrstrLen haystack haystack_len needle = liftIO $ do-    haystack' <- textToCString haystack-    needle' <- textToCString needle-    result <- g_strrstr_len haystack' haystack_len needle'-    checkUnexpectedReturnNULL "g_strrstr_len" result-    result' <- cstringToText result-    freeMem result-    freeMem haystack'-    freeMem needle'-    return result'----- function g_strrstr--- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strrstr" g_strrstr :: -    CString ->                              -- haystack : TBasicType TUTF8-    CString ->                              -- needle : TBasicType TUTF8-    IO CString---strrstr ::-    (MonadIO m) =>-    T.Text ->                               -- haystack-    T.Text ->                               -- needle-    m T.Text-strrstr haystack needle = liftIO $ do-    haystack' <- textToCString haystack-    needle' <- textToCString needle-    result <- g_strrstr haystack' needle'-    checkUnexpectedReturnNULL "g_strrstr" result-    result' <- cstringToText result-    freeMem result-    freeMem haystack'-    freeMem needle'-    return result'----- function g_strreverse--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strreverse" g_strreverse :: -    CString ->                              -- string : TBasicType TUTF8-    IO CString---strreverse ::-    (MonadIO m) =>-    T.Text ->                               -- string-    m T.Text-strreverse string = liftIO $ do-    string' <- textToCString string-    result <- g_strreverse string'-    checkUnexpectedReturnNULL "g_strreverse" result-    result' <- cstringToText result-    freeMem result-    freeMem string'-    return result'----- function g_strnfill--- Args : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_char", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_char", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strnfill" g_strnfill :: -    Word64 ->                               -- length : TBasicType TUInt64-    Int8 ->                                 -- fill_char : TBasicType TInt8-    IO CString---strnfill ::-    (MonadIO m) =>-    Word64 ->                               -- length-    Int8 ->                                 -- fill_char-    m T.Text-strnfill length_ fill_char = liftIO $ do-    result <- g_strnfill length_ fill_char-    checkUnexpectedReturnNULL "g_strnfill" result-    result' <- cstringToText result-    freeMem result-    return result'----- function g_strndup--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strndup" g_strndup :: -    CString ->                              -- str : TBasicType TUTF8-    Word64 ->                               -- n : TBasicType TUInt64-    IO CString---strndup ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Word64 ->                               -- n-    m T.Text-strndup str n = liftIO $ do-    str' <- textToCString str-    result <- g_strndup str' n-    checkUnexpectedReturnNULL "g_strndup" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_strncasecmp--- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_strncasecmp" g_strncasecmp :: -    CString ->                              -- s1 : TBasicType TUTF8-    CString ->                              -- s2 : TBasicType TUTF8-    Word32 ->                               -- n : TBasicType TUInt32-    IO Int32--{-# DEPRECATED strncasecmp ["(Since version 2.2)","The problem with g_strncasecmp() is that it does","    the comparison by calling toupper()/tolower(). These functions","    are locale-specific and operate on single bytes. However, it is","    impossible to handle things correctly from an internationalization","    standpoint by operating on bytes, since characters may be multibyte.","    Thus g_strncasecmp() is broken if your string is guaranteed to be","    ASCII, since it is locale-sensitive, and it's broken if your string","    is localized, since it doesn't work on many encodings at all,","    including UTF-8, EUC-JP, etc.","","    There are therefore two replacement techniques: g_ascii_strncasecmp(),","    which only works on ASCII and is not locale-sensitive, and","    g_utf8_casefold() followed by strcmp() on the resulting strings,","    which is good for case-insensitive sorting of UTF-8."]#-}-strncasecmp ::-    (MonadIO m) =>-    T.Text ->                               -- s1-    T.Text ->                               -- s2-    Word32 ->                               -- n-    m Int32-strncasecmp s1 s2 n = liftIO $ do-    s1' <- textToCString s1-    s2' <- textToCString s2-    result <- g_strncasecmp s1' s2' n-    freeMem s1'-    freeMem s2'-    return result----- function g_strlcpy--- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_strlcpy" g_strlcpy :: -    CString ->                              -- dest : TBasicType TUTF8-    CString ->                              -- src : TBasicType TUTF8-    Word64 ->                               -- dest_size : TBasicType TUInt64-    IO Word64---strlcpy ::-    (MonadIO m) =>-    T.Text ->                               -- dest-    T.Text ->                               -- src-    Word64 ->                               -- dest_size-    m Word64-strlcpy dest src dest_size = liftIO $ do-    dest' <- textToCString dest-    src' <- textToCString src-    result <- g_strlcpy dest' src' dest_size-    freeMem dest'-    freeMem src'-    return result----- function g_strlcat--- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_strlcat" g_strlcat :: -    CString ->                              -- dest : TBasicType TUTF8-    CString ->                              -- src : TBasicType TUTF8-    Word64 ->                               -- dest_size : TBasicType TUInt64-    IO Word64---strlcat ::-    (MonadIO m) =>-    T.Text ->                               -- dest-    T.Text ->                               -- src-    Word64 ->                               -- dest_size-    m Word64-strlcat dest src dest_size = liftIO $ do-    dest' <- textToCString dest-    src' <- textToCString src-    result <- g_strlcat dest' src' dest_size-    freeMem dest'-    freeMem src'-    return result----- function g_strjoinv--- Args : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strjoinv" g_strjoinv :: -    CString ->                              -- separator : TBasicType TUTF8-    CString ->                              -- str_array : TBasicType TUTF8-    IO CString---strjoinv ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- separator-    T.Text ->                               -- str_array-    m T.Text-strjoinv separator str_array = liftIO $ do-    maybeSeparator <- case separator of-        Nothing -> return nullPtr-        Just jSeparator -> do-            jSeparator' <- textToCString jSeparator-            return jSeparator'-    str_array' <- textToCString str_array-    result <- g_strjoinv maybeSeparator str_array'-    checkUnexpectedReturnNULL "g_strjoinv" result-    result' <- cstringToText result-    freeMem result-    freeMem maybeSeparator-    freeMem str_array'-    return result'----- function g_strip_context--- Args : [Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strip_context" g_strip_context :: -    CString ->                              -- msgid : TBasicType TUTF8-    CString ->                              -- msgval : TBasicType TUTF8-    IO CString---stripContext ::-    (MonadIO m) =>-    T.Text ->                               -- msgid-    T.Text ->                               -- msgval-    m T.Text-stripContext msgid msgval = liftIO $ do-    msgid' <- textToCString msgid-    msgval' <- textToCString msgval-    result <- g_strip_context msgid' msgval'-    checkUnexpectedReturnNULL "g_strip_context" result-    result' <- cstringToText result-    freeMem msgid'-    freeMem msgval'-    return result'----- function g_string_sized_new--- Args : [Arg {argName = "dfl_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "dfl_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_sized_new" g_string_sized_new :: -    Word64 ->                               -- dfl_size : TBasicType TUInt64-    IO (Ptr String)---stringSizedNew ::-    (MonadIO m) =>-    Word64 ->                               -- dfl_size-    m String-stringSizedNew dfl_size = liftIO $ do-    result <- g_string_sized_new dfl_size-    checkUnexpectedReturnNULL "g_string_sized_new" result-    result' <- (wrapBoxed String) result-    return result'----- function g_string_new_len--- Args : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_new_len" g_string_new_len :: -    CString ->                              -- init : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO (Ptr String)---stringNewLen ::-    (MonadIO m) =>-    T.Text ->                               -- init-    Int64 ->                                -- len-    m String-stringNewLen init len = liftIO $ do-    init' <- textToCString init-    result <- g_string_new_len init' len-    checkUnexpectedReturnNULL "g_string_new_len" result-    result' <- (wrapBoxed String) result-    freeMem init'-    return result'----- function g_string_new--- Args : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_new" g_string_new :: -    CString ->                              -- init : TBasicType TUTF8-    IO (Ptr String)---stringNew ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- init-    m String-stringNew init = liftIO $ do-    maybeInit <- case init of-        Nothing -> return nullPtr-        Just jInit -> do-            jInit' <- textToCString jInit-            return jInit'-    result <- g_string_new maybeInit-    checkUnexpectedReturnNULL "g_string_new" result-    result' <- (wrapBoxed String) result-    freeMem maybeInit-    return result'----- function g_strfreev--- Args : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_strfreev" g_strfreev :: -    CString ->                              -- str_array : TBasicType TUTF8-    IO ()---strfreev ::-    (MonadIO m) =>-    T.Text ->                               -- str_array-    m ()-strfreev str_array = liftIO $ do-    str_array' <- textToCString str_array-    g_strfreev str_array'-    freeMem str_array'-    return ()----- function g_strescape--- Args : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exceptions", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exceptions", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strescape" g_strescape :: -    CString ->                              -- source : TBasicType TUTF8-    CString ->                              -- exceptions : TBasicType TUTF8-    IO CString---strescape ::-    (MonadIO m) =>-    T.Text ->                               -- source-    T.Text ->                               -- exceptions-    m T.Text-strescape source exceptions = liftIO $ do-    source' <- textToCString source-    exceptions' <- textToCString exceptions-    result <- g_strescape source' exceptions'-    checkUnexpectedReturnNULL "g_strescape" result-    result' <- cstringToText result-    freeMem result-    freeMem source'-    freeMem exceptions'-    return result'----- function g_strerror--- Args : [Arg {argName = "errnum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "errnum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strerror" g_strerror :: -    Int32 ->                                -- errnum : TBasicType TInt32-    IO CString---strerror ::-    (MonadIO m) =>-    Int32 ->                                -- errnum-    m T.Text-strerror errnum = liftIO $ do-    result <- g_strerror errnum-    checkUnexpectedReturnNULL "g_strerror" result-    result' <- cstringToText result-    return result'----- function g_strdup--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strdup" g_strdup :: -    CString ->                              -- str : TBasicType TUTF8-    IO CString---strdup ::-    (MonadIO m) =>-    T.Text ->                               -- str-    m T.Text-strdup str = liftIO $ do-    str' <- textToCString str-    result <- g_strdup str'-    checkUnexpectedReturnNULL "g_strdup" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_strdown--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strdown" g_strdown :: -    CString ->                              -- string : TBasicType TUTF8-    IO CString--{-# DEPRECATED strdown ["(Since version 2.2)","This function is totally broken for the reasons discussed","in the g_strncasecmp() docs - use g_ascii_strdown() or g_utf8_strdown()","instead."]#-}-strdown ::-    (MonadIO m) =>-    T.Text ->                               -- string-    m T.Text-strdown string = liftIO $ do-    string' <- textToCString string-    result <- g_strdown string'-    checkUnexpectedReturnNULL "g_strdown" result-    result' <- cstringToText result-    freeMem result-    freeMem string'-    return result'----- function g_strdelimit--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "delimiters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_delimiter", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "delimiters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_delimiter", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strdelimit" g_strdelimit :: -    CString ->                              -- string : TBasicType TUTF8-    CString ->                              -- delimiters : TBasicType TUTF8-    Int8 ->                                 -- new_delimiter : TBasicType TInt8-    IO CString---strdelimit ::-    (MonadIO m) =>-    T.Text ->                               -- string-    Maybe (T.Text) ->                       -- delimiters-    Int8 ->                                 -- new_delimiter-    m T.Text-strdelimit string delimiters new_delimiter = liftIO $ do-    string' <- textToCString string-    maybeDelimiters <- case delimiters of-        Nothing -> return nullPtr-        Just jDelimiters -> do-            jDelimiters' <- textToCString jDelimiters-            return jDelimiters'-    result <- g_strdelimit string' maybeDelimiters new_delimiter-    checkUnexpectedReturnNULL "g_strdelimit" result-    result' <- cstringToText result-    freeMem result-    freeMem string'-    freeMem maybeDelimiters-    return result'----- function g_strcompress--- Args : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strcompress" g_strcompress :: -    CString ->                              -- source : TBasicType TUTF8-    IO CString---strcompress ::-    (MonadIO m) =>-    T.Text ->                               -- source-    m T.Text-strcompress source = liftIO $ do-    source' <- textToCString source-    result <- g_strcompress source'-    checkUnexpectedReturnNULL "g_strcompress" result-    result' <- cstringToText result-    freeMem result-    freeMem source'-    return result'----- function g_strcmp0--- Args : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_strcmp0" g_strcmp0 :: -    CString ->                              -- str1 : TBasicType TUTF8-    CString ->                              -- str2 : TBasicType TUTF8-    IO Int32---strcmp0 ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- str1-    Maybe (T.Text) ->                       -- str2-    m Int32-strcmp0 str1 str2 = liftIO $ do-    maybeStr1 <- case str1 of-        Nothing -> return nullPtr-        Just jStr1 -> do-            jStr1' <- textToCString jStr1-            return jStr1'-    maybeStr2 <- case str2 of-        Nothing -> return nullPtr-        Just jStr2 -> do-            jStr2' <- textToCString jStr2-            return jStr2'-    result <- g_strcmp0 maybeStr1 maybeStr2-    freeMem maybeStr1-    freeMem maybeStr2-    return result----- function g_strchug--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strchug" g_strchug :: -    CString ->                              -- string : TBasicType TUTF8-    IO CString---strchug ::-    (MonadIO m) =>-    T.Text ->                               -- string-    m T.Text-strchug string = liftIO $ do-    string' <- textToCString string-    result <- g_strchug string'-    checkUnexpectedReturnNULL "g_strchug" result-    result' <- cstringToText result-    freeMem result-    freeMem string'-    return result'----- function g_strchomp--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strchomp" g_strchomp :: -    CString ->                              -- string : TBasicType TUTF8-    IO CString---strchomp ::-    (MonadIO m) =>-    T.Text ->                               -- string-    m T.Text-strchomp string = liftIO $ do-    string' <- textToCString string-    result <- g_strchomp string'-    checkUnexpectedReturnNULL "g_strchomp" result-    result' <- cstringToText result-    freeMem result-    freeMem string'-    return result'----- function g_strcasecmp--- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_strcasecmp" g_strcasecmp :: -    CString ->                              -- s1 : TBasicType TUTF8-    CString ->                              -- s2 : TBasicType TUTF8-    IO Int32--{-# DEPRECATED strcasecmp ["(Since version 2.2)","See g_strncasecmp() for a discussion of why this","    function is deprecated and how to replace it."]#-}-strcasecmp ::-    (MonadIO m) =>-    T.Text ->                               -- s1-    T.Text ->                               -- s2-    m Int32-strcasecmp s1 s2 = liftIO $ do-    s1' <- textToCString s1-    s2' <- textToCString s2-    result <- g_strcasecmp s1' s2'-    freeMem s1'-    freeMem s2'-    return result----- function g_strcanon--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "valid_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitutor", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "valid_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitutor", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_strcanon" g_strcanon :: -    CString ->                              -- string : TBasicType TUTF8-    CString ->                              -- valid_chars : TBasicType TUTF8-    Int8 ->                                 -- substitutor : TBasicType TInt8-    IO CString---strcanon ::-    (MonadIO m) =>-    T.Text ->                               -- string-    T.Text ->                               -- valid_chars-    Int8 ->                                 -- substitutor-    m T.Text-strcanon string valid_chars substitutor = liftIO $ do-    string' <- textToCString string-    valid_chars' <- textToCString valid_chars-    result <- g_strcanon string' valid_chars' substitutor-    checkUnexpectedReturnNULL "g_strcanon" result-    result' <- cstringToText result-    freeMem result-    freeMem string'-    freeMem valid_chars'-    return result'----- function g_str_tokenize_and_fold--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translit_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ascii_alternates", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translit_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_str_tokenize_and_fold" g_str_tokenize_and_fold :: -    CString ->                              -- string : TBasicType TUTF8-    CString ->                              -- translit_locale : TBasicType TUTF8-    Ptr (Ptr CString) ->                    -- ascii_alternates : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO (Ptr CString)---strTokenizeAndFold ::-    (MonadIO m) =>-    T.Text ->                               -- string-    Maybe (T.Text) ->                       -- translit_locale-    m ([T.Text],[T.Text])-strTokenizeAndFold string translit_locale = liftIO $ do-    string' <- textToCString string-    maybeTranslit_locale <- case translit_locale of-        Nothing -> return nullPtr-        Just jTranslit_locale -> do-            jTranslit_locale' <- textToCString jTranslit_locale-            return jTranslit_locale'-    ascii_alternates <- allocMem :: IO (Ptr (Ptr CString))-    result <- g_str_tokenize_and_fold string' maybeTranslit_locale ascii_alternates-    checkUnexpectedReturnNULL "g_str_tokenize_and_fold" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    ascii_alternates' <- peek ascii_alternates-    ascii_alternates'' <- unpackZeroTerminatedUTF8CArray ascii_alternates'-    mapZeroTerminatedCArray freeMem ascii_alternates'-    freeMem ascii_alternates'-    freeMem string'-    freeMem maybeTranslit_locale-    freeMem ascii_alternates-    return (result', ascii_alternates'')----- function g_str_to_ascii--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_str_to_ascii" g_str_to_ascii :: -    CString ->                              -- str : TBasicType TUTF8-    CString ->                              -- from_locale : TBasicType TUTF8-    IO CString---strToAscii ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Maybe (T.Text) ->                       -- from_locale-    m T.Text-strToAscii str from_locale = liftIO $ do-    str' <- textToCString str-    maybeFrom_locale <- case from_locale of-        Nothing -> return nullPtr-        Just jFrom_locale -> do-            jFrom_locale' <- textToCString jFrom_locale-            return jFrom_locale'-    result <- g_str_to_ascii str' maybeFrom_locale-    checkUnexpectedReturnNULL "g_str_to_ascii" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    freeMem maybeFrom_locale-    return result'----- function g_str_match_string--- Args : [Arg {argName = "search_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "potential_hit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_alternates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "search_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "potential_hit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_alternates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_str_match_string" g_str_match_string :: -    CString ->                              -- search_term : TBasicType TUTF8-    CString ->                              -- potential_hit : TBasicType TUTF8-    CInt ->                                 -- accept_alternates : TBasicType TBoolean-    IO CInt---strMatchString ::-    (MonadIO m) =>-    T.Text ->                               -- search_term-    T.Text ->                               -- potential_hit-    Bool ->                                 -- accept_alternates-    m Bool-strMatchString search_term potential_hit accept_alternates = liftIO $ do-    search_term' <- textToCString search_term-    potential_hit' <- textToCString potential_hit-    let accept_alternates' = (fromIntegral . fromEnum) accept_alternates-    result <- g_str_match_string search_term' potential_hit' accept_alternates'-    let result' = (/= 0) result-    freeMem search_term'-    freeMem potential_hit'-    return result'----- function g_str_is_ascii--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_str_is_ascii" g_str_is_ascii :: -    CString ->                              -- str : TBasicType TUTF8-    IO CInt---strIsAscii ::-    (MonadIO m) =>-    T.Text ->                               -- str-    m Bool-strIsAscii str = liftIO $ do-    str' <- textToCString str-    result <- g_str_is_ascii str'-    let result' = (/= 0) result-    freeMem str'-    return result'----- function g_str_hash--- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_str_hash" g_str_hash :: -    Ptr () ->                               -- v : TBasicType TVoid-    IO Word32---strHash ::-    (MonadIO m) =>-    Ptr () ->                               -- v-    m Word32-strHash v = liftIO $ do-    result <- g_str_hash v-    return result----- function g_str_has_suffix--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suffix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suffix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_str_has_suffix" g_str_has_suffix :: -    CString ->                              -- str : TBasicType TUTF8-    CString ->                              -- suffix : TBasicType TUTF8-    IO CInt---strHasSuffix ::-    (MonadIO m) =>-    T.Text ->                               -- str-    T.Text ->                               -- suffix-    m Bool-strHasSuffix str suffix = liftIO $ do-    str' <- textToCString str-    suffix' <- textToCString suffix-    result <- g_str_has_suffix str' suffix'-    let result' = (/= 0) result-    freeMem str'-    freeMem suffix'-    return result'----- function g_str_has_prefix--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_str_has_prefix" g_str_has_prefix :: -    CString ->                              -- str : TBasicType TUTF8-    CString ->                              -- prefix : TBasicType TUTF8-    IO CInt---strHasPrefix ::-    (MonadIO m) =>-    T.Text ->                               -- str-    T.Text ->                               -- prefix-    m Bool-strHasPrefix str prefix = liftIO $ do-    str' <- textToCString str-    prefix' <- textToCString prefix-    result <- g_str_has_prefix str' prefix'-    let result' = (/= 0) result-    freeMem str'-    freeMem prefix'-    return result'----- function g_str_equal--- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_str_equal" g_str_equal :: -    Ptr () ->                               -- v1 : TBasicType TVoid-    Ptr () ->                               -- v2 : TBasicType TVoid-    IO CInt---strEqual ::-    (MonadIO m) =>-    Ptr () ->                               -- v1-    Ptr () ->                               -- v2-    m Bool-strEqual v1 v2 = liftIO $ do-    result <- g_str_equal v1 v2-    let result' = (/= 0) result-    return result'----- function g_stpcpy--- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_stpcpy" g_stpcpy :: -    CString ->                              -- dest : TBasicType TUTF8-    CString ->                              -- src : TBasicType TUTF8-    IO CString---stpcpy ::-    (MonadIO m) =>-    T.Text ->                               -- dest-    T.Text ->                               -- src-    m T.Text-stpcpy dest src = liftIO $ do-    dest' <- textToCString dest-    src' <- textToCString src-    result <- g_stpcpy dest' src'-    checkUnexpectedReturnNULL "g_stpcpy" result-    result' <- cstringToText result-    freeMem result-    freeMem dest'-    freeMem src'-    return result'----- function g_spawn_sync--- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "standard_output", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_spawn_sync" g_spawn_sync :: -    CString ->                              -- working_directory : TBasicType TUTF8-    Ptr CString ->                          -- argv : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)-    CUInt ->                                -- flags : TInterface "GLib" "SpawnFlags"-    FunPtr SpawnChildSetupFuncC ->          -- child_setup : TInterface "GLib" "SpawnChildSetupFunc"-    Ptr () ->                               -- user_data : TBasicType TVoid-    Ptr (Ptr Word8) ->                      -- standard_output : TCArray True (-1) (-1) (TBasicType TUInt8)-    Ptr (Ptr Word8) ->                      -- standard_error : TCArray True (-1) (-1) (TBasicType TUInt8)-    Ptr Int32 ->                            -- exit_status : TBasicType TInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt---spawnSync ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- working_directory-    [T.Text] ->                             -- argv-    Maybe ([T.Text]) ->                     -- envp-    [SpawnFlags] ->                         -- flags-    Maybe (SpawnChildSetupFunc) ->          -- child_setup-    m (ByteString,ByteString,Int32)-spawnSync working_directory argv envp flags child_setup = liftIO $ do-    maybeWorking_directory <- case working_directory of-        Nothing -> return nullPtr-        Just jWorking_directory -> do-            jWorking_directory' <- textToCString jWorking_directory-            return jWorking_directory'-    argv' <- packZeroTerminatedUTF8CArray argv-    maybeEnvp <- case envp of-        Nothing -> return nullPtr-        Just jEnvp -> do-            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp-            return jEnvp'-    let flags' = gflagsToWord flags-    ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC))-    maybeChild_setup <- case child_setup of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jChild_setup -> do-            jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup)-            poke ptrchild_setup jChild_setup'-            return jChild_setup'-    standard_output <- allocMem :: IO (Ptr (Ptr Word8))-    standard_error <- allocMem :: IO (Ptr (Ptr Word8))-    exit_status <- allocMem :: IO (Ptr Int32)-    let user_data = nullPtr-    onException (do-        _ <- propagateGError $ g_spawn_sync maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data standard_output standard_error exit_status-        standard_output' <- peek standard_output-        standard_output'' <- unpackZeroTerminatedByteString standard_output'-        freeMem standard_output'-        standard_error' <- peek standard_error-        standard_error'' <- unpackZeroTerminatedByteString standard_error'-        freeMem standard_error'-        exit_status' <- peek exit_status-        freeMem maybeWorking_directory-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-        mapZeroTerminatedCArray freeMem maybeEnvp-        freeMem maybeEnvp-        freeMem standard_output-        freeMem standard_error-        freeMem exit_status-        return (standard_output'', standard_error'', exit_status')-     ) (do-        freeMem maybeWorking_directory-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-        mapZeroTerminatedCArray freeMem maybeEnvp-        freeMem maybeEnvp-        freeMem standard_output-        freeMem standard_error-        freeMem exit_status-     )----- function g_spawn_exit_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_spawn_exit_error_quark" g_spawn_exit_error_quark :: -    IO Word32---spawnExitErrorQuark ::-    (MonadIO m) =>-    m Word32-spawnExitErrorQuark  = liftIO $ do-    result <- g_spawn_exit_error_quark-    return result----- function g_spawn_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_spawn_error_quark" g_spawn_error_quark :: -    IO Word32---spawnErrorQuark ::-    (MonadIO m) =>-    m Word32-spawnErrorQuark  = liftIO $ do-    result <- g_spawn_error_quark-    return result----- function g_spawn_command_line_sync--- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "standard_output", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_spawn_command_line_sync" g_spawn_command_line_sync :: -    CString ->                              -- command_line : TBasicType TUTF8-    Ptr (Ptr Word8) ->                      -- standard_output : TCArray True (-1) (-1) (TBasicType TUInt8)-    Ptr (Ptr Word8) ->                      -- standard_error : TCArray True (-1) (-1) (TBasicType TUInt8)-    Ptr Int32 ->                            -- exit_status : TBasicType TInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt---spawnCommandLineSync ::-    (MonadIO m) =>-    T.Text ->                               -- command_line-    m (ByteString,ByteString,Int32)-spawnCommandLineSync command_line = liftIO $ do-    command_line' <- textToCString command_line-    standard_output <- allocMem :: IO (Ptr (Ptr Word8))-    standard_error <- allocMem :: IO (Ptr (Ptr Word8))-    exit_status <- allocMem :: IO (Ptr Int32)-    onException (do-        _ <- propagateGError $ g_spawn_command_line_sync command_line' standard_output standard_error exit_status-        standard_output' <- peek standard_output-        standard_output'' <- unpackZeroTerminatedByteString standard_output'-        freeMem standard_output'-        standard_error' <- peek standard_error-        standard_error'' <- unpackZeroTerminatedByteString standard_error'-        freeMem standard_error'-        exit_status' <- peek exit_status-        freeMem command_line'-        freeMem standard_output-        freeMem standard_error-        freeMem exit_status-        return (standard_output'', standard_error'', exit_status')-     ) (do-        freeMem command_line'-        freeMem standard_output-        freeMem standard_error-        freeMem exit_status-     )----- function g_spawn_command_line_async--- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_spawn_command_line_async" g_spawn_command_line_async :: -    CString ->                              -- command_line : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---spawnCommandLineAsync ::-    (MonadIO m) =>-    T.Text ->                               -- command_line-    m ()-spawnCommandLineAsync command_line = liftIO $ do-    command_line' <- textToCString command_line-    onException (do-        _ <- propagateGError $ g_spawn_command_line_async command_line'-        freeMem command_line'-        return ()-     ) (do-        freeMem command_line'-     )----- function g_spawn_close_pid--- Args : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_spawn_close_pid" g_spawn_close_pid :: -    Int32 ->                                -- pid : TBasicType TInt32-    IO ()---spawnClosePid ::-    (MonadIO m) =>-    Int32 ->                                -- pid-    m ()-spawnClosePid pid = liftIO $ do-    g_spawn_close_pid pid-    return ()----- function g_spawn_check_exit_status--- Args : [Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_spawn_check_exit_status" g_spawn_check_exit_status :: -    Int32 ->                                -- exit_status : TBasicType TInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt---spawnCheckExitStatus ::-    (MonadIO m) =>-    Int32 ->                                -- exit_status-    m ()-spawnCheckExitStatus exit_status = liftIO $ do-    onException (do-        _ <- propagateGError $ g_spawn_check_exit_status exit_status-        return ()-     ) (do-        return ()-     )----- function g_spawn_async_with_pipes--- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_pid", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_input", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_output", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_spawn_async_with_pipes" g_spawn_async_with_pipes :: -    CString ->                              -- working_directory : TBasicType TUTF8-    Ptr CString ->                          -- argv : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)-    CUInt ->                                -- flags : TInterface "GLib" "SpawnFlags"-    FunPtr SpawnChildSetupFuncC ->          -- child_setup : TInterface "GLib" "SpawnChildSetupFunc"-    Ptr () ->                               -- user_data : TBasicType TVoid-    Ptr Int32 ->                            -- child_pid : TBasicType TInt32-    Ptr Int32 ->                            -- standard_input : TBasicType TInt32-    Ptr Int32 ->                            -- standard_output : TBasicType TInt32-    Ptr Int32 ->                            -- standard_error : TBasicType TInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt---spawnAsyncWithPipes ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- working_directory-    [T.Text] ->                             -- argv-    Maybe ([T.Text]) ->                     -- envp-    [SpawnFlags] ->                         -- flags-    Maybe (SpawnChildSetupFunc) ->          -- child_setup-    m (Int32,Int32,Int32,Int32)-spawnAsyncWithPipes working_directory argv envp flags child_setup = liftIO $ do-    maybeWorking_directory <- case working_directory of-        Nothing -> return nullPtr-        Just jWorking_directory -> do-            jWorking_directory' <- textToCString jWorking_directory-            return jWorking_directory'-    argv' <- packZeroTerminatedUTF8CArray argv-    maybeEnvp <- case envp of-        Nothing -> return nullPtr-        Just jEnvp -> do-            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp-            return jEnvp'-    let flags' = gflagsToWord flags-    ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC))-    maybeChild_setup <- case child_setup of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jChild_setup -> do-            jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup)-            poke ptrchild_setup jChild_setup'-            return jChild_setup'-    child_pid <- allocMem :: IO (Ptr Int32)-    standard_input <- allocMem :: IO (Ptr Int32)-    standard_output <- allocMem :: IO (Ptr Int32)-    standard_error <- allocMem :: IO (Ptr Int32)-    let user_data = nullPtr-    onException (do-        _ <- propagateGError $ g_spawn_async_with_pipes maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data child_pid standard_input standard_output standard_error-        child_pid' <- peek child_pid-        standard_input' <- peek standard_input-        standard_output' <- peek standard_output-        standard_error' <- peek standard_error-        freeMem maybeWorking_directory-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-        mapZeroTerminatedCArray freeMem maybeEnvp-        freeMem maybeEnvp-        freeMem child_pid-        freeMem standard_input-        freeMem standard_output-        freeMem standard_error-        return (child_pid', standard_input', standard_output', standard_error')-     ) (do-        freeMem maybeWorking_directory-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-        mapZeroTerminatedCArray freeMem maybeEnvp-        freeMem maybeEnvp-        freeMem child_pid-        freeMem standard_input-        freeMem standard_output-        freeMem standard_error-     )----- function g_spawn_async--- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_pid", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_spawn_async" g_spawn_async :: -    CString ->                              -- working_directory : TBasicType TUTF8-    Ptr CString ->                          -- argv : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)-    CUInt ->                                -- flags : TInterface "GLib" "SpawnFlags"-    FunPtr SpawnChildSetupFuncC ->          -- child_setup : TInterface "GLib" "SpawnChildSetupFunc"-    Ptr () ->                               -- user_data : TBasicType TVoid-    Ptr Int32 ->                            -- child_pid : TBasicType TInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt---spawnAsync ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- working_directory-    [T.Text] ->                             -- argv-    Maybe ([T.Text]) ->                     -- envp-    [SpawnFlags] ->                         -- flags-    Maybe (SpawnChildSetupFunc) ->          -- child_setup-    m (Int32)-spawnAsync working_directory argv envp flags child_setup = liftIO $ do-    maybeWorking_directory <- case working_directory of-        Nothing -> return nullPtr-        Just jWorking_directory -> do-            jWorking_directory' <- textToCString jWorking_directory-            return jWorking_directory'-    argv' <- packZeroTerminatedUTF8CArray argv-    maybeEnvp <- case envp of-        Nothing -> return nullPtr-        Just jEnvp -> do-            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp-            return jEnvp'-    let flags' = gflagsToWord flags-    ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC))-    maybeChild_setup <- case child_setup of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jChild_setup -> do-            jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup)-            poke ptrchild_setup jChild_setup'-            return jChild_setup'-    child_pid <- allocMem :: IO (Ptr Int32)-    let user_data = nullPtr-    onException (do-        _ <- propagateGError $ g_spawn_async maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data child_pid-        child_pid' <- peek child_pid-        freeMem maybeWorking_directory-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-        mapZeroTerminatedCArray freeMem maybeEnvp-        freeMem maybeEnvp-        freeMem child_pid-        return child_pid'-     ) (do-        freeMem maybeWorking_directory-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-        mapZeroTerminatedCArray freeMem maybeEnvp-        freeMem maybeEnvp-        freeMem child_pid-     )----- function g_spaced_primes_closest--- Args : [Arg {argName = "num", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "num", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_spaced_primes_closest" g_spaced_primes_closest :: -    Word32 ->                               -- num : TBasicType TUInt32-    IO Word32---spacedPrimesClosest ::-    (MonadIO m) =>-    Word32 ->                               -- num-    m Word32-spacedPrimesClosest num = liftIO $ do-    result <- g_spaced_primes_closest num-    return result----- function g_source_set_name_by_id--- Args : [Arg {argName = "tag", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tag", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_set_name_by_id" g_source_set_name_by_id :: -    Word32 ->                               -- tag : TBasicType TUInt32-    CString ->                              -- name : TBasicType TUTF8-    IO ()---sourceSetNameById ::-    (MonadIO m) =>-    Word32 ->                               -- tag-    T.Text ->                               -- name-    m ()-sourceSetNameById tag name = liftIO $ do-    name' <- textToCString name-    g_source_set_name_by_id tag name'-    freeMem name'-    return ()----- function g_source_remove_by_user_data--- Args : [Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_source_remove_by_user_data" g_source_remove_by_user_data :: -    Ptr () ->                               -- user_data : TBasicType TVoid-    IO CInt---sourceRemoveByUserData ::-    (MonadIO m) =>-    Ptr () ->                               -- user_data-    m Bool-sourceRemoveByUserData user_data = liftIO $ do-    result <- g_source_remove_by_user_data user_data-    let result' = (/= 0) result-    return result'----- function g_source_remove_by_funcs_user_data--- Args : [Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_source_remove_by_funcs_user_data" g_source_remove_by_funcs_user_data :: -    Ptr SourceFuncs ->                      -- funcs : TInterface "GLib" "SourceFuncs"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO CInt---sourceRemoveByFuncsUserData ::-    (MonadIO m) =>-    SourceFuncs ->                          -- funcs-    Ptr () ->                               -- user_data-    m Bool-sourceRemoveByFuncsUserData funcs user_data = liftIO $ do-    let funcs' = unsafeManagedPtrGetPtr funcs-    result <- g_source_remove_by_funcs_user_data funcs' user_data-    let result' = (/= 0) result-    touchManagedPtr funcs-    return result'----- function g_source_remove--- Args : [Arg {argName = "tag", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tag", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_source_remove" g_source_remove :: -    Word32 ->                               -- tag : TBasicType TUInt32-    IO CInt---sourceRemove ::-    (MonadIO m) =>-    Word32 ->                               -- tag-    m Bool-sourceRemove tag = liftIO $ do-    result <- g_source_remove tag-    let result' = (/= 0) result-    return result'----- function g_slice_set_config--- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_slice_set_config" g_slice_set_config :: -    CUInt ->                                -- ckey : TInterface "GLib" "SliceConfig"-    Int64 ->                                -- value : TBasicType TInt64-    IO ()---sliceSetConfig ::-    (MonadIO m) =>-    SliceConfig ->                          -- ckey-    Int64 ->                                -- value-    m ()-sliceSetConfig ckey value = liftIO $ do-    let ckey' = (fromIntegral . fromEnum) ckey-    g_slice_set_config ckey' value-    return ()----- function g_slice_get_config_state--- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_slice_get_config_state" g_slice_get_config_state :: -    CUInt ->                                -- ckey : TInterface "GLib" "SliceConfig"-    Int64 ->                                -- address : TBasicType TInt64-    Word32 ->                               -- n_values : TBasicType TUInt32-    IO Int64---sliceGetConfigState ::-    (MonadIO m) =>-    SliceConfig ->                          -- ckey-    Int64 ->                                -- address-    Word32 ->                               -- n_values-    m Int64-sliceGetConfigState ckey address n_values = liftIO $ do-    let ckey' = (fromIntegral . fromEnum) ckey-    result <- g_slice_get_config_state ckey' address n_values-    return result----- function g_slice_get_config--- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_slice_get_config" g_slice_get_config :: -    CUInt ->                                -- ckey : TInterface "GLib" "SliceConfig"-    IO Int64---sliceGetConfig ::-    (MonadIO m) =>-    SliceConfig ->                          -- ckey-    m Int64-sliceGetConfig ckey = liftIO $ do-    let ckey' = (fromIntegral . fromEnum) ckey-    result <- g_slice_get_config ckey'-    return result----- function g_slice_free_chain_with_offset--- Args : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_chain", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "next_offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_chain", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "next_offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_slice_free_chain_with_offset" g_slice_free_chain_with_offset :: -    Word64 ->                               -- block_size : TBasicType TUInt64-    Ptr () ->                               -- mem_chain : TBasicType TVoid-    Word64 ->                               -- next_offset : TBasicType TUInt64-    IO ()---sliceFreeChainWithOffset ::-    (MonadIO m) =>-    Word64 ->                               -- block_size-    Ptr () ->                               -- mem_chain-    Word64 ->                               -- next_offset-    m ()-sliceFreeChainWithOffset block_size mem_chain next_offset = liftIO $ do-    g_slice_free_chain_with_offset block_size mem_chain next_offset-    return ()----- function g_slice_free1--- Args : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_block", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_block", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_slice_free1" g_slice_free1 :: -    Word64 ->                               -- block_size : TBasicType TUInt64-    Ptr () ->                               -- mem_block : TBasicType TVoid-    IO ()---sliceFree1 ::-    (MonadIO m) =>-    Word64 ->                               -- block_size-    Ptr () ->                               -- mem_block-    m ()-sliceFree1 block_size mem_block = liftIO $ do-    g_slice_free1 block_size mem_block-    return ()----- function g_shell_unquote--- Args : [Arg {argName = "quoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "quoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_shell_unquote" g_shell_unquote :: -    CString ->                              -- quoted_string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---shellUnquote ::-    (MonadIO m) =>-    T.Text ->                               -- quoted_string-    m T.Text-shellUnquote quoted_string = liftIO $ do-    quoted_string' <- textToCString quoted_string-    onException (do-        result <- propagateGError $ g_shell_unquote quoted_string'-        checkUnexpectedReturnNULL "g_shell_unquote" result-        result' <- cstringToText result-        freeMem result-        freeMem quoted_string'-        return result'-     ) (do-        freeMem quoted_string'-     )----- function g_shell_quote--- Args : [Arg {argName = "unquoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "unquoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_shell_quote" g_shell_quote :: -    CString ->                              -- unquoted_string : TBasicType TUTF8-    IO CString---shellQuote ::-    (MonadIO m) =>-    T.Text ->                               -- unquoted_string-    m T.Text-shellQuote unquoted_string = liftIO $ do-    unquoted_string' <- textToCString unquoted_string-    result <- g_shell_quote unquoted_string'-    checkUnexpectedReturnNULL "g_shell_quote" result-    result' <- cstringToText result-    freeMem result-    freeMem unquoted_string'-    return result'----- function g_shell_parse_argv--- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argcp", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argvp", argType = TCArray True (-1) 1 (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_shell_parse_argv" g_shell_parse_argv :: -    CString ->                              -- command_line : TBasicType TUTF8-    Ptr Int32 ->                            -- argcp : TBasicType TInt32-    Ptr (Ptr CString) ->                    -- argvp : TCArray True (-1) 1 (TBasicType TUTF8)-    Ptr (Ptr GError) ->                     -- error-    IO CInt---shellParseArgv ::-    (MonadIO m) =>-    T.Text ->                               -- command_line-    m (Int32,[T.Text])-shellParseArgv command_line = liftIO $ do-    command_line' <- textToCString command_line-    argcp <- allocMem :: IO (Ptr Int32)-    argvp <- allocMem :: IO (Ptr (Ptr CString))-    onException (do-        _ <- propagateGError $ g_shell_parse_argv command_line' argcp argvp-        argcp' <- peek argcp-        argvp' <- peek argvp-        argvp'' <- unpackZeroTerminatedUTF8CArray argvp'-        mapZeroTerminatedCArray freeMem argvp'-        freeMem argvp'-        freeMem command_line'-        freeMem argcp-        freeMem argvp-        return (argcp', argvp'')-     ) (do-        freeMem command_line'-        freeMem argcp-        freeMem argvp-     )----- function g_shell_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_shell_error_quark" g_shell_error_quark :: -    IO Word32---shellErrorQuark ::-    (MonadIO m) =>-    m Word32-shellErrorQuark  = liftIO $ do-    result <- g_shell_error_quark-    return result----- function g_setenv--- Args : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_setenv" g_setenv :: -    CString ->                              -- variable : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    CInt ->                                 -- overwrite : TBasicType TBoolean-    IO CInt---setenv ::-    (MonadIO m) =>-    T.Text ->                               -- variable-    T.Text ->                               -- value-    Bool ->                                 -- overwrite-    m Bool-setenv variable value overwrite = liftIO $ do-    variable' <- textToCString variable-    value' <- textToCString value-    let overwrite' = (fromIntegral . fromEnum) overwrite-    result <- g_setenv variable' value' overwrite'-    let result' = (/= 0) result-    freeMem variable'-    freeMem value'-    return result'----- function g_set_prgname--- Args : [Arg {argName = "prgname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "prgname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_set_prgname" g_set_prgname :: -    CString ->                              -- prgname : TBasicType TUTF8-    IO ()---setPrgname ::-    (MonadIO m) =>-    T.Text ->                               -- prgname-    m ()-setPrgname prgname = liftIO $ do-    prgname' <- textToCString prgname-    g_set_prgname prgname'-    freeMem prgname'-    return ()----- function g_set_error_literal--- Args : [Arg {argName = "err", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "err", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_set_error_literal" g_set_error_literal :: -    Ptr GError ->                           -- err : TError-    Word32 ->                               -- domain : TBasicType TUInt32-    Int32 ->                                -- code : TBasicType TInt32-    CString ->                              -- message : TBasicType TUTF8-    IO ()---setErrorLiteral ::-    (MonadIO m) =>-    Maybe (GError) ->                       -- err-    Word32 ->                               -- domain-    Int32 ->                                -- code-    T.Text ->                               -- message-    m ()-setErrorLiteral err domain code message = liftIO $ do-    maybeErr <- case err of-        Nothing -> return nullPtr-        Just jErr -> do-            let jErr' = unsafeManagedPtrGetPtr jErr-            return jErr'-    message' <- textToCString message-    g_set_error_literal maybeErr domain code message'-    whenJust err touchManagedPtr-    freeMem message'-    return ()----- function g_set_application_name--- Args : [Arg {argName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_set_application_name" g_set_application_name :: -    CString ->                              -- application_name : TBasicType TUTF8-    IO ()---setApplicationName ::-    (MonadIO m) =>-    T.Text ->                               -- application_name-    m ()-setApplicationName application_name = liftIO $ do-    application_name' <- textToCString application_name-    g_set_application_name application_name'-    freeMem application_name'-    return ()----- function g_sequence_swap--- Args : [Arg {argName = "a", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "a", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_sequence_swap" g_sequence_swap :: -    Ptr SequenceIter ->                     -- a : TInterface "GLib" "SequenceIter"-    Ptr SequenceIter ->                     -- b : TInterface "GLib" "SequenceIter"-    IO ()---sequenceSwap ::-    (MonadIO m) =>-    SequenceIter ->                         -- a-    SequenceIter ->                         -- b-    m ()-sequenceSwap a b = liftIO $ do-    let a' = unsafeManagedPtrGetPtr a-    let b' = unsafeManagedPtrGetPtr b-    g_sequence_swap a' b'-    touchManagedPtr a-    touchManagedPtr b-    return ()----- function g_sequence_set--- Args : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_sequence_set" g_sequence_set :: -    Ptr SequenceIter ->                     -- iter : TInterface "GLib" "SequenceIter"-    Ptr () ->                               -- data : TBasicType TVoid-    IO ()---sequenceSet ::-    (MonadIO m) =>-    SequenceIter ->                         -- iter-    Ptr () ->                               -- data-    m ()-sequenceSet iter data_ = liftIO $ do-    let iter' = unsafeManagedPtrGetPtr iter-    g_sequence_set iter' data_-    touchManagedPtr iter-    return ()----- function g_sequence_remove_range--- Args : [Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_sequence_remove_range" g_sequence_remove_range :: -    Ptr SequenceIter ->                     -- begin : TInterface "GLib" "SequenceIter"-    Ptr SequenceIter ->                     -- end : TInterface "GLib" "SequenceIter"-    IO ()---sequenceRemoveRange ::-    (MonadIO m) =>-    SequenceIter ->                         -- begin-    SequenceIter ->                         -- end-    m ()-sequenceRemoveRange begin end = liftIO $ do-    let begin' = unsafeManagedPtrGetPtr begin-    let end' = unsafeManagedPtrGetPtr end-    g_sequence_remove_range begin' end'-    touchManagedPtr begin-    touchManagedPtr end-    return ()----- function g_sequence_remove--- Args : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_sequence_remove" g_sequence_remove :: -    Ptr SequenceIter ->                     -- iter : TInterface "GLib" "SequenceIter"-    IO ()---sequenceRemove ::-    (MonadIO m) =>-    SequenceIter ->                         -- iter-    m ()-sequenceRemove iter = liftIO $ do-    let iter' = unsafeManagedPtrGetPtr iter-    g_sequence_remove iter'-    touchManagedPtr iter-    return ()----- function g_sequence_move_range--- Args : [Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_sequence_move_range" g_sequence_move_range :: -    Ptr SequenceIter ->                     -- dest : TInterface "GLib" "SequenceIter"-    Ptr SequenceIter ->                     -- begin : TInterface "GLib" "SequenceIter"-    Ptr SequenceIter ->                     -- end : TInterface "GLib" "SequenceIter"-    IO ()---sequenceMoveRange ::-    (MonadIO m) =>-    SequenceIter ->                         -- dest-    SequenceIter ->                         -- begin-    SequenceIter ->                         -- end-    m ()-sequenceMoveRange dest begin end = liftIO $ do-    let dest' = unsafeManagedPtrGetPtr dest-    let begin' = unsafeManagedPtrGetPtr begin-    let end' = unsafeManagedPtrGetPtr end-    g_sequence_move_range dest' begin' end'-    touchManagedPtr dest-    touchManagedPtr begin-    touchManagedPtr end-    return ()----- function g_sequence_move--- Args : [Arg {argName = "src", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "src", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_sequence_move" g_sequence_move :: -    Ptr SequenceIter ->                     -- src : TInterface "GLib" "SequenceIter"-    Ptr SequenceIter ->                     -- dest : TInterface "GLib" "SequenceIter"-    IO ()---sequenceMove ::-    (MonadIO m) =>-    SequenceIter ->                         -- src-    SequenceIter ->                         -- dest-    m ()-sequenceMove src dest = liftIO $ do-    let src' = unsafeManagedPtrGetPtr src-    let dest' = unsafeManagedPtrGetPtr dest-    g_sequence_move src' dest'-    touchManagedPtr src-    touchManagedPtr dest-    return ()----- function g_rmdir--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_rmdir" g_rmdir :: -    CString ->                              -- filename : TBasicType TUTF8-    IO Int32---rmdir ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    m Int32-rmdir filename = liftIO $ do-    filename' <- textToCString filename-    result <- g_rmdir filename'-    freeMem filename'-    return result----- function g_return_if_fail_warning--- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_return_if_fail_warning" g_return_if_fail_warning :: -    CString ->                              -- log_domain : TBasicType TUTF8-    CString ->                              -- pretty_function : TBasicType TUTF8-    CString ->                              -- expression : TBasicType TUTF8-    IO ()---returnIfFailWarning ::-    (MonadIO m) =>-    T.Text ->                               -- log_domain-    T.Text ->                               -- pretty_function-    T.Text ->                               -- expression-    m ()-returnIfFailWarning log_domain pretty_function expression = liftIO $ do-    log_domain' <- textToCString log_domain-    pretty_function' <- textToCString pretty_function-    expression' <- textToCString expression-    g_return_if_fail_warning log_domain' pretty_function' expression'-    freeMem log_domain'-    freeMem pretty_function'-    freeMem expression'-    return ()----- function g_reload_user_special_dirs_cache--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_reload_user_special_dirs_cache" g_reload_user_special_dirs_cache :: -    IO ()---reloadUserSpecialDirsCache ::-    (MonadIO m) =>-    m ()-reloadUserSpecialDirsCache  = liftIO $ do-    g_reload_user_special_dirs_cache-    return ()----- function g_regex_split_simple--- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_regex_split_simple" g_regex_split_simple :: -    CString ->                              -- pattern : TBasicType TUTF8-    CString ->                              -- string : TBasicType TUTF8-    CUInt ->                                -- compile_options : TInterface "GLib" "RegexCompileFlags"-    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"-    IO (Ptr CString)---regexSplitSimple ::-    (MonadIO m) =>-    T.Text ->                               -- pattern-    T.Text ->                               -- string-    [RegexCompileFlags] ->                  -- compile_options-    [RegexMatchFlags] ->                    -- match_options-    m [T.Text]-regexSplitSimple pattern string compile_options match_options = liftIO $ do-    pattern' <- textToCString pattern-    string' <- textToCString string-    let compile_options' = gflagsToWord compile_options-    let match_options' = gflagsToWord match_options-    result <- g_regex_split_simple pattern' string' compile_options' match_options'-    checkUnexpectedReturnNULL "g_regex_split_simple" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    freeMem pattern'-    freeMem string'-    return result'----- function g_regex_match_simple--- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_regex_match_simple" g_regex_match_simple :: -    CString ->                              -- pattern : TBasicType TUTF8-    CString ->                              -- string : TBasicType TUTF8-    CUInt ->                                -- compile_options : TInterface "GLib" "RegexCompileFlags"-    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"-    IO CInt---regexMatchSimple ::-    (MonadIO m) =>-    T.Text ->                               -- pattern-    T.Text ->                               -- string-    [RegexCompileFlags] ->                  -- compile_options-    [RegexMatchFlags] ->                    -- match_options-    m Bool-regexMatchSimple pattern string compile_options match_options = liftIO $ do-    pattern' <- textToCString pattern-    string' <- textToCString string-    let compile_options' = gflagsToWord compile_options-    let match_options' = gflagsToWord match_options-    result <- g_regex_match_simple pattern' string' compile_options' match_options'-    let result' = (/= 0) result-    freeMem pattern'-    freeMem string'-    return result'----- function g_regex_escape_string--- Args : [Arg {argName = "string", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "string", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_regex_escape_string" g_regex_escape_string :: -    Ptr CString ->                          -- string : TCArray False (-1) 1 (TBasicType TUTF8)-    Int32 ->                                -- length : TBasicType TInt32-    IO CString---regexEscapeString ::-    (MonadIO m) =>-    [T.Text] ->                             -- string-    m T.Text-regexEscapeString string = liftIO $ do-    let length_ = fromIntegral $ length string-    string' <- packUTF8CArray string-    result <- g_regex_escape_string string' length_-    checkUnexpectedReturnNULL "g_regex_escape_string" result-    result' <- cstringToText result-    freeMem result-    (mapCArrayWithLength length_) freeMem string'-    freeMem string'-    return result'----- function g_regex_escape_nul--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_regex_escape_nul" g_regex_escape_nul :: -    CString ->                              -- string : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    IO CString---regexEscapeNul ::-    (MonadIO m) =>-    T.Text ->                               -- string-    Int32 ->                                -- length-    m T.Text-regexEscapeNul string length_ = liftIO $ do-    string' <- textToCString string-    result <- g_regex_escape_nul string' length_-    checkUnexpectedReturnNULL "g_regex_escape_nul" result-    result' <- cstringToText result-    freeMem result-    freeMem string'-    return result'----- function g_regex_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_regex_error_quark" g_regex_error_quark :: -    IO Word32---regexErrorQuark ::-    (MonadIO m) =>-    m Word32-regexErrorQuark  = liftIO $ do-    result <- g_regex_error_quark-    return result----- function g_regex_check_replacement--- Args : [Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_references", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_regex_check_replacement" g_regex_check_replacement :: -    CString ->                              -- replacement : TBasicType TUTF8-    Ptr CInt ->                             -- has_references : TBasicType TBoolean-    Ptr (Ptr GError) ->                     -- error-    IO CInt---regexCheckReplacement ::-    (MonadIO m) =>-    T.Text ->                               -- replacement-    m (Bool)-regexCheckReplacement replacement = liftIO $ do-    replacement' <- textToCString replacement-    has_references <- allocMem :: IO (Ptr CInt)-    onException (do-        _ <- propagateGError $ g_regex_check_replacement replacement' has_references-        has_references' <- peek has_references-        let has_references'' = (/= 0) has_references'-        freeMem replacement'-        freeMem has_references-        return has_references''-     ) (do-        freeMem replacement'-        freeMem has_references-     )----- function g_random_set_seed--- Args : [Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_random_set_seed" g_random_set_seed :: -    Word32 ->                               -- seed : TBasicType TUInt32-    IO ()---randomSetSeed ::-    (MonadIO m) =>-    Word32 ->                               -- seed-    m ()-randomSetSeed seed = liftIO $ do-    g_random_set_seed seed-    return ()----- function g_random_int_range--- Args : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_random_int_range" g_random_int_range :: -    Int32 ->                                -- begin : TBasicType TInt32-    Int32 ->                                -- end : TBasicType TInt32-    IO Int32---randomIntRange ::-    (MonadIO m) =>-    Int32 ->                                -- begin-    Int32 ->                                -- end-    m Int32-randomIntRange begin end = liftIO $ do-    result <- g_random_int_range begin end-    return result----- function g_random_int--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_random_int" g_random_int :: -    IO Word32---randomInt ::-    (MonadIO m) =>-    m Word32-randomInt  = liftIO $ do-    result <- g_random_int-    return result----- function g_random_double_range--- Args : [Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_random_double_range" g_random_double_range :: -    CDouble ->                              -- begin : TBasicType TDouble-    CDouble ->                              -- end : TBasicType TDouble-    IO CDouble---randomDoubleRange ::-    (MonadIO m) =>-    Double ->                               -- begin-    Double ->                               -- end-    m Double-randomDoubleRange begin end = liftIO $ do-    let begin' = realToFrac begin-    let end' = realToFrac end-    result <- g_random_double_range begin' end'-    let result' = realToFrac result-    return result'----- function g_random_double--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_random_double" g_random_double :: -    IO CDouble---randomDouble ::-    (MonadIO m) =>-    m Double-randomDouble  = liftIO $ do-    result <- g_random_double-    let result' = realToFrac result-    return result'----- function g_quark_try_string--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_quark_try_string" g_quark_try_string :: -    CString ->                              -- string : TBasicType TUTF8-    IO Word32---quarkTryString ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- string-    m Word32-quarkTryString string = liftIO $ do-    maybeString <- case string of-        Nothing -> return nullPtr-        Just jString -> do-            jString' <- textToCString jString-            return jString'-    result <- g_quark_try_string maybeString-    freeMem maybeString-    return result----- function g_quark_to_string--- Args : [Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_quark_to_string" g_quark_to_string :: -    Word32 ->                               -- quark : TBasicType TUInt32-    IO CString---quarkToString ::-    (MonadIO m) =>-    Word32 ->                               -- quark-    m T.Text-quarkToString quark = liftIO $ do-    result <- g_quark_to_string quark-    checkUnexpectedReturnNULL "g_quark_to_string" result-    result' <- cstringToText result-    return result'----- function g_quark_from_string--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_quark_from_string" g_quark_from_string :: -    CString ->                              -- string : TBasicType TUTF8-    IO Word32---quarkFromString ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- string-    m Word32-quarkFromString string = liftIO $ do-    maybeString <- case string of-        Nothing -> return nullPtr-        Just jString -> do-            jString' <- textToCString jString-            return jString'-    result <- g_quark_from_string maybeString-    freeMem maybeString-    return result----- function g_quark_from_static_string--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_quark_from_static_string" g_quark_from_static_string :: -    CString ->                              -- string : TBasicType TUTF8-    IO Word32---quarkFromStaticString ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- string-    m Word32-quarkFromStaticString string = liftIO $ do-    maybeString <- case string of-        Nothing -> return nullPtr-        Just jString -> do-            jString' <- textToCString jString-            return jString'-    result <- g_quark_from_static_string maybeString-    freeMem maybeString-    return result----- function g_propagate_error--- Args : [Arg {argName = "dest", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "dest", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_propagate_error" g_propagate_error :: -    Ptr GError ->                           -- dest : TError-    Ptr GError ->                           -- src : TError-    IO ()---propagateError ::-    (MonadIO m) =>-    GError ->                               -- dest-    GError ->                               -- src-    m ()-propagateError dest src = liftIO $ do-    let dest' = unsafeManagedPtrGetPtr dest-    let src' = unsafeManagedPtrGetPtr src-    g_propagate_error dest' src'-    touchManagedPtr dest-    touchManagedPtr src-    return ()----- function g_poll--- Args : [Arg {argName = "fds", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nfds", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "fds", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nfds", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_poll" g_poll :: -    Ptr PollFD ->                           -- fds : TInterface "GLib" "PollFD"-    Word32 ->                               -- nfds : TBasicType TUInt32-    Int32 ->                                -- timeout : TBasicType TInt32-    IO Int32---poll ::-    (MonadIO m) =>-    PollFD ->                               -- fds-    Word32 ->                               -- nfds-    Int32 ->                                -- timeout-    m Int32-poll fds nfds timeout = liftIO $ do-    let fds' = unsafeManagedPtrGetPtr fds-    result <- g_poll fds' nfds timeout-    touchManagedPtr fds-    return result----- function g_pointer_bit_unlock--- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_pointer_bit_unlock" g_pointer_bit_unlock :: -    Ptr () ->                               -- address : TBasicType TVoid-    Int32 ->                                -- lock_bit : TBasicType TInt32-    IO ()---pointerBitUnlock ::-    (MonadIO m) =>-    Ptr () ->                               -- address-    Int32 ->                                -- lock_bit-    m ()-pointerBitUnlock address lock_bit = liftIO $ do-    g_pointer_bit_unlock address lock_bit-    return ()----- function g_pointer_bit_trylock--- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_pointer_bit_trylock" g_pointer_bit_trylock :: -    Ptr () ->                               -- address : TBasicType TVoid-    Int32 ->                                -- lock_bit : TBasicType TInt32-    IO CInt---pointerBitTrylock ::-    (MonadIO m) =>-    Ptr () ->                               -- address-    Int32 ->                                -- lock_bit-    m Bool-pointerBitTrylock address lock_bit = liftIO $ do-    result <- g_pointer_bit_trylock address lock_bit-    let result' = (/= 0) result-    return result'----- function g_pointer_bit_lock--- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_pointer_bit_lock" g_pointer_bit_lock :: -    Ptr () ->                               -- address : TBasicType TVoid-    Int32 ->                                -- lock_bit : TBasicType TInt32-    IO ()---pointerBitLock ::-    (MonadIO m) =>-    Ptr () ->                               -- address-    Int32 ->                                -- lock_bit-    m ()-pointerBitLock address lock_bit = liftIO $ do-    g_pointer_bit_lock address lock_bit-    return ()----- function g_pattern_match_string--- Args : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_pattern_match_string" g_pattern_match_string :: -    Ptr PatternSpec ->                      -- pspec : TInterface "GLib" "PatternSpec"-    CString ->                              -- string : TBasicType TUTF8-    IO CInt---patternMatchString ::-    (MonadIO m) =>-    PatternSpec ->                          -- pspec-    T.Text ->                               -- string-    m Bool-patternMatchString pspec string = liftIO $ do-    let pspec' = unsafeManagedPtrGetPtr pspec-    string' <- textToCString string-    result <- g_pattern_match_string pspec' string'-    let result' = (/= 0) result-    touchManagedPtr pspec-    freeMem string'-    return result'----- function g_pattern_match_simple--- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_pattern_match_simple" g_pattern_match_simple :: -    CString ->                              -- pattern : TBasicType TUTF8-    CString ->                              -- string : TBasicType TUTF8-    IO CInt---patternMatchSimple ::-    (MonadIO m) =>-    T.Text ->                               -- pattern-    T.Text ->                               -- string-    m Bool-patternMatchSimple pattern string = liftIO $ do-    pattern' <- textToCString pattern-    string' <- textToCString string-    result <- g_pattern_match_simple pattern' string'-    let result' = (/= 0) result-    freeMem pattern'-    freeMem string'-    return result'----- function g_pattern_match--- Args : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_reversed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_reversed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_pattern_match" g_pattern_match :: -    Ptr PatternSpec ->                      -- pspec : TInterface "GLib" "PatternSpec"-    Word32 ->                               -- string_length : TBasicType TUInt32-    CString ->                              -- string : TBasicType TUTF8-    CString ->                              -- string_reversed : TBasicType TUTF8-    IO CInt---patternMatch ::-    (MonadIO m) =>-    PatternSpec ->                          -- pspec-    Word32 ->                               -- string_length-    T.Text ->                               -- string-    Maybe (T.Text) ->                       -- string_reversed-    m Bool-patternMatch pspec string_length string string_reversed = liftIO $ do-    let pspec' = unsafeManagedPtrGetPtr pspec-    string' <- textToCString string-    maybeString_reversed <- case string_reversed of-        Nothing -> return nullPtr-        Just jString_reversed -> do-            jString_reversed' <- textToCString jString_reversed-            return jString_reversed'-    result <- g_pattern_match pspec' string_length string' maybeString_reversed-    let result' = (/= 0) result-    touchManagedPtr pspec-    freeMem string'-    freeMem maybeString_reversed-    return result'----- function g_path_skip_root--- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_path_skip_root" g_path_skip_root :: -    CString ->                              -- file_name : TBasicType TUTF8-    IO CString---pathSkipRoot ::-    (MonadIO m) =>-    T.Text ->                               -- file_name-    m T.Text-pathSkipRoot file_name = liftIO $ do-    file_name' <- textToCString file_name-    result <- g_path_skip_root file_name'-    checkUnexpectedReturnNULL "g_path_skip_root" result-    result' <- cstringToText result-    freeMem file_name'-    return result'----- function g_path_is_absolute--- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_path_is_absolute" g_path_is_absolute :: -    CString ->                              -- file_name : TBasicType TUTF8-    IO CInt---pathIsAbsolute ::-    (MonadIO m) =>-    T.Text ->                               -- file_name-    m Bool-pathIsAbsolute file_name = liftIO $ do-    file_name' <- textToCString file_name-    result <- g_path_is_absolute file_name'-    let result' = (/= 0) result-    freeMem file_name'-    return result'----- function g_path_get_dirname--- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_path_get_dirname" g_path_get_dirname :: -    CString ->                              -- file_name : TBasicType TUTF8-    IO CString---pathGetDirname ::-    (MonadIO m) =>-    T.Text ->                               -- file_name-    m T.Text-pathGetDirname file_name = liftIO $ do-    file_name' <- textToCString file_name-    result <- g_path_get_dirname file_name'-    checkUnexpectedReturnNULL "g_path_get_dirname" result-    result' <- cstringToText result-    freeMem result-    freeMem file_name'-    return result'----- function g_path_get_basename--- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_path_get_basename" g_path_get_basename :: -    CString ->                              -- file_name : TBasicType TUTF8-    IO CString---pathGetBasename ::-    (MonadIO m) =>-    T.Text ->                               -- file_name-    m T.Text-pathGetBasename file_name = liftIO $ do-    file_name' <- textToCString file_name-    result <- g_path_get_basename file_name'-    checkUnexpectedReturnNULL "g_path_get_basename" result-    result' <- cstringToText result-    freeMem result-    freeMem file_name'-    return result'----- function g_parse_debug_string--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 2 (TInterface "GLib" "DebugKey"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nkeys", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "nkeys", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 2 (TInterface "GLib" "DebugKey"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_parse_debug_string" g_parse_debug_string :: -    CString ->                              -- string : TBasicType TUTF8-    Ptr DebugKey ->                         -- keys : TCArray False (-1) 2 (TInterface "GLib" "DebugKey")-    Word32 ->                               -- nkeys : TBasicType TUInt32-    IO Word32---parseDebugString ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- string-    [DebugKey] ->                           -- keys-    m Word32-parseDebugString string keys = liftIO $ do-    let nkeys = fromIntegral $ length keys-    maybeString <- case string of-        Nothing -> return nullPtr-        Just jString -> do-            jString' <- textToCString jString-            return jString'-    let keys' = map unsafeManagedPtrGetPtr keys-    keys'' <- packBlockArray 16 keys'-    result <- g_parse_debug_string maybeString keys'' nkeys-    mapM_ touchManagedPtr keys-    freeMem maybeString-    freeMem keys''-    return result----- function g_option_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_option_error_quark" g_option_error_quark :: -    IO Word32---optionErrorQuark ::-    (MonadIO m) =>-    m Word32-optionErrorQuark  = liftIO $ do-    result <- g_option_error_quark-    return result----- function g_once_init_leave--- Args : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_once_init_leave" g_once_init_leave :: -    Ptr () ->                               -- location : TBasicType TVoid-    Word64 ->                               -- result : TBasicType TUInt64-    IO ()---onceInitLeave ::-    (MonadIO m) =>-    Ptr () ->                               -- location-    Word64 ->                               -- result-    m ()-onceInitLeave location result_ = liftIO $ do-    g_once_init_leave location result_-    return ()----- function g_once_init_enter--- Args : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_once_init_enter" g_once_init_enter :: -    Ptr () ->                               -- location : TBasicType TVoid-    IO CInt---onceInitEnter ::-    (MonadIO m) =>-    Ptr () ->                               -- location-    m Bool-onceInitEnter location = liftIO $ do-    result <- g_once_init_enter location-    let result' = (/= 0) result-    return result'----- function g_on_error_stack_trace--- Args : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_on_error_stack_trace" g_on_error_stack_trace :: -    CString ->                              -- prg_name : TBasicType TUTF8-    IO ()---onErrorStackTrace ::-    (MonadIO m) =>-    T.Text ->                               -- prg_name-    m ()-onErrorStackTrace prg_name = liftIO $ do-    prg_name' <- textToCString prg_name-    g_on_error_stack_trace prg_name'-    freeMem prg_name'-    return ()----- function g_on_error_query--- Args : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_on_error_query" g_on_error_query :: -    CString ->                              -- prg_name : TBasicType TUTF8-    IO ()---onErrorQuery ::-    (MonadIO m) =>-    T.Text ->                               -- prg_name-    m ()-onErrorQuery prg_name = liftIO $ do-    prg_name' <- textToCString prg_name-    g_on_error_query prg_name'-    freeMem prg_name'-    return ()----- function g_nullify_pointer--- Args : [Arg {argName = "nullify_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "nullify_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_nullify_pointer" g_nullify_pointer :: -    Ptr () ->                               -- nullify_location : TBasicType TVoid-    IO ()---nullifyPointer ::-    (MonadIO m) =>-    Ptr () ->                               -- nullify_location-    m ()-nullifyPointer nullify_location = liftIO $ do-    g_nullify_pointer nullify_location-    return ()----- function g_mkstemp_full--- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_mkstemp_full" g_mkstemp_full :: -    CString ->                              -- tmpl : TBasicType TFileName-    Int32 ->                                -- flags : TBasicType TInt32-    Int32 ->                                -- mode : TBasicType TInt32-    IO Int32---mkstempFull ::-    (MonadIO m) =>-    [Char] ->                               -- tmpl-    Int32 ->                                -- flags-    Int32 ->                                -- mode-    m Int32-mkstempFull tmpl flags mode = liftIO $ do-    tmpl' <- stringToCString tmpl-    result <- g_mkstemp_full tmpl' flags mode-    freeMem tmpl'-    return result----- function g_mkstemp--- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_mkstemp" g_mkstemp :: -    CString ->                              -- tmpl : TBasicType TFileName-    IO Int32---mkstemp ::-    (MonadIO m) =>-    [Char] ->                               -- tmpl-    m Int32-mkstemp tmpl = liftIO $ do-    tmpl' <- stringToCString tmpl-    result <- g_mkstemp tmpl'-    freeMem tmpl'-    return result----- function g_mkdtemp_full--- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_mkdtemp_full" g_mkdtemp_full :: -    CString ->                              -- tmpl : TBasicType TFileName-    Int32 ->                                -- mode : TBasicType TInt32-    IO CString---mkdtempFull ::-    (MonadIO m) =>-    [Char] ->                               -- tmpl-    Int32 ->                                -- mode-    m T.Text-mkdtempFull tmpl mode = liftIO $ do-    tmpl' <- stringToCString tmpl-    result <- g_mkdtemp_full tmpl' mode-    checkUnexpectedReturnNULL "g_mkdtemp_full" result-    result' <- cstringToText result-    freeMem result-    freeMem tmpl'-    return result'----- function g_mkdtemp--- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_mkdtemp" g_mkdtemp :: -    CString ->                              -- tmpl : TBasicType TFileName-    IO CString---mkdtemp ::-    (MonadIO m) =>-    [Char] ->                               -- tmpl-    m T.Text-mkdtemp tmpl = liftIO $ do-    tmpl' <- stringToCString tmpl-    result <- g_mkdtemp tmpl'-    checkUnexpectedReturnNULL "g_mkdtemp" result-    result' <- cstringToText result-    freeMem result-    freeMem tmpl'-    return result'----- function g_mkdir_with_parents--- Args : [Arg {argName = "pathname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pathname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_mkdir_with_parents" g_mkdir_with_parents :: -    CString ->                              -- pathname : TBasicType TUTF8-    Int32 ->                                -- mode : TBasicType TInt32-    IO Int32---mkdirWithParents ::-    (MonadIO m) =>-    T.Text ->                               -- pathname-    Int32 ->                                -- mode-    m Int32-mkdirWithParents pathname mode = liftIO $ do-    pathname' <- textToCString pathname-    result <- g_mkdir_with_parents pathname' mode-    freeMem pathname'-    return result----- function g_mem_set_vtable--- Args : [Arg {argName = "vtable", argType = TInterface "GLib" "MemVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "vtable", argType = TInterface "GLib" "MemVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_mem_set_vtable" g_mem_set_vtable :: -    Ptr MemVTable ->                        -- vtable : TInterface "GLib" "MemVTable"-    IO ()---memSetVtable ::-    (MonadIO m) =>-    MemVTable ->                            -- vtable-    m ()-memSetVtable vtable = liftIO $ do-    let vtable' = unsafeManagedPtrGetPtr vtable-    g_mem_set_vtable vtable'-    touchManagedPtr vtable-    return ()----- function g_mem_profile--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_mem_profile" g_mem_profile :: -    IO ()---memProfile ::-    (MonadIO m) =>-    m ()-memProfile  = liftIO $ do-    g_mem_profile-    return ()----- function g_mem_is_system_malloc--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_mem_is_system_malloc" g_mem_is_system_malloc :: -    IO CInt---memIsSystemMalloc ::-    (MonadIO m) =>-    m Bool-memIsSystemMalloc  = liftIO $ do-    result <- g_mem_is_system_malloc-    let result' = (/= 0) result-    return result'----- function g_markup_escape_text--- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_markup_escape_text" g_markup_escape_text :: -    CString ->                              -- text : TBasicType TUTF8-    Int64 ->                                -- length : TBasicType TInt64-    IO CString---markupEscapeText ::-    (MonadIO m) =>-    T.Text ->                               -- text-    Int64 ->                                -- length-    m T.Text-markupEscapeText text length_ = liftIO $ do-    text' <- textToCString text-    result <- g_markup_escape_text text' length_-    checkUnexpectedReturnNULL "g_markup_escape_text" result-    result' <- cstringToText result-    freeMem result-    freeMem text'-    return result'----- function g_markup_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_markup_error_quark" g_markup_error_quark :: -    IO Word32---markupErrorQuark ::-    (MonadIO m) =>-    m Word32-markupErrorQuark  = liftIO $ do-    result <- g_markup_error_quark-    return result----- function g_main_depth--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_main_depth" g_main_depth :: -    IO Int32---mainDepth ::-    (MonadIO m) =>-    m Int32-mainDepth  = liftIO $ do-    result <- g_main_depth-    return result----- function g_main_current_source--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_main_current_source" g_main_current_source :: -    IO (Ptr Source)---mainCurrentSource ::-    (MonadIO m) =>-    m Source-mainCurrentSource  = liftIO $ do-    result <- g_main_current_source-    checkUnexpectedReturnNULL "g_main_current_source" result-    result' <- (newBoxed Source) result-    return result'----- function g_main_context_ref_thread_default--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "MainContext"--- throws : False--- Skip return : False--foreign import ccall "g_main_context_ref_thread_default" g_main_context_ref_thread_default :: -    IO (Ptr MainContext)---mainContextRefThreadDefault ::-    (MonadIO m) =>-    m MainContext-mainContextRefThreadDefault  = liftIO $ do-    result <- g_main_context_ref_thread_default-    checkUnexpectedReturnNULL "g_main_context_ref_thread_default" result-    result' <- (wrapBoxed MainContext) result-    return result'----- function g_main_context_get_thread_default--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "MainContext"--- throws : False--- Skip return : False--foreign import ccall "g_main_context_get_thread_default" g_main_context_get_thread_default :: -    IO (Ptr MainContext)---mainContextGetThreadDefault ::-    (MonadIO m) =>-    m MainContext-mainContextGetThreadDefault  = liftIO $ do-    result <- g_main_context_get_thread_default-    checkUnexpectedReturnNULL "g_main_context_get_thread_default" result-    result' <- (newBoxed MainContext) result-    return result'----- function g_main_context_default--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "MainContext"--- throws : False--- Skip return : False--foreign import ccall "g_main_context_default" g_main_context_default :: -    IO (Ptr MainContext)---mainContextDefault ::-    (MonadIO m) =>-    m MainContext-mainContextDefault  = liftIO $ do-    result <- g_main_context_default-    checkUnexpectedReturnNULL "g_main_context_default" result-    result' <- (newBoxed MainContext) result-    return result'----- function g_log_set_fatal_mask--- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "LogLevelFlags"--- throws : False--- Skip return : False--foreign import ccall "g_log_set_fatal_mask" g_log_set_fatal_mask :: -    CString ->                              -- log_domain : TBasicType TUTF8-    CUInt ->                                -- fatal_mask : TInterface "GLib" "LogLevelFlags"-    IO CUInt---logSetFatalMask ::-    (MonadIO m) =>-    T.Text ->                               -- log_domain-    [LogLevelFlags] ->                      -- fatal_mask-    m [LogLevelFlags]-logSetFatalMask log_domain fatal_mask = liftIO $ do-    log_domain' <- textToCString log_domain-    let fatal_mask' = gflagsToWord fatal_mask-    result <- g_log_set_fatal_mask log_domain' fatal_mask'-    let result' = wordToGFlags result-    freeMem log_domain'-    return result'----- function g_log_set_always_fatal--- Args : [Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "LogLevelFlags"--- throws : False--- Skip return : False--foreign import ccall "g_log_set_always_fatal" g_log_set_always_fatal :: -    CUInt ->                                -- fatal_mask : TInterface "GLib" "LogLevelFlags"-    IO CUInt---logSetAlwaysFatal ::-    (MonadIO m) =>-    [LogLevelFlags] ->                      -- fatal_mask-    m [LogLevelFlags]-logSetAlwaysFatal fatal_mask = liftIO $ do-    let fatal_mask' = gflagsToWord fatal_mask-    result <- g_log_set_always_fatal fatal_mask'-    let result' = wordToGFlags result-    return result'----- function g_log_remove_handler--- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_log_remove_handler" g_log_remove_handler :: -    CString ->                              -- log_domain : TBasicType TUTF8-    Word32 ->                               -- handler_id : TBasicType TUInt32-    IO ()---logRemoveHandler ::-    (MonadIO m) =>-    T.Text ->                               -- log_domain-    Word32 ->                               -- handler_id-    m ()-logRemoveHandler log_domain handler_id = liftIO $ do-    log_domain' <- textToCString log_domain-    g_log_remove_handler log_domain' handler_id-    freeMem log_domain'-    return ()----- function g_log_default_handler--- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unused_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unused_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_log_default_handler" g_log_default_handler :: -    CString ->                              -- log_domain : TBasicType TUTF8-    CUInt ->                                -- log_level : TInterface "GLib" "LogLevelFlags"-    CString ->                              -- message : TBasicType TUTF8-    Ptr () ->                               -- unused_data : TBasicType TVoid-    IO ()---logDefaultHandler ::-    (MonadIO m) =>-    T.Text ->                               -- log_domain-    [LogLevelFlags] ->                      -- log_level-    T.Text ->                               -- message-    Ptr () ->                               -- unused_data-    m ()-logDefaultHandler log_domain log_level message unused_data = liftIO $ do-    log_domain' <- textToCString log_domain-    let log_level' = gflagsToWord log_level-    message' <- textToCString message-    g_log_default_handler log_domain' log_level' message' unused_data-    freeMem log_domain'-    freeMem message'-    return ()----- function g_locale_to_utf8--- Args : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_locale_to_utf8" g_locale_to_utf8 :: -    CString ->                              -- opsysstring : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    Word64 ->                               -- bytes_read : TBasicType TUInt64-    Word64 ->                               -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString---localeToUtf8 ::-    (MonadIO m) =>-    T.Text ->                               -- opsysstring-    Int64 ->                                -- len-    Word64 ->                               -- bytes_read-    Word64 ->                               -- bytes_written-    m T.Text-localeToUtf8 opsysstring len bytes_read bytes_written = liftIO $ do-    opsysstring' <- textToCString opsysstring-    onException (do-        result <- propagateGError $ g_locale_to_utf8 opsysstring' len bytes_read bytes_written-        checkUnexpectedReturnNULL "g_locale_to_utf8" result-        result' <- cstringToText result-        freeMem result-        freeMem opsysstring'-        return result'-     ) (do-        freeMem opsysstring'-     )----- function g_locale_from_utf8--- Args : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_locale_from_utf8" g_locale_from_utf8 :: -    CString ->                              -- utf8string : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    Word64 ->                               -- bytes_read : TBasicType TUInt64-    Word64 ->                               -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString---localeFromUtf8 ::-    (MonadIO m) =>-    T.Text ->                               -- utf8string-    Int64 ->                                -- len-    Word64 ->                               -- bytes_read-    Word64 ->                               -- bytes_written-    m T.Text-localeFromUtf8 utf8string len bytes_read bytes_written = liftIO $ do-    utf8string' <- textToCString utf8string-    onException (do-        result <- propagateGError $ g_locale_from_utf8 utf8string' len bytes_read bytes_written-        checkUnexpectedReturnNULL "g_locale_from_utf8" result-        result' <- cstringToText result-        freeMem result-        freeMem utf8string'-        return result'-     ) (do-        freeMem utf8string'-     )----- function g_listenv--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_listenv" g_listenv :: -    IO (Ptr CString)---listenv ::-    (MonadIO m) =>-    m [T.Text]-listenv  = liftIO $ do-    result <- g_listenv-    checkUnexpectedReturnNULL "g_listenv" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    return result'----- function g_key_file_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_key_file_error_quark" g_key_file_error_quark :: -    IO Word32---keyFileErrorQuark ::-    (MonadIO m) =>-    m Word32-keyFileErrorQuark  = liftIO $ do-    result <- g_key_file_error_quark-    return result----- function g_io_create_watch--- Args : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_io_create_watch" g_io_create_watch :: -    Ptr IOChannel ->                        -- channel : TInterface "GLib" "IOChannel"-    CUInt ->                                -- condition : TInterface "GLib" "IOCondition"-    IO (Ptr Source)---ioCreateWatch ::-    (MonadIO m) =>-    IOChannel ->                            -- channel-    [IOCondition] ->                        -- condition-    m Source-ioCreateWatch channel condition = liftIO $ do-    let channel' = unsafeManagedPtrGetPtr channel-    let condition' = gflagsToWord condition-    result <- g_io_create_watch channel' condition'-    checkUnexpectedReturnNULL "g_io_create_watch" result-    result' <- (wrapBoxed Source) result-    touchManagedPtr channel-    return result'----- function g_io_channel_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_error_quark" g_io_channel_error_quark :: -    IO Word32---ioChannelErrorQuark ::-    (MonadIO m) =>-    m Word32-ioChannelErrorQuark  = liftIO $ do-    result <- g_io_channel_error_quark-    return result----- function g_io_channel_error_from_errno--- Args : [Arg {argName = "en", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "en", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOChannelError"--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_error_from_errno" g_io_channel_error_from_errno :: -    Int32 ->                                -- en : TBasicType TInt32-    IO CUInt---ioChannelErrorFromErrno ::-    (MonadIO m) =>-    Int32 ->                                -- en-    m IOChannelError-ioChannelErrorFromErrno en = liftIO $ do-    result <- g_io_channel_error_from_errno en-    let result' = (toEnum . fromIntegral) result-    return result'----- function g_io_add_watch_full--- Args : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "IOFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "IOFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_io_add_watch_full" g_io_add_watch_full :: -    Ptr IOChannel ->                        -- channel : TInterface "GLib" "IOChannel"-    Int32 ->                                -- priority : TBasicType TInt32-    CUInt ->                                -- condition : TInterface "GLib" "IOCondition"-    FunPtr IOFuncC ->                       -- func : TInterface "GLib" "IOFunc"-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---ioAddWatch ::-    (MonadIO m) =>-    IOChannel ->                            -- channel-    Int32 ->                                -- priority-    [IOCondition] ->                        -- condition-    IOFunc ->                               -- func-    m Word32-ioAddWatch channel priority condition func = liftIO $ do-    let channel' = unsafeManagedPtrGetPtr channel-    let condition' = gflagsToWord condition-    func' <- mkIOFunc (iOFuncWrapper Nothing func)-    let user_data = castFunPtrToPtr func'-    let notify = safeFreeFunPtrPtr-    result <- g_io_add_watch_full channel' priority condition' func' user_data notify-    touchManagedPtr channel-    return result----- function g_intern_string--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_intern_string" g_intern_string :: -    CString ->                              -- string : TBasicType TUTF8-    IO CString---internString ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- string-    m T.Text-internString string = liftIO $ do-    maybeString <- case string of-        Nothing -> return nullPtr-        Just jString -> do-            jString' <- textToCString jString-            return jString'-    result <- g_intern_string maybeString-    checkUnexpectedReturnNULL "g_intern_string" result-    result' <- cstringToText result-    freeMem maybeString-    return result'----- function g_intern_static_string--- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_intern_static_string" g_intern_static_string :: -    CString ->                              -- string : TBasicType TUTF8-    IO CString---internStaticString ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- string-    m T.Text-internStaticString string = liftIO $ do-    maybeString <- case string of-        Nothing -> return nullPtr-        Just jString -> do-            jString' <- textToCString jString-            return jString'-    result <- g_intern_static_string maybeString-    checkUnexpectedReturnNULL "g_intern_static_string" result-    result' <- cstringToText result-    freeMem maybeString-    return result'----- function g_int_hash--- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_int_hash" g_int_hash :: -    Ptr () ->                               -- v : TBasicType TVoid-    IO Word32---intHash ::-    (MonadIO m) =>-    Ptr () ->                               -- v-    m Word32-intHash v = liftIO $ do-    result <- g_int_hash v-    return result----- function g_int_equal--- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_int_equal" g_int_equal :: -    Ptr () ->                               -- v1 : TBasicType TVoid-    Ptr () ->                               -- v2 : TBasicType TVoid-    IO CInt---intEqual ::-    (MonadIO m) =>-    Ptr () ->                               -- v1-    Ptr () ->                               -- v2-    m Bool-intEqual v1 v2 = liftIO $ do-    result <- g_int_equal v1 v2-    let result' = (/= 0) result-    return result'----- function g_int64_hash--- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_int64_hash" g_int64_hash :: -    Ptr () ->                               -- v : TBasicType TVoid-    IO Word32---int64Hash ::-    (MonadIO m) =>-    Ptr () ->                               -- v-    m Word32-int64Hash v = liftIO $ do-    result <- g_int64_hash v-    return result----- function g_int64_equal--- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_int64_equal" g_int64_equal :: -    Ptr () ->                               -- v1 : TBasicType TVoid-    Ptr () ->                               -- v2 : TBasicType TVoid-    IO CInt---int64Equal ::-    (MonadIO m) =>-    Ptr () ->                               -- v1-    Ptr () ->                               -- v2-    m Bool-int64Equal v1 v2 = liftIO $ do-    result <- g_int64_equal v1 v2-    let result' = (/= 0) result-    return result'----- function g_idle_source_new--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_idle_source_new" g_idle_source_new :: -    IO (Ptr Source)---idleSourceNew ::-    (MonadIO m) =>-    m Source-idleSourceNew  = liftIO $ do-    result <- g_idle_source_new-    checkUnexpectedReturnNULL "g_idle_source_new" result-    result' <- (wrapBoxed Source) result-    return result'----- function g_idle_remove_by_data--- Args : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_idle_remove_by_data" g_idle_remove_by_data :: -    Ptr () ->                               -- data : TBasicType TVoid-    IO CInt---idleRemoveByData ::-    (MonadIO m) =>-    Ptr () ->                               -- data-    m Bool-idleRemoveByData data_ = liftIO $ do-    result <- g_idle_remove_by_data data_-    let result' = (/= 0) result-    return result'----- function g_idle_add_full--- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_idle_add_full" g_idle_add_full :: -    Int32 ->                                -- priority : TBasicType TInt32-    FunPtr SourceFuncC ->                   -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---idleAdd ::-    (MonadIO m) =>-    Int32 ->                                -- priority-    SourceFunc ->                           -- function-    m Word32-idleAdd priority function = liftIO $ do-    function' <- mkSourceFunc (sourceFuncWrapper Nothing function)-    let data_ = castFunPtrToPtr function'-    let notify = safeFreeFunPtrPtr-    result <- g_idle_add_full priority function' data_ notify-    return result----- function g_iconv--- Args : [Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_iconv" g_iconv :: -    Ptr IConv ->                            -- converter : TInterface "GLib" "IConv"-    CString ->                              -- inbuf : TBasicType TUTF8-    Word64 ->                               -- inbytes_left : TBasicType TUInt64-    CString ->                              -- outbuf : TBasicType TUTF8-    Word64 ->                               -- outbytes_left : TBasicType TUInt64-    IO Word64---iconv ::-    (MonadIO m) =>-    IConv ->                                -- converter-    T.Text ->                               -- inbuf-    Word64 ->                               -- inbytes_left-    T.Text ->                               -- outbuf-    Word64 ->                               -- outbytes_left-    m Word64-iconv converter inbuf inbytes_left outbuf outbytes_left = liftIO $ do-    let converter' = unsafeManagedPtrGetPtr converter-    inbuf' <- textToCString inbuf-    outbuf' <- textToCString outbuf-    result <- g_iconv converter' inbuf' inbytes_left outbuf' outbytes_left-    touchManagedPtr converter-    freeMem inbuf'-    freeMem outbuf'-    return result----- function g_hostname_to_unicode--- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_hostname_to_unicode" g_hostname_to_unicode :: -    CString ->                              -- hostname : TBasicType TUTF8-    IO CString---hostnameToUnicode ::-    (MonadIO m) =>-    T.Text ->                               -- hostname-    m T.Text-hostnameToUnicode hostname = liftIO $ do-    hostname' <- textToCString hostname-    result <- g_hostname_to_unicode hostname'-    checkUnexpectedReturnNULL "g_hostname_to_unicode" result-    result' <- cstringToText result-    freeMem result-    freeMem hostname'-    return result'----- function g_hostname_to_ascii--- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_hostname_to_ascii" g_hostname_to_ascii :: -    CString ->                              -- hostname : TBasicType TUTF8-    IO CString---hostnameToAscii ::-    (MonadIO m) =>-    T.Text ->                               -- hostname-    m T.Text-hostnameToAscii hostname = liftIO $ do-    hostname' <- textToCString hostname-    result <- g_hostname_to_ascii hostname'-    checkUnexpectedReturnNULL "g_hostname_to_ascii" result-    result' <- cstringToText result-    freeMem result-    freeMem hostname'-    return result'----- function g_hostname_is_non_ascii--- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hostname_is_non_ascii" g_hostname_is_non_ascii :: -    CString ->                              -- hostname : TBasicType TUTF8-    IO CInt---hostnameIsNonAscii ::-    (MonadIO m) =>-    T.Text ->                               -- hostname-    m Bool-hostnameIsNonAscii hostname = liftIO $ do-    hostname' <- textToCString hostname-    result <- g_hostname_is_non_ascii hostname'-    let result' = (/= 0) result-    freeMem hostname'-    return result'----- function g_hostname_is_ip_address--- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hostname_is_ip_address" g_hostname_is_ip_address :: -    CString ->                              -- hostname : TBasicType TUTF8-    IO CInt---hostnameIsIpAddress ::-    (MonadIO m) =>-    T.Text ->                               -- hostname-    m Bool-hostnameIsIpAddress hostname = liftIO $ do-    hostname' <- textToCString hostname-    result <- g_hostname_is_ip_address hostname'-    let result' = (/= 0) result-    freeMem hostname'-    return result'----- function g_hostname_is_ascii_encoded--- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hostname_is_ascii_encoded" g_hostname_is_ascii_encoded :: -    CString ->                              -- hostname : TBasicType TUTF8-    IO CInt---hostnameIsAsciiEncoded ::-    (MonadIO m) =>-    T.Text ->                               -- hostname-    m Bool-hostnameIsAsciiEncoded hostname = liftIO $ do-    hostname' <- textToCString hostname-    result <- g_hostname_is_ascii_encoded hostname'-    let result' = (/= 0) result-    freeMem hostname'-    return result'----- function g_hook_unref--- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hook_unref" g_hook_unref :: -    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"-    Ptr Hook ->                             -- hook : TInterface "GLib" "Hook"-    IO ()---hookUnref ::-    (MonadIO m) =>-    HookList ->                             -- hook_list-    Hook ->                                 -- hook-    m ()-hookUnref hook_list hook = liftIO $ do-    let hook_list' = unsafeManagedPtrGetPtr hook_list-    let hook' = unsafeManagedPtrGetPtr hook-    g_hook_unref hook_list' hook'-    touchManagedPtr hook_list-    touchManagedPtr hook-    return ()----- function g_hook_prepend--- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hook_prepend" g_hook_prepend :: -    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"-    Ptr Hook ->                             -- hook : TInterface "GLib" "Hook"-    IO ()---hookPrepend ::-    (MonadIO m) =>-    HookList ->                             -- hook_list-    Hook ->                                 -- hook-    m ()-hookPrepend hook_list hook = liftIO $ do-    let hook_list' = unsafeManagedPtrGetPtr hook_list-    let hook' = unsafeManagedPtrGetPtr hook-    g_hook_prepend hook_list' hook'-    touchManagedPtr hook_list-    touchManagedPtr hook-    return ()----- function g_hook_insert_before--- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hook_insert_before" g_hook_insert_before :: -    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"-    Ptr Hook ->                             -- sibling : TInterface "GLib" "Hook"-    Ptr Hook ->                             -- hook : TInterface "GLib" "Hook"-    IO ()---hookInsertBefore ::-    (MonadIO m) =>-    HookList ->                             -- hook_list-    Hook ->                                 -- sibling-    Hook ->                                 -- hook-    m ()-hookInsertBefore hook_list sibling hook = liftIO $ do-    let hook_list' = unsafeManagedPtrGetPtr hook_list-    let sibling' = unsafeManagedPtrGetPtr sibling-    let hook' = unsafeManagedPtrGetPtr hook-    g_hook_insert_before hook_list' sibling' hook'-    touchManagedPtr hook_list-    touchManagedPtr sibling-    touchManagedPtr hook-    return ()----- function g_hook_free--- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hook_free" g_hook_free :: -    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"-    Ptr Hook ->                             -- hook : TInterface "GLib" "Hook"-    IO ()---hookFree ::-    (MonadIO m) =>-    HookList ->                             -- hook_list-    Hook ->                                 -- hook-    m ()-hookFree hook_list hook = liftIO $ do-    let hook_list' = unsafeManagedPtrGetPtr hook_list-    let hook' = unsafeManagedPtrGetPtr hook-    g_hook_free hook_list' hook'-    touchManagedPtr hook_list-    touchManagedPtr hook-    return ()----- function g_hook_destroy_link--- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hook_destroy_link" g_hook_destroy_link :: -    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"-    Ptr Hook ->                             -- hook : TInterface "GLib" "Hook"-    IO ()---hookDestroyLink ::-    (MonadIO m) =>-    HookList ->                             -- hook_list-    Hook ->                                 -- hook-    m ()-hookDestroyLink hook_list hook = liftIO $ do-    let hook_list' = unsafeManagedPtrGetPtr hook_list-    let hook' = unsafeManagedPtrGetPtr hook-    g_hook_destroy_link hook_list' hook'-    touchManagedPtr hook_list-    touchManagedPtr hook-    return ()----- function g_hook_destroy--- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hook_destroy" g_hook_destroy :: -    Ptr HookList ->                         -- hook_list : TInterface "GLib" "HookList"-    Word64 ->                               -- hook_id : TBasicType TUInt64-    IO CInt---hookDestroy ::-    (MonadIO m) =>-    HookList ->                             -- hook_list-    Word64 ->                               -- hook_id-    m Bool-hookDestroy hook_list hook_id = liftIO $ do-    let hook_list' = unsafeManagedPtrGetPtr hook_list-    result <- g_hook_destroy hook_list' hook_id-    let result' = (/= 0) result-    touchManagedPtr hook_list-    return result'----- function g_hash_table_unref--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_unref" g_hash_table_unref :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    IO ()---hashTableUnref ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    m ()-hashTableUnref hash_table = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    g_hash_table_unref hash_table''''-    unrefGHashTable hash_table''''-    return ()----- function g_hash_table_steal_all--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_steal_all" g_hash_table_steal_all :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    IO ()---hashTableStealAll ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    m ()-hashTableStealAll hash_table = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    g_hash_table_steal_all hash_table''''-    unrefGHashTable hash_table''''-    return ()----- function g_hash_table_steal--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_steal" g_hash_table_steal :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    Ptr () ->                               -- key : TBasicType TVoid-    IO CInt---hashTableSteal ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    Ptr () ->                               -- key-    m Bool-hashTableSteal hash_table key = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    result <- g_hash_table_steal hash_table'''' key-    let result' = (/= 0) result-    unrefGHashTable hash_table''''-    return result'----- function g_hash_table_size--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_size" g_hash_table_size :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    IO Word32---hashTableSize ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    m Word32-hashTableSize hash_table = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    result <- g_hash_table_size hash_table''''-    unrefGHashTable hash_table''''-    return result----- function g_hash_table_replace--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_replace" g_hash_table_replace :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    Ptr () ->                               -- key : TBasicType TVoid-    Ptr () ->                               -- value : TBasicType TVoid-    IO CInt---hashTableReplace ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    Ptr () ->                               -- key-    Ptr () ->                               -- value-    m Bool-hashTableReplace hash_table key value = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    result <- g_hash_table_replace hash_table'''' key value-    let result' = (/= 0) result-    unrefGHashTable hash_table''''-    return result'----- function g_hash_table_remove_all--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_remove_all" g_hash_table_remove_all :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    IO ()---hashTableRemoveAll ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    m ()-hashTableRemoveAll hash_table = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    g_hash_table_remove_all hash_table''''-    unrefGHashTable hash_table''''-    return ()----- function g_hash_table_remove--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_remove" g_hash_table_remove :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    Ptr () ->                               -- key : TBasicType TVoid-    IO CInt---hashTableRemove ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    Ptr () ->                               -- key-    m Bool-hashTableRemove hash_table key = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    result <- g_hash_table_remove hash_table'''' key-    let result' = (/= 0) result-    unrefGHashTable hash_table''''-    return result'----- function g_hash_table_lookup_extended--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_lookup_extended" g_hash_table_lookup_extended :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    Ptr () ->                               -- lookup_key : TBasicType TVoid-    Ptr () ->                               -- orig_key : TBasicType TVoid-    Ptr () ->                               -- value : TBasicType TVoid-    IO CInt---hashTableLookupExtended ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    Ptr () ->                               -- lookup_key-    Maybe (Ptr ()) ->                       -- orig_key-    Maybe (Ptr ()) ->                       -- value-    m Bool-hashTableLookupExtended hash_table lookup_key orig_key value = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    maybeOrig_key <- case orig_key of-        Nothing -> return nullPtr-        Just jOrig_key -> do-            return jOrig_key-    maybeValue <- case value of-        Nothing -> return nullPtr-        Just jValue -> do-            return jValue-    result <- g_hash_table_lookup_extended hash_table'''' lookup_key maybeOrig_key maybeValue-    let result' = (/= 0) result-    unrefGHashTable hash_table''''-    return result'----- function g_hash_table_insert--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_insert" g_hash_table_insert :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    Ptr () ->                               -- key : TBasicType TVoid-    Ptr () ->                               -- value : TBasicType TVoid-    IO CInt---hashTableInsert ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    Ptr () ->                               -- key-    Ptr () ->                               -- value-    m Bool-hashTableInsert hash_table key value = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    result <- g_hash_table_insert hash_table'''' key value-    let result' = (/= 0) result-    unrefGHashTable hash_table''''-    return result'----- function g_hash_table_destroy--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_destroy" g_hash_table_destroy :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    IO ()---hashTableDestroy ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    m ()-hashTableDestroy hash_table = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    g_hash_table_destroy hash_table''''-    unrefGHashTable hash_table''''-    return ()----- function g_hash_table_contains--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_contains" g_hash_table_contains :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    Ptr () ->                               -- key : TBasicType TVoid-    IO CInt---hashTableContains ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    Ptr () ->                               -- key-    m Bool-hashTableContains hash_table key = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    result <- g_hash_table_contains hash_table'''' key-    let result' = (/= 0) result-    unrefGHashTable hash_table''''-    return result'----- function g_hash_table_add--- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_add" g_hash_table_add :: -    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    Ptr () ->                               -- key : TBasicType TVoid-    IO CInt---hashTableAdd ::-    (MonadIO m) =>-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    Ptr () ->                               -- key-    m Bool-hashTableAdd hash_table key = liftIO $ do-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    result <- g_hash_table_add hash_table'''' key-    let result' = (/= 0) result-    unrefGHashTable hash_table''''-    return result'----- function g_getenv--- Args : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_getenv" g_getenv :: -    CString ->                              -- variable : TBasicType TUTF8-    IO CString---getenv ::-    (MonadIO m) =>-    T.Text ->                               -- variable-    m T.Text-getenv variable = liftIO $ do-    variable' <- textToCString variable-    result <- g_getenv variable'-    checkUnexpectedReturnNULL "g_getenv" result-    result' <- cstringToText result-    freeMem variable'-    return result'----- function g_get_user_special_dir--- Args : [Arg {argName = "directory", argType = TInterface "GLib" "UserDirectory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "directory", argType = TInterface "GLib" "UserDirectory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_user_special_dir" g_get_user_special_dir :: -    CUInt ->                                -- directory : TInterface "GLib" "UserDirectory"-    IO CString---getUserSpecialDir ::-    (MonadIO m) =>-    UserDirectory ->                        -- directory-    m T.Text-getUserSpecialDir directory = liftIO $ do-    let directory' = (fromIntegral . fromEnum) directory-    result <- g_get_user_special_dir directory'-    checkUnexpectedReturnNULL "g_get_user_special_dir" result-    result' <- cstringToText result-    return result'----- function g_get_user_runtime_dir--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_user_runtime_dir" g_get_user_runtime_dir :: -    IO CString---getUserRuntimeDir ::-    (MonadIO m) =>-    m T.Text-getUserRuntimeDir  = liftIO $ do-    result <- g_get_user_runtime_dir-    checkUnexpectedReturnNULL "g_get_user_runtime_dir" result-    result' <- cstringToText result-    return result'----- function g_get_user_name--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_user_name" g_get_user_name :: -    IO CString---getUserName ::-    (MonadIO m) =>-    m T.Text-getUserName  = liftIO $ do-    result <- g_get_user_name-    checkUnexpectedReturnNULL "g_get_user_name" result-    result' <- cstringToText result-    return result'----- function g_get_user_data_dir--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_user_data_dir" g_get_user_data_dir :: -    IO CString---getUserDataDir ::-    (MonadIO m) =>-    m T.Text-getUserDataDir  = liftIO $ do-    result <- g_get_user_data_dir-    checkUnexpectedReturnNULL "g_get_user_data_dir" result-    result' <- cstringToText result-    return result'----- function g_get_user_config_dir--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_user_config_dir" g_get_user_config_dir :: -    IO CString---getUserConfigDir ::-    (MonadIO m) =>-    m T.Text-getUserConfigDir  = liftIO $ do-    result <- g_get_user_config_dir-    checkUnexpectedReturnNULL "g_get_user_config_dir" result-    result' <- cstringToText result-    return result'----- function g_get_user_cache_dir--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_user_cache_dir" g_get_user_cache_dir :: -    IO CString---getUserCacheDir ::-    (MonadIO m) =>-    m T.Text-getUserCacheDir  = liftIO $ do-    result <- g_get_user_cache_dir-    checkUnexpectedReturnNULL "g_get_user_cache_dir" result-    result' <- cstringToText result-    return result'----- function g_get_tmp_dir--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_tmp_dir" g_get_tmp_dir :: -    IO CString---getTmpDir ::-    (MonadIO m) =>-    m T.Text-getTmpDir  = liftIO $ do-    result <- g_get_tmp_dir-    checkUnexpectedReturnNULL "g_get_tmp_dir" result-    result' <- cstringToText result-    return result'----- function g_get_system_data_dirs--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_get_system_data_dirs" g_get_system_data_dirs :: -    IO (Ptr CString)---getSystemDataDirs ::-    (MonadIO m) =>-    m [T.Text]-getSystemDataDirs  = liftIO $ do-    result <- g_get_system_data_dirs-    checkUnexpectedReturnNULL "g_get_system_data_dirs" result-    result' <- unpackZeroTerminatedUTF8CArray result-    return result'----- function g_get_system_config_dirs--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_get_system_config_dirs" g_get_system_config_dirs :: -    IO (Ptr CString)---getSystemConfigDirs ::-    (MonadIO m) =>-    m [T.Text]-getSystemConfigDirs  = liftIO $ do-    result <- g_get_system_config_dirs-    checkUnexpectedReturnNULL "g_get_system_config_dirs" result-    result' <- unpackZeroTerminatedUTF8CArray result-    return result'----- function g_get_real_time--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_get_real_time" g_get_real_time :: -    IO Int64---getRealTime ::-    (MonadIO m) =>-    m Int64-getRealTime  = liftIO $ do-    result <- g_get_real_time-    return result----- function g_get_real_name--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_real_name" g_get_real_name :: -    IO CString---getRealName ::-    (MonadIO m) =>-    m T.Text-getRealName  = liftIO $ do-    result <- g_get_real_name-    checkUnexpectedReturnNULL "g_get_real_name" result-    result' <- cstringToText result-    return result'----- function g_get_prgname--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_prgname" g_get_prgname :: -    IO CString---getPrgname ::-    (MonadIO m) =>-    m T.Text-getPrgname  = liftIO $ do-    result <- g_get_prgname-    checkUnexpectedReturnNULL "g_get_prgname" result-    result' <- cstringToText result-    return result'----- function g_get_num_processors--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_get_num_processors" g_get_num_processors :: -    IO Word32---getNumProcessors ::-    (MonadIO m) =>-    m Word32-getNumProcessors  = liftIO $ do-    result <- g_get_num_processors-    return result----- function g_get_monotonic_time--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_get_monotonic_time" g_get_monotonic_time :: -    IO Int64---getMonotonicTime ::-    (MonadIO m) =>-    m Int64-getMonotonicTime  = liftIO $ do-    result <- g_get_monotonic_time-    return result----- function g_get_locale_variants--- Args : [Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_get_locale_variants" g_get_locale_variants :: -    CString ->                              -- locale : TBasicType TUTF8-    IO (Ptr CString)---getLocaleVariants ::-    (MonadIO m) =>-    T.Text ->                               -- locale-    m [T.Text]-getLocaleVariants locale = liftIO $ do-    locale' <- textToCString locale-    result <- g_get_locale_variants locale'-    checkUnexpectedReturnNULL "g_get_locale_variants" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    freeMem locale'-    return result'----- function g_get_language_names--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_get_language_names" g_get_language_names :: -    IO (Ptr CString)---getLanguageNames ::-    (MonadIO m) =>-    m [T.Text]-getLanguageNames  = liftIO $ do-    result <- g_get_language_names-    checkUnexpectedReturnNULL "g_get_language_names" result-    result' <- unpackZeroTerminatedUTF8CArray result-    return result'----- function g_get_host_name--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_host_name" g_get_host_name :: -    IO CString---getHostName ::-    (MonadIO m) =>-    m T.Text-getHostName  = liftIO $ do-    result <- g_get_host_name-    checkUnexpectedReturnNULL "g_get_host_name" result-    result' <- cstringToText result-    return result'----- function g_get_home_dir--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_home_dir" g_get_home_dir :: -    IO CString---getHomeDir ::-    (MonadIO m) =>-    m T.Text-getHomeDir  = liftIO $ do-    result <- g_get_home_dir-    checkUnexpectedReturnNULL "g_get_home_dir" result-    result' <- cstringToText result-    return result'----- function g_get_filename_charsets--- Args : [Arg {argName = "charsets", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "charsets", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_get_filename_charsets" g_get_filename_charsets :: -    CString ->                              -- charsets : TBasicType TUTF8-    IO CInt---getFilenameCharsets ::-    (MonadIO m) =>-    T.Text ->                               -- charsets-    m Bool-getFilenameCharsets charsets = liftIO $ do-    charsets' <- textToCString charsets-    result <- g_get_filename_charsets charsets'-    let result' = (/= 0) result-    freeMem charsets'-    return result'----- function g_get_environ--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_get_environ" g_get_environ :: -    IO (Ptr CString)---getEnviron ::-    (MonadIO m) =>-    m [T.Text]-getEnviron  = liftIO $ do-    result <- g_get_environ-    checkUnexpectedReturnNULL "g_get_environ" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    return result'----- function g_get_current_time--- Args : [Arg {argName = "result", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "result", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_get_current_time" g_get_current_time :: -    Ptr TimeVal ->                          -- result : TInterface "GLib" "TimeVal"-    IO ()---getCurrentTime ::-    (MonadIO m) =>-    TimeVal ->                              -- result-    m ()-getCurrentTime result_ = liftIO $ do-    let result_' = unsafeManagedPtrGetPtr result_-    g_get_current_time result_'-    touchManagedPtr result_-    return ()----- function g_get_current_dir--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_current_dir" g_get_current_dir :: -    IO CString---getCurrentDir ::-    (MonadIO m) =>-    m T.Text-getCurrentDir  = liftIO $ do-    result <- g_get_current_dir-    checkUnexpectedReturnNULL "g_get_current_dir" result-    result' <- cstringToText result-    freeMem result-    return result'----- function g_get_codeset--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_codeset" g_get_codeset :: -    IO CString---getCodeset ::-    (MonadIO m) =>-    m T.Text-getCodeset  = liftIO $ do-    result <- g_get_codeset-    checkUnexpectedReturnNULL "g_get_codeset" result-    result' <- cstringToText result-    freeMem result-    return result'----- function g_get_charset--- Args : [Arg {argName = "charset", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : []--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_get_charset" g_get_charset :: -    Ptr CString ->                          -- charset : TBasicType TUTF8-    IO CInt---getCharset ::-    (MonadIO m) =>-    m (Bool,T.Text)-getCharset  = liftIO $ do-    charset <- allocMem :: IO (Ptr CString)-    result <- g_get_charset charset-    let result' = (/= 0) result-    charset' <- peek charset-    charset'' <- cstringToText charset'-    freeMem charset-    return (result', charset'')----- function g_get_application_name--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_get_application_name" g_get_application_name :: -    IO CString---getApplicationName ::-    (MonadIO m) =>-    m T.Text-getApplicationName  = liftIO $ do-    result <- g_get_application_name-    checkUnexpectedReturnNULL "g_get_application_name" result-    result' <- cstringToText result-    return result'----- function g_free--- Args : [Arg {argName = "mem", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "mem", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_free" g_free :: -    Ptr () ->                               -- mem : TBasicType TVoid-    IO ()---free ::-    (MonadIO m) =>-    Maybe (Ptr ()) ->                       -- mem-    m ()-free mem = liftIO $ do-    maybeMem <- case mem of-        Nothing -> return nullPtr-        Just jMem -> do-            return jMem-    g_free maybeMem-    return ()----- function g_format_size_full--- Args : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "FormatSizeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "FormatSizeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_format_size_full" g_format_size_full :: -    Word64 ->                               -- size : TBasicType TUInt64-    CUInt ->                                -- flags : TInterface "GLib" "FormatSizeFlags"-    IO CString---formatSizeFull ::-    (MonadIO m) =>-    Word64 ->                               -- size-    [FormatSizeFlags] ->                    -- flags-    m T.Text-formatSizeFull size flags = liftIO $ do-    let flags' = gflagsToWord flags-    result <- g_format_size_full size flags'-    checkUnexpectedReturnNULL "g_format_size_full" result-    result' <- cstringToText result-    freeMem result-    return result'----- function g_format_size_for_display--- Args : [Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_format_size_for_display" g_format_size_for_display :: -    Int64 ->                                -- size : TBasicType TInt64-    IO CString--{-# DEPRECATED formatSizeForDisplay ["(Since version 2.30)","This function is broken due to its use of SI","    suffixes to denote IEC units. Use g_format_size() instead."]#-}-formatSizeForDisplay ::-    (MonadIO m) =>-    Int64 ->                                -- size-    m T.Text-formatSizeForDisplay size = liftIO $ do-    result <- g_format_size_for_display size-    checkUnexpectedReturnNULL "g_format_size_for_display" result-    result' <- cstringToText result-    freeMem result-    return result'----- function g_format_size--- Args : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_format_size" g_format_size :: -    Word64 ->                               -- size : TBasicType TUInt64-    IO CString---formatSize ::-    (MonadIO m) =>-    Word64 ->                               -- size-    m T.Text-formatSize size = liftIO $ do-    result <- g_format_size size-    checkUnexpectedReturnNULL "g_format_size" result-    result' <- cstringToText result-    freeMem result-    return result'----- function g_find_program_in_path--- Args : [Arg {argName = "program", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "program", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_find_program_in_path" g_find_program_in_path :: -    CString ->                              -- program : TBasicType TUTF8-    IO CString---findProgramInPath ::-    (MonadIO m) =>-    T.Text ->                               -- program-    m T.Text-findProgramInPath program = liftIO $ do-    program' <- textToCString program-    result <- g_find_program_in_path program'-    checkUnexpectedReturnNULL "g_find_program_in_path" result-    result' <- cstringToText result-    freeMem result-    freeMem program'-    return result'----- function g_filename_to_utf8--- Args : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_filename_to_utf8" g_filename_to_utf8 :: -    CString ->                              -- opsysstring : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    Word64 ->                               -- bytes_read : TBasicType TUInt64-    Word64 ->                               -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString---filenameToUtf8 ::-    (MonadIO m) =>-    T.Text ->                               -- opsysstring-    Int64 ->                                -- len-    Word64 ->                               -- bytes_read-    Word64 ->                               -- bytes_written-    m T.Text-filenameToUtf8 opsysstring len bytes_read bytes_written = liftIO $ do-    opsysstring' <- textToCString opsysstring-    onException (do-        result <- propagateGError $ g_filename_to_utf8 opsysstring' len bytes_read bytes_written-        checkUnexpectedReturnNULL "g_filename_to_utf8" result-        result' <- cstringToText result-        freeMem result-        freeMem opsysstring'-        return result'-     ) (do-        freeMem opsysstring'-     )----- function g_filename_to_uri--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_filename_to_uri" g_filename_to_uri :: -    CString ->                              -- filename : TBasicType TUTF8-    CString ->                              -- hostname : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---filenameToUri ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    Maybe (T.Text) ->                       -- hostname-    m T.Text-filenameToUri filename hostname = liftIO $ do-    filename' <- textToCString filename-    maybeHostname <- case hostname of-        Nothing -> return nullPtr-        Just jHostname -> do-            jHostname' <- textToCString jHostname-            return jHostname'-    onException (do-        result <- propagateGError $ g_filename_to_uri filename' maybeHostname-        checkUnexpectedReturnNULL "g_filename_to_uri" result-        result' <- cstringToText result-        freeMem result-        freeMem filename'-        freeMem maybeHostname-        return result'-     ) (do-        freeMem filename'-        freeMem maybeHostname-     )----- function g_filename_from_utf8--- Args : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray False (-1) 3 (TBasicType TUInt8)--- throws : True--- Skip return : False--foreign import ccall "g_filename_from_utf8" g_filename_from_utf8 :: -    CString ->                              -- utf8string : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    Ptr Word64 ->                           -- bytes_read : TBasicType TUInt64-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Word8)---filenameFromUtf8 ::-    (MonadIO m) =>-    T.Text ->                               -- utf8string-    Int64 ->                                -- len-    m (ByteString,Word64)-filenameFromUtf8 utf8string len = liftIO $ do-    utf8string' <- textToCString utf8string-    bytes_read <- allocMem :: IO (Ptr Word64)-    bytes_written <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_filename_from_utf8 utf8string' len bytes_read bytes_written-        bytes_written' <- peek bytes_written-        checkUnexpectedReturnNULL "g_filename_from_utf8" result-        result' <- (unpackByteStringWithLength bytes_written') result-        freeMem result-        bytes_read' <- peek bytes_read-        freeMem utf8string'-        freeMem bytes_read-        freeMem bytes_written-        return (result', bytes_read')-     ) (do-        freeMem utf8string'-        freeMem bytes_read-        freeMem bytes_written-     )----- function g_filename_from_uri--- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TFileName--- throws : True--- Skip return : False--foreign import ccall "g_filename_from_uri" g_filename_from_uri :: -    CString ->                              -- uri : TBasicType TUTF8-    Ptr CString ->                          -- hostname : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---filenameFromUri ::-    (MonadIO m) =>-    T.Text ->                               -- uri-    m ([Char],T.Text)-filenameFromUri uri = liftIO $ do-    uri' <- textToCString uri-    hostname <- allocMem :: IO (Ptr CString)-    onException (do-        result <- propagateGError $ g_filename_from_uri uri' hostname-        checkUnexpectedReturnNULL "g_filename_from_uri" result-        result' <- cstringToString result-        freeMem result-        hostname' <- peek hostname-        hostname'' <- cstringToText hostname'-        freeMem hostname'-        freeMem uri'-        freeMem hostname-        return (result', hostname'')-     ) (do-        freeMem uri'-        freeMem hostname-     )----- function g_filename_display_name--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_filename_display_name" g_filename_display_name :: -    CString ->                              -- filename : TBasicType TUTF8-    IO CString---filenameDisplayName ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    m T.Text-filenameDisplayName filename = liftIO $ do-    filename' <- textToCString filename-    result <- g_filename_display_name filename'-    checkUnexpectedReturnNULL "g_filename_display_name" result-    result' <- cstringToText result-    freeMem result-    freeMem filename'-    return result'----- function g_filename_display_basename--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_filename_display_basename" g_filename_display_basename :: -    CString ->                              -- filename : TBasicType TUTF8-    IO CString---filenameDisplayBasename ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    m T.Text-filenameDisplayBasename filename = liftIO $ do-    filename' <- textToCString filename-    result <- g_filename_display_basename filename'-    checkUnexpectedReturnNULL "g_filename_display_basename" result-    result' <- cstringToText result-    freeMem result-    freeMem filename'-    return result'----- function g_file_test--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test", argType = TInterface "GLib" "FileTest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test", argType = TInterface "GLib" "FileTest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_file_test" g_file_test :: -    CString ->                              -- filename : TBasicType TUTF8-    CUInt ->                                -- test : TInterface "GLib" "FileTest"-    IO CInt---fileTest ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    [FileTest] ->                           -- test-    m Bool-fileTest filename test = liftIO $ do-    filename' <- textToCString filename-    let test' = gflagsToWord test-    result <- g_file_test filename' test'-    let result' = (/= 0) result-    freeMem filename'-    return result'----- function g_file_set_contents--- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_file_set_contents" g_file_set_contents :: -    CString ->                              -- filename : TBasicType TFileName-    Ptr Word8 ->                            -- contents : TCArray False (-1) 2 (TBasicType TUInt8)-    Int64 ->                                -- length : TBasicType TInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileSetContents ::-    (MonadIO m) =>-    [Char] ->                               -- filename-    ByteString ->                           -- contents-    m ()-fileSetContents filename contents = liftIO $ do-    let length_ = fromIntegral $ B.length contents-    filename' <- stringToCString filename-    contents' <- packByteString contents-    onException (do-        _ <- propagateGError $ g_file_set_contents filename' contents' length_-        freeMem filename'-        freeMem contents'-        return ()-     ) (do-        freeMem filename'-        freeMem contents'-     )----- function g_file_read_link--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_file_read_link" g_file_read_link :: -    CString ->                              -- filename : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---fileReadLink ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    m T.Text-fileReadLink filename = liftIO $ do-    filename' <- textToCString filename-    onException (do-        result <- propagateGError $ g_file_read_link filename'-        checkUnexpectedReturnNULL "g_file_read_link" result-        result' <- cstringToText result-        freeMem result-        freeMem filename'-        return result'-     ) (do-        freeMem filename'-     )----- function g_file_open_tmp--- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_used", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : True--- Skip return : False--foreign import ccall "g_file_open_tmp" g_file_open_tmp :: -    CString ->                              -- tmpl : TBasicType TFileName-    Ptr CString ->                          -- name_used : TBasicType TFileName-    Ptr (Ptr GError) ->                     -- error-    IO Int32---fileOpenTmp ::-    (MonadIO m) =>-    Maybe ([Char]) ->                       -- tmpl-    m (Int32,[Char])-fileOpenTmp tmpl = liftIO $ do-    maybeTmpl <- case tmpl of-        Nothing -> return nullPtr-        Just jTmpl -> do-            jTmpl' <- stringToCString jTmpl-            return jTmpl'-    name_used <- allocMem :: IO (Ptr CString)-    onException (do-        result <- propagateGError $ g_file_open_tmp maybeTmpl name_used-        name_used' <- peek name_used-        name_used'' <- cstringToString name_used'-        freeMem name_used'-        freeMem maybeTmpl-        freeMem name_used-        return (result, name_used'')-     ) (do-        freeMem maybeTmpl-        freeMem name_used-     )----- function g_file_get_contents--- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_file_get_contents" g_file_get_contents :: -    CString ->                              -- filename : TBasicType TFileName-    Ptr (Ptr Word8) ->                      -- contents : TCArray False (-1) 2 (TBasicType TUInt8)-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt---fileGetContents ::-    (MonadIO m) =>-    [Char] ->                               -- filename-    m (ByteString)-fileGetContents filename = liftIO $ do-    filename' <- stringToCString filename-    contents <- allocMem :: IO (Ptr (Ptr Word8))-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        _ <- propagateGError $ g_file_get_contents filename' contents length_-        length_' <- peek length_-        contents' <- peek contents-        contents'' <- (unpackByteStringWithLength length_') contents'-        freeMem contents'-        freeMem filename'-        freeMem contents-        freeMem length_-        return contents''-     ) (do-        freeMem filename'-        freeMem contents-        freeMem length_-     )----- function g_file_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_file_error_quark" g_file_error_quark :: -    IO Word32---fileErrorQuark ::-    (MonadIO m) =>-    m Word32-fileErrorQuark  = liftIO $ do-    result <- g_file_error_quark-    return result----- function g_file_error_from_errno--- Args : [Arg {argName = "err_no", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "err_no", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "FileError"--- throws : False--- Skip return : False--foreign import ccall "g_file_error_from_errno" g_file_error_from_errno :: -    Int32 ->                                -- err_no : TBasicType TInt32-    IO CUInt---fileErrorFromErrno ::-    (MonadIO m) =>-    Int32 ->                                -- err_no-    m FileError-fileErrorFromErrno err_no = liftIO $ do-    result <- g_file_error_from_errno err_no-    let result' = (toEnum . fromIntegral) result-    return result'----- function g_environ_unsetenv--- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_environ_unsetenv" g_environ_unsetenv :: -    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)-    CString ->                              -- variable : TBasicType TUTF8-    IO (Ptr CString)---environUnsetenv ::-    (MonadIO m) =>-    Maybe ([T.Text]) ->                     -- envp-    T.Text ->                               -- variable-    m [T.Text]-environUnsetenv envp variable = liftIO $ do-    maybeEnvp <- case envp of-        Nothing -> return nullPtr-        Just jEnvp -> do-            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp-            return jEnvp'-    variable' <- textToCString variable-    result <- g_environ_unsetenv maybeEnvp variable'-    checkUnexpectedReturnNULL "g_environ_unsetenv" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    freeMem variable'-    return result'----- function g_environ_setenv--- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_environ_setenv" g_environ_setenv :: -    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)-    CString ->                              -- variable : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    CInt ->                                 -- overwrite : TBasicType TBoolean-    IO (Ptr CString)---environSetenv ::-    (MonadIO m) =>-    Maybe ([T.Text]) ->                     -- envp-    T.Text ->                               -- variable-    T.Text ->                               -- value-    Bool ->                                 -- overwrite-    m [T.Text]-environSetenv envp variable value overwrite = liftIO $ do-    maybeEnvp <- case envp of-        Nothing -> return nullPtr-        Just jEnvp -> do-            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp-            return jEnvp'-    variable' <- textToCString variable-    value' <- textToCString value-    let overwrite' = (fromIntegral . fromEnum) overwrite-    result <- g_environ_setenv maybeEnvp variable' value' overwrite'-    checkUnexpectedReturnNULL "g_environ_setenv" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    freeMem variable'-    freeMem value'-    return result'----- function g_environ_getenv--- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_environ_getenv" g_environ_getenv :: -    Ptr CString ->                          -- envp : TCArray True (-1) (-1) (TBasicType TUTF8)-    CString ->                              -- variable : TBasicType TUTF8-    IO CString---environGetenv ::-    (MonadIO m) =>-    Maybe ([T.Text]) ->                     -- envp-    T.Text ->                               -- variable-    m T.Text-environGetenv envp variable = liftIO $ do-    maybeEnvp <- case envp of-        Nothing -> return nullPtr-        Just jEnvp -> do-            jEnvp' <- packZeroTerminatedUTF8CArray jEnvp-            return jEnvp'-    variable' <- textToCString variable-    result <- g_environ_getenv maybeEnvp variable'-    checkUnexpectedReturnNULL "g_environ_getenv" result-    result' <- cstringToText result-    mapZeroTerminatedCArray freeMem maybeEnvp-    freeMem maybeEnvp-    freeMem variable'-    return result'----- function g_dpgettext2--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_dpgettext2" g_dpgettext2 :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- context : TBasicType TUTF8-    CString ->                              -- msgid : TBasicType TUTF8-    IO CString---dpgettext2 ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- domain-    T.Text ->                               -- context-    T.Text ->                               -- msgid-    m T.Text-dpgettext2 domain context msgid = liftIO $ do-    maybeDomain <- case domain of-        Nothing -> return nullPtr-        Just jDomain -> do-            jDomain' <- textToCString jDomain-            return jDomain'-    context' <- textToCString context-    msgid' <- textToCString msgid-    result <- g_dpgettext2 maybeDomain context' msgid'-    checkUnexpectedReturnNULL "g_dpgettext2" result-    result' <- cstringToText result-    freeMem maybeDomain-    freeMem context'-    freeMem msgid'-    return result'----- function g_dpgettext--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgctxtid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgidoffset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgctxtid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgidoffset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_dpgettext" g_dpgettext :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- msgctxtid : TBasicType TUTF8-    Word64 ->                               -- msgidoffset : TBasicType TUInt64-    IO CString---dpgettext ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- domain-    T.Text ->                               -- msgctxtid-    Word64 ->                               -- msgidoffset-    m T.Text-dpgettext domain msgctxtid msgidoffset = liftIO $ do-    maybeDomain <- case domain of-        Nothing -> return nullPtr-        Just jDomain -> do-            jDomain' <- textToCString jDomain-            return jDomain'-    msgctxtid' <- textToCString msgctxtid-    result <- g_dpgettext maybeDomain msgctxtid' msgidoffset-    checkUnexpectedReturnNULL "g_dpgettext" result-    result' <- cstringToText result-    freeMem maybeDomain-    freeMem msgctxtid'-    return result'----- function g_double_hash--- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_double_hash" g_double_hash :: -    Ptr () ->                               -- v : TBasicType TVoid-    IO Word32---doubleHash ::-    (MonadIO m) =>-    Ptr () ->                               -- v-    m Word32-doubleHash v = liftIO $ do-    result <- g_double_hash v-    return result----- function g_double_equal--- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_double_equal" g_double_equal :: -    Ptr () ->                               -- v1 : TBasicType TVoid-    Ptr () ->                               -- v2 : TBasicType TVoid-    IO CInt---doubleEqual ::-    (MonadIO m) =>-    Ptr () ->                               -- v1-    Ptr () ->                               -- v2-    m Bool-doubleEqual v1 v2 = liftIO $ do-    result <- g_double_equal v1 v2-    let result' = (/= 0) result-    return result'----- function g_dngettext--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid_plural", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid_plural", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_dngettext" g_dngettext :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- msgid : TBasicType TUTF8-    CString ->                              -- msgid_plural : TBasicType TUTF8-    Word64 ->                               -- n : TBasicType TUInt64-    IO CString---dngettext ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- domain-    T.Text ->                               -- msgid-    T.Text ->                               -- msgid_plural-    Word64 ->                               -- n-    m T.Text-dngettext domain msgid msgid_plural n = liftIO $ do-    maybeDomain <- case domain of-        Nothing -> return nullPtr-        Just jDomain -> do-            jDomain' <- textToCString jDomain-            return jDomain'-    msgid' <- textToCString msgid-    msgid_plural' <- textToCString msgid_plural-    result <- g_dngettext maybeDomain msgid' msgid_plural' n-    checkUnexpectedReturnNULL "g_dngettext" result-    result' <- cstringToText result-    freeMem maybeDomain-    freeMem msgid'-    freeMem msgid_plural'-    return result'----- function g_direct_hash--- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_direct_hash" g_direct_hash :: -    Ptr () ->                               -- v : TBasicType TVoid-    IO Word32---directHash ::-    (MonadIO m) =>-    Maybe (Ptr ()) ->                       -- v-    m Word32-directHash v = liftIO $ do-    maybeV <- case v of-        Nothing -> return nullPtr-        Just jV -> do-            return jV-    result <- g_direct_hash maybeV-    return result----- function g_direct_equal--- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_direct_equal" g_direct_equal :: -    Ptr () ->                               -- v1 : TBasicType TVoid-    Ptr () ->                               -- v2 : TBasicType TVoid-    IO CInt---directEqual ::-    (MonadIO m) =>-    Maybe (Ptr ()) ->                       -- v1-    Maybe (Ptr ()) ->                       -- v2-    m Bool-directEqual v1 v2 = liftIO $ do-    maybeV1 <- case v1 of-        Nothing -> return nullPtr-        Just jV1 -> do-            return jV1-    maybeV2 <- case v2 of-        Nothing -> return nullPtr-        Just jV2 -> do-            return jV2-    result <- g_direct_equal maybeV1 maybeV2-    let result' = (/= 0) result-    return result'----- function g_dir_make_tmp--- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TFileName--- throws : True--- Skip return : False--foreign import ccall "g_dir_make_tmp" g_dir_make_tmp :: -    CString ->                              -- tmpl : TBasicType TFileName-    Ptr (Ptr GError) ->                     -- error-    IO CString---dirMakeTmp ::-    (MonadIO m) =>-    Maybe ([Char]) ->                       -- tmpl-    m [Char]-dirMakeTmp tmpl = liftIO $ do-    maybeTmpl <- case tmpl of-        Nothing -> return nullPtr-        Just jTmpl -> do-            jTmpl' <- stringToCString jTmpl-            return jTmpl'-    onException (do-        result <- propagateGError $ g_dir_make_tmp maybeTmpl-        checkUnexpectedReturnNULL "g_dir_make_tmp" result-        result' <- cstringToString result-        freeMem result-        freeMem maybeTmpl-        return result'-     ) (do-        freeMem maybeTmpl-     )----- function g_dgettext--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_dgettext" g_dgettext :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- msgid : TBasicType TUTF8-    IO CString---dgettext ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- domain-    T.Text ->                               -- msgid-    m T.Text-dgettext domain msgid = liftIO $ do-    maybeDomain <- case domain of-        Nothing -> return nullPtr-        Just jDomain -> do-            jDomain' <- textToCString jDomain-            return jDomain'-    msgid' <- textToCString msgid-    result <- g_dgettext maybeDomain msgid'-    checkUnexpectedReturnNULL "g_dgettext" result-    result' <- cstringToText result-    freeMem maybeDomain-    freeMem msgid'-    return result'----- function g_dcgettext--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "category", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "category", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_dcgettext" g_dcgettext :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- msgid : TBasicType TUTF8-    Int32 ->                                -- category : TBasicType TInt32-    IO CString---dcgettext ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- domain-    T.Text ->                               -- msgid-    Int32 ->                                -- category-    m T.Text-dcgettext domain msgid category = liftIO $ do-    maybeDomain <- case domain of-        Nothing -> return nullPtr-        Just jDomain -> do-            jDomain' <- textToCString jDomain-            return jDomain'-    msgid' <- textToCString msgid-    result <- g_dcgettext maybeDomain msgid' category-    checkUnexpectedReturnNULL "g_dcgettext" result-    result' <- cstringToText result-    freeMem maybeDomain-    freeMem msgid'-    return result'----- function g_date_valid_year--- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_valid_year" g_date_valid_year :: -    Word16 ->                               -- year : TBasicType TUInt16-    IO CInt---dateValidYear ::-    (MonadIO m) =>-    Word16 ->                               -- year-    m Bool-dateValidYear year = liftIO $ do-    result <- g_date_valid_year year-    let result' = (/= 0) result-    return result'----- function g_date_valid_weekday--- Args : [Arg {argName = "weekday", argType = TInterface "GLib" "DateWeekday", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "weekday", argType = TInterface "GLib" "DateWeekday", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_valid_weekday" g_date_valid_weekday :: -    CUInt ->                                -- weekday : TInterface "GLib" "DateWeekday"-    IO CInt---dateValidWeekday ::-    (MonadIO m) =>-    DateWeekday ->                          -- weekday-    m Bool-dateValidWeekday weekday = liftIO $ do-    let weekday' = (fromIntegral . fromEnum) weekday-    result <- g_date_valid_weekday weekday'-    let result' = (/= 0) result-    return result'----- function g_date_valid_month--- Args : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_valid_month" g_date_valid_month :: -    CUInt ->                                -- month : TInterface "GLib" "DateMonth"-    IO CInt---dateValidMonth ::-    (MonadIO m) =>-    DateMonth ->                            -- month-    m Bool-dateValidMonth month = liftIO $ do-    let month' = (fromIntegral . fromEnum) month-    result <- g_date_valid_month month'-    let result' = (/= 0) result-    return result'----- function g_date_valid_julian--- Args : [Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_valid_julian" g_date_valid_julian :: -    Word32 ->                               -- julian_date : TBasicType TUInt32-    IO CInt---dateValidJulian ::-    (MonadIO m) =>-    Word32 ->                               -- julian_date-    m Bool-dateValidJulian julian_date = liftIO $ do-    result <- g_date_valid_julian julian_date-    let result' = (/= 0) result-    return result'----- function g_date_valid_dmy--- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_valid_dmy" g_date_valid_dmy :: -    Word8 ->                                -- day : TBasicType TUInt8-    CUInt ->                                -- month : TInterface "GLib" "DateMonth"-    Word16 ->                               -- year : TBasicType TUInt16-    IO CInt---dateValidDmy ::-    (MonadIO m) =>-    Word8 ->                                -- day-    DateMonth ->                            -- month-    Word16 ->                               -- year-    m Bool-dateValidDmy day month year = liftIO $ do-    let month' = (fromIntegral . fromEnum) month-    result <- g_date_valid_dmy day month' year-    let result' = (/= 0) result-    return result'----- function g_date_valid_day--- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_valid_day" g_date_valid_day :: -    Word8 ->                                -- day : TBasicType TUInt8-    IO CInt---dateValidDay ::-    (MonadIO m) =>-    Word8 ->                                -- day-    m Bool-dateValidDay day = liftIO $ do-    result <- g_date_valid_day day-    let result' = (/= 0) result-    return result'----- function g_date_time_hash--- Args : [Arg {argName = "datetime", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "datetime", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_hash" g_date_time_hash :: -    Ptr () ->                               -- datetime : TBasicType TVoid-    IO Word32---dateTimeHash ::-    (MonadIO m) =>-    Ptr () ->                               -- datetime-    m Word32-dateTimeHash datetime = liftIO $ do-    result <- g_date_time_hash datetime-    return result----- function g_date_time_equal--- Args : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_time_equal" g_date_time_equal :: -    Ptr () ->                               -- dt1 : TBasicType TVoid-    Ptr () ->                               -- dt2 : TBasicType TVoid-    IO CInt---dateTimeEqual ::-    (MonadIO m) =>-    Ptr () ->                               -- dt1-    Ptr () ->                               -- dt2-    m Bool-dateTimeEqual dt1 dt2 = liftIO $ do-    result <- g_date_time_equal dt1 dt2-    let result' = (/= 0) result-    return result'----- function g_date_time_compare--- Args : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_compare" g_date_time_compare :: -    Ptr () ->                               -- dt1 : TBasicType TVoid-    Ptr () ->                               -- dt2 : TBasicType TVoid-    IO Int32---dateTimeCompare ::-    (MonadIO m) =>-    Ptr () ->                               -- dt1-    Ptr () ->                               -- dt2-    m Int32-dateTimeCompare dt1 dt2 = liftIO $ do-    result <- g_date_time_compare dt1 dt2-    return result----- function g_date_strftime--- Args : [Arg {argName = "s", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "slen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "s", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "slen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_date_strftime" g_date_strftime :: -    CString ->                              -- s : TBasicType TUTF8-    Word64 ->                               -- slen : TBasicType TUInt64-    CString ->                              -- format : TBasicType TUTF8-    Ptr Date ->                             -- date : TInterface "GLib" "Date"-    IO Word64---dateStrftime ::-    (MonadIO m) =>-    T.Text ->                               -- s-    Word64 ->                               -- slen-    T.Text ->                               -- format-    Date ->                                 -- date-    m Word64-dateStrftime s slen format date = liftIO $ do-    s' <- textToCString s-    format' <- textToCString format-    let date' = unsafeManagedPtrGetPtr date-    result <- g_date_strftime s' slen format' date'-    touchManagedPtr date-    freeMem s'-    freeMem format'-    return result----- function g_date_is_leap_year--- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_is_leap_year" g_date_is_leap_year :: -    Word16 ->                               -- year : TBasicType TUInt16-    IO CInt---dateIsLeapYear ::-    (MonadIO m) =>-    Word16 ->                               -- year-    m Bool-dateIsLeapYear year = liftIO $ do-    result <- g_date_is_leap_year year-    let result' = (/= 0) result-    return result'----- function g_date_get_sunday_weeks_in_year--- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt8--- throws : False--- Skip return : False--foreign import ccall "g_date_get_sunday_weeks_in_year" g_date_get_sunday_weeks_in_year :: -    Word16 ->                               -- year : TBasicType TUInt16-    IO Word8---dateGetSundayWeeksInYear ::-    (MonadIO m) =>-    Word16 ->                               -- year-    m Word8-dateGetSundayWeeksInYear year = liftIO $ do-    result <- g_date_get_sunday_weeks_in_year year-    return result----- function g_date_get_monday_weeks_in_year--- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt8--- throws : False--- Skip return : False--foreign import ccall "g_date_get_monday_weeks_in_year" g_date_get_monday_weeks_in_year :: -    Word16 ->                               -- year : TBasicType TUInt16-    IO Word8---dateGetMondayWeeksInYear ::-    (MonadIO m) =>-    Word16 ->                               -- year-    m Word8-dateGetMondayWeeksInYear year = liftIO $ do-    result <- g_date_get_monday_weeks_in_year year-    return result----- function g_date_get_days_in_month--- Args : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt8--- throws : False--- Skip return : False--foreign import ccall "g_date_get_days_in_month" g_date_get_days_in_month :: -    CUInt ->                                -- month : TInterface "GLib" "DateMonth"-    Word16 ->                               -- year : TBasicType TUInt16-    IO Word8---dateGetDaysInMonth ::-    (MonadIO m) =>-    DateMonth ->                            -- month-    Word16 ->                               -- year-    m Word8-dateGetDaysInMonth month year = liftIO $ do-    let month' = (fromIntegral . fromEnum) month-    result <- g_date_get_days_in_month month' year-    return result----- function g_dataset_id_set_data_full--- Args : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_dataset_id_set_data_full" g_dataset_id_set_data_full :: -    Ptr () ->                               -- dataset_location : TBasicType TVoid-    Word32 ->                               -- key_id : TBasicType TUInt32-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- destroy_func : TInterface "GLib" "DestroyNotify"-    IO ()---datasetIdSetDataFull ::-    (MonadIO m) =>-    Ptr () ->                               -- dataset_location-    Word32 ->                               -- key_id-    Ptr () ->                               -- data-    DestroyNotify ->                        -- destroy_func-    m ()-datasetIdSetDataFull dataset_location key_id data_ destroy_func = liftIO $ do-    ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))-    destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func)-    poke ptrdestroy_func destroy_func'-    g_dataset_id_set_data_full dataset_location key_id data_ destroy_func'-    return ()----- function g_dataset_destroy--- Args : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_dataset_destroy" g_dataset_destroy :: -    Ptr () ->                               -- dataset_location : TBasicType TVoid-    IO ()---datasetDestroy ::-    (MonadIO m) =>-    Ptr () ->                               -- dataset_location-    m ()-datasetDestroy dataset_location = liftIO $ do-    g_dataset_destroy dataset_location-    return ()----- function g_datalist_unset_flags--- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_datalist_unset_flags" g_datalist_unset_flags :: -    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"-    Word32 ->                               -- flags : TBasicType TUInt32-    IO ()---datalistUnsetFlags ::-    (MonadIO m) =>-    Data ->                                 -- datalist-    Word32 ->                               -- flags-    m ()-datalistUnsetFlags datalist flags = liftIO $ do-    let datalist' = unsafeManagedPtrGetPtr datalist-    g_datalist_unset_flags datalist' flags-    touchManagedPtr datalist-    return ()----- function g_datalist_set_flags--- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_datalist_set_flags" g_datalist_set_flags :: -    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"-    Word32 ->                               -- flags : TBasicType TUInt32-    IO ()---datalistSetFlags ::-    (MonadIO m) =>-    Data ->                                 -- datalist-    Word32 ->                               -- flags-    m ()-datalistSetFlags datalist flags = liftIO $ do-    let datalist' = unsafeManagedPtrGetPtr datalist-    g_datalist_set_flags datalist' flags-    touchManagedPtr datalist-    return ()----- function g_datalist_init--- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_datalist_init" g_datalist_init :: -    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"-    IO ()---datalistInit ::-    (MonadIO m) =>-    Data ->                                 -- datalist-    m ()-datalistInit datalist = liftIO $ do-    let datalist' = unsafeManagedPtrGetPtr datalist-    g_datalist_init datalist'-    touchManagedPtr datalist-    return ()----- function g_datalist_id_set_data_full--- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_datalist_id_set_data_full" g_datalist_id_set_data_full :: -    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"-    Word32 ->                               -- key_id : TBasicType TUInt32-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- destroy_func : TInterface "GLib" "DestroyNotify"-    IO ()---datalistIdSetDataFull ::-    (MonadIO m) =>-    Data ->                                 -- datalist-    Word32 ->                               -- key_id-    Maybe (Ptr ()) ->                       -- data-    DestroyNotify ->                        -- destroy_func-    m ()-datalistIdSetDataFull datalist key_id data_ destroy_func = liftIO $ do-    let datalist' = unsafeManagedPtrGetPtr datalist-    maybeData_ <- case data_ of-        Nothing -> return nullPtr-        Just jData_ -> do-            return jData_-    ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))-    destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func)-    poke ptrdestroy_func destroy_func'-    g_datalist_id_set_data_full datalist' key_id maybeData_ destroy_func'-    touchManagedPtr datalist-    return ()----- function g_datalist_id_replace_data--- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_datalist_id_replace_data" g_datalist_id_replace_data :: -    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"-    Word32 ->                               -- key_id : TBasicType TUInt32-    Ptr () ->                               -- oldval : TBasicType TVoid-    Ptr () ->                               -- newval : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- destroy : TInterface "GLib" "DestroyNotify"-    FunPtr DestroyNotifyC ->                -- old_destroy : TInterface "GLib" "DestroyNotify"-    IO CInt---datalistIdReplaceData ::-    (MonadIO m) =>-    Data ->                                 -- datalist-    Word32 ->                               -- key_id-    Maybe (Ptr ()) ->                       -- oldval-    Maybe (Ptr ()) ->                       -- newval-    Maybe (DestroyNotify) ->                -- destroy-    Maybe (DestroyNotify) ->                -- old_destroy-    m Bool-datalistIdReplaceData datalist key_id oldval newval destroy old_destroy = liftIO $ do-    let datalist' = unsafeManagedPtrGetPtr datalist-    maybeOldval <- case oldval of-        Nothing -> return nullPtr-        Just jOldval -> do-            return jOldval-    maybeNewval <- case newval of-        Nothing -> return nullPtr-        Just jNewval -> do-            return jNewval-    ptrdestroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))-    maybeDestroy <- case destroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jDestroy -> do-            jDestroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy) jDestroy)-            poke ptrdestroy jDestroy'-            return jDestroy'-    ptrold_destroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))-    maybeOld_destroy <- case old_destroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jOld_destroy -> do-            jOld_destroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrold_destroy) jOld_destroy)-            poke ptrold_destroy jOld_destroy'-            return jOld_destroy'-    result <- g_datalist_id_replace_data datalist' key_id maybeOldval maybeNewval maybeDestroy maybeOld_destroy-    let result' = (/= 0) result-    touchManagedPtr datalist-    return result'----- function g_datalist_get_flags--- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_datalist_get_flags" g_datalist_get_flags :: -    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"-    IO Word32---datalistGetFlags ::-    (MonadIO m) =>-    Data ->                                 -- datalist-    m Word32-datalistGetFlags datalist = liftIO $ do-    let datalist' = unsafeManagedPtrGetPtr datalist-    result <- g_datalist_get_flags datalist'-    touchManagedPtr datalist-    return result----- function g_datalist_clear--- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_datalist_clear" g_datalist_clear :: -    Ptr Data ->                             -- datalist : TInterface "GLib" "Data"-    IO ()---datalistClear ::-    (MonadIO m) =>-    Data ->                                 -- datalist-    m ()-datalistClear datalist = liftIO $ do-    let datalist' = unsafeManagedPtrGetPtr datalist-    g_datalist_clear datalist'-    touchManagedPtr datalist-    return ()----- function g_convert_with_iconv--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_convert_with_iconv" g_convert_with_iconv :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    Ptr IConv ->                            -- converter : TInterface "GLib" "IConv"-    Word64 ->                               -- bytes_read : TBasicType TUInt64-    Word64 ->                               -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString---convertWithIconv ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    IConv ->                                -- converter-    Word64 ->                               -- bytes_read-    Word64 ->                               -- bytes_written-    m T.Text-convertWithIconv str len converter bytes_read bytes_written = liftIO $ do-    str' <- textToCString str-    let converter' = unsafeManagedPtrGetPtr converter-    onException (do-        result <- propagateGError $ g_convert_with_iconv str' len converter' bytes_read bytes_written-        checkUnexpectedReturnNULL "g_convert_with_iconv" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr converter-        freeMem str'-        return result'-     ) (do-        freeMem str'-     )----- function g_convert_with_fallback--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fallback", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fallback", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_convert_with_fallback" g_convert_with_fallback :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    CString ->                              -- to_codeset : TBasicType TUTF8-    CString ->                              -- from_codeset : TBasicType TUTF8-    CString ->                              -- fallback : TBasicType TUTF8-    Word64 ->                               -- bytes_read : TBasicType TUInt64-    Word64 ->                               -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString---convertWithFallback ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    T.Text ->                               -- to_codeset-    T.Text ->                               -- from_codeset-    T.Text ->                               -- fallback-    Word64 ->                               -- bytes_read-    Word64 ->                               -- bytes_written-    m T.Text-convertWithFallback str len to_codeset from_codeset fallback bytes_read bytes_written = liftIO $ do-    str' <- textToCString str-    to_codeset' <- textToCString to_codeset-    from_codeset' <- textToCString from_codeset-    fallback' <- textToCString fallback-    onException (do-        result <- propagateGError $ g_convert_with_fallback str' len to_codeset' from_codeset' fallback' bytes_read bytes_written-        checkUnexpectedReturnNULL "g_convert_with_fallback" result-        result' <- cstringToText result-        freeMem result-        freeMem str'-        freeMem to_codeset'-        freeMem from_codeset'-        freeMem fallback'-        return result'-     ) (do-        freeMem str'-        freeMem to_codeset'-        freeMem from_codeset'-        freeMem fallback'-     )----- function g_convert_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_convert_error_quark" g_convert_error_quark :: -    IO Word32---convertErrorQuark ::-    (MonadIO m) =>-    m Word32-convertErrorQuark  = liftIO $ do-    result <- g_convert_error_quark-    return result----- function g_convert--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_convert" g_convert :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    CString ->                              -- to_codeset : TBasicType TUTF8-    CString ->                              -- from_codeset : TBasicType TUTF8-    Ptr Word64 ->                           -- bytes_read : TBasicType TUInt64-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString---convert ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    T.Text ->                               -- to_codeset-    T.Text ->                               -- from_codeset-    m (T.Text,Word64,Word64)-convert str len to_codeset from_codeset = liftIO $ do-    str' <- textToCString str-    to_codeset' <- textToCString to_codeset-    from_codeset' <- textToCString from_codeset-    bytes_read <- allocMem :: IO (Ptr Word64)-    bytes_written <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_convert str' len to_codeset' from_codeset' bytes_read bytes_written-        checkUnexpectedReturnNULL "g_convert" result-        result' <- cstringToText result-        freeMem result-        bytes_read' <- peek bytes_read-        bytes_written' <- peek bytes_written-        freeMem str'-        freeMem to_codeset'-        freeMem from_codeset'-        freeMem bytes_read-        freeMem bytes_written-        return (result', bytes_read', bytes_written')-     ) (do-        freeMem str'-        freeMem to_codeset'-        freeMem from_codeset'-        freeMem bytes_read-        freeMem bytes_written-     )----- function g_compute_hmac_for_string--- Args : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_compute_hmac_for_string" g_compute_hmac_for_string :: -    CUInt ->                                -- digest_type : TInterface "GLib" "ChecksumType"-    Ptr Word8 ->                            -- key : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- key_len : TBasicType TUInt64-    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- length : TBasicType TInt64-    IO CString---computeHmacForString ::-    (MonadIO m) =>-    ChecksumType ->                         -- digest_type-    ByteString ->                           -- key-    T.Text ->                               -- str-    Int64 ->                                -- length-    m T.Text-computeHmacForString digest_type key str length_ = liftIO $ do-    let key_len = fromIntegral $ B.length key-    let digest_type' = (fromIntegral . fromEnum) digest_type-    key' <- packByteString key-    str' <- textToCString str-    result <- g_compute_hmac_for_string digest_type' key' key_len str' length_-    checkUnexpectedReturnNULL "g_compute_hmac_for_string" result-    result' <- cstringToText result-    freeMem result-    freeMem key'-    freeMem str'-    return result'----- function g_compute_hmac_for_data--- Args : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_compute_hmac_for_data" g_compute_hmac_for_data :: -    CUInt ->                                -- digest_type : TInterface "GLib" "ChecksumType"-    Ptr Word8 ->                            -- key : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- key_len : TBasicType TUInt64-    Word8 ->                                -- data : TBasicType TUInt8-    Word64 ->                               -- length : TBasicType TUInt64-    IO CString---computeHmacForData ::-    (MonadIO m) =>-    ChecksumType ->                         -- digest_type-    ByteString ->                           -- key-    Word8 ->                                -- data-    Word64 ->                               -- length-    m T.Text-computeHmacForData digest_type key data_ length_ = liftIO $ do-    let key_len = fromIntegral $ B.length key-    let digest_type' = (fromIntegral . fromEnum) digest_type-    key' <- packByteString key-    result <- g_compute_hmac_for_data digest_type' key' key_len data_ length_-    checkUnexpectedReturnNULL "g_compute_hmac_for_data" result-    result' <- cstringToText result-    freeMem result-    freeMem key'-    return result'----- function g_compute_checksum_for_string--- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_compute_checksum_for_string" g_compute_checksum_for_string :: -    CUInt ->                                -- checksum_type : TInterface "GLib" "ChecksumType"-    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- length : TBasicType TInt64-    IO CString---computeChecksumForString ::-    (MonadIO m) =>-    ChecksumType ->                         -- checksum_type-    T.Text ->                               -- str-    Int64 ->                                -- length-    m T.Text-computeChecksumForString checksum_type str length_ = liftIO $ do-    let checksum_type' = (fromIntegral . fromEnum) checksum_type-    str' <- textToCString str-    result <- g_compute_checksum_for_string checksum_type' str' length_-    checkUnexpectedReturnNULL "g_compute_checksum_for_string" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_compute_checksum_for_data--- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_compute_checksum_for_data" g_compute_checksum_for_data :: -    CUInt ->                                -- checksum_type : TInterface "GLib" "ChecksumType"-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    IO CString---computeChecksumForData ::-    (MonadIO m) =>-    ChecksumType ->                         -- checksum_type-    ByteString ->                           -- data-    m T.Text-computeChecksumForData checksum_type data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    let checksum_type' = (fromIntegral . fromEnum) checksum_type-    data_' <- packByteString data_-    result <- g_compute_checksum_for_data checksum_type' data_' length_-    checkUnexpectedReturnNULL "g_compute_checksum_for_data" result-    result' <- cstringToText result-    freeMem result-    freeMem data_'-    return result'----- function g_compute_checksum_for_bytes--- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_compute_checksum_for_bytes" g_compute_checksum_for_bytes :: -    CUInt ->                                -- checksum_type : TInterface "GLib" "ChecksumType"-    Ptr Bytes ->                            -- data : TInterface "GLib" "Bytes"-    IO CString---computeChecksumForBytes ::-    (MonadIO m) =>-    ChecksumType ->                         -- checksum_type-    Bytes ->                                -- data-    m T.Text-computeChecksumForBytes checksum_type data_ = liftIO $ do-    let checksum_type' = (fromIntegral . fromEnum) checksum_type-    let data_' = unsafeManagedPtrGetPtr data_-    result <- g_compute_checksum_for_bytes checksum_type' data_'-    checkUnexpectedReturnNULL "g_compute_checksum_for_bytes" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr data_-    return result'----- function g_close--- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_close" g_close :: -    Int32 ->                                -- fd : TBasicType TInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt---close ::-    (MonadIO m) =>-    Int32 ->                                -- fd-    m ()-close fd = liftIO $ do-    onException (do-        _ <- propagateGError $ g_close fd-        return ()-     ) (do-        return ()-     )----- function g_clear_error--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : True--- Skip return : False--foreign import ccall "g_clear_error" g_clear_error :: -    Ptr (Ptr GError) ->                     -- error-    IO ()---clearError ::-    (MonadIO m) =>-    m ()-clearError  = liftIO $ do-    onException (do-        propagateGError $ g_clear_error-        return ()-     ) (do-        return ()-     )----- function g_child_watch_source_new--- Args : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_child_watch_source_new" g_child_watch_source_new :: -    Int32 ->                                -- pid : TBasicType TInt32-    IO (Ptr Source)---childWatchSourceNew ::-    (MonadIO m) =>-    Int32 ->                                -- pid-    m Source-childWatchSourceNew pid = liftIO $ do-    result <- g_child_watch_source_new pid-    checkUnexpectedReturnNULL "g_child_watch_source_new" result-    result' <- (wrapBoxed Source) result-    return result'----- function g_child_watch_add_full--- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "ChildWatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "ChildWatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_child_watch_add_full" g_child_watch_add_full :: -    Int32 ->                                -- priority : TBasicType TInt32-    Int32 ->                                -- pid : TBasicType TInt32-    FunPtr ChildWatchFuncC ->               -- function : TInterface "GLib" "ChildWatchFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---childWatchAdd ::-    (MonadIO m) =>-    Int32 ->                                -- priority-    Int32 ->                                -- pid-    ChildWatchFunc ->                       -- function-    m Word32-childWatchAdd priority pid function = liftIO $ do-    function' <- mkChildWatchFunc (childWatchFuncWrapper Nothing function)-    let data_ = castFunPtrToPtr function'-    let notify = safeFreeFunPtrPtr-    result <- g_child_watch_add_full priority pid function' data_ notify-    return result----- function g_checksum_type_get_length--- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_checksum_type_get_length" g_checksum_type_get_length :: -    CUInt ->                                -- checksum_type : TInterface "GLib" "ChecksumType"-    IO Int64---checksumTypeGetLength ::-    (MonadIO m) =>-    ChecksumType ->                         -- checksum_type-    m Int64-checksumTypeGetLength checksum_type = liftIO $ do-    let checksum_type' = (fromIntegral . fromEnum) checksum_type-    result <- g_checksum_type_get_length checksum_type'-    return result----- function glib_check_version--- Args : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "glib_check_version" glib_check_version :: -    Word32 ->                               -- required_major : TBasicType TUInt32-    Word32 ->                               -- required_minor : TBasicType TUInt32-    Word32 ->                               -- required_micro : TBasicType TUInt32-    IO CString---checkVersion ::-    (MonadIO m) =>-    Word32 ->                               -- required_major-    Word32 ->                               -- required_minor-    Word32 ->                               -- required_micro-    m T.Text-checkVersion required_major required_minor required_micro = liftIO $ do-    result <- glib_check_version required_major required_minor required_micro-    checkUnexpectedReturnNULL "glib_check_version" result-    result' <- cstringToText result-    return result'----- function g_chdir--- Args : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_chdir" g_chdir :: -    CString ->                              -- path : TBasicType TUTF8-    IO Int32---chdir ::-    (MonadIO m) =>-    T.Text ->                               -- path-    m Int32-chdir path = liftIO $ do-    path' <- textToCString path-    result <- g_chdir path'-    freeMem path'-    return result----- function g_byte_array_unref--- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_byte_array_unref" g_byte_array_unref :: -    Ptr GByteArray ->                       -- array : TByteArray-    IO ()---byteArrayUnref ::-    (MonadIO m) =>-    ByteString ->                           -- array-    m ()-byteArrayUnref array = liftIO $ do-    array' <- packGByteArray array-    g_byte_array_unref array'-    unrefGByteArray array'-    return ()----- function g_byte_array_new_take--- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TByteArray--- throws : False--- Skip return : False--foreign import ccall "g_byte_array_new_take" g_byte_array_new_take :: -    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)-    Word64 ->                               -- len : TBasicType TUInt64-    IO (Ptr GByteArray)---byteArrayNewTake ::-    (MonadIO m) =>-    ByteString ->                           -- data-    m ByteString-byteArrayNewTake data_ = liftIO $ do-    let len = fromIntegral $ B.length data_-    data_' <- packByteString data_-    result <- g_byte_array_new_take data_' len-    checkUnexpectedReturnNULL "g_byte_array_new_take" result-    result' <- unpackGByteArray result-    unrefGByteArray result-    return result'----- function g_byte_array_new--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TByteArray--- throws : False--- Skip return : False--foreign import ccall "g_byte_array_new" g_byte_array_new :: -    IO (Ptr GByteArray)---byteArrayNew ::-    (MonadIO m) =>-    m ByteString-byteArrayNew  = liftIO $ do-    result <- g_byte_array_new-    checkUnexpectedReturnNULL "g_byte_array_new" result-    result' <- unpackGByteArray result-    unrefGByteArray result-    return result'----- function g_byte_array_free_to_bytes--- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TInterface "GLib" "Bytes"--- throws : False--- Skip return : False--foreign import ccall "g_byte_array_free_to_bytes" g_byte_array_free_to_bytes :: -    Ptr GByteArray ->                       -- array : TByteArray-    IO (Ptr Bytes)---byteArrayFreeToBytes ::-    (MonadIO m) =>-    ByteString ->                           -- array-    m Bytes-byteArrayFreeToBytes array = liftIO $ do-    array' <- packGByteArray array-    result <- g_byte_array_free_to_bytes array'-    checkUnexpectedReturnNULL "g_byte_array_free_to_bytes" result-    result' <- (wrapBoxed Bytes) result-    return result'----- function g_byte_array_free--- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt8--- throws : False--- Skip return : False--foreign import ccall "g_byte_array_free" g_byte_array_free :: -    Ptr GByteArray ->                       -- array : TByteArray-    CInt ->                                 -- free_segment : TBasicType TBoolean-    IO Word8---byteArrayFree ::-    (MonadIO m) =>-    ByteString ->                           -- array-    Bool ->                                 -- free_segment-    m Word8-byteArrayFree array free_segment = liftIO $ do-    array' <- packGByteArray array-    let free_segment' = (fromIntegral . fromEnum) free_segment-    result <- g_byte_array_free array' free_segment'-    unrefGByteArray array'-    return result----- function g_build_pathv--- Args : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_build_pathv" g_build_pathv :: -    CString ->                              -- separator : TBasicType TUTF8-    Ptr CString ->                          -- args : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO CString---buildPathv ::-    (MonadIO m) =>-    T.Text ->                               -- separator-    [T.Text] ->                             -- args-    m T.Text-buildPathv separator args = liftIO $ do-    separator' <- textToCString separator-    args' <- packZeroTerminatedUTF8CArray args-    result <- g_build_pathv separator' args'-    checkUnexpectedReturnNULL "g_build_pathv" result-    result' <- cstringToText result-    freeMem result-    freeMem separator'-    mapZeroTerminatedCArray freeMem args'-    freeMem args'-    return result'----- function g_build_filenamev--- Args : [Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_build_filenamev" g_build_filenamev :: -    Ptr CString ->                          -- args : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO CString---buildFilenamev ::-    (MonadIO m) =>-    [T.Text] ->                             -- args-    m T.Text-buildFilenamev args = liftIO $ do-    args' <- packZeroTerminatedUTF8CArray args-    result <- g_build_filenamev args'-    checkUnexpectedReturnNULL "g_build_filenamev" result-    result' <- cstringToText result-    freeMem result-    mapZeroTerminatedCArray freeMem args'-    freeMem args'-    return result'----- function g_bookmark_file_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_error_quark" g_bookmark_file_error_quark :: -    IO Word32---bookmarkFileErrorQuark ::-    (MonadIO m) =>-    m Word32-bookmarkFileErrorQuark  = liftIO $ do-    result <- g_bookmark_file_error_quark-    return result----- function g_bit_unlock--- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bit_unlock" g_bit_unlock :: -    Int32 ->                                -- address : TBasicType TInt32-    Int32 ->                                -- lock_bit : TBasicType TInt32-    IO ()---bitUnlock ::-    (MonadIO m) =>-    Int32 ->                                -- address-    Int32 ->                                -- lock_bit-    m ()-bitUnlock address lock_bit = liftIO $ do-    g_bit_unlock address lock_bit-    return ()----- function g_bit_trylock--- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_bit_trylock" g_bit_trylock :: -    Int32 ->                                -- address : TBasicType TInt32-    Int32 ->                                -- lock_bit : TBasicType TInt32-    IO CInt---bitTrylock ::-    (MonadIO m) =>-    Int32 ->                                -- address-    Int32 ->                                -- lock_bit-    m Bool-bitTrylock address lock_bit = liftIO $ do-    result <- g_bit_trylock address lock_bit-    let result' = (/= 0) result-    return result'----- function g_bit_storage--- Args : [Arg {argName = "number", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "number", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_bit_storage" g_bit_storage :: -    Word64 ->                               -- number : TBasicType TUInt64-    IO Word32---bitStorage ::-    (MonadIO m) =>-    Word64 ->                               -- number-    m Word32-bitStorage number = liftIO $ do-    result <- g_bit_storage number-    return result----- function g_bit_nth_msf--- Args : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_bit_nth_msf" g_bit_nth_msf :: -    Word64 ->                               -- mask : TBasicType TUInt64-    Int32 ->                                -- nth_bit : TBasicType TInt32-    IO Int32---bitNthMsf ::-    (MonadIO m) =>-    Word64 ->                               -- mask-    Int32 ->                                -- nth_bit-    m Int32-bitNthMsf mask nth_bit = liftIO $ do-    result <- g_bit_nth_msf mask nth_bit-    return result----- function g_bit_nth_lsf--- Args : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_bit_nth_lsf" g_bit_nth_lsf :: -    Word64 ->                               -- mask : TBasicType TUInt64-    Int32 ->                                -- nth_bit : TBasicType TInt32-    IO Int32---bitNthLsf ::-    (MonadIO m) =>-    Word64 ->                               -- mask-    Int32 ->                                -- nth_bit-    m Int32-bitNthLsf mask nth_bit = liftIO $ do-    result <- g_bit_nth_lsf mask nth_bit-    return result----- function g_bit_lock--- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bit_lock" g_bit_lock :: -    Int32 ->                                -- address : TBasicType TInt32-    Int32 ->                                -- lock_bit : TBasicType TInt32-    IO ()---bitLock ::-    (MonadIO m) =>-    Int32 ->                                -- address-    Int32 ->                                -- lock_bit-    m ()-bitLock address lock_bit = liftIO $ do-    g_bit_lock address lock_bit-    return ()----- function g_basename--- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_basename" g_basename :: -    CString ->                              -- file_name : TBasicType TUTF8-    IO CString--{-# DEPRECATED basename ["(Since version 2.2)","Use g_path_get_basename() instead, but notice","    that g_path_get_basename() allocates new memory for the","    returned string, unlike this function which returns a pointer","    into the argument."]#-}-basename ::-    (MonadIO m) =>-    T.Text ->                               -- file_name-    m T.Text-basename file_name = liftIO $ do-    file_name' <- textToCString file_name-    result <- g_basename file_name'-    checkUnexpectedReturnNULL "g_basename" result-    result' <- cstringToText result-    freeMem file_name'-    return result'----- function g_base64_encode--- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_base64_encode" g_base64_encode :: -    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)-    Word64 ->                               -- len : TBasicType TUInt64-    IO CString---base64Encode ::-    (MonadIO m) =>-    ByteString ->                           -- data-    m T.Text-base64Encode data_ = liftIO $ do-    let len = fromIntegral $ B.length data_-    data_' <- packByteString data_-    result <- g_base64_encode data_' len-    checkUnexpectedReturnNULL "g_base64_encode" result-    result' <- cstringToText result-    freeMem result-    freeMem data_'-    return result'----- function g_base64_decode_inplace--- Args : [Arg {argName = "text", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "text", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TUInt8--- throws : False--- Skip return : False--foreign import ccall "g_base64_decode_inplace" g_base64_decode_inplace :: -    Ptr (Ptr Word8) ->                      -- text : TCArray False (-1) 1 (TBasicType TUInt8)-    Ptr Word64 ->                           -- out_len : TBasicType TUInt64-    IO Word8---base64DecodeInplace ::-    (MonadIO m) =>-    ByteString ->                           -- text-    m (Word8,ByteString)-base64DecodeInplace text = liftIO $ do-    let out_len = fromIntegral $ B.length text-    text' <- packByteString text-    text'' <- allocMem :: IO (Ptr (Ptr Word8))-    poke text'' text'-    out_len' <- allocMem :: IO (Ptr Word64)-    poke out_len' out_len-    result <- g_base64_decode_inplace text'' out_len'-    out_len'' <- peek out_len'-    text''' <- peek text''-    text'''' <- (unpackByteStringWithLength out_len'') text'''-    freeMem text'''-    freeMem text''-    freeMem out_len'-    return (result, text'''')----- function g_base64_decode--- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray False (-1) 1 (TBasicType TUInt8)--- throws : False--- Skip return : False--foreign import ccall "g_base64_decode" g_base64_decode :: -    CString ->                              -- text : TBasicType TUTF8-    Ptr Word64 ->                           -- out_len : TBasicType TUInt64-    IO (Ptr Word8)---base64Decode ::-    (MonadIO m) =>-    T.Text ->                               -- text-    m ByteString-base64Decode text = liftIO $ do-    text' <- textToCString text-    out_len <- allocMem :: IO (Ptr Word64)-    result <- g_base64_decode text' out_len-    out_len' <- peek out_len-    checkUnexpectedReturnNULL "g_base64_decode" result-    result' <- (unpackByteStringWithLength out_len') result-    freeMem result-    freeMem text'-    freeMem out_len-    return result'----- function g_atomic_pointer_xor--- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_atomic_pointer_xor" g_atomic_pointer_xor :: -    Ptr () ->                               -- atomic : TBasicType TVoid-    Word64 ->                               -- val : TBasicType TUInt64-    IO Word64---atomicPointerXor ::-    (MonadIO m) =>-    Ptr () ->                               -- atomic-    Word64 ->                               -- val-    m Word64-atomicPointerXor atomic val = liftIO $ do-    result <- g_atomic_pointer_xor atomic val-    return result----- function g_atomic_pointer_set--- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_atomic_pointer_set" g_atomic_pointer_set :: -    Ptr () ->                               -- atomic : TBasicType TVoid-    Ptr () ->                               -- newval : TBasicType TVoid-    IO ()---atomicPointerSet ::-    (MonadIO m) =>-    Ptr () ->                               -- atomic-    Ptr () ->                               -- newval-    m ()-atomicPointerSet atomic newval = liftIO $ do-    g_atomic_pointer_set atomic newval-    return ()----- function g_atomic_pointer_or--- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_atomic_pointer_or" g_atomic_pointer_or :: -    Ptr () ->                               -- atomic : TBasicType TVoid-    Word64 ->                               -- val : TBasicType TUInt64-    IO Word64---atomicPointerOr ::-    (MonadIO m) =>-    Ptr () ->                               -- atomic-    Word64 ->                               -- val-    m Word64-atomicPointerOr atomic val = liftIO $ do-    result <- g_atomic_pointer_or atomic val-    return result----- function g_atomic_pointer_compare_and_exchange--- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_atomic_pointer_compare_and_exchange" g_atomic_pointer_compare_and_exchange :: -    Ptr () ->                               -- atomic : TBasicType TVoid-    Ptr () ->                               -- oldval : TBasicType TVoid-    Ptr () ->                               -- newval : TBasicType TVoid-    IO CInt---atomicPointerCompareAndExchange ::-    (MonadIO m) =>-    Ptr () ->                               -- atomic-    Ptr () ->                               -- oldval-    Ptr () ->                               -- newval-    m Bool-atomicPointerCompareAndExchange atomic oldval newval = liftIO $ do-    result <- g_atomic_pointer_compare_and_exchange atomic oldval newval-    let result' = (/= 0) result-    return result'----- function g_atomic_pointer_and--- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_atomic_pointer_and" g_atomic_pointer_and :: -    Ptr () ->                               -- atomic : TBasicType TVoid-    Word64 ->                               -- val : TBasicType TUInt64-    IO Word64---atomicPointerAnd ::-    (MonadIO m) =>-    Ptr () ->                               -- atomic-    Word64 ->                               -- val-    m Word64-atomicPointerAnd atomic val = liftIO $ do-    result <- g_atomic_pointer_and atomic val-    return result----- function g_atomic_pointer_add--- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_atomic_pointer_add" g_atomic_pointer_add :: -    Ptr () ->                               -- atomic : TBasicType TVoid-    Int64 ->                                -- val : TBasicType TInt64-    IO Int64---atomicPointerAdd ::-    (MonadIO m) =>-    Ptr () ->                               -- atomic-    Int64 ->                                -- val-    m Int64-atomicPointerAdd atomic val = liftIO $ do-    result <- g_atomic_pointer_add atomic val-    return result----- function g_atomic_int_xor--- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_atomic_int_xor" g_atomic_int_xor :: -    Word32 ->                               -- atomic : TBasicType TUInt32-    Word32 ->                               -- val : TBasicType TUInt32-    IO Word32---atomicIntXor ::-    (MonadIO m) =>-    Word32 ->                               -- atomic-    Word32 ->                               -- val-    m Word32-atomicIntXor atomic val = liftIO $ do-    result <- g_atomic_int_xor atomic val-    return result----- function g_atomic_int_set--- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_atomic_int_set" g_atomic_int_set :: -    Int32 ->                                -- atomic : TBasicType TInt32-    Int32 ->                                -- newval : TBasicType TInt32-    IO ()---atomicIntSet ::-    (MonadIO m) =>-    Int32 ->                                -- atomic-    Int32 ->                                -- newval-    m ()-atomicIntSet atomic newval = liftIO $ do-    g_atomic_int_set atomic newval-    return ()----- function g_atomic_int_or--- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_atomic_int_or" g_atomic_int_or :: -    Word32 ->                               -- atomic : TBasicType TUInt32-    Word32 ->                               -- val : TBasicType TUInt32-    IO Word32---atomicIntOr ::-    (MonadIO m) =>-    Word32 ->                               -- atomic-    Word32 ->                               -- val-    m Word32-atomicIntOr atomic val = liftIO $ do-    result <- g_atomic_int_or atomic val-    return result----- function g_atomic_int_inc--- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_atomic_int_inc" g_atomic_int_inc :: -    Int32 ->                                -- atomic : TBasicType TInt32-    IO ()---atomicIntInc ::-    (MonadIO m) =>-    Int32 ->                                -- atomic-    m ()-atomicIntInc atomic = liftIO $ do-    g_atomic_int_inc atomic-    return ()----- function g_atomic_int_get--- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_atomic_int_get" g_atomic_int_get :: -    Int32 ->                                -- atomic : TBasicType TInt32-    IO Int32---atomicIntGet ::-    (MonadIO m) =>-    Int32 ->                                -- atomic-    m Int32-atomicIntGet atomic = liftIO $ do-    result <- g_atomic_int_get atomic-    return result----- function g_atomic_int_exchange_and_add--- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_atomic_int_exchange_and_add" g_atomic_int_exchange_and_add :: -    Int32 ->                                -- atomic : TBasicType TInt32-    Int32 ->                                -- val : TBasicType TInt32-    IO Int32--{-# DEPRECATED atomicIntExchangeAndAdd ["(Since version 2.30)","Use g_atomic_int_add() instead."]#-}-atomicIntExchangeAndAdd ::-    (MonadIO m) =>-    Int32 ->                                -- atomic-    Int32 ->                                -- val-    m Int32-atomicIntExchangeAndAdd atomic val = liftIO $ do-    result <- g_atomic_int_exchange_and_add atomic val-    return result----- function g_atomic_int_dec_and_test--- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_atomic_int_dec_and_test" g_atomic_int_dec_and_test :: -    Int32 ->                                -- atomic : TBasicType TInt32-    IO CInt---atomicIntDecAndTest ::-    (MonadIO m) =>-    Int32 ->                                -- atomic-    m Bool-atomicIntDecAndTest atomic = liftIO $ do-    result <- g_atomic_int_dec_and_test atomic-    let result' = (/= 0) result-    return result'----- function g_atomic_int_compare_and_exchange--- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_atomic_int_compare_and_exchange" g_atomic_int_compare_and_exchange :: -    Int32 ->                                -- atomic : TBasicType TInt32-    Int32 ->                                -- oldval : TBasicType TInt32-    Int32 ->                                -- newval : TBasicType TInt32-    IO CInt---atomicIntCompareAndExchange ::-    (MonadIO m) =>-    Int32 ->                                -- atomic-    Int32 ->                                -- oldval-    Int32 ->                                -- newval-    m Bool-atomicIntCompareAndExchange atomic oldval newval = liftIO $ do-    result <- g_atomic_int_compare_and_exchange atomic oldval newval-    let result' = (/= 0) result-    return result'----- function g_atomic_int_and--- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_atomic_int_and" g_atomic_int_and :: -    Word32 ->                               -- atomic : TBasicType TUInt32-    Word32 ->                               -- val : TBasicType TUInt32-    IO Word32---atomicIntAnd ::-    (MonadIO m) =>-    Word32 ->                               -- atomic-    Word32 ->                               -- val-    m Word32-atomicIntAnd atomic val = liftIO $ do-    result <- g_atomic_int_and atomic val-    return result----- function g_atomic_int_add--- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_atomic_int_add" g_atomic_int_add :: -    Int32 ->                                -- atomic : TBasicType TInt32-    Int32 ->                                -- val : TBasicType TInt32-    IO Int32---atomicIntAdd ::-    (MonadIO m) =>-    Int32 ->                                -- atomic-    Int32 ->                                -- val-    m Int32-atomicIntAdd atomic val = liftIO $ do-    result <- g_atomic_int_add atomic val-    return result----- function g_atexit--- Args : [Arg {argName = "func", argType = TInterface "GLib" "VoidFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "func", argType = TInterface "GLib" "VoidFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_atexit" g_atexit :: -    FunPtr VoidFuncC ->                     -- func : TInterface "GLib" "VoidFunc"-    IO ()--{-# DEPRECATED atexit ["(Since version 2.32)","It is best to avoid g_atexit()."]#-}-atexit ::-    (MonadIO m) =>-    VoidFunc ->                             -- func-    m ()-atexit func = liftIO $ do-    ptrfunc <- callocMem :: IO (Ptr (FunPtr VoidFuncC))-    func' <- mkVoidFunc (voidFuncWrapper (Just ptrfunc) func)-    poke ptrfunc func'-    g_atexit func'-    return ()----- function g_assertion_message_expr--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_assertion_message_expr" g_assertion_message_expr :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- file : TBasicType TUTF8-    Int32 ->                                -- line : TBasicType TInt32-    CString ->                              -- func : TBasicType TUTF8-    CString ->                              -- expr : TBasicType TUTF8-    IO ()---assertionMessageExpr ::-    (MonadIO m) =>-    T.Text ->                               -- domain-    T.Text ->                               -- file-    Int32 ->                                -- line-    T.Text ->                               -- func-    T.Text ->                               -- expr-    m ()-assertionMessageExpr domain file line func expr = liftIO $ do-    domain' <- textToCString domain-    file' <- textToCString file-    func' <- textToCString func-    expr' <- textToCString expr-    g_assertion_message_expr domain' file' line func' expr'-    freeMem domain'-    freeMem file'-    freeMem func'-    freeMem expr'-    return ()----- function g_assertion_message_error--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_code", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_assertion_message_error" g_assertion_message_error :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- file : TBasicType TUTF8-    Int32 ->                                -- line : TBasicType TInt32-    CString ->                              -- func : TBasicType TUTF8-    CString ->                              -- expr : TBasicType TUTF8-    Ptr GError ->                           -- error : TError-    Word32 ->                               -- error_domain : TBasicType TUInt32-    Int32 ->                                -- error_code : TBasicType TInt32-    IO ()---assertionMessageError ::-    (MonadIO m) =>-    T.Text ->                               -- domain-    T.Text ->                               -- file-    Int32 ->                                -- line-    T.Text ->                               -- func-    T.Text ->                               -- expr-    GError ->                               -- error-    Word32 ->                               -- error_domain-    Int32 ->                                -- error_code-    m ()-assertionMessageError domain file line func expr error_ error_domain error_code = liftIO $ do-    domain' <- textToCString domain-    file' <- textToCString file-    func' <- textToCString func-    expr' <- textToCString expr-    let error_' = unsafeManagedPtrGetPtr error_-    g_assertion_message_error domain' file' line func' expr' error_' error_domain error_code-    touchManagedPtr error_-    freeMem domain'-    freeMem file'-    freeMem func'-    freeMem expr'-    return ()----- function g_assertion_message_cmpstr--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cmp", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cmp", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_assertion_message_cmpstr" g_assertion_message_cmpstr :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- file : TBasicType TUTF8-    Int32 ->                                -- line : TBasicType TInt32-    CString ->                              -- func : TBasicType TUTF8-    CString ->                              -- expr : TBasicType TUTF8-    CString ->                              -- arg1 : TBasicType TUTF8-    CString ->                              -- cmp : TBasicType TUTF8-    CString ->                              -- arg2 : TBasicType TUTF8-    IO ()---assertionMessageCmpstr ::-    (MonadIO m) =>-    T.Text ->                               -- domain-    T.Text ->                               -- file-    Int32 ->                                -- line-    T.Text ->                               -- func-    T.Text ->                               -- expr-    T.Text ->                               -- arg1-    T.Text ->                               -- cmp-    T.Text ->                               -- arg2-    m ()-assertionMessageCmpstr domain file line func expr arg1 cmp arg2 = liftIO $ do-    domain' <- textToCString domain-    file' <- textToCString file-    func' <- textToCString func-    expr' <- textToCString expr-    arg1' <- textToCString arg1-    cmp' <- textToCString cmp-    arg2' <- textToCString arg2-    g_assertion_message_cmpstr domain' file' line func' expr' arg1' cmp' arg2'-    freeMem domain'-    freeMem file'-    freeMem func'-    freeMem expr'-    freeMem arg1'-    freeMem cmp'-    freeMem arg2'-    return ()----- function g_assertion_message--- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_assertion_message" g_assertion_message :: -    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- file : TBasicType TUTF8-    Int32 ->                                -- line : TBasicType TInt32-    CString ->                              -- func : TBasicType TUTF8-    CString ->                              -- message : TBasicType TUTF8-    IO ()---assertionMessage ::-    (MonadIO m) =>-    T.Text ->                               -- domain-    T.Text ->                               -- file-    Int32 ->                                -- line-    T.Text ->                               -- func-    T.Text ->                               -- message-    m ()-assertionMessage domain file line func message = liftIO $ do-    domain' <- textToCString domain-    file' <- textToCString file-    func' <- textToCString func-    message' <- textToCString message-    g_assertion_message domain' file' line func' message'-    freeMem domain'-    freeMem file'-    freeMem func'-    freeMem message'-    return ()----- function g_assert_warning--- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_assert_warning" g_assert_warning :: -    CString ->                              -- log_domain : TBasicType TUTF8-    CString ->                              -- file : TBasicType TUTF8-    Int32 ->                                -- line : TBasicType TInt32-    CString ->                              -- pretty_function : TBasicType TUTF8-    CString ->                              -- expression : TBasicType TUTF8-    IO ()---assertWarning ::-    (MonadIO m) =>-    T.Text ->                               -- log_domain-    T.Text ->                               -- file-    Int32 ->                                -- line-    T.Text ->                               -- pretty_function-    T.Text ->                               -- expression-    m ()-assertWarning log_domain file line pretty_function expression = liftIO $ do-    log_domain' <- textToCString log_domain-    file' <- textToCString file-    pretty_function' <- textToCString pretty_function-    expression' <- textToCString expression-    g_assert_warning log_domain' file' line pretty_function' expression'-    freeMem log_domain'-    freeMem file'-    freeMem pretty_function'-    freeMem expression'-    return ()----- function g_ascii_xdigit_value--- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_ascii_xdigit_value" g_ascii_xdigit_value :: -    Int8 ->                                 -- c : TBasicType TInt8-    IO Int32---asciiXdigitValue ::-    (MonadIO m) =>-    Int8 ->                                 -- c-    m Int32-asciiXdigitValue c = liftIO $ do-    result <- g_ascii_xdigit_value c-    return result----- function g_ascii_toupper--- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt8--- throws : False--- Skip return : False--foreign import ccall "g_ascii_toupper" g_ascii_toupper :: -    Int8 ->                                 -- c : TBasicType TInt8-    IO Int8---asciiToupper ::-    (MonadIO m) =>-    Int8 ->                                 -- c-    m Int8-asciiToupper c = liftIO $ do-    result <- g_ascii_toupper c-    return result----- function g_ascii_tolower--- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt8--- throws : False--- Skip return : False--foreign import ccall "g_ascii_tolower" g_ascii_tolower :: -    Int8 ->                                 -- c : TBasicType TInt8-    IO Int8---asciiTolower ::-    (MonadIO m) =>-    Int8 ->                                 -- c-    m Int8-asciiTolower c = liftIO $ do-    result <- g_ascii_tolower c-    return result----- function g_ascii_strup--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_ascii_strup" g_ascii_strup :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO CString---asciiStrup ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    m T.Text-asciiStrup str len = liftIO $ do-    str' <- textToCString str-    result <- g_ascii_strup str' len-    checkUnexpectedReturnNULL "g_ascii_strup" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_ascii_strtoull--- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_ascii_strtoull" g_ascii_strtoull :: -    CString ->                              -- nptr : TBasicType TUTF8-    CString ->                              -- endptr : TBasicType TUTF8-    Word32 ->                               -- base : TBasicType TUInt32-    IO Word64---asciiStrtoull ::-    (MonadIO m) =>-    T.Text ->                               -- nptr-    T.Text ->                               -- endptr-    Word32 ->                               -- base-    m Word64-asciiStrtoull nptr endptr base = liftIO $ do-    nptr' <- textToCString nptr-    endptr' <- textToCString endptr-    result <- g_ascii_strtoull nptr' endptr' base-    freeMem nptr'-    freeMem endptr'-    return result----- function g_ascii_strtoll--- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_ascii_strtoll" g_ascii_strtoll :: -    CString ->                              -- nptr : TBasicType TUTF8-    CString ->                              -- endptr : TBasicType TUTF8-    Word32 ->                               -- base : TBasicType TUInt32-    IO Int64---asciiStrtoll ::-    (MonadIO m) =>-    T.Text ->                               -- nptr-    T.Text ->                               -- endptr-    Word32 ->                               -- base-    m Int64-asciiStrtoll nptr endptr base = liftIO $ do-    nptr' <- textToCString nptr-    endptr' <- textToCString endptr-    result <- g_ascii_strtoll nptr' endptr' base-    freeMem nptr'-    freeMem endptr'-    return result----- function g_ascii_strtod--- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_ascii_strtod" g_ascii_strtod :: -    CString ->                              -- nptr : TBasicType TUTF8-    CString ->                              -- endptr : TBasicType TUTF8-    IO CDouble---asciiStrtod ::-    (MonadIO m) =>-    T.Text ->                               -- nptr-    T.Text ->                               -- endptr-    m Double-asciiStrtod nptr endptr = liftIO $ do-    nptr' <- textToCString nptr-    endptr' <- textToCString endptr-    result <- g_ascii_strtod nptr' endptr'-    let result' = realToFrac result-    freeMem nptr'-    freeMem endptr'-    return result'----- function g_ascii_strncasecmp--- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_ascii_strncasecmp" g_ascii_strncasecmp :: -    CString ->                              -- s1 : TBasicType TUTF8-    CString ->                              -- s2 : TBasicType TUTF8-    Word64 ->                               -- n : TBasicType TUInt64-    IO Int32---asciiStrncasecmp ::-    (MonadIO m) =>-    T.Text ->                               -- s1-    T.Text ->                               -- s2-    Word64 ->                               -- n-    m Int32-asciiStrncasecmp s1 s2 n = liftIO $ do-    s1' <- textToCString s1-    s2' <- textToCString s2-    result <- g_ascii_strncasecmp s1' s2' n-    freeMem s1'-    freeMem s2'-    return result----- function g_ascii_strdown--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_ascii_strdown" g_ascii_strdown :: -    CString ->                              -- str : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO CString---asciiStrdown ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Int64 ->                                -- len-    m T.Text-asciiStrdown str len = liftIO $ do-    str' <- textToCString str-    result <- g_ascii_strdown str' len-    checkUnexpectedReturnNULL "g_ascii_strdown" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function g_ascii_strcasecmp--- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_ascii_strcasecmp" g_ascii_strcasecmp :: -    CString ->                              -- s1 : TBasicType TUTF8-    CString ->                              -- s2 : TBasicType TUTF8-    IO Int32---asciiStrcasecmp ::-    (MonadIO m) =>-    T.Text ->                               -- s1-    T.Text ->                               -- s2-    m Int32-asciiStrcasecmp s1 s2 = liftIO $ do-    s1' <- textToCString s1-    s2' <- textToCString s2-    result <- g_ascii_strcasecmp s1' s2'-    freeMem s1'-    freeMem s2'-    return result----- function g_ascii_formatd--- Args : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_ascii_formatd" g_ascii_formatd :: -    CString ->                              -- buffer : TBasicType TUTF8-    Int32 ->                                -- buf_len : TBasicType TInt32-    CString ->                              -- format : TBasicType TUTF8-    CDouble ->                              -- d : TBasicType TDouble-    IO CString---asciiFormatd ::-    (MonadIO m) =>-    T.Text ->                               -- buffer-    Int32 ->                                -- buf_len-    T.Text ->                               -- format-    Double ->                               -- d-    m T.Text-asciiFormatd buffer buf_len format d = liftIO $ do-    buffer' <- textToCString buffer-    format' <- textToCString format-    let d' = realToFrac d-    result <- g_ascii_formatd buffer' buf_len format' d'-    checkUnexpectedReturnNULL "g_ascii_formatd" result-    result' <- cstringToText result-    freeMem result-    freeMem buffer'-    freeMem format'-    return result'----- function g_ascii_dtostr--- Args : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_ascii_dtostr" g_ascii_dtostr :: -    CString ->                              -- buffer : TBasicType TUTF8-    Int32 ->                                -- buf_len : TBasicType TInt32-    CDouble ->                              -- d : TBasicType TDouble-    IO CString---asciiDtostr ::-    (MonadIO m) =>-    T.Text ->                               -- buffer-    Int32 ->                                -- buf_len-    Double ->                               -- d-    m T.Text-asciiDtostr buffer buf_len d = liftIO $ do-    buffer' <- textToCString buffer-    let d' = realToFrac d-    result <- g_ascii_dtostr buffer' buf_len d'-    checkUnexpectedReturnNULL "g_ascii_dtostr" result-    result' <- cstringToText result-    freeMem result-    freeMem buffer'-    return result'----- function g_ascii_digit_value--- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_ascii_digit_value" g_ascii_digit_value :: -    Int8 ->                                 -- c : TBasicType TInt8-    IO Int32---asciiDigitValue ::-    (MonadIO m) =>-    Int8 ->                                 -- c-    m Int32-asciiDigitValue c = liftIO $ do-    result <- g_ascii_digit_value c-    return result----- function g_access--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_access" g_access :: -    CString ->                              -- filename : TBasicType TUTF8-    Int32 ->                                -- mode : TBasicType TInt32-    IO Int32---access ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    Int32 ->                                -- mode-    m Int32-access filename mode = liftIO $ do-    filename' <- textToCString filename-    result <- g_access filename' mode-    freeMem filename'-    return result---
− GI/GLib/Structs.hs 
@@ -1,152 +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.GLib.Structs-    (     module GI.GLib.Structs.AsyncQueue       ,-    module GI.GLib.Structs.BookmarkFile     ,-    module GI.GLib.Structs.ByteArray        ,-    module GI.GLib.Structs.Bytes            ,-    module GI.GLib.Structs.Checksum         ,-    module GI.GLib.Structs.Cond             ,-    module GI.GLib.Structs.Data             ,-    module GI.GLib.Structs.Date             ,-    module GI.GLib.Structs.DateTime         ,-    module GI.GLib.Structs.DebugKey         ,-    module GI.GLib.Structs.Dir              ,-    module GI.GLib.Structs.HashTableIter    ,-    module GI.GLib.Structs.Hmac             ,-    module GI.GLib.Structs.Hook             ,-    module GI.GLib.Structs.HookList         ,-    module GI.GLib.Structs.IConv            ,-    module GI.GLib.Structs.IOChannel        ,-    module GI.GLib.Structs.IOFuncs          ,-    module GI.GLib.Structs.KeyFile          ,-    module GI.GLib.Structs.MainContext      ,-    module GI.GLib.Structs.MainLoop         ,-    module GI.GLib.Structs.MappedFile       ,-    module GI.GLib.Structs.MarkupParseContext,-    module GI.GLib.Structs.MarkupParser     ,-    module GI.GLib.Structs.MatchInfo        ,-    module GI.GLib.Structs.MemVTable        ,-    module GI.GLib.Structs.Node             ,-    module GI.GLib.Structs.Once             ,-    module GI.GLib.Structs.OptionContext    ,-    module GI.GLib.Structs.OptionEntry      ,-    module GI.GLib.Structs.OptionGroup      ,-    module GI.GLib.Structs.PatternSpec      ,-    module GI.GLib.Structs.PollFD           ,-    module GI.GLib.Structs.PtrArray         ,-    module GI.GLib.Structs.Queue            ,-    module GI.GLib.Structs.RWLock           ,-    module GI.GLib.Structs.Rand             ,-    module GI.GLib.Structs.RecMutex         ,-    module GI.GLib.Structs.Regex            ,-    module GI.GLib.Structs.Scanner          ,-    module GI.GLib.Structs.ScannerConfig    ,-    module GI.GLib.Structs.Sequence         ,-    module GI.GLib.Structs.SequenceIter     ,-    module GI.GLib.Structs.Source           ,-    module GI.GLib.Structs.SourceCallbackFuncs,-    module GI.GLib.Structs.SourceFuncs      ,-    module GI.GLib.Structs.StatBuf          ,-    module GI.GLib.Structs.String           ,-    module GI.GLib.Structs.StringChunk      ,-    module GI.GLib.Structs.TestCase         ,-    module GI.GLib.Structs.TestConfig       ,-    module GI.GLib.Structs.TestLogBuffer    ,-    module GI.GLib.Structs.TestLogMsg       ,-    module GI.GLib.Structs.TestSuite        ,-    module GI.GLib.Structs.Thread           ,-    module GI.GLib.Structs.ThreadPool       ,-    module GI.GLib.Structs.TimeVal          ,-    module GI.GLib.Structs.TimeZone         ,-    module GI.GLib.Structs.Timer            ,-    module GI.GLib.Structs.TrashStack       ,-    module GI.GLib.Structs.Tree             ,-    module GI.GLib.Structs.VariantBuilder   ,-    module GI.GLib.Structs.VariantDict      ,-    module GI.GLib.Structs.VariantType      ,---    ) where--import GI.GLib.Structs.AsyncQueue-import GI.GLib.Structs.BookmarkFile-import GI.GLib.Structs.ByteArray-import GI.GLib.Structs.Bytes-import GI.GLib.Structs.Checksum-import GI.GLib.Structs.Cond-import GI.GLib.Structs.Data-import GI.GLib.Structs.Date-import GI.GLib.Structs.DateTime-import GI.GLib.Structs.DebugKey-import GI.GLib.Structs.Dir-import GI.GLib.Structs.HashTableIter-import GI.GLib.Structs.Hmac-import GI.GLib.Structs.Hook-import GI.GLib.Structs.HookList-import GI.GLib.Structs.IConv-import GI.GLib.Structs.IOChannel-import GI.GLib.Structs.IOFuncs-import GI.GLib.Structs.KeyFile-import GI.GLib.Structs.MainContext-import GI.GLib.Structs.MainLoop-import GI.GLib.Structs.MappedFile-import GI.GLib.Structs.MarkupParseContext-import GI.GLib.Structs.MarkupParser-import GI.GLib.Structs.MatchInfo-import GI.GLib.Structs.MemVTable-import GI.GLib.Structs.Node-import GI.GLib.Structs.Once-import GI.GLib.Structs.OptionContext-import GI.GLib.Structs.OptionEntry-import GI.GLib.Structs.OptionGroup-import GI.GLib.Structs.PatternSpec-import GI.GLib.Structs.PollFD-import GI.GLib.Structs.PtrArray-import GI.GLib.Structs.Queue-import GI.GLib.Structs.RWLock-import GI.GLib.Structs.Rand-import GI.GLib.Structs.RecMutex-import GI.GLib.Structs.Regex-import GI.GLib.Structs.Scanner-import GI.GLib.Structs.ScannerConfig-import GI.GLib.Structs.Sequence-import GI.GLib.Structs.SequenceIter-import GI.GLib.Structs.Source-import GI.GLib.Structs.SourceCallbackFuncs-import GI.GLib.Structs.SourceFuncs-import GI.GLib.Structs.StatBuf-import GI.GLib.Structs.String-import GI.GLib.Structs.StringChunk-import GI.GLib.Structs.TestCase-import GI.GLib.Structs.TestConfig-import GI.GLib.Structs.TestLogBuffer-import GI.GLib.Structs.TestLogMsg-import GI.GLib.Structs.TestSuite-import GI.GLib.Structs.Thread-import GI.GLib.Structs.ThreadPool-import GI.GLib.Structs.TimeVal-import GI.GLib.Structs.TimeZone-import GI.GLib.Structs.Timer-import GI.GLib.Structs.TrashStack-import GI.GLib.Structs.Tree-import GI.GLib.Structs.VariantBuilder-import GI.GLib.Structs.VariantDict-import GI.GLib.Structs.VariantType--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--
− GI/GLib/Structs/AsyncQueue.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)--The GAsyncQueue struct is an opaque data structure which represents-an asynchronous queue. It should only be accessed through the-g_async_queue_* functions.--}--module GI.GLib.Structs.AsyncQueue-    ( ---- * Exported types-    AsyncQueue(..)                          ,-    noAsyncQueue                            ,--- -- * Methods--- ** asyncQueueLength-    asyncQueueLength                        ,----- ** asyncQueueLengthUnlocked-    asyncQueueLengthUnlocked                ,----- ** asyncQueueLock-    asyncQueueLock                          ,----- ** asyncQueuePush-    asyncQueuePush                          ,----- ** asyncQueuePushUnlocked-    asyncQueuePushUnlocked                  ,----- ** asyncQueueRefUnlocked-    asyncQueueRefUnlocked                   ,----- ** asyncQueueUnlock-    asyncQueueUnlock                        ,----- ** asyncQueueUnref-    asyncQueueUnref                         ,----- ** asyncQueueUnrefAndUnlock-    asyncQueueUnrefAndUnlock                ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype AsyncQueue = AsyncQueue (ForeignPtr AsyncQueue)-noAsyncQueue :: Maybe AsyncQueue-noAsyncQueue = Nothing---- method AsyncQueue::length--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_async_queue_length" g_async_queue_length :: -    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"-    IO Int32---asyncQueueLength ::-    (MonadIO m) =>-    AsyncQueue ->                           -- _obj-    m Int32-asyncQueueLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_async_queue_length _obj'-    touchManagedPtr _obj-    return result---- method AsyncQueue::length_unlocked--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_async_queue_length_unlocked" g_async_queue_length_unlocked :: -    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"-    IO Int32---asyncQueueLengthUnlocked ::-    (MonadIO m) =>-    AsyncQueue ->                           -- _obj-    m Int32-asyncQueueLengthUnlocked _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_async_queue_length_unlocked _obj'-    touchManagedPtr _obj-    return result---- method AsyncQueue::lock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_async_queue_lock" g_async_queue_lock :: -    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"-    IO ()---asyncQueueLock ::-    (MonadIO m) =>-    AsyncQueue ->                           -- _obj-    m ()-asyncQueueLock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_async_queue_lock _obj'-    touchManagedPtr _obj-    return ()---- method AsyncQueue::push--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_async_queue_push" g_async_queue_push :: -    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"-    Ptr () ->                               -- data : TBasicType TVoid-    IO ()---asyncQueuePush ::-    (MonadIO m) =>-    AsyncQueue ->                           -- _obj-    Ptr () ->                               -- data-    m ()-asyncQueuePush _obj data_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_async_queue_push _obj' data_-    touchManagedPtr _obj-    return ()---- method AsyncQueue::push_unlocked--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_async_queue_push_unlocked" g_async_queue_push_unlocked :: -    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"-    Ptr () ->                               -- data : TBasicType TVoid-    IO ()---asyncQueuePushUnlocked ::-    (MonadIO m) =>-    AsyncQueue ->                           -- _obj-    Ptr () ->                               -- data-    m ()-asyncQueuePushUnlocked _obj data_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_async_queue_push_unlocked _obj' data_-    touchManagedPtr _obj-    return ()---- method AsyncQueue::ref_unlocked--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_async_queue_ref_unlocked" g_async_queue_ref_unlocked :: -    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"-    IO ()--{-# DEPRECATED asyncQueueRefUnlocked ["(Since version 2.8)","Reference counting is done atomically.","so g_async_queue_ref() can be used regardless of the @queue's","lock."]#-}-asyncQueueRefUnlocked ::-    (MonadIO m) =>-    AsyncQueue ->                           -- _obj-    m ()-asyncQueueRefUnlocked _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_async_queue_ref_unlocked _obj'-    touchManagedPtr _obj-    return ()---- method AsyncQueue::unlock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_async_queue_unlock" g_async_queue_unlock :: -    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"-    IO ()---asyncQueueUnlock ::-    (MonadIO m) =>-    AsyncQueue ->                           -- _obj-    m ()-asyncQueueUnlock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_async_queue_unlock _obj'-    touchManagedPtr _obj-    return ()---- method AsyncQueue::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_async_queue_unref" g_async_queue_unref :: -    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"-    IO ()---asyncQueueUnref ::-    (MonadIO m) =>-    AsyncQueue ->                           -- _obj-    m ()-asyncQueueUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_async_queue_unref _obj'-    touchManagedPtr _obj-    return ()---- method AsyncQueue::unref_and_unlock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_async_queue_unref_and_unlock" g_async_queue_unref_and_unlock :: -    Ptr AsyncQueue ->                       -- _obj : TInterface "GLib" "AsyncQueue"-    IO ()--{-# DEPRECATED asyncQueueUnrefAndUnlock ["(Since version 2.8)","Reference counting is done atomically.","so g_async_queue_unref() can be used regardless of the @queue's","lock."]#-}-asyncQueueUnrefAndUnlock ::-    (MonadIO m) =>-    AsyncQueue ->                           -- _obj-    m ()-asyncQueueUnrefAndUnlock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_async_queue_unref_and_unlock _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/AsyncQueue.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.AsyncQueue where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AsyncQueue = AsyncQueue (ForeignPtr AsyncQueue)
− GI/GLib/Structs/BookmarkFile.hs 
@@ -1,1561 +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 `GBookmarkFile` structure contains only-private data and should not be directly accessed.--}--module GI.GLib.Structs.BookmarkFile-    ( ---- * Exported types-    BookmarkFile(..)                        ,-    noBookmarkFile                          ,--- -- * Methods--- ** bookmarkFileAddApplication-    bookmarkFileAddApplication              ,----- ** bookmarkFileAddGroup-    bookmarkFileAddGroup                    ,----- ** bookmarkFileFree-    bookmarkFileFree                        ,----- ** bookmarkFileGetAdded-    bookmarkFileGetAdded                    ,----- ** bookmarkFileGetAppInfo-    bookmarkFileGetAppInfo                  ,----- ** bookmarkFileGetApplications-    bookmarkFileGetApplications             ,----- ** bookmarkFileGetDescription-    bookmarkFileGetDescription              ,----- ** bookmarkFileGetGroups-    bookmarkFileGetGroups                   ,----- ** bookmarkFileGetIcon-    bookmarkFileGetIcon                     ,----- ** bookmarkFileGetIsPrivate-    bookmarkFileGetIsPrivate                ,----- ** bookmarkFileGetMimeType-    bookmarkFileGetMimeType                 ,----- ** bookmarkFileGetModified-    bookmarkFileGetModified                 ,----- ** bookmarkFileGetSize-    bookmarkFileGetSize                     ,----- ** bookmarkFileGetTitle-    bookmarkFileGetTitle                    ,----- ** bookmarkFileGetUris-    bookmarkFileGetUris                     ,----- ** bookmarkFileGetVisited-    bookmarkFileGetVisited                  ,----- ** bookmarkFileHasApplication-    bookmarkFileHasApplication              ,----- ** bookmarkFileHasGroup-    bookmarkFileHasGroup                    ,----- ** bookmarkFileHasItem-    bookmarkFileHasItem                     ,----- ** bookmarkFileLoadFromData-    bookmarkFileLoadFromData                ,----- ** bookmarkFileLoadFromDataDirs-    bookmarkFileLoadFromDataDirs            ,----- ** bookmarkFileLoadFromFile-    bookmarkFileLoadFromFile                ,----- ** bookmarkFileMoveItem-    bookmarkFileMoveItem                    ,----- ** bookmarkFileRemoveApplication-    bookmarkFileRemoveApplication           ,----- ** bookmarkFileRemoveGroup-    bookmarkFileRemoveGroup                 ,----- ** bookmarkFileRemoveItem-    bookmarkFileRemoveItem                  ,----- ** bookmarkFileSetAdded-    bookmarkFileSetAdded                    ,----- ** bookmarkFileSetAppInfo-    bookmarkFileSetAppInfo                  ,----- ** bookmarkFileSetDescription-    bookmarkFileSetDescription              ,----- ** bookmarkFileSetGroups-    bookmarkFileSetGroups                   ,----- ** bookmarkFileSetIcon-    bookmarkFileSetIcon                     ,----- ** bookmarkFileSetIsPrivate-    bookmarkFileSetIsPrivate                ,----- ** bookmarkFileSetMimeType-    bookmarkFileSetMimeType                 ,----- ** bookmarkFileSetModified-    bookmarkFileSetModified                 ,----- ** bookmarkFileSetTitle-    bookmarkFileSetTitle                    ,----- ** bookmarkFileSetVisited-    bookmarkFileSetVisited                  ,----- ** bookmarkFileToData-    bookmarkFileToData                      ,----- ** bookmarkFileToFile-    bookmarkFileToFile                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype BookmarkFile = BookmarkFile (ForeignPtr BookmarkFile)-noBookmarkFile :: Maybe BookmarkFile-noBookmarkFile = Nothing---- method BookmarkFile::add_application--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_add_application" g_bookmark_file_add_application :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- exec : TBasicType TUTF8-    IO ()---bookmarkFileAddApplication ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    Maybe (T.Text) ->                       -- name-    Maybe (T.Text) ->                       -- exec-    m ()-bookmarkFileAddApplication _obj uri name exec = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    maybeName <- case name of-        Nothing -> return nullPtr-        Just jName -> do-            jName' <- textToCString jName-            return jName'-    maybeExec <- case exec of-        Nothing -> return nullPtr-        Just jExec -> do-            jExec' <- textToCString jExec-            return jExec'-    g_bookmark_file_add_application _obj' uri' maybeName maybeExec-    touchManagedPtr _obj-    freeMem uri'-    freeMem maybeName-    freeMem maybeExec-    return ()---- method BookmarkFile::add_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_add_group" g_bookmark_file_add_group :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- group : TBasicType TUTF8-    IO ()---bookmarkFileAddGroup ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    T.Text ->                               -- group-    m ()-bookmarkFileAddGroup _obj uri group = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    group' <- textToCString group-    g_bookmark_file_add_group _obj' uri' group'-    touchManagedPtr _obj-    freeMem uri'-    freeMem group'-    return ()---- method BookmarkFile::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_free" g_bookmark_file_free :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    IO ()---bookmarkFileFree ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    m ()-bookmarkFileFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_bookmark_file_free _obj'-    touchManagedPtr _obj-    return ()---- method BookmarkFile::get_added--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_get_added" g_bookmark_file_get_added :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO Int64---bookmarkFileGetAdded ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    m Int64-bookmarkFileGetAdded _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    onException (do-        result <- propagateGError $ g_bookmark_file_get_added _obj' uri'-        touchManagedPtr _obj-        freeMem uri'-        return result-     ) (do-        freeMem uri'-     )---- method BookmarkFile::get_app_info--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_get_app_info" g_bookmark_file_get_app_info :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- name : TBasicType TUTF8-    Ptr CString ->                          -- exec : TBasicType TUTF8-    Ptr Word32 ->                           -- count : TBasicType TUInt32-    Ptr Int64 ->                            -- stamp : TBasicType TInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileGetAppInfo ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    T.Text ->                               -- name-    m (T.Text,Word32,Int64)-bookmarkFileGetAppInfo _obj uri name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    name' <- textToCString name-    exec <- allocMem :: IO (Ptr CString)-    count <- allocMem :: IO (Ptr Word32)-    stamp <- allocMem :: IO (Ptr Int64)-    onException (do-        _ <- propagateGError $ g_bookmark_file_get_app_info _obj' uri' name' exec count stamp-        exec' <- peek exec-        exec'' <- cstringToText exec'-        freeMem exec'-        count' <- peek count-        stamp' <- peek stamp-        touchManagedPtr _obj-        freeMem uri'-        freeMem name'-        freeMem exec-        freeMem count-        freeMem stamp-        return (exec'', count', stamp')-     ) (do-        freeMem uri'-        freeMem name'-        freeMem exec-        freeMem count-        freeMem stamp-     )---- method BookmarkFile::get_applications--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray False (-1) 2 (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_get_applications" g_bookmark_file_get_applications :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---bookmarkFileGetApplications ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    m [T.Text]-bookmarkFileGetApplications _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_bookmark_file_get_applications _obj' uri' length_-        length_' <- peek length_-        checkUnexpectedReturnNULL "g_bookmark_file_get_applications" result-        result' <- (unpackUTF8CArrayWithLength length_') result-        (mapCArrayWithLength length_') freeMem result-        freeMem result-        touchManagedPtr _obj-        freeMem uri'-        freeMem length_-        return result'-     ) (do-        freeMem uri'-        freeMem length_-     )---- method BookmarkFile::get_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_get_description" g_bookmark_file_get_description :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---bookmarkFileGetDescription ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    m T.Text-bookmarkFileGetDescription _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    onException (do-        result <- propagateGError $ g_bookmark_file_get_description _obj' uri'-        checkUnexpectedReturnNULL "g_bookmark_file_get_description" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        freeMem uri'-        return result'-     ) (do-        freeMem uri'-     )---- method BookmarkFile::get_groups--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray False (-1) 2 (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_get_groups" g_bookmark_file_get_groups :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---bookmarkFileGetGroups ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    m [T.Text]-bookmarkFileGetGroups _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_bookmark_file_get_groups _obj' uri' length_-        length_' <- peek length_-        checkUnexpectedReturnNULL "g_bookmark_file_get_groups" result-        result' <- (unpackUTF8CArrayWithLength length_') result-        (mapCArrayWithLength length_') freeMem result-        freeMem result-        touchManagedPtr _obj-        freeMem uri'-        freeMem length_-        return result'-     ) (do-        freeMem uri'-        freeMem length_-     )---- method BookmarkFile::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "href", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_get_icon" g_bookmark_file_get_icon :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr CString ->                          -- href : TBasicType TUTF8-    Ptr CString ->                          -- mime_type : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileGetIcon ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    m (T.Text,T.Text)-bookmarkFileGetIcon _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    href <- allocMem :: IO (Ptr CString)-    mime_type <- allocMem :: IO (Ptr CString)-    onException (do-        _ <- propagateGError $ g_bookmark_file_get_icon _obj' uri' href mime_type-        href' <- peek href-        href'' <- cstringToText href'-        freeMem href'-        mime_type' <- peek mime_type-        mime_type'' <- cstringToText mime_type'-        freeMem mime_type'-        touchManagedPtr _obj-        freeMem uri'-        freeMem href-        freeMem mime_type-        return (href'', mime_type'')-     ) (do-        freeMem uri'-        freeMem href-        freeMem mime_type-     )---- method BookmarkFile::get_is_private--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_get_is_private" g_bookmark_file_get_is_private :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileGetIsPrivate ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    m ()-bookmarkFileGetIsPrivate _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    onException (do-        _ <- propagateGError $ g_bookmark_file_get_is_private _obj' uri'-        touchManagedPtr _obj-        freeMem uri'-        return ()-     ) (do-        freeMem uri'-     )---- method BookmarkFile::get_mime_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_get_mime_type" g_bookmark_file_get_mime_type :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---bookmarkFileGetMimeType ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    m T.Text-bookmarkFileGetMimeType _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    onException (do-        result <- propagateGError $ g_bookmark_file_get_mime_type _obj' uri'-        checkUnexpectedReturnNULL "g_bookmark_file_get_mime_type" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        freeMem uri'-        return result'-     ) (do-        freeMem uri'-     )---- method BookmarkFile::get_modified--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_get_modified" g_bookmark_file_get_modified :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO Int64---bookmarkFileGetModified ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    m Int64-bookmarkFileGetModified _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    onException (do-        result <- propagateGError $ g_bookmark_file_get_modified _obj' uri'-        touchManagedPtr _obj-        freeMem uri'-        return result-     ) (do-        freeMem uri'-     )---- method BookmarkFile::get_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_get_size" g_bookmark_file_get_size :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    IO Int32---bookmarkFileGetSize ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    m Int32-bookmarkFileGetSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_bookmark_file_get_size _obj'-    touchManagedPtr _obj-    return result---- method BookmarkFile::get_title--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_get_title" g_bookmark_file_get_title :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---bookmarkFileGetTitle ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    Maybe (T.Text) ->                       -- uri-    m T.Text-bookmarkFileGetTitle _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeUri <- case uri of-        Nothing -> return nullPtr-        Just jUri -> do-            jUri' <- textToCString jUri-            return jUri'-    onException (do-        result <- propagateGError $ g_bookmark_file_get_title _obj' maybeUri-        checkUnexpectedReturnNULL "g_bookmark_file_get_title" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        freeMem maybeUri-        return result'-     ) (do-        freeMem maybeUri-     )---- method BookmarkFile::get_uris--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray False (-1) 1 (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_get_uris" g_bookmark_file_get_uris :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    IO (Ptr CString)---bookmarkFileGetUris ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    m [T.Text]-bookmarkFileGetUris _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    length_ <- allocMem :: IO (Ptr Word64)-    result <- g_bookmark_file_get_uris _obj' length_-    length_' <- peek length_-    checkUnexpectedReturnNULL "g_bookmark_file_get_uris" result-    result' <- (unpackUTF8CArrayWithLength length_') result-    (mapCArrayWithLength length_') freeMem result-    freeMem result-    touchManagedPtr _obj-    freeMem length_-    return result'---- method BookmarkFile::get_visited--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_get_visited" g_bookmark_file_get_visited :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO Int64---bookmarkFileGetVisited ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    m Int64-bookmarkFileGetVisited _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    onException (do-        result <- propagateGError $ g_bookmark_file_get_visited _obj' uri'-        touchManagedPtr _obj-        freeMem uri'-        return result-     ) (do-        freeMem uri'-     )---- method BookmarkFile::has_application--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_has_application" g_bookmark_file_has_application :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- name : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileHasApplication ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    T.Text ->                               -- name-    m ()-bookmarkFileHasApplication _obj uri name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    name' <- textToCString name-    onException (do-        _ <- propagateGError $ g_bookmark_file_has_application _obj' uri' name'-        touchManagedPtr _obj-        freeMem uri'-        freeMem name'-        return ()-     ) (do-        freeMem uri'-        freeMem name'-     )---- method BookmarkFile::has_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_has_group" g_bookmark_file_has_group :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- group : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileHasGroup ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    T.Text ->                               -- group-    m ()-bookmarkFileHasGroup _obj uri group = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    group' <- textToCString group-    onException (do-        _ <- propagateGError $ g_bookmark_file_has_group _obj' uri' group'-        touchManagedPtr _obj-        freeMem uri'-        freeMem group'-        return ()-     ) (do-        freeMem uri'-        freeMem group'-     )---- method BookmarkFile::has_item--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_has_item" g_bookmark_file_has_item :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    IO CInt---bookmarkFileHasItem ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    m Bool-bookmarkFileHasItem _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    result <- g_bookmark_file_has_item _obj' uri'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem uri'-    return result'---- method BookmarkFile::load_from_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_load_from_data" g_bookmark_file_load_from_data :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- data : TBasicType TUTF8-    Word64 ->                               -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileLoadFromData ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- data-    Word64 ->                               -- length-    m ()-bookmarkFileLoadFromData _obj data_ length_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    data_' <- textToCString data_-    onException (do-        _ <- propagateGError $ g_bookmark_file_load_from_data _obj' data_' length_-        touchManagedPtr _obj-        freeMem data_'-        return ()-     ) (do-        freeMem data_'-     )---- method BookmarkFile::load_from_data_dirs--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_load_from_data_dirs" g_bookmark_file_load_from_data_dirs :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- file : TBasicType TUTF8-    CString ->                              -- full_path : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileLoadFromDataDirs ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- file-    Maybe (T.Text) ->                       -- full_path-    m ()-bookmarkFileLoadFromDataDirs _obj file full_path = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    file' <- textToCString file-    maybeFull_path <- case full_path of-        Nothing -> return nullPtr-        Just jFull_path -> do-            jFull_path' <- textToCString jFull_path-            return jFull_path'-    onException (do-        _ <- propagateGError $ g_bookmark_file_load_from_data_dirs _obj' file' maybeFull_path-        touchManagedPtr _obj-        freeMem file'-        freeMem maybeFull_path-        return ()-     ) (do-        freeMem file'-        freeMem maybeFull_path-     )---- method BookmarkFile::load_from_file--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_load_from_file" g_bookmark_file_load_from_file :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- filename : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileLoadFromFile ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- filename-    m ()-bookmarkFileLoadFromFile _obj filename = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    filename' <- textToCString filename-    onException (do-        _ <- propagateGError $ g_bookmark_file_load_from_file _obj' filename'-        touchManagedPtr _obj-        freeMem filename'-        return ()-     ) (do-        freeMem filename'-     )---- method BookmarkFile::move_item--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_move_item" g_bookmark_file_move_item :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- old_uri : TBasicType TUTF8-    CString ->                              -- new_uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileMoveItem ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- old_uri-    Maybe (T.Text) ->                       -- new_uri-    m ()-bookmarkFileMoveItem _obj old_uri new_uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    old_uri' <- textToCString old_uri-    maybeNew_uri <- case new_uri of-        Nothing -> return nullPtr-        Just jNew_uri -> do-            jNew_uri' <- textToCString jNew_uri-            return jNew_uri'-    onException (do-        _ <- propagateGError $ g_bookmark_file_move_item _obj' old_uri' maybeNew_uri-        touchManagedPtr _obj-        freeMem old_uri'-        freeMem maybeNew_uri-        return ()-     ) (do-        freeMem old_uri'-        freeMem maybeNew_uri-     )---- method BookmarkFile::remove_application--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_remove_application" g_bookmark_file_remove_application :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- name : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileRemoveApplication ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    T.Text ->                               -- name-    m ()-bookmarkFileRemoveApplication _obj uri name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    name' <- textToCString name-    onException (do-        _ <- propagateGError $ g_bookmark_file_remove_application _obj' uri' name'-        touchManagedPtr _obj-        freeMem uri'-        freeMem name'-        return ()-     ) (do-        freeMem uri'-        freeMem name'-     )---- method BookmarkFile::remove_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_remove_group" g_bookmark_file_remove_group :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- group : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileRemoveGroup ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    T.Text ->                               -- group-    m ()-bookmarkFileRemoveGroup _obj uri group = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    group' <- textToCString group-    onException (do-        _ <- propagateGError $ g_bookmark_file_remove_group _obj' uri' group'-        touchManagedPtr _obj-        freeMem uri'-        freeMem group'-        return ()-     ) (do-        freeMem uri'-        freeMem group'-     )---- method BookmarkFile::remove_item--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_remove_item" g_bookmark_file_remove_item :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileRemoveItem ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    m ()-bookmarkFileRemoveItem _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    onException (do-        _ <- propagateGError $ g_bookmark_file_remove_item _obj' uri'-        touchManagedPtr _obj-        freeMem uri'-        return ()-     ) (do-        freeMem uri'-     )---- method BookmarkFile::set_added--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "added", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "added", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_set_added" g_bookmark_file_set_added :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Int64 ->                                -- added : TBasicType TInt64-    IO ()---bookmarkFileSetAdded ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    Int64 ->                                -- added-    m ()-bookmarkFileSetAdded _obj uri added = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    g_bookmark_file_set_added _obj' uri' added-    touchManagedPtr _obj-    freeMem uri'-    return ()---- method BookmarkFile::set_app_info--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_set_app_info" g_bookmark_file_set_app_info :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- exec : TBasicType TUTF8-    Int32 ->                                -- count : TBasicType TInt32-    Int64 ->                                -- stamp : TBasicType TInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileSetAppInfo ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    T.Text ->                               -- name-    T.Text ->                               -- exec-    Int32 ->                                -- count-    Int64 ->                                -- stamp-    m ()-bookmarkFileSetAppInfo _obj uri name exec count stamp = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    name' <- textToCString name-    exec' <- textToCString exec-    onException (do-        _ <- propagateGError $ g_bookmark_file_set_app_info _obj' uri' name' exec' count stamp-        touchManagedPtr _obj-        freeMem uri'-        freeMem name'-        freeMem exec'-        return ()-     ) (do-        freeMem uri'-        freeMem name'-        freeMem exec'-     )---- method BookmarkFile::set_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_set_description" g_bookmark_file_set_description :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- description : TBasicType TUTF8-    IO ()---bookmarkFileSetDescription ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    Maybe (T.Text) ->                       -- uri-    T.Text ->                               -- description-    m ()-bookmarkFileSetDescription _obj uri description = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeUri <- case uri of-        Nothing -> return nullPtr-        Just jUri -> do-            jUri' <- textToCString jUri-            return jUri'-    description' <- textToCString description-    g_bookmark_file_set_description _obj' maybeUri description'-    touchManagedPtr _obj-    freeMem maybeUri-    freeMem description'-    return ()---- method BookmarkFile::set_groups--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "groups", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "groups", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_set_groups" g_bookmark_file_set_groups :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- groups : TBasicType TUTF8-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()---bookmarkFileSetGroups ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    Maybe (T.Text) ->                       -- groups-    Word64 ->                               -- length-    m ()-bookmarkFileSetGroups _obj uri groups length_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    maybeGroups <- case groups of-        Nothing -> return nullPtr-        Just jGroups -> do-            jGroups' <- textToCString jGroups-            return jGroups'-    g_bookmark_file_set_groups _obj' uri' maybeGroups length_-    touchManagedPtr _obj-    freeMem uri'-    freeMem maybeGroups-    return ()---- method BookmarkFile::set_icon--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "href", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "href", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_set_icon" g_bookmark_file_set_icon :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- href : TBasicType TUTF8-    CString ->                              -- mime_type : TBasicType TUTF8-    IO ()---bookmarkFileSetIcon ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    Maybe (T.Text) ->                       -- href-    T.Text ->                               -- mime_type-    m ()-bookmarkFileSetIcon _obj uri href mime_type = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    maybeHref <- case href of-        Nothing -> return nullPtr-        Just jHref -> do-            jHref' <- textToCString jHref-            return jHref'-    mime_type' <- textToCString mime_type-    g_bookmark_file_set_icon _obj' uri' maybeHref mime_type'-    touchManagedPtr _obj-    freeMem uri'-    freeMem maybeHref-    freeMem mime_type'-    return ()---- method BookmarkFile::set_is_private--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_set_is_private" g_bookmark_file_set_is_private :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CInt ->                                 -- is_private : TBasicType TBoolean-    IO ()---bookmarkFileSetIsPrivate ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    Bool ->                                 -- is_private-    m ()-bookmarkFileSetIsPrivate _obj uri is_private = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    let is_private' = (fromIntegral . fromEnum) is_private-    g_bookmark_file_set_is_private _obj' uri' is_private'-    touchManagedPtr _obj-    freeMem uri'-    return ()---- method BookmarkFile::set_mime_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_set_mime_type" g_bookmark_file_set_mime_type :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- mime_type : TBasicType TUTF8-    IO ()---bookmarkFileSetMimeType ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    T.Text ->                               -- mime_type-    m ()-bookmarkFileSetMimeType _obj uri mime_type = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    mime_type' <- textToCString mime_type-    g_bookmark_file_set_mime_type _obj' uri' mime_type'-    touchManagedPtr _obj-    freeMem uri'-    freeMem mime_type'-    return ()---- method BookmarkFile::set_modified--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modified", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modified", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_set_modified" g_bookmark_file_set_modified :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Int64 ->                                -- modified : TBasicType TInt64-    IO ()---bookmarkFileSetModified ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    Int64 ->                                -- modified-    m ()-bookmarkFileSetModified _obj uri modified = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    g_bookmark_file_set_modified _obj' uri' modified-    touchManagedPtr _obj-    freeMem uri'-    return ()---- method BookmarkFile::set_title--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_set_title" g_bookmark_file_set_title :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- title : TBasicType TUTF8-    IO ()---bookmarkFileSetTitle ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    Maybe (T.Text) ->                       -- uri-    T.Text ->                               -- title-    m ()-bookmarkFileSetTitle _obj uri title = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeUri <- case uri of-        Nothing -> return nullPtr-        Just jUri -> do-            jUri' <- textToCString jUri-            return jUri'-    title' <- textToCString title-    g_bookmark_file_set_title _obj' maybeUri title'-    touchManagedPtr _obj-    freeMem maybeUri-    freeMem title'-    return ()---- method BookmarkFile::set_visited--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visited", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visited", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bookmark_file_set_visited" g_bookmark_file_set_visited :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- uri : TBasicType TUTF8-    Int64 ->                                -- visited : TBasicType TInt64-    IO ()---bookmarkFileSetVisited ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- uri-    Int64 ->                                -- visited-    m ()-bookmarkFileSetVisited _obj uri visited = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uri' <- textToCString uri-    g_bookmark_file_set_visited _obj' uri' visited-    touchManagedPtr _obj-    freeMem uri'-    return ()---- method BookmarkFile::to_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_to_data" g_bookmark_file_to_data :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString---bookmarkFileToData ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    m (T.Text,Word64)-bookmarkFileToData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_bookmark_file_to_data _obj' length_-        checkUnexpectedReturnNULL "g_bookmark_file_to_data" result-        result' <- cstringToText result-        freeMem result-        length_' <- peek length_-        touchManagedPtr _obj-        freeMem length_-        return (result', length_')-     ) (do-        freeMem length_-     )---- method BookmarkFile::to_file--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_bookmark_file_to_file" g_bookmark_file_to_file :: -    Ptr BookmarkFile ->                     -- _obj : TInterface "GLib" "BookmarkFile"-    CString ->                              -- filename : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---bookmarkFileToFile ::-    (MonadIO m) =>-    BookmarkFile ->                         -- _obj-    T.Text ->                               -- filename-    m ()-bookmarkFileToFile _obj filename = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    filename' <- textToCString filename-    onException (do-        _ <- propagateGError $ g_bookmark_file_to_file _obj' filename'-        touchManagedPtr _obj-        freeMem filename'-        return ()-     ) (do-        freeMem filename'-     )--
− GI/GLib/Structs/BookmarkFile.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.BookmarkFile where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype BookmarkFile = BookmarkFile (ForeignPtr BookmarkFile)
− GI/GLib/Structs/ByteArray.hs 
@@ -1,61 +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)--Contains the public fields of a GByteArray.--}--module GI.GLib.Structs.ByteArray-    ( ---- * Exported types-    ByteArray(..)                           ,-    noByteArray                             ,--- -- * Properties--- ** Data-    byteArrayReadData                       ,----- ** Len-    byteArrayReadLen                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype ByteArray = ByteArray (ForeignPtr ByteArray)-foreign import ccall "g_byte_array_get_type" c_g_byte_array_get_type :: -    IO GType--instance BoxedObject ByteArray where-    boxedType _ = c_g_byte_array_get_type--noByteArray :: Maybe ByteArray-noByteArray = Nothing--byteArrayReadData :: ByteArray -> IO Word8-byteArrayReadData s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word8-    return val--byteArrayReadLen :: ByteArray -> IO Word32-byteArrayReadLen s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word32-    return val--
− GI/GLib/Structs/ByteArray.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.ByteArray where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ByteArray = ByteArray (ForeignPtr ByteArray)-instance BoxedObject ByteArray where
− GI/GLib/Structs/Bytes.hs 
@@ -1,449 +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)--A simple refcounted data type representing an immutable sequence of zero or-more bytes from an unspecified origin.--The purpose of a #GBytes is to keep the memory region that it holds-alive for as long as anyone holds a reference to the bytes.  When-the last reference count is dropped, the memory is released. Multiple-unrelated callers can use byte data in the #GBytes without coordinating-their activities, resting assured that the byte data will not change or-move while they hold a reference.--A #GBytes can come from many different origins that may have-different procedures for freeing the memory region.  Examples are-memory from g_malloc(), from memory slices, from a #GMappedFile or-memory from other allocators.--#GBytes work well as keys in #GHashTable. Use g_bytes_equal() and-g_bytes_hash() as parameters to g_hash_table_new() or g_hash_table_new_full().-#GBytes can also be used as keys in a #GTree by passing the g_bytes_compare()-function to g_tree_new().--The data pointed to by this bytes must not be modified. For a mutable-array of bytes see #GByteArray. Use g_bytes_unref_to_array() to create a-mutable array for a #GBytes sequence. To create an immutable #GBytes from-a mutable #GByteArray, use the g_byte_array_free_to_bytes() function.--}--module GI.GLib.Structs.Bytes-    ( ---- * Exported types-    Bytes(..)                               ,-    noBytes                                 ,--- -- * Methods--- ** bytesCompare-    bytesCompare                            ,----- ** bytesEqual-    bytesEqual                              ,----- ** bytesGetData-    bytesGetData                            ,----- ** bytesGetSize-    bytesGetSize                            ,----- ** bytesHash-    bytesHash                               ,----- ** bytesNew-    bytesNew                                ,----- ** bytesNewFromBytes-    bytesNewFromBytes                       ,----- ** bytesNewTake-    bytesNewTake                            ,----- ** bytesRef-    bytesRef                                ,----- ** bytesUnref-    bytesUnref                              ,----- ** bytesUnrefToArray-    bytesUnrefToArray                       ,----- ** bytesUnrefToData-    bytesUnrefToData                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Bytes = Bytes (ForeignPtr Bytes)-foreign import ccall "g_bytes_get_type" c_g_bytes_get_type :: -    IO GType--instance BoxedObject Bytes where-    boxedType _ = c_g_bytes_get_type--noBytes :: Maybe Bytes-noBytes = Nothing---- method Bytes::new--- method type : Constructor--- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Bytes"--- throws : False--- Skip return : False--foreign import ccall "g_bytes_new" g_bytes_new :: -    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    IO (Ptr Bytes)---bytesNew ::-    (MonadIO m) =>-    Maybe (ByteString) ->                   -- data-    m Bytes-bytesNew data_ = liftIO $ do-    let size = case data_ of-            Nothing -> 0-            Just jData_ -> fromIntegral $ B.length jData_-    maybeData_ <- case data_ of-        Nothing -> return nullPtr-        Just jData_ -> do-            jData_' <- packByteString jData_-            return jData_'-    result <- g_bytes_new maybeData_ size-    checkUnexpectedReturnNULL "g_bytes_new" result-    result' <- (wrapBoxed Bytes) result-    freeMem maybeData_-    return result'---- method Bytes::new_take--- method type : Constructor--- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TInterface "GLib" "Bytes"--- throws : False--- Skip return : False--foreign import ccall "g_bytes_new_take" g_bytes_new_take :: -    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    IO (Ptr Bytes)---bytesNewTake ::-    (MonadIO m) =>-    Maybe (ByteString) ->                   -- data-    m Bytes-bytesNewTake data_ = liftIO $ do-    let size = case data_ of-            Nothing -> 0-            Just jData_ -> fromIntegral $ B.length jData_-    maybeData_ <- case data_ of-        Nothing -> return nullPtr-        Just jData_ -> do-            jData_' <- packByteString jData_-            return jData_'-    result <- g_bytes_new_take maybeData_ size-    checkUnexpectedReturnNULL "g_bytes_new_take" result-    result' <- (wrapBoxed Bytes) result-    return result'---- method Bytes::compare--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_bytes_compare" g_bytes_compare :: -    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"-    Ptr Bytes ->                            -- bytes2 : TInterface "GLib" "Bytes"-    IO Int32---bytesCompare ::-    (MonadIO m) =>-    Bytes ->                                -- _obj-    Bytes ->                                -- bytes2-    m Int32-bytesCompare _obj bytes2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let bytes2' = unsafeManagedPtrGetPtr bytes2-    result <- g_bytes_compare _obj' bytes2'-    touchManagedPtr _obj-    touchManagedPtr bytes2-    return result---- method Bytes::equal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_bytes_equal" g_bytes_equal :: -    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"-    Ptr Bytes ->                            -- bytes2 : TInterface "GLib" "Bytes"-    IO CInt---bytesEqual ::-    (MonadIO m) =>-    Bytes ->                                -- _obj-    Bytes ->                                -- bytes2-    m Bool-bytesEqual _obj bytes2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let bytes2' = unsafeManagedPtrGetPtr bytes2-    result <- g_bytes_equal _obj' bytes2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr bytes2-    return result'---- method Bytes::get_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray False (-1) 1 (TBasicType TUInt8)--- throws : False--- Skip return : False--foreign import ccall "g_bytes_get_data" g_bytes_get_data :: -    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"-    Ptr Word64 ->                           -- size : TBasicType TUInt64-    IO (Ptr Word8)---bytesGetData ::-    (MonadIO m) =>-    Bytes ->                                -- _obj-    m ByteString-bytesGetData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    size <- allocMem :: IO (Ptr Word64)-    result <- g_bytes_get_data _obj' size-    size' <- peek size-    checkUnexpectedReturnNULL "g_bytes_get_data" result-    result' <- (unpackByteStringWithLength size') result-    touchManagedPtr _obj-    freeMem size-    return result'---- method Bytes::get_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_bytes_get_size" g_bytes_get_size :: -    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"-    IO Word64---bytesGetSize ::-    (MonadIO m) =>-    Bytes ->                                -- _obj-    m Word64-bytesGetSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_bytes_get_size _obj'-    touchManagedPtr _obj-    return result---- method Bytes::hash--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_bytes_hash" g_bytes_hash :: -    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"-    IO Word32---bytesHash ::-    (MonadIO m) =>-    Bytes ->                                -- _obj-    m Word32-bytesHash _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_bytes_hash _obj'-    touchManagedPtr _obj-    return result---- method Bytes::new_from_bytes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Bytes"--- throws : False--- Skip return : False--foreign import ccall "g_bytes_new_from_bytes" g_bytes_new_from_bytes :: -    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"-    Word64 ->                               -- offset : TBasicType TUInt64-    Word64 ->                               -- length : TBasicType TUInt64-    IO (Ptr Bytes)---bytesNewFromBytes ::-    (MonadIO m) =>-    Bytes ->                                -- _obj-    Word64 ->                               -- offset-    Word64 ->                               -- length-    m Bytes-bytesNewFromBytes _obj offset length_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_bytes_new_from_bytes _obj' offset length_-    checkUnexpectedReturnNULL "g_bytes_new_from_bytes" result-    result' <- (wrapBoxed Bytes) result-    touchManagedPtr _obj-    return result'---- method Bytes::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Bytes"--- throws : False--- Skip return : False--foreign import ccall "g_bytes_ref" g_bytes_ref :: -    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"-    IO (Ptr Bytes)---bytesRef ::-    (MonadIO m) =>-    Bytes ->                                -- _obj-    m Bytes-bytesRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_bytes_ref _obj'-    checkUnexpectedReturnNULL "g_bytes_ref" result-    result' <- (wrapBoxed Bytes) result-    touchManagedPtr _obj-    return result'---- method Bytes::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bytes_unref" g_bytes_unref :: -    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"-    IO ()---bytesUnref ::-    (MonadIO m) =>-    Bytes ->                                -- _obj-    m ()-bytesUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_bytes_unref _obj'-    touchManagedPtr _obj-    return ()---- method Bytes::unref_to_array--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TByteArray--- throws : False--- Skip return : False--foreign import ccall "g_bytes_unref_to_array" g_bytes_unref_to_array :: -    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"-    IO (Ptr GByteArray)---bytesUnrefToArray ::-    (MonadIO m) =>-    Bytes ->                                -- _obj-    m ByteString-bytesUnrefToArray _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_bytes_unref_to_array _obj'-    checkUnexpectedReturnNULL "g_bytes_unref_to_array" result-    result' <- unpackGByteArray result-    unrefGByteArray result-    touchManagedPtr _obj-    return result'---- method Bytes::unref_to_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_bytes_unref_to_data" g_bytes_unref_to_data :: -    Ptr Bytes ->                            -- _obj : TInterface "GLib" "Bytes"-    Word64 ->                               -- size : TBasicType TUInt64-    IO ()---bytesUnrefToData ::-    (MonadIO m) =>-    Bytes ->                                -- _obj-    Word64 ->                               -- size-    m ()-bytesUnrefToData _obj size = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_bytes_unref_to_data _obj' size-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/Bytes.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.Bytes where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Bytes = Bytes (ForeignPtr Bytes)-instance BoxedObject Bytes where
− GI/GLib/Structs/Checksum.hs 
@@ -1,224 +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 opaque structure representing a checksumming operation.-To create a new GChecksum, use g_checksum_new(). To free-a GChecksum, use g_checksum_free().--}--module GI.GLib.Structs.Checksum-    ( ---- * Exported types-    Checksum(..)                            ,-    noChecksum                              ,--- -- * Methods--- ** checksumCopy-    checksumCopy                            ,----- ** checksumFree-    checksumFree                            ,----- ** checksumGetString-    checksumGetString                       ,----- ** checksumNew-    checksumNew                             ,----- ** checksumReset-    checksumReset                           ,----- ** checksumUpdate-    checksumUpdate                          ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Checksum = Checksum (ForeignPtr Checksum)-foreign import ccall "g_checksum_get_type" c_g_checksum_get_type :: -    IO GType--instance BoxedObject Checksum where-    boxedType _ = c_g_checksum_get_type--noChecksum :: Maybe Checksum-noChecksum = Nothing---- method Checksum::new--- method type : Constructor--- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Checksum"--- throws : False--- Skip return : False--foreign import ccall "g_checksum_new" g_checksum_new :: -    CUInt ->                                -- checksum_type : TInterface "GLib" "ChecksumType"-    IO (Ptr Checksum)---checksumNew ::-    (MonadIO m) =>-    ChecksumType ->                         -- checksum_type-    m Checksum-checksumNew checksum_type = liftIO $ do-    let checksum_type' = (fromIntegral . fromEnum) checksum_type-    result <- g_checksum_new checksum_type'-    checkUnexpectedReturnNULL "g_checksum_new" result-    result' <- (wrapBoxed Checksum) result-    return result'---- method Checksum::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Checksum"--- throws : False--- Skip return : False--foreign import ccall "g_checksum_copy" g_checksum_copy :: -    Ptr Checksum ->                         -- _obj : TInterface "GLib" "Checksum"-    IO (Ptr Checksum)---checksumCopy ::-    (MonadIO m) =>-    Checksum ->                             -- _obj-    m Checksum-checksumCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_checksum_copy _obj'-    checkUnexpectedReturnNULL "g_checksum_copy" result-    result' <- (wrapBoxed Checksum) result-    touchManagedPtr _obj-    return result'---- method Checksum::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_checksum_free" g_checksum_free :: -    Ptr Checksum ->                         -- _obj : TInterface "GLib" "Checksum"-    IO ()---checksumFree ::-    (MonadIO m) =>-    Checksum ->                             -- _obj-    m ()-checksumFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_checksum_free _obj'-    touchManagedPtr _obj-    return ()---- method Checksum::get_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_checksum_get_string" g_checksum_get_string :: -    Ptr Checksum ->                         -- _obj : TInterface "GLib" "Checksum"-    IO CString---checksumGetString ::-    (MonadIO m) =>-    Checksum ->                             -- _obj-    m T.Text-checksumGetString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_checksum_get_string _obj'-    checkUnexpectedReturnNULL "g_checksum_get_string" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Checksum::reset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_checksum_reset" g_checksum_reset :: -    Ptr Checksum ->                         -- _obj : TInterface "GLib" "Checksum"-    IO ()---checksumReset ::-    (MonadIO m) =>-    Checksum ->                             -- _obj-    m ()-checksumReset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_checksum_reset _obj'-    touchManagedPtr _obj-    return ()---- method Checksum::update--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_checksum_update" g_checksum_update :: -    Ptr Checksum ->                         -- _obj : TInterface "GLib" "Checksum"-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Int64 ->                                -- length : TBasicType TInt64-    IO ()---checksumUpdate ::-    (MonadIO m) =>-    Checksum ->                             -- _obj-    ByteString ->                           -- data-    m ()-checksumUpdate _obj data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    let _obj' = unsafeManagedPtrGetPtr _obj-    data_' <- packByteString data_-    g_checksum_update _obj' data_' length_-    touchManagedPtr _obj-    freeMem data_'-    return ()--
− GI/GLib/Structs/Checksum.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.Checksum where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Checksum = Checksum (ForeignPtr Checksum)-instance BoxedObject Checksum where
− GI/GLib/Structs/Cond.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)--The #GCond struct is an opaque data structure that represents a-condition. Threads can block on a #GCond if they find a certain-condition to be false. If other threads change the state of this-condition they signal the #GCond, and that causes the waiting-threads to be woken up.--Consider the following example of a shared variable.  One or more-threads can wait for data to be published to the variable and when-another thread publishes the data, it can signal one of the waiting-threads to wake up to collect the data.--Here is an example for using GCond to block a thread until a condition-is satisfied:-|[<!-- language="C" -->-  gpointer current_data = NULL;-  GMutex data_mutex;-  GCond data_cond;--  void-  push_data (gpointer data)-  {-    g_mutex_lock (&data_mutex);-    current_data = data;-    g_cond_signal (&data_cond);-    g_mutex_unlock (&data_mutex);-  }--  gpointer-  pop_data (void)-  {-    gpointer data;--    g_mutex_lock (&data_mutex);-    while (!current_data)-      g_cond_wait (&data_cond, &data_mutex);-    data = current_data;-    current_data = NULL;-    g_mutex_unlock (&data_mutex);--    return data;-  }-]|-Whenever a thread calls pop_data() now, it will wait until-current_data is non-%NULL, i.e. until some other thread-has called push_data().--The example shows that use of a condition variable must always be-paired with a mutex.  Without the use of a mutex, there would be a-race between the check of @current_data by the while loop in-pop_data() and waiting. Specifically, another thread could set-@current_data after the check, and signal the cond (with nobody-waiting on it) before the first thread goes to sleep. #GCond is-specifically useful for its ability to release the mutex and go-to sleep atomically.--It is also important to use the g_cond_wait() and g_cond_wait_until()-functions only inside a loop which checks for the condition to be-true.  See g_cond_wait() for an explanation of why the condition may-not be true even after it returns.--If a #GCond is allocated in static storage then it can be used-without initialisation.  Otherwise, you should call g_cond_init()-on it and g_cond_clear() when done.--A #GCond should only be accessed via the g_cond_ functions.--}--module GI.GLib.Structs.Cond-    ( ---- * Exported types-    Cond(..)                                ,-    noCond                                  ,--- -- * Methods--- ** condBroadcast-    condBroadcast                           ,----- ** condClear-    condClear                               ,----- ** condInit-    condInit                                ,----- ** condSignal-    condSignal                              ,----- ** condWait-    condWait                                ,----- ** condWaitUntil-    condWaitUntil                           ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Cond = Cond (ForeignPtr Cond)-noCond :: Maybe Cond-noCond = Nothing---- method Cond::broadcast--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_cond_broadcast" g_cond_broadcast :: -    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"-    IO ()---condBroadcast ::-    (MonadIO m) =>-    Cond ->                                 -- _obj-    m ()-condBroadcast _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_cond_broadcast _obj'-    touchManagedPtr _obj-    return ()---- method Cond::clear--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_cond_clear" g_cond_clear :: -    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"-    IO ()---condClear ::-    (MonadIO m) =>-    Cond ->                                 -- _obj-    m ()-condClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_cond_clear _obj'-    touchManagedPtr _obj-    return ()---- method Cond::init--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_cond_init" g_cond_init :: -    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"-    IO ()---condInit ::-    (MonadIO m) =>-    Cond ->                                 -- _obj-    m ()-condInit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_cond_init _obj'-    touchManagedPtr _obj-    return ()---- method Cond::signal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_cond_signal" g_cond_signal :: -    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"-    IO ()---condSignal ::-    (MonadIO m) =>-    Cond ->                                 -- _obj-    m ()-condSignal _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_cond_signal _obj'-    touchManagedPtr _obj-    return ()---- method Cond::wait--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_cond_wait" g_cond_wait :: -    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"-    Ptr Mutex ->                            -- mutex : TInterface "GLib" "Mutex"-    IO ()---condWait ::-    (MonadIO m) =>-    Cond ->                                 -- _obj-    Mutex ->                                -- mutex-    m ()-condWait _obj mutex = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let mutex' = unsafeManagedPtrGetPtr mutex-    g_cond_wait _obj' mutex'-    touchManagedPtr _obj-    touchManagedPtr mutex-    return ()---- method Cond::wait_until--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_cond_wait_until" g_cond_wait_until :: -    Ptr Cond ->                             -- _obj : TInterface "GLib" "Cond"-    Ptr Mutex ->                            -- mutex : TInterface "GLib" "Mutex"-    Int64 ->                                -- end_time : TBasicType TInt64-    IO CInt---condWaitUntil ::-    (MonadIO m) =>-    Cond ->                                 -- _obj-    Mutex ->                                -- mutex-    Int64 ->                                -- end_time-    m Bool-condWaitUntil _obj mutex end_time = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let mutex' = unsafeManagedPtrGetPtr mutex-    result <- g_cond_wait_until _obj' mutex' end_time-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr mutex-    return result'--
− GI/GLib/Structs/Cond.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Cond where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Cond = Cond (ForeignPtr Cond)
− GI/GLib/Structs/Data.hs 
@@ -1,36 +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 #GData struct is an opaque data structure to represent a-[Keyed Data List][glib-Keyed-Data-Lists]. It should only be-accessed via the following functions.--}--module GI.GLib.Structs.Data-    ( ---- * Exported types-    Data(..)                                ,-    noData                                  ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Data = Data (ForeignPtr Data)-noData :: Maybe Data-noData = Nothing--
− GI/GLib/Structs/Data.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Data where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Data = Data (ForeignPtr Data)
− GI/GLib/Structs/Date.hs 
@@ -1,1218 +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 day between January 1, Year 1 and a few thousand years in-the future. None of its members should be accessed directly.--If the #GDate-struct is obtained from g_date_new(), it will be safe-to mutate but invalid and thus not safe for calendrical computations.--If it's declared on the stack, it will contain garbage so must be-initialized with g_date_clear(). g_date_clear() makes the date invalid-but sane. An invalid date doesn't represent a day, it's "empty." A date-becomes valid after you set it to a Julian day or you set a day, month,-and year.--}--module GI.GLib.Structs.Date-    ( ---- * Exported types-    Date(..)                                ,-    noDate                                  ,--- -- * Methods--- ** dateAddDays-    dateAddDays                             ,----- ** dateAddMonths-    dateAddMonths                           ,----- ** dateAddYears-    dateAddYears                            ,----- ** dateClamp-    dateClamp                               ,----- ** dateClear-    dateClear                               ,----- ** dateCompare-    dateCompare                             ,----- ** dateDaysBetween-    dateDaysBetween                         ,----- ** dateFree-    dateFree                                ,----- ** dateGetDay-    dateGetDay                              ,----- ** dateGetDayOfYear-    dateGetDayOfYear                        ,----- ** dateGetIso8601WeekOfYear-    dateGetIso8601WeekOfYear                ,----- ** dateGetJulian-    dateGetJulian                           ,----- ** dateGetMondayWeekOfYear-    dateGetMondayWeekOfYear                 ,----- ** dateGetMonth-    dateGetMonth                            ,----- ** dateGetSundayWeekOfYear-    dateGetSundayWeekOfYear                 ,----- ** dateGetWeekday-    dateGetWeekday                          ,----- ** dateGetYear-    dateGetYear                             ,----- ** dateIsFirstOfMonth-    dateIsFirstOfMonth                      ,----- ** dateIsLastOfMonth-    dateIsLastOfMonth                       ,----- ** dateNew-    dateNew                                 ,----- ** dateNewDmy-    dateNewDmy                              ,----- ** dateNewJulian-    dateNewJulian                           ,----- ** dateOrder-    dateOrder                               ,----- ** dateSetDay-    dateSetDay                              ,----- ** dateSetDmy-    dateSetDmy                              ,----- ** dateSetJulian-    dateSetJulian                           ,----- ** dateSetMonth-    dateSetMonth                            ,----- ** dateSetParse-    dateSetParse                            ,----- ** dateSetTime-    dateSetTime                             ,----- ** dateSetTimeT-    dateSetTimeT                            ,----- ** dateSetTimeVal-    dateSetTimeVal                          ,----- ** dateSetYear-    dateSetYear                             ,----- ** dateSubtractDays-    dateSubtractDays                        ,----- ** dateSubtractMonths-    dateSubtractMonths                      ,----- ** dateSubtractYears-    dateSubtractYears                       ,----- ** dateToStructTm-    dateToStructTm                          ,----- ** dateValid-    dateValid                               ,----- -- * Properties--- ** Day-    dateReadDay                             ,----- ** Dmy-    dateReadDmy                             ,----- ** Julian-    dateReadJulian                          ,----- ** JulianDays-    dateReadJulianDays                      ,----- ** Month-    dateReadMonth                           ,----- ** Year-    dateReadYear                            ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Date = Date (ForeignPtr Date)-foreign import ccall "g_date_get_type" c_g_date_get_type :: -    IO GType--instance BoxedObject Date where-    boxedType _ = c_g_date_get_type--noDate :: Maybe Date-noDate = Nothing--dateReadJulianDays :: Date -> IO Word32-dateReadJulianDays s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val--dateReadJulian :: Date -> IO Word32-dateReadJulian s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Word32-    return val--dateReadDmy :: Date -> IO Word32-dateReadDmy s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word32-    return val--dateReadDay :: Date -> IO Word32-dateReadDay s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Word32-    return val--dateReadMonth :: Date -> IO Word32-dateReadMonth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Word32-    return val--dateReadYear :: Date -> IO Word32-dateReadYear s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val---- method Date::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "Date"--- throws : False--- Skip return : False--foreign import ccall "g_date_new" g_date_new :: -    IO (Ptr Date)---dateNew ::-    (MonadIO m) =>-    m Date-dateNew  = liftIO $ do-    result <- g_date_new-    checkUnexpectedReturnNULL "g_date_new" result-    result' <- (wrapBoxed Date) result-    return result'---- method Date::new_dmy--- method type : Constructor--- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Date"--- throws : False--- Skip return : False--foreign import ccall "g_date_new_dmy" g_date_new_dmy :: -    Word8 ->                                -- day : TBasicType TUInt8-    CUInt ->                                -- month : TInterface "GLib" "DateMonth"-    Word16 ->                               -- year : TBasicType TUInt16-    IO (Ptr Date)---dateNewDmy ::-    (MonadIO m) =>-    Word8 ->                                -- day-    DateMonth ->                            -- month-    Word16 ->                               -- year-    m Date-dateNewDmy day month year = liftIO $ do-    let month' = (fromIntegral . fromEnum) month-    result <- g_date_new_dmy day month' year-    checkUnexpectedReturnNULL "g_date_new_dmy" result-    result' <- (wrapBoxed Date) result-    return result'---- method Date::new_julian--- method type : Constructor--- Args : [Arg {argName = "julian_day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "julian_day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Date"--- throws : False--- Skip return : False--foreign import ccall "g_date_new_julian" g_date_new_julian :: -    Word32 ->                               -- julian_day : TBasicType TUInt32-    IO (Ptr Date)---dateNewJulian ::-    (MonadIO m) =>-    Word32 ->                               -- julian_day-    m Date-dateNewJulian julian_day = liftIO $ do-    result <- g_date_new_julian julian_day-    checkUnexpectedReturnNULL "g_date_new_julian" result-    result' <- (wrapBoxed Date) result-    return result'---- method Date::add_days--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_add_days" g_date_add_days :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Word32 ->                               -- n_days : TBasicType TUInt32-    IO ()---dateAddDays ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Word32 ->                               -- n_days-    m ()-dateAddDays _obj n_days = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_add_days _obj' n_days-    touchManagedPtr _obj-    return ()---- method Date::add_months--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_add_months" g_date_add_months :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Word32 ->                               -- n_months : TBasicType TUInt32-    IO ()---dateAddMonths ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Word32 ->                               -- n_months-    m ()-dateAddMonths _obj n_months = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_add_months _obj' n_months-    touchManagedPtr _obj-    return ()---- method Date::add_years--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_add_years" g_date_add_years :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Word32 ->                               -- n_years : TBasicType TUInt32-    IO ()---dateAddYears ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Word32 ->                               -- n_years-    m ()-dateAddYears _obj n_years = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_add_years _obj' n_years-    touchManagedPtr _obj-    return ()---- method Date::clamp--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_clamp" g_date_clamp :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Ptr Date ->                             -- min_date : TInterface "GLib" "Date"-    Ptr Date ->                             -- max_date : TInterface "GLib" "Date"-    IO ()---dateClamp ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Date ->                                 -- min_date-    Date ->                                 -- max_date-    m ()-dateClamp _obj min_date max_date = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let min_date' = unsafeManagedPtrGetPtr min_date-    let max_date' = unsafeManagedPtrGetPtr max_date-    g_date_clamp _obj' min_date' max_date'-    touchManagedPtr _obj-    touchManagedPtr min_date-    touchManagedPtr max_date-    return ()---- method Date::clear--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_dates", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_dates", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_clear" g_date_clear :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Word32 ->                               -- n_dates : TBasicType TUInt32-    IO ()---dateClear ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Word32 ->                               -- n_dates-    m ()-dateClear _obj n_dates = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_clear _obj' n_dates-    touchManagedPtr _obj-    return ()---- method Date::compare--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_compare" g_date_compare :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Ptr Date ->                             -- rhs : TInterface "GLib" "Date"-    IO Int32---dateCompare ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Date ->                                 -- rhs-    m Int32-dateCompare _obj rhs = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let rhs' = unsafeManagedPtrGetPtr rhs-    result <- g_date_compare _obj' rhs'-    touchManagedPtr _obj-    touchManagedPtr rhs-    return result---- method Date::days_between--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_days_between" g_date_days_between :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Ptr Date ->                             -- date2 : TInterface "GLib" "Date"-    IO Int32---dateDaysBetween ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Date ->                                 -- date2-    m Int32-dateDaysBetween _obj date2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let date2' = unsafeManagedPtrGetPtr date2-    result <- g_date_days_between _obj' date2'-    touchManagedPtr _obj-    touchManagedPtr date2-    return result---- method Date::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_free" g_date_free :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO ()---dateFree ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m ()-dateFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_free _obj'-    touchManagedPtr _obj-    return ()---- method Date::get_day--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt8--- throws : False--- Skip return : False--foreign import ccall "g_date_get_day" g_date_get_day :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO Word8---dateGetDay ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Word8-dateGetDay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_get_day _obj'-    touchManagedPtr _obj-    return result---- method Date::get_day_of_year--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_get_day_of_year" g_date_get_day_of_year :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO Word32---dateGetDayOfYear ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Word32-dateGetDayOfYear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_get_day_of_year _obj'-    touchManagedPtr _obj-    return result---- method Date::get_iso8601_week_of_year--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_get_iso8601_week_of_year" g_date_get_iso8601_week_of_year :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO Word32---dateGetIso8601WeekOfYear ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Word32-dateGetIso8601WeekOfYear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_get_iso8601_week_of_year _obj'-    touchManagedPtr _obj-    return result---- method Date::get_julian--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_get_julian" g_date_get_julian :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO Word32---dateGetJulian ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Word32-dateGetJulian _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_get_julian _obj'-    touchManagedPtr _obj-    return result---- method Date::get_monday_week_of_year--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_get_monday_week_of_year" g_date_get_monday_week_of_year :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO Word32---dateGetMondayWeekOfYear ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Word32-dateGetMondayWeekOfYear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_get_monday_week_of_year _obj'-    touchManagedPtr _obj-    return result---- method Date::get_month--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateMonth"--- throws : False--- Skip return : False--foreign import ccall "g_date_get_month" g_date_get_month :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO CUInt---dateGetMonth ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m DateMonth-dateGetMonth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_get_month _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Date::get_sunday_week_of_year--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_get_sunday_week_of_year" g_date_get_sunday_week_of_year :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO Word32---dateGetSundayWeekOfYear ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Word32-dateGetSundayWeekOfYear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_get_sunday_week_of_year _obj'-    touchManagedPtr _obj-    return result---- method Date::get_weekday--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateWeekday"--- throws : False--- Skip return : False--foreign import ccall "g_date_get_weekday" g_date_get_weekday :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO CUInt---dateGetWeekday ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m DateWeekday-dateGetWeekday _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_get_weekday _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Date::get_year--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt16--- throws : False--- Skip return : False--foreign import ccall "g_date_get_year" g_date_get_year :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO Word16---dateGetYear ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Word16-dateGetYear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_get_year _obj'-    touchManagedPtr _obj-    return result---- method Date::is_first_of_month--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_is_first_of_month" g_date_is_first_of_month :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO CInt---dateIsFirstOfMonth ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Bool-dateIsFirstOfMonth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_is_first_of_month _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Date::is_last_of_month--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_is_last_of_month" g_date_is_last_of_month :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO CInt---dateIsLastOfMonth ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Bool-dateIsLastOfMonth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_is_last_of_month _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Date::order--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_order" g_date_order :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Ptr Date ->                             -- date2 : TInterface "GLib" "Date"-    IO ()---dateOrder ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Date ->                                 -- date2-    m ()-dateOrder _obj date2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let date2' = unsafeManagedPtrGetPtr date2-    g_date_order _obj' date2'-    touchManagedPtr _obj-    touchManagedPtr date2-    return ()---- method Date::set_day--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_set_day" g_date_set_day :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Word8 ->                                -- day : TBasicType TUInt8-    IO ()---dateSetDay ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Word8 ->                                -- day-    m ()-dateSetDay _obj day = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_set_day _obj' day-    touchManagedPtr _obj-    return ()---- method Date::set_dmy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_set_dmy" g_date_set_dmy :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Word8 ->                                -- day : TBasicType TUInt8-    CUInt ->                                -- month : TInterface "GLib" "DateMonth"-    Word16 ->                               -- y : TBasicType TUInt16-    IO ()---dateSetDmy ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Word8 ->                                -- day-    DateMonth ->                            -- month-    Word16 ->                               -- y-    m ()-dateSetDmy _obj day month y = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let month' = (fromIntegral . fromEnum) month-    g_date_set_dmy _obj' day month' y-    touchManagedPtr _obj-    return ()---- method Date::set_julian--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_set_julian" g_date_set_julian :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Word32 ->                               -- julian_date : TBasicType TUInt32-    IO ()---dateSetJulian ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Word32 ->                               -- julian_date-    m ()-dateSetJulian _obj julian_date = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_set_julian _obj' julian_date-    touchManagedPtr _obj-    return ()---- method Date::set_month--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_set_month" g_date_set_month :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    CUInt ->                                -- month : TInterface "GLib" "DateMonth"-    IO ()---dateSetMonth ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    DateMonth ->                            -- month-    m ()-dateSetMonth _obj month = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let month' = (fromIntegral . fromEnum) month-    g_date_set_month _obj' month'-    touchManagedPtr _obj-    return ()---- method Date::set_parse--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_set_parse" g_date_set_parse :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    CString ->                              -- str : TBasicType TUTF8-    IO ()---dateSetParse ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    T.Text ->                               -- str-    m ()-dateSetParse _obj str = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    str' <- textToCString str-    g_date_set_parse _obj' str'-    touchManagedPtr _obj-    freeMem str'-    return ()---- method Date::set_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_set_time" g_date_set_time :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Int32 ->                                -- time_ : TBasicType TInt32-    IO ()--{-# DEPRECATED dateSetTime ["(Since version 2.10)","Use g_date_set_time_t() instead."]#-}-dateSetTime ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Int32 ->                                -- time_-    m ()-dateSetTime _obj time_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_set_time _obj' time_-    touchManagedPtr _obj-    return ()---- method Date::set_time_t--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timet", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timet", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_set_time_t" g_date_set_time_t :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Int64 ->                                -- timet : TBasicType TInt64-    IO ()---dateSetTimeT ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Int64 ->                                -- timet-    m ()-dateSetTimeT _obj timet = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_set_time_t _obj' timet-    touchManagedPtr _obj-    return ()---- method Date::set_time_val--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_set_time_val" g_date_set_time_val :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Ptr TimeVal ->                          -- timeval : TInterface "GLib" "TimeVal"-    IO ()---dateSetTimeVal ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    TimeVal ->                              -- timeval-    m ()-dateSetTimeVal _obj timeval = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let timeval' = unsafeManagedPtrGetPtr timeval-    g_date_set_time_val _obj' timeval'-    touchManagedPtr _obj-    touchManagedPtr timeval-    return ()---- method Date::set_year--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_set_year" g_date_set_year :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Word16 ->                               -- year : TBasicType TUInt16-    IO ()---dateSetYear ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Word16 ->                               -- year-    m ()-dateSetYear _obj year = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_set_year _obj' year-    touchManagedPtr _obj-    return ()---- method Date::subtract_days--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_subtract_days" g_date_subtract_days :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Word32 ->                               -- n_days : TBasicType TUInt32-    IO ()---dateSubtractDays ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Word32 ->                               -- n_days-    m ()-dateSubtractDays _obj n_days = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_subtract_days _obj' n_days-    touchManagedPtr _obj-    return ()---- method Date::subtract_months--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_subtract_months" g_date_subtract_months :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Word32 ->                               -- n_months : TBasicType TUInt32-    IO ()---dateSubtractMonths ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Word32 ->                               -- n_months-    m ()-dateSubtractMonths _obj n_months = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_subtract_months _obj' n_months-    touchManagedPtr _obj-    return ()---- method Date::subtract_years--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_subtract_years" g_date_subtract_years :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Word32 ->                               -- n_years : TBasicType TUInt32-    IO ()---dateSubtractYears ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Word32 ->                               -- n_years-    m ()-dateSubtractYears _obj n_years = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_subtract_years _obj' n_years-    touchManagedPtr _obj-    return ()---- method Date::to_struct_tm--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tm", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tm", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_to_struct_tm" g_date_to_struct_tm :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    Ptr () ->                               -- tm : TBasicType TVoid-    IO ()---dateToStructTm ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    Ptr () ->                               -- tm-    m ()-dateToStructTm _obj tm = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_to_struct_tm _obj' tm-    touchManagedPtr _obj-    return ()---- method Date::valid--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_valid" g_date_valid :: -    Ptr Date ->                             -- _obj : TInterface "GLib" "Date"-    IO CInt---dateValid ::-    (MonadIO m) =>-    Date ->                                 -- _obj-    m Bool-dateValid _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_valid _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--
− GI/GLib/Structs/Date.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.Date where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Date = Date (ForeignPtr Date)-instance BoxedObject Date where
− GI/GLib/Structs/DateTime.hs 
@@ -1,1407 +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)--`GDateTime` is an opaque structure whose members-cannot be accessed directly.--}--module GI.GLib.Structs.DateTime-    ( ---- * Exported types-    DateTime(..)                            ,-    noDateTime                              ,--- -- * Methods--- ** dateTimeAdd-    dateTimeAdd                             ,----- ** dateTimeAddDays-    dateTimeAddDays                         ,----- ** dateTimeAddFull-    dateTimeAddFull                         ,----- ** dateTimeAddHours-    dateTimeAddHours                        ,----- ** dateTimeAddMinutes-    dateTimeAddMinutes                      ,----- ** dateTimeAddMonths-    dateTimeAddMonths                       ,----- ** dateTimeAddSeconds-    dateTimeAddSeconds                      ,----- ** dateTimeAddWeeks-    dateTimeAddWeeks                        ,----- ** dateTimeAddYears-    dateTimeAddYears                        ,----- ** dateTimeDifference-    dateTimeDifference                      ,----- ** dateTimeFormat-    dateTimeFormat                          ,----- ** dateTimeGetDayOfMonth-    dateTimeGetDayOfMonth                   ,----- ** dateTimeGetDayOfWeek-    dateTimeGetDayOfWeek                    ,----- ** dateTimeGetDayOfYear-    dateTimeGetDayOfYear                    ,----- ** dateTimeGetHour-    dateTimeGetHour                         ,----- ** dateTimeGetMicrosecond-    dateTimeGetMicrosecond                  ,----- ** dateTimeGetMinute-    dateTimeGetMinute                       ,----- ** dateTimeGetMonth-    dateTimeGetMonth                        ,----- ** dateTimeGetSecond-    dateTimeGetSecond                       ,----- ** dateTimeGetSeconds-    dateTimeGetSeconds                      ,----- ** dateTimeGetTimezoneAbbreviation-    dateTimeGetTimezoneAbbreviation         ,----- ** dateTimeGetUtcOffset-    dateTimeGetUtcOffset                    ,----- ** dateTimeGetWeekNumberingYear-    dateTimeGetWeekNumberingYear            ,----- ** dateTimeGetWeekOfYear-    dateTimeGetWeekOfYear                   ,----- ** dateTimeGetYear-    dateTimeGetYear                         ,----- ** dateTimeGetYmd-    dateTimeGetYmd                          ,----- ** dateTimeIsDaylightSavings-    dateTimeIsDaylightSavings               ,----- ** dateTimeNew-    dateTimeNew                             ,----- ** dateTimeNewFromTimevalLocal-    dateTimeNewFromTimevalLocal             ,----- ** dateTimeNewFromTimevalUtc-    dateTimeNewFromTimevalUtc               ,----- ** dateTimeNewFromUnixLocal-    dateTimeNewFromUnixLocal                ,----- ** dateTimeNewFromUnixUtc-    dateTimeNewFromUnixUtc                  ,----- ** dateTimeNewLocal-    dateTimeNewLocal                        ,----- ** dateTimeNewNow-    dateTimeNewNow                          ,----- ** dateTimeNewNowLocal-    dateTimeNewNowLocal                     ,----- ** dateTimeNewNowUtc-    dateTimeNewNowUtc                       ,----- ** dateTimeNewUtc-    dateTimeNewUtc                          ,----- ** dateTimeRef-    dateTimeRef                             ,----- ** dateTimeToLocal-    dateTimeToLocal                         ,----- ** dateTimeToTimeval-    dateTimeToTimeval                       ,----- ** dateTimeToTimezone-    dateTimeToTimezone                      ,----- ** dateTimeToUnix-    dateTimeToUnix                          ,----- ** dateTimeToUtc-    dateTimeToUtc                           ,----- ** dateTimeUnref-    dateTimeUnref                           ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype DateTime = DateTime (ForeignPtr DateTime)-foreign import ccall "g_date_time_get_type" c_g_date_time_get_type :: -    IO GType--instance BoxedObject DateTime where-    boxedType _ = c_g_date_time_get_type--noDateTime :: Maybe DateTime-noDateTime = Nothing---- method DateTime::new--- method type : Constructor--- Args : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_new" g_date_time_new :: -    Ptr TimeZone ->                         -- tz : TInterface "GLib" "TimeZone"-    Int32 ->                                -- year : TBasicType TInt32-    Int32 ->                                -- month : TBasicType TInt32-    Int32 ->                                -- day : TBasicType TInt32-    Int32 ->                                -- hour : TBasicType TInt32-    Int32 ->                                -- minute : TBasicType TInt32-    CDouble ->                              -- seconds : TBasicType TDouble-    IO (Ptr DateTime)---dateTimeNew ::-    (MonadIO m) =>-    TimeZone ->                             -- tz-    Int32 ->                                -- year-    Int32 ->                                -- month-    Int32 ->                                -- day-    Int32 ->                                -- hour-    Int32 ->                                -- minute-    Double ->                               -- seconds-    m DateTime-dateTimeNew tz year month day hour minute seconds = liftIO $ do-    let tz' = unsafeManagedPtrGetPtr tz-    let seconds' = realToFrac seconds-    result <- g_date_time_new tz' year month day hour minute seconds'-    checkUnexpectedReturnNULL "g_date_time_new" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr tz-    return result'---- method DateTime::new_from_timeval_local--- method type : Constructor--- Args : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_new_from_timeval_local" g_date_time_new_from_timeval_local :: -    Ptr TimeVal ->                          -- tv : TInterface "GLib" "TimeVal"-    IO (Ptr DateTime)---dateTimeNewFromTimevalLocal ::-    (MonadIO m) =>-    TimeVal ->                              -- tv-    m DateTime-dateTimeNewFromTimevalLocal tv = liftIO $ do-    let tv' = unsafeManagedPtrGetPtr tv-    result <- g_date_time_new_from_timeval_local tv'-    checkUnexpectedReturnNULL "g_date_time_new_from_timeval_local" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr tv-    return result'---- method DateTime::new_from_timeval_utc--- method type : Constructor--- Args : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_new_from_timeval_utc" g_date_time_new_from_timeval_utc :: -    Ptr TimeVal ->                          -- tv : TInterface "GLib" "TimeVal"-    IO (Ptr DateTime)---dateTimeNewFromTimevalUtc ::-    (MonadIO m) =>-    TimeVal ->                              -- tv-    m DateTime-dateTimeNewFromTimevalUtc tv = liftIO $ do-    let tv' = unsafeManagedPtrGetPtr tv-    result <- g_date_time_new_from_timeval_utc tv'-    checkUnexpectedReturnNULL "g_date_time_new_from_timeval_utc" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr tv-    return result'---- method DateTime::new_from_unix_local--- method type : Constructor--- Args : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_new_from_unix_local" g_date_time_new_from_unix_local :: -    Int64 ->                                -- t : TBasicType TInt64-    IO (Ptr DateTime)---dateTimeNewFromUnixLocal ::-    (MonadIO m) =>-    Int64 ->                                -- t-    m DateTime-dateTimeNewFromUnixLocal t = liftIO $ do-    result <- g_date_time_new_from_unix_local t-    checkUnexpectedReturnNULL "g_date_time_new_from_unix_local" result-    result' <- (wrapBoxed DateTime) result-    return result'---- method DateTime::new_from_unix_utc--- method type : Constructor--- Args : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_new_from_unix_utc" g_date_time_new_from_unix_utc :: -    Int64 ->                                -- t : TBasicType TInt64-    IO (Ptr DateTime)---dateTimeNewFromUnixUtc ::-    (MonadIO m) =>-    Int64 ->                                -- t-    m DateTime-dateTimeNewFromUnixUtc t = liftIO $ do-    result <- g_date_time_new_from_unix_utc t-    checkUnexpectedReturnNULL "g_date_time_new_from_unix_utc" result-    result' <- (wrapBoxed DateTime) result-    return result'---- method DateTime::new_local--- method type : Constructor--- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_new_local" g_date_time_new_local :: -    Int32 ->                                -- year : TBasicType TInt32-    Int32 ->                                -- month : TBasicType TInt32-    Int32 ->                                -- day : TBasicType TInt32-    Int32 ->                                -- hour : TBasicType TInt32-    Int32 ->                                -- minute : TBasicType TInt32-    CDouble ->                              -- seconds : TBasicType TDouble-    IO (Ptr DateTime)---dateTimeNewLocal ::-    (MonadIO m) =>-    Int32 ->                                -- year-    Int32 ->                                -- month-    Int32 ->                                -- day-    Int32 ->                                -- hour-    Int32 ->                                -- minute-    Double ->                               -- seconds-    m DateTime-dateTimeNewLocal year month day hour minute seconds = liftIO $ do-    let seconds' = realToFrac seconds-    result <- g_date_time_new_local year month day hour minute seconds'-    checkUnexpectedReturnNULL "g_date_time_new_local" result-    result' <- (wrapBoxed DateTime) result-    return result'---- method DateTime::new_now--- method type : Constructor--- Args : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_new_now" g_date_time_new_now :: -    Ptr TimeZone ->                         -- tz : TInterface "GLib" "TimeZone"-    IO (Ptr DateTime)---dateTimeNewNow ::-    (MonadIO m) =>-    TimeZone ->                             -- tz-    m DateTime-dateTimeNewNow tz = liftIO $ do-    let tz' = unsafeManagedPtrGetPtr tz-    result <- g_date_time_new_now tz'-    checkUnexpectedReturnNULL "g_date_time_new_now" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr tz-    return result'---- method DateTime::new_now_local--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_new_now_local" g_date_time_new_now_local :: -    IO (Ptr DateTime)---dateTimeNewNowLocal ::-    (MonadIO m) =>-    m DateTime-dateTimeNewNowLocal  = liftIO $ do-    result <- g_date_time_new_now_local-    checkUnexpectedReturnNULL "g_date_time_new_now_local" result-    result' <- (wrapBoxed DateTime) result-    return result'---- method DateTime::new_now_utc--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_new_now_utc" g_date_time_new_now_utc :: -    IO (Ptr DateTime)---dateTimeNewNowUtc ::-    (MonadIO m) =>-    m DateTime-dateTimeNewNowUtc  = liftIO $ do-    result <- g_date_time_new_now_utc-    checkUnexpectedReturnNULL "g_date_time_new_now_utc" result-    result' <- (wrapBoxed DateTime) result-    return result'---- method DateTime::new_utc--- method type : Constructor--- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_new_utc" g_date_time_new_utc :: -    Int32 ->                                -- year : TBasicType TInt32-    Int32 ->                                -- month : TBasicType TInt32-    Int32 ->                                -- day : TBasicType TInt32-    Int32 ->                                -- hour : TBasicType TInt32-    Int32 ->                                -- minute : TBasicType TInt32-    CDouble ->                              -- seconds : TBasicType TDouble-    IO (Ptr DateTime)---dateTimeNewUtc ::-    (MonadIO m) =>-    Int32 ->                                -- year-    Int32 ->                                -- month-    Int32 ->                                -- day-    Int32 ->                                -- hour-    Int32 ->                                -- minute-    Double ->                               -- seconds-    m DateTime-dateTimeNewUtc year month day hour minute seconds = liftIO $ do-    let seconds' = realToFrac seconds-    result <- g_date_time_new_utc year month day hour minute seconds'-    checkUnexpectedReturnNULL "g_date_time_new_utc" result-    result' <- (wrapBoxed DateTime) result-    return result'---- method DateTime::add--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timespan", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timespan", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_add" g_date_time_add :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Int64 ->                                -- timespan : TBasicType TInt64-    IO (Ptr DateTime)---dateTimeAdd ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    Int64 ->                                -- timespan-    m DateTime-dateTimeAdd _obj timespan = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_add _obj' timespan-    checkUnexpectedReturnNULL "g_date_time_add" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::add_days--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_add_days" g_date_time_add_days :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Int32 ->                                -- days : TBasicType TInt32-    IO (Ptr DateTime)---dateTimeAddDays ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    Int32 ->                                -- days-    m DateTime-dateTimeAddDays _obj days = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_add_days _obj' days-    checkUnexpectedReturnNULL "g_date_time_add_days" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::add_full--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_add_full" g_date_time_add_full :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Int32 ->                                -- years : TBasicType TInt32-    Int32 ->                                -- months : TBasicType TInt32-    Int32 ->                                -- days : TBasicType TInt32-    Int32 ->                                -- hours : TBasicType TInt32-    Int32 ->                                -- minutes : TBasicType TInt32-    CDouble ->                              -- seconds : TBasicType TDouble-    IO (Ptr DateTime)---dateTimeAddFull ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    Int32 ->                                -- years-    Int32 ->                                -- months-    Int32 ->                                -- days-    Int32 ->                                -- hours-    Int32 ->                                -- minutes-    Double ->                               -- seconds-    m DateTime-dateTimeAddFull _obj years months days hours minutes seconds = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let seconds' = realToFrac seconds-    result <- g_date_time_add_full _obj' years months days hours minutes seconds'-    checkUnexpectedReturnNULL "g_date_time_add_full" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::add_hours--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_add_hours" g_date_time_add_hours :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Int32 ->                                -- hours : TBasicType TInt32-    IO (Ptr DateTime)---dateTimeAddHours ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    Int32 ->                                -- hours-    m DateTime-dateTimeAddHours _obj hours = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_add_hours _obj' hours-    checkUnexpectedReturnNULL "g_date_time_add_hours" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::add_minutes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_add_minutes" g_date_time_add_minutes :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Int32 ->                                -- minutes : TBasicType TInt32-    IO (Ptr DateTime)---dateTimeAddMinutes ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    Int32 ->                                -- minutes-    m DateTime-dateTimeAddMinutes _obj minutes = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_add_minutes _obj' minutes-    checkUnexpectedReturnNULL "g_date_time_add_minutes" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::add_months--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_add_months" g_date_time_add_months :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Int32 ->                                -- months : TBasicType TInt32-    IO (Ptr DateTime)---dateTimeAddMonths ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    Int32 ->                                -- months-    m DateTime-dateTimeAddMonths _obj months = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_add_months _obj' months-    checkUnexpectedReturnNULL "g_date_time_add_months" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::add_seconds--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_add_seconds" g_date_time_add_seconds :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    CDouble ->                              -- seconds : TBasicType TDouble-    IO (Ptr DateTime)---dateTimeAddSeconds ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    Double ->                               -- seconds-    m DateTime-dateTimeAddSeconds _obj seconds = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let seconds' = realToFrac seconds-    result <- g_date_time_add_seconds _obj' seconds'-    checkUnexpectedReturnNULL "g_date_time_add_seconds" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::add_weeks--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weeks", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weeks", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_add_weeks" g_date_time_add_weeks :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Int32 ->                                -- weeks : TBasicType TInt32-    IO (Ptr DateTime)---dateTimeAddWeeks ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    Int32 ->                                -- weeks-    m DateTime-dateTimeAddWeeks _obj weeks = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_add_weeks _obj' weeks-    checkUnexpectedReturnNULL "g_date_time_add_weeks" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::add_years--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_add_years" g_date_time_add_years :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Int32 ->                                -- years : TBasicType TInt32-    IO (Ptr DateTime)---dateTimeAddYears ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    Int32 ->                                -- years-    m DateTime-dateTimeAddYears _obj years = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_add_years _obj' years-    checkUnexpectedReturnNULL "g_date_time_add_years" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::difference--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_date_time_difference" g_date_time_difference :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Ptr DateTime ->                         -- begin : TInterface "GLib" "DateTime"-    IO Int64---dateTimeDifference ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    DateTime ->                             -- begin-    m Int64-dateTimeDifference _obj begin = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let begin' = unsafeManagedPtrGetPtr begin-    result <- g_date_time_difference _obj' begin'-    touchManagedPtr _obj-    touchManagedPtr begin-    return result---- method DateTime::format--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_date_time_format" g_date_time_format :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    CString ->                              -- format : TBasicType TUTF8-    IO CString---dateTimeFormat ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    T.Text ->                               -- format-    m T.Text-dateTimeFormat _obj format = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    format' <- textToCString format-    result <- g_date_time_format _obj' format'-    checkUnexpectedReturnNULL "g_date_time_format" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem format'-    return result'---- method DateTime::get_day_of_month--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_day_of_month" g_date_time_get_day_of_month :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int32---dateTimeGetDayOfMonth ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int32-dateTimeGetDayOfMonth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_day_of_month _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_day_of_week--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_day_of_week" g_date_time_get_day_of_week :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int32---dateTimeGetDayOfWeek ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int32-dateTimeGetDayOfWeek _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_day_of_week _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_day_of_year--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_day_of_year" g_date_time_get_day_of_year :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int32---dateTimeGetDayOfYear ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int32-dateTimeGetDayOfYear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_day_of_year _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_hour--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_hour" g_date_time_get_hour :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int32---dateTimeGetHour ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int32-dateTimeGetHour _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_hour _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_microsecond--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_microsecond" g_date_time_get_microsecond :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int32---dateTimeGetMicrosecond ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int32-dateTimeGetMicrosecond _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_microsecond _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_minute--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_minute" g_date_time_get_minute :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int32---dateTimeGetMinute ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int32-dateTimeGetMinute _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_minute _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_month--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_month" g_date_time_get_month :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int32---dateTimeGetMonth ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int32-dateTimeGetMonth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_month _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_second--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_second" g_date_time_get_second :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int32---dateTimeGetSecond ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int32-dateTimeGetSecond _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_second _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_seconds--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_seconds" g_date_time_get_seconds :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO CDouble---dateTimeGetSeconds ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Double-dateTimeGetSeconds _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_seconds _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- method DateTime::get_timezone_abbreviation--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_timezone_abbreviation" g_date_time_get_timezone_abbreviation :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO CString---dateTimeGetTimezoneAbbreviation ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m T.Text-dateTimeGetTimezoneAbbreviation _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_timezone_abbreviation _obj'-    checkUnexpectedReturnNULL "g_date_time_get_timezone_abbreviation" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method DateTime::get_utc_offset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_utc_offset" g_date_time_get_utc_offset :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int64---dateTimeGetUtcOffset ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int64-dateTimeGetUtcOffset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_utc_offset _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_week_numbering_year--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_week_numbering_year" g_date_time_get_week_numbering_year :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int32---dateTimeGetWeekNumberingYear ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int32-dateTimeGetWeekNumberingYear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_week_numbering_year _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_week_of_year--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_week_of_year" g_date_time_get_week_of_year :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int32---dateTimeGetWeekOfYear ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int32-dateTimeGetWeekOfYear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_week_of_year _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_year--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_year" g_date_time_get_year :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int32---dateTimeGetYear ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int32-dateTimeGetYear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_get_year _obj'-    touchManagedPtr _obj-    return result---- method DateTime::get_ymd--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_time_get_ymd" g_date_time_get_ymd :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Ptr Int32 ->                            -- year : TBasicType TInt32-    Ptr Int32 ->                            -- month : TBasicType TInt32-    Ptr Int32 ->                            -- day : TBasicType TInt32-    IO ()---dateTimeGetYmd ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m (Int32,Int32,Int32)-dateTimeGetYmd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    year <- allocMem :: IO (Ptr Int32)-    month <- allocMem :: IO (Ptr Int32)-    day <- allocMem :: IO (Ptr Int32)-    g_date_time_get_ymd _obj' year month day-    year' <- peek year-    month' <- peek month-    day' <- peek day-    touchManagedPtr _obj-    freeMem year-    freeMem month-    freeMem day-    return (year', month', day')---- method DateTime::is_daylight_savings--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_time_is_daylight_savings" g_date_time_is_daylight_savings :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO CInt---dateTimeIsDaylightSavings ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Bool-dateTimeIsDaylightSavings _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_is_daylight_savings _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method DateTime::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_ref" g_date_time_ref :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO (Ptr DateTime)---dateTimeRef ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m DateTime-dateTimeRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_ref _obj'-    checkUnexpectedReturnNULL "g_date_time_ref" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::to_local--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_to_local" g_date_time_to_local :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO (Ptr DateTime)---dateTimeToLocal ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m DateTime-dateTimeToLocal _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_to_local _obj'-    checkUnexpectedReturnNULL "g_date_time_to_local" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::to_timeval--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_date_time_to_timeval" g_date_time_to_timeval :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Ptr TimeVal ->                          -- tv : TInterface "GLib" "TimeVal"-    IO CInt---dateTimeToTimeval ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    TimeVal ->                              -- tv-    m Bool-dateTimeToTimeval _obj tv = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let tv' = unsafeManagedPtrGetPtr tv-    result <- g_date_time_to_timeval _obj' tv'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr tv-    return result'---- method DateTime::to_timezone--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_to_timezone" g_date_time_to_timezone :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    Ptr TimeZone ->                         -- tz : TInterface "GLib" "TimeZone"-    IO (Ptr DateTime)---dateTimeToTimezone ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    TimeZone ->                             -- tz-    m DateTime-dateTimeToTimezone _obj tz = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let tz' = unsafeManagedPtrGetPtr tz-    result <- g_date_time_to_timezone _obj' tz'-    checkUnexpectedReturnNULL "g_date_time_to_timezone" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    touchManagedPtr tz-    return result'---- method DateTime::to_unix--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_date_time_to_unix" g_date_time_to_unix :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO Int64---dateTimeToUnix ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m Int64-dateTimeToUnix _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_to_unix _obj'-    touchManagedPtr _obj-    return result---- method DateTime::to_utc--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "DateTime"--- throws : False--- Skip return : False--foreign import ccall "g_date_time_to_utc" g_date_time_to_utc :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO (Ptr DateTime)---dateTimeToUtc ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m DateTime-dateTimeToUtc _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_date_time_to_utc _obj'-    checkUnexpectedReturnNULL "g_date_time_to_utc" result-    result' <- (wrapBoxed DateTime) result-    touchManagedPtr _obj-    return result'---- method DateTime::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_date_time_unref" g_date_time_unref :: -    Ptr DateTime ->                         -- _obj : TInterface "GLib" "DateTime"-    IO ()---dateTimeUnref ::-    (MonadIO m) =>-    DateTime ->                             -- _obj-    m ()-dateTimeUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_date_time_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/DateTime.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.DateTime where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DateTime = DateTime (ForeignPtr DateTime)-instance BoxedObject DateTime where
− GI/GLib/Structs/DebugKey.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)--Associates a string with a bit flag.-Used in g_parse_debug_string().--}--module GI.GLib.Structs.DebugKey-    ( ---- * Exported types-    DebugKey(..)                            ,-    noDebugKey                              ,--- -- * Properties--- ** Key-    debugKeyReadKey                         ,----- ** Value-    debugKeyReadValue                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype DebugKey = DebugKey (ForeignPtr DebugKey)-noDebugKey :: Maybe DebugKey-noDebugKey = Nothing--debugKeyReadKey :: DebugKey -> IO T.Text-debugKeyReadKey s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--debugKeyReadValue :: DebugKey -> IO Word32-debugKeyReadValue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word32-    return val--
− GI/GLib/Structs/DebugKey.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.DebugKey where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DebugKey = DebugKey (ForeignPtr DebugKey)
− GI/GLib/Structs/Dir.hs 
@@ -1,123 +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 opaque structure representing an opened directory.--}--module GI.GLib.Structs.Dir-    ( ---- * Exported types-    Dir(..)                                 ,-    noDir                                   ,--- -- * Methods--- ** dirClose-    dirClose                                ,----- ** dirReadName-    dirReadName                             ,----- ** dirRewind-    dirRewind                               ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Dir = Dir (ForeignPtr Dir)-noDir :: Maybe Dir-noDir = Nothing---- method Dir::close--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_dir_close" g_dir_close :: -    Ptr Dir ->                              -- _obj : TInterface "GLib" "Dir"-    IO ()---dirClose ::-    (MonadIO m) =>-    Dir ->                                  -- _obj-    m ()-dirClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_dir_close _obj'-    touchManagedPtr _obj-    return ()---- method Dir::read_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_dir_read_name" g_dir_read_name :: -    Ptr Dir ->                              -- _obj : TInterface "GLib" "Dir"-    IO CString---dirReadName ::-    (MonadIO m) =>-    Dir ->                                  -- _obj-    m T.Text-dirReadName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_dir_read_name _obj'-    checkUnexpectedReturnNULL "g_dir_read_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Dir::rewind--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_dir_rewind" g_dir_rewind :: -    Ptr Dir ->                              -- _obj : TInterface "GLib" "Dir"-    IO ()---dirRewind ::-    (MonadIO m) =>-    Dir ->                                  -- _obj-    m ()-dirRewind _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_dir_rewind _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/Dir.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Dir where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Dir = Dir (ForeignPtr Dir)
− GI/GLib/Structs/HashTableIter.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)--A GHashTableIter structure represents an iterator that can be used-to iterate over the elements of a #GHashTable. GHashTableIter-structures are typically allocated on the stack and then initialized-with g_hash_table_iter_init().--}--module GI.GLib.Structs.HashTableIter-    ( ---- * Exported types-    HashTableIter(..)                       ,-    noHashTableIter                         ,--- -- * Methods--- ** hashTableIterInit-    hashTableIterInit                       ,----- ** hashTableIterNext-    hashTableIterNext                       ,----- ** hashTableIterRemove-    hashTableIterRemove                     ,----- ** hashTableIterReplace-    hashTableIterReplace                    ,----- ** hashTableIterSteal-    hashTableIterSteal                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype HashTableIter = HashTableIter (ForeignPtr HashTableIter)-noHashTableIter :: Maybe HashTableIter-noHashTableIter = Nothing---- method HashTableIter::init--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_iter_init" g_hash_table_iter_init :: -    Ptr HashTableIter ->                    -- _obj : TInterface "GLib" "HashTableIter"-    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid)-    IO ()---hashTableIterInit ::-    (MonadIO m) =>-    HashTableIter ->                        -- _obj-    Map.Map (Ptr ()) (Ptr ()) ->            -- hash_table-    m ()-hashTableIterInit _obj hash_table = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let hash_table' = Map.toList hash_table-    let hash_table'' = mapFirst ptrPackPtr hash_table'-    let hash_table''' = mapSecond ptrPackPtr hash_table''-    hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table'''-    g_hash_table_iter_init _obj' hash_table''''-    touchManagedPtr _obj-    unrefGHashTable hash_table''''-    return ()---- method HashTableIter::next--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_iter_next" g_hash_table_iter_next :: -    Ptr HashTableIter ->                    -- _obj : TInterface "GLib" "HashTableIter"-    Ptr () ->                               -- key : TBasicType TVoid-    Ptr () ->                               -- value : TBasicType TVoid-    IO CInt---hashTableIterNext ::-    (MonadIO m) =>-    HashTableIter ->                        -- _obj-    Maybe (Ptr ()) ->                       -- key-    Maybe (Ptr ()) ->                       -- value-    m Bool-hashTableIterNext _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeKey <- case key of-        Nothing -> return nullPtr-        Just jKey -> do-            return jKey-    maybeValue <- case value of-        Nothing -> return nullPtr-        Just jValue -> do-            return jValue-    result <- g_hash_table_iter_next _obj' maybeKey maybeValue-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method HashTableIter::remove--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_iter_remove" g_hash_table_iter_remove :: -    Ptr HashTableIter ->                    -- _obj : TInterface "GLib" "HashTableIter"-    IO ()---hashTableIterRemove ::-    (MonadIO m) =>-    HashTableIter ->                        -- _obj-    m ()-hashTableIterRemove _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_hash_table_iter_remove _obj'-    touchManagedPtr _obj-    return ()---- method HashTableIter::replace--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_iter_replace" g_hash_table_iter_replace :: -    Ptr HashTableIter ->                    -- _obj : TInterface "GLib" "HashTableIter"-    Ptr () ->                               -- value : TBasicType TVoid-    IO ()---hashTableIterReplace ::-    (MonadIO m) =>-    HashTableIter ->                        -- _obj-    Ptr () ->                               -- value-    m ()-hashTableIterReplace _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_hash_table_iter_replace _obj' value-    touchManagedPtr _obj-    return ()---- method HashTableIter::steal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hash_table_iter_steal" g_hash_table_iter_steal :: -    Ptr HashTableIter ->                    -- _obj : TInterface "GLib" "HashTableIter"-    IO ()---hashTableIterSteal ::-    (MonadIO m) =>-    HashTableIter ->                        -- _obj-    m ()-hashTableIterSteal _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_hash_table_iter_steal _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/HashTableIter.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.HashTableIter where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype HashTableIter = HashTableIter (ForeignPtr HashTableIter)
− GI/GLib/Structs/Hmac.hs 
@@ -1,163 +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 opaque structure representing a HMAC operation.-To create a new GHmac, use g_hmac_new(). To free-a GHmac, use g_hmac_unref().--}--module GI.GLib.Structs.Hmac-    ( ---- * Exported types-    Hmac(..)                                ,-    noHmac                                  ,--- -- * Methods--- ** hmacGetDigest-    hmacGetDigest                           ,----- ** hmacGetString-    hmacGetString                           ,----- ** hmacUnref-    hmacUnref                               ,----- ** hmacUpdate-    hmacUpdate                              ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Hmac = Hmac (ForeignPtr Hmac)-noHmac :: Maybe Hmac-noHmac = Nothing---- method Hmac::get_digest--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digest_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digest_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hmac_get_digest" g_hmac_get_digest :: -    Ptr Hmac ->                             -- _obj : TInterface "GLib" "Hmac"-    Word8 ->                                -- buffer : TBasicType TUInt8-    Word64 ->                               -- digest_len : TBasicType TUInt64-    IO ()---hmacGetDigest ::-    (MonadIO m) =>-    Hmac ->                                 -- _obj-    Word8 ->                                -- buffer-    Word64 ->                               -- digest_len-    m ()-hmacGetDigest _obj buffer digest_len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_hmac_get_digest _obj' buffer digest_len-    touchManagedPtr _obj-    return ()---- method Hmac::get_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_hmac_get_string" g_hmac_get_string :: -    Ptr Hmac ->                             -- _obj : TInterface "GLib" "Hmac"-    IO CString---hmacGetString ::-    (MonadIO m) =>-    Hmac ->                                 -- _obj-    m T.Text-hmacGetString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_hmac_get_string _obj'-    checkUnexpectedReturnNULL "g_hmac_get_string" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Hmac::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hmac_unref" g_hmac_unref :: -    Ptr Hmac ->                             -- _obj : TInterface "GLib" "Hmac"-    IO ()---hmacUnref ::-    (MonadIO m) =>-    Hmac ->                                 -- _obj-    m ()-hmacUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_hmac_unref _obj'-    touchManagedPtr _obj-    return ()---- method Hmac::update--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hmac_update" g_hmac_update :: -    Ptr Hmac ->                             -- _obj : TInterface "GLib" "Hmac"-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Int64 ->                                -- length : TBasicType TInt64-    IO ()---hmacUpdate ::-    (MonadIO m) =>-    Hmac ->                                 -- _obj-    ByteString ->                           -- data-    m ()-hmacUpdate _obj data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    let _obj' = unsafeManagedPtrGetPtr _obj-    data_' <- packByteString data_-    g_hmac_update _obj' data_' length_-    touchManagedPtr _obj-    freeMem data_'-    return ()--
− GI/GLib/Structs/Hmac.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Hmac where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Hmac = Hmac (ForeignPtr Hmac)
− GI/GLib/Structs/Hook.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)--The #GHook struct represents a single hook function in a #GHookList.--}--module GI.GLib.Structs.Hook-    ( ---- * Exported types-    Hook(..)                                ,-    noHook                                  ,--- -- * Methods--- ** hookCompareIds-    hookCompareIds                          ,----- -- * Properties--- ** Data-    hookReadData                            ,----- ** Flags-    hookReadFlags                           ,----- ** Func-    hookReadFunc                            ,----- ** HookId-    hookReadHookId                          ,----- ** Next-    hookReadNext                            ,----- ** Prev-    hookReadPrev                            ,----- ** RefCount-    hookReadRefCount                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Hook = Hook (ForeignPtr Hook)-noHook :: Maybe Hook-noHook = Nothing--hookReadData :: Hook -> IO (Ptr ())-hookReadData s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--hookReadNext :: Hook -> IO Hook-hookReadNext s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Hook)-    val' <- (newPtr 64 Hook) val-    return val'--hookReadPrev :: Hook -> IO Hook-hookReadPrev s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Hook)-    val' <- (newPtr 64 Hook) val-    return val'--hookReadRefCount :: Hook -> IO Word32-hookReadRefCount s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Word32-    return val--hookReadHookId :: Hook -> IO Word64-hookReadHookId s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word64-    return val--hookReadFlags :: Hook -> IO Word32-hookReadFlags s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO Word32-    return val--hookReadFunc :: Hook -> IO (Ptr ())-hookReadFunc s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO (Ptr ())-    return val---- XXX Skipped getter for "Hook:destroy" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- method Hook::compare_ids--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_hook_compare_ids" g_hook_compare_ids :: -    Ptr Hook ->                             -- _obj : TInterface "GLib" "Hook"-    Ptr Hook ->                             -- sibling : TInterface "GLib" "Hook"-    IO Int32---hookCompareIds ::-    (MonadIO m) =>-    Hook ->                                 -- _obj-    Hook ->                                 -- sibling-    m Int32-hookCompareIds _obj sibling = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let sibling' = unsafeManagedPtrGetPtr sibling-    result <- g_hook_compare_ids _obj' sibling'-    touchManagedPtr _obj-    touchManagedPtr sibling-    return result--
− GI/GLib/Structs/Hook.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Hook where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Hook = Hook (ForeignPtr Hook)
− GI/GLib/Structs/HookList.hs 
@@ -1,210 +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 #GHookList struct represents a list of hook functions.--}--module GI.GLib.Structs.HookList-    ( ---- * Exported types-    HookList(..)                            ,-    noHookList                              ,--- -- * Methods--- ** hookListClear-    hookListClear                           ,----- ** hookListInit-    hookListInit                            ,----- ** hookListInvoke-    hookListInvoke                          ,----- ** hookListInvokeCheck-    hookListInvokeCheck                     ,----- -- * Properties--- ** Dummy3-    hookListReadDummy3                      ,----- ** HookSize-    hookListReadHookSize                    ,----- ** Hooks-    hookListReadHooks                       ,----- ** IsSetup-    hookListReadIsSetup                     ,----- ** SeqId-    hookListReadSeqId                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype HookList = HookList (ForeignPtr HookList)-noHookList :: Maybe HookList-noHookList = Nothing--hookListReadSeqId :: HookList -> IO Word64-hookListReadSeqId s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word64-    return val--hookListReadHookSize :: HookList -> IO Word32-hookListReadHookSize s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word32-    return val--hookListReadIsSetup :: HookList -> IO Word32-hookListReadIsSetup s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Word32-    return val--hookListReadHooks :: HookList -> IO Hook-hookListReadHooks s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Hook)-    val' <- (newPtr 64 Hook) val-    return val'--hookListReadDummy3 :: HookList -> IO (Ptr ())-hookListReadDummy3 s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr ())-    return val---- XXX Skipped getter for "HookList:finalize_hook" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "HookList:dummy" :: Not implemented: "Don't know how to unpack C array of type TCArray False 2 (-1) (TBasicType TVoid)"---- method HookList::clear--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hook_list_clear" g_hook_list_clear :: -    Ptr HookList ->                         -- _obj : TInterface "GLib" "HookList"-    IO ()---hookListClear ::-    (MonadIO m) =>-    HookList ->                             -- _obj-    m ()-hookListClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_hook_list_clear _obj'-    touchManagedPtr _obj-    return ()---- method HookList::init--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hook_list_init" g_hook_list_init :: -    Ptr HookList ->                         -- _obj : TInterface "GLib" "HookList"-    Word32 ->                               -- hook_size : TBasicType TUInt32-    IO ()---hookListInit ::-    (MonadIO m) =>-    HookList ->                             -- _obj-    Word32 ->                               -- hook_size-    m ()-hookListInit _obj hook_size = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_hook_list_init _obj' hook_size-    touchManagedPtr _obj-    return ()---- method HookList::invoke--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hook_list_invoke" g_hook_list_invoke :: -    Ptr HookList ->                         -- _obj : TInterface "GLib" "HookList"-    CInt ->                                 -- may_recurse : TBasicType TBoolean-    IO ()---hookListInvoke ::-    (MonadIO m) =>-    HookList ->                             -- _obj-    Bool ->                                 -- may_recurse-    m ()-hookListInvoke _obj may_recurse = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let may_recurse' = (fromIntegral . fromEnum) may_recurse-    g_hook_list_invoke _obj' may_recurse'-    touchManagedPtr _obj-    return ()---- method HookList::invoke_check--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_hook_list_invoke_check" g_hook_list_invoke_check :: -    Ptr HookList ->                         -- _obj : TInterface "GLib" "HookList"-    CInt ->                                 -- may_recurse : TBasicType TBoolean-    IO ()---hookListInvokeCheck ::-    (MonadIO m) =>-    HookList ->                             -- _obj-    Bool ->                                 -- may_recurse-    m ()-hookListInvokeCheck _obj may_recurse = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let may_recurse' = (fromIntegral . fromEnum) may_recurse-    g_hook_list_invoke_check _obj' may_recurse'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/HookList.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.HookList where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype HookList = HookList (ForeignPtr HookList)
− GI/GLib/Structs/IConv.hs 
@@ -1,66 +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 GIConv struct wraps an iconv() conversion descriptor. It contains-private data and should only be accessed using the following functions.--}--module GI.GLib.Structs.IConv-    ( ---- * Exported types-    IConv(..)                               ,-    noIConv                                 ,--- -- * Methods--- ** iConvClose-    iConvClose                              ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype IConv = IConv (ForeignPtr IConv)-noIConv :: Maybe IConv-noIConv = Nothing---- method IConv::close--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_iconv_close" g_iconv_close :: -    Ptr IConv ->                            -- _obj : TInterface "GLib" "IConv"-    IO Int32---iConvClose ::-    (MonadIO m) =>-    IConv ->                                -- _obj-    m Int32-iConvClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_iconv_close _obj'-    touchManagedPtr _obj-    return result--
− GI/GLib/Structs/IConv.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.IConv where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype IConv = IConv (ForeignPtr IConv)
− GI/GLib/Structs/IOChannel.hs 
@@ -1,1101 +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)--A data structure representing an IO Channel. The fields should be-considered private and should only be accessed with the following-functions.--}--module GI.GLib.Structs.IOChannel-    ( ---- * Exported types-    IOChannel(..)                           ,-    noIOChannel                             ,--- -- * Methods--- ** iOChannelClose-    iOChannelClose                          ,----- ** iOChannelFlush-    iOChannelFlush                          ,----- ** iOChannelGetBufferCondition-    iOChannelGetBufferCondition             ,----- ** iOChannelGetBufferSize-    iOChannelGetBufferSize                  ,----- ** iOChannelGetBuffered-    iOChannelGetBuffered                    ,----- ** iOChannelGetCloseOnUnref-    iOChannelGetCloseOnUnref                ,----- ** iOChannelGetEncoding-    iOChannelGetEncoding                    ,----- ** iOChannelGetFlags-    iOChannelGetFlags                       ,----- ** iOChannelGetLineTerm-    iOChannelGetLineTerm                    ,----- ** iOChannelInit-    iOChannelInit                           ,----- ** iOChannelNewFile-    iOChannelNewFile                        ,----- ** iOChannelRead-    iOChannelRead                           ,----- ** iOChannelReadLine-    iOChannelReadLine                       ,----- ** iOChannelReadToEnd-    iOChannelReadToEnd                      ,----- ** iOChannelReadUnichar-    iOChannelReadUnichar                    ,----- ** iOChannelRef-    iOChannelRef                            ,----- ** iOChannelSeek-    iOChannelSeek                           ,----- ** iOChannelSeekPosition-    iOChannelSeekPosition                   ,----- ** iOChannelSetBufferSize-    iOChannelSetBufferSize                  ,----- ** iOChannelSetBuffered-    iOChannelSetBuffered                    ,----- ** iOChannelSetCloseOnUnref-    iOChannelSetCloseOnUnref                ,----- ** iOChannelSetEncoding-    iOChannelSetEncoding                    ,----- ** iOChannelSetFlags-    iOChannelSetFlags                       ,----- ** iOChannelSetLineTerm-    iOChannelSetLineTerm                    ,----- ** iOChannelShutdown-    iOChannelShutdown                       ,----- ** iOChannelUnixGetFd-    iOChannelUnixGetFd                      ,----- ** iOChannelUnixNew-    iOChannelUnixNew                        ,----- ** iOChannelUnref-    iOChannelUnref                          ,----- ** iOChannelWrite-    iOChannelWrite                          ,----- ** iOChannelWriteChars-    iOChannelWriteChars                     ,----- ** iOChannelWriteUnichar-    iOChannelWriteUnichar                   ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype IOChannel = IOChannel (ForeignPtr IOChannel)-foreign import ccall "g_io_channel_get_type" c_g_io_channel_get_type :: -    IO GType--instance BoxedObject IOChannel where-    boxedType _ = c_g_io_channel_get_type--noIOChannel :: Maybe IOChannel-noIOChannel = Nothing---- method IOChannel::new_file--- method type : Constructor--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOChannel"--- throws : True--- Skip return : False--foreign import ccall "g_io_channel_new_file" g_io_channel_new_file :: -    CString ->                              -- filename : TBasicType TUTF8-    CString ->                              -- mode : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr IOChannel)---iOChannelNewFile ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    T.Text ->                               -- mode-    m IOChannel-iOChannelNewFile filename mode = liftIO $ do-    filename' <- textToCString filename-    mode' <- textToCString mode-    onException (do-        result <- propagateGError $ g_io_channel_new_file filename' mode'-        checkUnexpectedReturnNULL "g_io_channel_new_file" result-        result' <- (wrapBoxed IOChannel) result-        freeMem filename'-        freeMem mode'-        return result'-     ) (do-        freeMem filename'-        freeMem mode'-     )---- method IOChannel::unix_new--- method type : Constructor--- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOChannel"--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_unix_new" g_io_channel_unix_new :: -    Int32 ->                                -- fd : TBasicType TInt32-    IO (Ptr IOChannel)---iOChannelUnixNew ::-    (MonadIO m) =>-    Int32 ->                                -- fd-    m IOChannel-iOChannelUnixNew fd = liftIO $ do-    result <- g_io_channel_unix_new fd-    checkUnexpectedReturnNULL "g_io_channel_unix_new" result-    result' <- (wrapBoxed IOChannel) result-    return result'---- method IOChannel::close--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_close" g_io_channel_close :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    IO ()--{-# DEPRECATED iOChannelClose ["(Since version 2.2)","Use g_io_channel_shutdown() instead."]#-}-iOChannelClose ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m ()-iOChannelClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_io_channel_close _obj'-    touchManagedPtr _obj-    return ()---- method IOChannel::flush--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOStatus"--- throws : True--- Skip return : False--foreign import ccall "g_io_channel_flush" g_io_channel_flush :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---iOChannelFlush ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m IOStatus-iOChannelFlush _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    onException (do-        result <- propagateGError $ g_io_channel_flush _obj'-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )---- method IOChannel::get_buffer_condition--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOCondition"--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_get_buffer_condition" g_io_channel_get_buffer_condition :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    IO CUInt---iOChannelGetBufferCondition ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m [IOCondition]-iOChannelGetBufferCondition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_channel_get_buffer_condition _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method IOChannel::get_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_get_buffer_size" g_io_channel_get_buffer_size :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    IO Word64---iOChannelGetBufferSize ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m Word64-iOChannelGetBufferSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_channel_get_buffer_size _obj'-    touchManagedPtr _obj-    return result---- method IOChannel::get_buffered--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_get_buffered" g_io_channel_get_buffered :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    IO CInt---iOChannelGetBuffered ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m Bool-iOChannelGetBuffered _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_channel_get_buffered _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method IOChannel::get_close_on_unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_get_close_on_unref" g_io_channel_get_close_on_unref :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    IO CInt---iOChannelGetCloseOnUnref ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m Bool-iOChannelGetCloseOnUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_channel_get_close_on_unref _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method IOChannel::get_encoding--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_get_encoding" g_io_channel_get_encoding :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    IO CString---iOChannelGetEncoding ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m T.Text-iOChannelGetEncoding _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_channel_get_encoding _obj'-    checkUnexpectedReturnNULL "g_io_channel_get_encoding" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method IOChannel::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOFlags"--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_get_flags" g_io_channel_get_flags :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    IO CUInt---iOChannelGetFlags ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m [IOFlags]-iOChannelGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_channel_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method IOChannel::get_line_term--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_get_line_term" g_io_channel_get_line_term :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    Int32 ->                                -- length : TBasicType TInt32-    IO CString---iOChannelGetLineTerm ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    Int32 ->                                -- length-    m T.Text-iOChannelGetLineTerm _obj length_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_channel_get_line_term _obj' length_-    checkUnexpectedReturnNULL "g_io_channel_get_line_term" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method IOChannel::init--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_init" g_io_channel_init :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    IO ()---iOChannelInit ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m ()-iOChannelInit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_io_channel_init _obj'-    touchManagedPtr _obj-    return ()---- method IOChannel::read--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOError"--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_read" g_io_channel_read :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    CString ->                              -- buf : TBasicType TUTF8-    Word64 ->                               -- count : TBasicType TUInt64-    Word64 ->                               -- bytes_read : TBasicType TUInt64-    IO CUInt--{-# DEPRECATED iOChannelRead ["(Since version 2.2)","Use g_io_channel_read_chars() instead."]#-}-iOChannelRead ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    T.Text ->                               -- buf-    Word64 ->                               -- count-    Word64 ->                               -- bytes_read-    m IOError-iOChannelRead _obj buf count bytes_read = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    buf' <- textToCString buf-    result <- g_io_channel_read _obj' buf' count bytes_read-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    freeMem buf'-    return result'---- method IOChannel::read_line--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_return", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "terminator_pos", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOStatus"--- throws : True--- Skip return : False--foreign import ccall "g_io_channel_read_line" g_io_channel_read_line :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    Ptr CString ->                          -- str_return : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr Word64 ->                           -- terminator_pos : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---iOChannelReadLine ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m (IOStatus,T.Text,Word64,Word64)-iOChannelReadLine _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    str_return <- allocMem :: IO (Ptr CString)-    length_ <- allocMem :: IO (Ptr Word64)-    terminator_pos <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_io_channel_read_line _obj' str_return length_ terminator_pos-        let result' = (toEnum . fromIntegral) result-        str_return' <- peek str_return-        str_return'' <- cstringToText str_return'-        freeMem str_return'-        length_' <- peek length_-        terminator_pos' <- peek terminator_pos-        touchManagedPtr _obj-        freeMem str_return-        freeMem length_-        freeMem terminator_pos-        return (result', str_return'', length_', terminator_pos')-     ) (do-        freeMem str_return-        freeMem length_-        freeMem terminator_pos-     )---- method IOChannel::read_to_end--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_return", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOStatus"--- throws : True--- Skip return : False--foreign import ccall "g_io_channel_read_to_end" g_io_channel_read_to_end :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    Ptr (Ptr Word8) ->                      -- str_return : TCArray False (-1) 2 (TBasicType TUInt8)-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---iOChannelReadToEnd ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m (IOStatus,ByteString)-iOChannelReadToEnd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    str_return <- allocMem :: IO (Ptr (Ptr Word8))-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_io_channel_read_to_end _obj' str_return length_-        length_' <- peek length_-        let result' = (toEnum . fromIntegral) result-        str_return' <- peek str_return-        str_return'' <- (unpackByteStringWithLength length_') str_return'-        freeMem str_return'-        touchManagedPtr _obj-        freeMem str_return-        freeMem length_-        return (result', str_return'')-     ) (do-        freeMem str_return-        freeMem length_-     )---- method IOChannel::read_unichar--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOStatus"--- throws : True--- Skip return : False--foreign import ccall "g_io_channel_read_unichar" g_io_channel_read_unichar :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    Ptr CInt ->                             -- thechar : TBasicType TUniChar-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---iOChannelReadUnichar ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m (IOStatus,Char)-iOChannelReadUnichar _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    thechar <- allocMem :: IO (Ptr CInt)-    onException (do-        result <- propagateGError $ g_io_channel_read_unichar _obj' thechar-        let result' = (toEnum . fromIntegral) result-        thechar' <- peek thechar-        let thechar'' = (chr . fromIntegral) thechar'-        touchManagedPtr _obj-        freeMem thechar-        return (result', thechar'')-     ) (do-        freeMem thechar-     )---- method IOChannel::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOChannel"--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_ref" g_io_channel_ref :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    IO (Ptr IOChannel)---iOChannelRef ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m IOChannel-iOChannelRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_channel_ref _obj'-    checkUnexpectedReturnNULL "g_io_channel_ref" result-    result' <- (wrapBoxed IOChannel) result-    touchManagedPtr _obj-    return result'---- method IOChannel::seek--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOError"--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_seek" g_io_channel_seek :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    Int64 ->                                -- offset : TBasicType TInt64-    CUInt ->                                -- type : TInterface "GLib" "SeekType"-    IO CUInt--{-# DEPRECATED iOChannelSeek ["(Since version 2.2)","Use g_io_channel_seek_position() instead."]#-}-iOChannelSeek ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    Int64 ->                                -- offset-    SeekType ->                             -- type-    m IOError-iOChannelSeek _obj offset type_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    result <- g_io_channel_seek _obj' offset type_'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method IOChannel::seek_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOStatus"--- throws : True--- Skip return : False--foreign import ccall "g_io_channel_seek_position" g_io_channel_seek_position :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    Int64 ->                                -- offset : TBasicType TInt64-    CUInt ->                                -- type : TInterface "GLib" "SeekType"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---iOChannelSeekPosition ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    Int64 ->                                -- offset-    SeekType ->                             -- type-    m IOStatus-iOChannelSeekPosition _obj offset type_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    onException (do-        result <- propagateGError $ g_io_channel_seek_position _obj' offset type_'-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )---- method IOChannel::set_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_set_buffer_size" g_io_channel_set_buffer_size :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    Word64 ->                               -- size : TBasicType TUInt64-    IO ()---iOChannelSetBufferSize ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    Word64 ->                               -- size-    m ()-iOChannelSetBufferSize _obj size = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_io_channel_set_buffer_size _obj' size-    touchManagedPtr _obj-    return ()---- method IOChannel::set_buffered--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_set_buffered" g_io_channel_set_buffered :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    CInt ->                                 -- buffered : TBasicType TBoolean-    IO ()---iOChannelSetBuffered ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    Bool ->                                 -- buffered-    m ()-iOChannelSetBuffered _obj buffered = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let buffered' = (fromIntegral . fromEnum) buffered-    g_io_channel_set_buffered _obj' buffered'-    touchManagedPtr _obj-    return ()---- method IOChannel::set_close_on_unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_set_close_on_unref" g_io_channel_set_close_on_unref :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    CInt ->                                 -- do_close : TBasicType TBoolean-    IO ()---iOChannelSetCloseOnUnref ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    Bool ->                                 -- do_close-    m ()-iOChannelSetCloseOnUnref _obj do_close = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let do_close' = (fromIntegral . fromEnum) do_close-    g_io_channel_set_close_on_unref _obj' do_close'-    touchManagedPtr _obj-    return ()---- method IOChannel::set_encoding--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOStatus"--- throws : True--- Skip return : False--foreign import ccall "g_io_channel_set_encoding" g_io_channel_set_encoding :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    CString ->                              -- encoding : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---iOChannelSetEncoding ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    Maybe (T.Text) ->                       -- encoding-    m IOStatus-iOChannelSetEncoding _obj encoding = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeEncoding <- case encoding of-        Nothing -> return nullPtr-        Just jEncoding -> do-            jEncoding' <- textToCString jEncoding-            return jEncoding'-    onException (do-        result <- propagateGError $ g_io_channel_set_encoding _obj' maybeEncoding-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        freeMem maybeEncoding-        return result'-     ) (do-        freeMem maybeEncoding-     )---- method IOChannel::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "IOFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "IOFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOStatus"--- throws : True--- Skip return : False--foreign import ccall "g_io_channel_set_flags" g_io_channel_set_flags :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    CUInt ->                                -- flags : TInterface "GLib" "IOFlags"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---iOChannelSetFlags ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    [IOFlags] ->                            -- flags-    m IOStatus-iOChannelSetFlags _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let flags' = gflagsToWord flags-    onException (do-        result <- propagateGError $ g_io_channel_set_flags _obj' flags'-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )---- method IOChannel::set_line_term--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_set_line_term" g_io_channel_set_line_term :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    CString ->                              -- line_term : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    IO ()---iOChannelSetLineTerm ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    Maybe (T.Text) ->                       -- line_term-    Int32 ->                                -- length-    m ()-iOChannelSetLineTerm _obj line_term length_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeLine_term <- case line_term of-        Nothing -> return nullPtr-        Just jLine_term -> do-            jLine_term' <- textToCString jLine_term-            return jLine_term'-    g_io_channel_set_line_term _obj' maybeLine_term length_-    touchManagedPtr _obj-    freeMem maybeLine_term-    return ()---- method IOChannel::shutdown--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flush", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flush", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOStatus"--- throws : True--- Skip return : False--foreign import ccall "g_io_channel_shutdown" g_io_channel_shutdown :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    CInt ->                                 -- flush : TBasicType TBoolean-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---iOChannelShutdown ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    Bool ->                                 -- flush-    m IOStatus-iOChannelShutdown _obj flush = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let flush' = (fromIntegral . fromEnum) flush-    onException (do-        result <- propagateGError $ g_io_channel_shutdown _obj' flush'-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )---- method IOChannel::unix_get_fd--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_unix_get_fd" g_io_channel_unix_get_fd :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    IO Int32---iOChannelUnixGetFd ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m Int32-iOChannelUnixGetFd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_io_channel_unix_get_fd _obj'-    touchManagedPtr _obj-    return result---- method IOChannel::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_unref" g_io_channel_unref :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    IO ()---iOChannelUnref ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    m ()-iOChannelUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_io_channel_unref _obj'-    touchManagedPtr _obj-    return ()---- method IOChannel::write--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOError"--- throws : False--- Skip return : False--foreign import ccall "g_io_channel_write" g_io_channel_write :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    CString ->                              -- buf : TBasicType TUTF8-    Word64 ->                               -- count : TBasicType TUInt64-    Word64 ->                               -- bytes_written : TBasicType TUInt64-    IO CUInt--{-# DEPRECATED iOChannelWrite ["(Since version 2.2)","Use g_io_channel_write_chars() instead."]#-}-iOChannelWrite ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    T.Text ->                               -- buf-    Word64 ->                               -- count-    Word64 ->                               -- bytes_written-    m IOError-iOChannelWrite _obj buf count bytes_written = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    buf' <- textToCString buf-    result <- g_io_channel_write _obj' buf' count bytes_written-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    freeMem buf'-    return result'---- method IOChannel::write_chars--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOStatus"--- throws : True--- Skip return : False--foreign import ccall "g_io_channel_write_chars" g_io_channel_write_chars :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    Ptr Word8 ->                            -- buf : TCArray False (-1) (-1) (TBasicType TUInt8)-    Int64 ->                                -- count : TBasicType TInt64-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---iOChannelWriteChars ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    Ptr Word8 ->                            -- buf-    Int64 ->                                -- count-    m (IOStatus,Word64)-iOChannelWriteChars _obj buf count = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    bytes_written <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_io_channel_write_chars _obj' buf count bytes_written-        let result' = (toEnum . fromIntegral) result-        bytes_written' <- peek bytes_written-        touchManagedPtr _obj-        freeMem bytes_written-        return (result', bytes_written')-     ) (do-        freeMem bytes_written-     )---- method IOChannel::write_unichar--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOStatus"--- throws : True--- Skip return : False--foreign import ccall "g_io_channel_write_unichar" g_io_channel_write_unichar :: -    Ptr IOChannel ->                        -- _obj : TInterface "GLib" "IOChannel"-    CInt ->                                 -- thechar : TBasicType TUniChar-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---iOChannelWriteUnichar ::-    (MonadIO m) =>-    IOChannel ->                            -- _obj-    Char ->                                 -- thechar-    m IOStatus-iOChannelWriteUnichar _obj thechar = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let thechar' = (fromIntegral . ord) thechar-    onException (do-        result <- propagateGError $ g_io_channel_write_unichar _obj' thechar'-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )--
− GI/GLib/Structs/IOChannel.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.IOChannel where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype IOChannel = IOChannel (ForeignPtr IOChannel)-instance BoxedObject IOChannel where
− GI/GLib/Structs/IOFuncs.hs 
@@ -1,51 +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)--A table of functions used to handle different types of #GIOChannel-in a generic way.--}--module GI.GLib.Structs.IOFuncs-    ( ---- * Exported types-    IOFuncs(..)                             ,-    noIOFuncs                               ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype IOFuncs = IOFuncs (ForeignPtr IOFuncs)-noIOFuncs :: Maybe IOFuncs-noIOFuncs = Nothing---- XXX Skipped getter for "IOFuncs:io_read" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "IOFuncs:io_write" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "IOFuncs:io_seek" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "IOFuncs:io_close" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "IOFuncs:io_create_watch" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "IOFuncs:io_free" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "IOFuncs:io_set_flags" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "IOFuncs:io_get_flags" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--
− GI/GLib/Structs/IOFuncs.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.IOFuncs where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype IOFuncs = IOFuncs (ForeignPtr IOFuncs)
− GI/GLib/Structs/KeyFile.hs 
@@ -1,1915 +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 GKeyFile struct contains only private data-and should not be accessed directly.--}--module GI.GLib.Structs.KeyFile-    ( ---- * Exported types-    KeyFile(..)                             ,-    noKeyFile                               ,--- -- * Methods--- ** keyFileGetBoolean-    keyFileGetBoolean                       ,----- ** keyFileGetBooleanList-    keyFileGetBooleanList                   ,----- ** keyFileGetComment-    keyFileGetComment                       ,----- ** keyFileGetDouble-    keyFileGetDouble                        ,----- ** keyFileGetDoubleList-    keyFileGetDoubleList                    ,----- ** keyFileGetGroups-    keyFileGetGroups                        ,----- ** keyFileGetInt64-    keyFileGetInt64                         ,----- ** keyFileGetInteger-    keyFileGetInteger                       ,----- ** keyFileGetIntegerList-    keyFileGetIntegerList                   ,----- ** keyFileGetKeys-    keyFileGetKeys                          ,----- ** keyFileGetLocaleString-    keyFileGetLocaleString                  ,----- ** keyFileGetLocaleStringList-    keyFileGetLocaleStringList              ,----- ** keyFileGetStartGroup-    keyFileGetStartGroup                    ,----- ** keyFileGetString-    keyFileGetString                        ,----- ** keyFileGetStringList-    keyFileGetStringList                    ,----- ** keyFileGetUint64-    keyFileGetUint64                        ,----- ** keyFileGetValue-    keyFileGetValue                         ,----- ** keyFileHasGroup-    keyFileHasGroup                         ,----- ** keyFileLoadFromData-    keyFileLoadFromData                     ,----- ** keyFileLoadFromDataDirs-    keyFileLoadFromDataDirs                 ,----- ** keyFileLoadFromDirs-    keyFileLoadFromDirs                     ,----- ** keyFileLoadFromFile-    keyFileLoadFromFile                     ,----- ** keyFileNew-    keyFileNew                              ,----- ** keyFileRemoveComment-    keyFileRemoveComment                    ,----- ** keyFileRemoveGroup-    keyFileRemoveGroup                      ,----- ** keyFileRemoveKey-    keyFileRemoveKey                        ,----- ** keyFileSaveToFile-    keyFileSaveToFile                       ,----- ** keyFileSetBoolean-    keyFileSetBoolean                       ,----- ** keyFileSetBooleanList-    keyFileSetBooleanList                   ,----- ** keyFileSetComment-    keyFileSetComment                       ,----- ** keyFileSetDouble-    keyFileSetDouble                        ,----- ** keyFileSetDoubleList-    keyFileSetDoubleList                    ,----- ** keyFileSetInt64-    keyFileSetInt64                         ,----- ** keyFileSetInteger-    keyFileSetInteger                       ,----- ** keyFileSetIntegerList-    keyFileSetIntegerList                   ,----- ** keyFileSetListSeparator-    keyFileSetListSeparator                 ,----- ** keyFileSetLocaleString-    keyFileSetLocaleString                  ,----- ** keyFileSetLocaleStringList-    keyFileSetLocaleStringList              ,----- ** keyFileSetString-    keyFileSetString                        ,----- ** keyFileSetStringList-    keyFileSetStringList                    ,----- ** keyFileSetUint64-    keyFileSetUint64                        ,----- ** keyFileSetValue-    keyFileSetValue                         ,----- ** keyFileToData-    keyFileToData                           ,----- ** keyFileUnref-    keyFileUnref                            ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype KeyFile = KeyFile (ForeignPtr KeyFile)-foreign import ccall "g_key_file_get_type" c_g_key_file_get_type :: -    IO GType--instance BoxedObject KeyFile where-    boxedType _ = c_g_key_file_get_type--noKeyFile :: Maybe KeyFile-noKeyFile = Nothing---- method KeyFile::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "KeyFile"--- throws : False--- Skip return : False--foreign import ccall "g_key_file_new" g_key_file_new :: -    IO (Ptr KeyFile)---keyFileNew ::-    (MonadIO m) =>-    m KeyFile-keyFileNew  = liftIO $ do-    result <- g_key_file_new-    checkUnexpectedReturnNULL "g_key_file_new" result-    result' <- (wrapBoxed KeyFile) result-    return result'---- method KeyFile::get_boolean--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_boolean" g_key_file_get_boolean :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---keyFileGetBoolean ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m ()-keyFileGetBoolean _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    onException (do-        _ <- propagateGError $ g_key_file_get_boolean _obj' group_name' key'-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        return ()-     ) (do-        freeMem group_name'-        freeMem key'-     )---- method KeyFile::get_boolean_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray False (-1) 3 (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_boolean_list" g_key_file_get_boolean_list :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CInt)---keyFileGetBooleanList ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m [Bool]-keyFileGetBooleanList _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_key_file_get_boolean_list _obj' group_name' key' length_-        length_' <- peek length_-        checkUnexpectedReturnNULL "g_key_file_get_boolean_list" result-        result' <- (unpackMapStorableArrayWithLength (/= 0) length_') result-        freeMem result-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        freeMem length_-        return result'-     ) (do-        freeMem group_name'-        freeMem key'-        freeMem length_-     )---- method KeyFile::get_comment--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_comment" g_key_file_get_comment :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---keyFileGetComment ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    Maybe (T.Text) ->                       -- group_name-    T.Text ->                               -- key-    m T.Text-keyFileGetComment _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeGroup_name <- case group_name of-        Nothing -> return nullPtr-        Just jGroup_name -> do-            jGroup_name' <- textToCString jGroup_name-            return jGroup_name'-    key' <- textToCString key-    onException (do-        result <- propagateGError $ g_key_file_get_comment _obj' maybeGroup_name key'-        checkUnexpectedReturnNULL "g_key_file_get_comment" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        freeMem maybeGroup_name-        freeMem key'-        return result'-     ) (do-        freeMem maybeGroup_name-        freeMem key'-     )---- method KeyFile::get_double--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_double" g_key_file_get_double :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CDouble---keyFileGetDouble ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m Double-keyFileGetDouble _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    onException (do-        result <- propagateGError $ g_key_file_get_double _obj' group_name' key'-        let result' = realToFrac result-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        return result'-     ) (do-        freeMem group_name'-        freeMem key'-     )---- method KeyFile::get_double_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray False (-1) 3 (TBasicType TDouble)--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_double_list" g_key_file_get_double_list :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CDouble)---keyFileGetDoubleList ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m [Double]-keyFileGetDoubleList _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_key_file_get_double_list _obj' group_name' key' length_-        length_' <- peek length_-        checkUnexpectedReturnNULL "g_key_file_get_double_list" result-        result' <- (unpackMapStorableArrayWithLength realToFrac length_') result-        freeMem result-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        freeMem length_-        return result'-     ) (do-        freeMem group_name'-        freeMem key'-        freeMem length_-     )---- method KeyFile::get_groups--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_key_file_get_groups" g_key_file_get_groups :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    IO (Ptr CString)---keyFileGetGroups ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    m ([T.Text],Word64)-keyFileGetGroups _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    length_ <- allocMem :: IO (Ptr Word64)-    result <- g_key_file_get_groups _obj' length_-    checkUnexpectedReturnNULL "g_key_file_get_groups" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    length_' <- peek length_-    touchManagedPtr _obj-    freeMem length_-    return (result', length_')---- method KeyFile::get_int64--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_int64" g_key_file_get_int64 :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO Int64---keyFileGetInt64 ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m Int64-keyFileGetInt64 _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    onException (do-        result <- propagateGError $ g_key_file_get_int64 _obj' group_name' key'-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        return result-     ) (do-        freeMem group_name'-        freeMem key'-     )---- method KeyFile::get_integer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_integer" g_key_file_get_integer :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO Int32---keyFileGetInteger ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m Int32-keyFileGetInteger _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    onException (do-        result <- propagateGError $ g_key_file_get_integer _obj' group_name' key'-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        return result-     ) (do-        freeMem group_name'-        freeMem key'-     )---- method KeyFile::get_integer_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray False (-1) 3 (TBasicType TInt32)--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_integer_list" g_key_file_get_integer_list :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Int32)---keyFileGetIntegerList ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m [Int32]-keyFileGetIntegerList _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_key_file_get_integer_list _obj' group_name' key' length_-        length_' <- peek length_-        checkUnexpectedReturnNULL "g_key_file_get_integer_list" result-        result' <- (unpackStorableArrayWithLength length_') result-        freeMem result-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        freeMem length_-        return result'-     ) (do-        freeMem group_name'-        freeMem key'-        freeMem length_-     )---- method KeyFile::get_keys--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_keys" g_key_file_get_keys :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---keyFileGetKeys ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    m ([T.Text],Word64)-keyFileGetKeys _obj group_name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_key_file_get_keys _obj' group_name' length_-        checkUnexpectedReturnNULL "g_key_file_get_keys" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        length_' <- peek length_-        touchManagedPtr _obj-        freeMem group_name'-        freeMem length_-        return (result', length_')-     ) (do-        freeMem group_name'-        freeMem length_-     )---- method KeyFile::get_locale_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_locale_string" g_key_file_get_locale_string :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    CString ->                              -- locale : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---keyFileGetLocaleString ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    Maybe (T.Text) ->                       -- locale-    m T.Text-keyFileGetLocaleString _obj group_name key locale = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    maybeLocale <- case locale of-        Nothing -> return nullPtr-        Just jLocale -> do-            jLocale' <- textToCString jLocale-            return jLocale'-    onException (do-        result <- propagateGError $ g_key_file_get_locale_string _obj' group_name' key' maybeLocale-        checkUnexpectedReturnNULL "g_key_file_get_locale_string" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        freeMem maybeLocale-        return result'-     ) (do-        freeMem group_name'-        freeMem key'-        freeMem maybeLocale-     )---- method KeyFile::get_locale_string_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) 4 (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_locale_string_list" g_key_file_get_locale_string_list :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    CString ->                              -- locale : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---keyFileGetLocaleStringList ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    Maybe (T.Text) ->                       -- locale-    m ([T.Text],Word64)-keyFileGetLocaleStringList _obj group_name key locale = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    maybeLocale <- case locale of-        Nothing -> return nullPtr-        Just jLocale -> do-            jLocale' <- textToCString jLocale-            return jLocale'-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_key_file_get_locale_string_list _obj' group_name' key' maybeLocale length_-        checkUnexpectedReturnNULL "g_key_file_get_locale_string_list" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        length_' <- peek length_-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        freeMem maybeLocale-        freeMem length_-        return (result', length_')-     ) (do-        freeMem group_name'-        freeMem key'-        freeMem maybeLocale-        freeMem length_-     )---- method KeyFile::get_start_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_key_file_get_start_group" g_key_file_get_start_group :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    IO CString---keyFileGetStartGroup ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    m T.Text-keyFileGetStartGroup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_key_file_get_start_group _obj'-    checkUnexpectedReturnNULL "g_key_file_get_start_group" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method KeyFile::get_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_string" g_key_file_get_string :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---keyFileGetString ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m T.Text-keyFileGetString _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    onException (do-        result <- propagateGError $ g_key_file_get_string _obj' group_name' key'-        checkUnexpectedReturnNULL "g_key_file_get_string" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        return result'-     ) (do-        freeMem group_name'-        freeMem key'-     )---- method KeyFile::get_string_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) 3 (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_string_list" g_key_file_get_string_list :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---keyFileGetStringList ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m ([T.Text],Word64)-keyFileGetStringList _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_key_file_get_string_list _obj' group_name' key' length_-        checkUnexpectedReturnNULL "g_key_file_get_string_list" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        length_' <- peek length_-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        freeMem length_-        return (result', length_')-     ) (do-        freeMem group_name'-        freeMem key'-        freeMem length_-     )---- method KeyFile::get_uint64--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_uint64" g_key_file_get_uint64 :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO Word64---keyFileGetUint64 ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m Word64-keyFileGetUint64 _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    onException (do-        result <- propagateGError $ g_key_file_get_uint64 _obj' group_name' key'-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        return result-     ) (do-        freeMem group_name'-        freeMem key'-     )---- method KeyFile::get_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_key_file_get_value" g_key_file_get_value :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---keyFileGetValue ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m T.Text-keyFileGetValue _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    onException (do-        result <- propagateGError $ g_key_file_get_value _obj' group_name' key'-        checkUnexpectedReturnNULL "g_key_file_get_value" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        return result'-     ) (do-        freeMem group_name'-        freeMem key'-     )---- method KeyFile::has_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_key_file_has_group" g_key_file_has_group :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    IO CInt---keyFileHasGroup ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    m Bool-keyFileHasGroup _obj group_name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    result <- g_key_file_has_group _obj' group_name'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem group_name'-    return result'---- method KeyFile::load_from_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_key_file_load_from_data" g_key_file_load_from_data :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- data : TBasicType TUTF8-    Word64 ->                               -- length : TBasicType TUInt64-    CUInt ->                                -- flags : TInterface "GLib" "KeyFileFlags"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---keyFileLoadFromData ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- data-    Word64 ->                               -- length-    [KeyFileFlags] ->                       -- flags-    m ()-keyFileLoadFromData _obj data_ length_ flags = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    data_' <- textToCString data_-    let flags' = gflagsToWord flags-    onException (do-        _ <- propagateGError $ g_key_file_load_from_data _obj' data_' length_ flags'-        touchManagedPtr _obj-        freeMem data_'-        return ()-     ) (do-        freeMem data_'-     )---- method KeyFile::load_from_data_dirs--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_key_file_load_from_data_dirs" g_key_file_load_from_data_dirs :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- file : TBasicType TFileName-    Ptr CString ->                          -- full_path : TBasicType TFileName-    CUInt ->                                -- flags : TInterface "GLib" "KeyFileFlags"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---keyFileLoadFromDataDirs ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    [Char] ->                               -- file-    [KeyFileFlags] ->                       -- flags-    m ([Char])-keyFileLoadFromDataDirs _obj file flags = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    file' <- stringToCString file-    full_path <- allocMem :: IO (Ptr CString)-    let flags' = gflagsToWord flags-    onException (do-        _ <- propagateGError $ g_key_file_load_from_data_dirs _obj' file' full_path flags'-        full_path' <- peek full_path-        full_path'' <- cstringToString full_path'-        freeMem full_path'-        touchManagedPtr _obj-        freeMem file'-        freeMem full_path-        return full_path''-     ) (do-        freeMem file'-        freeMem full_path-     )---- method KeyFile::load_from_dirs--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_dirs", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_dirs", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_key_file_load_from_dirs" g_key_file_load_from_dirs :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- file : TBasicType TFileName-    Ptr CString ->                          -- search_dirs : TCArray True (-1) (-1) (TBasicType TFileName)-    Ptr CString ->                          -- full_path : TBasicType TFileName-    CUInt ->                                -- flags : TInterface "GLib" "KeyFileFlags"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---keyFileLoadFromDirs ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    [Char] ->                               -- file-    [[Char]] ->                             -- search_dirs-    [KeyFileFlags] ->                       -- flags-    m ([Char])-keyFileLoadFromDirs _obj file search_dirs flags = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    file' <- stringToCString file-    search_dirs' <- packZeroTerminatedFileNameArray search_dirs-    full_path <- allocMem :: IO (Ptr CString)-    let flags' = gflagsToWord flags-    onException (do-        _ <- propagateGError $ g_key_file_load_from_dirs _obj' file' search_dirs' full_path flags'-        full_path' <- peek full_path-        full_path'' <- cstringToString full_path'-        freeMem full_path'-        touchManagedPtr _obj-        freeMem file'-        mapZeroTerminatedCArray freeMem search_dirs'-        freeMem search_dirs'-        freeMem full_path-        return full_path''-     ) (do-        freeMem file'-        mapZeroTerminatedCArray freeMem search_dirs'-        freeMem search_dirs'-        freeMem full_path-     )---- method KeyFile::load_from_file--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_key_file_load_from_file" g_key_file_load_from_file :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- file : TBasicType TFileName-    CUInt ->                                -- flags : TInterface "GLib" "KeyFileFlags"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---keyFileLoadFromFile ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    [Char] ->                               -- file-    [KeyFileFlags] ->                       -- flags-    m ()-keyFileLoadFromFile _obj file flags = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    file' <- stringToCString file-    let flags' = gflagsToWord flags-    onException (do-        _ <- propagateGError $ g_key_file_load_from_file _obj' file' flags'-        touchManagedPtr _obj-        freeMem file'-        return ()-     ) (do-        freeMem file'-     )---- method KeyFile::remove_comment--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_key_file_remove_comment" g_key_file_remove_comment :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---keyFileRemoveComment ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    Maybe (T.Text) ->                       -- group_name-    Maybe (T.Text) ->                       -- key-    m ()-keyFileRemoveComment _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeGroup_name <- case group_name of-        Nothing -> return nullPtr-        Just jGroup_name -> do-            jGroup_name' <- textToCString jGroup_name-            return jGroup_name'-    maybeKey <- case key of-        Nothing -> return nullPtr-        Just jKey -> do-            jKey' <- textToCString jKey-            return jKey'-    onException (do-        _ <- propagateGError $ g_key_file_remove_comment _obj' maybeGroup_name maybeKey-        touchManagedPtr _obj-        freeMem maybeGroup_name-        freeMem maybeKey-        return ()-     ) (do-        freeMem maybeGroup_name-        freeMem maybeKey-     )---- method KeyFile::remove_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_key_file_remove_group" g_key_file_remove_group :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---keyFileRemoveGroup ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    m ()-keyFileRemoveGroup _obj group_name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    onException (do-        _ <- propagateGError $ g_key_file_remove_group _obj' group_name'-        touchManagedPtr _obj-        freeMem group_name'-        return ()-     ) (do-        freeMem group_name'-     )---- method KeyFile::remove_key--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_key_file_remove_key" g_key_file_remove_key :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---keyFileRemoveKey ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    m ()-keyFileRemoveKey _obj group_name key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    onException (do-        _ <- propagateGError $ g_key_file_remove_key _obj' group_name' key'-        touchManagedPtr _obj-        freeMem group_name'-        freeMem key'-        return ()-     ) (do-        freeMem group_name'-        freeMem key'-     )---- method KeyFile::save_to_file--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_key_file_save_to_file" g_key_file_save_to_file :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- filename : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---keyFileSaveToFile ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- filename-    m ()-keyFileSaveToFile _obj filename = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    filename' <- textToCString filename-    onException (do-        _ <- propagateGError $ g_key_file_save_to_file _obj' filename'-        touchManagedPtr _obj-        freeMem filename'-        return ()-     ) (do-        freeMem filename'-     )---- method KeyFile::set_boolean--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_boolean" g_key_file_set_boolean :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    CInt ->                                 -- value : TBasicType TBoolean-    IO ()---keyFileSetBoolean ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    Bool ->                                 -- value-    m ()-keyFileSetBoolean _obj group_name key value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    let value' = (fromIntegral . fromEnum) value-    g_key_file_set_boolean _obj' group_name' key' value'-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    return ()---- method KeyFile::set_boolean_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TBoolean), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TBoolean), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_boolean_list" g_key_file_set_boolean_list :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr CInt ->                             -- list : TCArray False (-1) 4 (TBasicType TBoolean)-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()---keyFileSetBooleanList ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    [Bool] ->                               -- list-    m ()-keyFileSetBooleanList _obj group_name key list = liftIO $ do-    let length_ = fromIntegral $ length list-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    list' <- (packMapStorableArray (fromIntegral . fromEnum)) list-    g_key_file_set_boolean_list _obj' group_name' key' list' length_-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    freeMem list'-    return ()---- method KeyFile::set_comment--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_key_file_set_comment" g_key_file_set_comment :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    CString ->                              -- comment : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---keyFileSetComment ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    Maybe (T.Text) ->                       -- group_name-    Maybe (T.Text) ->                       -- key-    T.Text ->                               -- comment-    m ()-keyFileSetComment _obj group_name key comment = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeGroup_name <- case group_name of-        Nothing -> return nullPtr-        Just jGroup_name -> do-            jGroup_name' <- textToCString jGroup_name-            return jGroup_name'-    maybeKey <- case key of-        Nothing -> return nullPtr-        Just jKey -> do-            jKey' <- textToCString jKey-            return jKey'-    comment' <- textToCString comment-    onException (do-        _ <- propagateGError $ g_key_file_set_comment _obj' maybeGroup_name maybeKey comment'-        touchManagedPtr _obj-        freeMem maybeGroup_name-        freeMem maybeKey-        freeMem comment'-        return ()-     ) (do-        freeMem maybeGroup_name-        freeMem maybeKey-        freeMem comment'-     )---- method KeyFile::set_double--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_double" g_key_file_set_double :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    CDouble ->                              -- value : TBasicType TDouble-    IO ()---keyFileSetDouble ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    Double ->                               -- value-    m ()-keyFileSetDouble _obj group_name key value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    let value' = realToFrac value-    g_key_file_set_double _obj' group_name' key' value'-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    return ()---- method KeyFile::set_double_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TDouble), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TDouble), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_double_list" g_key_file_set_double_list :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr CDouble ->                          -- list : TCArray False (-1) 4 (TBasicType TDouble)-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()---keyFileSetDoubleList ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    [Double] ->                             -- list-    m ()-keyFileSetDoubleList _obj group_name key list = liftIO $ do-    let length_ = fromIntegral $ length list-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    list' <- (packMapStorableArray realToFrac) list-    g_key_file_set_double_list _obj' group_name' key' list' length_-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    freeMem list'-    return ()---- method KeyFile::set_int64--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_int64" g_key_file_set_int64 :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Int64 ->                                -- value : TBasicType TInt64-    IO ()---keyFileSetInt64 ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    Int64 ->                                -- value-    m ()-keyFileSetInt64 _obj group_name key value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    g_key_file_set_int64 _obj' group_name' key' value-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    return ()---- method KeyFile::set_integer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_integer" g_key_file_set_integer :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Int32 ->                                -- value : TBasicType TInt32-    IO ()---keyFileSetInteger ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    Int32 ->                                -- value-    m ()-keyFileSetInteger _obj group_name key value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    g_key_file_set_integer _obj' group_name' key' value-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    return ()---- method KeyFile::set_integer_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_integer_list" g_key_file_set_integer_list :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr Int32 ->                            -- list : TCArray False (-1) 4 (TBasicType TInt32)-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()---keyFileSetIntegerList ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    [Int32] ->                              -- list-    m ()-keyFileSetIntegerList _obj group_name key list = liftIO $ do-    let length_ = fromIntegral $ length list-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    list' <- packStorableArray list-    g_key_file_set_integer_list _obj' group_name' key' list' length_-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    freeMem list'-    return ()---- method KeyFile::set_list_separator--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "separator", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "separator", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_list_separator" g_key_file_set_list_separator :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    Int8 ->                                 -- separator : TBasicType TInt8-    IO ()---keyFileSetListSeparator ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    Int8 ->                                 -- separator-    m ()-keyFileSetListSeparator _obj separator = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_key_file_set_list_separator _obj' separator-    touchManagedPtr _obj-    return ()---- method KeyFile::set_locale_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_locale_string" g_key_file_set_locale_string :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    CString ->                              -- locale : TBasicType TUTF8-    CString ->                              -- string : TBasicType TUTF8-    IO ()---keyFileSetLocaleString ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    T.Text ->                               -- locale-    T.Text ->                               -- string-    m ()-keyFileSetLocaleString _obj group_name key locale string = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    locale' <- textToCString locale-    string' <- textToCString string-    g_key_file_set_locale_string _obj' group_name' key' locale' string'-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    freeMem locale'-    freeMem string'-    return ()---- method KeyFile::set_locale_string_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 5 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 5 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_locale_string_list" g_key_file_set_locale_string_list :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    CString ->                              -- locale : TBasicType TUTF8-    Ptr CString ->                          -- list : TCArray True (-1) 5 (TBasicType TUTF8)-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()---keyFileSetLocaleStringList ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    T.Text ->                               -- locale-    [T.Text] ->                             -- list-    Word64 ->                               -- length-    m ()-keyFileSetLocaleStringList _obj group_name key locale list length_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    locale' <- textToCString locale-    list' <- packZeroTerminatedUTF8CArray list-    g_key_file_set_locale_string_list _obj' group_name' key' locale' list' length_-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    freeMem locale'-    mapZeroTerminatedCArray freeMem list'-    freeMem list'-    return ()---- method KeyFile::set_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_string" g_key_file_set_string :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    CString ->                              -- string : TBasicType TUTF8-    IO ()---keyFileSetString ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    T.Text ->                               -- string-    m ()-keyFileSetString _obj group_name key string = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    string' <- textToCString string-    g_key_file_set_string _obj' group_name' key' string'-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    freeMem string'-    return ()---- method KeyFile::set_string_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 4 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 4 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_string_list" g_key_file_set_string_list :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Ptr CString ->                          -- list : TCArray True (-1) 4 (TBasicType TUTF8)-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()---keyFileSetStringList ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    [T.Text] ->                             -- list-    Word64 ->                               -- length-    m ()-keyFileSetStringList _obj group_name key list length_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    list' <- packZeroTerminatedUTF8CArray list-    g_key_file_set_string_list _obj' group_name' key' list' length_-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    mapZeroTerminatedCArray freeMem list'-    freeMem list'-    return ()---- method KeyFile::set_uint64--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_uint64" g_key_file_set_uint64 :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    Word64 ->                               -- value : TBasicType TUInt64-    IO ()---keyFileSetUint64 ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    Word64 ->                               -- value-    m ()-keyFileSetUint64 _obj group_name key value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    g_key_file_set_uint64 _obj' group_name' key' value-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    return ()---- method KeyFile::set_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_set_value" g_key_file_set_value :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    CString ->                              -- group_name : TBasicType TUTF8-    CString ->                              -- key : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()---keyFileSetValue ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    T.Text ->                               -- group_name-    T.Text ->                               -- key-    T.Text ->                               -- value-    m ()-keyFileSetValue _obj group_name key value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group_name' <- textToCString group_name-    key' <- textToCString key-    value' <- textToCString value-    g_key_file_set_value _obj' group_name' key' value'-    touchManagedPtr _obj-    freeMem group_name'-    freeMem key'-    freeMem value'-    return ()---- method KeyFile::to_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_key_file_to_data" g_key_file_to_data :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString---keyFileToData ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    m (T.Text,Word64)-keyFileToData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_key_file_to_data _obj' length_-        checkUnexpectedReturnNULL "g_key_file_to_data" result-        result' <- cstringToText result-        freeMem result-        length_' <- peek length_-        touchManagedPtr _obj-        freeMem length_-        return (result', length_')-     ) (do-        freeMem length_-     )---- method KeyFile::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_key_file_unref" g_key_file_unref :: -    Ptr KeyFile ->                          -- _obj : TInterface "GLib" "KeyFile"-    IO ()---keyFileUnref ::-    (MonadIO m) =>-    KeyFile ->                              -- _obj-    m ()-keyFileUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_key_file_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/KeyFile.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.KeyFile where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype KeyFile = KeyFile (ForeignPtr KeyFile)-instance BoxedObject KeyFile where
− GI/GLib/Structs/MainContext.hs 
@@ -1,740 +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 `GMainContext` struct is an opaque data-type representing a set of sources to be handled in a main loop.--}--module GI.GLib.Structs.MainContext-    ( ---- * Exported types-    MainContext(..)                         ,-    noMainContext                           ,--- -- * Methods--- ** mainContextAcquire-    mainContextAcquire                      ,----- ** mainContextAddPoll-    mainContextAddPoll                      ,----- ** mainContextCheck-    mainContextCheck                        ,----- ** mainContextDispatch-    mainContextDispatch                     ,----- ** mainContextFindSourceByFuncsUserData-    mainContextFindSourceByFuncsUserData    ,----- ** mainContextFindSourceById-    mainContextFindSourceById               ,----- ** mainContextFindSourceByUserData-    mainContextFindSourceByUserData         ,----- ** mainContextInvokeFull-    mainContextInvokeFull                   ,----- ** mainContextIsOwner-    mainContextIsOwner                      ,----- ** mainContextIteration-    mainContextIteration                    ,----- ** mainContextNew-    mainContextNew                          ,----- ** mainContextPending-    mainContextPending                      ,----- ** mainContextPopThreadDefault-    mainContextPopThreadDefault             ,----- ** mainContextPrepare-    mainContextPrepare                      ,----- ** mainContextPushThreadDefault-    mainContextPushThreadDefault            ,----- ** mainContextQuery-    mainContextQuery                        ,----- ** mainContextRef-    mainContextRef                          ,----- ** mainContextRelease-    mainContextRelease                      ,----- ** mainContextRemovePoll-    mainContextRemovePoll                   ,----- ** mainContextUnref-    mainContextUnref                        ,----- ** mainContextWait-    mainContextWait                         ,----- ** mainContextWakeup-    mainContextWakeup                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype MainContext = MainContext (ForeignPtr MainContext)-foreign import ccall "g_main_context_get_type" c_g_main_context_get_type :: -    IO GType--instance BoxedObject MainContext where-    boxedType _ = c_g_main_context_get_type--noMainContext :: Maybe MainContext-noMainContext = Nothing---- method MainContext::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "MainContext"--- throws : False--- Skip return : False--foreign import ccall "g_main_context_new" g_main_context_new :: -    IO (Ptr MainContext)---mainContextNew ::-    (MonadIO m) =>-    m MainContext-mainContextNew  = liftIO $ do-    result <- g_main_context_new-    checkUnexpectedReturnNULL "g_main_context_new" result-    result' <- (wrapBoxed MainContext) result-    return result'---- method MainContext::acquire--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_main_context_acquire" g_main_context_acquire :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    IO CInt---mainContextAcquire ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    m Bool-mainContextAcquire _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_main_context_acquire _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method MainContext::add_poll--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_context_add_poll" g_main_context_add_poll :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    Ptr PollFD ->                           -- fd : TInterface "GLib" "PollFD"-    Int32 ->                                -- priority : TBasicType TInt32-    IO ()---mainContextAddPoll ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    PollFD ->                               -- fd-    Int32 ->                                -- priority-    m ()-mainContextAddPoll _obj fd priority = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let fd' = unsafeManagedPtrGetPtr fd-    g_main_context_add_poll _obj' fd' priority-    touchManagedPtr _obj-    touchManagedPtr fd-    return ()---- method MainContext::check--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fds", argType = TCArray False (-1) 3 (TInterface "GLib" "PollFD"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fds", argType = TCArray False (-1) 3 (TInterface "GLib" "PollFD"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_main_context_check" g_main_context_check :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    Int32 ->                                -- max_priority : TBasicType TInt32-    Ptr PollFD ->                           -- fds : TCArray False (-1) 3 (TInterface "GLib" "PollFD")-    Int32 ->                                -- n_fds : TBasicType TInt32-    IO Int32---mainContextCheck ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    Int32 ->                                -- max_priority-    [PollFD] ->                             -- fds-    m Int32-mainContextCheck _obj max_priority fds = liftIO $ do-    let n_fds = fromIntegral $ length fds-    let _obj' = unsafeManagedPtrGetPtr _obj-    let fds' = map unsafeManagedPtrGetPtr fds-    fds'' <- packBlockArray 8 fds'-    result <- g_main_context_check _obj' max_priority fds'' n_fds-    touchManagedPtr _obj-    mapM_ touchManagedPtr fds-    freeMem fds''-    return result---- method MainContext::dispatch--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_context_dispatch" g_main_context_dispatch :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    IO ()---mainContextDispatch ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    m ()-mainContextDispatch _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_main_context_dispatch _obj'-    touchManagedPtr _obj-    return ()---- method MainContext::find_source_by_funcs_user_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_main_context_find_source_by_funcs_user_data" g_main_context_find_source_by_funcs_user_data :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    Ptr SourceFuncs ->                      -- funcs : TInterface "GLib" "SourceFuncs"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO (Ptr Source)---mainContextFindSourceByFuncsUserData ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    SourceFuncs ->                          -- funcs-    Ptr () ->                               -- user_data-    m Source-mainContextFindSourceByFuncsUserData _obj funcs user_data = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let funcs' = unsafeManagedPtrGetPtr funcs-    result <- g_main_context_find_source_by_funcs_user_data _obj' funcs' user_data-    checkUnexpectedReturnNULL "g_main_context_find_source_by_funcs_user_data" result-    result' <- (newBoxed Source) result-    touchManagedPtr _obj-    touchManagedPtr funcs-    return result'---- method MainContext::find_source_by_id--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_main_context_find_source_by_id" g_main_context_find_source_by_id :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    Word32 ->                               -- source_id : TBasicType TUInt32-    IO (Ptr Source)---mainContextFindSourceById ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    Word32 ->                               -- source_id-    m Source-mainContextFindSourceById _obj source_id = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_main_context_find_source_by_id _obj' source_id-    checkUnexpectedReturnNULL "g_main_context_find_source_by_id" result-    result' <- (newBoxed Source) result-    touchManagedPtr _obj-    return result'---- method MainContext::find_source_by_user_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_main_context_find_source_by_user_data" g_main_context_find_source_by_user_data :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO (Ptr Source)---mainContextFindSourceByUserData ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    Ptr () ->                               -- user_data-    m Source-mainContextFindSourceByUserData _obj user_data = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_main_context_find_source_by_user_data _obj' user_data-    checkUnexpectedReturnNULL "g_main_context_find_source_by_user_data" result-    result' <- (newBoxed Source) result-    touchManagedPtr _obj-    return result'---- method MainContext::invoke_full--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_context_invoke_full" g_main_context_invoke_full :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    Int32 ->                                -- priority : TBasicType TInt32-    FunPtr SourceFuncC ->                   -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"-    IO ()---mainContextInvokeFull ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    Int32 ->                                -- priority-    SourceFunc ->                           -- function-    m ()-mainContextInvokeFull _obj priority function = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    function' <- mkSourceFunc (sourceFuncWrapper Nothing function)-    let data_ = castFunPtrToPtr function'-    let notify = safeFreeFunPtrPtr-    g_main_context_invoke_full _obj' priority function' data_ notify-    touchManagedPtr _obj-    return ()---- method MainContext::is_owner--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_main_context_is_owner" g_main_context_is_owner :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    IO CInt---mainContextIsOwner ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    m Bool-mainContextIsOwner _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_main_context_is_owner _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method MainContext::iteration--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_block", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_block", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_main_context_iteration" g_main_context_iteration :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    CInt ->                                 -- may_block : TBasicType TBoolean-    IO CInt---mainContextIteration ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    Bool ->                                 -- may_block-    m Bool-mainContextIteration _obj may_block = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let may_block' = (fromIntegral . fromEnum) may_block-    result <- g_main_context_iteration _obj' may_block'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method MainContext::pending--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_main_context_pending" g_main_context_pending :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    IO CInt---mainContextPending ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    m Bool-mainContextPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_main_context_pending _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method MainContext::pop_thread_default--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_context_pop_thread_default" g_main_context_pop_thread_default :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    IO ()---mainContextPopThreadDefault ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    m ()-mainContextPopThreadDefault _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_main_context_pop_thread_default _obj'-    touchManagedPtr _obj-    return ()---- method MainContext::prepare--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_main_context_prepare" g_main_context_prepare :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    Int32 ->                                -- priority : TBasicType TInt32-    IO CInt---mainContextPrepare ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    Int32 ->                                -- priority-    m Bool-mainContextPrepare _obj priority = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_main_context_prepare _obj' priority-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method MainContext::push_thread_default--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_context_push_thread_default" g_main_context_push_thread_default :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    IO ()---mainContextPushThreadDefault ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    m ()-mainContextPushThreadDefault _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_main_context_push_thread_default _obj'-    touchManagedPtr _obj-    return ()---- method MainContext::query--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "fds", argType = TCArray False (-1) 4 (TInterface "GLib" "PollFD"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_main_context_query" g_main_context_query :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    Int32 ->                                -- max_priority : TBasicType TInt32-    Ptr Int32 ->                            -- timeout_ : TBasicType TInt32-    Ptr (Ptr PollFD) ->                     -- fds : TCArray False (-1) 4 (TInterface "GLib" "PollFD")-    Ptr Int32 ->                            -- n_fds : TBasicType TInt32-    IO Int32---mainContextQuery ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    Int32 ->                                -- max_priority-    m (Int32,Int32,[PollFD])-mainContextQuery _obj max_priority = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    timeout_ <- allocMem :: IO (Ptr Int32)-    fds <- allocMem :: IO (Ptr (Ptr PollFD))-    n_fds <- allocMem :: IO (Ptr Int32)-    result <- g_main_context_query _obj' max_priority timeout_ fds n_fds-    n_fds' <- peek n_fds-    timeout_' <- peek timeout_-    fds' <- peek fds-    fds'' <- (unpackBoxedArrayWithLength 8 n_fds') fds'-    fds''' <- mapM (newBoxed PollFD) fds''-    touchManagedPtr _obj-    freeMem timeout_-    freeMem fds-    freeMem n_fds-    return (result, timeout_', fds''')---- method MainContext::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MainContext"--- throws : False--- Skip return : False--foreign import ccall "g_main_context_ref" g_main_context_ref :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    IO (Ptr MainContext)---mainContextRef ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    m MainContext-mainContextRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_main_context_ref _obj'-    checkUnexpectedReturnNULL "g_main_context_ref" result-    result' <- (wrapBoxed MainContext) result-    touchManagedPtr _obj-    return result'---- method MainContext::release--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_context_release" g_main_context_release :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    IO ()---mainContextRelease ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    m ()-mainContextRelease _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_main_context_release _obj'-    touchManagedPtr _obj-    return ()---- method MainContext::remove_poll--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_context_remove_poll" g_main_context_remove_poll :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    Ptr PollFD ->                           -- fd : TInterface "GLib" "PollFD"-    IO ()---mainContextRemovePoll ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    PollFD ->                               -- fd-    m ()-mainContextRemovePoll _obj fd = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let fd' = unsafeManagedPtrGetPtr fd-    g_main_context_remove_poll _obj' fd'-    touchManagedPtr _obj-    touchManagedPtr fd-    return ()---- method MainContext::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_context_unref" g_main_context_unref :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    IO ()---mainContextUnref ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    m ()-mainContextUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_main_context_unref _obj'-    touchManagedPtr _obj-    return ()---- method MainContext::wait--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cond", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cond", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_main_context_wait" g_main_context_wait :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    Ptr Cond ->                             -- cond : TInterface "GLib" "Cond"-    Ptr Mutex ->                            -- mutex : TInterface "GLib" "Mutex"-    IO CInt---mainContextWait ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    Cond ->                                 -- cond-    Mutex ->                                -- mutex-    m Bool-mainContextWait _obj cond mutex = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let cond' = unsafeManagedPtrGetPtr cond-    let mutex' = unsafeManagedPtrGetPtr mutex-    result <- g_main_context_wait _obj' cond' mutex'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr cond-    touchManagedPtr mutex-    return result'---- method MainContext::wakeup--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_context_wakeup" g_main_context_wakeup :: -    Ptr MainContext ->                      -- _obj : TInterface "GLib" "MainContext"-    IO ()---mainContextWakeup ::-    (MonadIO m) =>-    MainContext ->                          -- _obj-    m ()-mainContextWakeup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_main_context_wakeup _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/MainContext.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.MainContext where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MainContext = MainContext (ForeignPtr MainContext)-instance BoxedObject MainContext where
− GI/GLib/Structs/MainLoop.hs 
@@ -1,254 +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 `GMainLoop` struct is an opaque data type-representing the main event loop of a GLib or GTK+ application.--}--module GI.GLib.Structs.MainLoop-    ( ---- * Exported types-    MainLoop(..)                            ,-    noMainLoop                              ,--- -- * Methods--- ** mainLoopGetContext-    mainLoopGetContext                      ,----- ** mainLoopIsRunning-    mainLoopIsRunning                       ,----- ** mainLoopNew-    mainLoopNew                             ,----- ** mainLoopQuit-    mainLoopQuit                            ,----- ** mainLoopRef-    mainLoopRef                             ,----- ** mainLoopRun-    mainLoopRun                             ,----- ** mainLoopUnref-    mainLoopUnref                           ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype MainLoop = MainLoop (ForeignPtr MainLoop)-foreign import ccall "g_main_loop_get_type" c_g_main_loop_get_type :: -    IO GType--instance BoxedObject MainLoop where-    boxedType _ = c_g_main_loop_get_type--noMainLoop :: Maybe MainLoop-noMainLoop = Nothing---- method MainLoop::new--- method type : Constructor--- Args : [Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_running", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_running", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MainLoop"--- throws : False--- Skip return : False--foreign import ccall "g_main_loop_new" g_main_loop_new :: -    Ptr MainContext ->                      -- context : TInterface "GLib" "MainContext"-    CInt ->                                 -- is_running : TBasicType TBoolean-    IO (Ptr MainLoop)---mainLoopNew ::-    (MonadIO m) =>-    Maybe (MainContext) ->                  -- context-    Bool ->                                 -- is_running-    m MainLoop-mainLoopNew context is_running = liftIO $ do-    maybeContext <- case context of-        Nothing -> return nullPtr-        Just jContext -> do-            let jContext' = unsafeManagedPtrGetPtr jContext-            return jContext'-    let is_running' = (fromIntegral . fromEnum) is_running-    result <- g_main_loop_new maybeContext is_running'-    checkUnexpectedReturnNULL "g_main_loop_new" result-    result' <- (wrapBoxed MainLoop) result-    whenJust context touchManagedPtr-    return result'---- method MainLoop::get_context--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MainContext"--- throws : False--- Skip return : False--foreign import ccall "g_main_loop_get_context" g_main_loop_get_context :: -    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"-    IO (Ptr MainContext)---mainLoopGetContext ::-    (MonadIO m) =>-    MainLoop ->                             -- _obj-    m MainContext-mainLoopGetContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_main_loop_get_context _obj'-    checkUnexpectedReturnNULL "g_main_loop_get_context" result-    result' <- (newBoxed MainContext) result-    touchManagedPtr _obj-    return result'---- method MainLoop::is_running--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_main_loop_is_running" g_main_loop_is_running :: -    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"-    IO CInt---mainLoopIsRunning ::-    (MonadIO m) =>-    MainLoop ->                             -- _obj-    m Bool-mainLoopIsRunning _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_main_loop_is_running _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method MainLoop::quit--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_loop_quit" g_main_loop_quit :: -    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"-    IO ()---mainLoopQuit ::-    (MonadIO m) =>-    MainLoop ->                             -- _obj-    m ()-mainLoopQuit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_main_loop_quit _obj'-    touchManagedPtr _obj-    return ()---- method MainLoop::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MainLoop"--- throws : False--- Skip return : False--foreign import ccall "g_main_loop_ref" g_main_loop_ref :: -    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"-    IO (Ptr MainLoop)---mainLoopRef ::-    (MonadIO m) =>-    MainLoop ->                             -- _obj-    m MainLoop-mainLoopRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_main_loop_ref _obj'-    checkUnexpectedReturnNULL "g_main_loop_ref" result-    result' <- (wrapBoxed MainLoop) result-    touchManagedPtr _obj-    return result'---- method MainLoop::run--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_loop_run" g_main_loop_run :: -    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"-    IO ()---mainLoopRun ::-    (MonadIO m) =>-    MainLoop ->                             -- _obj-    m ()-mainLoopRun _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_main_loop_run _obj'-    touchManagedPtr _obj-    return ()---- method MainLoop::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_main_loop_unref" g_main_loop_unref :: -    Ptr MainLoop ->                         -- _obj : TInterface "GLib" "MainLoop"-    IO ()---mainLoopUnref ::-    (MonadIO m) =>-    MainLoop ->                             -- _obj-    m ()-mainLoopUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_main_loop_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/MainLoop.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.MainLoop where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MainLoop = MainLoop (ForeignPtr MainLoop)-instance BoxedObject MainLoop where
− GI/GLib/Structs/MappedFile.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)--The #GMappedFile represents a file mapping created with-g_mapped_file_new(). It has only private members and should-not be accessed directly.--}--module GI.GLib.Structs.MappedFile-    ( ---- * Exported types-    MappedFile(..)                          ,-    noMappedFile                            ,--- -- * Methods--- ** mappedFileFree-    mappedFileFree                          ,----- ** mappedFileGetBytes-    mappedFileGetBytes                      ,----- ** mappedFileGetContents-    mappedFileGetContents                   ,----- ** mappedFileGetLength-    mappedFileGetLength                     ,----- ** mappedFileNew-    mappedFileNew                           ,----- ** mappedFileNewFromFd-    mappedFileNewFromFd                     ,----- ** mappedFileRef-    mappedFileRef                           ,----- ** mappedFileUnref-    mappedFileUnref                         ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype MappedFile = MappedFile (ForeignPtr MappedFile)-foreign import ccall "g_mapped_file_get_type" c_g_mapped_file_get_type :: -    IO GType--instance BoxedObject MappedFile where-    boxedType _ = c_g_mapped_file_get_type--noMappedFile :: Maybe MappedFile-noMappedFile = Nothing---- method MappedFile::new--- method type : Constructor--- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MappedFile"--- throws : True--- Skip return : False--foreign import ccall "g_mapped_file_new" g_mapped_file_new :: -    CString ->                              -- filename : TBasicType TUTF8-    CInt ->                                 -- writable : TBasicType TBoolean-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr MappedFile)---mappedFileNew ::-    (MonadIO m) =>-    T.Text ->                               -- filename-    Bool ->                                 -- writable-    m MappedFile-mappedFileNew filename writable = liftIO $ do-    filename' <- textToCString filename-    let writable' = (fromIntegral . fromEnum) writable-    onException (do-        result <- propagateGError $ g_mapped_file_new filename' writable'-        checkUnexpectedReturnNULL "g_mapped_file_new" result-        result' <- (wrapBoxed MappedFile) result-        freeMem filename'-        return result'-     ) (do-        freeMem filename'-     )---- method MappedFile::new_from_fd--- method type : Constructor--- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MappedFile"--- throws : True--- Skip return : False--foreign import ccall "g_mapped_file_new_from_fd" g_mapped_file_new_from_fd :: -    Int32 ->                                -- fd : TBasicType TInt32-    CInt ->                                 -- writable : TBasicType TBoolean-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr MappedFile)---mappedFileNewFromFd ::-    (MonadIO m) =>-    Int32 ->                                -- fd-    Bool ->                                 -- writable-    m MappedFile-mappedFileNewFromFd fd writable = liftIO $ do-    let writable' = (fromIntegral . fromEnum) writable-    onException (do-        result <- propagateGError $ g_mapped_file_new_from_fd fd writable'-        checkUnexpectedReturnNULL "g_mapped_file_new_from_fd" result-        result' <- (wrapBoxed MappedFile) result-        return result'-     ) (do-        return ()-     )---- method MappedFile::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_mapped_file_free" g_mapped_file_free :: -    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"-    IO ()--{-# DEPRECATED mappedFileFree ["(Since version 2.22)","Use g_mapped_file_unref() instead."]#-}-mappedFileFree ::-    (MonadIO m) =>-    MappedFile ->                           -- _obj-    m ()-mappedFileFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_mapped_file_free _obj'-    touchManagedPtr _obj-    return ()---- method MappedFile::get_bytes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Bytes"--- throws : False--- Skip return : False--foreign import ccall "g_mapped_file_get_bytes" g_mapped_file_get_bytes :: -    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"-    IO (Ptr Bytes)---mappedFileGetBytes ::-    (MonadIO m) =>-    MappedFile ->                           -- _obj-    m Bytes-mappedFileGetBytes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_mapped_file_get_bytes _obj'-    checkUnexpectedReturnNULL "g_mapped_file_get_bytes" result-    result' <- (wrapBoxed Bytes) result-    touchManagedPtr _obj-    return result'---- method MappedFile::get_contents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_mapped_file_get_contents" g_mapped_file_get_contents :: -    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"-    IO CString---mappedFileGetContents ::-    (MonadIO m) =>-    MappedFile ->                           -- _obj-    m T.Text-mappedFileGetContents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_mapped_file_get_contents _obj'-    checkUnexpectedReturnNULL "g_mapped_file_get_contents" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method MappedFile::get_length--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_mapped_file_get_length" g_mapped_file_get_length :: -    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"-    IO Word64---mappedFileGetLength ::-    (MonadIO m) =>-    MappedFile ->                           -- _obj-    m Word64-mappedFileGetLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_mapped_file_get_length _obj'-    touchManagedPtr _obj-    return result---- method MappedFile::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MappedFile"--- throws : False--- Skip return : False--foreign import ccall "g_mapped_file_ref" g_mapped_file_ref :: -    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"-    IO (Ptr MappedFile)---mappedFileRef ::-    (MonadIO m) =>-    MappedFile ->                           -- _obj-    m MappedFile-mappedFileRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_mapped_file_ref _obj'-    checkUnexpectedReturnNULL "g_mapped_file_ref" result-    result' <- (wrapBoxed MappedFile) result-    touchManagedPtr _obj-    return result'---- method MappedFile::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_mapped_file_unref" g_mapped_file_unref :: -    Ptr MappedFile ->                       -- _obj : TInterface "GLib" "MappedFile"-    IO ()---mappedFileUnref ::-    (MonadIO m) =>-    MappedFile ->                           -- _obj-    m ()-mappedFileUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_mapped_file_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/MappedFile.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.MappedFile where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MappedFile = MappedFile (ForeignPtr MappedFile)-instance BoxedObject MappedFile where
− GI/GLib/Structs/MarkupParseContext.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)--A parse context is used to parse a stream of bytes that-you expect to contain marked-up text.--See g_markup_parse_context_new(), #GMarkupParser, and so-on for more details.--}--module GI.GLib.Structs.MarkupParseContext-    ( ---- * Exported types-    MarkupParseContext(..)                  ,-    noMarkupParseContext                    ,--- -- * Methods--- ** markupParseContextEndParse-    markupParseContextEndParse              ,----- ** markupParseContextFree-    markupParseContextFree                  ,----- ** markupParseContextGetElement-    markupParseContextGetElement            ,----- ** markupParseContextNew-    markupParseContextNew                   ,----- ** markupParseContextParse-    markupParseContextParse                 ,----- ** markupParseContextPush-    markupParseContextPush                  ,----- ** markupParseContextRef-    markupParseContextRef                   ,----- ** markupParseContextUnref-    markupParseContextUnref                 ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype MarkupParseContext = MarkupParseContext (ForeignPtr MarkupParseContext)-foreign import ccall "g_markup_parse_context_get_type" c_g_markup_parse_context_get_type :: -    IO GType--instance BoxedObject MarkupParseContext where-    boxedType _ = c_g_markup_parse_context_get_type--noMarkupParseContext :: Maybe MarkupParseContext-noMarkupParseContext = Nothing---- method MarkupParseContext::new--- method type : Constructor--- Args : [Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "MarkupParseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "MarkupParseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MarkupParseContext"--- throws : False--- Skip return : False--foreign import ccall "g_markup_parse_context_new" g_markup_parse_context_new :: -    Ptr MarkupParser ->                     -- parser : TInterface "GLib" "MarkupParser"-    CUInt ->                                -- flags : TInterface "GLib" "MarkupParseFlags"-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- user_data_dnotify : TInterface "GLib" "DestroyNotify"-    IO (Ptr MarkupParseContext)---markupParseContextNew ::-    (MonadIO m) =>-    MarkupParser ->                         -- parser-    [MarkupParseFlags] ->                   -- flags-    Ptr () ->                               -- user_data-    DestroyNotify ->                        -- user_data_dnotify-    m MarkupParseContext-markupParseContextNew parser flags user_data user_data_dnotify = liftIO $ do-    let parser' = unsafeManagedPtrGetPtr parser-    let flags' = gflagsToWord flags-    ptruser_data_dnotify <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))-    user_data_dnotify' <- mkDestroyNotify (destroyNotifyWrapper (Just ptruser_data_dnotify) user_data_dnotify)-    poke ptruser_data_dnotify user_data_dnotify'-    result <- g_markup_parse_context_new parser' flags' user_data user_data_dnotify'-    checkUnexpectedReturnNULL "g_markup_parse_context_new" result-    result' <- (wrapBoxed MarkupParseContext) result-    touchManagedPtr parser-    return result'---- method MarkupParseContext::end_parse--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_markup_parse_context_end_parse" g_markup_parse_context_end_parse :: -    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---markupParseContextEndParse ::-    (MonadIO m) =>-    MarkupParseContext ->                   -- _obj-    m ()-markupParseContextEndParse _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    onException (do-        _ <- propagateGError $ g_markup_parse_context_end_parse _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )---- method MarkupParseContext::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_markup_parse_context_free" g_markup_parse_context_free :: -    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"-    IO ()---markupParseContextFree ::-    (MonadIO m) =>-    MarkupParseContext ->                   -- _obj-    m ()-markupParseContextFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_markup_parse_context_free _obj'-    touchManagedPtr _obj-    return ()---- method MarkupParseContext::get_element--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_markup_parse_context_get_element" g_markup_parse_context_get_element :: -    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"-    IO CString---markupParseContextGetElement ::-    (MonadIO m) =>-    MarkupParseContext ->                   -- _obj-    m T.Text-markupParseContextGetElement _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_markup_parse_context_get_element _obj'-    checkUnexpectedReturnNULL "g_markup_parse_context_get_element" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method MarkupParseContext::parse--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_markup_parse_context_parse" g_markup_parse_context_parse :: -    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"-    CString ->                              -- text : TBasicType TUTF8-    Int64 ->                                -- text_len : TBasicType TInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt---markupParseContextParse ::-    (MonadIO m) =>-    MarkupParseContext ->                   -- _obj-    T.Text ->                               -- text-    Int64 ->                                -- text_len-    m ()-markupParseContextParse _obj text text_len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    text' <- textToCString text-    onException (do-        _ <- propagateGError $ g_markup_parse_context_parse _obj' text' text_len-        touchManagedPtr _obj-        freeMem text'-        return ()-     ) (do-        freeMem text'-     )---- method MarkupParseContext::push--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_markup_parse_context_push" g_markup_parse_context_push :: -    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"-    Ptr MarkupParser ->                     -- parser : TInterface "GLib" "MarkupParser"-    Ptr () ->                               -- user_data : TBasicType TVoid-    IO ()---markupParseContextPush ::-    (MonadIO m) =>-    MarkupParseContext ->                   -- _obj-    MarkupParser ->                         -- parser-    Ptr () ->                               -- user_data-    m ()-markupParseContextPush _obj parser user_data = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let parser' = unsafeManagedPtrGetPtr parser-    g_markup_parse_context_push _obj' parser' user_data-    touchManagedPtr _obj-    touchManagedPtr parser-    return ()---- method MarkupParseContext::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MarkupParseContext"--- throws : False--- Skip return : False--foreign import ccall "g_markup_parse_context_ref" g_markup_parse_context_ref :: -    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"-    IO (Ptr MarkupParseContext)---markupParseContextRef ::-    (MonadIO m) =>-    MarkupParseContext ->                   -- _obj-    m MarkupParseContext-markupParseContextRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_markup_parse_context_ref _obj'-    checkUnexpectedReturnNULL "g_markup_parse_context_ref" result-    result' <- (wrapBoxed MarkupParseContext) result-    touchManagedPtr _obj-    return result'---- method MarkupParseContext::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_markup_parse_context_unref" g_markup_parse_context_unref :: -    Ptr MarkupParseContext ->               -- _obj : TInterface "GLib" "MarkupParseContext"-    IO ()---markupParseContextUnref ::-    (MonadIO m) =>-    MarkupParseContext ->                   -- _obj-    m ()-markupParseContextUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_markup_parse_context_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/MarkupParseContext.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.MarkupParseContext where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MarkupParseContext = MarkupParseContext (ForeignPtr MarkupParseContext)-instance BoxedObject MarkupParseContext where
− GI/GLib/Structs/MarkupParser.hs 
@@ -1,50 +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)--Any of the fields in #GMarkupParser can be %NULL, in which case they-will be ignored. Except for the @error function, any of these callbacks-can set an error; in particular the %G_MARKUP_ERROR_UNKNOWN_ELEMENT,-%G_MARKUP_ERROR_UNKNOWN_ATTRIBUTE, and %G_MARKUP_ERROR_INVALID_CONTENT-errors are intended to be set from these callbacks. If you set an error-from a callback, g_markup_parse_context_parse() will report that error-back to its caller.--}--module GI.GLib.Structs.MarkupParser-    ( ---- * Exported types-    MarkupParser(..)                        ,-    noMarkupParser                          ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype MarkupParser = MarkupParser (ForeignPtr MarkupParser)-noMarkupParser :: Maybe MarkupParser-noMarkupParser = Nothing---- XXX Skipped getter for "MarkupParser:start_element" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "MarkupParser:end_element" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "MarkupParser:text" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "MarkupParser:passthrough" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "MarkupParser:error" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--
− GI/GLib/Structs/MarkupParser.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.MarkupParser where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MarkupParser = MarkupParser (ForeignPtr MarkupParser)
− GI/GLib/Structs/MatchInfo.hs 
@@ -1,529 +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)--A GMatchInfo is an opaque struct used to return information about-matches.--}--module GI.GLib.Structs.MatchInfo-    ( ---- * Exported types-    MatchInfo(..)                           ,-    noMatchInfo                             ,--- -- * Methods--- ** matchInfoExpandReferences-    matchInfoExpandReferences               ,----- ** matchInfoFetch-    matchInfoFetch                          ,----- ** matchInfoFetchAll-    matchInfoFetchAll                       ,----- ** matchInfoFetchNamed-    matchInfoFetchNamed                     ,----- ** matchInfoFetchNamedPos-    matchInfoFetchNamedPos                  ,----- ** matchInfoFetchPos-    matchInfoFetchPos                       ,----- ** matchInfoFree-    matchInfoFree                           ,----- ** matchInfoGetMatchCount-    matchInfoGetMatchCount                  ,----- ** matchInfoGetRegex-    matchInfoGetRegex                       ,----- ** matchInfoGetString-    matchInfoGetString                      ,----- ** matchInfoIsPartialMatch-    matchInfoIsPartialMatch                 ,----- ** matchInfoMatches-    matchInfoMatches                        ,----- ** matchInfoNext-    matchInfoNext                           ,----- ** matchInfoRef-    matchInfoRef                            ,----- ** matchInfoUnref-    matchInfoUnref                          ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype MatchInfo = MatchInfo (ForeignPtr MatchInfo)-foreign import ccall "g_match_info_get_type" c_g_match_info_get_type :: -    IO GType--instance BoxedObject MatchInfo where-    boxedType _ = c_g_match_info_get_type--noMatchInfo :: Maybe MatchInfo-noMatchInfo = Nothing---- method MatchInfo::expand_references--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_to_expand", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_to_expand", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_match_info_expand_references" g_match_info_expand_references :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    CString ->                              -- string_to_expand : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---matchInfoExpandReferences ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    T.Text ->                               -- string_to_expand-    m T.Text-matchInfoExpandReferences _obj string_to_expand = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    string_to_expand' <- textToCString string_to_expand-    onException (do-        result <- propagateGError $ g_match_info_expand_references _obj' string_to_expand'-        checkUnexpectedReturnNULL "g_match_info_expand_references" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        freeMem string_to_expand'-        return result'-     ) (do-        freeMem string_to_expand'-     )---- method MatchInfo::fetch--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_match_info_fetch" g_match_info_fetch :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    Int32 ->                                -- match_num : TBasicType TInt32-    IO CString---matchInfoFetch ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    Int32 ->                                -- match_num-    m T.Text-matchInfoFetch _obj match_num = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_match_info_fetch _obj' match_num-    checkUnexpectedReturnNULL "g_match_info_fetch" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method MatchInfo::fetch_all--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_match_info_fetch_all" g_match_info_fetch_all :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    IO (Ptr CString)---matchInfoFetchAll ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    m [T.Text]-matchInfoFetchAll _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_match_info_fetch_all _obj'-    checkUnexpectedReturnNULL "g_match_info_fetch_all" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    return result'---- method MatchInfo::fetch_named--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_match_info_fetch_named" g_match_info_fetch_named :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    CString ->                              -- name : TBasicType TUTF8-    IO CString---matchInfoFetchNamed ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    T.Text ->                               -- name-    m T.Text-matchInfoFetchNamed _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- g_match_info_fetch_named _obj' name'-    checkUnexpectedReturnNULL "g_match_info_fetch_named" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem name'-    return result'---- method MatchInfo::fetch_named_pos--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_match_info_fetch_named_pos" g_match_info_fetch_named_pos :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    CString ->                              -- name : TBasicType TUTF8-    Ptr Int32 ->                            -- start_pos : TBasicType TInt32-    Ptr Int32 ->                            -- end_pos : TBasicType TInt32-    IO CInt---matchInfoFetchNamedPos ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    T.Text ->                               -- name-    m (Bool,Int32,Int32)-matchInfoFetchNamedPos _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    start_pos <- allocMem :: IO (Ptr Int32)-    end_pos <- allocMem :: IO (Ptr Int32)-    result <- g_match_info_fetch_named_pos _obj' name' start_pos end_pos-    let result' = (/= 0) result-    start_pos' <- peek start_pos-    end_pos' <- peek end_pos-    touchManagedPtr _obj-    freeMem name'-    freeMem start_pos-    freeMem end_pos-    return (result', start_pos', end_pos')---- method MatchInfo::fetch_pos--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_match_info_fetch_pos" g_match_info_fetch_pos :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    Int32 ->                                -- match_num : TBasicType TInt32-    Ptr Int32 ->                            -- start_pos : TBasicType TInt32-    Ptr Int32 ->                            -- end_pos : TBasicType TInt32-    IO CInt---matchInfoFetchPos ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    Int32 ->                                -- match_num-    m (Bool,Int32,Int32)-matchInfoFetchPos _obj match_num = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    start_pos <- allocMem :: IO (Ptr Int32)-    end_pos <- allocMem :: IO (Ptr Int32)-    result <- g_match_info_fetch_pos _obj' match_num start_pos end_pos-    let result' = (/= 0) result-    start_pos' <- peek start_pos-    end_pos' <- peek end_pos-    touchManagedPtr _obj-    freeMem start_pos-    freeMem end_pos-    return (result', start_pos', end_pos')---- method MatchInfo::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_match_info_free" g_match_info_free :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    IO ()---matchInfoFree ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    m ()-matchInfoFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_match_info_free _obj'-    touchManagedPtr _obj-    return ()---- method MatchInfo::get_match_count--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_match_info_get_match_count" g_match_info_get_match_count :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    IO Int32---matchInfoGetMatchCount ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    m Int32-matchInfoGetMatchCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_match_info_get_match_count _obj'-    touchManagedPtr _obj-    return result---- method MatchInfo::get_regex--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Regex"--- throws : False--- Skip return : False--foreign import ccall "g_match_info_get_regex" g_match_info_get_regex :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    IO (Ptr Regex)---matchInfoGetRegex ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    m Regex-matchInfoGetRegex _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_match_info_get_regex _obj'-    checkUnexpectedReturnNULL "g_match_info_get_regex" result-    result' <- (wrapBoxed Regex) result-    touchManagedPtr _obj-    return result'---- method MatchInfo::get_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_match_info_get_string" g_match_info_get_string :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    IO CString---matchInfoGetString ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    m T.Text-matchInfoGetString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_match_info_get_string _obj'-    checkUnexpectedReturnNULL "g_match_info_get_string" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method MatchInfo::is_partial_match--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_match_info_is_partial_match" g_match_info_is_partial_match :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    IO CInt---matchInfoIsPartialMatch ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    m Bool-matchInfoIsPartialMatch _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_match_info_is_partial_match _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method MatchInfo::matches--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_match_info_matches" g_match_info_matches :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    IO CInt---matchInfoMatches ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    m Bool-matchInfoMatches _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_match_info_matches _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method MatchInfo::next--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_match_info_next" g_match_info_next :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---matchInfoNext ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    m ()-matchInfoNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    onException (do-        _ <- propagateGError $ g_match_info_next _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )---- method MatchInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MatchInfo"--- throws : False--- Skip return : False--foreign import ccall "g_match_info_ref" g_match_info_ref :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    IO (Ptr MatchInfo)---matchInfoRef ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    m MatchInfo-matchInfoRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_match_info_ref _obj'-    checkUnexpectedReturnNULL "g_match_info_ref" result-    result' <- (wrapBoxed MatchInfo) result-    touchManagedPtr _obj-    return result'---- method MatchInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_match_info_unref" g_match_info_unref :: -    Ptr MatchInfo ->                        -- _obj : TInterface "GLib" "MatchInfo"-    IO ()---matchInfoUnref ::-    (MonadIO m) =>-    MatchInfo ->                            -- _obj-    m ()-matchInfoUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_match_info_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/MatchInfo.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.MatchInfo where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MatchInfo = MatchInfo (ForeignPtr MatchInfo)-instance BoxedObject MatchInfo where
− GI/GLib/Structs/MemVTable.hs 
@@ -1,38 +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)--A set of functions used to perform memory allocation. The same #GMemVTable must-be used for all allocations in the same program; a call to g_mem_set_vtable(),-if it exists, should be prior to any use of GLib.--}--module GI.GLib.Structs.MemVTable-    ( ---- * Exported types-    MemVTable(..)                           ,-    noMemVTable                             ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype MemVTable = MemVTable (ForeignPtr MemVTable)-noMemVTable :: Maybe MemVTable-noMemVTable = Nothing---- XXX Skipped getter for "MemVTable:free" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--
− GI/GLib/Structs/MemVTable.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.MemVTable where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MemVTable = MemVTable (ForeignPtr MemVTable)
− GI/GLib/Structs/Node.hs 
@@ -1,383 +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 #GNode struct represents one node in a [n-ary tree][glib-N-ary-Trees].--}--module GI.GLib.Structs.Node-    ( ---- * Exported types-    Node(..)                                ,-    noNode                                  ,--- -- * Methods--- ** nodeChildIndex-    nodeChildIndex                          ,----- ** nodeChildPosition-    nodeChildPosition                       ,----- ** nodeDepth-    nodeDepth                               ,----- ** nodeDestroy-    nodeDestroy                             ,----- ** nodeIsAncestor-    nodeIsAncestor                          ,----- ** nodeMaxHeight-    nodeMaxHeight                           ,----- ** nodeNChildren-    nodeNChildren                           ,----- ** nodeNNodes-    nodeNNodes                              ,----- ** nodeReverseChildren-    nodeReverseChildren                     ,----- ** nodeUnlink-    nodeUnlink                              ,----- -- * Properties--- ** Children-    nodeReadChildren                        ,----- ** Data-    nodeReadData                            ,----- ** Next-    nodeReadNext                            ,----- ** Parent-    nodeReadParent                          ,----- ** Prev-    nodeReadPrev                            ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Node = Node (ForeignPtr Node)-noNode :: Maybe Node-noNode = Nothing--nodeReadData :: Node -> IO (Ptr ())-nodeReadData s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--nodeReadNext :: Node -> IO Node-nodeReadNext s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Node)-    val' <- (newPtr 40 Node) val-    return val'--nodeReadPrev :: Node -> IO Node-nodeReadPrev s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Node)-    val' <- (newPtr 40 Node) val-    return val'--nodeReadParent :: Node -> IO Node-nodeReadParent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Node)-    val' <- (newPtr 40 Node) val-    return val'--nodeReadChildren :: Node -> IO Node-nodeReadChildren s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Node)-    val' <- (newPtr 40 Node) val-    return val'---- method Node::child_index--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_node_child_index" g_node_child_index :: -    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"-    Ptr () ->                               -- data : TBasicType TVoid-    IO Int32---nodeChildIndex ::-    (MonadIO m) =>-    Node ->                                 -- _obj-    Ptr () ->                               -- data-    m Int32-nodeChildIndex _obj data_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_node_child_index _obj' data_-    touchManagedPtr _obj-    return result---- method Node::child_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_node_child_position" g_node_child_position :: -    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"-    Ptr Node ->                             -- child : TInterface "GLib" "Node"-    IO Int32---nodeChildPosition ::-    (MonadIO m) =>-    Node ->                                 -- _obj-    Node ->                                 -- child-    m Int32-nodeChildPosition _obj child = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let child' = unsafeManagedPtrGetPtr child-    result <- g_node_child_position _obj' child'-    touchManagedPtr _obj-    touchManagedPtr child-    return result---- method Node::depth--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_node_depth" g_node_depth :: -    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"-    IO Word32---nodeDepth ::-    (MonadIO m) =>-    Node ->                                 -- _obj-    m Word32-nodeDepth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_node_depth _obj'-    touchManagedPtr _obj-    return result---- method Node::destroy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_node_destroy" g_node_destroy :: -    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"-    IO ()---nodeDestroy ::-    (MonadIO m) =>-    Node ->                                 -- _obj-    m ()-nodeDestroy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_node_destroy _obj'-    touchManagedPtr _obj-    return ()---- method Node::is_ancestor--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_node_is_ancestor" g_node_is_ancestor :: -    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"-    Ptr Node ->                             -- descendant : TInterface "GLib" "Node"-    IO CInt---nodeIsAncestor ::-    (MonadIO m) =>-    Node ->                                 -- _obj-    Node ->                                 -- descendant-    m Bool-nodeIsAncestor _obj descendant = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let descendant' = unsafeManagedPtrGetPtr descendant-    result <- g_node_is_ancestor _obj' descendant'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr descendant-    return result'---- method Node::max_height--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_node_max_height" g_node_max_height :: -    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"-    IO Word32---nodeMaxHeight ::-    (MonadIO m) =>-    Node ->                                 -- _obj-    m Word32-nodeMaxHeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_node_max_height _obj'-    touchManagedPtr _obj-    return result---- method Node::n_children--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_node_n_children" g_node_n_children :: -    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"-    IO Word32---nodeNChildren ::-    (MonadIO m) =>-    Node ->                                 -- _obj-    m Word32-nodeNChildren _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_node_n_children _obj'-    touchManagedPtr _obj-    return result---- method Node::n_nodes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "TraverseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "TraverseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_node_n_nodes" g_node_n_nodes :: -    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"-    CUInt ->                                -- flags : TInterface "GLib" "TraverseFlags"-    IO Word32---nodeNNodes ::-    (MonadIO m) =>-    Node ->                                 -- _obj-    [TraverseFlags] ->                      -- flags-    m Word32-nodeNNodes _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let flags' = gflagsToWord flags-    result <- g_node_n_nodes _obj' flags'-    touchManagedPtr _obj-    return result---- method Node::reverse_children--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_node_reverse_children" g_node_reverse_children :: -    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"-    IO ()---nodeReverseChildren ::-    (MonadIO m) =>-    Node ->                                 -- _obj-    m ()-nodeReverseChildren _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_node_reverse_children _obj'-    touchManagedPtr _obj-    return ()---- method Node::unlink--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_node_unlink" g_node_unlink :: -    Ptr Node ->                             -- _obj : TInterface "GLib" "Node"-    IO ()---nodeUnlink ::-    (MonadIO m) =>-    Node ->                                 -- _obj-    m ()-nodeUnlink _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_node_unlink _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/Node.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Node where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Node = Node (ForeignPtr Node)
− GI/GLib/Structs/Once.hs 
@@ -1,58 +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)--A #GOnce struct controls a one-time initialization function. Any-one-time initialization function must have its own unique #GOnce-struct.--}--module GI.GLib.Structs.Once-    ( ---- * Exported types-    Once(..)                                ,-    noOnce                                  ,--- -- * Properties--- ** Retval-    onceReadRetval                          ,----- ** Status-    onceReadStatus                          ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Once = Once (ForeignPtr Once)-noOnce :: Maybe Once-noOnce = Nothing--onceReadStatus :: Once -> IO OnceStatus-onceReadStatus s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--onceReadRetval :: Once -> IO (Ptr ())-onceReadRetval s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr ())-    return val--
− GI/GLib/Structs/Once.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Once where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Once = Once (ForeignPtr Once)
− GI/GLib/Structs/OptionContext.hs 
@@ -1,667 +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)--A `GOptionContext` struct defines which options-are accepted by the commandline option parser. The struct has only private-fields and should not be directly accessed.--}--module GI.GLib.Structs.OptionContext-    ( ---- * Exported types-    OptionContext(..)                       ,-    noOptionContext                         ,--- -- * Methods--- ** optionContextAddGroup-    optionContextAddGroup                   ,----- ** optionContextAddMainEntries-    optionContextAddMainEntries             ,----- ** optionContextFree-    optionContextFree                       ,----- ** optionContextGetDescription-    optionContextGetDescription             ,----- ** optionContextGetHelp-    optionContextGetHelp                    ,----- ** optionContextGetHelpEnabled-    optionContextGetHelpEnabled             ,----- ** optionContextGetIgnoreUnknownOptions-    optionContextGetIgnoreUnknownOptions    ,----- ** optionContextGetMainGroup-    optionContextGetMainGroup               ,----- ** optionContextGetStrictPosix-    optionContextGetStrictPosix             ,----- ** optionContextGetSummary-    optionContextGetSummary                 ,----- ** optionContextParseStrv-    optionContextParseStrv                  ,----- ** optionContextSetDescription-    optionContextSetDescription             ,----- ** optionContextSetHelpEnabled-    optionContextSetHelpEnabled             ,----- ** optionContextSetIgnoreUnknownOptions-    optionContextSetIgnoreUnknownOptions    ,----- ** optionContextSetMainGroup-    optionContextSetMainGroup               ,----- ** optionContextSetStrictPosix-    optionContextSetStrictPosix             ,----- ** optionContextSetSummary-    optionContextSetSummary                 ,----- ** optionContextSetTranslateFunc-    optionContextSetTranslateFunc           ,----- ** optionContextSetTranslationDomain-    optionContextSetTranslationDomain       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype OptionContext = OptionContext (ForeignPtr OptionContext)-noOptionContext :: Maybe OptionContext-noOptionContext = Nothing---- method OptionContext::add_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_context_add_group" g_option_context_add_group :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    Ptr OptionGroup ->                      -- group : TInterface "GLib" "OptionGroup"-    IO ()---optionContextAddGroup ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    OptionGroup ->                          -- group-    m ()-optionContextAddGroup _obj group = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group' <- copyBoxed group-    g_option_context_add_group _obj' group'-    touchManagedPtr _obj-    touchManagedPtr group-    return ()---- method OptionContext::add_main_entries--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_context_add_main_entries" g_option_context_add_main_entries :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    Ptr OptionEntry ->                      -- entries : TInterface "GLib" "OptionEntry"-    CString ->                              -- translation_domain : TBasicType TUTF8-    IO ()---optionContextAddMainEntries ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    OptionEntry ->                          -- entries-    Maybe (T.Text) ->                       -- translation_domain-    m ()-optionContextAddMainEntries _obj entries translation_domain = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let entries' = unsafeManagedPtrGetPtr entries-    maybeTranslation_domain <- case translation_domain of-        Nothing -> return nullPtr-        Just jTranslation_domain -> do-            jTranslation_domain' <- textToCString jTranslation_domain-            return jTranslation_domain'-    g_option_context_add_main_entries _obj' entries' maybeTranslation_domain-    touchManagedPtr _obj-    touchManagedPtr entries-    freeMem maybeTranslation_domain-    return ()---- method OptionContext::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_context_free" g_option_context_free :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    IO ()---optionContextFree ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    m ()-optionContextFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_option_context_free _obj'-    touchManagedPtr _obj-    return ()---- method OptionContext::get_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_option_context_get_description" g_option_context_get_description :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    IO CString---optionContextGetDescription ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    m T.Text-optionContextGetDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_option_context_get_description _obj'-    checkUnexpectedReturnNULL "g_option_context_get_description" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method OptionContext::get_help--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "main_help", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "main_help", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_option_context_get_help" g_option_context_get_help :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    CInt ->                                 -- main_help : TBasicType TBoolean-    Ptr OptionGroup ->                      -- group : TInterface "GLib" "OptionGroup"-    IO CString---optionContextGetHelp ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    Bool ->                                 -- main_help-    Maybe (OptionGroup) ->                  -- group-    m T.Text-optionContextGetHelp _obj main_help group = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let main_help' = (fromIntegral . fromEnum) main_help-    maybeGroup <- case group of-        Nothing -> return nullPtr-        Just jGroup -> do-            let jGroup' = unsafeManagedPtrGetPtr jGroup-            return jGroup'-    result <- g_option_context_get_help _obj' main_help' maybeGroup-    checkUnexpectedReturnNULL "g_option_context_get_help" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    whenJust group touchManagedPtr-    return result'---- method OptionContext::get_help_enabled--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_option_context_get_help_enabled" g_option_context_get_help_enabled :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    IO CInt---optionContextGetHelpEnabled ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    m Bool-optionContextGetHelpEnabled _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_option_context_get_help_enabled _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method OptionContext::get_ignore_unknown_options--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_option_context_get_ignore_unknown_options" g_option_context_get_ignore_unknown_options :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    IO CInt---optionContextGetIgnoreUnknownOptions ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    m Bool-optionContextGetIgnoreUnknownOptions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_option_context_get_ignore_unknown_options _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method OptionContext::get_main_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "OptionGroup"--- throws : False--- Skip return : False--foreign import ccall "g_option_context_get_main_group" g_option_context_get_main_group :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    IO (Ptr OptionGroup)---optionContextGetMainGroup ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    m OptionGroup-optionContextGetMainGroup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_option_context_get_main_group _obj'-    checkUnexpectedReturnNULL "g_option_context_get_main_group" result-    result' <- (newBoxed OptionGroup) result-    touchManagedPtr _obj-    return result'---- method OptionContext::get_strict_posix--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_option_context_get_strict_posix" g_option_context_get_strict_posix :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    IO CInt---optionContextGetStrictPosix ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    m Bool-optionContextGetStrictPosix _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_option_context_get_strict_posix _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method OptionContext::get_summary--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_option_context_get_summary" g_option_context_get_summary :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    IO CString---optionContextGetSummary ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    m T.Text-optionContextGetSummary _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_option_context_get_summary _obj'-    checkUnexpectedReturnNULL "g_option_context_get_summary" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- XXX Could not generate method OptionContext::parse--- Error was : Bad introspection data: "argument \"argc\" is not of nullable type (TBasicType TInt32), but it is marked as such."--- method OptionContext::parse_strv--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arguments", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arguments", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_option_context_parse_strv" g_option_context_parse_strv :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    Ptr (Ptr CString) ->                    -- arguments : TCArray False (-1) (-1) (TBasicType TUTF8)-    Ptr (Ptr GError) ->                     -- error-    IO CInt---optionContextParseStrv ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    Ptr CString ->                          -- arguments-    m ((Ptr CString))-optionContextParseStrv _obj arguments = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    arguments' <- allocMem :: IO (Ptr (Ptr CString))-    poke arguments' arguments-    onException (do-        _ <- propagateGError $ g_option_context_parse_strv _obj' arguments'-        arguments'' <- peek arguments'-        touchManagedPtr _obj-        freeMem arguments'-        return arguments''-     ) (do-        freeMem arguments'-     )---- method OptionContext::set_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_context_set_description" g_option_context_set_description :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    CString ->                              -- description : TBasicType TUTF8-    IO ()---optionContextSetDescription ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    Maybe (T.Text) ->                       -- description-    m ()-optionContextSetDescription _obj description = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeDescription <- case description of-        Nothing -> return nullPtr-        Just jDescription -> do-            jDescription' <- textToCString jDescription-            return jDescription'-    g_option_context_set_description _obj' maybeDescription-    touchManagedPtr _obj-    freeMem maybeDescription-    return ()---- method OptionContext::set_help_enabled--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_context_set_help_enabled" g_option_context_set_help_enabled :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    CInt ->                                 -- help_enabled : TBasicType TBoolean-    IO ()---optionContextSetHelpEnabled ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    Bool ->                                 -- help_enabled-    m ()-optionContextSetHelpEnabled _obj help_enabled = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let help_enabled' = (fromIntegral . fromEnum) help_enabled-    g_option_context_set_help_enabled _obj' help_enabled'-    touchManagedPtr _obj-    return ()---- method OptionContext::set_ignore_unknown_options--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_unknown", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_unknown", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_context_set_ignore_unknown_options" g_option_context_set_ignore_unknown_options :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    CInt ->                                 -- ignore_unknown : TBasicType TBoolean-    IO ()---optionContextSetIgnoreUnknownOptions ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    Bool ->                                 -- ignore_unknown-    m ()-optionContextSetIgnoreUnknownOptions _obj ignore_unknown = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let ignore_unknown' = (fromIntegral . fromEnum) ignore_unknown-    g_option_context_set_ignore_unknown_options _obj' ignore_unknown'-    touchManagedPtr _obj-    return ()---- method OptionContext::set_main_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_context_set_main_group" g_option_context_set_main_group :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    Ptr OptionGroup ->                      -- group : TInterface "GLib" "OptionGroup"-    IO ()---optionContextSetMainGroup ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    OptionGroup ->                          -- group-    m ()-optionContextSetMainGroup _obj group = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    group' <- copyBoxed group-    g_option_context_set_main_group _obj' group'-    touchManagedPtr _obj-    touchManagedPtr group-    return ()---- method OptionContext::set_strict_posix--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_posix", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_posix", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_context_set_strict_posix" g_option_context_set_strict_posix :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    CInt ->                                 -- strict_posix : TBasicType TBoolean-    IO ()---optionContextSetStrictPosix ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    Bool ->                                 -- strict_posix-    m ()-optionContextSetStrictPosix _obj strict_posix = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let strict_posix' = (fromIntegral . fromEnum) strict_posix-    g_option_context_set_strict_posix _obj' strict_posix'-    touchManagedPtr _obj-    return ()---- method OptionContext::set_summary--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_context_set_summary" g_option_context_set_summary :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    CString ->                              -- summary : TBasicType TUTF8-    IO ()---optionContextSetSummary ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    Maybe (T.Text) ->                       -- summary-    m ()-optionContextSetSummary _obj summary = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeSummary <- case summary of-        Nothing -> return nullPtr-        Just jSummary -> do-            jSummary' <- textToCString jSummary-            return jSummary'-    g_option_context_set_summary _obj' maybeSummary-    touchManagedPtr _obj-    freeMem maybeSummary-    return ()---- method OptionContext::set_translate_func--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_context_set_translate_func" g_option_context_set_translate_func :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    FunPtr TranslateFuncC ->                -- func : TInterface "GLib" "TranslateFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- destroy_notify : TInterface "GLib" "DestroyNotify"-    IO ()---optionContextSetTranslateFunc ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    Maybe (TranslateFunc) ->                -- func-    m ()-optionContextSetTranslateFunc _obj func = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeFunc <- case func of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jFunc -> do-            jFunc' <- mkTranslateFunc (translateFuncWrapper Nothing jFunc)-            return jFunc'-    let data_ = castFunPtrToPtr maybeFunc-    let destroy_notify = safeFreeFunPtrPtr-    g_option_context_set_translate_func _obj' maybeFunc data_ destroy_notify-    touchManagedPtr _obj-    return ()---- method OptionContext::set_translation_domain--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_context_set_translation_domain" g_option_context_set_translation_domain :: -    Ptr OptionContext ->                    -- _obj : TInterface "GLib" "OptionContext"-    CString ->                              -- domain : TBasicType TUTF8-    IO ()---optionContextSetTranslationDomain ::-    (MonadIO m) =>-    OptionContext ->                        -- _obj-    T.Text ->                               -- domain-    m ()-optionContextSetTranslationDomain _obj domain = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    domain' <- textToCString domain-    g_option_context_set_translation_domain _obj' domain'-    touchManagedPtr _obj-    freeMem domain'-    return ()--
− GI/GLib/Structs/OptionContext.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.OptionContext where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype OptionContext = OptionContext (ForeignPtr OptionContext)
− GI/GLib/Structs/OptionEntry.hs 
@@ -1,106 +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)--A GOptionEntry struct defines a single option. To have an effect, they-must be added to a #GOptionGroup with g_option_context_add_main_entries()-or g_option_group_add_entries().--}--module GI.GLib.Structs.OptionEntry-    ( ---- * Exported types-    OptionEntry(..)                         ,-    noOptionEntry                           ,--- -- * Properties--- ** Arg-    optionEntryReadArg                      ,----- ** ArgData-    optionEntryReadArgData                  ,----- ** ArgDescription-    optionEntryReadArgDescription           ,----- ** Description-    optionEntryReadDescription              ,----- ** Flags-    optionEntryReadFlags                    ,----- ** LongName-    optionEntryReadLongName                 ,----- ** ShortName-    optionEntryReadShortName                ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype OptionEntry = OptionEntry (ForeignPtr OptionEntry)-noOptionEntry :: Maybe OptionEntry-noOptionEntry = Nothing--optionEntryReadLongName :: OptionEntry -> IO T.Text-optionEntryReadLongName s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--optionEntryReadShortName :: OptionEntry -> IO Int8-optionEntryReadShortName s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int8-    return val--optionEntryReadFlags :: OptionEntry -> IO Int32-optionEntryReadFlags s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--optionEntryReadArg :: OptionEntry -> IO OptionArg-optionEntryReadArg s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--optionEntryReadArgData :: OptionEntry -> IO (Ptr ())-optionEntryReadArgData s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr ())-    return val--optionEntryReadDescription :: OptionEntry -> IO T.Text-optionEntryReadDescription s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CString-    val' <- cstringToText val-    return val'--optionEntryReadArgDescription :: OptionEntry -> IO T.Text-optionEntryReadArgDescription s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CString-    val' <- cstringToText val-    return val'--
− GI/GLib/Structs/OptionEntry.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.OptionEntry where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype OptionEntry = OptionEntry (ForeignPtr OptionEntry)
− GI/GLib/Structs/OptionGroup.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)--A `GOptionGroup` struct defines the options in a single-group. The struct has only private fields and should not be directly accessed.--All options in a group share the same translation function. Libraries which-need to parse commandline options are expected to provide a function for-getting a `GOptionGroup` holding their options, which-the application can then add to its #GOptionContext.--}--module GI.GLib.Structs.OptionGroup-    ( ---- * Exported types-    OptionGroup(..)                         ,-    noOptionGroup                           ,--- -- * Methods--- ** optionGroupAddEntries-    optionGroupAddEntries                   ,----- ** optionGroupFree-    optionGroupFree                         ,----- ** optionGroupNew-    optionGroupNew                          ,----- ** optionGroupRef-    optionGroupRef                          ,----- ** optionGroupSetTranslateFunc-    optionGroupSetTranslateFunc             ,----- ** optionGroupSetTranslationDomain-    optionGroupSetTranslationDomain         ,----- ** optionGroupUnref-    optionGroupUnref                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype OptionGroup = OptionGroup (ForeignPtr OptionGroup)-foreign import ccall "g_option_group_get_type" c_g_option_group_get_type :: -    IO GType--instance BoxedObject OptionGroup where-    boxedType _ = c_g_option_group_get_type--noOptionGroup :: Maybe OptionGroup-noOptionGroup = Nothing---- method OptionGroup::new--- method type : Constructor--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "OptionGroup"--- throws : False--- Skip return : False--foreign import ccall "g_option_group_new" g_option_group_new :: -    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- description : TBasicType TUTF8-    CString ->                              -- help_description : TBasicType TUTF8-    Ptr () ->                               -- user_data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- destroy : TInterface "GLib" "DestroyNotify"-    IO (Ptr OptionGroup)---optionGroupNew ::-    (MonadIO m) =>-    T.Text ->                               -- name-    T.Text ->                               -- description-    T.Text ->                               -- help_description-    Maybe (Ptr ()) ->                       -- user_data-    Maybe (DestroyNotify) ->                -- destroy-    m OptionGroup-optionGroupNew name description help_description user_data destroy = liftIO $ do-    name' <- textToCString name-    description' <- textToCString description-    help_description' <- textToCString help_description-    maybeUser_data <- case user_data of-        Nothing -> return nullPtr-        Just jUser_data -> do-            return jUser_data-    ptrdestroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))-    maybeDestroy <- case destroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jDestroy -> do-            jDestroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy) jDestroy)-            poke ptrdestroy jDestroy'-            return jDestroy'-    result <- g_option_group_new name' description' help_description' maybeUser_data maybeDestroy-    checkUnexpectedReturnNULL "g_option_group_new" result-    result' <- (wrapBoxed OptionGroup) result-    freeMem name'-    freeMem description'-    freeMem help_description'-    return result'---- method OptionGroup::add_entries--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_group_add_entries" g_option_group_add_entries :: -    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"-    Ptr OptionEntry ->                      -- entries : TInterface "GLib" "OptionEntry"-    IO ()---optionGroupAddEntries ::-    (MonadIO m) =>-    OptionGroup ->                          -- _obj-    OptionEntry ->                          -- entries-    m ()-optionGroupAddEntries _obj entries = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let entries' = unsafeManagedPtrGetPtr entries-    g_option_group_add_entries _obj' entries'-    touchManagedPtr _obj-    touchManagedPtr entries-    return ()---- method OptionGroup::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_group_free" g_option_group_free :: -    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"-    IO ()--{-# DEPRECATED optionGroupFree ["(Since version 2.44)","Use g_option_group_unref() instead."]#-}-optionGroupFree ::-    (MonadIO m) =>-    OptionGroup ->                          -- _obj-    m ()-optionGroupFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_option_group_free _obj'-    touchManagedPtr _obj-    return ()---- method OptionGroup::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "OptionGroup"--- throws : False--- Skip return : False--foreign import ccall "g_option_group_ref" g_option_group_ref :: -    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"-    IO (Ptr OptionGroup)---optionGroupRef ::-    (MonadIO m) =>-    OptionGroup ->                          -- _obj-    m OptionGroup-optionGroupRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_option_group_ref _obj'-    checkUnexpectedReturnNULL "g_option_group_ref" result-    result' <- (wrapBoxed OptionGroup) result-    touchManagedPtr _obj-    return result'---- method OptionGroup::set_translate_func--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_group_set_translate_func" g_option_group_set_translate_func :: -    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"-    FunPtr TranslateFuncC ->                -- func : TInterface "GLib" "TranslateFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- destroy_notify : TInterface "GLib" "DestroyNotify"-    IO ()---optionGroupSetTranslateFunc ::-    (MonadIO m) =>-    OptionGroup ->                          -- _obj-    Maybe (TranslateFunc) ->                -- func-    m ()-optionGroupSetTranslateFunc _obj func = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeFunc <- case func of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jFunc -> do-            jFunc' <- mkTranslateFunc (translateFuncWrapper Nothing jFunc)-            return jFunc'-    let data_ = castFunPtrToPtr maybeFunc-    let destroy_notify = safeFreeFunPtrPtr-    g_option_group_set_translate_func _obj' maybeFunc data_ destroy_notify-    touchManagedPtr _obj-    return ()---- method OptionGroup::set_translation_domain--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_group_set_translation_domain" g_option_group_set_translation_domain :: -    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"-    CString ->                              -- domain : TBasicType TUTF8-    IO ()---optionGroupSetTranslationDomain ::-    (MonadIO m) =>-    OptionGroup ->                          -- _obj-    T.Text ->                               -- domain-    m ()-optionGroupSetTranslationDomain _obj domain = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    domain' <- textToCString domain-    g_option_group_set_translation_domain _obj' domain'-    touchManagedPtr _obj-    freeMem domain'-    return ()---- method OptionGroup::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_option_group_unref" g_option_group_unref :: -    Ptr OptionGroup ->                      -- _obj : TInterface "GLib" "OptionGroup"-    IO ()---optionGroupUnref ::-    (MonadIO m) =>-    OptionGroup ->                          -- _obj-    m ()-optionGroupUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_option_group_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/OptionGroup.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.OptionGroup where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype OptionGroup = OptionGroup (ForeignPtr OptionGroup)-instance BoxedObject OptionGroup where
− GI/GLib/Structs/PatternSpec.hs 
@@ -1,99 +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)--A GPatternSpec struct is the 'compiled' form of a pattern. This-structure is opaque and its fields cannot be accessed directly.--}--module GI.GLib.Structs.PatternSpec-    ( ---- * Exported types-    PatternSpec(..)                         ,-    noPatternSpec                           ,--- -- * Methods--- ** patternSpecEqual-    patternSpecEqual                        ,----- ** patternSpecFree-    patternSpecFree                         ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype PatternSpec = PatternSpec (ForeignPtr PatternSpec)-noPatternSpec :: Maybe PatternSpec-noPatternSpec = Nothing---- method PatternSpec::equal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec2", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec2", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_pattern_spec_equal" g_pattern_spec_equal :: -    Ptr PatternSpec ->                      -- _obj : TInterface "GLib" "PatternSpec"-    Ptr PatternSpec ->                      -- pspec2 : TInterface "GLib" "PatternSpec"-    IO CInt---patternSpecEqual ::-    (MonadIO m) =>-    PatternSpec ->                          -- _obj-    PatternSpec ->                          -- pspec2-    m Bool-patternSpecEqual _obj pspec2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let pspec2' = unsafeManagedPtrGetPtr pspec2-    result <- g_pattern_spec_equal _obj' pspec2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr pspec2-    return result'---- method PatternSpec::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_pattern_spec_free" g_pattern_spec_free :: -    Ptr PatternSpec ->                      -- _obj : TInterface "GLib" "PatternSpec"-    IO ()---patternSpecFree ::-    (MonadIO m) =>-    PatternSpec ->                          -- _obj-    m ()-patternSpecFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_pattern_spec_free _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/PatternSpec.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.PatternSpec where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PatternSpec = PatternSpec (ForeignPtr PatternSpec)
− GI/GLib/Structs/PollFD.hs 
@@ -1,71 +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 file descriptor, which events to poll for, and which events-occurred.--}--module GI.GLib.Structs.PollFD-    ( ---- * Exported types-    PollFD(..)                              ,-    noPollFD                                ,--- -- * Properties--- ** Events-    pollFDReadEvents                        ,----- ** Fd-    pollFDReadFd                            ,----- ** Revents-    pollFDReadRevents                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype PollFD = PollFD (ForeignPtr PollFD)-foreign import ccall "g_pollfd_get_type" c_g_pollfd_get_type :: -    IO GType--instance BoxedObject PollFD where-    boxedType _ = c_g_pollfd_get_type--noPollFD :: Maybe PollFD-noPollFD = Nothing--pollFDReadFd :: PollFD -> IO Int32-pollFDReadFd s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--pollFDReadEvents :: PollFD -> IO Word16-pollFDReadEvents s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Word16-    return val--pollFDReadRevents :: PollFD -> IO Word16-pollFDReadRevents s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 6) :: IO Word16-    return val--
− GI/GLib/Structs/PollFD.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.PollFD where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PollFD = PollFD (ForeignPtr PollFD)-instance BoxedObject PollFD where
− GI/GLib/Structs/PtrArray.hs 
@@ -1,61 +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)--Contains the public fields of a pointer array.--}--module GI.GLib.Structs.PtrArray-    ( ---- * Exported types-    PtrArray(..)                            ,-    noPtrArray                              ,--- -- * Properties--- ** Len-    ptrArrayReadLen                         ,----- ** Pdata-    ptrArrayReadPdata                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype PtrArray = PtrArray (ForeignPtr PtrArray)-foreign import ccall "g_ptr_array_get_type" c_g_ptr_array_get_type :: -    IO GType--instance BoxedObject PtrArray where-    boxedType _ = c_g_ptr_array_get_type--noPtrArray :: Maybe PtrArray-noPtrArray = Nothing--ptrArrayReadPdata :: PtrArray -> IO (Ptr ())-ptrArrayReadPdata s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--ptrArrayReadLen :: PtrArray -> IO Word32-ptrArrayReadLen s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word32-    return val--
− GI/GLib/Structs/PtrArray.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.PtrArray where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PtrArray = PtrArray (ForeignPtr PtrArray)-instance BoxedObject PtrArray where
− GI/GLib/Structs/Queue.hs 
@@ -1,455 +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)--Contains the public fields of a-[Queue][glib-Double-ended-Queues].--}--module GI.GLib.Structs.Queue-    ( ---- * Exported types-    Queue(..)                               ,-    noQueue                                 ,--- -- * Methods--- ** queueClear-    queueClear                              ,----- ** queueFree-    queueFree                               ,----- ** queueFreeFull-    queueFreeFull                           ,----- ** queueGetLength-    queueGetLength                          ,----- ** queueIndex-    queueIndex                              ,----- ** queueInit-    queueInit                               ,----- ** queueIsEmpty-    queueIsEmpty                            ,----- ** queuePushHead-    queuePushHead                           ,----- ** queuePushNth-    queuePushNth                            ,----- ** queuePushTail-    queuePushTail                           ,----- ** queueRemove-    queueRemove                             ,----- ** queueRemoveAll-    queueRemoveAll                          ,----- ** queueReverse-    queueReverse                            ,----- -- * Properties--- ** Head-    queueReadHead                           ,----- ** Length-    queueReadLength                         ,----- ** Tail-    queueReadTail                           ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Queue = Queue (ForeignPtr Queue)-noQueue :: Maybe Queue-noQueue = Nothing--queueReadHead :: Queue -> IO ([Ptr ()])-queueReadHead s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr (GList (Ptr ())))-    val' <- unpackGList val-    return val'--queueReadTail :: Queue -> IO ([Ptr ()])-queueReadTail s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr (GList (Ptr ())))-    val' <- unpackGList val-    return val'--queueReadLength :: Queue -> IO Word32-queueReadLength s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Word32-    return val---- method Queue::clear--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_queue_clear" g_queue_clear :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    IO ()---queueClear ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    m ()-queueClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_queue_clear _obj'-    touchManagedPtr _obj-    return ()---- method Queue::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_queue_free" g_queue_free :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    IO ()---queueFree ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    m ()-queueFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_queue_free _obj'-    touchManagedPtr _obj-    return ()---- method Queue::free_full--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_queue_free_full" g_queue_free_full :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    FunPtr DestroyNotifyC ->                -- free_func : TInterface "GLib" "DestroyNotify"-    IO ()---queueFreeFull ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    DestroyNotify ->                        -- free_func-    m ()-queueFreeFull _obj free_func = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    ptrfree_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC))-    free_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrfree_func) free_func)-    poke ptrfree_func free_func'-    g_queue_free_full _obj' free_func'-    touchManagedPtr _obj-    return ()---- method Queue::get_length--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_queue_get_length" g_queue_get_length :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    IO Word32---queueGetLength ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    m Word32-queueGetLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_queue_get_length _obj'-    touchManagedPtr _obj-    return result---- method Queue::index--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_queue_index" g_queue_index :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    Ptr () ->                               -- data : TBasicType TVoid-    IO Int32---queueIndex ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    Ptr () ->                               -- data-    m Int32-queueIndex _obj data_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_queue_index _obj' data_-    touchManagedPtr _obj-    return result---- method Queue::init--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_queue_init" g_queue_init :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    IO ()---queueInit ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    m ()-queueInit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_queue_init _obj'-    touchManagedPtr _obj-    return ()---- method Queue::is_empty--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_queue_is_empty" g_queue_is_empty :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    IO CInt---queueIsEmpty ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    m Bool-queueIsEmpty _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_queue_is_empty _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Queue::push_head--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_queue_push_head" g_queue_push_head :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    Ptr () ->                               -- data : TBasicType TVoid-    IO ()---queuePushHead ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    Ptr () ->                               -- data-    m ()-queuePushHead _obj data_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_queue_push_head _obj' data_-    touchManagedPtr _obj-    return ()---- method Queue::push_nth--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_queue_push_nth" g_queue_push_nth :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    Ptr () ->                               -- data : TBasicType TVoid-    Int32 ->                                -- n : TBasicType TInt32-    IO ()---queuePushNth ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    Ptr () ->                               -- data-    Int32 ->                                -- n-    m ()-queuePushNth _obj data_ n = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_queue_push_nth _obj' data_ n-    touchManagedPtr _obj-    return ()---- method Queue::push_tail--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_queue_push_tail" g_queue_push_tail :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    Ptr () ->                               -- data : TBasicType TVoid-    IO ()---queuePushTail ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    Ptr () ->                               -- data-    m ()-queuePushTail _obj data_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_queue_push_tail _obj' data_-    touchManagedPtr _obj-    return ()---- method Queue::remove--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_queue_remove" g_queue_remove :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    Ptr () ->                               -- data : TBasicType TVoid-    IO CInt---queueRemove ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    Ptr () ->                               -- data-    m Bool-queueRemove _obj data_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_queue_remove _obj' data_-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Queue::remove_all--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_queue_remove_all" g_queue_remove_all :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    Ptr () ->                               -- data : TBasicType TVoid-    IO Word32---queueRemoveAll ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    Ptr () ->                               -- data-    m Word32-queueRemoveAll _obj data_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_queue_remove_all _obj' data_-    touchManagedPtr _obj-    return result---- method Queue::reverse--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_queue_reverse" g_queue_reverse :: -    Ptr Queue ->                            -- _obj : TInterface "GLib" "Queue"-    IO ()---queueReverse ::-    (MonadIO m) =>-    Queue ->                                -- _obj-    m ()-queueReverse _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_queue_reverse _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/Queue.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Queue where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Queue = Queue (ForeignPtr Queue)
− GI/GLib/Structs/RWLock.hs 
@@ -1,321 +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 GRWLock struct is an opaque data structure to represent a-reader-writer lock. It is similar to a #GMutex in that it allows-multiple threads to coordinate access to a shared resource.--The difference to a mutex is that a reader-writer lock discriminates-between read-only ('reader') and full ('writer') access. While only-one thread at a time is allowed write access (by holding the 'writer'-lock via g_rw_lock_writer_lock()), multiple threads can gain-simultaneous read-only access (by holding the 'reader' lock via-g_rw_lock_reader_lock()).--Here is an example for an array with access functions:-|[<!-- language="C" -->-  GRWLock lock;-  GPtrArray *array;--  gpointer-  my_array_get (guint index)-  {-    gpointer retval = NULL;--    if (!array)-      return NULL;--    g_rw_lock_reader_lock (&lock);-    if (index < array->len)-      retval = g_ptr_array_index (array, index);-    g_rw_lock_reader_unlock (&lock);--    return retval;-  }--  void-  my_array_set (guint index, gpointer data)-  {-    g_rw_lock_writer_lock (&lock);--    if (!array)-      array = g_ptr_array_new ();--    if (index >= array->len)-      g_ptr_array_set_size (array, index+1);-    g_ptr_array_index (array, index) = data;--    g_rw_lock_writer_unlock (&lock);-  }- ]|-This example shows an array which can be accessed by many readers-(the my_array_get() function) simultaneously, whereas the writers-(the my_array_set() function) will only be allowed one at a time-and only if no readers currently access the array. This is because-of the potentially dangerous resizing of the array. Using these-functions is fully multi-thread safe now.--If a #GRWLock is allocated in static storage then it can be used-without initialisation.  Otherwise, you should call-g_rw_lock_init() on it and g_rw_lock_clear() when done.--A GRWLock should only be accessed with the g_rw_lock_ functions.--}--module GI.GLib.Structs.RWLock-    ( ---- * Exported types-    RWLock(..)                              ,-    noRWLock                                ,--- -- * Methods--- ** rWLockClear-    rWLockClear                             ,----- ** rWLockInit-    rWLockInit                              ,----- ** rWLockReaderLock-    rWLockReaderLock                        ,----- ** rWLockReaderTrylock-    rWLockReaderTrylock                     ,----- ** rWLockReaderUnlock-    rWLockReaderUnlock                      ,----- ** rWLockWriterLock-    rWLockWriterLock                        ,----- ** rWLockWriterTrylock-    rWLockWriterTrylock                     ,----- ** rWLockWriterUnlock-    rWLockWriterUnlock                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype RWLock = RWLock (ForeignPtr RWLock)-noRWLock :: Maybe RWLock-noRWLock = Nothing---- method RWLock::clear--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rw_lock_clear" g_rw_lock_clear :: -    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"-    IO ()---rWLockClear ::-    (MonadIO m) =>-    RWLock ->                               -- _obj-    m ()-rWLockClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rw_lock_clear _obj'-    touchManagedPtr _obj-    return ()---- method RWLock::init--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rw_lock_init" g_rw_lock_init :: -    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"-    IO ()---rWLockInit ::-    (MonadIO m) =>-    RWLock ->                               -- _obj-    m ()-rWLockInit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rw_lock_init _obj'-    touchManagedPtr _obj-    return ()---- method RWLock::reader_lock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rw_lock_reader_lock" g_rw_lock_reader_lock :: -    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"-    IO ()---rWLockReaderLock ::-    (MonadIO m) =>-    RWLock ->                               -- _obj-    m ()-rWLockReaderLock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rw_lock_reader_lock _obj'-    touchManagedPtr _obj-    return ()---- method RWLock::reader_trylock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_rw_lock_reader_trylock" g_rw_lock_reader_trylock :: -    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"-    IO CInt---rWLockReaderTrylock ::-    (MonadIO m) =>-    RWLock ->                               -- _obj-    m Bool-rWLockReaderTrylock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_rw_lock_reader_trylock _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method RWLock::reader_unlock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rw_lock_reader_unlock" g_rw_lock_reader_unlock :: -    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"-    IO ()---rWLockReaderUnlock ::-    (MonadIO m) =>-    RWLock ->                               -- _obj-    m ()-rWLockReaderUnlock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rw_lock_reader_unlock _obj'-    touchManagedPtr _obj-    return ()---- method RWLock::writer_lock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rw_lock_writer_lock" g_rw_lock_writer_lock :: -    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"-    IO ()---rWLockWriterLock ::-    (MonadIO m) =>-    RWLock ->                               -- _obj-    m ()-rWLockWriterLock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rw_lock_writer_lock _obj'-    touchManagedPtr _obj-    return ()---- method RWLock::writer_trylock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_rw_lock_writer_trylock" g_rw_lock_writer_trylock :: -    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"-    IO CInt---rWLockWriterTrylock ::-    (MonadIO m) =>-    RWLock ->                               -- _obj-    m Bool-rWLockWriterTrylock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_rw_lock_writer_trylock _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method RWLock::writer_unlock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rw_lock_writer_unlock" g_rw_lock_writer_unlock :: -    Ptr RWLock ->                           -- _obj : TInterface "GLib" "RWLock"-    IO ()---rWLockWriterUnlock ::-    (MonadIO m) =>-    RWLock ->                               -- _obj-    m ()-rWLockWriterUnlock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rw_lock_writer_unlock _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/RWLock.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.RWLock where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype RWLock = RWLock (ForeignPtr RWLock)
− GI/GLib/Structs/Rand.hs 
@@ -1,252 +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 GRand struct is an opaque data structure. It should only be-accessed through the g_rand_* functions.--}--module GI.GLib.Structs.Rand-    ( ---- * Exported types-    Rand(..)                                ,-    noRand                                  ,--- -- * Methods--- ** randDouble-    randDouble                              ,----- ** randDoubleRange-    randDoubleRange                         ,----- ** randFree-    randFree                                ,----- ** randInt-    randInt                                 ,----- ** randIntRange-    randIntRange                            ,----- ** randSetSeed-    randSetSeed                             ,----- ** randSetSeedArray-    randSetSeedArray                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Rand = Rand (ForeignPtr Rand)-noRand :: Maybe Rand-noRand = Nothing---- method Rand::double--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_rand_double" g_rand_double :: -    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"-    IO CDouble---randDouble ::-    (MonadIO m) =>-    Rand ->                                 -- _obj-    m Double-randDouble _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_rand_double _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- method Rand::double_range--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_rand_double_range" g_rand_double_range :: -    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"-    CDouble ->                              -- begin : TBasicType TDouble-    CDouble ->                              -- end : TBasicType TDouble-    IO CDouble---randDoubleRange ::-    (MonadIO m) =>-    Rand ->                                 -- _obj-    Double ->                               -- begin-    Double ->                               -- end-    m Double-randDoubleRange _obj begin end = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let begin' = realToFrac begin-    let end' = realToFrac end-    result <- g_rand_double_range _obj' begin' end'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- method Rand::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rand_free" g_rand_free :: -    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"-    IO ()---randFree ::-    (MonadIO m) =>-    Rand ->                                 -- _obj-    m ()-randFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rand_free _obj'-    touchManagedPtr _obj-    return ()---- method Rand::int--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_rand_int" g_rand_int :: -    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"-    IO Word32---randInt ::-    (MonadIO m) =>-    Rand ->                                 -- _obj-    m Word32-randInt _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_rand_int _obj'-    touchManagedPtr _obj-    return result---- method Rand::int_range--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_rand_int_range" g_rand_int_range :: -    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"-    Int32 ->                                -- begin : TBasicType TInt32-    Int32 ->                                -- end : TBasicType TInt32-    IO Int32---randIntRange ::-    (MonadIO m) =>-    Rand ->                                 -- _obj-    Int32 ->                                -- begin-    Int32 ->                                -- end-    m Int32-randIntRange _obj begin end = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_rand_int_range _obj' begin end-    touchManagedPtr _obj-    return result---- method Rand::set_seed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rand_set_seed" g_rand_set_seed :: -    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"-    Word32 ->                               -- seed : TBasicType TUInt32-    IO ()---randSetSeed ::-    (MonadIO m) =>-    Rand ->                                 -- _obj-    Word32 ->                               -- seed-    m ()-randSetSeed _obj seed = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rand_set_seed _obj' seed-    touchManagedPtr _obj-    return ()---- method Rand::set_seed_array--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rand_set_seed_array" g_rand_set_seed_array :: -    Ptr Rand ->                             -- _obj : TInterface "GLib" "Rand"-    Word32 ->                               -- seed : TBasicType TUInt32-    Word32 ->                               -- seed_length : TBasicType TUInt32-    IO ()---randSetSeedArray ::-    (MonadIO m) =>-    Rand ->                                 -- _obj-    Word32 ->                               -- seed-    Word32 ->                               -- seed_length-    m ()-randSetSeedArray _obj seed seed_length = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rand_set_seed_array _obj' seed seed_length-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/Rand.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Rand where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Rand = Rand (ForeignPtr Rand)
− GI/GLib/Structs/RecMutex.hs 
@@ -1,189 +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 GRecMutex struct is an opaque data structure to represent a-recursive mutex. It is similar to a #GMutex with the difference-that it is possible to lock a GRecMutex multiple times in the same-thread without deadlock. When doing so, care has to be taken to-unlock the recursive mutex as often as it has been locked.--If a #GRecMutex is allocated in static storage then it can be used-without initialisation.  Otherwise, you should call-g_rec_mutex_init() on it and g_rec_mutex_clear() when done.--A GRecMutex should only be accessed with the-g_rec_mutex_ functions.--}--module GI.GLib.Structs.RecMutex-    ( ---- * Exported types-    RecMutex(..)                            ,-    noRecMutex                              ,--- -- * Methods--- ** recMutexClear-    recMutexClear                           ,----- ** recMutexInit-    recMutexInit                            ,----- ** recMutexLock-    recMutexLock                            ,----- ** recMutexTrylock-    recMutexTrylock                         ,----- ** recMutexUnlock-    recMutexUnlock                          ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype RecMutex = RecMutex (ForeignPtr RecMutex)-noRecMutex :: Maybe RecMutex-noRecMutex = Nothing---- method RecMutex::clear--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rec_mutex_clear" g_rec_mutex_clear :: -    Ptr RecMutex ->                         -- _obj : TInterface "GLib" "RecMutex"-    IO ()---recMutexClear ::-    (MonadIO m) =>-    RecMutex ->                             -- _obj-    m ()-recMutexClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rec_mutex_clear _obj'-    touchManagedPtr _obj-    return ()---- method RecMutex::init--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rec_mutex_init" g_rec_mutex_init :: -    Ptr RecMutex ->                         -- _obj : TInterface "GLib" "RecMutex"-    IO ()---recMutexInit ::-    (MonadIO m) =>-    RecMutex ->                             -- _obj-    m ()-recMutexInit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rec_mutex_init _obj'-    touchManagedPtr _obj-    return ()---- method RecMutex::lock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rec_mutex_lock" g_rec_mutex_lock :: -    Ptr RecMutex ->                         -- _obj : TInterface "GLib" "RecMutex"-    IO ()---recMutexLock ::-    (MonadIO m) =>-    RecMutex ->                             -- _obj-    m ()-recMutexLock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rec_mutex_lock _obj'-    touchManagedPtr _obj-    return ()---- method RecMutex::trylock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_rec_mutex_trylock" g_rec_mutex_trylock :: -    Ptr RecMutex ->                         -- _obj : TInterface "GLib" "RecMutex"-    IO CInt---recMutexTrylock ::-    (MonadIO m) =>-    RecMutex ->                             -- _obj-    m Bool-recMutexTrylock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_rec_mutex_trylock _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method RecMutex::unlock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_rec_mutex_unlock" g_rec_mutex_unlock :: -    Ptr RecMutex ->                         -- _obj : TInterface "GLib" "RecMutex"-    IO ()---recMutexUnlock ::-    (MonadIO m) =>-    RecMutex ->                             -- _obj-    m ()-recMutexUnlock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_rec_mutex_unlock _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/RecMutex.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.RecMutex where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype RecMutex = RecMutex (ForeignPtr RecMutex)
− GI/GLib/Structs/Regex.hs 
@@ -1,824 +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 g_regex_*() functions implement regular-expression pattern matching using syntax and semantics similar to-Perl regular expression.--Some functions accept a @start_position argument, setting it differs-from just passing over a shortened string and setting #G_REGEX_MATCH_NOTBOL-in the case of a pattern that begins with any kind of lookbehind assertion.-For example, consider the pattern "\Biss\B" which finds occurrences of "iss"-in the middle of words. ("\B" matches only if the current position in the-subject is not a word boundary.) When applied to the string "Mississipi"-from the fourth byte, namely "issipi", it does not match, because "\B" is-always false at the start of the subject, which is deemed to be a word-boundary. However, if the entire string is passed , but with-@start_position set to 4, it finds the second occurrence of "iss" because-it is able to look behind the starting point to discover that it is-preceded by a letter.--Note that, unless you set the #G_REGEX_RAW flag, all the strings passed-to these functions must be encoded in UTF-8. The lengths and the positions-inside the strings are in bytes and not in characters, so, for instance,-"\xc3\xa0" (i.e. "&agrave;") is two bytes long but it is treated as a-single character. If you set #G_REGEX_RAW the strings can be non-valid-UTF-8 strings and a byte is treated as a character, so "\xc3\xa0" is two-bytes and two characters long.--When matching a pattern, "\n" matches only against a "\n" character in-the string, and "\r" matches only a "\r" character. To match any newline-sequence use "\R". This particular group matches either the two-character-sequence CR + LF ("\r\n"), or one of the single characters LF (linefeed,-U+000A, "\n"), VT vertical tab, U+000B, "\v"), FF (formfeed, U+000C, "\f"),-CR (carriage return, U+000D, "\r"), NEL (next line, U+0085), LS (line-separator, U+2028), or PS (paragraph separator, U+2029).--The behaviour of the dot, circumflex, and dollar metacharacters are-affected by newline characters, the default is to recognize any newline-character (the same characters recognized by "\R"). This can be changed-with #G_REGEX_NEWLINE_CR, #G_REGEX_NEWLINE_LF and #G_REGEX_NEWLINE_CRLF-compile options, and with #G_REGEX_MATCH_NEWLINE_ANY,-#G_REGEX_MATCH_NEWLINE_CR, #G_REGEX_MATCH_NEWLINE_LF and-#G_REGEX_MATCH_NEWLINE_CRLF match options. These settings are also-relevant when compiling a pattern if #G_REGEX_EXTENDED is set, and an-unescaped "#" outside a character class is encountered. This indicates-a comment that lasts until after the next newline.--When setting the %G_REGEX_JAVASCRIPT_COMPAT flag, pattern syntax and pattern-matching is changed to be compatible with the way that regular expressions-work in JavaScript. More precisely, a lonely ']' character in the pattern-is a syntax error; the '\x' escape only allows 0 to 2 hexadecimal digits, and-you must use the '\u' escape sequence with 4 hex digits to specify a unicode-codepoint instead of '\x' or 'x{....}'. If '\x' or '\u' are not followed by-the specified number of hex digits, they match 'x' and 'u' literally; also-'\U' always matches 'U' instead of being an error in the pattern. Finally,-pattern matching is modified so that back references to an unset subpattern-group produces a match with the empty string instead of an error. See-pcreapi(3) for more information.--Creating and manipulating the same #GRegex structure from different-threads is not a problem as #GRegex does not modify its internal-state between creation and destruction, on the other hand #GMatchInfo-is not threadsafe.--The regular expressions low-level functionalities are obtained through-the excellent-[PCRE](http://www.pcre.org/)-library written by Philip Hazel.--}--module GI.GLib.Structs.Regex-    ( ---- * Exported types-    Regex(..)                               ,-    noRegex                                 ,--- -- * Methods--- ** regexGetCaptureCount-    regexGetCaptureCount                    ,----- ** regexGetCompileFlags-    regexGetCompileFlags                    ,----- ** regexGetHasCrOrLf-    regexGetHasCrOrLf                       ,----- ** regexGetMatchFlags-    regexGetMatchFlags                      ,----- ** regexGetMaxBackref-    regexGetMaxBackref                      ,----- ** regexGetMaxLookbehind-    regexGetMaxLookbehind                   ,----- ** regexGetPattern-    regexGetPattern                         ,----- ** regexGetStringNumber-    regexGetStringNumber                    ,----- ** regexMatch-    regexMatch                              ,----- ** regexMatchAll-    regexMatchAll                           ,----- ** regexMatchAllFull-    regexMatchAllFull                       ,----- ** regexMatchFull-    regexMatchFull                          ,----- ** regexNew-    regexNew                                ,----- ** regexRef-    regexRef                                ,----- ** regexReplace-    regexReplace                            ,----- ** regexReplaceLiteral-    regexReplaceLiteral                     ,----- ** regexSplit-    regexSplit                              ,----- ** regexSplitFull-    regexSplitFull                          ,----- ** regexUnref-    regexUnref                              ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Regex = Regex (ForeignPtr Regex)-foreign import ccall "g_regex_get_type" c_g_regex_get_type :: -    IO GType--instance BoxedObject Regex where-    boxedType _ = c_g_regex_get_type--noRegex :: Maybe Regex-noRegex = Nothing---- method Regex::new--- method type : Constructor--- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Regex"--- throws : True--- Skip return : False--foreign import ccall "g_regex_new" g_regex_new :: -    CString ->                              -- pattern : TBasicType TUTF8-    CUInt ->                                -- compile_options : TInterface "GLib" "RegexCompileFlags"-    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Regex)---regexNew ::-    (MonadIO m) =>-    T.Text ->                               -- pattern-    [RegexCompileFlags] ->                  -- compile_options-    [RegexMatchFlags] ->                    -- match_options-    m Regex-regexNew pattern compile_options match_options = liftIO $ do-    pattern' <- textToCString pattern-    let compile_options' = gflagsToWord compile_options-    let match_options' = gflagsToWord match_options-    onException (do-        result <- propagateGError $ g_regex_new pattern' compile_options' match_options'-        checkUnexpectedReturnNULL "g_regex_new" result-        result' <- (wrapBoxed Regex) result-        freeMem pattern'-        return result'-     ) (do-        freeMem pattern'-     )---- method Regex::get_capture_count--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_regex_get_capture_count" g_regex_get_capture_count :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    IO Int32---regexGetCaptureCount ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    m Int32-regexGetCaptureCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_regex_get_capture_count _obj'-    touchManagedPtr _obj-    return result---- method Regex::get_compile_flags--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "RegexCompileFlags"--- throws : False--- Skip return : False--foreign import ccall "g_regex_get_compile_flags" g_regex_get_compile_flags :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    IO CUInt---regexGetCompileFlags ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    m [RegexCompileFlags]-regexGetCompileFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_regex_get_compile_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method Regex::get_has_cr_or_lf--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_regex_get_has_cr_or_lf" g_regex_get_has_cr_or_lf :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    IO CInt---regexGetHasCrOrLf ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    m Bool-regexGetHasCrOrLf _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_regex_get_has_cr_or_lf _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Regex::get_match_flags--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "RegexMatchFlags"--- throws : False--- Skip return : False--foreign import ccall "g_regex_get_match_flags" g_regex_get_match_flags :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    IO CUInt---regexGetMatchFlags ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    m [RegexMatchFlags]-regexGetMatchFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_regex_get_match_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method Regex::get_max_backref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_regex_get_max_backref" g_regex_get_max_backref :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    IO Int32---regexGetMaxBackref ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    m Int32-regexGetMaxBackref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_regex_get_max_backref _obj'-    touchManagedPtr _obj-    return result---- method Regex::get_max_lookbehind--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_regex_get_max_lookbehind" g_regex_get_max_lookbehind :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    IO Int32---regexGetMaxLookbehind ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    m Int32-regexGetMaxLookbehind _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_regex_get_max_lookbehind _obj'-    touchManagedPtr _obj-    return result---- method Regex::get_pattern--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_regex_get_pattern" g_regex_get_pattern :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    IO CString---regexGetPattern ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    m T.Text-regexGetPattern _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_regex_get_pattern _obj'-    checkUnexpectedReturnNULL "g_regex_get_pattern" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Regex::get_string_number--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_regex_get_string_number" g_regex_get_string_number :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    CString ->                              -- name : TBasicType TUTF8-    IO Int32---regexGetStringNumber ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    T.Text ->                               -- name-    m Int32-regexGetStringNumber _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- g_regex_get_string_number _obj' name'-    touchManagedPtr _obj-    freeMem name'-    return result---- method Regex::match--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_regex_match" g_regex_match :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    CString ->                              -- string : TBasicType TUTF8-    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"-    Ptr (Ptr MatchInfo) ->                  -- match_info : TInterface "GLib" "MatchInfo"-    IO CInt---regexMatch ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    T.Text ->                               -- string-    [RegexMatchFlags] ->                    -- match_options-    m (Bool,MatchInfo)-regexMatch _obj string match_options = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    string' <- textToCString string-    let match_options' = gflagsToWord match_options-    match_info <- allocMem :: IO (Ptr (Ptr MatchInfo))-    result <- g_regex_match _obj' string' match_options' match_info-    let result' = (/= 0) result-    match_info' <- peek match_info-    match_info'' <- (wrapBoxed MatchInfo) match_info'-    touchManagedPtr _obj-    freeMem string'-    freeMem match_info-    return (result', match_info'')---- method Regex::match_all--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_regex_match_all" g_regex_match_all :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    CString ->                              -- string : TBasicType TUTF8-    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"-    Ptr (Ptr MatchInfo) ->                  -- match_info : TInterface "GLib" "MatchInfo"-    IO CInt---regexMatchAll ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    T.Text ->                               -- string-    [RegexMatchFlags] ->                    -- match_options-    m (Bool,MatchInfo)-regexMatchAll _obj string match_options = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    string' <- textToCString string-    let match_options' = gflagsToWord match_options-    match_info <- allocMem :: IO (Ptr (Ptr MatchInfo))-    result <- g_regex_match_all _obj' string' match_options' match_info-    let result' = (/= 0) result-    match_info' <- peek match_info-    match_info'' <- (wrapBoxed MatchInfo) match_info'-    touchManagedPtr _obj-    freeMem string'-    freeMem match_info-    return (result', match_info'')---- method Regex::match_all_full--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_regex_match_all_full" g_regex_match_all_full :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    Ptr CString ->                          -- string : TCArray False (-1) 2 (TBasicType TUTF8)-    Int64 ->                                -- string_len : TBasicType TInt64-    Int32 ->                                -- start_position : TBasicType TInt32-    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"-    Ptr (Ptr MatchInfo) ->                  -- match_info : TInterface "GLib" "MatchInfo"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---regexMatchAllFull ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    [T.Text] ->                             -- string-    Int32 ->                                -- start_position-    [RegexMatchFlags] ->                    -- match_options-    m (MatchInfo)-regexMatchAllFull _obj string start_position match_options = liftIO $ do-    let string_len = fromIntegral $ length string-    let _obj' = unsafeManagedPtrGetPtr _obj-    string' <- packUTF8CArray string-    let match_options' = gflagsToWord match_options-    match_info <- allocMem :: IO (Ptr (Ptr MatchInfo))-    onException (do-        _ <- propagateGError $ g_regex_match_all_full _obj' string' string_len start_position match_options' match_info-        match_info' <- peek match_info-        match_info'' <- (wrapBoxed MatchInfo) match_info'-        touchManagedPtr _obj-        (mapCArrayWithLength string_len) freeMem string'-        freeMem string'-        freeMem match_info-        return match_info''-     ) (do-        (mapCArrayWithLength string_len) freeMem string'-        freeMem string'-        freeMem match_info-     )---- method Regex::match_full--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_regex_match_full" g_regex_match_full :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    Ptr CString ->                          -- string : TCArray False (-1) 2 (TBasicType TUTF8)-    Int64 ->                                -- string_len : TBasicType TInt64-    Int32 ->                                -- start_position : TBasicType TInt32-    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"-    Ptr (Ptr MatchInfo) ->                  -- match_info : TInterface "GLib" "MatchInfo"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---regexMatchFull ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    [T.Text] ->                             -- string-    Int32 ->                                -- start_position-    [RegexMatchFlags] ->                    -- match_options-    m (MatchInfo)-regexMatchFull _obj string start_position match_options = liftIO $ do-    let string_len = fromIntegral $ length string-    let _obj' = unsafeManagedPtrGetPtr _obj-    string' <- packUTF8CArray string-    let match_options' = gflagsToWord match_options-    match_info <- allocMem :: IO (Ptr (Ptr MatchInfo))-    onException (do-        _ <- propagateGError $ g_regex_match_full _obj' string' string_len start_position match_options' match_info-        match_info' <- peek match_info-        match_info'' <- (wrapBoxed MatchInfo) match_info'-        touchManagedPtr _obj-        (mapCArrayWithLength string_len) freeMem string'-        freeMem string'-        freeMem match_info-        return match_info''-     ) (do-        (mapCArrayWithLength string_len) freeMem string'-        freeMem string'-        freeMem match_info-     )---- method Regex::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Regex"--- throws : False--- Skip return : False--foreign import ccall "g_regex_ref" g_regex_ref :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    IO (Ptr Regex)---regexRef ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    m Regex-regexRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_regex_ref _obj'-    checkUnexpectedReturnNULL "g_regex_ref" result-    result' <- (wrapBoxed Regex) result-    touchManagedPtr _obj-    return result'---- method Regex::replace--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_regex_replace" g_regex_replace :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    Ptr CString ->                          -- string : TCArray False (-1) 2 (TBasicType TUTF8)-    Int64 ->                                -- string_len : TBasicType TInt64-    Int32 ->                                -- start_position : TBasicType TInt32-    CString ->                              -- replacement : TBasicType TUTF8-    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"-    Ptr (Ptr GError) ->                     -- error-    IO CString---regexReplace ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    [T.Text] ->                             -- string-    Int32 ->                                -- start_position-    T.Text ->                               -- replacement-    [RegexMatchFlags] ->                    -- match_options-    m T.Text-regexReplace _obj string start_position replacement match_options = liftIO $ do-    let string_len = fromIntegral $ length string-    let _obj' = unsafeManagedPtrGetPtr _obj-    string' <- packUTF8CArray string-    replacement' <- textToCString replacement-    let match_options' = gflagsToWord match_options-    onException (do-        result <- propagateGError $ g_regex_replace _obj' string' string_len start_position replacement' match_options'-        checkUnexpectedReturnNULL "g_regex_replace" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        (mapCArrayWithLength string_len) freeMem string'-        freeMem string'-        freeMem replacement'-        return result'-     ) (do-        (mapCArrayWithLength string_len) freeMem string'-        freeMem string'-        freeMem replacement'-     )---- method Regex::replace_literal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : True--- Skip return : False--foreign import ccall "g_regex_replace_literal" g_regex_replace_literal :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    Ptr CString ->                          -- string : TCArray False (-1) 2 (TBasicType TUTF8)-    Int64 ->                                -- string_len : TBasicType TInt64-    Int32 ->                                -- start_position : TBasicType TInt32-    CString ->                              -- replacement : TBasicType TUTF8-    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"-    Ptr (Ptr GError) ->                     -- error-    IO CString---regexReplaceLiteral ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    [T.Text] ->                             -- string-    Int32 ->                                -- start_position-    T.Text ->                               -- replacement-    [RegexMatchFlags] ->                    -- match_options-    m T.Text-regexReplaceLiteral _obj string start_position replacement match_options = liftIO $ do-    let string_len = fromIntegral $ length string-    let _obj' = unsafeManagedPtrGetPtr _obj-    string' <- packUTF8CArray string-    replacement' <- textToCString replacement-    let match_options' = gflagsToWord match_options-    onException (do-        result <- propagateGError $ g_regex_replace_literal _obj' string' string_len start_position replacement' match_options'-        checkUnexpectedReturnNULL "g_regex_replace_literal" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr _obj-        (mapCArrayWithLength string_len) freeMem string'-        freeMem string'-        freeMem replacement'-        return result'-     ) (do-        (mapCArrayWithLength string_len) freeMem string'-        freeMem string'-        freeMem replacement'-     )---- method Regex::split--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_regex_split" g_regex_split :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    CString ->                              -- string : TBasicType TUTF8-    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"-    IO (Ptr CString)---regexSplit ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    T.Text ->                               -- string-    [RegexMatchFlags] ->                    -- match_options-    m [T.Text]-regexSplit _obj string match_options = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    string' <- textToCString string-    let match_options' = gflagsToWord match_options-    result <- g_regex_split _obj' string' match_options'-    checkUnexpectedReturnNULL "g_regex_split" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr _obj-    freeMem string'-    return result'---- method Regex::split_full--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_tokens", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_tokens", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_regex_split_full" g_regex_split_full :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    Ptr CString ->                          -- string : TCArray False (-1) 2 (TBasicType TUTF8)-    Int64 ->                                -- string_len : TBasicType TInt64-    Int32 ->                                -- start_position : TBasicType TInt32-    CUInt ->                                -- match_options : TInterface "GLib" "RegexMatchFlags"-    Int32 ->                                -- max_tokens : TBasicType TInt32-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)---regexSplitFull ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    [T.Text] ->                             -- string-    Int32 ->                                -- start_position-    [RegexMatchFlags] ->                    -- match_options-    Int32 ->                                -- max_tokens-    m [T.Text]-regexSplitFull _obj string start_position match_options max_tokens = liftIO $ do-    let string_len = fromIntegral $ length string-    let _obj' = unsafeManagedPtrGetPtr _obj-    string' <- packUTF8CArray string-    let match_options' = gflagsToWord match_options-    onException (do-        result <- propagateGError $ g_regex_split_full _obj' string' string_len start_position match_options' max_tokens-        checkUnexpectedReturnNULL "g_regex_split_full" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr _obj-        (mapCArrayWithLength string_len) freeMem string'-        freeMem string'-        return result'-     ) (do-        (mapCArrayWithLength string_len) freeMem string'-        freeMem string'-     )---- method Regex::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_regex_unref" g_regex_unref :: -    Ptr Regex ->                            -- _obj : TInterface "GLib" "Regex"-    IO ()---regexUnref ::-    (MonadIO m) =>-    Regex ->                                -- _obj-    m ()-regexUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_regex_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/Regex.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.Regex where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Regex = Regex (ForeignPtr Regex)-instance BoxedObject Regex where
− GI/GLib/Structs/Scanner.hs 
@@ -1,630 +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 data structure representing a lexical scanner.--You should set @input_name after creating the scanner, since-it is used by the default message handler when displaying-warnings and errors. If you are scanning a file, the filename-would be a good choice.--The @user_data and @max_parse_errors fields are not used.-If you need to associate extra data with the scanner you-can place them here.--If you want to use your own message handler you can set the-@msg_handler field. The type of the message handler function-is declared by #GScannerMsgFunc.--}--module GI.GLib.Structs.Scanner-    ( ---- * Exported types-    Scanner(..)                             ,-    noScanner                               ,--- -- * Methods--- ** scannerCurLine-    scannerCurLine                          ,----- ** scannerCurPosition-    scannerCurPosition                      ,----- ** scannerCurToken-    scannerCurToken                         ,----- ** scannerDestroy-    scannerDestroy                          ,----- ** scannerEof-    scannerEof                              ,----- ** scannerGetNextToken-    scannerGetNextToken                     ,----- ** scannerInputFile-    scannerInputFile                        ,----- ** scannerInputText-    scannerInputText                        ,----- ** scannerPeekNextToken-    scannerPeekNextToken                    ,----- ** scannerScopeAddSymbol-    scannerScopeAddSymbol                   ,----- ** scannerScopeRemoveSymbol-    scannerScopeRemoveSymbol                ,----- ** scannerSetScope-    scannerSetScope                         ,----- ** scannerSyncFileOffset-    scannerSyncFileOffset                   ,----- ** scannerUnexpToken-    scannerUnexpToken                       ,----- -- * Properties--- ** Config-    scannerReadConfig                       ,----- ** InputName-    scannerReadInputName                    ,----- ** Line-    scannerReadLine                         ,----- ** MaxParseErrors-    scannerReadMaxParseErrors               ,----- ** NextLine-    scannerReadNextLine                     ,----- ** NextPosition-    scannerReadNextPosition                 ,----- ** NextToken-    scannerReadNextToken                    ,----- ** NextValue-    scannerReadNextValue                    ,----- ** ParseErrors-    scannerReadParseErrors                  ,----- ** Position-    scannerReadPosition                     ,----- ** Qdata-    scannerReadQdata                        ,----- ** Token-    scannerReadToken                        ,----- ** UserData-    scannerReadUserData                     ,----- ** Value-    scannerReadValue                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Scanner = Scanner (ForeignPtr Scanner)-noScanner :: Maybe Scanner-noScanner = Nothing--scannerReadUserData :: Scanner -> IO (Ptr ())-scannerReadUserData s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--scannerReadMaxParseErrors :: Scanner -> IO Word32-scannerReadMaxParseErrors s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word32-    return val--scannerReadParseErrors :: Scanner -> IO Word32-scannerReadParseErrors s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Word32-    return val--scannerReadInputName :: Scanner -> IO T.Text-scannerReadInputName s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'--scannerReadQdata :: Scanner -> IO Data-scannerReadQdata s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Data)-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    val' <- (\x -> Data <$> newForeignPtr_ x) val-    return val'--scannerReadConfig :: Scanner -> IO ScannerConfig-scannerReadConfig s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr ScannerConfig)-    val' <- (newPtr 128 ScannerConfig) val-    return val'--scannerReadToken :: Scanner -> IO TokenType-scannerReadToken s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--scannerReadValue :: Scanner -> IO TokenValue-scannerReadValue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO (Ptr TokenValue)-    val' <- (newPtr 8 TokenValue) val-    return val'--scannerReadLine :: Scanner -> IO Word32-scannerReadLine s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO Word32-    return val--scannerReadPosition :: Scanner -> IO Word32-scannerReadPosition s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 60) :: IO Word32-    return val--scannerReadNextToken :: Scanner -> IO TokenType-scannerReadNextToken s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--scannerReadNextValue :: Scanner -> IO TokenValue-scannerReadNextValue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO (Ptr TokenValue)-    val' <- (newPtr 8 TokenValue) val-    return val'--scannerReadNextLine :: Scanner -> IO Word32-scannerReadNextLine s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 80) :: IO Word32-    return val--scannerReadNextPosition :: Scanner -> IO Word32-scannerReadNextPosition s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 84) :: IO Word32-    return val---- XXX Skipped getter for "Scanner:msg_handler" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- method Scanner::cur_line--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_scanner_cur_line" g_scanner_cur_line :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    IO Word32---scannerCurLine ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    m Word32-scannerCurLine _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_scanner_cur_line _obj'-    touchManagedPtr _obj-    return result---- method Scanner::cur_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_scanner_cur_position" g_scanner_cur_position :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    IO Word32---scannerCurPosition ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    m Word32-scannerCurPosition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_scanner_cur_position _obj'-    touchManagedPtr _obj-    return result---- method Scanner::cur_token--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "TokenType"--- throws : False--- Skip return : False--foreign import ccall "g_scanner_cur_token" g_scanner_cur_token :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    IO CUInt---scannerCurToken ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    m TokenType-scannerCurToken _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_scanner_cur_token _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Scanner::destroy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_scanner_destroy" g_scanner_destroy :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    IO ()---scannerDestroy ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    m ()-scannerDestroy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_scanner_destroy _obj'-    touchManagedPtr _obj-    return ()---- method Scanner::eof--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_scanner_eof" g_scanner_eof :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    IO CInt---scannerEof ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    m Bool-scannerEof _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_scanner_eof _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Scanner::get_next_token--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "TokenType"--- throws : False--- Skip return : False--foreign import ccall "g_scanner_get_next_token" g_scanner_get_next_token :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    IO CUInt---scannerGetNextToken ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    m TokenType-scannerGetNextToken _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_scanner_get_next_token _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Scanner::input_file--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "input_fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "input_fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_scanner_input_file" g_scanner_input_file :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    Int32 ->                                -- input_fd : TBasicType TInt32-    IO ()---scannerInputFile ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    Int32 ->                                -- input_fd-    m ()-scannerInputFile _obj input_fd = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_scanner_input_file _obj' input_fd-    touchManagedPtr _obj-    return ()---- method Scanner::input_text--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_scanner_input_text" g_scanner_input_text :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    CString ->                              -- text : TBasicType TUTF8-    Word32 ->                               -- text_len : TBasicType TUInt32-    IO ()---scannerInputText ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    T.Text ->                               -- text-    Word32 ->                               -- text_len-    m ()-scannerInputText _obj text text_len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    text' <- textToCString text-    g_scanner_input_text _obj' text' text_len-    touchManagedPtr _obj-    freeMem text'-    return ()---- method Scanner::peek_next_token--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "TokenType"--- throws : False--- Skip return : False--foreign import ccall "g_scanner_peek_next_token" g_scanner_peek_next_token :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    IO CUInt---scannerPeekNextToken ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    m TokenType-scannerPeekNextToken _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_scanner_peek_next_token _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Scanner::scope_add_symbol--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_scanner_scope_add_symbol" g_scanner_scope_add_symbol :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    Word32 ->                               -- scope_id : TBasicType TUInt32-    CString ->                              -- symbol : TBasicType TUTF8-    Ptr () ->                               -- value : TBasicType TVoid-    IO ()---scannerScopeAddSymbol ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    Word32 ->                               -- scope_id-    T.Text ->                               -- symbol-    Ptr () ->                               -- value-    m ()-scannerScopeAddSymbol _obj scope_id symbol value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    symbol' <- textToCString symbol-    g_scanner_scope_add_symbol _obj' scope_id symbol' value-    touchManagedPtr _obj-    freeMem symbol'-    return ()---- method Scanner::scope_remove_symbol--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_scanner_scope_remove_symbol" g_scanner_scope_remove_symbol :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    Word32 ->                               -- scope_id : TBasicType TUInt32-    CString ->                              -- symbol : TBasicType TUTF8-    IO ()---scannerScopeRemoveSymbol ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    Word32 ->                               -- scope_id-    T.Text ->                               -- symbol-    m ()-scannerScopeRemoveSymbol _obj scope_id symbol = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    symbol' <- textToCString symbol-    g_scanner_scope_remove_symbol _obj' scope_id symbol'-    touchManagedPtr _obj-    freeMem symbol'-    return ()---- method Scanner::set_scope--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_scanner_set_scope" g_scanner_set_scope :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    Word32 ->                               -- scope_id : TBasicType TUInt32-    IO Word32---scannerSetScope ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    Word32 ->                               -- scope_id-    m Word32-scannerSetScope _obj scope_id = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_scanner_set_scope _obj' scope_id-    touchManagedPtr _obj-    return result---- method Scanner::sync_file_offset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_scanner_sync_file_offset" g_scanner_sync_file_offset :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    IO ()---scannerSyncFileOffset ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    m ()-scannerSyncFileOffset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_scanner_sync_file_offset _obj'-    touchManagedPtr _obj-    return ()---- method Scanner::unexp_token--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_token", argType = TInterface "GLib" "TokenType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_error", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_token", argType = TInterface "GLib" "TokenType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_error", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_scanner_unexp_token" g_scanner_unexp_token :: -    Ptr Scanner ->                          -- _obj : TInterface "GLib" "Scanner"-    CUInt ->                                -- expected_token : TInterface "GLib" "TokenType"-    CString ->                              -- identifier_spec : TBasicType TUTF8-    CString ->                              -- symbol_spec : TBasicType TUTF8-    CString ->                              -- symbol_name : TBasicType TUTF8-    CString ->                              -- message : TBasicType TUTF8-    Int32 ->                                -- is_error : TBasicType TInt32-    IO ()---scannerUnexpToken ::-    (MonadIO m) =>-    Scanner ->                              -- _obj-    TokenType ->                            -- expected_token-    T.Text ->                               -- identifier_spec-    T.Text ->                               -- symbol_spec-    T.Text ->                               -- symbol_name-    T.Text ->                               -- message-    Int32 ->                                -- is_error-    m ()-scannerUnexpToken _obj expected_token identifier_spec symbol_spec symbol_name message is_error = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let expected_token' = (fromIntegral . fromEnum) expected_token-    identifier_spec' <- textToCString identifier_spec-    symbol_spec' <- textToCString symbol_spec-    symbol_name' <- textToCString symbol_name-    message' <- textToCString message-    g_scanner_unexp_token _obj' expected_token' identifier_spec' symbol_spec' symbol_name' message' is_error-    touchManagedPtr _obj-    freeMem identifier_spec'-    freeMem symbol_spec'-    freeMem symbol_name'-    freeMem message'-    return ()--
− GI/GLib/Structs/Scanner.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Scanner where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Scanner = Scanner (ForeignPtr Scanner)
− GI/GLib/Structs/ScannerConfig.hs 
@@ -1,277 +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)--Specifies the #GScanner parser configuration. Most settings can-be changed during the parsing phase and will affect the lexical-parsing of the next unpeeked token.--}--module GI.GLib.Structs.ScannerConfig-    ( ---- * Exported types-    ScannerConfig(..)                       ,-    noScannerConfig                         ,--- -- * Properties--- ** CaseSensitive-    scannerConfigReadCaseSensitive          ,----- ** Char2Token-    scannerConfigReadChar2Token             ,----- ** CpairCommentSingle-    scannerConfigReadCpairCommentSingle     ,----- ** CsetIdentifierFirst-    scannerConfigReadCsetIdentifierFirst    ,----- ** CsetIdentifierNth-    scannerConfigReadCsetIdentifierNth      ,----- ** CsetSkipCharacters-    scannerConfigReadCsetSkipCharacters     ,----- ** Identifier2String-    scannerConfigReadIdentifier2String      ,----- ** Int2Float-    scannerConfigReadInt2Float              ,----- ** Numbers2Int-    scannerConfigReadNumbers2Int            ,----- ** ScanBinary-    scannerConfigReadScanBinary             ,----- ** ScanCommentMulti-    scannerConfigReadScanCommentMulti       ,----- ** ScanFloat-    scannerConfigReadScanFloat              ,----- ** ScanHex-    scannerConfigReadScanHex                ,----- ** ScanHexDollar-    scannerConfigReadScanHexDollar          ,----- ** ScanIdentifier-    scannerConfigReadScanIdentifier         ,----- ** ScanIdentifier1char-    scannerConfigReadScanIdentifier1char    ,----- ** ScanIdentifierNULL-    scannerConfigReadScanIdentifierNULL     ,----- ** ScanOctal-    scannerConfigReadScanOctal              ,----- ** ScanStringDq-    scannerConfigReadScanStringDq           ,----- ** ScanStringSq-    scannerConfigReadScanStringSq           ,----- ** ScanSymbols-    scannerConfigReadScanSymbols            ,----- ** Scope0Fallback-    scannerConfigReadScope0Fallback         ,----- ** SkipCommentMulti-    scannerConfigReadSkipCommentMulti       ,----- ** SkipCommentSingle-    scannerConfigReadSkipCommentSingle      ,----- ** StoreInt64-    scannerConfigReadStoreInt64             ,----- ** Symbol2Token-    scannerConfigReadSymbol2Token           ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype ScannerConfig = ScannerConfig (ForeignPtr ScannerConfig)-noScannerConfig :: Maybe ScannerConfig-noScannerConfig = Nothing--scannerConfigReadCsetSkipCharacters :: ScannerConfig -> IO T.Text-scannerConfigReadCsetSkipCharacters s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--scannerConfigReadCsetIdentifierFirst :: ScannerConfig -> IO T.Text-scannerConfigReadCsetIdentifierFirst s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'--scannerConfigReadCsetIdentifierNth :: ScannerConfig -> IO T.Text-scannerConfigReadCsetIdentifierNth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'--scannerConfigReadCpairCommentSingle :: ScannerConfig -> IO T.Text-scannerConfigReadCpairCommentSingle s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    val' <- cstringToText val-    return val'--scannerConfigReadCaseSensitive :: ScannerConfig -> IO Word32-scannerConfigReadCaseSensitive s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--scannerConfigReadSkipCommentMulti :: ScannerConfig -> IO Word32-scannerConfigReadSkipCommentMulti s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 36) :: IO Word32-    return val--scannerConfigReadSkipCommentSingle :: ScannerConfig -> IO Word32-scannerConfigReadSkipCommentSingle s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO Word32-    return val--scannerConfigReadScanCommentMulti :: ScannerConfig -> IO Word32-scannerConfigReadScanCommentMulti s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 44) :: IO Word32-    return val--scannerConfigReadScanIdentifier :: ScannerConfig -> IO Word32-scannerConfigReadScanIdentifier s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO Word32-    return val--scannerConfigReadScanIdentifier1char :: ScannerConfig -> IO Word32-scannerConfigReadScanIdentifier1char s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 52) :: IO Word32-    return val--scannerConfigReadScanIdentifierNULL :: ScannerConfig -> IO Word32-scannerConfigReadScanIdentifierNULL s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO Word32-    return val--scannerConfigReadScanSymbols :: ScannerConfig -> IO Word32-scannerConfigReadScanSymbols s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 60) :: IO Word32-    return val--scannerConfigReadScanBinary :: ScannerConfig -> IO Word32-scannerConfigReadScanBinary s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO Word32-    return val--scannerConfigReadScanOctal :: ScannerConfig -> IO Word32-scannerConfigReadScanOctal s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 68) :: IO Word32-    return val--scannerConfigReadScanFloat :: ScannerConfig -> IO Word32-scannerConfigReadScanFloat s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO Word32-    return val--scannerConfigReadScanHex :: ScannerConfig -> IO Word32-scannerConfigReadScanHex s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 76) :: IO Word32-    return val--scannerConfigReadScanHexDollar :: ScannerConfig -> IO Word32-scannerConfigReadScanHexDollar s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 80) :: IO Word32-    return val--scannerConfigReadScanStringSq :: ScannerConfig -> IO Word32-scannerConfigReadScanStringSq s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 84) :: IO Word32-    return val--scannerConfigReadScanStringDq :: ScannerConfig -> IO Word32-scannerConfigReadScanStringDq s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 88) :: IO Word32-    return val--scannerConfigReadNumbers2Int :: ScannerConfig -> IO Word32-scannerConfigReadNumbers2Int s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 92) :: IO Word32-    return val--scannerConfigReadInt2Float :: ScannerConfig -> IO Word32-scannerConfigReadInt2Float s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 96) :: IO Word32-    return val--scannerConfigReadIdentifier2String :: ScannerConfig -> IO Word32-scannerConfigReadIdentifier2String s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 100) :: IO Word32-    return val--scannerConfigReadChar2Token :: ScannerConfig -> IO Word32-scannerConfigReadChar2Token s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 104) :: IO Word32-    return val--scannerConfigReadSymbol2Token :: ScannerConfig -> IO Word32-scannerConfigReadSymbol2Token s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 108) :: IO Word32-    return val--scannerConfigReadScope0Fallback :: ScannerConfig -> IO Word32-scannerConfigReadScope0Fallback s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 112) :: IO Word32-    return val--scannerConfigReadStoreInt64 :: ScannerConfig -> IO Word32-scannerConfigReadStoreInt64 s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 116) :: IO Word32-    return val--
− GI/GLib/Structs/ScannerConfig.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.ScannerConfig where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ScannerConfig = ScannerConfig (ForeignPtr ScannerConfig)
− GI/GLib/Structs/Sequence.hs 
@@ -1,94 +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 #GSequence struct is an opaque data type representing a-[sequence][glib-Sequences] data type.--}--module GI.GLib.Structs.Sequence-    ( ---- * Exported types-    Sequence(..)                            ,-    noSequence                              ,--- -- * Methods--- ** sequenceFree-    sequenceFree                            ,----- ** sequenceGetLength-    sequenceGetLength                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Sequence = Sequence (ForeignPtr Sequence)-noSequence :: Maybe Sequence-noSequence = Nothing---- method Sequence::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_sequence_free" g_sequence_free :: -    Ptr Sequence ->                         -- _obj : TInterface "GLib" "Sequence"-    IO ()---sequenceFree ::-    (MonadIO m) =>-    Sequence ->                             -- _obj-    m ()-sequenceFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_sequence_free _obj'-    touchManagedPtr _obj-    return ()---- method Sequence::get_length--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_sequence_get_length" g_sequence_get_length :: -    Ptr Sequence ->                         -- _obj : TInterface "GLib" "Sequence"-    IO Int32---sequenceGetLength ::-    (MonadIO m) =>-    Sequence ->                             -- _obj-    m Int32-sequenceGetLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_sequence_get_length _obj'-    touchManagedPtr _obj-    return result--
− GI/GLib/Structs/Sequence.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Sequence where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Sequence = Sequence (ForeignPtr Sequence)
− GI/GLib/Structs/SequenceIter.hs 
@@ -1,156 +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 #GSequenceIter struct is an opaque data type representing an-iterator pointing into a #GSequence.--}--module GI.GLib.Structs.SequenceIter-    ( ---- * Exported types-    SequenceIter(..)                        ,-    noSequenceIter                          ,--- -- * Methods--- ** sequenceIterCompare-    sequenceIterCompare                     ,----- ** sequenceIterGetPosition-    sequenceIterGetPosition                 ,----- ** sequenceIterIsBegin-    sequenceIterIsBegin                     ,----- ** sequenceIterIsEnd-    sequenceIterIsEnd                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype SequenceIter = SequenceIter (ForeignPtr SequenceIter)-noSequenceIter :: Maybe SequenceIter-noSequenceIter = Nothing---- method SequenceIter::compare--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_sequence_iter_compare" g_sequence_iter_compare :: -    Ptr SequenceIter ->                     -- _obj : TInterface "GLib" "SequenceIter"-    Ptr SequenceIter ->                     -- b : TInterface "GLib" "SequenceIter"-    IO Int32---sequenceIterCompare ::-    (MonadIO m) =>-    SequenceIter ->                         -- _obj-    SequenceIter ->                         -- b-    m Int32-sequenceIterCompare _obj b = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let b' = unsafeManagedPtrGetPtr b-    result <- g_sequence_iter_compare _obj' b'-    touchManagedPtr _obj-    touchManagedPtr b-    return result---- method SequenceIter::get_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_sequence_iter_get_position" g_sequence_iter_get_position :: -    Ptr SequenceIter ->                     -- _obj : TInterface "GLib" "SequenceIter"-    IO Int32---sequenceIterGetPosition ::-    (MonadIO m) =>-    SequenceIter ->                         -- _obj-    m Int32-sequenceIterGetPosition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_sequence_iter_get_position _obj'-    touchManagedPtr _obj-    return result---- method SequenceIter::is_begin--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_sequence_iter_is_begin" g_sequence_iter_is_begin :: -    Ptr SequenceIter ->                     -- _obj : TInterface "GLib" "SequenceIter"-    IO CInt---sequenceIterIsBegin ::-    (MonadIO m) =>-    SequenceIter ->                         -- _obj-    m Bool-sequenceIterIsBegin _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_sequence_iter_is_begin _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method SequenceIter::is_end--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_sequence_iter_is_end" g_sequence_iter_is_end :: -    Ptr SequenceIter ->                     -- _obj : TInterface "GLib" "SequenceIter"-    IO CInt---sequenceIterIsEnd ::-    (MonadIO m) =>-    SequenceIter ->                         -- _obj-    m Bool-sequenceIterIsEnd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_sequence_iter_is_end _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--
− GI/GLib/Structs/SequenceIter.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.SequenceIter where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SequenceIter = SequenceIter (ForeignPtr SequenceIter)
− GI/GLib/Structs/Source.hs 
@@ -1,906 +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 `GSource` struct is an opaque data type-representing an event source.--}--module GI.GLib.Structs.Source-    ( ---- * Exported types-    Source(..)                              ,-    noSource                                ,--- -- * Methods--- ** sourceAddChildSource-    sourceAddChildSource                    ,----- ** sourceAddPoll-    sourceAddPoll                           ,----- ** sourceAttach-    sourceAttach                            ,----- ** sourceDestroy-    sourceDestroy                           ,----- ** sourceGetCanRecurse-    sourceGetCanRecurse                     ,----- ** sourceGetContext-    sourceGetContext                        ,----- ** sourceGetCurrentTime-    sourceGetCurrentTime                    ,----- ** sourceGetId-    sourceGetId                             ,----- ** sourceGetName-    sourceGetName                           ,----- ** sourceGetPriority-    sourceGetPriority                       ,----- ** sourceGetReadyTime-    sourceGetReadyTime                      ,----- ** sourceGetTime-    sourceGetTime                           ,----- ** sourceIsDestroyed-    sourceIsDestroyed                       ,----- ** sourceModifyUnixFd-    sourceModifyUnixFd                      ,----- ** sourceNew-    sourceNew                               ,----- ** sourceQueryUnixFd-    sourceQueryUnixFd                       ,----- ** sourceRef-    sourceRef                               ,----- ** sourceRemoveChildSource-    sourceRemoveChildSource                 ,----- ** sourceRemovePoll-    sourceRemovePoll                        ,----- ** sourceRemoveUnixFd-    sourceRemoveUnixFd                      ,----- ** sourceSetCallback-    sourceSetCallback                       ,----- ** sourceSetCallbackIndirect-    sourceSetCallbackIndirect               ,----- ** sourceSetCanRecurse-    sourceSetCanRecurse                     ,----- ** sourceSetFuncs-    sourceSetFuncs                          ,----- ** sourceSetName-    sourceSetName                           ,----- ** sourceSetPriority-    sourceSetPriority                       ,----- ** sourceSetReadyTime-    sourceSetReadyTime                      ,----- ** sourceUnref-    sourceUnref                             ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Source = Source (ForeignPtr Source)-foreign import ccall "g_source_get_type" c_g_source_get_type :: -    IO GType--instance BoxedObject Source where-    boxedType _ = c_g_source_get_type--noSource :: Maybe Source-noSource = Nothing---- method Source::new--- method type : Constructor--- Args : [Arg {argName = "source_funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "struct_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "source_funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "struct_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_source_new" g_source_new :: -    Ptr SourceFuncs ->                      -- source_funcs : TInterface "GLib" "SourceFuncs"-    Word32 ->                               -- struct_size : TBasicType TUInt32-    IO (Ptr Source)---sourceNew ::-    (MonadIO m) =>-    SourceFuncs ->                          -- source_funcs-    Word32 ->                               -- struct_size-    m Source-sourceNew source_funcs struct_size = liftIO $ do-    let source_funcs' = unsafeManagedPtrGetPtr source_funcs-    result <- g_source_new source_funcs' struct_size-    checkUnexpectedReturnNULL "g_source_new" result-    result' <- (wrapBoxed Source) result-    touchManagedPtr source_funcs-    return result'---- method Source::add_child_source--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_add_child_source" g_source_add_child_source :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Ptr Source ->                           -- child_source : TInterface "GLib" "Source"-    IO ()---sourceAddChildSource ::-    (MonadIO m) =>-    Source ->                               -- _obj-    Source ->                               -- child_source-    m ()-sourceAddChildSource _obj child_source = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let child_source' = unsafeManagedPtrGetPtr child_source-    g_source_add_child_source _obj' child_source'-    touchManagedPtr _obj-    touchManagedPtr child_source-    return ()---- method Source::add_poll--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_add_poll" g_source_add_poll :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Ptr PollFD ->                           -- fd : TInterface "GLib" "PollFD"-    IO ()---sourceAddPoll ::-    (MonadIO m) =>-    Source ->                               -- _obj-    PollFD ->                               -- fd-    m ()-sourceAddPoll _obj fd = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let fd' = unsafeManagedPtrGetPtr fd-    g_source_add_poll _obj' fd'-    touchManagedPtr _obj-    touchManagedPtr fd-    return ()---- method Source::attach--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_source_attach" g_source_attach :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Ptr MainContext ->                      -- context : TInterface "GLib" "MainContext"-    IO Word32---sourceAttach ::-    (MonadIO m) =>-    Source ->                               -- _obj-    Maybe (MainContext) ->                  -- context-    m Word32-sourceAttach _obj context = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeContext <- case context of-        Nothing -> return nullPtr-        Just jContext -> do-            let jContext' = unsafeManagedPtrGetPtr jContext-            return jContext'-    result <- g_source_attach _obj' maybeContext-    touchManagedPtr _obj-    whenJust context touchManagedPtr-    return result---- method Source::destroy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_destroy" g_source_destroy :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    IO ()---sourceDestroy ::-    (MonadIO m) =>-    Source ->                               -- _obj-    m ()-sourceDestroy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_source_destroy _obj'-    touchManagedPtr _obj-    return ()---- method Source::get_can_recurse--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_source_get_can_recurse" g_source_get_can_recurse :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    IO CInt---sourceGetCanRecurse ::-    (MonadIO m) =>-    Source ->                               -- _obj-    m Bool-sourceGetCanRecurse _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_source_get_can_recurse _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Source::get_context--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MainContext"--- throws : False--- Skip return : False--foreign import ccall "g_source_get_context" g_source_get_context :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    IO (Ptr MainContext)---sourceGetContext ::-    (MonadIO m) =>-    Source ->                               -- _obj-    m MainContext-sourceGetContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_source_get_context _obj'-    checkUnexpectedReturnNULL "g_source_get_context" result-    result' <- (newBoxed MainContext) result-    touchManagedPtr _obj-    return result'---- method Source::get_current_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_get_current_time" g_source_get_current_time :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Ptr TimeVal ->                          -- timeval : TInterface "GLib" "TimeVal"-    IO ()--{-# DEPRECATED sourceGetCurrentTime ["(Since version 2.28)","use g_source_get_time() instead"]#-}-sourceGetCurrentTime ::-    (MonadIO m) =>-    Source ->                               -- _obj-    TimeVal ->                              -- timeval-    m ()-sourceGetCurrentTime _obj timeval = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let timeval' = unsafeManagedPtrGetPtr timeval-    g_source_get_current_time _obj' timeval'-    touchManagedPtr _obj-    touchManagedPtr timeval-    return ()---- method Source::get_id--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_source_get_id" g_source_get_id :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    IO Word32---sourceGetId ::-    (MonadIO m) =>-    Source ->                               -- _obj-    m Word32-sourceGetId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_source_get_id _obj'-    touchManagedPtr _obj-    return result---- method Source::get_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_source_get_name" g_source_get_name :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    IO CString---sourceGetName ::-    (MonadIO m) =>-    Source ->                               -- _obj-    m T.Text-sourceGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_source_get_name _obj'-    checkUnexpectedReturnNULL "g_source_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Source::get_priority--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_source_get_priority" g_source_get_priority :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    IO Int32---sourceGetPriority ::-    (MonadIO m) =>-    Source ->                               -- _obj-    m Int32-sourceGetPriority _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_source_get_priority _obj'-    touchManagedPtr _obj-    return result---- method Source::get_ready_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_source_get_ready_time" g_source_get_ready_time :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    IO Int64---sourceGetReadyTime ::-    (MonadIO m) =>-    Source ->                               -- _obj-    m Int64-sourceGetReadyTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_source_get_ready_time _obj'-    touchManagedPtr _obj-    return result---- method Source::get_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt64--- throws : False--- Skip return : False--foreign import ccall "g_source_get_time" g_source_get_time :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    IO Int64---sourceGetTime ::-    (MonadIO m) =>-    Source ->                               -- _obj-    m Int64-sourceGetTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_source_get_time _obj'-    touchManagedPtr _obj-    return result---- method Source::is_destroyed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_source_is_destroyed" g_source_is_destroyed :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    IO CInt---sourceIsDestroyed ::-    (MonadIO m) =>-    Source ->                               -- _obj-    m Bool-sourceIsDestroyed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_source_is_destroyed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Source::modify_unix_fd--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_events", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_events", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_modify_unix_fd" g_source_modify_unix_fd :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Ptr () ->                               -- tag : TBasicType TVoid-    CUInt ->                                -- new_events : TInterface "GLib" "IOCondition"-    IO ()---sourceModifyUnixFd ::-    (MonadIO m) =>-    Source ->                               -- _obj-    Ptr () ->                               -- tag-    [IOCondition] ->                        -- new_events-    m ()-sourceModifyUnixFd _obj tag new_events = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let new_events' = gflagsToWord new_events-    g_source_modify_unix_fd _obj' tag new_events'-    touchManagedPtr _obj-    return ()---- method Source::query_unix_fd--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "IOCondition"--- throws : False--- Skip return : False--foreign import ccall "g_source_query_unix_fd" g_source_query_unix_fd :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Ptr () ->                               -- tag : TBasicType TVoid-    IO CUInt---sourceQueryUnixFd ::-    (MonadIO m) =>-    Source ->                               -- _obj-    Ptr () ->                               -- tag-    m [IOCondition]-sourceQueryUnixFd _obj tag = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_source_query_unix_fd _obj' tag-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method Source::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Source"--- throws : False--- Skip return : False--foreign import ccall "g_source_ref" g_source_ref :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    IO (Ptr Source)---sourceRef ::-    (MonadIO m) =>-    Source ->                               -- _obj-    m Source-sourceRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_source_ref _obj'-    checkUnexpectedReturnNULL "g_source_ref" result-    result' <- (wrapBoxed Source) result-    touchManagedPtr _obj-    return result'---- method Source::remove_child_source--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_remove_child_source" g_source_remove_child_source :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Ptr Source ->                           -- child_source : TInterface "GLib" "Source"-    IO ()---sourceRemoveChildSource ::-    (MonadIO m) =>-    Source ->                               -- _obj-    Source ->                               -- child_source-    m ()-sourceRemoveChildSource _obj child_source = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let child_source' = unsafeManagedPtrGetPtr child_source-    g_source_remove_child_source _obj' child_source'-    touchManagedPtr _obj-    touchManagedPtr child_source-    return ()---- method Source::remove_poll--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_remove_poll" g_source_remove_poll :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Ptr PollFD ->                           -- fd : TInterface "GLib" "PollFD"-    IO ()---sourceRemovePoll ::-    (MonadIO m) =>-    Source ->                               -- _obj-    PollFD ->                               -- fd-    m ()-sourceRemovePoll _obj fd = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let fd' = unsafeManagedPtrGetPtr fd-    g_source_remove_poll _obj' fd'-    touchManagedPtr _obj-    touchManagedPtr fd-    return ()---- method Source::remove_unix_fd--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_remove_unix_fd" g_source_remove_unix_fd :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Ptr () ->                               -- tag : TBasicType TVoid-    IO ()---sourceRemoveUnixFd ::-    (MonadIO m) =>-    Source ->                               -- _obj-    Ptr () ->                               -- tag-    m ()-sourceRemoveUnixFd _obj tag = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_source_remove_unix_fd _obj' tag-    touchManagedPtr _obj-    return ()---- method Source::set_callback--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_set_callback" g_source_set_callback :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    FunPtr SourceFuncC ->                   -- func : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr DestroyNotifyC ->                -- notify : TInterface "GLib" "DestroyNotify"-    IO ()---sourceSetCallback ::-    (MonadIO m) =>-    Source ->                               -- _obj-    SourceFunc ->                           -- func-    m ()-sourceSetCallback _obj func = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    func' <- mkSourceFunc (sourceFuncWrapper Nothing func)-    let data_ = castFunPtrToPtr func'-    let notify = safeFreeFunPtrPtr-    g_source_set_callback _obj' func' data_ notify-    touchManagedPtr _obj-    return ()---- method Source::set_callback_indirect--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_funcs", argType = TInterface "GLib" "SourceCallbackFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_funcs", argType = TInterface "GLib" "SourceCallbackFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_set_callback_indirect" g_source_set_callback_indirect :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Ptr () ->                               -- callback_data : TBasicType TVoid-    Ptr SourceCallbackFuncs ->              -- callback_funcs : TInterface "GLib" "SourceCallbackFuncs"-    IO ()---sourceSetCallbackIndirect ::-    (MonadIO m) =>-    Source ->                               -- _obj-    Ptr () ->                               -- callback_data-    SourceCallbackFuncs ->                  -- callback_funcs-    m ()-sourceSetCallbackIndirect _obj callback_data callback_funcs = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let callback_funcs' = unsafeManagedPtrGetPtr callback_funcs-    g_source_set_callback_indirect _obj' callback_data callback_funcs'-    touchManagedPtr _obj-    touchManagedPtr callback_funcs-    return ()---- method Source::set_can_recurse--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_set_can_recurse" g_source_set_can_recurse :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    CInt ->                                 -- can_recurse : TBasicType TBoolean-    IO ()---sourceSetCanRecurse ::-    (MonadIO m) =>-    Source ->                               -- _obj-    Bool ->                                 -- can_recurse-    m ()-sourceSetCanRecurse _obj can_recurse = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let can_recurse' = (fromIntegral . fromEnum) can_recurse-    g_source_set_can_recurse _obj' can_recurse'-    touchManagedPtr _obj-    return ()---- method Source::set_funcs--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_set_funcs" g_source_set_funcs :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Ptr SourceFuncs ->                      -- funcs : TInterface "GLib" "SourceFuncs"-    IO ()---sourceSetFuncs ::-    (MonadIO m) =>-    Source ->                               -- _obj-    SourceFuncs ->                          -- funcs-    m ()-sourceSetFuncs _obj funcs = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let funcs' = unsafeManagedPtrGetPtr funcs-    g_source_set_funcs _obj' funcs'-    touchManagedPtr _obj-    touchManagedPtr funcs-    return ()---- method Source::set_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_set_name" g_source_set_name :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    CString ->                              -- name : TBasicType TUTF8-    IO ()---sourceSetName ::-    (MonadIO m) =>-    Source ->                               -- _obj-    T.Text ->                               -- name-    m ()-sourceSetName _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    g_source_set_name _obj' name'-    touchManagedPtr _obj-    freeMem name'-    return ()---- method Source::set_priority--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_set_priority" g_source_set_priority :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Int32 ->                                -- priority : TBasicType TInt32-    IO ()---sourceSetPriority ::-    (MonadIO m) =>-    Source ->                               -- _obj-    Int32 ->                                -- priority-    m ()-sourceSetPriority _obj priority = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_source_set_priority _obj' priority-    touchManagedPtr _obj-    return ()---- method Source::set_ready_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ready_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ready_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_set_ready_time" g_source_set_ready_time :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    Int64 ->                                -- ready_time : TBasicType TInt64-    IO ()---sourceSetReadyTime ::-    (MonadIO m) =>-    Source ->                               -- _obj-    Int64 ->                                -- ready_time-    m ()-sourceSetReadyTime _obj ready_time = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_source_set_ready_time _obj' ready_time-    touchManagedPtr _obj-    return ()---- method Source::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_source_unref" g_source_unref :: -    Ptr Source ->                           -- _obj : TInterface "GLib" "Source"-    IO ()---sourceUnref ::-    (MonadIO m) =>-    Source ->                               -- _obj-    m ()-sourceUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_source_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/Source.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.Source where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Source = Source (ForeignPtr Source)-instance BoxedObject Source where
− GI/GLib/Structs/SourceCallbackFuncs.hs 
@@ -1,39 +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 `GSourceCallbackFuncs` struct contains-functions for managing callback objects.--}--module GI.GLib.Structs.SourceCallbackFuncs-    ( ---- * Exported types-    SourceCallbackFuncs(..)                 ,-    noSourceCallbackFuncs                   ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype SourceCallbackFuncs = SourceCallbackFuncs (ForeignPtr SourceCallbackFuncs)-noSourceCallbackFuncs :: Maybe SourceCallbackFuncs-noSourceCallbackFuncs = Nothing---- XXX Skipped getter for "SourceCallbackFuncs:ref" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "SourceCallbackFuncs:unref" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--
− GI/GLib/Structs/SourceCallbackFuncs.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.SourceCallbackFuncs where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SourceCallbackFuncs = SourceCallbackFuncs (ForeignPtr SourceCallbackFuncs)
− GI/GLib/Structs/SourceFuncs.hs 
@@ -1,59 +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 `GSourceFuncs` struct contains a table of-functions used to handle event sources in a generic manner.--For idle sources, the prepare and check functions always return %TRUE-to indicate that the source is always ready to be processed. The prepare-function also returns a timeout value of 0 to ensure that the poll() call-doesn't block (since that would be time wasted which could have been spent-running the idle function).--For timeout sources, the prepare and check functions both return %TRUE-if the timeout interval has expired. The prepare function also returns-a timeout value to ensure that the poll() call doesn't block too long-and miss the next timeout.--For file descriptor sources, the prepare function typically returns %FALSE,-since it must wait until poll() has been called before it knows whether-any events need to be processed. It sets the returned timeout to -1 to-indicate that it doesn't mind how long the poll() call blocks. In the-check function, it tests the results of the poll() call to see if the-required condition has been met, and returns %TRUE if so.--}--module GI.GLib.Structs.SourceFuncs-    ( ---- * Exported types-    SourceFuncs(..)                         ,-    noSourceFuncs                           ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype SourceFuncs = SourceFuncs (ForeignPtr SourceFuncs)-noSourceFuncs :: Maybe SourceFuncs-noSourceFuncs = Nothing---- XXX Skipped getter for "SourceFuncs:prepare" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "SourceFuncs:check" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "SourceFuncs:finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--
− GI/GLib/Structs/SourceFuncs.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.SourceFuncs where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SourceFuncs = SourceFuncs (ForeignPtr SourceFuncs)
− GI/GLib/Structs/StatBuf.hs 
@@ -1,37 +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)--A type corresponding to the appropriate struct type for the stat()-system call, depending on the platform and/or compiler being used.--See g_stat() for more information.--}--module GI.GLib.Structs.StatBuf-    ( ---- * Exported types-    StatBuf(..)                             ,-    noStatBuf                               ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype StatBuf = StatBuf (ForeignPtr StatBuf)-noStatBuf :: Maybe StatBuf-noStatBuf = Nothing--
− GI/GLib/Structs/StatBuf.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.StatBuf where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype StatBuf = StatBuf (ForeignPtr StatBuf)
− GI/GLib/Structs/String.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)--The GString struct contains the public fields of a GString.--}--module GI.GLib.Structs.String-    ( ---- * Exported types-    String(..)                              ,-    noString                                ,--- -- * Methods--- ** stringAppend-    stringAppend                            ,----- ** stringAppendC-    stringAppendC                           ,----- ** stringAppendLen-    stringAppendLen                         ,----- ** stringAppendUnichar-    stringAppendUnichar                     ,----- ** stringAppendUriEscaped-    stringAppendUriEscaped                  ,----- ** stringAsciiDown-    stringAsciiDown                         ,----- ** stringAsciiUp-    stringAsciiUp                           ,----- ** stringAssign-    stringAssign                            ,----- ** stringDown-    stringDown                              ,----- ** stringEqual-    stringEqual                             ,----- ** stringErase-    stringErase                             ,----- ** stringFree-    stringFree                              ,----- ** stringFreeToBytes-    stringFreeToBytes                       ,----- ** stringHash-    stringHash                              ,----- ** stringInsert-    stringInsert                            ,----- ** stringInsertC-    stringInsertC                           ,----- ** stringInsertLen-    stringInsertLen                         ,----- ** stringInsertUnichar-    stringInsertUnichar                     ,----- ** stringOverwrite-    stringOverwrite                         ,----- ** stringOverwriteLen-    stringOverwriteLen                      ,----- ** stringPrepend-    stringPrepend                           ,----- ** stringPrependC-    stringPrependC                          ,----- ** stringPrependLen-    stringPrependLen                        ,----- ** stringPrependUnichar-    stringPrependUnichar                    ,----- ** stringSetSize-    stringSetSize                           ,----- ** stringTruncate-    stringTruncate                          ,----- ** stringUp-    stringUp                                ,----- -- * Properties--- ** AllocatedLen-    stringReadAllocatedLen                  ,----- ** Len-    stringReadLen                           ,----- ** Str-    stringReadStr                           ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype String = String (ForeignPtr String)-foreign import ccall "g_gstring_get_type" c_g_gstring_get_type :: -    IO GType--instance BoxedObject String where-    boxedType _ = c_g_gstring_get_type--noString :: Maybe String-noString = Nothing--stringReadStr :: String -> IO T.Text-stringReadStr s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--stringReadLen :: String -> IO Word64-stringReadLen s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word64-    return val--stringReadAllocatedLen :: String -> IO Word64-stringReadAllocatedLen s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Word64-    return val---- method String::append--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_append" g_string_append :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    CString ->                              -- val : TBasicType TUTF8-    IO (Ptr String)---stringAppend ::-    (MonadIO m) =>-    String ->                               -- _obj-    T.Text ->                               -- val-    m String-stringAppend _obj val = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    val' <- textToCString val-    result <- g_string_append _obj' val'-    checkUnexpectedReturnNULL "g_string_append" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    freeMem val'-    return result'---- method String::append_c--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_append_c" g_string_append_c :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Int8 ->                                 -- c : TBasicType TInt8-    IO (Ptr String)---stringAppendC ::-    (MonadIO m) =>-    String ->                               -- _obj-    Int8 ->                                 -- c-    m String-stringAppendC _obj c = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_append_c _obj' c-    checkUnexpectedReturnNULL "g_string_append_c" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::append_len--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_append_len" g_string_append_len :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    CString ->                              -- val : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO (Ptr String)---stringAppendLen ::-    (MonadIO m) =>-    String ->                               -- _obj-    T.Text ->                               -- val-    Int64 ->                                -- len-    m String-stringAppendLen _obj val len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    val' <- textToCString val-    result <- g_string_append_len _obj' val' len-    checkUnexpectedReturnNULL "g_string_append_len" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    freeMem val'-    return result'---- method String::append_unichar--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_append_unichar" g_string_append_unichar :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    CInt ->                                 -- wc : TBasicType TUniChar-    IO (Ptr String)---stringAppendUnichar ::-    (MonadIO m) =>-    String ->                               -- _obj-    Char ->                                 -- wc-    m String-stringAppendUnichar _obj wc = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let wc' = (fromIntegral . ord) wc-    result <- g_string_append_unichar _obj' wc'-    checkUnexpectedReturnNULL "g_string_append_unichar" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::append_uri_escaped--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_append_uri_escaped" g_string_append_uri_escaped :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    CString ->                              -- unescaped : TBasicType TUTF8-    CString ->                              -- reserved_chars_allowed : TBasicType TUTF8-    CInt ->                                 -- allow_utf8 : TBasicType TBoolean-    IO (Ptr String)---stringAppendUriEscaped ::-    (MonadIO m) =>-    String ->                               -- _obj-    T.Text ->                               -- unescaped-    T.Text ->                               -- reserved_chars_allowed-    Bool ->                                 -- allow_utf8-    m String-stringAppendUriEscaped _obj unescaped reserved_chars_allowed allow_utf8 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    unescaped' <- textToCString unescaped-    reserved_chars_allowed' <- textToCString reserved_chars_allowed-    let allow_utf8' = (fromIntegral . fromEnum) allow_utf8-    result <- g_string_append_uri_escaped _obj' unescaped' reserved_chars_allowed' allow_utf8'-    checkUnexpectedReturnNULL "g_string_append_uri_escaped" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    freeMem unescaped'-    freeMem reserved_chars_allowed'-    return result'---- method String::ascii_down--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_ascii_down" g_string_ascii_down :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    IO (Ptr String)---stringAsciiDown ::-    (MonadIO m) =>-    String ->                               -- _obj-    m String-stringAsciiDown _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_ascii_down _obj'-    checkUnexpectedReturnNULL "g_string_ascii_down" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::ascii_up--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_ascii_up" g_string_ascii_up :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    IO (Ptr String)---stringAsciiUp ::-    (MonadIO m) =>-    String ->                               -- _obj-    m String-stringAsciiUp _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_ascii_up _obj'-    checkUnexpectedReturnNULL "g_string_ascii_up" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::assign--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_assign" g_string_assign :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    CString ->                              -- rval : TBasicType TUTF8-    IO (Ptr String)---stringAssign ::-    (MonadIO m) =>-    String ->                               -- _obj-    T.Text ->                               -- rval-    m String-stringAssign _obj rval = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    rval' <- textToCString rval-    result <- g_string_assign _obj' rval'-    checkUnexpectedReturnNULL "g_string_assign" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    freeMem rval'-    return result'---- method String::down--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_down" g_string_down :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    IO (Ptr String)--{-# DEPRECATED stringDown ["(Since version 2.2)","This function uses the locale-specific","    tolower() function, which is almost never the right thing.","    Use g_string_ascii_down() or g_utf8_strdown() instead."]#-}-stringDown ::-    (MonadIO m) =>-    String ->                               -- _obj-    m String-stringDown _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_down _obj'-    checkUnexpectedReturnNULL "g_string_down" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::equal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_string_equal" g_string_equal :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Ptr String ->                           -- v2 : TInterface "GLib" "String"-    IO CInt---stringEqual ::-    (MonadIO m) =>-    String ->                               -- _obj-    String ->                               -- v2-    m Bool-stringEqual _obj v2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let v2' = unsafeManagedPtrGetPtr v2-    result <- g_string_equal _obj' v2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr v2-    return result'---- method String::erase--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_erase" g_string_erase :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Int64 ->                                -- pos : TBasicType TInt64-    Int64 ->                                -- len : TBasicType TInt64-    IO (Ptr String)---stringErase ::-    (MonadIO m) =>-    String ->                               -- _obj-    Int64 ->                                -- pos-    Int64 ->                                -- len-    m String-stringErase _obj pos len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_erase _obj' pos len-    checkUnexpectedReturnNULL "g_string_erase" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_string_free" g_string_free :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    CInt ->                                 -- free_segment : TBasicType TBoolean-    IO CString---stringFree ::-    (MonadIO m) =>-    String ->                               -- _obj-    Bool ->                                 -- free_segment-    m T.Text-stringFree _obj free_segment = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let free_segment' = (fromIntegral . fromEnum) free_segment-    result <- g_string_free _obj' free_segment'-    checkUnexpectedReturnNULL "g_string_free" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method String::free_to_bytes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Bytes"--- throws : False--- Skip return : False--foreign import ccall "g_string_free_to_bytes" g_string_free_to_bytes :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    IO (Ptr Bytes)---stringFreeToBytes ::-    (MonadIO m) =>-    String ->                               -- _obj-    m Bytes-stringFreeToBytes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_free_to_bytes _obj'-    checkUnexpectedReturnNULL "g_string_free_to_bytes" result-    result' <- (wrapBoxed Bytes) result-    touchManagedPtr _obj-    return result'---- method String::hash--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_string_hash" g_string_hash :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    IO Word32---stringHash ::-    (MonadIO m) =>-    String ->                               -- _obj-    m Word32-stringHash _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_hash _obj'-    touchManagedPtr _obj-    return result---- method String::insert--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_insert" g_string_insert :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Int64 ->                                -- pos : TBasicType TInt64-    CString ->                              -- val : TBasicType TUTF8-    IO (Ptr String)---stringInsert ::-    (MonadIO m) =>-    String ->                               -- _obj-    Int64 ->                                -- pos-    T.Text ->                               -- val-    m String-stringInsert _obj pos val = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    val' <- textToCString val-    result <- g_string_insert _obj' pos val'-    checkUnexpectedReturnNULL "g_string_insert" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    freeMem val'-    return result'---- method String::insert_c--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_insert_c" g_string_insert_c :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Int64 ->                                -- pos : TBasicType TInt64-    Int8 ->                                 -- c : TBasicType TInt8-    IO (Ptr String)---stringInsertC ::-    (MonadIO m) =>-    String ->                               -- _obj-    Int64 ->                                -- pos-    Int8 ->                                 -- c-    m String-stringInsertC _obj pos c = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_insert_c _obj' pos c-    checkUnexpectedReturnNULL "g_string_insert_c" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::insert_len--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_insert_len" g_string_insert_len :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Int64 ->                                -- pos : TBasicType TInt64-    CString ->                              -- val : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO (Ptr String)---stringInsertLen ::-    (MonadIO m) =>-    String ->                               -- _obj-    Int64 ->                                -- pos-    T.Text ->                               -- val-    Int64 ->                                -- len-    m String-stringInsertLen _obj pos val len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    val' <- textToCString val-    result <- g_string_insert_len _obj' pos val' len-    checkUnexpectedReturnNULL "g_string_insert_len" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    freeMem val'-    return result'---- method String::insert_unichar--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_insert_unichar" g_string_insert_unichar :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Int64 ->                                -- pos : TBasicType TInt64-    CInt ->                                 -- wc : TBasicType TUniChar-    IO (Ptr String)---stringInsertUnichar ::-    (MonadIO m) =>-    String ->                               -- _obj-    Int64 ->                                -- pos-    Char ->                                 -- wc-    m String-stringInsertUnichar _obj pos wc = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let wc' = (fromIntegral . ord) wc-    result <- g_string_insert_unichar _obj' pos wc'-    checkUnexpectedReturnNULL "g_string_insert_unichar" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::overwrite--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_overwrite" g_string_overwrite :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Word64 ->                               -- pos : TBasicType TUInt64-    CString ->                              -- val : TBasicType TUTF8-    IO (Ptr String)---stringOverwrite ::-    (MonadIO m) =>-    String ->                               -- _obj-    Word64 ->                               -- pos-    T.Text ->                               -- val-    m String-stringOverwrite _obj pos val = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    val' <- textToCString val-    result <- g_string_overwrite _obj' pos val'-    checkUnexpectedReturnNULL "g_string_overwrite" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    freeMem val'-    return result'---- method String::overwrite_len--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_overwrite_len" g_string_overwrite_len :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Word64 ->                               -- pos : TBasicType TUInt64-    CString ->                              -- val : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO (Ptr String)---stringOverwriteLen ::-    (MonadIO m) =>-    String ->                               -- _obj-    Word64 ->                               -- pos-    T.Text ->                               -- val-    Int64 ->                                -- len-    m String-stringOverwriteLen _obj pos val len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    val' <- textToCString val-    result <- g_string_overwrite_len _obj' pos val' len-    checkUnexpectedReturnNULL "g_string_overwrite_len" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    freeMem val'-    return result'---- method String::prepend--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_prepend" g_string_prepend :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    CString ->                              -- val : TBasicType TUTF8-    IO (Ptr String)---stringPrepend ::-    (MonadIO m) =>-    String ->                               -- _obj-    T.Text ->                               -- val-    m String-stringPrepend _obj val = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    val' <- textToCString val-    result <- g_string_prepend _obj' val'-    checkUnexpectedReturnNULL "g_string_prepend" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    freeMem val'-    return result'---- method String::prepend_c--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_prepend_c" g_string_prepend_c :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Int8 ->                                 -- c : TBasicType TInt8-    IO (Ptr String)---stringPrependC ::-    (MonadIO m) =>-    String ->                               -- _obj-    Int8 ->                                 -- c-    m String-stringPrependC _obj c = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_prepend_c _obj' c-    checkUnexpectedReturnNULL "g_string_prepend_c" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::prepend_len--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_prepend_len" g_string_prepend_len :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    CString ->                              -- val : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO (Ptr String)---stringPrependLen ::-    (MonadIO m) =>-    String ->                               -- _obj-    T.Text ->                               -- val-    Int64 ->                                -- len-    m String-stringPrependLen _obj val len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    val' <- textToCString val-    result <- g_string_prepend_len _obj' val' len-    checkUnexpectedReturnNULL "g_string_prepend_len" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    freeMem val'-    return result'---- method String::prepend_unichar--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_prepend_unichar" g_string_prepend_unichar :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    CInt ->                                 -- wc : TBasicType TUniChar-    IO (Ptr String)---stringPrependUnichar ::-    (MonadIO m) =>-    String ->                               -- _obj-    Char ->                                 -- wc-    m String-stringPrependUnichar _obj wc = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let wc' = (fromIntegral . ord) wc-    result <- g_string_prepend_unichar _obj' wc'-    checkUnexpectedReturnNULL "g_string_prepend_unichar" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::set_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_set_size" g_string_set_size :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Word64 ->                               -- len : TBasicType TUInt64-    IO (Ptr String)---stringSetSize ::-    (MonadIO m) =>-    String ->                               -- _obj-    Word64 ->                               -- len-    m String-stringSetSize _obj len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_set_size _obj' len-    checkUnexpectedReturnNULL "g_string_set_size" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::truncate--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_truncate" g_string_truncate :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    Word64 ->                               -- len : TBasicType TUInt64-    IO (Ptr String)---stringTruncate ::-    (MonadIO m) =>-    String ->                               -- _obj-    Word64 ->                               -- len-    m String-stringTruncate _obj len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_truncate _obj' len-    checkUnexpectedReturnNULL "g_string_truncate" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'---- method String::up--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "String"--- throws : False--- Skip return : False--foreign import ccall "g_string_up" g_string_up :: -    Ptr String ->                           -- _obj : TInterface "GLib" "String"-    IO (Ptr String)--{-# DEPRECATED stringUp ["(Since version 2.2)","This function uses the locale-specific","    toupper() function, which is almost never the right thing.","    Use g_string_ascii_up() or g_utf8_strup() instead."]#-}-stringUp ::-    (MonadIO m) =>-    String ->                               -- _obj-    m String-stringUp _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_string_up _obj'-    checkUnexpectedReturnNULL "g_string_up" result-    result' <- (wrapBoxed String) result-    touchManagedPtr _obj-    return result'--
− GI/GLib/Structs/String.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.String where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype String = String (ForeignPtr String)-instance BoxedObject String where
− GI/GLib/Structs/StringChunk.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)--An opaque data structure representing String Chunks.-It should only be accessed by using the following functions.--}--module GI.GLib.Structs.StringChunk-    ( ---- * Exported types-    StringChunk(..)                         ,-    noStringChunk                           ,--- -- * Methods--- ** stringChunkClear-    stringChunkClear                        ,----- ** stringChunkFree-    stringChunkFree                         ,----- ** stringChunkInsert-    stringChunkInsert                       ,----- ** stringChunkInsertConst-    stringChunkInsertConst                  ,----- ** stringChunkInsertLen-    stringChunkInsertLen                    ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype StringChunk = StringChunk (ForeignPtr StringChunk)-noStringChunk :: Maybe StringChunk-noStringChunk = Nothing---- method StringChunk::clear--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_string_chunk_clear" g_string_chunk_clear :: -    Ptr StringChunk ->                      -- _obj : TInterface "GLib" "StringChunk"-    IO ()---stringChunkClear ::-    (MonadIO m) =>-    StringChunk ->                          -- _obj-    m ()-stringChunkClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_string_chunk_clear _obj'-    touchManagedPtr _obj-    return ()---- method StringChunk::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_string_chunk_free" g_string_chunk_free :: -    Ptr StringChunk ->                      -- _obj : TInterface "GLib" "StringChunk"-    IO ()---stringChunkFree ::-    (MonadIO m) =>-    StringChunk ->                          -- _obj-    m ()-stringChunkFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_string_chunk_free _obj'-    touchManagedPtr _obj-    return ()---- method StringChunk::insert--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_string_chunk_insert" g_string_chunk_insert :: -    Ptr StringChunk ->                      -- _obj : TInterface "GLib" "StringChunk"-    CString ->                              -- string : TBasicType TUTF8-    IO CString---stringChunkInsert ::-    (MonadIO m) =>-    StringChunk ->                          -- _obj-    T.Text ->                               -- string-    m T.Text-stringChunkInsert _obj string = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    string' <- textToCString string-    result <- g_string_chunk_insert _obj' string'-    checkUnexpectedReturnNULL "g_string_chunk_insert" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem string'-    return result'---- method StringChunk::insert_const--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_string_chunk_insert_const" g_string_chunk_insert_const :: -    Ptr StringChunk ->                      -- _obj : TInterface "GLib" "StringChunk"-    CString ->                              -- string : TBasicType TUTF8-    IO CString---stringChunkInsertConst ::-    (MonadIO m) =>-    StringChunk ->                          -- _obj-    T.Text ->                               -- string-    m T.Text-stringChunkInsertConst _obj string = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    string' <- textToCString string-    result <- g_string_chunk_insert_const _obj' string'-    checkUnexpectedReturnNULL "g_string_chunk_insert_const" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem string'-    return result'---- method StringChunk::insert_len--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_string_chunk_insert_len" g_string_chunk_insert_len :: -    Ptr StringChunk ->                      -- _obj : TInterface "GLib" "StringChunk"-    CString ->                              -- string : TBasicType TUTF8-    Int64 ->                                -- len : TBasicType TInt64-    IO CString---stringChunkInsertLen ::-    (MonadIO m) =>-    StringChunk ->                          -- _obj-    T.Text ->                               -- string-    Int64 ->                                -- len-    m T.Text-stringChunkInsertLen _obj string len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    string' <- textToCString string-    result <- g_string_chunk_insert_len _obj' string' len-    checkUnexpectedReturnNULL "g_string_chunk_insert_len" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    freeMem string'-    return result'--
− GI/GLib/Structs/StringChunk.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.StringChunk where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype StringChunk = StringChunk (ForeignPtr StringChunk)
− GI/GLib/Structs/TestCase.hs 
@@ -1,34 +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 opaque structure representing a test case.--}--module GI.GLib.Structs.TestCase-    ( ---- * Exported types-    TestCase(..)                            ,-    noTestCase                              ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype TestCase = TestCase (ForeignPtr TestCase)-noTestCase :: Maybe TestCase-noTestCase = Nothing--
− GI/GLib/Structs/TestCase.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.TestCase where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TestCase = TestCase (ForeignPtr TestCase)
− GI/GLib/Structs/TestConfig.hs 
@@ -1,95 +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.GLib.Structs.TestConfig-    ( ---- * Exported types-    TestConfig(..)                          ,-    noTestConfig                            ,--- -- * Properties--- ** TestInitialized-    testConfigReadTestInitialized           ,----- ** TestPerf-    testConfigReadTestPerf                  ,----- ** TestQuick-    testConfigReadTestQuick                 ,----- ** TestQuiet-    testConfigReadTestQuiet                 ,----- ** TestUndefined-    testConfigReadTestUndefined             ,----- ** TestVerbose-    testConfigReadTestVerbose               ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype TestConfig = TestConfig (ForeignPtr TestConfig)-noTestConfig :: Maybe TestConfig-noTestConfig = Nothing--testConfigReadTestInitialized :: TestConfig -> IO Bool-testConfigReadTestInitialized s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CInt-    let val' = (/= 0) val-    return val'--testConfigReadTestQuick :: TestConfig -> IO Bool-testConfigReadTestQuick s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO CInt-    let val' = (/= 0) val-    return val'--testConfigReadTestPerf :: TestConfig -> IO Bool-testConfigReadTestPerf s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CInt-    let val' = (/= 0) val-    return val'--testConfigReadTestVerbose :: TestConfig -> IO Bool-testConfigReadTestVerbose s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO CInt-    let val' = (/= 0) val-    return val'--testConfigReadTestQuiet :: TestConfig -> IO Bool-testConfigReadTestQuiet s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CInt-    let val' = (/= 0) val-    return val'--testConfigReadTestUndefined :: TestConfig -> IO Bool-testConfigReadTestUndefined s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO CInt-    let val' = (/= 0) val-    return val'--
− GI/GLib/Structs/TestConfig.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.TestConfig where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TestConfig = TestConfig (ForeignPtr TestConfig)
− GI/GLib/Structs/TestLogBuffer.hs 
@@ -1,95 +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.GLib.Structs.TestLogBuffer-    ( ---- * Exported types-    TestLogBuffer(..)                       ,-    noTestLogBuffer                         ,--- -- * Methods--- ** testLogBufferFree-    testLogBufferFree                       ,----- ** testLogBufferPush-    testLogBufferPush                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype TestLogBuffer = TestLogBuffer (ForeignPtr TestLogBuffer)-noTestLogBuffer :: Maybe TestLogBuffer-noTestLogBuffer = Nothing---- method TestLogBuffer::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_log_buffer_free" g_test_log_buffer_free :: -    Ptr TestLogBuffer ->                    -- _obj : TInterface "GLib" "TestLogBuffer"-    IO ()---testLogBufferFree ::-    (MonadIO m) =>-    TestLogBuffer ->                        -- _obj-    m ()-testLogBufferFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_test_log_buffer_free _obj'-    touchManagedPtr _obj-    return ()---- method TestLogBuffer::push--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_bytes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_bytes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_log_buffer_push" g_test_log_buffer_push :: -    Ptr TestLogBuffer ->                    -- _obj : TInterface "GLib" "TestLogBuffer"-    Word32 ->                               -- n_bytes : TBasicType TUInt32-    Word8 ->                                -- bytes : TBasicType TUInt8-    IO ()---testLogBufferPush ::-    (MonadIO m) =>-    TestLogBuffer ->                        -- _obj-    Word32 ->                               -- n_bytes-    Word8 ->                                -- bytes-    m ()-testLogBufferPush _obj n_bytes bytes = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_test_log_buffer_push _obj' n_bytes bytes-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/TestLogBuffer.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.TestLogBuffer where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TestLogBuffer = TestLogBuffer (ForeignPtr TestLogBuffer)
− GI/GLib/Structs/TestLogMsg.hs 
@@ -1,113 +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.GLib.Structs.TestLogMsg-    ( ---- * Exported types-    TestLogMsg(..)                          ,-    noTestLogMsg                            ,--- -- * Methods--- ** testLogMsgFree-    testLogMsgFree                          ,----- -- * Properties--- ** LogType-    testLogMsgReadLogType                   ,----- ** NNums-    testLogMsgReadNNums                     ,----- ** NStrings-    testLogMsgReadNStrings                  ,----- ** Nums-    testLogMsgReadNums                      ,----- ** Strings-    testLogMsgReadStrings                   ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype TestLogMsg = TestLogMsg (ForeignPtr TestLogMsg)-noTestLogMsg :: Maybe TestLogMsg-noTestLogMsg = Nothing--testLogMsgReadLogType :: TestLogMsg -> IO TestLogType-testLogMsgReadLogType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--testLogMsgReadNStrings :: TestLogMsg -> IO Word32-testLogMsgReadNStrings s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Word32-    return val--testLogMsgReadStrings :: TestLogMsg -> IO T.Text-testLogMsgReadStrings s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'--testLogMsgReadNNums :: TestLogMsg -> IO Word32-testLogMsgReadNNums s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Word32-    return val--testLogMsgReadNums :: TestLogMsg -> IO Int64-testLogMsgReadNums s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Int64-    return val---- method TestLogMsg::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogMsg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogMsg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_log_msg_free" g_test_log_msg_free :: -    Ptr TestLogMsg ->                       -- _obj : TInterface "GLib" "TestLogMsg"-    IO ()---testLogMsgFree ::-    (MonadIO m) =>-    TestLogMsg ->                           -- _obj-    m ()-testLogMsgFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_test_log_msg_free _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/TestLogMsg.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.TestLogMsg where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TestLogMsg = TestLogMsg (ForeignPtr TestLogMsg)
− GI/GLib/Structs/TestSuite.hs 
@@ -1,101 +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 opaque structure representing a test suite.--}--module GI.GLib.Structs.TestSuite-    ( ---- * Exported types-    TestSuite(..)                           ,-    noTestSuite                             ,--- -- * Methods--- ** testSuiteAdd-    testSuiteAdd                            ,----- ** testSuiteAddSuite-    testSuiteAddSuite                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype TestSuite = TestSuite (ForeignPtr TestSuite)-noTestSuite :: Maybe TestSuite-noTestSuite = Nothing---- method TestSuite::add--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_case", argType = TInterface "GLib" "TestCase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_case", argType = TInterface "GLib" "TestCase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_suite_add" g_test_suite_add :: -    Ptr TestSuite ->                        -- _obj : TInterface "GLib" "TestSuite"-    Ptr TestCase ->                         -- test_case : TInterface "GLib" "TestCase"-    IO ()---testSuiteAdd ::-    (MonadIO m) =>-    TestSuite ->                            -- _obj-    TestCase ->                             -- test_case-    m ()-testSuiteAdd _obj test_case = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let test_case' = unsafeManagedPtrGetPtr test_case-    g_test_suite_add _obj' test_case'-    touchManagedPtr _obj-    touchManagedPtr test_case-    return ()---- method TestSuite::add_suite--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nestedsuite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nestedsuite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_test_suite_add_suite" g_test_suite_add_suite :: -    Ptr TestSuite ->                        -- _obj : TInterface "GLib" "TestSuite"-    Ptr TestSuite ->                        -- nestedsuite : TInterface "GLib" "TestSuite"-    IO ()---testSuiteAddSuite ::-    (MonadIO m) =>-    TestSuite ->                            -- _obj-    TestSuite ->                            -- nestedsuite-    m ()-testSuiteAddSuite _obj nestedsuite = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let nestedsuite' = unsafeManagedPtrGetPtr nestedsuite-    g_test_suite_add_suite _obj' nestedsuite'-    touchManagedPtr _obj-    touchManagedPtr nestedsuite-    return ()--
− GI/GLib/Structs/TestSuite.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.TestSuite where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TestSuite = TestSuite (ForeignPtr TestSuite)
− GI/GLib/Structs/Thread.hs 
@@ -1,113 +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 #GThread struct represents a running thread. This struct-is returned by g_thread_new() or g_thread_try_new(). You can-obtain the #GThread struct representing the current thread by-calling g_thread_self().--GThread is refcounted, see g_thread_ref() and g_thread_unref().-The thread represented by it holds a reference while it is running,-and g_thread_join() consumes the reference that it is given, so-it is normally not necessary to manage GThread references-explicitly.--The structure is opaque -- none of its fields may be directly-accessed.--}--module GI.GLib.Structs.Thread-    ( ---- * Exported types-    Thread(..)                              ,-    noThread                                ,--- -- * Methods--- ** threadRef-    threadRef                               ,----- ** threadUnref-    threadUnref                             ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Thread = Thread (ForeignPtr Thread)-foreign import ccall "g_thread_get_type" c_g_thread_get_type :: -    IO GType--instance BoxedObject Thread where-    boxedType _ = c_g_thread_get_type--noThread :: Maybe Thread-noThread = Nothing---- method Thread::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "Thread"--- throws : False--- Skip return : False--foreign import ccall "g_thread_ref" g_thread_ref :: -    Ptr Thread ->                           -- _obj : TInterface "GLib" "Thread"-    IO (Ptr Thread)---threadRef ::-    (MonadIO m) =>-    Thread ->                               -- _obj-    m Thread-threadRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_thread_ref _obj'-    checkUnexpectedReturnNULL "g_thread_ref" result-    result' <- (wrapBoxed Thread) result-    touchManagedPtr _obj-    return result'---- method Thread::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_thread_unref" g_thread_unref :: -    Ptr Thread ->                           -- _obj : TInterface "GLib" "Thread"-    IO ()---threadUnref ::-    (MonadIO m) =>-    Thread ->                               -- _obj-    m ()-threadUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_thread_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/Thread.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.Thread where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Thread = Thread (ForeignPtr Thread)-instance BoxedObject Thread where
− GI/GLib/Structs/ThreadPool.hs 
@@ -1,251 +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 #GThreadPool struct represents a thread pool. It has three-public read-only members, but the underlying struct is bigger,-so you must not copy this struct.--}--module GI.GLib.Structs.ThreadPool-    ( ---- * Exported types-    ThreadPool(..)                          ,-    noThreadPool                            ,--- -- * Methods--- ** threadPoolFree-    threadPoolFree                          ,----- ** threadPoolGetMaxThreads-    threadPoolGetMaxThreads                 ,----- ** threadPoolGetNumThreads-    threadPoolGetNumThreads                 ,----- ** threadPoolPush-    threadPoolPush                          ,----- ** threadPoolSetMaxThreads-    threadPoolSetMaxThreads                 ,----- ** threadPoolUnprocessed-    threadPoolUnprocessed                   ,----- -- * Properties--- ** Exclusive-    threadPoolReadExclusive                 ,----- ** UserData-    threadPoolReadUserData                  ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype ThreadPool = ThreadPool (ForeignPtr ThreadPool)-noThreadPool :: Maybe ThreadPool-noThreadPool = Nothing---- XXX Skipped getter for "ThreadPool:func" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--threadPoolReadUserData :: ThreadPool -> IO (Ptr ())-threadPoolReadUserData s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr ())-    return val--threadPoolReadExclusive :: ThreadPool -> IO Bool-threadPoolReadExclusive s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CInt-    let val' = (/= 0) val-    return val'---- method ThreadPool::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "immediate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wait_", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "immediate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wait_", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_thread_pool_free" g_thread_pool_free :: -    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"-    CInt ->                                 -- immediate : TBasicType TBoolean-    CInt ->                                 -- wait_ : TBasicType TBoolean-    IO ()---threadPoolFree ::-    (MonadIO m) =>-    ThreadPool ->                           -- _obj-    Bool ->                                 -- immediate-    Bool ->                                 -- wait_-    m ()-threadPoolFree _obj immediate wait_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let immediate' = (fromIntegral . fromEnum) immediate-    let wait_' = (fromIntegral . fromEnum) wait_-    g_thread_pool_free _obj' immediate' wait_'-    touchManagedPtr _obj-    return ()---- method ThreadPool::get_max_threads--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_thread_pool_get_max_threads" g_thread_pool_get_max_threads :: -    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"-    IO Int32---threadPoolGetMaxThreads ::-    (MonadIO m) =>-    ThreadPool ->                           -- _obj-    m Int32-threadPoolGetMaxThreads _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_thread_pool_get_max_threads _obj'-    touchManagedPtr _obj-    return result---- method ThreadPool::get_num_threads--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_thread_pool_get_num_threads" g_thread_pool_get_num_threads :: -    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"-    IO Word32---threadPoolGetNumThreads ::-    (MonadIO m) =>-    ThreadPool ->                           -- _obj-    m Word32-threadPoolGetNumThreads _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_thread_pool_get_num_threads _obj'-    touchManagedPtr _obj-    return result---- method ThreadPool::push--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_thread_pool_push" g_thread_pool_push :: -    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"-    Ptr () ->                               -- data : TBasicType TVoid-    Ptr (Ptr GError) ->                     -- error-    IO CInt---threadPoolPush ::-    (MonadIO m) =>-    ThreadPool ->                           -- _obj-    Ptr () ->                               -- data-    m ()-threadPoolPush _obj data_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    onException (do-        _ <- propagateGError $ g_thread_pool_push _obj' data_-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )---- method ThreadPool::set_max_threads--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "g_thread_pool_set_max_threads" g_thread_pool_set_max_threads :: -    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"-    Int32 ->                                -- max_threads : TBasicType TInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt---threadPoolSetMaxThreads ::-    (MonadIO m) =>-    ThreadPool ->                           -- _obj-    Int32 ->                                -- max_threads-    m ()-threadPoolSetMaxThreads _obj max_threads = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    onException (do-        _ <- propagateGError $ g_thread_pool_set_max_threads _obj' max_threads-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )---- method ThreadPool::unprocessed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_thread_pool_unprocessed" g_thread_pool_unprocessed :: -    Ptr ThreadPool ->                       -- _obj : TInterface "GLib" "ThreadPool"-    IO Word32---threadPoolUnprocessed ::-    (MonadIO m) =>-    ThreadPool ->                           -- _obj-    m Word32-threadPoolUnprocessed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_thread_pool_unprocessed _obj'-    touchManagedPtr _obj-    return result--
− GI/GLib/Structs/ThreadPool.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.ThreadPool where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ThreadPool = ThreadPool (ForeignPtr ThreadPool)
− GI/GLib/Structs/TimeVal.hs 
@@ -1,125 +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 precise time, with seconds and microseconds.-Similar to the struct timeval returned by the gettimeofday()-UNIX system call.--GLib is attempting to unify around the use of 64bit integers to-represent microsecond-precision time. As such, this type will be-removed from a future version of GLib.--}--module GI.GLib.Structs.TimeVal-    ( ---- * Exported types-    TimeVal(..)                             ,-    noTimeVal                               ,--- -- * Methods--- ** timeValAdd-    timeValAdd                              ,----- ** timeValToIso8601-    timeValToIso8601                        ,----- -- * Properties--- ** TvSec-    timeValReadTvSec                        ,----- ** TvUsec-    timeValReadTvUsec                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype TimeVal = TimeVal (ForeignPtr TimeVal)-noTimeVal :: Maybe TimeVal-noTimeVal = Nothing--timeValReadTvSec :: TimeVal -> IO Int64-timeValReadTvSec s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int64-    return val--timeValReadTvUsec :: TimeVal -> IO Int64-timeValReadTvUsec s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int64-    return val---- method TimeVal::add--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_time_val_add" g_time_val_add :: -    Ptr TimeVal ->                          -- _obj : TInterface "GLib" "TimeVal"-    Int64 ->                                -- microseconds : TBasicType TInt64-    IO ()---timeValAdd ::-    (MonadIO m) =>-    TimeVal ->                              -- _obj-    Int64 ->                                -- microseconds-    m ()-timeValAdd _obj microseconds = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_time_val_add _obj' microseconds-    touchManagedPtr _obj-    return ()---- method TimeVal::to_iso8601--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_time_val_to_iso8601" g_time_val_to_iso8601 :: -    Ptr TimeVal ->                          -- _obj : TInterface "GLib" "TimeVal"-    IO CString---timeValToIso8601 ::-    (MonadIO m) =>-    TimeVal ->                              -- _obj-    m T.Text-timeValToIso8601 _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_time_val_to_iso8601 _obj'-    checkUnexpectedReturnNULL "g_time_val_to_iso8601" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--
− GI/GLib/Structs/TimeVal.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.TimeVal where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TimeVal = TimeVal (ForeignPtr TimeVal)
− GI/GLib/Structs/TimeZone.hs 
@@ -1,347 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--#GTimeZone is an opaque structure whose members cannot be accessed-directly.--}--module GI.GLib.Structs.TimeZone-    ( ---- * Exported types-    TimeZone(..)                            ,-    noTimeZone                              ,--- -- * Methods--- ** timeZoneAdjustTime-    timeZoneAdjustTime                      ,----- ** timeZoneFindInterval-    timeZoneFindInterval                    ,----- ** timeZoneGetAbbreviation-    timeZoneGetAbbreviation                 ,----- ** timeZoneGetOffset-    timeZoneGetOffset                       ,----- ** timeZoneIsDst-    timeZoneIsDst                           ,----- ** timeZoneNew-    timeZoneNew                             ,----- ** timeZoneNewLocal-    timeZoneNewLocal                        ,----- ** timeZoneNewUtc-    timeZoneNewUtc                          ,----- ** timeZoneRef-    timeZoneRef                             ,----- ** timeZoneUnref-    timeZoneUnref                           ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype TimeZone = TimeZone (ForeignPtr TimeZone)-foreign import ccall "g_time_zone_get_type" c_g_time_zone_get_type :: -    IO GType--instance BoxedObject TimeZone where-    boxedType _ = c_g_time_zone_get_type--noTimeZone :: Maybe TimeZone-noTimeZone = Nothing---- method TimeZone::new--- method type : Constructor--- Args : [Arg {argName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "TimeZone"--- throws : False--- Skip return : False--foreign import ccall "g_time_zone_new" g_time_zone_new :: -    CString ->                              -- identifier : TBasicType TUTF8-    IO (Ptr TimeZone)---timeZoneNew ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- identifier-    m TimeZone-timeZoneNew identifier = liftIO $ do-    maybeIdentifier <- case identifier of-        Nothing -> return nullPtr-        Just jIdentifier -> do-            jIdentifier' <- textToCString jIdentifier-            return jIdentifier'-    result <- g_time_zone_new maybeIdentifier-    checkUnexpectedReturnNULL "g_time_zone_new" result-    result' <- (wrapBoxed TimeZone) result-    freeMem maybeIdentifier-    return result'---- method TimeZone::new_local--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "TimeZone"--- throws : False--- Skip return : False--foreign import ccall "g_time_zone_new_local" g_time_zone_new_local :: -    IO (Ptr TimeZone)---timeZoneNewLocal ::-    (MonadIO m) =>-    m TimeZone-timeZoneNewLocal  = liftIO $ do-    result <- g_time_zone_new_local-    checkUnexpectedReturnNULL "g_time_zone_new_local" result-    result' <- (wrapBoxed TimeZone) result-    return result'---- method TimeZone::new_utc--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "GLib" "TimeZone"--- throws : False--- Skip return : False--foreign import ccall "g_time_zone_new_utc" g_time_zone_new_utc :: -    IO (Ptr TimeZone)---timeZoneNewUtc ::-    (MonadIO m) =>-    m TimeZone-timeZoneNewUtc  = liftIO $ do-    result <- g_time_zone_new_utc-    checkUnexpectedReturnNULL "g_time_zone_new_utc" result-    result' <- (wrapBoxed TimeZone) result-    return result'---- method TimeZone::adjust_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_time_zone_adjust_time" g_time_zone_adjust_time :: -    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"-    CUInt ->                                -- type : TInterface "GLib" "TimeType"-    Int64 ->                                -- time_ : TBasicType TInt64-    IO Int32---timeZoneAdjustTime ::-    (MonadIO m) =>-    TimeZone ->                             -- _obj-    TimeType ->                             -- type-    Int64 ->                                -- time_-    m Int32-timeZoneAdjustTime _obj type_ time_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    result <- g_time_zone_adjust_time _obj' type_' time_-    touchManagedPtr _obj-    return result---- method TimeZone::find_interval--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_time_zone_find_interval" g_time_zone_find_interval :: -    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"-    CUInt ->                                -- type : TInterface "GLib" "TimeType"-    Int64 ->                                -- time_ : TBasicType TInt64-    IO Int32---timeZoneFindInterval ::-    (MonadIO m) =>-    TimeZone ->                             -- _obj-    TimeType ->                             -- type-    Int64 ->                                -- time_-    m Int32-timeZoneFindInterval _obj type_ time_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    result <- g_time_zone_find_interval _obj' type_' time_-    touchManagedPtr _obj-    return result---- method TimeZone::get_abbreviation--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_time_zone_get_abbreviation" g_time_zone_get_abbreviation :: -    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"-    Int32 ->                                -- interval : TBasicType TInt32-    IO CString---timeZoneGetAbbreviation ::-    (MonadIO m) =>-    TimeZone ->                             -- _obj-    Int32 ->                                -- interval-    m T.Text-timeZoneGetAbbreviation _obj interval = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_time_zone_get_abbreviation _obj' interval-    checkUnexpectedReturnNULL "g_time_zone_get_abbreviation" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method TimeZone::get_offset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_time_zone_get_offset" g_time_zone_get_offset :: -    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"-    Int32 ->                                -- interval : TBasicType TInt32-    IO Int32---timeZoneGetOffset ::-    (MonadIO m) =>-    TimeZone ->                             -- _obj-    Int32 ->                                -- interval-    m Int32-timeZoneGetOffset _obj interval = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_time_zone_get_offset _obj' interval-    touchManagedPtr _obj-    return result---- method TimeZone::is_dst--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_time_zone_is_dst" g_time_zone_is_dst :: -    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"-    Int32 ->                                -- interval : TBasicType TInt32-    IO CInt---timeZoneIsDst ::-    (MonadIO m) =>-    TimeZone ->                             -- _obj-    Int32 ->                                -- interval-    m Bool-timeZoneIsDst _obj interval = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_time_zone_is_dst _obj' interval-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method TimeZone::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "TimeZone"--- throws : False--- Skip return : False--foreign import ccall "g_time_zone_ref" g_time_zone_ref :: -    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"-    IO (Ptr TimeZone)---timeZoneRef ::-    (MonadIO m) =>-    TimeZone ->                             -- _obj-    m TimeZone-timeZoneRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_time_zone_ref _obj'-    checkUnexpectedReturnNULL "g_time_zone_ref" result-    result' <- (wrapBoxed TimeZone) result-    touchManagedPtr _obj-    return result'---- method TimeZone::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_time_zone_unref" g_time_zone_unref :: -    Ptr TimeZone ->                         -- _obj : TInterface "GLib" "TimeZone"-    IO ()---timeZoneUnref ::-    (MonadIO m) =>-    TimeZone ->                             -- _obj-    m ()-timeZoneUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_time_zone_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/TimeZone.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.TimeZone where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TimeZone = TimeZone (ForeignPtr TimeZone)-instance BoxedObject TimeZone where
− GI/GLib/Structs/Timer.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)--Opaque datatype that records a start time.--}--module GI.GLib.Structs.Timer-    ( ---- * Exported types-    Timer(..)                               ,-    noTimer                                 ,--- -- * Methods--- ** timerContinue-    timerContinue                           ,----- ** timerDestroy-    timerDestroy                            ,----- ** timerElapsed-    timerElapsed                            ,----- ** timerReset-    timerReset                              ,----- ** timerStart-    timerStart                              ,----- ** timerStop-    timerStop                               ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Timer = Timer (ForeignPtr Timer)-noTimer :: Maybe Timer-noTimer = Nothing---- method Timer::continue--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_timer_continue" g_timer_continue :: -    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"-    IO ()---timerContinue ::-    (MonadIO m) =>-    Timer ->                                -- _obj-    m ()-timerContinue _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_timer_continue _obj'-    touchManagedPtr _obj-    return ()---- method Timer::destroy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_timer_destroy" g_timer_destroy :: -    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"-    IO ()---timerDestroy ::-    (MonadIO m) =>-    Timer ->                                -- _obj-    m ()-timerDestroy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_timer_destroy _obj'-    touchManagedPtr _obj-    return ()---- method Timer::elapsed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "g_timer_elapsed" g_timer_elapsed :: -    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"-    Word64 ->                               -- microseconds : TBasicType TUInt64-    IO CDouble---timerElapsed ::-    (MonadIO m) =>-    Timer ->                                -- _obj-    Word64 ->                               -- microseconds-    m Double-timerElapsed _obj microseconds = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_timer_elapsed _obj' microseconds-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- method Timer::reset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_timer_reset" g_timer_reset :: -    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"-    IO ()---timerReset ::-    (MonadIO m) =>-    Timer ->                                -- _obj-    m ()-timerReset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_timer_reset _obj'-    touchManagedPtr _obj-    return ()---- method Timer::start--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_timer_start" g_timer_start :: -    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"-    IO ()---timerStart ::-    (MonadIO m) =>-    Timer ->                                -- _obj-    m ()-timerStart _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_timer_start _obj'-    touchManagedPtr _obj-    return ()---- method Timer::stop--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_timer_stop" g_timer_stop :: -    Ptr Timer ->                            -- _obj : TInterface "GLib" "Timer"-    IO ()---timerStop ::-    (MonadIO m) =>-    Timer ->                                -- _obj-    m ()-timerStop _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_timer_stop _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/Timer.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Timer where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Timer = Timer (ForeignPtr Timer)
− GI/GLib/Structs/TrashStack.hs 
@@ -1,48 +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)--Each piece of memory that is pushed onto the stack-is cast to a GTrashStack*.--}--module GI.GLib.Structs.TrashStack-    ( ---- * Exported types-    TrashStack(..)                          ,-    noTrashStack                            ,--- -- * Properties--- ** Next-    trashStackReadNext                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype TrashStack = TrashStack (ForeignPtr TrashStack)-noTrashStack :: Maybe TrashStack-noTrashStack = Nothing--trashStackReadNext :: TrashStack -> IO TrashStack-trashStackReadNext s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr TrashStack)-    val' <- (newPtr 8 TrashStack) val-    return val'--
− GI/GLib/Structs/TrashStack.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.TrashStack where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TrashStack = TrashStack (ForeignPtr TrashStack)
− GI/GLib/Structs/Tree.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)--The GTree struct is an opaque data structure representing a-[balanced binary tree][glib-Balanced-Binary-Trees]. It should be-accessed only by using the following functions.--}--module GI.GLib.Structs.Tree-    ( ---- * Exported types-    Tree(..)                                ,-    noTree                                  ,--- -- * Methods--- ** treeDestroy-    treeDestroy                             ,----- ** treeHeight-    treeHeight                              ,----- ** treeInsert-    treeInsert                              ,----- ** treeLookupExtended-    treeLookupExtended                      ,----- ** treeNnodes-    treeNnodes                              ,----- ** treeRemove-    treeRemove                              ,----- ** treeReplace-    treeReplace                             ,----- ** treeSteal-    treeSteal                               ,----- ** treeUnref-    treeUnref                               ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Tree = Tree (ForeignPtr Tree)-noTree :: Maybe Tree-noTree = Nothing---- method Tree::destroy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_tree_destroy" g_tree_destroy :: -    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"-    IO ()---treeDestroy ::-    (MonadIO m) =>-    Tree ->                                 -- _obj-    m ()-treeDestroy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_tree_destroy _obj'-    touchManagedPtr _obj-    return ()---- method Tree::height--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_tree_height" g_tree_height :: -    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"-    IO Int32---treeHeight ::-    (MonadIO m) =>-    Tree ->                                 -- _obj-    m Int32-treeHeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_tree_height _obj'-    touchManagedPtr _obj-    return result---- method Tree::insert--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_tree_insert" g_tree_insert :: -    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"-    Ptr () ->                               -- key : TBasicType TVoid-    Ptr () ->                               -- value : TBasicType TVoid-    IO ()---treeInsert ::-    (MonadIO m) =>-    Tree ->                                 -- _obj-    Ptr () ->                               -- key-    Ptr () ->                               -- value-    m ()-treeInsert _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_tree_insert _obj' key value-    touchManagedPtr _obj-    return ()---- method Tree::lookup_extended--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_tree_lookup_extended" g_tree_lookup_extended :: -    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"-    Ptr () ->                               -- lookup_key : TBasicType TVoid-    Ptr () ->                               -- orig_key : TBasicType TVoid-    Ptr () ->                               -- value : TBasicType TVoid-    IO CInt---treeLookupExtended ::-    (MonadIO m) =>-    Tree ->                                 -- _obj-    Ptr () ->                               -- lookup_key-    Ptr () ->                               -- orig_key-    Ptr () ->                               -- value-    m Bool-treeLookupExtended _obj lookup_key orig_key value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_tree_lookup_extended _obj' lookup_key orig_key value-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Tree::nnodes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "g_tree_nnodes" g_tree_nnodes :: -    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"-    IO Int32---treeNnodes ::-    (MonadIO m) =>-    Tree ->                                 -- _obj-    m Int32-treeNnodes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_tree_nnodes _obj'-    touchManagedPtr _obj-    return result---- method Tree::remove--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_tree_remove" g_tree_remove :: -    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"-    Ptr () ->                               -- key : TBasicType TVoid-    IO CInt---treeRemove ::-    (MonadIO m) =>-    Tree ->                                 -- _obj-    Ptr () ->                               -- key-    m Bool-treeRemove _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_tree_remove _obj' key-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Tree::replace--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_tree_replace" g_tree_replace :: -    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"-    Ptr () ->                               -- key : TBasicType TVoid-    Ptr () ->                               -- value : TBasicType TVoid-    IO ()---treeReplace ::-    (MonadIO m) =>-    Tree ->                                 -- _obj-    Ptr () ->                               -- key-    Ptr () ->                               -- value-    m ()-treeReplace _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_tree_replace _obj' key value-    touchManagedPtr _obj-    return ()---- method Tree::steal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_tree_steal" g_tree_steal :: -    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"-    Ptr () ->                               -- key : TBasicType TVoid-    IO CInt---treeSteal ::-    (MonadIO m) =>-    Tree ->                                 -- _obj-    Ptr () ->                               -- key-    m Bool-treeSteal _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_tree_steal _obj' key-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Tree::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_tree_unref" g_tree_unref :: -    Ptr Tree ->                             -- _obj : TInterface "GLib" "Tree"-    IO ()---treeUnref ::-    (MonadIO m) =>-    Tree ->                                 -- _obj-    m ()-treeUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_tree_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/Tree.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Structs.Tree where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Tree = Tree (ForeignPtr Tree)
− GI/GLib/Structs/VariantBuilder.hs 
@@ -1,258 +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)--A utility type for constructing container-type #GVariant instances.--This is an opaque structure and may only be accessed using the-following functions.--#GVariantBuilder is not threadsafe in any way.  Do not attempt to-access it from more than one thread.--}--module GI.GLib.Structs.VariantBuilder-    ( ---- * Exported types-    VariantBuilder(..)                      ,-    noVariantBuilder                        ,--- -- * Methods--- ** variantBuilderAddValue-    variantBuilderAddValue                  ,----- ** variantBuilderClose-    variantBuilderClose                     ,----- ** variantBuilderEnd-    variantBuilderEnd                       ,----- ** variantBuilderNew-    variantBuilderNew                       ,----- ** variantBuilderOpen-    variantBuilderOpen                      ,----- ** variantBuilderRef-    variantBuilderRef                       ,----- ** variantBuilderUnref-    variantBuilderUnref                     ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype VariantBuilder = VariantBuilder (ForeignPtr VariantBuilder)-foreign import ccall "g_variant_builder_get_type" c_g_variant_builder_get_type :: -    IO GType--instance BoxedObject VariantBuilder where-    boxedType _ = c_g_variant_builder_get_type--noVariantBuilder :: Maybe VariantBuilder-noVariantBuilder = Nothing---- method VariantBuilder::new--- method type : Constructor--- Args : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantBuilder"--- throws : False--- Skip return : False--foreign import ccall "g_variant_builder_new" g_variant_builder_new :: -    Ptr VariantType ->                      -- type : TInterface "GLib" "VariantType"-    IO (Ptr VariantBuilder)---variantBuilderNew ::-    (MonadIO m) =>-    VariantType ->                          -- type-    m VariantBuilder-variantBuilderNew type_ = liftIO $ do-    let type_' = unsafeManagedPtrGetPtr type_-    result <- g_variant_builder_new type_'-    checkUnexpectedReturnNULL "g_variant_builder_new" result-    result' <- (wrapBoxed VariantBuilder) result-    touchManagedPtr type_-    return result'---- method VariantBuilder::add_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_variant_builder_add_value" g_variant_builder_add_value :: -    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"-    Ptr GVariant ->                         -- value : TVariant-    IO ()---variantBuilderAddValue ::-    (MonadIO m) =>-    VariantBuilder ->                       -- _obj-    GVariant ->                             -- value-    m ()-variantBuilderAddValue _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let value' = unsafeManagedPtrGetPtr value-    g_variant_builder_add_value _obj' value'-    touchManagedPtr _obj-    return ()---- method VariantBuilder::close--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_variant_builder_close" g_variant_builder_close :: -    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"-    IO ()---variantBuilderClose ::-    (MonadIO m) =>-    VariantBuilder ->                       -- _obj-    m ()-variantBuilderClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_variant_builder_close _obj'-    touchManagedPtr _obj-    return ()---- method VariantBuilder::end--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TVariant--- throws : False--- Skip return : False--foreign import ccall "g_variant_builder_end" g_variant_builder_end :: -    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"-    IO (Ptr GVariant)---variantBuilderEnd ::-    (MonadIO m) =>-    VariantBuilder ->                       -- _obj-    m GVariant-variantBuilderEnd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_builder_end _obj'-    checkUnexpectedReturnNULL "g_variant_builder_end" result-    result' <- newGVariantFromPtr result-    touchManagedPtr _obj-    return result'---- method VariantBuilder::open--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_variant_builder_open" g_variant_builder_open :: -    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"-    Ptr VariantType ->                      -- type : TInterface "GLib" "VariantType"-    IO ()---variantBuilderOpen ::-    (MonadIO m) =>-    VariantBuilder ->                       -- _obj-    VariantType ->                          -- type-    m ()-variantBuilderOpen _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let type_' = unsafeManagedPtrGetPtr type_-    g_variant_builder_open _obj' type_'-    touchManagedPtr _obj-    touchManagedPtr type_-    return ()---- method VariantBuilder::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantBuilder"--- throws : False--- Skip return : False--foreign import ccall "g_variant_builder_ref" g_variant_builder_ref :: -    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"-    IO (Ptr VariantBuilder)---variantBuilderRef ::-    (MonadIO m) =>-    VariantBuilder ->                       -- _obj-    m VariantBuilder-variantBuilderRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_builder_ref _obj'-    checkUnexpectedReturnNULL "g_variant_builder_ref" result-    result' <- (wrapBoxed VariantBuilder) result-    touchManagedPtr _obj-    return result'---- method VariantBuilder::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_variant_builder_unref" g_variant_builder_unref :: -    Ptr VariantBuilder ->                   -- _obj : TInterface "GLib" "VariantBuilder"-    IO ()---variantBuilderUnref ::-    (MonadIO m) =>-    VariantBuilder ->                       -- _obj-    m ()-variantBuilderUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_variant_builder_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/VariantBuilder.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.VariantBuilder where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype VariantBuilder = VariantBuilder (ForeignPtr VariantBuilder)-instance BoxedObject VariantBuilder where
− GI/GLib/Structs/VariantDict.hs 
@@ -1,423 +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)--#GVariantDict is a mutable interface to #GVariant dictionaries.--It can be used for doing a sequence of dictionary lookups in an-efficient way on an existing #GVariant dictionary or it can be used-to construct new dictionaries with a hashtable-like interface.  It-can also be used for taking existing dictionaries and modifying them-in order to create new ones.--#GVariantDict can only be used with %G_VARIANT_TYPE_VARDICT-dictionaries.--It is possible to use #GVariantDict allocated on the stack or on the-heap.  When using a stack-allocated #GVariantDict, you begin with a-call to g_variant_dict_init() and free the resources with a call to-g_variant_dict_clear().--Heap-allocated #GVariantDict follows normal refcounting rules: you-allocate it with g_variant_dict_new() and use g_variant_dict_ref()-and g_variant_dict_unref().--g_variant_dict_end() is used to convert the #GVariantDict back into a-dictionary-type #GVariant.  When used with stack-allocated instances,-this also implicitly frees all associated memory, but for-heap-allocated instances, you must still call g_variant_dict_unref()-afterwards.--You will typically want to use a heap-allocated #GVariantDict when-you expose it as part of an API.  For most other uses, the-stack-allocated form will be more convenient.--Consider the following two examples that do the same thing in each-style: take an existing dictionary and look up the "count" uint32-key, adding 1 to it if it is found, or returning an error if the-key is not found.  Each returns the new dictionary as a floating-#GVariant.--## Using a stack-allocated GVariantDict--|[<!-- language="C" -->-  GVariant *-  add_to_count (GVariant  *orig,-                GError   **error)-  {-    GVariantDict dict;-    guint32 count;--    g_variant_dict_init (&dict, orig);-    if (!g_variant_dict_lookup (&dict, "count", "u", &count))-      {-        g_set_error (...);-        g_variant_dict_clear (&dict);-        return NULL;-      }--    g_variant_dict_insert (&dict, "count", "u", count + 1);--    return g_variant_dict_end (&dict);-  }-]|--## Using heap-allocated GVariantDict--|[<!-- language="C" -->-  GVariant *-  add_to_count (GVariant  *orig,-                GError   **error)-  {-    GVariantDict *dict;-    GVariant *result;-    guint32 count;--    dict = g_variant_dict_new (orig);--    if (g_variant_dict_lookup (dict, "count", "u", &count))-      {-        g_variant_dict_insert (dict, "count", "u", count + 1);-        result = g_variant_dict_end (dict);-      }-    else-      {-        g_set_error (...);-        result = NULL;-      }--    g_variant_dict_unref (dict);--    return result;-  }-]|--}--module GI.GLib.Structs.VariantDict-    ( ---- * Exported types-    VariantDict(..)                         ,-    noVariantDict                           ,--- -- * Methods--- ** variantDictClear-    variantDictClear                        ,----- ** variantDictContains-    variantDictContains                     ,----- ** variantDictEnd-    variantDictEnd                          ,----- ** variantDictInsertValue-    variantDictInsertValue                  ,----- ** variantDictLookupValue-    variantDictLookupValue                  ,----- ** variantDictNew-    variantDictNew                          ,----- ** variantDictRef-    variantDictRef                          ,----- ** variantDictRemove-    variantDictRemove                       ,----- ** variantDictUnref-    variantDictUnref                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype VariantDict = VariantDict (ForeignPtr VariantDict)-foreign import ccall "g_variant_dict_get_type" c_g_variant_dict_get_type :: -    IO GType--instance BoxedObject VariantDict where-    boxedType _ = c_g_variant_dict_get_type--noVariantDict :: Maybe VariantDict-noVariantDict = Nothing---- method VariantDict::new--- method type : Constructor--- Args : [Arg {argName = "from_asv", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "from_asv", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantDict"--- throws : False--- Skip return : False--foreign import ccall "g_variant_dict_new" g_variant_dict_new :: -    Ptr GVariant ->                         -- from_asv : TVariant-    IO (Ptr VariantDict)---variantDictNew ::-    (MonadIO m) =>-    Maybe (GVariant) ->                     -- from_asv-    m VariantDict-variantDictNew from_asv = liftIO $ do-    maybeFrom_asv <- case from_asv of-        Nothing -> return nullPtr-        Just jFrom_asv -> do-            let jFrom_asv' = unsafeManagedPtrGetPtr jFrom_asv-            return jFrom_asv'-    result <- g_variant_dict_new maybeFrom_asv-    checkUnexpectedReturnNULL "g_variant_dict_new" result-    result' <- (wrapBoxed VariantDict) result-    return result'---- method VariantDict::clear--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_variant_dict_clear" g_variant_dict_clear :: -    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"-    IO ()---variantDictClear ::-    (MonadIO m) =>-    VariantDict ->                          -- _obj-    m ()-variantDictClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_variant_dict_clear _obj'-    touchManagedPtr _obj-    return ()---- method VariantDict::contains--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_dict_contains" g_variant_dict_contains :: -    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"-    CString ->                              -- key : TBasicType TUTF8-    IO CInt---variantDictContains ::-    (MonadIO m) =>-    VariantDict ->                          -- _obj-    T.Text ->                               -- key-    m Bool-variantDictContains _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    key' <- textToCString key-    result <- g_variant_dict_contains _obj' key'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'---- method VariantDict::end--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TVariant--- throws : False--- Skip return : False--foreign import ccall "g_variant_dict_end" g_variant_dict_end :: -    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"-    IO (Ptr GVariant)---variantDictEnd ::-    (MonadIO m) =>-    VariantDict ->                          -- _obj-    m GVariant-variantDictEnd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_dict_end _obj'-    checkUnexpectedReturnNULL "g_variant_dict_end" result-    result' <- newGVariantFromPtr result-    touchManagedPtr _obj-    return result'---- method VariantDict::insert_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_variant_dict_insert_value" g_variant_dict_insert_value :: -    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"-    CString ->                              -- key : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    IO ()---variantDictInsertValue ::-    (MonadIO m) =>-    VariantDict ->                          -- _obj-    T.Text ->                               -- key-    GVariant ->                             -- value-    m ()-variantDictInsertValue _obj key value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    key' <- textToCString key-    let value' = unsafeManagedPtrGetPtr value-    g_variant_dict_insert_value _obj' key' value'-    touchManagedPtr _obj-    freeMem key'-    return ()---- method VariantDict::lookup_value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TVariant--- throws : False--- Skip return : False--foreign import ccall "g_variant_dict_lookup_value" g_variant_dict_lookup_value :: -    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"-    CString ->                              -- key : TBasicType TUTF8-    Ptr VariantType ->                      -- expected_type : TInterface "GLib" "VariantType"-    IO (Ptr GVariant)---variantDictLookupValue ::-    (MonadIO m) =>-    VariantDict ->                          -- _obj-    T.Text ->                               -- key-    Maybe (VariantType) ->                  -- expected_type-    m GVariant-variantDictLookupValue _obj key expected_type = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    key' <- textToCString key-    maybeExpected_type <- case expected_type of-        Nothing -> return nullPtr-        Just jExpected_type -> do-            let jExpected_type' = unsafeManagedPtrGetPtr jExpected_type-            return jExpected_type'-    result <- g_variant_dict_lookup_value _obj' key' maybeExpected_type-    checkUnexpectedReturnNULL "g_variant_dict_lookup_value" result-    result' <- wrapGVariantPtr result-    touchManagedPtr _obj-    whenJust expected_type touchManagedPtr-    freeMem key'-    return result'---- method VariantDict::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantDict"--- throws : False--- Skip return : False--foreign import ccall "g_variant_dict_ref" g_variant_dict_ref :: -    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"-    IO (Ptr VariantDict)---variantDictRef ::-    (MonadIO m) =>-    VariantDict ->                          -- _obj-    m VariantDict-variantDictRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_dict_ref _obj'-    checkUnexpectedReturnNULL "g_variant_dict_ref" result-    result' <- (wrapBoxed VariantDict) result-    touchManagedPtr _obj-    return result'---- method VariantDict::remove--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_dict_remove" g_variant_dict_remove :: -    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"-    CString ->                              -- key : TBasicType TUTF8-    IO CInt---variantDictRemove ::-    (MonadIO m) =>-    VariantDict ->                          -- _obj-    T.Text ->                               -- key-    m Bool-variantDictRemove _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    key' <- textToCString key-    result <- g_variant_dict_remove _obj' key'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem key'-    return result'---- method VariantDict::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_variant_dict_unref" g_variant_dict_unref :: -    Ptr VariantDict ->                      -- _obj : TInterface "GLib" "VariantDict"-    IO ()---variantDictUnref ::-    (MonadIO m) =>-    VariantDict ->                          -- _obj-    m ()-variantDictUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_variant_dict_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Structs/VariantDict.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.VariantDict where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype VariantDict = VariantDict (ForeignPtr VariantDict)-instance BoxedObject VariantDict where
− GI/GLib/Structs/VariantType.hs 
@@ -1,965 +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 section introduces the GVariant type system. It is based, in-large part, on the D-Bus type system, with two major changes and-some minor lifting of restrictions. The-[D-Bus specification](http://dbus.freedesktop.org/doc/dbus-specification.html),-therefore, provides a significant amount of-information that is useful when working with GVariant.--The first major change with respect to the D-Bus type system is the-introduction of maybe (or "nullable") types.  Any type in GVariant can be-converted to a maybe type, in which case, "nothing" (or "null") becomes a-valid value.  Maybe types have been added by introducing the-character "m" to type strings.--The second major change is that the GVariant type system supports the-concept of "indefinite types" -- types that are less specific than-the normal types found in D-Bus.  For example, it is possible to speak-of "an array of any type" in GVariant, where the D-Bus type system-would require you to speak of "an array of integers" or "an array of-strings".  Indefinite types have been added by introducing the-characters "*", "?" and "r" to type strings.--Finally, all arbitrary restrictions relating to the complexity of-types are lifted along with the restriction that dictionary entries-may only appear nested inside of arrays.--Just as in D-Bus, GVariant types are described with strings ("type-strings").  Subject to the differences mentioned above, these strings-are of the same form as those found in DBus.  Note, however: D-Bus-always works in terms of messages and therefore individual type-strings appear nowhere in its interface.  Instead, "signatures"-are a concatenation of the strings of the type of each argument in a-message.  GVariant deals with single values directly so GVariant type-strings always describe the type of exactly one value.  This means-that a D-Bus signature string is generally not a valid GVariant type-string -- except in the case that it is the signature of a message-containing exactly one argument.--An indefinite type is similar in spirit to what may be called an-abstract type in other type systems.  No value can exist that has an-indefinite type as its type, but values can exist that have types-that are subtypes of indefinite types.  That is to say,-g_variant_get_type() will never return an indefinite type, but-calling g_variant_is_of_type() with an indefinite type may return-%TRUE.  For example, you cannot have a value that represents "an-array of no particular type", but you can have an "array of integers"-which certainly matches the type of "an array of no particular type",-since "array of integers" is a subtype of "array of no particular-type".--This is similar to how instances of abstract classes may not-directly exist in other type systems, but instances of their-non-abstract subtypes may.  For example, in GTK, no object that has-the type of #GtkBin can exist (since #GtkBin is an abstract class),-but a #GtkWindow can certainly be instantiated, and you would say-that the #GtkWindow is a #GtkBin (since #GtkWindow is a subclass of-#GtkBin).--## GVariant Type Strings--A GVariant type string can be any of the following:--- any basic type string (listed below)--- "v", "r" or "*"--- one of the characters 'a' or 'm', followed by another type string--- the character '(', followed by a concatenation of zero or more other-  type strings, followed by the character ')'--- the character '{', followed by a basic type string (see below),-  followed by another type string, followed by the character '}'--A basic type string describes a basic type (as per-g_variant_type_is_basic()) and is always a single character in length.-The valid basic type strings are "b", "y", "n", "q", "i", "u", "x", "t",-"h", "d", "s", "o", "g" and "?".--The above definition is recursive to arbitrary depth. "aaaaai" and-"(ui(nq((y)))s)" are both valid type strings, as is-"a(aa(ui)(qna{ya(yd)}))".--The meaning of each of the characters is as follows:-- `b`: the type string of %G_VARIANT_TYPE_BOOLEAN; a boolean value.-- `y`: the type string of %G_VARIANT_TYPE_BYTE; a byte.-- `n`: the type string of %G_VARIANT_TYPE_INT16; a signed 16 bit integer.-- `q`: the type string of %G_VARIANT_TYPE_UINT16; an unsigned 16 bit integer.-- `i`: the type string of %G_VARIANT_TYPE_INT32; a signed 32 bit integer.-- `u`: the type string of %G_VARIANT_TYPE_UINT32; an unsigned 32 bit integer.-- `x`: the type string of %G_VARIANT_TYPE_INT64; a signed 64 bit integer.-- `t`: the type string of %G_VARIANT_TYPE_UINT64; an unsigned 64 bit integer.-- `h`: the type string of %G_VARIANT_TYPE_HANDLE; a signed 32 bit value-  that, by convention, is used as an index into an array of file-  descriptors that are sent alongside a D-Bus message.-- `d`: the type string of %G_VARIANT_TYPE_DOUBLE; a double precision-  floating point value.-- `s`: the type string of %G_VARIANT_TYPE_STRING; a string.-- `o`: the type string of %G_VARIANT_TYPE_OBJECT_PATH; a string in the form-  of a D-Bus object path.-- `g`: the type string of %G_VARIANT_TYPE_STRING; a string in the form of-  a D-Bus type signature.-- `?`: the type string of %G_VARIANT_TYPE_BASIC; an indefinite type that-  is a supertype of any of the basic types.-- `v`: the type string of %G_VARIANT_TYPE_VARIANT; a container type that-  contain any other type of value.-- `a`: used as a prefix on another type string to mean an array of that-  type; the type string "ai", for example, is the type of an array of-  signed 32-bit integers.-- `m`: used as a prefix on another type string to mean a "maybe", or-  "nullable", version of that type; the type string "ms", for example,-  is the type of a value that maybe contains a string, or maybe contains-  nothing.-- `()`: used to enclose zero or more other concatenated type strings to-  create a tuple type; the type string "(is)", for example, is the type of-  a pair of an integer and a string.-- `r`: the type string of %G_VARIANT_TYPE_TUPLE; an indefinite type that is-  a supertype of any tuple type, regardless of the number of items.-- `{}`: used to enclose a basic type string concatenated with another type-  string to create a dictionary entry type, which usually appears inside of-  an array to form a dictionary; the type string "a{sd}", for example, is-  the type of a dictionary that maps strings to double precision floating-  point values.--  The first type (the basic type) is the key type and the second type is-  the value type. The reason that the first type is restricted to being a-  basic type is so that it can easily be hashed.-- `*`: the type string of %G_VARIANT_TYPE_ANY; the indefinite type that is-  a supertype of all types.  Note that, as with all type strings, this-  character represents exactly one type. It cannot be used inside of tuples-  to mean "any number of items".--Any type string of a container that contains an indefinite type is,-itself, an indefinite type. For example, the type string "a*"-(corresponding to %G_VARIANT_TYPE_ARRAY) is an indefinite type-that is a supertype of every array type. "(*s)" is a supertype-of all tuples that contain exactly two items where the second-item is a string.--"a{?*}" is an indefinite type that is a supertype of all arrays-containing dictionary entries where the key is any basic type and-the value is any type at all.  This is, by definition, a dictionary,-so this type string corresponds to %G_VARIANT_TYPE_DICTIONARY. Note-that, due to the restriction that the key of a dictionary entry must-be a basic type, "{**}" is not a valid type string.--}--module GI.GLib.Structs.VariantType-    ( ---- * Exported types-    VariantType(..)                         ,-    noVariantType                           ,--- -- * Methods--- ** variantTypeCopy-    variantTypeCopy                         ,----- ** variantTypeDupString-    variantTypeDupString                    ,----- ** variantTypeElement-    variantTypeElement                      ,----- ** variantTypeEqual-    variantTypeEqual                        ,----- ** variantTypeFirst-    variantTypeFirst                        ,----- ** variantTypeFree-    variantTypeFree                         ,----- ** variantTypeGetStringLength-    variantTypeGetStringLength              ,----- ** variantTypeHash-    variantTypeHash                         ,----- ** variantTypeIsArray-    variantTypeIsArray                      ,----- ** variantTypeIsBasic-    variantTypeIsBasic                      ,----- ** variantTypeIsContainer-    variantTypeIsContainer                  ,----- ** variantTypeIsDefinite-    variantTypeIsDefinite                   ,----- ** variantTypeIsDictEntry-    variantTypeIsDictEntry                  ,----- ** variantTypeIsMaybe-    variantTypeIsMaybe                      ,----- ** variantTypeIsSubtypeOf-    variantTypeIsSubtypeOf                  ,----- ** variantTypeIsTuple-    variantTypeIsTuple                      ,----- ** variantTypeIsVariant-    variantTypeIsVariant                    ,----- ** variantTypeKey-    variantTypeKey                          ,----- ** variantTypeNItems-    variantTypeNItems                       ,----- ** variantTypeNew-    variantTypeNew                          ,----- ** variantTypeNewArray-    variantTypeNewArray                     ,----- ** variantTypeNewDictEntry-    variantTypeNewDictEntry                 ,----- ** variantTypeNewMaybe-    variantTypeNewMaybe                     ,----- ** variantTypeNewTuple-    variantTypeNewTuple                     ,----- ** variantTypeNext-    variantTypeNext                         ,----- ** variantTypeValue-    variantTypeValue                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype VariantType = VariantType (ForeignPtr VariantType)-foreign import ccall "g_variant_type_get_gtype" c_g_variant_type_get_gtype :: -    IO GType--instance BoxedObject VariantType where-    boxedType _ = c_g_variant_type_get_gtype--noVariantType :: Maybe VariantType-noVariantType = Nothing---- method VariantType::new--- method type : Constructor--- Args : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_new" g_variant_type_new :: -    CString ->                              -- type_string : TBasicType TUTF8-    IO (Ptr VariantType)---variantTypeNew ::-    (MonadIO m) =>-    T.Text ->                               -- type_string-    m VariantType-variantTypeNew type_string = liftIO $ do-    type_string' <- textToCString type_string-    result <- g_variant_type_new type_string'-    checkUnexpectedReturnNULL "g_variant_type_new" result-    result' <- (wrapBoxed VariantType) result-    freeMem type_string'-    return result'---- method VariantType::new_array--- method type : Constructor--- Args : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_new_array" g_variant_type_new_array :: -    Ptr VariantType ->                      -- element : TInterface "GLib" "VariantType"-    IO (Ptr VariantType)---variantTypeNewArray ::-    (MonadIO m) =>-    VariantType ->                          -- element-    m VariantType-variantTypeNewArray element = liftIO $ do-    let element' = unsafeManagedPtrGetPtr element-    result <- g_variant_type_new_array element'-    checkUnexpectedReturnNULL "g_variant_type_new_array" result-    result' <- (wrapBoxed VariantType) result-    touchManagedPtr element-    return result'---- method VariantType::new_dict_entry--- method type : Constructor--- Args : [Arg {argName = "key", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "key", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_new_dict_entry" g_variant_type_new_dict_entry :: -    Ptr VariantType ->                      -- key : TInterface "GLib" "VariantType"-    Ptr VariantType ->                      -- value : TInterface "GLib" "VariantType"-    IO (Ptr VariantType)---variantTypeNewDictEntry ::-    (MonadIO m) =>-    VariantType ->                          -- key-    VariantType ->                          -- value-    m VariantType-variantTypeNewDictEntry key value = liftIO $ do-    let key' = unsafeManagedPtrGetPtr key-    let value' = unsafeManagedPtrGetPtr value-    result <- g_variant_type_new_dict_entry key' value'-    checkUnexpectedReturnNULL "g_variant_type_new_dict_entry" result-    result' <- (wrapBoxed VariantType) result-    touchManagedPtr key-    touchManagedPtr value-    return result'---- method VariantType::new_maybe--- method type : Constructor--- Args : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_new_maybe" g_variant_type_new_maybe :: -    Ptr VariantType ->                      -- element : TInterface "GLib" "VariantType"-    IO (Ptr VariantType)---variantTypeNewMaybe ::-    (MonadIO m) =>-    VariantType ->                          -- element-    m VariantType-variantTypeNewMaybe element = liftIO $ do-    let element' = unsafeManagedPtrGetPtr element-    result <- g_variant_type_new_maybe element'-    checkUnexpectedReturnNULL "g_variant_type_new_maybe" result-    result' <- (wrapBoxed VariantType) result-    touchManagedPtr element-    return result'---- method VariantType::new_tuple--- method type : Constructor--- Args : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "GLib" "VariantType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "GLib" "VariantType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_new_tuple" g_variant_type_new_tuple :: -    Ptr (Ptr VariantType) ->                -- items : TCArray False (-1) 1 (TInterface "GLib" "VariantType")-    Int32 ->                                -- length : TBasicType TInt32-    IO (Ptr VariantType)---variantTypeNewTuple ::-    (MonadIO m) =>-    [VariantType] ->                        -- items-    m VariantType-variantTypeNewTuple items = liftIO $ do-    let length_ = fromIntegral $ length items-    let items' = map unsafeManagedPtrGetPtr items-    items'' <- packPtrArray items'-    result <- g_variant_type_new_tuple items'' length_-    checkUnexpectedReturnNULL "g_variant_type_new_tuple" result-    result' <- (wrapBoxed VariantType) result-    mapM_ touchManagedPtr items-    freeMem items''-    return result'---- method VariantType::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_copy" g_variant_type_copy :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO (Ptr VariantType)---variantTypeCopy ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m VariantType-variantTypeCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_copy _obj'-    checkUnexpectedReturnNULL "g_variant_type_copy" result-    result' <- (wrapBoxed VariantType) result-    touchManagedPtr _obj-    return result'---- method VariantType::dup_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_dup_string" g_variant_type_dup_string :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO CString---variantTypeDupString ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m T.Text-variantTypeDupString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_dup_string _obj'-    checkUnexpectedReturnNULL "g_variant_type_dup_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method VariantType::element--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_element" g_variant_type_element :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO (Ptr VariantType)---variantTypeElement ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m VariantType-variantTypeElement _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_element _obj'-    checkUnexpectedReturnNULL "g_variant_type_element" result-    result' <- (newBoxed VariantType) result-    touchManagedPtr _obj-    return result'---- method VariantType::equal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type2", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type2", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_equal" g_variant_type_equal :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    Ptr VariantType ->                      -- type2 : TInterface "GLib" "VariantType"-    IO CInt---variantTypeEqual ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    VariantType ->                          -- type2-    m Bool-variantTypeEqual _obj type2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let type2' = unsafeManagedPtrGetPtr type2-    result <- g_variant_type_equal _obj' type2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr type2-    return result'---- method VariantType::first--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_first" g_variant_type_first :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO (Ptr VariantType)---variantTypeFirst ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m VariantType-variantTypeFirst _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_first _obj'-    checkUnexpectedReturnNULL "g_variant_type_first" result-    result' <- (newBoxed VariantType) result-    touchManagedPtr _obj-    return result'---- method VariantType::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_free" g_variant_type_free :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO ()---variantTypeFree ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m ()-variantTypeFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_variant_type_free _obj'-    touchManagedPtr _obj-    return ()---- method VariantType::get_string_length--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_get_string_length" g_variant_type_get_string_length :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO Word64---variantTypeGetStringLength ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m Word64-variantTypeGetStringLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_get_string_length _obj'-    touchManagedPtr _obj-    return result---- method VariantType::hash--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_hash" g_variant_type_hash :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO Word32---variantTypeHash ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m Word32-variantTypeHash _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_hash _obj'-    touchManagedPtr _obj-    return result---- method VariantType::is_array--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_is_array" g_variant_type_is_array :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO CInt---variantTypeIsArray ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m Bool-variantTypeIsArray _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_is_array _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method VariantType::is_basic--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_is_basic" g_variant_type_is_basic :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO CInt---variantTypeIsBasic ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m Bool-variantTypeIsBasic _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_is_basic _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method VariantType::is_container--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_is_container" g_variant_type_is_container :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO CInt---variantTypeIsContainer ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m Bool-variantTypeIsContainer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_is_container _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method VariantType::is_definite--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_is_definite" g_variant_type_is_definite :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO CInt---variantTypeIsDefinite ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m Bool-variantTypeIsDefinite _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_is_definite _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method VariantType::is_dict_entry--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_is_dict_entry" g_variant_type_is_dict_entry :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO CInt---variantTypeIsDictEntry ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m Bool-variantTypeIsDictEntry _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_is_dict_entry _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method VariantType::is_maybe--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_is_maybe" g_variant_type_is_maybe :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO CInt---variantTypeIsMaybe ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m Bool-variantTypeIsMaybe _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_is_maybe _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method VariantType::is_subtype_of--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "supertype", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "supertype", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_is_subtype_of" g_variant_type_is_subtype_of :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    Ptr VariantType ->                      -- supertype : TInterface "GLib" "VariantType"-    IO CInt---variantTypeIsSubtypeOf ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    VariantType ->                          -- supertype-    m Bool-variantTypeIsSubtypeOf _obj supertype = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let supertype' = unsafeManagedPtrGetPtr supertype-    result <- g_variant_type_is_subtype_of _obj' supertype'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr supertype-    return result'---- method VariantType::is_tuple--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_is_tuple" g_variant_type_is_tuple :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO CInt---variantTypeIsTuple ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m Bool-variantTypeIsTuple _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_is_tuple _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method VariantType::is_variant--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_is_variant" g_variant_type_is_variant :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO CInt---variantTypeIsVariant ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m Bool-variantTypeIsVariant _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_is_variant _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method VariantType::key--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_key" g_variant_type_key :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO (Ptr VariantType)---variantTypeKey ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m VariantType-variantTypeKey _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_key _obj'-    checkUnexpectedReturnNULL "g_variant_type_key" result-    result' <- (newBoxed VariantType) result-    touchManagedPtr _obj-    return result'---- method VariantType::n_items--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt64--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_n_items" g_variant_type_n_items :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO Word64---variantTypeNItems ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m Word64-variantTypeNItems _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_n_items _obj'-    touchManagedPtr _obj-    return result---- method VariantType::next--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_next" g_variant_type_next :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO (Ptr VariantType)---variantTypeNext ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m VariantType-variantTypeNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_next _obj'-    checkUnexpectedReturnNULL "g_variant_type_next" result-    result' <- (newBoxed VariantType) result-    touchManagedPtr _obj-    return result'---- method VariantType::value--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "VariantType"--- throws : False--- Skip return : False--foreign import ccall "g_variant_type_value" g_variant_type_value :: -    Ptr VariantType ->                      -- _obj : TInterface "GLib" "VariantType"-    IO (Ptr VariantType)---variantTypeValue ::-    (MonadIO m) =>-    VariantType ->                          -- _obj-    m VariantType-variantTypeValue _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_variant_type_value _obj'-    checkUnexpectedReturnNULL "g_variant_type_value" result-    result' <- (newBoxed VariantType) result-    touchManagedPtr _obj-    return result'--
− GI/GLib/Structs/VariantType.hs-boot 
@@ -1,11 +0,0 @@-module GI.GLib.Structs.VariantType where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype VariantType = VariantType (ForeignPtr VariantType)-instance BoxedObject VariantType where
− GI/GLib/Types.hs 
@@ -1,148 +0,0 @@-module GI.GLib.Types-    (     module GI.GLib.Structs.AsyncQueue       ,-    module GI.GLib.Structs.BookmarkFile     ,-    module GI.GLib.Structs.ByteArray        ,-    module GI.GLib.Structs.Bytes            ,-    module GI.GLib.Structs.Checksum         ,-    module GI.GLib.Structs.Cond             ,-    module GI.GLib.Structs.Data             ,-    module GI.GLib.Structs.Date             ,-    module GI.GLib.Structs.DateTime         ,-    module GI.GLib.Structs.DebugKey         ,-    module GI.GLib.Structs.Dir              ,-    module GI.GLib.Structs.HashTableIter    ,-    module GI.GLib.Structs.Hmac             ,-    module GI.GLib.Structs.Hook             ,-    module GI.GLib.Structs.HookList         ,-    module GI.GLib.Structs.IConv            ,-    module GI.GLib.Structs.IOChannel        ,-    module GI.GLib.Structs.IOFuncs          ,-    module GI.GLib.Structs.KeyFile          ,-    module GI.GLib.Structs.MainContext      ,-    module GI.GLib.Structs.MainLoop         ,-    module GI.GLib.Structs.MappedFile       ,-    module GI.GLib.Structs.MarkupParseContext,-    module GI.GLib.Structs.MarkupParser     ,-    module GI.GLib.Structs.MatchInfo        ,-    module GI.GLib.Structs.MemVTable        ,-    module GI.GLib.Structs.Node             ,-    module GI.GLib.Structs.Once             ,-    module GI.GLib.Structs.OptionContext    ,-    module GI.GLib.Structs.OptionEntry      ,-    module GI.GLib.Structs.OptionGroup      ,-    module GI.GLib.Structs.PatternSpec      ,-    module GI.GLib.Structs.PollFD           ,-    module GI.GLib.Structs.PtrArray         ,-    module GI.GLib.Structs.Queue            ,-    module GI.GLib.Structs.RWLock           ,-    module GI.GLib.Structs.Rand             ,-    module GI.GLib.Structs.RecMutex         ,-    module GI.GLib.Structs.Regex            ,-    module GI.GLib.Structs.Scanner          ,-    module GI.GLib.Structs.ScannerConfig    ,-    module GI.GLib.Structs.Sequence         ,-    module GI.GLib.Structs.SequenceIter     ,-    module GI.GLib.Structs.Source           ,-    module GI.GLib.Structs.SourceCallbackFuncs,-    module GI.GLib.Structs.SourceFuncs      ,-    module GI.GLib.Structs.StatBuf          ,-    module GI.GLib.Structs.String           ,-    module GI.GLib.Structs.StringChunk      ,-    module GI.GLib.Structs.TestCase         ,-    module GI.GLib.Structs.TestConfig       ,-    module GI.GLib.Structs.TestLogBuffer    ,-    module GI.GLib.Structs.TestLogMsg       ,-    module GI.GLib.Structs.TestSuite        ,-    module GI.GLib.Structs.Thread           ,-    module GI.GLib.Structs.ThreadPool       ,-    module GI.GLib.Structs.TimeVal          ,-    module GI.GLib.Structs.TimeZone         ,-    module GI.GLib.Structs.Timer            ,-    module GI.GLib.Structs.TrashStack       ,-    module GI.GLib.Structs.Tree             ,-    module GI.GLib.Structs.VariantBuilder   ,-    module GI.GLib.Structs.VariantDict      ,-    module GI.GLib.Structs.VariantType      ,-    module GI.GLib.Unions.DoubleIEEE754     ,-    module GI.GLib.Unions.FloatIEEE754      ,-    module GI.GLib.Unions.Mutex             ,-    module GI.GLib.Unions.TokenValue        ,-    module GI.GLib.Enums                    ,-    module GI.GLib.Flags                    ,---    ) where---import {-# SOURCE #-} GI.GLib.Structs.AsyncQueue-import {-# SOURCE #-} GI.GLib.Structs.BookmarkFile-import {-# SOURCE #-} GI.GLib.Structs.ByteArray-import {-# SOURCE #-} GI.GLib.Structs.Bytes-import {-# SOURCE #-} GI.GLib.Structs.Checksum-import {-# SOURCE #-} GI.GLib.Structs.Cond-import {-# SOURCE #-} GI.GLib.Structs.Data-import {-# SOURCE #-} GI.GLib.Structs.Date-import {-# SOURCE #-} GI.GLib.Structs.DateTime-import {-# SOURCE #-} GI.GLib.Structs.DebugKey-import {-# SOURCE #-} GI.GLib.Structs.Dir-import {-# SOURCE #-} GI.GLib.Structs.HashTableIter-import {-# SOURCE #-} GI.GLib.Structs.Hmac-import {-# SOURCE #-} GI.GLib.Structs.Hook-import {-# SOURCE #-} GI.GLib.Structs.HookList-import {-# SOURCE #-} GI.GLib.Structs.IConv-import {-# SOURCE #-} GI.GLib.Structs.IOChannel-import {-# SOURCE #-} GI.GLib.Structs.IOFuncs-import {-# SOURCE #-} GI.GLib.Structs.KeyFile-import {-# SOURCE #-} GI.GLib.Structs.MainContext-import {-# SOURCE #-} GI.GLib.Structs.MainLoop-import {-# SOURCE #-} GI.GLib.Structs.MappedFile-import {-# SOURCE #-} GI.GLib.Structs.MarkupParseContext-import {-# SOURCE #-} GI.GLib.Structs.MarkupParser-import {-# SOURCE #-} GI.GLib.Structs.MatchInfo-import {-# SOURCE #-} GI.GLib.Structs.MemVTable-import {-# SOURCE #-} GI.GLib.Structs.Node-import {-# SOURCE #-} GI.GLib.Structs.Once-import {-# SOURCE #-} GI.GLib.Structs.OptionContext-import {-# SOURCE #-} GI.GLib.Structs.OptionEntry-import {-# SOURCE #-} GI.GLib.Structs.OptionGroup-import {-# SOURCE #-} GI.GLib.Structs.PatternSpec-import {-# SOURCE #-} GI.GLib.Structs.PollFD-import {-# SOURCE #-} GI.GLib.Structs.PtrArray-import {-# SOURCE #-} GI.GLib.Structs.Queue-import {-# SOURCE #-} GI.GLib.Structs.RWLock-import {-# SOURCE #-} GI.GLib.Structs.Rand-import {-# SOURCE #-} GI.GLib.Structs.RecMutex-import {-# SOURCE #-} GI.GLib.Structs.Regex-import {-# SOURCE #-} GI.GLib.Structs.Scanner-import {-# SOURCE #-} GI.GLib.Structs.ScannerConfig-import {-# SOURCE #-} GI.GLib.Structs.Sequence-import {-# SOURCE #-} GI.GLib.Structs.SequenceIter-import {-# SOURCE #-} GI.GLib.Structs.Source-import {-# SOURCE #-} GI.GLib.Structs.SourceCallbackFuncs-import {-# SOURCE #-} GI.GLib.Structs.SourceFuncs-import {-# SOURCE #-} GI.GLib.Structs.StatBuf-import {-# SOURCE #-} GI.GLib.Structs.String-import {-# SOURCE #-} GI.GLib.Structs.StringChunk-import {-# SOURCE #-} GI.GLib.Structs.TestCase-import {-# SOURCE #-} GI.GLib.Structs.TestConfig-import {-# SOURCE #-} GI.GLib.Structs.TestLogBuffer-import {-# SOURCE #-} GI.GLib.Structs.TestLogMsg-import {-# SOURCE #-} GI.GLib.Structs.TestSuite-import {-# SOURCE #-} GI.GLib.Structs.Thread-import {-# SOURCE #-} GI.GLib.Structs.ThreadPool-import {-# SOURCE #-} GI.GLib.Structs.TimeVal-import {-# SOURCE #-} GI.GLib.Structs.TimeZone-import {-# SOURCE #-} GI.GLib.Structs.Timer-import {-# SOURCE #-} GI.GLib.Structs.TrashStack-import {-# SOURCE #-} GI.GLib.Structs.Tree-import {-# SOURCE #-} GI.GLib.Structs.VariantBuilder-import {-# SOURCE #-} GI.GLib.Structs.VariantDict-import {-# SOURCE #-} GI.GLib.Structs.VariantType-import {-# SOURCE #-} GI.GLib.Unions.DoubleIEEE754-import {-# SOURCE #-} GI.GLib.Unions.FloatIEEE754-import {-# SOURCE #-} GI.GLib.Unions.Mutex-import {-# SOURCE #-} GI.GLib.Unions.TokenValue--import GI.GLib.Enums-import GI.GLib.Flags-
− GI/GLib/Unions.hs 
@@ -1,32 +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.GLib.Unions-    (     module GI.GLib.Unions.DoubleIEEE754     ,-    module GI.GLib.Unions.FloatIEEE754      ,-    module GI.GLib.Unions.Mutex             ,-    module GI.GLib.Unions.TokenValue        ,---    ) where--import GI.GLib.Unions.DoubleIEEE754-import GI.GLib.Unions.FloatIEEE754-import GI.GLib.Unions.Mutex-import GI.GLib.Unions.TokenValue--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--
− GI/GLib/Unions/DoubleIEEE754.hs 
@@ -1,45 +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.GLib.Unions.DoubleIEEE754-    ( ---- * Exported types-    DoubleIEEE754(..)                       ,-    noDoubleIEEE754                         ,--- -- * Properties--- ** VDouble-    doubleIEEE754ReadVDouble                ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype DoubleIEEE754 = DoubleIEEE754 (ForeignPtr DoubleIEEE754)-noDoubleIEEE754 :: Maybe DoubleIEEE754-noDoubleIEEE754 = Nothing--doubleIEEE754ReadVDouble :: DoubleIEEE754 -> IO Double-doubleIEEE754ReadVDouble s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CDouble-    let val' = realToFrac val-    return val'--
− GI/GLib/Unions/DoubleIEEE754.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Unions.DoubleIEEE754 where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DoubleIEEE754 = DoubleIEEE754 (ForeignPtr DoubleIEEE754)
− GI/GLib/Unions/FloatIEEE754.hs 
@@ -1,45 +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.GLib.Unions.FloatIEEE754-    ( ---- * Exported types-    FloatIEEE754(..)                        ,-    noFloatIEEE754                          ,--- -- * Properties--- ** VFloat-    floatIEEE754ReadVFloat                  ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype FloatIEEE754 = FloatIEEE754 (ForeignPtr FloatIEEE754)-noFloatIEEE754 :: Maybe FloatIEEE754-noFloatIEEE754 = Nothing--floatIEEE754ReadVFloat :: FloatIEEE754 -> IO Float-floatIEEE754ReadVFloat s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CFloat-    let val' = realToFrac val-    return val'--
− GI/GLib/Unions/FloatIEEE754.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Unions.FloatIEEE754 where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FloatIEEE754 = FloatIEEE754 (ForeignPtr FloatIEEE754)
− GI/GLib/Unions/Mutex.hs 
@@ -1,176 +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.GLib.Unions.Mutex-    ( ---- * Exported types-    Mutex(..)                               ,-    noMutex                                 ,--- -- * Methods--- ** mutexClear-    mutexClear                              ,----- ** mutexInit-    mutexInit                               ,----- ** mutexLock-    mutexLock                               ,----- ** mutexTrylock-    mutexTrylock                            ,----- ** mutexUnlock-    mutexUnlock                             ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype Mutex = Mutex (ForeignPtr Mutex)-noMutex :: Maybe Mutex-noMutex = Nothing---- method Mutex::clear--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_mutex_clear" g_mutex_clear :: -    Ptr Mutex ->                            -- _obj : TInterface "GLib" "Mutex"-    IO ()---mutexClear ::-    (MonadIO m) =>-    Mutex ->                                -- _obj-    m ()-mutexClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_mutex_clear _obj'-    touchManagedPtr _obj-    return ()---- method Mutex::init--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_mutex_init" g_mutex_init :: -    Ptr Mutex ->                            -- _obj : TInterface "GLib" "Mutex"-    IO ()---mutexInit ::-    (MonadIO m) =>-    Mutex ->                                -- _obj-    m ()-mutexInit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_mutex_init _obj'-    touchManagedPtr _obj-    return ()---- method Mutex::lock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_mutex_lock" g_mutex_lock :: -    Ptr Mutex ->                            -- _obj : TInterface "GLib" "Mutex"-    IO ()---mutexLock ::-    (MonadIO m) =>-    Mutex ->                                -- _obj-    m ()-mutexLock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_mutex_lock _obj'-    touchManagedPtr _obj-    return ()---- method Mutex::trylock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "g_mutex_trylock" g_mutex_trylock :: -    Ptr Mutex ->                            -- _obj : TInterface "GLib" "Mutex"-    IO CInt---mutexTrylock ::-    (MonadIO m) =>-    Mutex ->                                -- _obj-    m Bool-mutexTrylock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- g_mutex_trylock _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Mutex::unlock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "g_mutex_unlock" g_mutex_unlock :: -    Ptr Mutex ->                            -- _obj : TInterface "GLib" "Mutex"-    IO ()---mutexUnlock ::-    (MonadIO m) =>-    Mutex ->                                -- _obj-    m ()-mutexUnlock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    g_mutex_unlock _obj'-    touchManagedPtr _obj-    return ()--
− GI/GLib/Unions/Mutex.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Unions.Mutex where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Mutex = Mutex (ForeignPtr Mutex)
− GI/GLib/Unions/TokenValue.hs 
@@ -1,147 +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.GLib.Unions.TokenValue-    ( ---- * Exported types-    TokenValue(..)                          ,-    noTokenValue                            ,--- -- * Properties--- ** VBinary-    tokenValueReadVBinary                   ,----- ** VChar-    tokenValueReadVChar                     ,----- ** VComment-    tokenValueReadVComment                  ,----- ** VError-    tokenValueReadVError                    ,----- ** VFloat-    tokenValueReadVFloat                    ,----- ** VHex-    tokenValueReadVHex                      ,----- ** VIdentifier-    tokenValueReadVIdentifier               ,----- ** VInt-    tokenValueReadVInt                      ,----- ** VInt64-    tokenValueReadVInt64                    ,----- ** VOctal-    tokenValueReadVOctal                    ,----- ** VString-    tokenValueReadVString                   ,----- ** VSymbol-    tokenValueReadVSymbol                   ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.GLib.Types-import GI.GLib.Callbacks--newtype TokenValue = TokenValue (ForeignPtr TokenValue)-noTokenValue :: Maybe TokenValue-noTokenValue = Nothing--tokenValueReadVSymbol :: TokenValue -> IO (Ptr ())-tokenValueReadVSymbol s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--tokenValueReadVIdentifier :: TokenValue -> IO T.Text-tokenValueReadVIdentifier s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--tokenValueReadVBinary :: TokenValue -> IO Word64-tokenValueReadVBinary s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word64-    return val--tokenValueReadVOctal :: TokenValue -> IO Word64-tokenValueReadVOctal s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word64-    return val--tokenValueReadVInt :: TokenValue -> IO Word64-tokenValueReadVInt s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word64-    return val--tokenValueReadVInt64 :: TokenValue -> IO Word64-tokenValueReadVInt64 s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word64-    return val--tokenValueReadVFloat :: TokenValue -> IO Double-tokenValueReadVFloat s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CDouble-    let val' = realToFrac val-    return val'--tokenValueReadVHex :: TokenValue -> IO Word64-tokenValueReadVHex s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word64-    return val--tokenValueReadVString :: TokenValue -> IO T.Text-tokenValueReadVString s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--tokenValueReadVComment :: TokenValue -> IO T.Text-tokenValueReadVComment s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--tokenValueReadVChar :: TokenValue -> IO Word8-tokenValueReadVChar s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word8-    return val--tokenValueReadVError :: TokenValue -> IO Word32-tokenValueReadVError s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val--
− GI/GLib/Unions/TokenValue.hs-boot 
@@ -1,10 +0,0 @@-module GI.GLib.Unions.TokenValue where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TokenValue = TokenValue (ForeignPtr TokenValue)
+ GI/GLibAttributes.hs view
@@ -0,0 +1,48 @@+{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-}++-- Generated code.++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,+    TypeFamilies, MultiParamTypeClasses, KindSignatures,+    FlexibleInstances, UndecidableInstances, DataKinds,+    OverloadedStrings, NegativeLiterals, FlexibleContexts #-}++module GI.GLibAttributes where++import Prelude ()+import Data.GI.Base.ShortPrelude+import Data.Char+import Data.Int+import Data.Word+import qualified Data.ByteString.Char8 as B+import Data.ByteString.Char8 (ByteString)+import qualified Data.Map as Map+import Foreign.C+import Foreign.Ptr+import Foreign.ForeignPtr+import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)+import Foreign.Storable (peek, poke, sizeOf)+import Control.Applicative ((<$>))+import Control.Exception (onException)+import Control.Monad.IO.Class+import qualified Data.Text as T++import Data.GI.Base.Attributes hiding (get, set)+import Data.GI.Base.BasicTypes+import Data.GI.Base.BasicConversions+import Data.GI.Base.Closure+import Data.GI.Base.GError+import Data.GI.Base.GHashTable+import Data.GI.Base.GParamSpec+import Data.GI.Base.GVariant+import Data.GI.Base.GValue+import Data.GI.Base.ManagedPtr+import Data.GI.Base.Overloading+import Data.GI.Base.Properties hiding (new)+import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)+import Data.GI.Base.Utils++import GI.GLib+
+ GI/GLibSignals.hs view
@@ -0,0 +1,16 @@+-- Generated code.++{-# OPTIONS_GHC -fno-warn-orphans #-}++{-# LANGUAGE DataKinds,    FlexibleInstances,+             TypeFamilies, MultiParamTypeClasses,+               TypeOperators #-}++module GI.GLibSignals where++import Data.GI.Base.Properties (GObjectNotifySignalInfo)+import Data.GI.Base.Signals+import Data.GI.Base.Overloading++import GI.GLib+
gi-glib.cabal view
@@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name:               gi-glib-version:            0.2.44.12+version:            0.2.46.10 synopsis:           GLib bindings description:        Bindings for GLib, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi@@ -14,89 +14,10 @@  library     default-language:   Haskell2010-    default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts-    other-extensions:   PatternSynonyms ScopedTypeVariables, ViewPatterns-    ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations-    exposed-modules:    GI.GLib.Types-                        GI.GLib-                        GI.GLib.Callbacks-                        GI.GLib.Constants-                        GI.GLib.Enums-                        GI.GLib.Flags-                        GI.GLib.Functions-                        GI.GLib.Structs-                        GI.GLib.Structs.AsyncQueue-                        GI.GLib.Structs.BookmarkFile-                        GI.GLib.Structs.ByteArray-                        GI.GLib.Structs.Bytes-                        GI.GLib.Structs.Checksum-                        GI.GLib.Structs.Cond-                        GI.GLib.Structs.Data-                        GI.GLib.Structs.Date-                        GI.GLib.Structs.DateTime-                        GI.GLib.Structs.DebugKey-                        GI.GLib.Structs.Dir-                        GI.GLib.Structs.HashTableIter-                        GI.GLib.Structs.Hmac-                        GI.GLib.Structs.Hook-                        GI.GLib.Structs.HookList-                        GI.GLib.Structs.IConv-                        GI.GLib.Structs.IOChannel-                        GI.GLib.Structs.IOFuncs-                        GI.GLib.Structs.KeyFile-                        GI.GLib.Structs.MainContext-                        GI.GLib.Structs.MainLoop-                        GI.GLib.Structs.MappedFile-                        GI.GLib.Structs.MarkupParseContext-                        GI.GLib.Structs.MarkupParser-                        GI.GLib.Structs.MatchInfo-                        GI.GLib.Structs.MemVTable-                        GI.GLib.Structs.Node-                        GI.GLib.Structs.Once-                        GI.GLib.Structs.OptionContext-                        GI.GLib.Structs.OptionEntry-                        GI.GLib.Structs.OptionGroup-                        GI.GLib.Structs.PatternSpec-                        GI.GLib.Structs.PollFD-                        GI.GLib.Structs.PtrArray-                        GI.GLib.Structs.Queue-                        GI.GLib.Structs.RWLock-                        GI.GLib.Structs.Rand-                        GI.GLib.Structs.RecMutex-                        GI.GLib.Structs.Regex-                        GI.GLib.Structs.Scanner-                        GI.GLib.Structs.ScannerConfig-                        GI.GLib.Structs.Sequence-                        GI.GLib.Structs.SequenceIter-                        GI.GLib.Structs.Source-                        GI.GLib.Structs.SourceCallbackFuncs-                        GI.GLib.Structs.SourceFuncs-                        GI.GLib.Structs.StatBuf-                        GI.GLib.Structs.String-                        GI.GLib.Structs.StringChunk-                        GI.GLib.Structs.TestCase-                        GI.GLib.Structs.TestConfig-                        GI.GLib.Structs.TestLogBuffer-                        GI.GLib.Structs.TestLogMsg-                        GI.GLib.Structs.TestSuite-                        GI.GLib.Structs.Thread-                        GI.GLib.Structs.ThreadPool-                        GI.GLib.Structs.TimeVal-                        GI.GLib.Structs.TimeZone-                        GI.GLib.Structs.Timer-                        GI.GLib.Structs.TrashStack-                        GI.GLib.Structs.Tree-                        GI.GLib.Structs.VariantBuilder-                        GI.GLib.Structs.VariantDict-                        GI.GLib.Structs.VariantType-                        GI.GLib.Unions-                        GI.GLib.Unions.DoubleIEEE754-                        GI.GLib.Unions.FloatIEEE754-                        GI.GLib.Unions.Mutex-                        GI.GLib.Unions.TokenValue-    pkgconfig-depends:  glib-2.0 >= 2.44+    exposed-modules:    GI.GLib, GI.GLibAttributes, GI.GLibSignals+    pkgconfig-depends:  glib-2.0 >= 2.46     build-depends: base >= 4.7 && <5,-        haskell-gi-base >= 0.12 && < 1,+        haskell-gi-base >= 0.10 && < 1,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,